From f66d19e54b658a74e5deae85c9415fe90dd12cb8 Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Wed, 20 Nov 2019 10:20:48 +0100 Subject: [PATCH 01/61] added entrywise vector product psb_gemlt --- base/modules/psblas/psb_c_psblas_mod.F90 | 55 ++++--- base/modules/psblas/psb_d_psblas_mod.F90 | 55 ++++--- base/modules/psblas/psb_s_psblas_mod.F90 | 55 ++++--- base/modules/psblas/psb_z_psblas_mod.F90 | 55 ++++--- base/psblas/Makefile | 3 +- base/psblas/psb_cmlt_vect.f90 | 105 ++++++++++++++ base/psblas/psb_cvmlt.f90 | 111 ++++++++++++++ base/psblas/psb_dmlt_vect.f90 | 105 ++++++++++++++ base/psblas/psb_dvmlt.f90 | 111 ++++++++++++++ base/psblas/psb_smlt_vect.f90 | 105 ++++++++++++++ base/psblas/psb_svmlt.f90 | 111 ++++++++++++++ base/psblas/psb_zmlt_vect.f90 | 105 ++++++++++++++ base/psblas/psb_zvmlt.f90 | 111 ++++++++++++++ test/kernel/Makefile | 28 ++-- test/kernel/vecoperation.f90 | 176 +++++++++++++++++++++++ 15 files changed, 1189 insertions(+), 102 deletions(-) create mode 100644 base/psblas/psb_cmlt_vect.f90 create mode 100644 base/psblas/psb_cvmlt.f90 create mode 100644 base/psblas/psb_dmlt_vect.f90 create mode 100644 base/psblas/psb_dvmlt.f90 create mode 100644 base/psblas/psb_smlt_vect.f90 create mode 100644 base/psblas/psb_svmlt.f90 create mode 100644 base/psblas/psb_zmlt_vect.f90 create mode 100644 base/psblas/psb_zvmlt.f90 create mode 100644 test/kernel/vecoperation.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 53271ea90..f4d771e09 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psb_c_psblas_mod use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_ use psb_c_vect_mod, only : psb_c_vect_type @@ -44,7 +44,7 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_cdot_vect - function psb_cdotv(x, y, desc_a,info,global) + function psb_cdotv(x, y, desc_a,info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_c_vect_type, psb_cspmat_type complex(psb_spk_) :: psb_cdotv @@ -53,7 +53,7 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_cdotv - function psb_cdot(x, y, desc_a, info, jx, jy,global) + function psb_cdot(x, y, desc_a, info, jx, jy,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_c_vect_type, psb_cspmat_type complex(psb_spk_) :: psb_cdot @@ -69,7 +69,7 @@ module psb_c_psblas_mod interface psb_gedots subroutine psb_cdotvs(res,x, y, desc_a, info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_c_vect_type, psb_cspmat_type + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent(out) :: res complex(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a @@ -78,7 +78,7 @@ module psb_c_psblas_mod end subroutine psb_cdotvs subroutine psb_cmdots(res,x, y, desc_a,info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_c_vect_type, psb_cspmat_type + & psb_c_vect_type, psb_cspmat_type complex(psb_spk_), intent(out) :: res(:) complex(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a @@ -155,10 +155,10 @@ module psb_c_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrmi procedure psb_camax, psb_camaxv, psb_camax_vect - end interface + end interface interface psb_normi procedure psb_camax, psb_camaxv, psb_camax_vect - end interface + end interface #endif interface psb_geamaxs @@ -238,10 +238,10 @@ module psb_c_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrm1 procedure psb_casum, psb_casumv, psb_casum_vect - end interface + end interface interface psb_norm1 procedure psb_casum, psb_casumv, psb_casum_vect - end interface + end interface #endif interface psb_genrm2 @@ -278,7 +278,7 @@ module psb_c_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect - end interface + end interface #endif interface psb_genrm2s @@ -309,7 +309,7 @@ module psb_c_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_normi procedure psb_cnrmi - end interface + end interface #endif interface psb_spnrm1 @@ -323,11 +323,11 @@ module psb_c_psblas_mod logical, intent(in), optional :: global end function psb_cspnrm1 end interface - + #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm1 procedure psb_cspnrm1 - end interface + end interface #endif interface psb_spmm @@ -378,7 +378,7 @@ module psb_c_psblas_mod interface psb_spsm subroutine psb_cspsm(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_c_vect_type, psb_cspmat_type @@ -395,7 +395,7 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_cspsm subroutine psb_cspsv(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_c_vect_type, psb_cspmat_type @@ -411,7 +411,7 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_cspsv subroutine psb_cspsv_vect(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_c_vect_type, psb_cspmat_type @@ -428,4 +428,15 @@ module psb_c_psblas_mod end subroutine psb_cspsv_vect end interface + interface psb_gemlt + subroutine psb_cmlt_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cmlt_vect + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 56386f92d..825fe41e0 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psb_d_psblas_mod use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_ use psb_d_vect_mod, only : psb_d_vect_type @@ -44,7 +44,7 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_ddot_vect - function psb_ddotv(x, y, desc_a,info,global) + function psb_ddotv(x, y, desc_a,info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) :: psb_ddotv @@ -53,7 +53,7 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_ddotv - function psb_ddot(x, y, desc_a, info, jx, jy,global) + function psb_ddot(x, y, desc_a, info, jx, jy,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_d_vect_type, psb_dspmat_type real(psb_dpk_) :: psb_ddot @@ -69,7 +69,7 @@ module psb_d_psblas_mod interface psb_gedots subroutine psb_ddotvs(res,x, y, desc_a, info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_d_vect_type, psb_dspmat_type + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent(out) :: res real(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a @@ -78,7 +78,7 @@ module psb_d_psblas_mod end subroutine psb_ddotvs subroutine psb_dmdots(res,x, y, desc_a,info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_d_vect_type, psb_dspmat_type + & psb_d_vect_type, psb_dspmat_type real(psb_dpk_), intent(out) :: res(:) real(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a @@ -155,10 +155,10 @@ module psb_d_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrmi procedure psb_damax, psb_damaxv, psb_damax_vect - end interface + end interface interface psb_normi procedure psb_damax, psb_damaxv, psb_damax_vect - end interface + end interface #endif interface psb_geamaxs @@ -238,10 +238,10 @@ module psb_d_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrm1 procedure psb_dasum, psb_dasumv, psb_dasum_vect - end interface + end interface interface psb_norm1 procedure psb_dasum, psb_dasumv, psb_dasum_vect - end interface + end interface #endif interface psb_genrm2 @@ -278,7 +278,7 @@ module psb_d_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect - end interface + end interface #endif interface psb_genrm2s @@ -309,7 +309,7 @@ module psb_d_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_normi procedure psb_dnrmi - end interface + end interface #endif interface psb_spnrm1 @@ -323,11 +323,11 @@ module psb_d_psblas_mod logical, intent(in), optional :: global end function psb_dspnrm1 end interface - + #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm1 procedure psb_dspnrm1 - end interface + end interface #endif interface psb_spmm @@ -378,7 +378,7 @@ module psb_d_psblas_mod interface psb_spsm subroutine psb_dspsm(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_d_vect_type, psb_dspmat_type @@ -395,7 +395,7 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_dspsm subroutine psb_dspsv(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_d_vect_type, psb_dspmat_type @@ -411,7 +411,7 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_dspsv subroutine psb_dspsv_vect(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_d_vect_type, psb_dspmat_type @@ -428,4 +428,15 @@ module psb_d_psblas_mod end subroutine psb_dspsv_vect end interface + interface psb_gemlt + subroutine psb_dmlt_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dmlt_vect + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index a764bb402..b91fad791 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psb_s_psblas_mod use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_ use psb_s_vect_mod, only : psb_s_vect_type @@ -44,7 +44,7 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_sdot_vect - function psb_sdotv(x, y, desc_a,info,global) + function psb_sdotv(x, y, desc_a,info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: psb_sdotv @@ -53,7 +53,7 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_sdotv - function psb_sdot(x, y, desc_a, info, jx, jy,global) + function psb_sdot(x, y, desc_a, info, jx, jy,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_s_vect_type, psb_sspmat_type real(psb_spk_) :: psb_sdot @@ -69,7 +69,7 @@ module psb_s_psblas_mod interface psb_gedots subroutine psb_sdotvs(res,x, y, desc_a, info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_s_vect_type, psb_sspmat_type + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent(out) :: res real(psb_spk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a @@ -78,7 +78,7 @@ module psb_s_psblas_mod end subroutine psb_sdotvs subroutine psb_smdots(res,x, y, desc_a,info,global) import :: psb_desc_type, psb_spk_, psb_ipk_, & - & psb_s_vect_type, psb_sspmat_type + & psb_s_vect_type, psb_sspmat_type real(psb_spk_), intent(out) :: res(:) real(psb_spk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a @@ -155,10 +155,10 @@ module psb_s_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrmi procedure psb_samax, psb_samaxv, psb_samax_vect - end interface + end interface interface psb_normi procedure psb_samax, psb_samaxv, psb_samax_vect - end interface + end interface #endif interface psb_geamaxs @@ -238,10 +238,10 @@ module psb_s_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrm1 procedure psb_sasum, psb_sasumv, psb_sasum_vect - end interface + end interface interface psb_norm1 procedure psb_sasum, psb_sasumv, psb_sasum_vect - end interface + end interface #endif interface psb_genrm2 @@ -278,7 +278,7 @@ module psb_s_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect - end interface + end interface #endif interface psb_genrm2s @@ -309,7 +309,7 @@ module psb_s_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_normi procedure psb_snrmi - end interface + end interface #endif interface psb_spnrm1 @@ -323,11 +323,11 @@ module psb_s_psblas_mod logical, intent(in), optional :: global end function psb_sspnrm1 end interface - + #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm1 procedure psb_sspnrm1 - end interface + end interface #endif interface psb_spmm @@ -378,7 +378,7 @@ module psb_s_psblas_mod interface psb_spsm subroutine psb_sspsm(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_s_vect_type, psb_sspmat_type @@ -395,7 +395,7 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_sspsm subroutine psb_sspsv(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_s_vect_type, psb_sspmat_type @@ -411,7 +411,7 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_sspsv subroutine psb_sspsv_vect(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_spk_, psb_ipk_, & & psb_s_vect_type, psb_sspmat_type @@ -428,4 +428,15 @@ module psb_s_psblas_mod end subroutine psb_sspsv_vect end interface + interface psb_gemlt + subroutine psb_smlt_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_smlt_vect + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 08ee92a72..afd0a9b75 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psb_z_psblas_mod use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_ use psb_z_vect_mod, only : psb_z_vect_type @@ -44,7 +44,7 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_zdot_vect - function psb_zdotv(x, y, desc_a,info,global) + function psb_zdotv(x, y, desc_a,info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_) :: psb_zdotv @@ -53,7 +53,7 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_zdotv - function psb_zdot(x, y, desc_a, info, jx, jy,global) + function psb_zdot(x, y, desc_a, info, jx, jy,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_) :: psb_zdot @@ -69,7 +69,7 @@ module psb_z_psblas_mod interface psb_gedots subroutine psb_zdotvs(res,x, y, desc_a, info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_z_vect_type, psb_zspmat_type + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent(out) :: res complex(psb_dpk_), intent(in) :: x(:), y(:) type(psb_desc_type), intent(in) :: desc_a @@ -78,7 +78,7 @@ module psb_z_psblas_mod end subroutine psb_zdotvs subroutine psb_zmdots(res,x, y, desc_a,info,global) import :: psb_desc_type, psb_dpk_, psb_ipk_, & - & psb_z_vect_type, psb_zspmat_type + & psb_z_vect_type, psb_zspmat_type complex(psb_dpk_), intent(out) :: res(:) complex(psb_dpk_), intent(in) :: x(:,:), y(:,:) type(psb_desc_type), intent(in) :: desc_a @@ -155,10 +155,10 @@ module psb_z_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrmi procedure psb_zamax, psb_zamaxv, psb_zamax_vect - end interface + end interface interface psb_normi procedure psb_zamax, psb_zamaxv, psb_zamax_vect - end interface + end interface #endif interface psb_geamaxs @@ -238,10 +238,10 @@ module psb_z_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_genrm1 procedure psb_zasum, psb_zasumv, psb_zasum_vect - end interface + end interface interface psb_norm1 procedure psb_zasum, psb_zasumv, psb_zasum_vect - end interface + end interface #endif interface psb_genrm2 @@ -278,7 +278,7 @@ module psb_z_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect - end interface + end interface #endif interface psb_genrm2s @@ -309,7 +309,7 @@ module psb_z_psblas_mod #if ! defined(HAVE_BUGGY_GENERICS) interface psb_normi procedure psb_znrmi - end interface + end interface #endif interface psb_spnrm1 @@ -323,11 +323,11 @@ module psb_z_psblas_mod logical, intent(in), optional :: global end function psb_zspnrm1 end interface - + #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm1 procedure psb_zspnrm1 - end interface + end interface #endif interface psb_spmm @@ -378,7 +378,7 @@ module psb_z_psblas_mod interface psb_spsm subroutine psb_zspsm(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, n, jx, jy, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_z_vect_type, psb_zspmat_type @@ -395,7 +395,7 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zspsm subroutine psb_zspsv(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_z_vect_type, psb_zspmat_type @@ -411,7 +411,7 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zspsv subroutine psb_zspsv_vect(alpha, t, x, beta, y,& - & desc_a, info, trans, scale, choice,& + & desc_a, info, trans, scale, choice,& & diag, work) import :: psb_desc_type, psb_dpk_, psb_ipk_, & & psb_z_vect_type, psb_zspmat_type @@ -428,4 +428,15 @@ module psb_z_psblas_mod end subroutine psb_zspsv_vect end interface + interface psb_gemlt + subroutine psb_zmlt_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zmlt_vect + end interface + end module psb_z_psblas_mod diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 44eb67ee9..bc583f17f 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -9,7 +9,8 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_saxpby.o psb_sdot.o psb_sasum.o psb_samax.o\ psb_snrm2.o psb_snrmi.o psb_sspmm.o psb_sspsm.o\ psb_camax.o psb_casum.o psb_caxpby.o psb_cdot.o \ - psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o + psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o \ + psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o LIBDIR=.. diff --git a/base/psblas/psb_cmlt_vect.f90 b/base/psblas/psb_cmlt_vect.f90 new file mode 100644 index 000000000..89679c0ff --- /dev/null +++ b/base/psblas/psb_cmlt_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_cmlt_vect + +subroutine psb_cmlt_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cmlt_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_mlt_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%mlt(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cmlt_vect diff --git a/base/psblas/psb_cvmlt.f90 b/base/psblas/psb_cvmlt.f90 new file mode 100644 index 000000000..829ce9873 --- /dev/null +++ b/base/psblas/psb_cvmlt.f90 @@ -0,0 +1,111 @@ +! +! 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_cvmlt.f90 + +subroutine psb_cvmlt(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cvmlt + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_cgevmlt' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call y%base_mlt_v(desc_a%get_local_rows(),& + & alpha,x,beta,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cvmlt diff --git a/base/psblas/psb_dmlt_vect.f90 b/base/psblas/psb_dmlt_vect.f90 new file mode 100644 index 000000000..2f282824a --- /dev/null +++ b/base/psblas/psb_dmlt_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_dmlt_vect + +subroutine psb_dmlt_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dmlt_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_mlt_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%mlt(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dmlt_vect diff --git a/base/psblas/psb_dvmlt.f90 b/base/psblas/psb_dvmlt.f90 new file mode 100644 index 000000000..ec5325fc9 --- /dev/null +++ b/base/psblas/psb_dvmlt.f90 @@ -0,0 +1,111 @@ +! +! 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_dvmlt.f90 + +subroutine psb_dvmlt(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dvmlt + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_dgevmlt' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call y%base_mlt_v(desc_a%get_local_rows(),& + & alpha,x,beta,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dvmlt diff --git a/base/psblas/psb_smlt_vect.f90 b/base/psblas/psb_smlt_vect.f90 new file mode 100644 index 000000000..f135e97d0 --- /dev/null +++ b/base/psblas/psb_smlt_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_smlt_vect + +subroutine psb_smlt_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_smlt_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_mlt_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%mlt(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_smlt_vect diff --git a/base/psblas/psb_svmlt.f90 b/base/psblas/psb_svmlt.f90 new file mode 100644 index 000000000..cfe09de1b --- /dev/null +++ b/base/psblas/psb_svmlt.f90 @@ -0,0 +1,111 @@ +! +! 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_svmlt.f90 + +subroutine psb_svmlt(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_svmlt + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_sgevmlt' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call y%base_mlt_v(desc_a%get_local_rows(),& + & alpha,x,beta,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_svmlt diff --git a/base/psblas/psb_zmlt_vect.f90 b/base/psblas/psb_zmlt_vect.f90 new file mode 100644 index 000000000..5d3153b55 --- /dev/null +++ b/base/psblas/psb_zmlt_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_zmlt_vect + +subroutine psb_zmlt_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zmlt_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_mlt_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%mlt(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zmlt_vect diff --git a/base/psblas/psb_zvmlt.f90 b/base/psblas/psb_zvmlt.f90 new file mode 100644 index 000000000..01a6fc68e --- /dev/null +++ b/base/psblas/psb_zvmlt.f90 @@ -0,0 +1,111 @@ +! +! 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_zvmlt.f90 + +subroutine psb_zvmlt(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zvmlt + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_zgevmlt' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call y%base_mlt_v(desc_a%get_local_rows(),& + & alpha,x,beta,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zvmlt diff --git a/test/kernel/Makefile b/test/kernel/Makefile index 8eb076a49..9dc88e59a 100644 --- a/test/kernel/Makefile +++ b/test/kernel/Makefile @@ -12,36 +12,38 @@ LDLIBS=$(PSBLDLIBS) FINCLUDES=$(FMFLAG)$(MODDIR) $(FMFLAG). -DTOBJS=d_file_spmv.o -STOBJS=s_file_spmv.o +DTOBJS=d_file_spmv.o +STOBJS=s_file_spmv.o DPGOBJS=pdgenspmv.o +DVECOBJS=vecoperation.o EXEDIR=./runs -all: runsd d_file_spmv s_file_spmv pdgenspmv +all: runsd d_file_spmv s_file_spmv pdgenspmv vecoperation runsd: (if test ! -d runs ; then mkdir runs; fi) d_file_spmv: $(DTOBJS) - $(FLINK) $(LOPT) $(DTOBJS) -o d_file_spmv $(PSBLAS_LIB) $(LDLIBS) - /bin/mv d_file_spmv $(EXEDIR) + $(FLINK) $(LOPT) $(DTOBJS) -o d_file_spmv $(PSBLAS_LIB) $(LDLIBS) + /bin/mv d_file_spmv $(EXEDIR) pdgenspmv: $(DPGOBJS) - $(FLINK) $(LOPT) $(DPGOBJS) -o pdgenspmv $(PSBLAS_LIB) $(LDLIBS) - /bin/mv pdgenspmv $(EXEDIR) + $(FLINK) $(LOPT) $(DPGOBJS) -o pdgenspmv $(PSBLAS_LIB) $(LDLIBS) + /bin/mv pdgenspmv $(EXEDIR) s_file_spmv: $(STOBJS) - $(FLINK) $(LOPT) $(STOBJS) -o s_file_spmv $(PSBLAS_LIB) $(LDLIBS) - /bin/mv s_file_spmv $(EXEDIR) + $(FLINK) $(LOPT) $(STOBJS) -o s_file_spmv $(PSBLAS_LIB) $(LDLIBS) + /bin/mv s_file_spmv $(EXEDIR) +vecoperation: $(DVECOBJS) + $(FLINK) $(LOPT) $(DVECOBJS) -o vecoperation $(PSBLAS_LIB) $(LDLIBS) + /bin/mv vecoperation $(EXEDIR) - -clean: - /bin/rm -f $(DBOBJSS) $(DBOBJS) $(DTOBJS) $(STOBJS) +clean: + /bin/rm -f $(DBOBJSS) $(DBOBJS) $(DTOBJS) $(STOBJS) $(DVECOBJS) lib: (cd ../../; make library) verycleanlib: (cd ../../; make veryclean) - diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 new file mode 100644 index 000000000..732a47087 --- /dev/null +++ b/test/kernel/vecoperation.f90 @@ -0,0 +1,176 @@ +! +! Parallel Sparse BLAS version 3.5.1 +! (C) Copyright 2015 +! 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: vecoperation.f90 +! +program vecoperation + use psb_base_mod + use psb_util_mod + implicit none + + ! input parameters + integer(psb_ipk_) :: idim = 100 + + ! miscellaneous + real(psb_dpk_), parameter :: one = 1.d0 + real(psb_dpk_) :: t1, t2 + + ! descriptor + type(psb_desc_type) :: desc_a + ! vector + type(psb_d_vect_type) :: x,y + ! blacs parameters + integer(psb_ipk_) :: ictxt, iam, np + ! other variables + integer(psb_ipk_) :: nr, nlr, info, i, ii, ib=1 + integer(psb_lpk_) :: nt + integer(psb_lpk_), allocatable :: myidx(:) + real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf + character(len=20) :: name,ch_err,readinput + + info=psb_success_ + + + call psb_init(ictxt) + call psb_info(ictxt,iam,np) + + if (iam < 0) then + call psb_exit(ictxt) ! This should not happen, but just in case + stop + endif + if(psb_get_errstatus() /= 0) goto 9999 + name='vecoperation' + call psb_set_errverbosity(itwo) + ! + ! Hello world + ! + if (iam == psb_root_) then + write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ + write(*,*) 'This is the ',trim(name),' sample program' + end if + + call get_command_argument(1,readinput) + if (len_trim(readinput) /= 0) read(readinput,*)idim + + if (iam == psb_root_) write(psb_out_unit,'(" ")') + if (iam == psb_root_) write(psb_out_unit,'("Vector size",I10)')idim + + ! + ! Data distribution + ! We assume a simple contiguous block distribution + ! + nt = (idim+np-1)/np + nr = max(0,min(nt,idim-(iam*nt))) + nt = nr + + call psb_sum(ictxt,nt) + if (nt /= idim) then + write(psb_err_unit,*) iam, 'Initialization error ',nr,nt,idim + info = -1 + call psb_barrier(ictxt) + call psb_abort(ictxt) + return + end if + + call psb_cdall(ictxt,desc_a,info,nl=nr) + myidx = desc_a%get_global_indices() + nlr = size(myidx) + + ! + ! allocate and fill in the vectors + ! + call psb_barrier(ictxt) + t1 = psb_wtime() + ! Allocate memory + call psb_geall(x,desc_a,info) + call psb_geall(y,desc_a,info) + ! Put entries into the vectors + do ii=1,nlr + zt(1) = 1.0 + call psb_geins(ib,myidx(ii:),zt(1:),x,desc_a,info) + zt(1) = 2.0 + call psb_geins(ib,myidx(ii:),zt(1:),y,desc_a,info) + end do + ! Assemble + call psb_cdasb(desc_a,info) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='comm asb rout.' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + if (info == psb_success_) call psb_geasb(x,desc_a,info) + if (info == psb_success_) call psb_geasb(y,desc_a,info) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='vec asb rout.' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_barrier(ictxt) + t2 = psb_wtime() - t1 + + if (iam == psb_root_) write(psb_out_unit,'("Overall vector creation time : ",es12.5)')t2 + + ! + ! Vector operations + ! + dotresult = psb_gedot(x,y,desc_a,info) ! Dot-product + if (iam == psb_root_) write(psb_out_unit,'("Dot product result : ",es12.5)')dotresult + norm1 = psb_norm1(x,desc_a,info) + norm2 = psb_norm2(x,desc_a,info) + norminf = psb_normi(x,desc_a,info) + if (iam == psb_root_) write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5," \|x\|_2",es12.5)')norminf,norm1,norm2 + call psb_geaxpby(1.0_psb_dpk_, x, 1.0_psb_dpk_, y, desc_a, info) ! \alpha x + \beta y + call psb_gemlt(x,y,desc_a,info) + + + + ! + ! cleanup storage and exit + ! + call psb_gefree(x,desc_a,info) + call psb_gefree(y,desc_a,info) + call psb_cdfree(desc_a,info) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='free routine' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + call psb_exit(ictxt) + stop + +9999 call psb_error(ictxt) + + stop +end program vecoperation From ce6383b7ff01c24bb4770b64bbaeb85dba8749d4 Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Wed, 20 Nov 2019 15:45:35 +0100 Subject: [PATCH 02/61] Added Element-by-Element divison --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 + base/modules/psblas/psb_d_psblas_mod.F90 | 11 + base/modules/psblas/psb_s_psblas_mod.F90 | 11 + base/modules/psblas/psb_z_psblas_mod.F90 | 11 + base/modules/serial/psb_c_base_vect_mod.f90 | 800 +++++++++++--------- base/modules/serial/psb_c_vect_mod.F90 | 308 ++++---- base/modules/serial/psb_d_base_vect_mod.f90 | 800 +++++++++++--------- base/modules/serial/psb_d_vect_mod.F90 | 308 ++++---- base/modules/serial/psb_i_base_vect_mod.f90 | 509 +++++++------ base/modules/serial/psb_i_vect_mod.F90 | 152 ++-- base/modules/serial/psb_l_base_vect_mod.f90 | 509 +++++++------ base/modules/serial/psb_l_vect_mod.F90 | 152 ++-- base/modules/serial/psb_s_base_vect_mod.f90 | 800 +++++++++++--------- base/modules/serial/psb_s_vect_mod.F90 | 308 ++++---- base/modules/serial/psb_z_base_vect_mod.f90 | 800 +++++++++++--------- base/modules/serial/psb_z_vect_mod.F90 | 308 ++++---- base/psblas/Makefile | 11 +- base/psblas/psb_cdiv_vect.f90 | 105 +++ base/psblas/psb_ddiv_vect.f90 | 105 +++ base/psblas/psb_sdiv_vect.f90 | 105 +++ base/psblas/psb_zdiv_vect.f90 | 105 +++ test/kernel/vecoperation.f90 | 32 + 22 files changed, 3546 insertions(+), 2715 deletions(-) create mode 100644 base/psblas/psb_cdiv_vect.f90 create mode 100644 base/psblas/psb_ddiv_vect.f90 create mode 100644 base/psblas/psb_sdiv_vect.f90 create mode 100644 base/psblas/psb_zdiv_vect.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index f4d771e09..1e16312d4 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -439,4 +439,15 @@ module psb_c_psblas_mod end subroutine psb_cmlt_vect end interface + interface psb_gediv + subroutine psb_cdiv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cdiv_vect + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 825fe41e0..f7bdfa8f1 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -439,4 +439,15 @@ module psb_d_psblas_mod end subroutine psb_dmlt_vect end interface + interface psb_gediv + subroutine psb_ddiv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ddiv_vect + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index b91fad791..af2c17f6d 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -439,4 +439,15 @@ module psb_s_psblas_mod end subroutine psb_smlt_vect end interface + interface psb_gediv + subroutine psb_sdiv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_sdiv_vect + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index afd0a9b75..807ec7cd8 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -439,4 +439,15 @@ module psb_z_psblas_mod end subroutine psb_zmlt_vect end interface + interface psb_gediv + subroutine psb_zdiv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zdiv_vect + end interface + end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 59f9816d3..d95314747 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_c_base_vect_mod ! ! This module contains the definition of the psb_c_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,7 +43,7 @@ ! ! module psb_c_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod @@ -51,9 +51,9 @@ module psb_c_base_vect_mod use psb_l_base_vect_mod !> \namespace psb_base_mod \class psb_c_base_vect_type - !! The psb_c_base_vect_type + !! The psb_c_base_vect_type !! defines a middle level complex(psb_spk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -61,9 +61,9 @@ module psb_c_base_vect_mod !! sparse matrix types. !! type psb_c_base_vect_type - !> Values. + !> Values. complex(psb_spk_), allocatable :: v(:) - complex(psb_spk_), allocatable :: combuf(:) + complex(psb_spk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -78,7 +78,7 @@ module psb_c_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => c_base_ins_a procedure, pass(x) :: ins_v => c_base_ins_v @@ -93,7 +93,7 @@ module psb_c_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => c_base_sync procedure, pass(x) :: is_host => c_base_is_host @@ -130,7 +130,7 @@ module psb_c_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => c_base_gthab procedure, pass(x) :: gthzv => c_base_gthzv @@ -164,6 +164,12 @@ module psb_c_base_vect_mod procedure, pass(z) :: mlt_av => c_base_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va ! + ! Vector-Vector operations + ! + procedure, pass(x) :: div_v => c_base_div_v + procedure, pass(z) :: div_a2 => c_base_div_a2 + generic, public :: div => div_v, div_a2 + ! ! Scaling and norms ! procedure, pass(x) :: scal => c_base_scal @@ -183,11 +189,11 @@ module psb_c_base_vect_mod end interface psb_c_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -200,11 +206,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -214,7 +220,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -226,20 +232,20 @@ contains !! subroutine c_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: this(:) class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine c_base_bld_x - + ! ! Create with size, but no initialization ! @@ -247,11 +253,11 @@ contains !> Function bld_mn: !! \memberof psb_c_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine c_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -260,15 +266,15 @@ contains call x%asb(n,info) end subroutine c_base_bld_mn - + !> Function bld_en: !! \memberof psb_c_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine c_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -277,24 +283,24 @@ contains call x%asb(n,info) end subroutine c_base_bld_en - + !> Function base_all: !! \memberof psb_c_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine c_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_c_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine c_base_all !> Function base_mold: @@ -306,11 +312,11 @@ contains subroutine c_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x class(psb_c_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_c_base_vect_type :: y, stat=info) end subroutine c_base_mold @@ -320,21 +326,21 @@ contains ! !> Function base_ins: !! \memberof psb_c_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -344,7 +350,7 @@ contains ! subroutine c_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -354,21 +360,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -376,7 +382,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -394,7 +400,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -403,7 +409,7 @@ contains subroutine c_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -413,14 +419,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -436,14 +442,14 @@ contains ! subroutine c_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=czero call x%set_host() end subroutine c_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -452,20 +458,20 @@ contains !> Function base_asb: !! \memberof psb_c_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine c_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -482,20 +488,20 @@ contains !> Function base_asb: !! \memberof psb_c_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine c_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -508,39 +514,39 @@ contains !> Function base_free: !! \memberof psb_c_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine c_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine c_base_free - + ! !> Function base_free_buffer: !! \memberof psb_c_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine c_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -555,17 +561,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine c_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -575,13 +581,13 @@ contains !> Function base_free_comid: !! \memberof psb_c_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine c_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -593,77 +599,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_c_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine c_base_sync(x) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x - + end subroutine c_base_sync ! !> Function base_set_host: !! \memberof psb_c_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine c_base_set_host(x) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x - + end subroutine c_base_set_host ! !> Function base_set_dev: !! \memberof psb_c_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine c_base_set_dev(x) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x - + end subroutine c_base_set_dev ! !> Function base_set_sync: !! \memberof psb_c_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine c_base_set_sync(x) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x - + end subroutine c_base_set_sync ! !> Function base_is_dev: !! \memberof psb_c_base_vect_type !! \brief Is vector on external device . - !! + !! ! function c_base_is_dev(x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function c_base_is_dev - + ! !> Function base_is_host !! \memberof psb_c_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function c_base_is_host(x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x logical :: res @@ -674,10 +680,10 @@ contains !> Function base_is_sync !! \memberof psb_c_base_vect_type !! \brief Is vector on sync . - !! + !! ! function c_base_is_sync(x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x logical :: res @@ -686,16 +692,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_c_base_vect_type !! \brief Number of entries - !! + !! ! function c_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -708,13 +714,13 @@ contains !> Function base_get_sizeof !! \memberof psb_c_base_vect_type !! \brief Size in bytes - !! + !! ! function c_base_sizeof(x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * (2*psb_sizeof_sp)) * x%get_nrows() @@ -724,14 +730,14 @@ contains !> Function base_get_fmt !! \memberof psb_c_base_vect_type !! \brief Format - !! + !! ! function c_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function c_base_get_fmt - + ! ! @@ -740,7 +746,7 @@ contains !! \memberof psb_c_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function c_base_get_vect(x,n) result(res) class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), allocatable :: res(:) @@ -748,21 +754,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function c_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -771,18 +777,18 @@ contains !! \param val The value to set !! subroutine c_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -794,14 +800,14 @@ contains !> Function base_set_vect !! \memberof psb_c_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine c_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -809,7 +815,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -829,7 +835,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine c_base_absval1(x) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x if (allocated(x%v)) then @@ -841,21 +847,21 @@ contains end subroutine c_base_absval1 subroutine c_base_absval2(x,y) - implicit none - class(psb_c_base_vect_type), intent(inout) :: x + implicit none + class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y integer(psb_ipk_) :: info if (.not.x%is_host()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(ione*min(x%get_nrows(),y%get_nrows()),cone,x,czero,info) call y%absval() end if - + end subroutine c_base_absval2 ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_dot_v !! \memberof psb_c_base_vect_type @@ -864,12 +870,12 @@ contains !! \param y The other (base_vect) to be multiplied by !! function c_base_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res complex(psb_spk_), external :: cdotc - + res = czero ! ! Note: this is the base implementation. @@ -898,19 +904,19 @@ contains !! \param y(:) The array to be multiplied by !! function c_base_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res complex(psb_spk_), external :: cdotc - + res = cdotc(n,y,1,x%v,1) end function c_base_dot_a - + ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -925,13 +931,13 @@ contains !! subroutine c_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (x%is_dev()) call x%sync() call y%axpby(m,alpha,x%v,beta,info) @@ -939,7 +945,7 @@ contains end subroutine c_base_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_axpby_a @@ -953,20 +959,20 @@ contains !! subroutine c_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (y%is_dev()) call y%sync() call psb_geaxpby(m,alpha,x,beta,y%v,info) call y%set_host() - + end subroutine c_base_axpby_a - + ! ! Multiple variants of two operations: ! Simple multiplication Y(:) = X(:)*Y(:) @@ -984,10 +990,10 @@ contains !! subroutine c_base_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1005,7 +1011,7 @@ contains !! subroutine c_base_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -1014,7 +1020,7 @@ contains info = 0 if (y%is_dev()) call y%sync() n = min(size(y%v), size(x)) - do i=1, n + do i=1, n y%v(i) = y%v(i)*x(i) end do call y%set_host() @@ -1035,7 +1041,7 @@ contains !! subroutine c_base_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: y(:) complex(psb_spk_), intent(in) :: x(:) @@ -1043,58 +1049,58 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (z%is_dev()) call z%sync() n = min(size(z%v), size(x), size(y)) - if (alpha == czero) then - if (beta == cone) then - return + if (alpha == czero) then + if (beta == cone) then + return else do i=1, n z%v(i) = beta*z%v(i) end do end if else - if (alpha == cone) then - if (beta == czero) then - do i=1, n + if (alpha == cone) then + if (beta == czero) then + do i=1, n z%v(i) = y(i)*x(i) end do - else if (beta == cone) then - do i=1, n + else if (beta == cone) then + do i=1, n z%v(i) = z%v(i) + y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do end if - else if (alpha == -cone) then - if (beta == czero) then - do i=1, n + else if (alpha == -cone) then + if (beta == czero) then + do i=1, n z%v(i) = -y(i)*x(i) end do - else if (beta == cone) then - do i=1, n + else if (beta == cone) then + do i=1, n z%v(i) = z%v(i) - y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else - if (beta == czero) then - do i=1, n + if (beta == czero) then + do i=1, n z%v(i) = alpha*y(i)*x(i) end do - else if (beta == cone) then - do i=1, n + else if (beta == cone) then + do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do end if @@ -1118,12 +1124,12 @@ contains subroutine c_base_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: y class(psb_c_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -1133,7 +1139,7 @@ contains if (x%is_dev()) call x%sync() if (.not.psb_c_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -1148,12 +1154,12 @@ contains subroutine c_base_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_vect_type), intent(inout) :: y class(psb_c_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1164,12 +1170,12 @@ contains subroutine c_base_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: y(:) class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1177,10 +1183,57 @@ contains call z%mlt(alpha,y,x,beta,info) end subroutine c_base_mlt_va + ! + !> Function base_div_v + !! \memberof psb_c_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine c_base_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info) + + + end subroutine c_base_div_v + ! + !> Function base_div_a2 + !! \memberof psb_c_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y + !! \param x(:) The array to be multiplied by + !! \param info return code + !! + subroutine c_base_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: z + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + z%v(i) = x(i)/y(i) + end do + + end subroutine c_base_div_a2 + ! - ! Simple scaling + ! Simple scaling ! !> Function base_scal !! \memberof psb_c_base_vect_type @@ -1189,17 +1242,17 @@ contains !! subroutine c_base_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x complex(psb_spk_), intent (in) :: alpha - - if (allocated(x%v)) then + + if (allocated(x%v)) then x%v = alpha*x%v call x%set_host() end if end subroutine c_base_scal - + ! ! Norms 1, 2 and infinity ! @@ -1208,28 +1261,28 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function c_base_nrm2(n,x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: scnrm2 - + if (x%is_dev()) call x%sync() res = scnrm2(n,x%v,1) end function c_base_nrm2 - + ! !> Function base_amax !! \memberof psb_c_base_vect_type !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function c_base_amax(n,x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - + if (x%is_dev()) call x%sync() res = maxval(abs(x%v(1:n))) @@ -1241,17 +1294,17 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function c_base_asum(n,x) result(res) - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - + if (x%is_dev()) call x%sync() res = sum(abs(x%v(1:n))) end function c_base_asum - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -1266,18 +1319,18 @@ contains !! \param beta subroutine c_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: alpha, beta, y(:) class(psb_c_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine c_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_c_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1286,28 +1339,28 @@ contains !! \param idx(:) indices subroutine c_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx complex(psb_spk_) :: y(:) class(psb_c_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine c_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine c_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_c_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1320,22 +1373,22 @@ contains !> Function base_device_wait: !! \memberof psb_c_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine c_base_device_wait() - implicit none - + implicit none + end subroutine c_base_device_wait function c_base_use_buffer() result(res) logical :: res - + res = .true. end function c_base_use_buffer subroutine c_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1345,7 +1398,7 @@ contains subroutine c_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1356,7 +1409,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_c_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1365,20 +1418,20 @@ contains !! \param idx(:) indices subroutine c_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: y(:) class(psb_c_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine c_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_c_base_vect_type @@ -1387,14 +1440,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine c_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:) class(psb_c_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -1403,12 +1456,12 @@ contains subroutine c_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex(psb_spk_) :: beta, x(:) class(psb_c_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -1417,14 +1470,14 @@ contains subroutine c_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex(psb_spk_) :: beta class(psb_c_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1449,22 +1502,22 @@ module psb_c_base_multivect_mod use psb_c_base_vect_mod !> \namespace psb_base_mod \class psb_c_base_vect_type - !! The psb_c_base_vect_type + !! The psb_c_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_c_base_multivect, psb_c_base_multivect_type type psb_c_base_multivect_type - !> Values. + !> Values. complex(psb_spk_), allocatable :: v(:,:) - complex(psb_spk_), allocatable :: combuf(:) + complex(psb_spk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1478,7 +1531,7 @@ module psb_c_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => c_base_mlv_ins procedure, pass(x) :: zero => c_base_mlv_zero @@ -1489,7 +1542,7 @@ module psb_c_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => c_base_mlv_sync procedure, pass(x) :: is_host => c_base_mlv_is_host @@ -1562,7 +1615,7 @@ module psb_c_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => c_base_mlv_gthab procedure, pass(x) :: gthzv => c_base_mlv_gthzv @@ -1584,7 +1637,7 @@ module psb_c_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1603,7 +1656,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1630,7 +1683,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1645,7 +1698,7 @@ contains !> Function bld_n: !! \memberof psb_c_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine c_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1662,13 +1715,13 @@ contains !! \memberof psb_c_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine c_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1686,7 +1739,7 @@ contains subroutine c_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x class(psb_c_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1700,21 +1753,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_c_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1724,7 +1777,7 @@ contains ! subroutine c_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1734,21 +1787,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1756,7 +1809,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1773,7 +1826,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1788,7 +1841,7 @@ contains ! subroutine c_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=czero @@ -1804,7 +1857,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_c_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1813,7 +1866,7 @@ contains subroutine c_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1830,20 +1883,20 @@ contains !> Function base_mlv_free: !! \memberof psb_c_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine c_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine c_base_mlv_free @@ -1853,15 +1906,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_c_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine c_base_mlv_sync(x) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x end subroutine c_base_mlv_sync @@ -1870,10 +1923,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_c_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine c_base_mlv_set_host(x) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x end subroutine c_base_mlv_set_host @@ -1882,10 +1935,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_c_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine c_base_mlv_set_dev(x) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x end subroutine c_base_mlv_set_dev @@ -1894,10 +1947,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_c_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine c_base_mlv_set_sync(x) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x end subroutine c_base_mlv_set_sync @@ -1906,10 +1959,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_c_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function c_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x logical :: res @@ -1920,10 +1973,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_c_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function c_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x logical :: res @@ -1934,10 +1987,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_c_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function c_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x logical :: res @@ -1946,16 +1999,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_c_base_multivect_type !! \brief Number of entries - !! + !! ! function c_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1965,7 +2018,7 @@ contains end function c_base_mlv_get_nrows function c_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1978,10 +2031,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_c_base_multivect_type !! \brief Size in bytesa - !! + !! ! function c_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1994,10 +2047,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_c_base_multivect_type !! \brief Format - !! + !! ! function c_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function c_base_mlv_get_fmt @@ -2010,18 +2063,18 @@ contains !! \memberof psb_c_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function c_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x complex(psb_spk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -2029,7 +2082,7 @@ contains end function c_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -2038,7 +2091,7 @@ contains !! \param val The value to set !! subroutine c_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val @@ -2051,16 +2104,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_c_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine c_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -2072,8 +2125,8 @@ contains end subroutine c_base_mlv_set_vect ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_mlv_dot_v !! \memberof psb_c_base_multivect_type @@ -2082,7 +2135,7 @@ contains !! \param y The other (base_mlv_vect) to be multiplied by !! function c_base_mlv_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_spk_), allocatable :: res(:) @@ -2094,7 +2147,7 @@ contains ! ! Note: this is the base implementation. ! When we get here, we are sure that X is of - ! TYPE psb_c_base_mlv_vect (or its class does not care). + ! TYPE psb_c_base_mlv_vect (or its class does not care). ! If Y is not, throw the burden on it, implicitly ! calling dot_a ! @@ -2123,7 +2176,7 @@ contains !! \param y(:) The array to be multiplied by !! function c_base_mlv_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n @@ -2141,7 +2194,7 @@ contains end function c_base_mlv_dot_a ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -2156,7 +2209,7 @@ contains !! subroutine c_base_mlv_axpby_v(m,alpha, x, beta, y, info, n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_c_base_multivect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: y @@ -2180,7 +2233,7 @@ contains end subroutine c_base_mlv_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_mlv_axpby_a @@ -2194,7 +2247,7 @@ contains !! subroutine c_base_mlv_axpby_a(m,alpha, x, beta, y, info,n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent(in) :: x(:,:) class(psb_c_base_multivect_type), intent(inout) :: y @@ -2230,10 +2283,10 @@ contains !! subroutine c_base_mlv_mlt_mv(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2243,10 +2296,10 @@ contains subroutine c_base_mlv_mlt_mv_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_c_base_vect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2263,7 +2316,7 @@ contains !! subroutine c_base_mlv_mlt_ar1(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: x(:) class(psb_c_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2271,7 +2324,7 @@ contains info = 0 n = min(psb_size(y%v,1_psb_ipk_), size(x)) - do i=1, n + do i=1, n y%v(i,:) = y%v(i,:)*x(i) end do @@ -2286,7 +2339,7 @@ contains !! subroutine c_base_mlv_mlt_ar2(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: x(:,:) class(psb_c_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2313,7 +2366,7 @@ contains !! subroutine c_base_mlv_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: y(:,:) complex(psb_spk_), intent(in) :: x(:,:) @@ -2321,38 +2374,38 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, nr, nc - info = 0 + info = 0 nr = min(psb_size(z%v,1_psb_ipk_), size(x,1), size(y,1)) - nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) - if (alpha == czero) then - if (beta == cone) then - return + nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) + if (alpha == czero) then + if (beta == cone) then + return else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) end if else - if (alpha == cone) then - if (beta == czero) then + if (alpha == cone) then + if (beta == czero) then z%v(1:nr,1:nc) = y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == cone) then + else if (beta == cone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) end if - else if (alpha == -cone) then - if (beta == czero) then + else if (alpha == -cone) then + if (beta == czero) then z%v(1:nr,1:nc) = -y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == cone) then + else if (beta == cone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) end if else - if (beta == czero) then + if (beta == czero) then z%v(1:nr,1:nc) = alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == cone) then + else if (beta == cone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) end if end if @@ -2373,12 +2426,12 @@ contains subroutine c_base_mlv_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta class(psb_c_base_multivect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: y class(psb_c_base_multivect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -2389,7 +2442,7 @@ contains if (z%is_dev()) call z%sync() if (.not.psb_c_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -2404,39 +2457,39 @@ contains !!$ !!$ subroutine c_base_mlv_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ complex(psb_spk_), intent(in) :: x(:) !!$ class(psb_c_base_multivect_type), intent(inout) :: y !!$ class(psb_c_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,x,y%v,beta,info) !!$ !!$ end subroutine c_base_mlv_mlt_av !!$ !!$ subroutine c_base_mlv_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ complex(psb_spk_), intent(in) :: y(:) !!$ class(psb_c_base_multivect_type), intent(inout) :: x !!$ class(psb_c_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,y,x,beta,info) !!$ !!$ end subroutine c_base_mlv_mlt_va !!$ !!$ ! - ! Simple scaling + ! Simple scaling ! !> Function base_mlv_scal !! \memberof psb_c_base_multivect_type @@ -2445,7 +2498,7 @@ contains !! subroutine c_base_mlv_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x complex(psb_spk_), intent (in) :: alpha @@ -2462,7 +2515,7 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function c_base_mlv_nrm2(n,x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2484,7 +2537,7 @@ contains !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function c_base_mlv_amax(n,x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2505,7 +2558,7 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function c_base_mlv_asum(n,x) result(res) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2528,7 +2581,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine c_base_mlv_absval1(x) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x if (allocated(x%v)) then @@ -2540,13 +2593,13 @@ contains end subroutine c_base_mlv_absval1 subroutine c_base_mlv_absval2(x,y) - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x class(psb_c_base_multivect_type), intent(inout) :: y integer(psb_ipk_) :: info - + if (x%is_dev()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(min(x%get_nrows(),y%get_nrows()),cone,x,czero,info) call y%absval() end if @@ -2555,15 +2608,15 @@ contains function c_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function c_base_mlv_use_buffer subroutine c_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2575,7 +2628,7 @@ contains subroutine c_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2586,12 +2639,12 @@ contains subroutine c_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -2599,7 +2652,7 @@ contains subroutine c_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2609,7 +2662,7 @@ contains subroutine c_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_c_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2632,7 +2685,7 @@ contains !! \param beta subroutine c_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: alpha, beta, y(:) class(psb_c_base_multivect_type) :: x @@ -2648,7 +2701,7 @@ contains end subroutine c_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_c_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2657,7 +2710,7 @@ contains !! \param idx(:) indices subroutine c_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx complex(psb_spk_) :: y(:) @@ -2670,7 +2723,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_c_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2679,7 +2732,7 @@ contains !! \param idx(:) indices subroutine c_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: y(:) class(psb_c_base_multivect_type) :: x @@ -2696,7 +2749,7 @@ contains end subroutine c_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_c_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2705,7 +2758,7 @@ contains !! \param idx(:) indices subroutine c_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: y(:,:) class(psb_c_base_multivect_type) :: x @@ -2722,17 +2775,17 @@ contains end subroutine c_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine c_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_c_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -2744,9 +2797,9 @@ contains end subroutine c_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_c_base_multivect_type @@ -2755,10 +2808,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine c_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:) class(psb_c_base_multivect_type) :: y @@ -2773,7 +2826,7 @@ contains subroutine c_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:,:) class(psb_c_base_multivect_type) :: y @@ -2788,7 +2841,7 @@ contains subroutine c_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex( psb_spk_) :: beta, x(:) @@ -2800,14 +2853,14 @@ contains subroutine c_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx complex(psb_spk_) :: beta class(psb_c_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -2816,19 +2869,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine c_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_c_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine c_base_mlv_device_wait() - implicit none - + implicit none + end subroutine c_base_mlv_device_wait end module psb_c_base_multivect_mod - diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index c7a9a0742..02965a3c3 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,15 +27,15 @@ ! 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. -! -! +! +! ! ! package: psb_c_vect_mod ! ! This module contains the definition of the psb_c_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_c_vect_mod @@ -43,7 +43,7 @@ module psb_c_vect_mod use psb_i_vect_mod type psb_c_vect_type - class(psb_c_base_vect_type), allocatable :: v + class(psb_c_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => c_vect_get_nrows procedure, pass(x) :: sizeof => c_vect_sizeof @@ -94,13 +94,16 @@ module psb_c_vect_mod procedure, pass(z) :: mlt_av => c_vect_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va + procedure, pass(x) :: div_v => c_vect_div_v + procedure, pass(z) :: div_a2 => c_vect_div_a2 + generic, public :: div => div_v, div_a2 procedure, pass(x) :: scal => c_vect_scal procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2 => c_vect_nrm2 procedure, pass(x) :: amax => c_vect_amax - procedure, pass(x) :: asum => c_vect_asum + procedure, pass(x) :: asum => c_vect_asum end type psb_c_vect_type public :: psb_c_vect @@ -122,7 +125,7 @@ module psb_c_vect_mod 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, & & c_vect_mlt_va, c_vect_mlt_av, c_vect_scal, c_vect_absval1, & - & c_vect_absval2, c_vect_nrm2, c_vect_amax, c_vect_asum + & c_vect_absval2, c_vect_nrm2, c_vect_amax, c_vect_asum @@ -141,11 +144,11 @@ module psb_c_vect_mod contains - subroutine psb_c_set_vect_default(v) - implicit none + subroutine psb_c_set_vect_default(v) + implicit none class(psb_c_base_vect_type), intent(in) :: v - if (allocated(psb_c_base_vect_default)) then + if (allocated(psb_c_base_vect_default)) then deallocate(psb_c_base_vect_default) end if allocate(psb_c_base_vect_default, mold=v) @@ -153,7 +156,7 @@ contains end subroutine psb_c_set_vect_default function psb_c_get_vect_default(v) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(in) :: v class(psb_c_base_vect_type), pointer :: res @@ -163,10 +166,10 @@ contains function psb_c_get_base_vect_default() result(res) - implicit none + implicit none class(psb_c_base_vect_type), pointer :: res - if (.not.allocated(psb_c_base_vect_default)) then + if (.not.allocated(psb_c_base_vect_default)) then allocate(psb_c_base_vect_type :: psb_c_base_vect_default) end if @@ -176,14 +179,14 @@ contains subroutine c_vect_clone(x,y,info) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine c_vect_clone @@ -198,7 +201,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_c_get_base_vect_default()) @@ -220,7 +223,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_c_get_base_vect_default()) @@ -241,7 +244,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_c_get_base_vect_default()) @@ -304,7 +307,7 @@ contains end function size_const function c_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -312,7 +315,7 @@ contains end function c_vect_get_nrows function c_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -320,7 +323,7 @@ contains end function c_vect_sizeof function c_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -329,7 +332,7 @@ contains subroutine c_vect_all(n, x, info, mold) - implicit none + 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 @@ -338,12 +341,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_c_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -353,12 +356,12 @@ contains subroutine c_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -368,7 +371,7 @@ contains subroutine c_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -378,7 +381,7 @@ contains subroutine c_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -424,12 +427,12 @@ contains subroutine c_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -438,7 +441,7 @@ contains subroutine c_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -448,7 +451,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -459,7 +462,7 @@ contains subroutine c_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -469,7 +472,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -487,12 +490,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_c_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -503,7 +506,7 @@ contains subroutine c_vect_sync(x) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -512,7 +515,7 @@ contains end subroutine c_vect_sync subroutine c_vect_set_sync(x) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -521,7 +524,7 @@ contains end subroutine c_vect_set_sync subroutine c_vect_set_host(x) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -530,7 +533,7 @@ contains end subroutine c_vect_set_host subroutine c_vect_set_dev(x) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -539,7 +542,7 @@ contains end subroutine c_vect_set_dev function c_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_c_vect_type), intent(inout) :: x @@ -550,7 +553,7 @@ contains end function c_vect_is_sync function c_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_c_vect_type), intent(inout) :: x @@ -561,11 +564,11 @@ contains end function c_vect_is_host function c_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_c_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -573,7 +576,7 @@ contains function c_vect_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_spk_) :: res @@ -585,7 +588,7 @@ contains end function c_vect_dot_v function c_vect_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n @@ -599,14 +602,14 @@ contains subroutine c_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y complex(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - if (allocated(x%v).and.allocated(y%v)) then + if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) else info = psb_err_invalid_vect_state_ @@ -616,7 +619,7 @@ contains subroutine c_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y @@ -631,10 +634,10 @@ contains subroutine c_vect_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -645,7 +648,7 @@ contains subroutine c_vect_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -661,7 +664,7 @@ contains subroutine c_vect_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: y(:) complex(psb_spk_), intent(in) :: x(:) @@ -669,7 +672,7 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (allocated(z%v)) & & call z%v%mlt(alpha,x,y,beta,info) @@ -677,12 +680,12 @@ contains subroutine c_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y class(psb_c_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n @@ -696,12 +699,12 @@ contains subroutine c_vect_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: x(:) class(psb_c_vect_type), intent(inout) :: y class(psb_c_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -712,12 +715,12 @@ contains subroutine c_vect_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_spk_), intent(in) :: alpha,beta complex(psb_spk_), intent(in) :: y(:) class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -727,9 +730,38 @@ contains end subroutine c_vect_mlt_va + subroutine c_vect_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info) + + end subroutine c_vect_div_v + + subroutine c_vect_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info) + + end subroutine c_vect_div_a2 + subroutine c_vect_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x complex(psb_spk_), intent (in) :: alpha @@ -749,19 +781,19 @@ contains class(psb_c_vect_type), intent(inout) :: x class(psb_c_vect_type), intent(inout) :: y - if (allocated(x%v)) then + if (allocated(x%v)) then if (.not.allocated(y%v)) call y%bld(psb_size(x%v%v)) call x%v%absval(y%v) end if end subroutine c_vect_absval2 function c_vect_nrm2(n,x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%nrm2(n) else res = szero @@ -770,12 +802,12 @@ contains end function c_vect_nrm2 function c_vect_amax(n,x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%amax(n) else res = szero @@ -784,12 +816,12 @@ contains end function c_vect_amax function c_vect_asum(n,x) result(res) - implicit none + implicit none class(psb_c_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%asum(n) else res = szero @@ -812,7 +844,7 @@ module psb_c_multivect_mod !private type psb_c_multivect_type - class(psb_c_base_multivect_type), allocatable :: v + class(psb_c_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => c_vect_get_nrows procedure, pass(x) :: get_ncols => c_vect_get_ncols @@ -886,11 +918,11 @@ module psb_c_multivect_mod contains - subroutine psb_c_set_multivect_default(v) - implicit none + subroutine psb_c_set_multivect_default(v) + implicit none class(psb_c_base_multivect_type), intent(in) :: v - if (allocated(psb_c_base_multivect_default)) then + if (allocated(psb_c_base_multivect_default)) then deallocate(psb_c_base_multivect_default) end if allocate(psb_c_base_multivect_default, mold=v) @@ -898,7 +930,7 @@ contains end subroutine psb_c_set_multivect_default function psb_c_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_c_multivect_type), intent(in) :: v class(psb_c_base_multivect_type), pointer :: res @@ -908,10 +940,10 @@ contains function psb_c_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_c_base_multivect_type), pointer :: res - if (.not.allocated(psb_c_base_multivect_default)) then + if (.not.allocated(psb_c_base_multivect_default)) then allocate(psb_c_base_multivect_type :: psb_c_base_multivect_default) end if @@ -921,14 +953,14 @@ contains subroutine c_vect_clone(x,y,info) - implicit none + implicit none class(psb_c_multivect_type), intent(inout) :: x class(psb_c_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine c_vect_clone @@ -941,7 +973,7 @@ contains class(psb_c_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_c_get_base_multivect_default()) @@ -959,7 +991,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_c_get_base_multivect_default()) @@ -1019,7 +1051,7 @@ contains end function size_const function c_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_c_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1027,7 +1059,7 @@ contains end function c_vect_get_nrows function c_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_c_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1035,7 +1067,7 @@ contains end function c_vect_get_ncols function c_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_c_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -1043,7 +1075,7 @@ contains end function c_vect_sizeof function c_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_c_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -1052,18 +1084,18 @@ contains subroutine c_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_multivect_type), intent(out) :: x class(psb_c_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_c_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -1073,12 +1105,12 @@ contains subroutine c_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -1088,7 +1120,7 @@ contains subroutine c_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_c_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -1098,7 +1130,7 @@ contains subroutine c_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1109,7 +1141,7 @@ contains end subroutine c_vect_asb subroutine c_vect_sync(x) - implicit none + implicit none class(psb_c_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -1177,12 +1209,12 @@ contains subroutine c_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -1191,7 +1223,7 @@ contains subroutine c_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_c_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1201,7 +1233,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -1217,12 +1249,12 @@ contains class(psb_c_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_c_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -1232,7 +1264,7 @@ contains !!$ function c_vect_dot_v(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x, y !!$ integer(psb_ipk_), intent(in) :: n !!$ complex(psb_spk_) :: res @@ -1244,28 +1276,28 @@ contains !!$ end function c_vect_dot_v !!$ !!$ function c_vect_dot_a(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ complex(psb_spk_), intent(in) :: y(:) !!$ integer(psb_ipk_), intent(in) :: n !!$ complex(psb_spk_) :: res -!!$ +!!$ !!$ res = czero !!$ if (allocated(x%v)) & !!$ & res = x%v%dot(n,y) -!!$ +!!$ !!$ end function c_vect_dot_a -!!$ +!!$ !!$ subroutine c_vect_axpby_v(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ class(psb_c_multivect_type), intent(inout) :: y !!$ complex(psb_spk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ -!!$ if (allocated(x%v).and.allocated(y%v)) then +!!$ +!!$ if (allocated(x%v).and.allocated(y%v)) then !!$ call y%v%axpby(m,alpha,x%v,beta,info) !!$ else !!$ info = psb_err_invalid_vect_state_ @@ -1275,25 +1307,25 @@ contains !!$ !!$ subroutine c_vect_axpby_a(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ complex(psb_spk_), intent(in) :: x(:) !!$ class(psb_c_multivect_type), intent(inout) :: y !!$ complex(psb_spk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ +!!$ !!$ if (allocated(y%v)) & !!$ & call y%v%axpby(m,alpha,x,beta,info) -!!$ +!!$ !!$ end subroutine c_vect_axpby_a !!$ -!!$ +!!$ !!$ subroutine c_vect_mlt_v(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ class(psb_c_multivect_type), intent(inout) :: y -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1304,7 +1336,7 @@ contains !!$ !!$ subroutine c_vect_mlt_a(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: x(:) !!$ class(psb_c_multivect_type), intent(inout) :: y !!$ integer(psb_ipk_), intent(out) :: info @@ -1314,13 +1346,13 @@ contains !!$ info = 0 !!$ if (allocated(y%v)) & !!$ & call y%v%mlt(x,info) -!!$ +!!$ !!$ end subroutine c_vect_mlt_a !!$ !!$ !!$ subroutine c_vect_mlt_a_2(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ complex(psb_spk_), intent(in) :: y(:) !!$ complex(psb_spk_), intent(in) :: x(:) @@ -1328,20 +1360,20 @@ contains !!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ -!!$ info = 0 +!!$ info = 0 !!$ if (allocated(z%v)) & !!$ & call z%v%mlt(alpha,x,y,beta,info) -!!$ +!!$ !!$ end subroutine c_vect_mlt_a_2 !!$ !!$ subroutine c_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ class(psb_c_multivect_type), intent(inout) :: y !!$ class(psb_c_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ character(len=1), intent(in), optional :: conjgx, conjgy !!$ !!$ integer(psb_ipk_) :: i, n @@ -1355,12 +1387,12 @@ contains !!$ !!$ subroutine c_vect_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ complex(psb_spk_), intent(in) :: x(:) !!$ class(psb_c_multivect_type), intent(inout) :: y !!$ class(psb_c_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1371,16 +1403,16 @@ contains !!$ !!$ subroutine c_vect_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_spk_), intent(in) :: alpha,beta !!$ complex(psb_spk_), intent(in) :: y(:) !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ class(psb_c_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ if (allocated(z%v).and.allocated(x%v)) & !!$ & call z%v%mlt(alpha,x%v,y,beta,info) !!$ @@ -1388,36 +1420,36 @@ contains !!$ !!$ subroutine c_vect_scal(alpha, x) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ complex(psb_spk_), intent (in) :: alpha -!!$ +!!$ !!$ if (allocated(x%v)) call x%v%scal(alpha) !!$ !!$ end subroutine c_vect_scal !!$ !!$ !!$ function c_vect_nrm2(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res -!!$ -!!$ if (allocated(x%v)) then +!!$ +!!$ if (allocated(x%v)) then !!$ res = x%v%nrm2(n) !!$ else !!$ res = szero !!$ end if !!$ !!$ end function c_vect_nrm2 -!!$ +!!$ !!$ function c_vect_amax(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%amax(n) !!$ else !!$ res = szero @@ -1426,12 +1458,12 @@ contains !!$ end function c_vect_amax !!$ !!$ function c_vect_asum(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_c_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%asum(n) !!$ else !!$ res = szero diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 8a59b5134..4d3bb1617 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_d_base_vect_mod ! ! This module contains the definition of the psb_d_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,7 +43,7 @@ ! ! module psb_d_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod @@ -51,9 +51,9 @@ module psb_d_base_vect_mod use psb_l_base_vect_mod !> \namespace psb_base_mod \class psb_d_base_vect_type - !! The psb_d_base_vect_type + !! The psb_d_base_vect_type !! defines a middle level real(psb_dpk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -61,9 +61,9 @@ module psb_d_base_vect_mod !! sparse matrix types. !! type psb_d_base_vect_type - !> Values. + !> Values. real(psb_dpk_), allocatable :: v(:) - real(psb_dpk_), allocatable :: combuf(:) + real(psb_dpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -78,7 +78,7 @@ module psb_d_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => d_base_ins_a procedure, pass(x) :: ins_v => d_base_ins_v @@ -93,7 +93,7 @@ module psb_d_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => d_base_sync procedure, pass(x) :: is_host => d_base_is_host @@ -130,7 +130,7 @@ module psb_d_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => d_base_gthab procedure, pass(x) :: gthzv => d_base_gthzv @@ -164,6 +164,12 @@ module psb_d_base_vect_mod procedure, pass(z) :: mlt_av => d_base_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va ! + ! Vector-Vector operations + ! + procedure, pass(x) :: div_v => d_base_div_v + procedure, pass(z) :: div_a2 => d_base_div_a2 + generic, public :: div => div_v, div_a2 + ! ! Scaling and norms ! procedure, pass(x) :: scal => d_base_scal @@ -183,11 +189,11 @@ module psb_d_base_vect_mod end interface psb_d_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -200,11 +206,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -214,7 +220,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -226,20 +232,20 @@ contains !! subroutine d_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: this(:) class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine d_base_bld_x - + ! ! Create with size, but no initialization ! @@ -247,11 +253,11 @@ contains !> Function bld_mn: !! \memberof psb_d_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine d_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -260,15 +266,15 @@ contains call x%asb(n,info) end subroutine d_base_bld_mn - + !> Function bld_en: !! \memberof psb_d_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine d_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -277,24 +283,24 @@ contains call x%asb(n,info) end subroutine d_base_bld_en - + !> Function base_all: !! \memberof psb_d_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine d_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_d_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine d_base_all !> Function base_mold: @@ -306,11 +312,11 @@ contains subroutine d_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x class(psb_d_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_d_base_vect_type :: y, stat=info) end subroutine d_base_mold @@ -320,21 +326,21 @@ contains ! !> Function base_ins: !! \memberof psb_d_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -344,7 +350,7 @@ contains ! subroutine d_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -354,21 +360,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -376,7 +382,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -394,7 +400,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -403,7 +409,7 @@ contains subroutine d_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -413,14 +419,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -436,14 +442,14 @@ contains ! subroutine d_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=dzero call x%set_host() end subroutine d_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -452,20 +458,20 @@ contains !> Function base_asb: !! \memberof psb_d_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine d_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -482,20 +488,20 @@ contains !> Function base_asb: !! \memberof psb_d_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine d_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -508,39 +514,39 @@ contains !> Function base_free: !! \memberof psb_d_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine d_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine d_base_free - + ! !> Function base_free_buffer: !! \memberof psb_d_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine d_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -555,17 +561,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine d_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -575,13 +581,13 @@ contains !> Function base_free_comid: !! \memberof psb_d_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine d_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -593,77 +599,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_d_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine d_base_sync(x) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x - + end subroutine d_base_sync ! !> Function base_set_host: !! \memberof psb_d_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine d_base_set_host(x) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x - + end subroutine d_base_set_host ! !> Function base_set_dev: !! \memberof psb_d_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine d_base_set_dev(x) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x - + end subroutine d_base_set_dev ! !> Function base_set_sync: !! \memberof psb_d_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine d_base_set_sync(x) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x - + end subroutine d_base_set_sync ! !> Function base_is_dev: !! \memberof psb_d_base_vect_type !! \brief Is vector on external device . - !! + !! ! function d_base_is_dev(x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function d_base_is_dev - + ! !> Function base_is_host !! \memberof psb_d_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function d_base_is_host(x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x logical :: res @@ -674,10 +680,10 @@ contains !> Function base_is_sync !! \memberof psb_d_base_vect_type !! \brief Is vector on sync . - !! + !! ! function d_base_is_sync(x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x logical :: res @@ -686,16 +692,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_d_base_vect_type !! \brief Number of entries - !! + !! ! function d_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -708,13 +714,13 @@ contains !> Function base_get_sizeof !! \memberof psb_d_base_vect_type !! \brief Size in bytes - !! + !! ! function d_base_sizeof(x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * psb_sizeof_dp) * x%get_nrows() @@ -724,14 +730,14 @@ contains !> Function base_get_fmt !! \memberof psb_d_base_vect_type !! \brief Format - !! + !! ! function d_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function d_base_get_fmt - + ! ! @@ -740,7 +746,7 @@ contains !! \memberof psb_d_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function d_base_get_vect(x,n) result(res) class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), allocatable :: res(:) @@ -748,21 +754,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function d_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -771,18 +777,18 @@ contains !! \param val The value to set !! subroutine d_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -794,14 +800,14 @@ contains !> Function base_set_vect !! \memberof psb_d_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine d_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -809,7 +815,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -829,7 +835,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine d_base_absval1(x) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x if (allocated(x%v)) then @@ -841,21 +847,21 @@ contains end subroutine d_base_absval1 subroutine d_base_absval2(x,y) - implicit none - class(psb_d_base_vect_type), intent(inout) :: x + implicit none + class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y integer(psb_ipk_) :: info if (.not.x%is_host()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(ione*min(x%get_nrows(),y%get_nrows()),done,x,dzero,info) call y%absval() end if - + end subroutine d_base_absval2 ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_dot_v !! \memberof psb_d_base_vect_type @@ -864,12 +870,12 @@ contains !! \param y The other (base_vect) to be multiplied by !! function d_base_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: ddot - + res = dzero ! ! Note: this is the base implementation. @@ -898,19 +904,19 @@ contains !! \param y(:) The array to be multiplied by !! function d_base_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: ddot - + res = ddot(n,y,1,x%v,1) end function d_base_dot_a - + ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -925,13 +931,13 @@ contains !! subroutine d_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (x%is_dev()) call x%sync() call y%axpby(m,alpha,x%v,beta,info) @@ -939,7 +945,7 @@ contains end subroutine d_base_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_axpby_a @@ -953,20 +959,20 @@ contains !! subroutine d_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (y%is_dev()) call y%sync() call psb_geaxpby(m,alpha,x,beta,y%v,info) call y%set_host() - + end subroutine d_base_axpby_a - + ! ! Multiple variants of two operations: ! Simple multiplication Y(:) = X(:)*Y(:) @@ -984,10 +990,10 @@ contains !! subroutine d_base_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1005,7 +1011,7 @@ contains !! subroutine d_base_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -1014,7 +1020,7 @@ contains info = 0 if (y%is_dev()) call y%sync() n = min(size(y%v), size(x)) - do i=1, n + do i=1, n y%v(i) = y%v(i)*x(i) end do call y%set_host() @@ -1035,7 +1041,7 @@ contains !! subroutine d_base_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: y(:) real(psb_dpk_), intent(in) :: x(:) @@ -1043,58 +1049,58 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (z%is_dev()) call z%sync() n = min(size(z%v), size(x), size(y)) - if (alpha == dzero) then - if (beta == done) then - return + if (alpha == dzero) then + if (beta == done) then + return else do i=1, n z%v(i) = beta*z%v(i) end do end if else - if (alpha == done) then - if (beta == dzero) then - do i=1, n + if (alpha == done) then + if (beta == dzero) then + do i=1, n z%v(i) = y(i)*x(i) end do - else if (beta == done) then - do i=1, n + else if (beta == done) then + do i=1, n z%v(i) = z%v(i) + y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do end if - else if (alpha == -done) then - if (beta == dzero) then - do i=1, n + else if (alpha == -done) then + if (beta == dzero) then + do i=1, n z%v(i) = -y(i)*x(i) end do - else if (beta == done) then - do i=1, n + else if (beta == done) then + do i=1, n z%v(i) = z%v(i) - y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else - if (beta == dzero) then - do i=1, n + if (beta == dzero) then + do i=1, n z%v(i) = alpha*y(i)*x(i) end do - else if (beta == done) then - do i=1, n + else if (beta == done) then + do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do end if @@ -1118,12 +1124,12 @@ contains subroutine d_base_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: y class(psb_d_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -1133,7 +1139,7 @@ contains if (x%is_dev()) call x%sync() if (.not.psb_d_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -1148,12 +1154,12 @@ contains subroutine d_base_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_vect_type), intent(inout) :: y class(psb_d_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1164,12 +1170,12 @@ contains subroutine d_base_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: y(:) class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1177,10 +1183,57 @@ contains call z%mlt(alpha,y,x,beta,info) end subroutine d_base_mlt_va + ! + !> Function base_div_v + !! \memberof psb_d_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine d_base_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info) + + + end subroutine d_base_div_v + ! + !> Function base_div_a2 + !! \memberof psb_d_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y + !! \param x(:) The array to be multiplied by + !! \param info return code + !! + subroutine d_base_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: z + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + z%v(i) = x(i)/y(i) + end do + + end subroutine d_base_div_a2 + ! - ! Simple scaling + ! Simple scaling ! !> Function base_scal !! \memberof psb_d_base_vect_type @@ -1189,17 +1242,17 @@ contains !! subroutine d_base_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x real(psb_dpk_), intent (in) :: alpha - - if (allocated(x%v)) then + + if (allocated(x%v)) then x%v = alpha*x%v call x%set_host() end if end subroutine d_base_scal - + ! ! Norms 1, 2 and infinity ! @@ -1208,28 +1261,28 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function d_base_nrm2(n,x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: dnrm2 - + if (x%is_dev()) call x%sync() res = dnrm2(n,x%v,1) end function d_base_nrm2 - + ! !> Function base_amax !! \memberof psb_d_base_vect_type !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function d_base_amax(n,x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - + if (x%is_dev()) call x%sync() res = maxval(abs(x%v(1:n))) @@ -1241,17 +1294,17 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function d_base_asum(n,x) result(res) - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - + if (x%is_dev()) call x%sync() res = sum(abs(x%v(1:n))) end function d_base_asum - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -1266,18 +1319,18 @@ contains !! \param beta subroutine d_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: alpha, beta, y(:) class(psb_d_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine d_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_d_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1286,28 +1339,28 @@ contains !! \param idx(:) indices subroutine d_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx real(psb_dpk_) :: y(:) class(psb_d_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine d_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine d_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_d_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1320,22 +1373,22 @@ contains !> Function base_device_wait: !! \memberof psb_d_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine d_base_device_wait() - implicit none - + implicit none + end subroutine d_base_device_wait function d_base_use_buffer() result(res) logical :: res - + res = .true. end function d_base_use_buffer subroutine d_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1345,7 +1398,7 @@ contains subroutine d_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1356,7 +1409,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_d_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1365,20 +1418,20 @@ contains !! \param idx(:) indices subroutine d_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: y(:) class(psb_d_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine d_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_d_base_vect_type @@ -1387,14 +1440,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine d_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:) class(psb_d_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -1403,12 +1456,12 @@ contains subroutine d_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real(psb_dpk_) :: beta, x(:) class(psb_d_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -1417,14 +1470,14 @@ contains subroutine d_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real(psb_dpk_) :: beta class(psb_d_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1449,22 +1502,22 @@ module psb_d_base_multivect_mod use psb_d_base_vect_mod !> \namespace psb_base_mod \class psb_d_base_vect_type - !! The psb_d_base_vect_type + !! The psb_d_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_d_base_multivect, psb_d_base_multivect_type type psb_d_base_multivect_type - !> Values. + !> Values. real(psb_dpk_), allocatable :: v(:,:) - real(psb_dpk_), allocatable :: combuf(:) + real(psb_dpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1478,7 +1531,7 @@ module psb_d_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => d_base_mlv_ins procedure, pass(x) :: zero => d_base_mlv_zero @@ -1489,7 +1542,7 @@ module psb_d_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => d_base_mlv_sync procedure, pass(x) :: is_host => d_base_mlv_is_host @@ -1562,7 +1615,7 @@ module psb_d_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => d_base_mlv_gthab procedure, pass(x) :: gthzv => d_base_mlv_gthzv @@ -1584,7 +1637,7 @@ module psb_d_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1603,7 +1656,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1630,7 +1683,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1645,7 +1698,7 @@ contains !> Function bld_n: !! \memberof psb_d_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine d_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1662,13 +1715,13 @@ contains !! \memberof psb_d_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine d_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1686,7 +1739,7 @@ contains subroutine d_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x class(psb_d_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1700,21 +1753,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_d_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1724,7 +1777,7 @@ contains ! subroutine d_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1734,21 +1787,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1756,7 +1809,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1773,7 +1826,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1788,7 +1841,7 @@ contains ! subroutine d_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=dzero @@ -1804,7 +1857,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_d_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1813,7 +1866,7 @@ contains subroutine d_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1830,20 +1883,20 @@ contains !> Function base_mlv_free: !! \memberof psb_d_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine d_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine d_base_mlv_free @@ -1853,15 +1906,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_d_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine d_base_mlv_sync(x) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x end subroutine d_base_mlv_sync @@ -1870,10 +1923,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_d_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine d_base_mlv_set_host(x) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x end subroutine d_base_mlv_set_host @@ -1882,10 +1935,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_d_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine d_base_mlv_set_dev(x) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x end subroutine d_base_mlv_set_dev @@ -1894,10 +1947,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_d_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine d_base_mlv_set_sync(x) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x end subroutine d_base_mlv_set_sync @@ -1906,10 +1959,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_d_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function d_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x logical :: res @@ -1920,10 +1973,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_d_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function d_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x logical :: res @@ -1934,10 +1987,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_d_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function d_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x logical :: res @@ -1946,16 +1999,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_d_base_multivect_type !! \brief Number of entries - !! + !! ! function d_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1965,7 +2018,7 @@ contains end function d_base_mlv_get_nrows function d_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1978,10 +2031,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_d_base_multivect_type !! \brief Size in bytesa - !! + !! ! function d_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1994,10 +2047,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_d_base_multivect_type !! \brief Format - !! + !! ! function d_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function d_base_mlv_get_fmt @@ -2010,18 +2063,18 @@ contains !! \memberof psb_d_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function d_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x real(psb_dpk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -2029,7 +2082,7 @@ contains end function d_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -2038,7 +2091,7 @@ contains !! \param val The value to set !! subroutine d_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val @@ -2051,16 +2104,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_d_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine d_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -2072,8 +2125,8 @@ contains end subroutine d_base_mlv_set_vect ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_mlv_dot_v !! \memberof psb_d_base_multivect_type @@ -2082,7 +2135,7 @@ contains !! \param y The other (base_mlv_vect) to be multiplied by !! function d_base_mlv_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2094,7 +2147,7 @@ contains ! ! Note: this is the base implementation. ! When we get here, we are sure that X is of - ! TYPE psb_d_base_mlv_vect (or its class does not care). + ! TYPE psb_d_base_mlv_vect (or its class does not care). ! If Y is not, throw the burden on it, implicitly ! calling dot_a ! @@ -2123,7 +2176,7 @@ contains !! \param y(:) The array to be multiplied by !! function d_base_mlv_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n @@ -2141,7 +2194,7 @@ contains end function d_base_mlv_dot_a ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -2156,7 +2209,7 @@ contains !! subroutine d_base_mlv_axpby_v(m,alpha, x, beta, y, info, n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_d_base_multivect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: y @@ -2180,7 +2233,7 @@ contains end subroutine d_base_mlv_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_mlv_axpby_a @@ -2194,7 +2247,7 @@ contains !! subroutine d_base_mlv_axpby_a(m,alpha, x, beta, y, info,n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent(in) :: x(:,:) class(psb_d_base_multivect_type), intent(inout) :: y @@ -2230,10 +2283,10 @@ contains !! subroutine d_base_mlv_mlt_mv(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2243,10 +2296,10 @@ contains subroutine d_base_mlv_mlt_mv_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_d_base_vect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2263,7 +2316,7 @@ contains !! subroutine d_base_mlv_mlt_ar1(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: x(:) class(psb_d_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2271,7 +2324,7 @@ contains info = 0 n = min(psb_size(y%v,1_psb_ipk_), size(x)) - do i=1, n + do i=1, n y%v(i,:) = y%v(i,:)*x(i) end do @@ -2286,7 +2339,7 @@ contains !! subroutine d_base_mlv_mlt_ar2(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: x(:,:) class(psb_d_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2313,7 +2366,7 @@ contains !! subroutine d_base_mlv_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: y(:,:) real(psb_dpk_), intent(in) :: x(:,:) @@ -2321,38 +2374,38 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, nr, nc - info = 0 + info = 0 nr = min(psb_size(z%v,1_psb_ipk_), size(x,1), size(y,1)) - nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) - if (alpha == dzero) then - if (beta == done) then - return + nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) + if (alpha == dzero) then + if (beta == done) then + return else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) end if else - if (alpha == done) then - if (beta == dzero) then + if (alpha == done) then + if (beta == dzero) then z%v(1:nr,1:nc) = y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == done) then + else if (beta == done) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) end if - else if (alpha == -done) then - if (beta == dzero) then + else if (alpha == -done) then + if (beta == dzero) then z%v(1:nr,1:nc) = -y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == done) then + else if (beta == done) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) end if else - if (beta == dzero) then + if (beta == dzero) then z%v(1:nr,1:nc) = alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == done) then + else if (beta == done) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) end if end if @@ -2373,12 +2426,12 @@ contains subroutine d_base_mlv_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta class(psb_d_base_multivect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: y class(psb_d_base_multivect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -2389,7 +2442,7 @@ contains if (z%is_dev()) call z%sync() if (.not.psb_d_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -2404,39 +2457,39 @@ contains !!$ !!$ subroutine d_base_mlv_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ real(psb_dpk_), intent(in) :: x(:) !!$ class(psb_d_base_multivect_type), intent(inout) :: y !!$ class(psb_d_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,x,y%v,beta,info) !!$ !!$ end subroutine d_base_mlv_mlt_av !!$ !!$ subroutine d_base_mlv_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ real(psb_dpk_), intent(in) :: y(:) !!$ class(psb_d_base_multivect_type), intent(inout) :: x !!$ class(psb_d_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,y,x,beta,info) !!$ !!$ end subroutine d_base_mlv_mlt_va !!$ !!$ ! - ! Simple scaling + ! Simple scaling ! !> Function base_mlv_scal !! \memberof psb_d_base_multivect_type @@ -2445,7 +2498,7 @@ contains !! subroutine d_base_mlv_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x real(psb_dpk_), intent (in) :: alpha @@ -2462,7 +2515,7 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function d_base_mlv_nrm2(n,x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2484,7 +2537,7 @@ contains !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function d_base_mlv_amax(n,x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2505,7 +2558,7 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function d_base_mlv_asum(n,x) result(res) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2528,7 +2581,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine d_base_mlv_absval1(x) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x if (allocated(x%v)) then @@ -2540,13 +2593,13 @@ contains end subroutine d_base_mlv_absval1 subroutine d_base_mlv_absval2(x,y) - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x class(psb_d_base_multivect_type), intent(inout) :: y integer(psb_ipk_) :: info - + if (x%is_dev()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(min(x%get_nrows(),y%get_nrows()),done,x,dzero,info) call y%absval() end if @@ -2555,15 +2608,15 @@ contains function d_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function d_base_mlv_use_buffer subroutine d_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2575,7 +2628,7 @@ contains subroutine d_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2586,12 +2639,12 @@ contains subroutine d_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -2599,7 +2652,7 @@ contains subroutine d_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2609,7 +2662,7 @@ contains subroutine d_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_d_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2632,7 +2685,7 @@ contains !! \param beta subroutine d_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: alpha, beta, y(:) class(psb_d_base_multivect_type) :: x @@ -2648,7 +2701,7 @@ contains end subroutine d_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_d_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2657,7 +2710,7 @@ contains !! \param idx(:) indices subroutine d_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx real(psb_dpk_) :: y(:) @@ -2670,7 +2723,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_d_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2679,7 +2732,7 @@ contains !! \param idx(:) indices subroutine d_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: y(:) class(psb_d_base_multivect_type) :: x @@ -2696,7 +2749,7 @@ contains end subroutine d_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_d_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2705,7 +2758,7 @@ contains !! \param idx(:) indices subroutine d_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: y(:,:) class(psb_d_base_multivect_type) :: x @@ -2722,17 +2775,17 @@ contains end subroutine d_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine d_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_d_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -2744,9 +2797,9 @@ contains end subroutine d_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_d_base_multivect_type @@ -2755,10 +2808,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine d_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:) class(psb_d_base_multivect_type) :: y @@ -2773,7 +2826,7 @@ contains subroutine d_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:,:) class(psb_d_base_multivect_type) :: y @@ -2788,7 +2841,7 @@ contains subroutine d_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real( psb_dpk_) :: beta, x(:) @@ -2800,14 +2853,14 @@ contains subroutine d_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx real(psb_dpk_) :: beta class(psb_d_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -2816,19 +2869,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine d_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_d_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine d_base_mlv_device_wait() - implicit none - + implicit none + end subroutine d_base_mlv_device_wait end module psb_d_base_multivect_mod - diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index f6244e3ef..469cb56df 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,15 +27,15 @@ ! 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. -! -! +! +! ! ! package: psb_d_vect_mod ! ! This module contains the definition of the psb_d_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_d_vect_mod @@ -43,7 +43,7 @@ module psb_d_vect_mod use psb_i_vect_mod type psb_d_vect_type - class(psb_d_base_vect_type), allocatable :: v + class(psb_d_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => d_vect_get_nrows procedure, pass(x) :: sizeof => d_vect_sizeof @@ -94,13 +94,16 @@ module psb_d_vect_mod procedure, pass(z) :: mlt_av => d_vect_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va + procedure, pass(x) :: div_v => d_vect_div_v + procedure, pass(z) :: div_a2 => d_vect_div_a2 + generic, public :: div => div_v, div_a2 procedure, pass(x) :: scal => d_vect_scal procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2 => d_vect_nrm2 procedure, pass(x) :: amax => d_vect_amax - procedure, pass(x) :: asum => d_vect_asum + procedure, pass(x) :: asum => d_vect_asum end type psb_d_vect_type public :: psb_d_vect @@ -122,7 +125,7 @@ module psb_d_vect_mod 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, & & d_vect_mlt_va, d_vect_mlt_av, d_vect_scal, d_vect_absval1, & - & d_vect_absval2, d_vect_nrm2, d_vect_amax, d_vect_asum + & d_vect_absval2, d_vect_nrm2, d_vect_amax, d_vect_asum @@ -141,11 +144,11 @@ module psb_d_vect_mod contains - subroutine psb_d_set_vect_default(v) - implicit none + subroutine psb_d_set_vect_default(v) + implicit none class(psb_d_base_vect_type), intent(in) :: v - if (allocated(psb_d_base_vect_default)) then + if (allocated(psb_d_base_vect_default)) then deallocate(psb_d_base_vect_default) end if allocate(psb_d_base_vect_default, mold=v) @@ -153,7 +156,7 @@ contains end subroutine psb_d_set_vect_default function psb_d_get_vect_default(v) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(in) :: v class(psb_d_base_vect_type), pointer :: res @@ -163,10 +166,10 @@ contains function psb_d_get_base_vect_default() result(res) - implicit none + implicit none class(psb_d_base_vect_type), pointer :: res - if (.not.allocated(psb_d_base_vect_default)) then + if (.not.allocated(psb_d_base_vect_default)) then allocate(psb_d_base_vect_type :: psb_d_base_vect_default) end if @@ -176,14 +179,14 @@ contains subroutine d_vect_clone(x,y,info) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine d_vect_clone @@ -198,7 +201,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_d_get_base_vect_default()) @@ -220,7 +223,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_d_get_base_vect_default()) @@ -241,7 +244,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_d_get_base_vect_default()) @@ -304,7 +307,7 @@ contains end function size_const function d_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -312,7 +315,7 @@ contains end function d_vect_get_nrows function d_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -320,7 +323,7 @@ contains end function d_vect_sizeof function d_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -329,7 +332,7 @@ contains subroutine d_vect_all(n, x, info, mold) - implicit none + 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 @@ -338,12 +341,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_d_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -353,12 +356,12 @@ contains subroutine d_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -368,7 +371,7 @@ contains subroutine d_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -378,7 +381,7 @@ contains subroutine d_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -424,12 +427,12 @@ contains subroutine d_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -438,7 +441,7 @@ contains subroutine d_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -448,7 +451,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -459,7 +462,7 @@ contains subroutine d_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -469,7 +472,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -487,12 +490,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_d_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -503,7 +506,7 @@ contains subroutine d_vect_sync(x) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -512,7 +515,7 @@ contains end subroutine d_vect_sync subroutine d_vect_set_sync(x) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -521,7 +524,7 @@ contains end subroutine d_vect_set_sync subroutine d_vect_set_host(x) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -530,7 +533,7 @@ contains end subroutine d_vect_set_host subroutine d_vect_set_dev(x) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -539,7 +542,7 @@ contains end subroutine d_vect_set_dev function d_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_d_vect_type), intent(inout) :: x @@ -550,7 +553,7 @@ contains end function d_vect_is_sync function d_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_d_vect_type), intent(inout) :: x @@ -561,11 +564,11 @@ contains end function d_vect_is_host function d_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_d_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -573,7 +576,7 @@ contains function d_vect_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res @@ -585,7 +588,7 @@ contains end function d_vect_dot_v function d_vect_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n @@ -599,14 +602,14 @@ contains subroutine d_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y real(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - if (allocated(x%v).and.allocated(y%v)) then + if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) else info = psb_err_invalid_vect_state_ @@ -616,7 +619,7 @@ contains subroutine d_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y @@ -631,10 +634,10 @@ contains subroutine d_vect_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -645,7 +648,7 @@ contains subroutine d_vect_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -661,7 +664,7 @@ contains subroutine d_vect_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: y(:) real(psb_dpk_), intent(in) :: x(:) @@ -669,7 +672,7 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (allocated(z%v)) & & call z%v%mlt(alpha,x,y,beta,info) @@ -677,12 +680,12 @@ contains subroutine d_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y class(psb_d_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n @@ -696,12 +699,12 @@ contains subroutine d_vect_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: x(:) class(psb_d_vect_type), intent(inout) :: y class(psb_d_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -712,12 +715,12 @@ contains subroutine d_vect_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_dpk_), intent(in) :: alpha,beta real(psb_dpk_), intent(in) :: y(:) class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -727,9 +730,38 @@ contains end subroutine d_vect_mlt_va + subroutine d_vect_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info) + + end subroutine d_vect_div_v + + subroutine d_vect_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info) + + end subroutine d_vect_div_a2 + subroutine d_vect_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x real(psb_dpk_), intent (in) :: alpha @@ -749,19 +781,19 @@ contains class(psb_d_vect_type), intent(inout) :: x class(psb_d_vect_type), intent(inout) :: y - if (allocated(x%v)) then + if (allocated(x%v)) then if (.not.allocated(y%v)) call y%bld(psb_size(x%v%v)) call x%v%absval(y%v) end if end subroutine d_vect_absval2 function d_vect_nrm2(n,x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%nrm2(n) else res = dzero @@ -770,12 +802,12 @@ contains end function d_vect_nrm2 function d_vect_amax(n,x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%amax(n) else res = dzero @@ -784,12 +816,12 @@ contains end function d_vect_amax function d_vect_asum(n,x) result(res) - implicit none + implicit none class(psb_d_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%asum(n) else res = dzero @@ -812,7 +844,7 @@ module psb_d_multivect_mod !private type psb_d_multivect_type - class(psb_d_base_multivect_type), allocatable :: v + class(psb_d_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => d_vect_get_nrows procedure, pass(x) :: get_ncols => d_vect_get_ncols @@ -886,11 +918,11 @@ module psb_d_multivect_mod contains - subroutine psb_d_set_multivect_default(v) - implicit none + subroutine psb_d_set_multivect_default(v) + implicit none class(psb_d_base_multivect_type), intent(in) :: v - if (allocated(psb_d_base_multivect_default)) then + if (allocated(psb_d_base_multivect_default)) then deallocate(psb_d_base_multivect_default) end if allocate(psb_d_base_multivect_default, mold=v) @@ -898,7 +930,7 @@ contains end subroutine psb_d_set_multivect_default function psb_d_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_d_multivect_type), intent(in) :: v class(psb_d_base_multivect_type), pointer :: res @@ -908,10 +940,10 @@ contains function psb_d_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_d_base_multivect_type), pointer :: res - if (.not.allocated(psb_d_base_multivect_default)) then + if (.not.allocated(psb_d_base_multivect_default)) then allocate(psb_d_base_multivect_type :: psb_d_base_multivect_default) end if @@ -921,14 +953,14 @@ contains subroutine d_vect_clone(x,y,info) - implicit none + implicit none class(psb_d_multivect_type), intent(inout) :: x class(psb_d_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine d_vect_clone @@ -941,7 +973,7 @@ contains class(psb_d_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_d_get_base_multivect_default()) @@ -959,7 +991,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_d_get_base_multivect_default()) @@ -1019,7 +1051,7 @@ contains end function size_const function d_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_d_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1027,7 +1059,7 @@ contains end function d_vect_get_nrows function d_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_d_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1035,7 +1067,7 @@ contains end function d_vect_get_ncols function d_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_d_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -1043,7 +1075,7 @@ contains end function d_vect_sizeof function d_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_d_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -1052,18 +1084,18 @@ contains subroutine d_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_multivect_type), intent(out) :: x class(psb_d_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_d_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -1073,12 +1105,12 @@ contains subroutine d_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -1088,7 +1120,7 @@ contains subroutine d_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_d_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -1098,7 +1130,7 @@ contains subroutine d_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1109,7 +1141,7 @@ contains end subroutine d_vect_asb subroutine d_vect_sync(x) - implicit none + implicit none class(psb_d_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -1177,12 +1209,12 @@ contains subroutine d_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -1191,7 +1223,7 @@ contains subroutine d_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_d_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1201,7 +1233,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -1217,12 +1249,12 @@ contains class(psb_d_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_d_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -1232,7 +1264,7 @@ contains !!$ function d_vect_dot_v(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x, y !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res @@ -1244,28 +1276,28 @@ contains !!$ end function d_vect_dot_v !!$ !!$ function d_vect_dot_a(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ real(psb_dpk_), intent(in) :: y(:) !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res -!!$ +!!$ !!$ res = dzero !!$ if (allocated(x%v)) & !!$ & res = x%v%dot(n,y) -!!$ +!!$ !!$ end function d_vect_dot_a -!!$ +!!$ !!$ subroutine d_vect_axpby_v(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ class(psb_d_multivect_type), intent(inout) :: y !!$ real(psb_dpk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ -!!$ if (allocated(x%v).and.allocated(y%v)) then +!!$ +!!$ if (allocated(x%v).and.allocated(y%v)) then !!$ call y%v%axpby(m,alpha,x%v,beta,info) !!$ else !!$ info = psb_err_invalid_vect_state_ @@ -1275,25 +1307,25 @@ contains !!$ !!$ subroutine d_vect_axpby_a(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ real(psb_dpk_), intent(in) :: x(:) !!$ class(psb_d_multivect_type), intent(inout) :: y !!$ real(psb_dpk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ +!!$ !!$ if (allocated(y%v)) & !!$ & call y%v%axpby(m,alpha,x,beta,info) -!!$ +!!$ !!$ end subroutine d_vect_axpby_a !!$ -!!$ +!!$ !!$ subroutine d_vect_mlt_v(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ class(psb_d_multivect_type), intent(inout) :: y -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1304,7 +1336,7 @@ contains !!$ !!$ subroutine d_vect_mlt_a(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: x(:) !!$ class(psb_d_multivect_type), intent(inout) :: y !!$ integer(psb_ipk_), intent(out) :: info @@ -1314,13 +1346,13 @@ contains !!$ info = 0 !!$ if (allocated(y%v)) & !!$ & call y%v%mlt(x,info) -!!$ +!!$ !!$ end subroutine d_vect_mlt_a !!$ !!$ !!$ subroutine d_vect_mlt_a_2(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ real(psb_dpk_), intent(in) :: y(:) !!$ real(psb_dpk_), intent(in) :: x(:) @@ -1328,20 +1360,20 @@ contains !!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ -!!$ info = 0 +!!$ info = 0 !!$ if (allocated(z%v)) & !!$ & call z%v%mlt(alpha,x,y,beta,info) -!!$ +!!$ !!$ end subroutine d_vect_mlt_a_2 !!$ !!$ subroutine d_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ class(psb_d_multivect_type), intent(inout) :: y !!$ class(psb_d_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ character(len=1), intent(in), optional :: conjgx, conjgy !!$ !!$ integer(psb_ipk_) :: i, n @@ -1355,12 +1387,12 @@ contains !!$ !!$ subroutine d_vect_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ real(psb_dpk_), intent(in) :: x(:) !!$ class(psb_d_multivect_type), intent(inout) :: y !!$ class(psb_d_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1371,16 +1403,16 @@ contains !!$ !!$ subroutine d_vect_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_dpk_), intent(in) :: alpha,beta !!$ real(psb_dpk_), intent(in) :: y(:) !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ class(psb_d_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ if (allocated(z%v).and.allocated(x%v)) & !!$ & call z%v%mlt(alpha,x%v,y,beta,info) !!$ @@ -1388,36 +1420,36 @@ contains !!$ !!$ subroutine d_vect_scal(alpha, x) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ real(psb_dpk_), intent (in) :: alpha -!!$ +!!$ !!$ if (allocated(x%v)) call x%v%scal(alpha) !!$ !!$ end subroutine d_vect_scal !!$ !!$ !!$ function d_vect_nrm2(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res -!!$ -!!$ if (allocated(x%v)) then +!!$ +!!$ if (allocated(x%v)) then !!$ res = x%v%nrm2(n) !!$ else !!$ res = dzero !!$ end if !!$ !!$ end function d_vect_nrm2 -!!$ +!!$ !!$ function d_vect_amax(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%amax(n) !!$ else !!$ res = dzero @@ -1426,12 +1458,12 @@ contains !!$ end function d_vect_amax !!$ !!$ function d_vect_asum(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_d_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%asum(n) !!$ else !!$ res = dzero diff --git a/base/modules/serial/psb_i_base_vect_mod.f90 b/base/modules/serial/psb_i_base_vect_mod.f90 index c18909312..06871cb49 100644 --- a/base/modules/serial/psb_i_base_vect_mod.f90 +++ b/base/modules/serial/psb_i_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_i_base_vect_mod ! ! This module contains the definition of the psb_i_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,15 +43,15 @@ ! ! module psb_i_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod !> \namespace psb_base_mod \class psb_i_base_vect_type - !! The psb_i_base_vect_type + !! The psb_i_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -59,9 +59,9 @@ module psb_i_base_vect_mod !! sparse matrix types. !! type psb_i_base_vect_type - !> Values. + !> Values. integer(psb_ipk_), allocatable :: v(:) - integer(psb_ipk_), allocatable :: combuf(:) + integer(psb_ipk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -76,7 +76,7 @@ module psb_i_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => i_base_ins_a procedure, pass(x) :: ins_v => i_base_ins_v @@ -91,7 +91,7 @@ module psb_i_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => i_base_sync procedure, pass(x) :: is_host => i_base_is_host @@ -128,7 +128,7 @@ module psb_i_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => i_base_gthab procedure, pass(x) :: gthzv => i_base_gthzv @@ -151,11 +151,11 @@ module psb_i_base_vect_mod end interface psb_i_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -168,11 +168,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -182,7 +182,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -194,20 +194,20 @@ contains !! subroutine i_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: this(:) class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine i_base_bld_x - + ! ! Create with size, but no initialization ! @@ -215,11 +215,11 @@ contains !> Function bld_mn: !! \memberof psb_i_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine i_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -228,15 +228,15 @@ contains call x%asb(n,info) end subroutine i_base_bld_mn - + !> Function bld_en: !! \memberof psb_i_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine i_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -245,24 +245,24 @@ contains call x%asb(n,info) end subroutine i_base_bld_en - + !> Function base_all: !! \memberof psb_i_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine i_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_i_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine i_base_all !> Function base_mold: @@ -274,11 +274,11 @@ contains subroutine i_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x class(psb_i_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_i_base_vect_type :: y, stat=info) end subroutine i_base_mold @@ -288,21 +288,21 @@ contains ! !> Function base_ins: !! \memberof psb_i_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -312,7 +312,7 @@ contains ! subroutine i_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -322,21 +322,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -344,7 +344,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -362,7 +362,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -371,7 +371,7 @@ contains subroutine i_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -381,14 +381,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -404,14 +404,14 @@ contains ! subroutine i_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=izero call x%set_host() end subroutine i_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -420,20 +420,20 @@ contains !> Function base_asb: !! \memberof psb_i_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine i_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -450,20 +450,20 @@ contains !> Function base_asb: !! \memberof psb_i_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine i_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -476,39 +476,39 @@ contains !> Function base_free: !! \memberof psb_i_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine i_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine i_base_free - + ! !> Function base_free_buffer: !! \memberof psb_i_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine i_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -523,17 +523,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine i_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -543,13 +543,13 @@ contains !> Function base_free_comid: !! \memberof psb_i_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine i_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -561,77 +561,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_i_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine i_base_sync(x) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x - + end subroutine i_base_sync ! !> Function base_set_host: !! \memberof psb_i_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine i_base_set_host(x) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x - + end subroutine i_base_set_host ! !> Function base_set_dev: !! \memberof psb_i_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine i_base_set_dev(x) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x - + end subroutine i_base_set_dev ! !> Function base_set_sync: !! \memberof psb_i_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine i_base_set_sync(x) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x - + end subroutine i_base_set_sync ! !> Function base_is_dev: !! \memberof psb_i_base_vect_type !! \brief Is vector on external device . - !! + !! ! function i_base_is_dev(x) result(res) - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function i_base_is_dev - + ! !> Function base_is_host !! \memberof psb_i_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function i_base_is_host(x) result(res) - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x logical :: res @@ -642,10 +642,10 @@ contains !> Function base_is_sync !! \memberof psb_i_base_vect_type !! \brief Is vector on sync . - !! + !! ! function i_base_is_sync(x) result(res) - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x logical :: res @@ -654,16 +654,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_i_base_vect_type !! \brief Number of entries - !! + !! ! function i_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -676,13 +676,13 @@ contains !> Function base_get_sizeof !! \memberof psb_i_base_vect_type !! \brief Size in bytes - !! + !! ! function i_base_sizeof(x) result(res) - implicit none + implicit none class(psb_i_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * psb_sizeof_ip) * x%get_nrows() @@ -692,14 +692,14 @@ contains !> Function base_get_fmt !! \memberof psb_i_base_vect_type !! \brief Format - !! + !! ! function i_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function i_base_get_fmt - + ! ! @@ -708,7 +708,7 @@ contains !! \memberof psb_i_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function i_base_get_vect(x,n) result(res) class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), allocatable :: res(:) @@ -716,21 +716,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function i_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -739,18 +739,18 @@ contains !! \param val The value to set !! subroutine i_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -762,14 +762,14 @@ contains !> Function base_set_vect !! \memberof psb_i_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine i_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -777,7 +777,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -788,8 +788,8 @@ contains end subroutine i_base_set_vect - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -804,18 +804,18 @@ contains !! \param beta subroutine i_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: alpha, beta, y(:) class(psb_i_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine i_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_i_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -824,28 +824,28 @@ contains !! \param idx(:) indices subroutine i_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx integer(psb_ipk_) :: y(:) class(psb_i_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine i_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine i_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_i_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -858,22 +858,22 @@ contains !> Function base_device_wait: !! \memberof psb_i_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine i_base_device_wait() - implicit none - + implicit none + end subroutine i_base_device_wait function i_base_use_buffer() result(res) logical :: res - + res = .true. end function i_base_use_buffer subroutine i_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -883,7 +883,7 @@ contains subroutine i_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -894,7 +894,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_i_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -903,20 +903,20 @@ contains !! \param idx(:) indices subroutine i_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: y(:) class(psb_i_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine i_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_i_base_vect_type @@ -925,14 +925,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine i_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: beta, x(:) class(psb_i_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -941,12 +941,12 @@ contains subroutine i_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer(psb_ipk_) :: beta, x(:) class(psb_i_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -955,14 +955,14 @@ contains subroutine i_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer(psb_ipk_) :: beta class(psb_i_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -987,22 +987,22 @@ module psb_i_base_multivect_mod use psb_i_base_vect_mod !> \namespace psb_base_mod \class psb_i_base_vect_type - !! The psb_i_base_vect_type + !! The psb_i_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_i_base_multivect, psb_i_base_multivect_type type psb_i_base_multivect_type - !> Values. + !> Values. integer(psb_ipk_), allocatable :: v(:,:) - integer(psb_ipk_), allocatable :: combuf(:) + integer(psb_ipk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1016,7 +1016,7 @@ module psb_i_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => i_base_mlv_ins procedure, pass(x) :: zero => i_base_mlv_zero @@ -1027,7 +1027,7 @@ module psb_i_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => i_base_mlv_sync procedure, pass(x) :: is_host => i_base_mlv_is_host @@ -1067,7 +1067,7 @@ module psb_i_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => i_base_mlv_gthab procedure, pass(x) :: gthzv => i_base_mlv_gthzv @@ -1089,7 +1089,7 @@ module psb_i_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1108,7 +1108,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1135,7 +1135,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1150,7 +1150,7 @@ contains !> Function bld_n: !! \memberof psb_i_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine i_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1167,13 +1167,13 @@ contains !! \memberof psb_i_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine i_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_i_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1191,7 +1191,7 @@ contains subroutine i_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x class(psb_i_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1205,21 +1205,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_i_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1229,7 +1229,7 @@ contains ! subroutine i_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1239,21 +1239,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1261,7 +1261,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1278,7 +1278,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1293,7 +1293,7 @@ contains ! subroutine i_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=izero @@ -1309,7 +1309,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_i_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1318,7 +1318,7 @@ contains subroutine i_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1335,20 +1335,20 @@ contains !> Function base_mlv_free: !! \memberof psb_i_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine i_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine i_base_mlv_free @@ -1358,15 +1358,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_i_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine i_base_mlv_sync(x) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x end subroutine i_base_mlv_sync @@ -1375,10 +1375,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_i_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine i_base_mlv_set_host(x) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x end subroutine i_base_mlv_set_host @@ -1387,10 +1387,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_i_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine i_base_mlv_set_dev(x) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x end subroutine i_base_mlv_set_dev @@ -1399,10 +1399,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_i_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine i_base_mlv_set_sync(x) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x end subroutine i_base_mlv_set_sync @@ -1411,10 +1411,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_i_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function i_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x logical :: res @@ -1425,10 +1425,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_i_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function i_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x logical :: res @@ -1439,10 +1439,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_i_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function i_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x logical :: res @@ -1451,16 +1451,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_i_base_multivect_type !! \brief Number of entries - !! + !! ! function i_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1470,7 +1470,7 @@ contains end function i_base_mlv_get_nrows function i_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1483,10 +1483,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_i_base_multivect_type !! \brief Size in bytesa - !! + !! ! function i_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1499,10 +1499,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_i_base_multivect_type !! \brief Format - !! + !! ! function i_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function i_base_mlv_get_fmt @@ -1515,18 +1515,18 @@ contains !! \memberof psb_i_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function i_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -1534,7 +1534,7 @@ contains end function i_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -1543,7 +1543,7 @@ contains !! \param val The value to set !! subroutine i_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: val @@ -1556,16 +1556,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_i_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine i_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -1578,15 +1578,15 @@ contains function i_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function i_base_mlv_use_buffer subroutine i_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1598,7 +1598,7 @@ contains subroutine i_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1609,12 +1609,12 @@ contains subroutine i_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -1622,7 +1622,7 @@ contains subroutine i_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1632,7 +1632,7 @@ contains subroutine i_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_i_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1655,7 +1655,7 @@ contains !! \param beta subroutine i_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: alpha, beta, y(:) class(psb_i_base_multivect_type) :: x @@ -1671,7 +1671,7 @@ contains end subroutine i_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_i_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1680,7 +1680,7 @@ contains !! \param idx(:) indices subroutine i_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx integer(psb_ipk_) :: y(:) @@ -1693,7 +1693,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_i_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1702,7 +1702,7 @@ contains !! \param idx(:) indices subroutine i_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: y(:) class(psb_i_base_multivect_type) :: x @@ -1719,7 +1719,7 @@ contains end subroutine i_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_i_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1728,7 +1728,7 @@ contains !! \param idx(:) indices subroutine i_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: y(:,:) class(psb_i_base_multivect_type) :: x @@ -1745,17 +1745,17 @@ contains end subroutine i_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine i_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_i_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1767,9 +1767,9 @@ contains end subroutine i_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_i_base_multivect_type @@ -1778,10 +1778,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine i_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: beta, x(:) class(psb_i_base_multivect_type) :: y @@ -1796,7 +1796,7 @@ contains subroutine i_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_ipk_) :: beta, x(:,:) class(psb_i_base_multivect_type) :: y @@ -1811,7 +1811,7 @@ contains subroutine i_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer( psb_ipk_) :: beta, x(:) @@ -1823,14 +1823,14 @@ contains subroutine i_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx integer(psb_ipk_) :: beta class(psb_i_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1839,19 +1839,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine i_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_i_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine i_base_mlv_device_wait() - implicit none - + implicit none + end subroutine i_base_mlv_device_wait end module psb_i_base_multivect_mod - diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 0661fbe00..d3aaa48ed 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,22 +27,22 @@ ! 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. -! -! +! +! ! ! package: psb_i_vect_mod ! ! This module contains the definition of the psb_i_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_i_vect_mod use psb_i_base_vect_mod type psb_i_vect_type - class(psb_i_base_vect_type), allocatable :: v + class(psb_i_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => i_vect_get_nrows procedure, pass(x) :: sizeof => i_vect_sizeof @@ -114,11 +114,11 @@ module psb_i_vect_mod contains - subroutine psb_i_set_vect_default(v) - implicit none + subroutine psb_i_set_vect_default(v) + implicit none class(psb_i_base_vect_type), intent(in) :: v - if (allocated(psb_i_base_vect_default)) then + if (allocated(psb_i_base_vect_default)) then deallocate(psb_i_base_vect_default) end if allocate(psb_i_base_vect_default, mold=v) @@ -126,7 +126,7 @@ contains end subroutine psb_i_set_vect_default function psb_i_get_vect_default(v) result(res) - implicit none + implicit none class(psb_i_vect_type), intent(in) :: v class(psb_i_base_vect_type), pointer :: res @@ -136,10 +136,10 @@ contains function psb_i_get_base_vect_default() result(res) - implicit none + implicit none class(psb_i_base_vect_type), pointer :: res - if (.not.allocated(psb_i_base_vect_default)) then + if (.not.allocated(psb_i_base_vect_default)) then allocate(psb_i_base_vect_type :: psb_i_base_vect_default) end if @@ -149,14 +149,14 @@ contains subroutine i_vect_clone(x,y,info) - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x class(psb_i_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine i_vect_clone @@ -171,7 +171,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_i_get_base_vect_default()) @@ -193,7 +193,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_i_get_base_vect_default()) @@ -214,7 +214,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_i_get_base_vect_default()) @@ -277,7 +277,7 @@ contains end function size_const function i_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_i_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -285,7 +285,7 @@ contains end function i_vect_get_nrows function i_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_i_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -293,7 +293,7 @@ contains end function i_vect_sizeof function i_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_i_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -302,7 +302,7 @@ contains subroutine i_vect_all(n, x, info, mold) - implicit none + 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 @@ -311,12 +311,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_i_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -326,12 +326,12 @@ contains subroutine i_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -341,7 +341,7 @@ contains subroutine i_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -351,7 +351,7 @@ contains subroutine i_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -397,12 +397,12 @@ contains subroutine i_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -411,7 +411,7 @@ contains subroutine i_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -421,7 +421,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -432,7 +432,7 @@ contains subroutine i_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -442,7 +442,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -460,12 +460,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_i_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -476,7 +476,7 @@ contains subroutine i_vect_sync(x) - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -485,7 +485,7 @@ contains end subroutine i_vect_sync subroutine i_vect_set_sync(x) - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -494,7 +494,7 @@ contains end subroutine i_vect_set_sync subroutine i_vect_set_host(x) - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -503,7 +503,7 @@ contains end subroutine i_vect_set_host subroutine i_vect_set_dev(x) - implicit none + implicit none class(psb_i_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -512,7 +512,7 @@ contains end subroutine i_vect_set_dev function i_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_i_vect_type), intent(inout) :: x @@ -523,7 +523,7 @@ contains end function i_vect_is_sync function i_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_i_vect_type), intent(inout) :: x @@ -534,11 +534,11 @@ contains end function i_vect_is_host function i_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_i_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -559,7 +559,7 @@ module psb_i_multivect_mod !private type psb_i_multivect_type - class(psb_i_base_multivect_type), allocatable :: v + class(psb_i_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => i_vect_get_nrows procedure, pass(x) :: get_ncols => i_vect_get_ncols @@ -615,11 +615,11 @@ module psb_i_multivect_mod contains - subroutine psb_i_set_multivect_default(v) - implicit none + subroutine psb_i_set_multivect_default(v) + implicit none class(psb_i_base_multivect_type), intent(in) :: v - if (allocated(psb_i_base_multivect_default)) then + if (allocated(psb_i_base_multivect_default)) then deallocate(psb_i_base_multivect_default) end if allocate(psb_i_base_multivect_default, mold=v) @@ -627,7 +627,7 @@ contains end subroutine psb_i_set_multivect_default function psb_i_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_i_multivect_type), intent(in) :: v class(psb_i_base_multivect_type), pointer :: res @@ -637,10 +637,10 @@ contains function psb_i_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_i_base_multivect_type), pointer :: res - if (.not.allocated(psb_i_base_multivect_default)) then + if (.not.allocated(psb_i_base_multivect_default)) then allocate(psb_i_base_multivect_type :: psb_i_base_multivect_default) end if @@ -650,14 +650,14 @@ contains subroutine i_vect_clone(x,y,info) - implicit none + implicit none class(psb_i_multivect_type), intent(inout) :: x class(psb_i_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine i_vect_clone @@ -670,7 +670,7 @@ contains class(psb_i_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_i_get_base_multivect_default()) @@ -688,7 +688,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_i_get_base_multivect_default()) @@ -748,7 +748,7 @@ contains end function size_const function i_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_i_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -756,7 +756,7 @@ contains end function i_vect_get_nrows function i_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_i_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -764,7 +764,7 @@ contains end function i_vect_get_ncols function i_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_i_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -772,7 +772,7 @@ contains end function i_vect_sizeof function i_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_i_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -781,18 +781,18 @@ contains subroutine i_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_i_multivect_type), intent(out) :: x class(psb_i_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_i_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -802,12 +802,12 @@ contains subroutine i_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_i_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -817,7 +817,7 @@ contains subroutine i_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_i_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -827,7 +827,7 @@ contains subroutine i_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_i_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -838,7 +838,7 @@ contains end subroutine i_vect_asb subroutine i_vect_sync(x) - implicit none + implicit none class(psb_i_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -906,12 +906,12 @@ contains subroutine i_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_i_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -920,7 +920,7 @@ contains subroutine i_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_i_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -930,7 +930,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -946,12 +946,12 @@ contains class(psb_i_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_i_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) diff --git a/base/modules/serial/psb_l_base_vect_mod.f90 b/base/modules/serial/psb_l_base_vect_mod.f90 index ab7b49f1f..37bdf485e 100644 --- a/base/modules/serial/psb_l_base_vect_mod.f90 +++ b/base/modules/serial/psb_l_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_l_base_vect_mod ! ! This module contains the definition of the psb_l_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,16 +43,16 @@ ! ! module psb_l_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod use psb_i_base_vect_mod !> \namespace psb_base_mod \class psb_l_base_vect_type - !! The psb_l_base_vect_type + !! The psb_l_base_vect_type !! defines a middle level integer(psb_lpk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -60,9 +60,9 @@ module psb_l_base_vect_mod !! sparse matrix types. !! type psb_l_base_vect_type - !> Values. + !> Values. integer(psb_lpk_), allocatable :: v(:) - integer(psb_lpk_), allocatable :: combuf(:) + integer(psb_lpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -77,7 +77,7 @@ module psb_l_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => l_base_ins_a procedure, pass(x) :: ins_v => l_base_ins_v @@ -92,7 +92,7 @@ module psb_l_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => l_base_sync procedure, pass(x) :: is_host => l_base_is_host @@ -129,7 +129,7 @@ module psb_l_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => l_base_gthab procedure, pass(x) :: gthzv => l_base_gthzv @@ -152,11 +152,11 @@ module psb_l_base_vect_mod end interface psb_l_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -169,11 +169,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -183,7 +183,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -195,20 +195,20 @@ contains !! subroutine l_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: this(:) class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine l_base_bld_x - + ! ! Create with size, but no initialization ! @@ -216,11 +216,11 @@ contains !> Function bld_mn: !! \memberof psb_l_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine l_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -229,15 +229,15 @@ contains call x%asb(n,info) end subroutine l_base_bld_mn - + !> Function bld_en: !! \memberof psb_l_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine l_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -246,24 +246,24 @@ contains call x%asb(n,info) end subroutine l_base_bld_en - + !> Function base_all: !! \memberof psb_l_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine l_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_l_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine l_base_all !> Function base_mold: @@ -275,11 +275,11 @@ contains subroutine l_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x class(psb_l_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_l_base_vect_type :: y, stat=info) end subroutine l_base_mold @@ -289,21 +289,21 @@ contains ! !> Function base_ins: !! \memberof psb_l_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -313,7 +313,7 @@ contains ! subroutine l_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -323,21 +323,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -345,7 +345,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -363,7 +363,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -372,7 +372,7 @@ contains subroutine l_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -382,14 +382,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -405,14 +405,14 @@ contains ! subroutine l_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=lzero call x%set_host() end subroutine l_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -421,20 +421,20 @@ contains !> Function base_asb: !! \memberof psb_l_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine l_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -451,20 +451,20 @@ contains !> Function base_asb: !! \memberof psb_l_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine l_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -477,39 +477,39 @@ contains !> Function base_free: !! \memberof psb_l_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine l_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine l_base_free - + ! !> Function base_free_buffer: !! \memberof psb_l_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine l_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -524,17 +524,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine l_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -544,13 +544,13 @@ contains !> Function base_free_comid: !! \memberof psb_l_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine l_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -562,77 +562,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_l_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine l_base_sync(x) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x - + end subroutine l_base_sync ! !> Function base_set_host: !! \memberof psb_l_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine l_base_set_host(x) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x - + end subroutine l_base_set_host ! !> Function base_set_dev: !! \memberof psb_l_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine l_base_set_dev(x) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x - + end subroutine l_base_set_dev ! !> Function base_set_sync: !! \memberof psb_l_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine l_base_set_sync(x) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x - + end subroutine l_base_set_sync ! !> Function base_is_dev: !! \memberof psb_l_base_vect_type !! \brief Is vector on external device . - !! + !! ! function l_base_is_dev(x) result(res) - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function l_base_is_dev - + ! !> Function base_is_host !! \memberof psb_l_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function l_base_is_host(x) result(res) - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x logical :: res @@ -643,10 +643,10 @@ contains !> Function base_is_sync !! \memberof psb_l_base_vect_type !! \brief Is vector on sync . - !! + !! ! function l_base_is_sync(x) result(res) - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x logical :: res @@ -655,16 +655,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_l_base_vect_type !! \brief Number of entries - !! + !! ! function l_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -677,13 +677,13 @@ contains !> Function base_get_sizeof !! \memberof psb_l_base_vect_type !! \brief Size in bytes - !! + !! ! function l_base_sizeof(x) result(res) - implicit none + implicit none class(psb_l_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * psb_sizeof_lp) * x%get_nrows() @@ -693,14 +693,14 @@ contains !> Function base_get_fmt !! \memberof psb_l_base_vect_type !! \brief Format - !! + !! ! function l_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function l_base_get_fmt - + ! ! @@ -709,7 +709,7 @@ contains !! \memberof psb_l_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function l_base_get_vect(x,n) result(res) class(psb_l_base_vect_type), intent(inout) :: x integer(psb_lpk_), allocatable :: res(:) @@ -717,21 +717,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function l_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -740,18 +740,18 @@ contains !! \param val The value to set !! subroutine l_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_lpk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -763,14 +763,14 @@ contains !> Function base_set_vect !! \memberof psb_l_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine l_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_lpk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -778,7 +778,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -789,8 +789,8 @@ contains end subroutine l_base_set_vect - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -805,18 +805,18 @@ contains !! \param beta subroutine l_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: alpha, beta, y(:) class(psb_l_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine l_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_l_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -825,28 +825,28 @@ contains !! \param idx(:) indices subroutine l_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx integer(psb_lpk_) :: y(:) class(psb_l_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine l_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine l_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_l_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -859,22 +859,22 @@ contains !> Function base_device_wait: !! \memberof psb_l_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine l_base_device_wait() - implicit none - + implicit none + end subroutine l_base_device_wait function l_base_use_buffer() result(res) logical :: res - + res = .true. end function l_base_use_buffer subroutine l_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -884,7 +884,7 @@ contains subroutine l_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -895,7 +895,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_l_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -904,20 +904,20 @@ contains !! \param idx(:) indices subroutine l_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: y(:) class(psb_l_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine l_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_l_base_vect_type @@ -926,14 +926,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine l_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: beta, x(:) class(psb_l_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -942,12 +942,12 @@ contains subroutine l_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer(psb_lpk_) :: beta, x(:) class(psb_l_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -956,14 +956,14 @@ contains subroutine l_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer(psb_lpk_) :: beta class(psb_l_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -988,22 +988,22 @@ module psb_l_base_multivect_mod use psb_l_base_vect_mod !> \namespace psb_base_mod \class psb_l_base_vect_type - !! The psb_l_base_vect_type + !! The psb_l_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_l_base_multivect, psb_l_base_multivect_type type psb_l_base_multivect_type - !> Values. + !> Values. integer(psb_lpk_), allocatable :: v(:,:) - integer(psb_lpk_), allocatable :: combuf(:) + integer(psb_lpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1017,7 +1017,7 @@ module psb_l_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => l_base_mlv_ins procedure, pass(x) :: zero => l_base_mlv_zero @@ -1028,7 +1028,7 @@ module psb_l_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => l_base_mlv_sync procedure, pass(x) :: is_host => l_base_mlv_is_host @@ -1068,7 +1068,7 @@ module psb_l_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => l_base_mlv_gthab procedure, pass(x) :: gthzv => l_base_mlv_gthzv @@ -1090,7 +1090,7 @@ module psb_l_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1109,7 +1109,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1136,7 +1136,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1151,7 +1151,7 @@ contains !> Function bld_n: !! \memberof psb_l_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine l_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1168,13 +1168,13 @@ contains !! \memberof psb_l_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine l_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_l_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1192,7 +1192,7 @@ contains subroutine l_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x class(psb_l_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1206,21 +1206,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_l_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1230,7 +1230,7 @@ contains ! subroutine l_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1240,21 +1240,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1262,7 +1262,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1279,7 +1279,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1294,7 +1294,7 @@ contains ! subroutine l_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=lzero @@ -1310,7 +1310,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_l_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1319,7 +1319,7 @@ contains subroutine l_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1336,20 +1336,20 @@ contains !> Function base_mlv_free: !! \memberof psb_l_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine l_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine l_base_mlv_free @@ -1359,15 +1359,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_l_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine l_base_mlv_sync(x) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x end subroutine l_base_mlv_sync @@ -1376,10 +1376,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_l_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine l_base_mlv_set_host(x) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x end subroutine l_base_mlv_set_host @@ -1388,10 +1388,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_l_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine l_base_mlv_set_dev(x) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x end subroutine l_base_mlv_set_dev @@ -1400,10 +1400,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_l_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine l_base_mlv_set_sync(x) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x end subroutine l_base_mlv_set_sync @@ -1412,10 +1412,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_l_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function l_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x logical :: res @@ -1426,10 +1426,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_l_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function l_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x logical :: res @@ -1440,10 +1440,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_l_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function l_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x logical :: res @@ -1452,16 +1452,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_l_base_multivect_type !! \brief Number of entries - !! + !! ! function l_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1471,7 +1471,7 @@ contains end function l_base_mlv_get_nrows function l_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1484,10 +1484,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_l_base_multivect_type !! \brief Size in bytesa - !! + !! ! function l_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1500,10 +1500,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_l_base_multivect_type !! \brief Format - !! + !! ! function l_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function l_base_mlv_get_fmt @@ -1516,18 +1516,18 @@ contains !! \memberof psb_l_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function l_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_lpk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -1535,7 +1535,7 @@ contains end function l_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -1544,7 +1544,7 @@ contains !! \param val The value to set !! subroutine l_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_lpk_), intent(in) :: val @@ -1557,16 +1557,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_l_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine l_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_lpk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -1579,15 +1579,15 @@ contains function l_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function l_base_mlv_use_buffer subroutine l_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1599,7 +1599,7 @@ contains subroutine l_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1610,12 +1610,12 @@ contains subroutine l_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -1623,7 +1623,7 @@ contains subroutine l_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1633,7 +1633,7 @@ contains subroutine l_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_l_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1656,7 +1656,7 @@ contains !! \param beta subroutine l_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: alpha, beta, y(:) class(psb_l_base_multivect_type) :: x @@ -1672,7 +1672,7 @@ contains end subroutine l_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_l_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1681,7 +1681,7 @@ contains !! \param idx(:) indices subroutine l_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx integer(psb_lpk_) :: y(:) @@ -1694,7 +1694,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_l_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1703,7 +1703,7 @@ contains !! \param idx(:) indices subroutine l_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: y(:) class(psb_l_base_multivect_type) :: x @@ -1720,7 +1720,7 @@ contains end subroutine l_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_l_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1729,7 +1729,7 @@ contains !! \param idx(:) indices subroutine l_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: y(:,:) class(psb_l_base_multivect_type) :: x @@ -1746,17 +1746,17 @@ contains end subroutine l_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine l_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_l_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1768,9 +1768,9 @@ contains end subroutine l_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_l_base_multivect_type @@ -1779,10 +1779,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine l_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: beta, x(:) class(psb_l_base_multivect_type) :: y @@ -1797,7 +1797,7 @@ contains subroutine l_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_lpk_) :: beta, x(:,:) class(psb_l_base_multivect_type) :: y @@ -1812,7 +1812,7 @@ contains subroutine l_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx integer( psb_lpk_) :: beta, x(:) @@ -1824,14 +1824,14 @@ contains subroutine l_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx integer(psb_lpk_) :: beta class(psb_l_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1840,19 +1840,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine l_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_l_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine l_base_mlv_device_wait() - implicit none - + implicit none + end subroutine l_base_mlv_device_wait end module psb_l_base_multivect_mod - diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 5d0369d6d..ece6ee668 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,15 +27,15 @@ ! 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. -! -! +! +! ! ! package: psb_l_vect_mod ! ! This module contains the definition of the psb_l_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_l_vect_mod @@ -43,7 +43,7 @@ module psb_l_vect_mod use psb_i_vect_mod type psb_l_vect_type - class(psb_l_base_vect_type), allocatable :: v + class(psb_l_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => l_vect_get_nrows procedure, pass(x) :: sizeof => l_vect_sizeof @@ -115,11 +115,11 @@ module psb_l_vect_mod contains - subroutine psb_l_set_vect_default(v) - implicit none + subroutine psb_l_set_vect_default(v) + implicit none class(psb_l_base_vect_type), intent(in) :: v - if (allocated(psb_l_base_vect_default)) then + if (allocated(psb_l_base_vect_default)) then deallocate(psb_l_base_vect_default) end if allocate(psb_l_base_vect_default, mold=v) @@ -127,7 +127,7 @@ contains end subroutine psb_l_set_vect_default function psb_l_get_vect_default(v) result(res) - implicit none + implicit none class(psb_l_vect_type), intent(in) :: v class(psb_l_base_vect_type), pointer :: res @@ -137,10 +137,10 @@ contains function psb_l_get_base_vect_default() result(res) - implicit none + implicit none class(psb_l_base_vect_type), pointer :: res - if (.not.allocated(psb_l_base_vect_default)) then + if (.not.allocated(psb_l_base_vect_default)) then allocate(psb_l_base_vect_type :: psb_l_base_vect_default) end if @@ -150,14 +150,14 @@ contains subroutine l_vect_clone(x,y,info) - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x class(psb_l_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine l_vect_clone @@ -172,7 +172,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_l_get_base_vect_default()) @@ -194,7 +194,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_l_get_base_vect_default()) @@ -215,7 +215,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_l_get_base_vect_default()) @@ -278,7 +278,7 @@ contains end function size_const function l_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_l_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -286,7 +286,7 @@ contains end function l_vect_get_nrows function l_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_l_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -294,7 +294,7 @@ contains end function l_vect_sizeof function l_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_l_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -303,7 +303,7 @@ contains subroutine l_vect_all(n, x, info, mold) - implicit none + 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 @@ -312,12 +312,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_l_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -327,12 +327,12 @@ contains subroutine l_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_l_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -342,7 +342,7 @@ contains subroutine l_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -352,7 +352,7 @@ contains subroutine l_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_l_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -398,12 +398,12 @@ contains subroutine l_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -412,7 +412,7 @@ contains subroutine l_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -422,7 +422,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -433,7 +433,7 @@ contains subroutine l_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -443,7 +443,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -461,12 +461,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_l_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -477,7 +477,7 @@ contains subroutine l_vect_sync(x) - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -486,7 +486,7 @@ contains end subroutine l_vect_sync subroutine l_vect_set_sync(x) - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -495,7 +495,7 @@ contains end subroutine l_vect_set_sync subroutine l_vect_set_host(x) - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -504,7 +504,7 @@ contains end subroutine l_vect_set_host subroutine l_vect_set_dev(x) - implicit none + implicit none class(psb_l_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -513,7 +513,7 @@ contains end subroutine l_vect_set_dev function l_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_l_vect_type), intent(inout) :: x @@ -524,7 +524,7 @@ contains end function l_vect_is_sync function l_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_l_vect_type), intent(inout) :: x @@ -535,11 +535,11 @@ contains end function l_vect_is_host function l_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_l_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -560,7 +560,7 @@ module psb_l_multivect_mod !private type psb_l_multivect_type - class(psb_l_base_multivect_type), allocatable :: v + class(psb_l_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => l_vect_get_nrows procedure, pass(x) :: get_ncols => l_vect_get_ncols @@ -616,11 +616,11 @@ module psb_l_multivect_mod contains - subroutine psb_l_set_multivect_default(v) - implicit none + subroutine psb_l_set_multivect_default(v) + implicit none class(psb_l_base_multivect_type), intent(in) :: v - if (allocated(psb_l_base_multivect_default)) then + if (allocated(psb_l_base_multivect_default)) then deallocate(psb_l_base_multivect_default) end if allocate(psb_l_base_multivect_default, mold=v) @@ -628,7 +628,7 @@ contains end subroutine psb_l_set_multivect_default function psb_l_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_l_multivect_type), intent(in) :: v class(psb_l_base_multivect_type), pointer :: res @@ -638,10 +638,10 @@ contains function psb_l_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_l_base_multivect_type), pointer :: res - if (.not.allocated(psb_l_base_multivect_default)) then + if (.not.allocated(psb_l_base_multivect_default)) then allocate(psb_l_base_multivect_type :: psb_l_base_multivect_default) end if @@ -651,14 +651,14 @@ contains subroutine l_vect_clone(x,y,info) - implicit none + implicit none class(psb_l_multivect_type), intent(inout) :: x class(psb_l_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine l_vect_clone @@ -671,7 +671,7 @@ contains class(psb_l_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_l_get_base_multivect_default()) @@ -689,7 +689,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_l_get_base_multivect_default()) @@ -749,7 +749,7 @@ contains end function size_const function l_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_l_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -757,7 +757,7 @@ contains end function l_vect_get_nrows function l_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_l_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -765,7 +765,7 @@ contains end function l_vect_get_ncols function l_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_l_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -773,7 +773,7 @@ contains end function l_vect_sizeof function l_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_l_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -782,18 +782,18 @@ contains subroutine l_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_l_multivect_type), intent(out) :: x class(psb_l_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_l_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -803,12 +803,12 @@ contains subroutine l_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_l_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -818,7 +818,7 @@ contains subroutine l_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_l_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -828,7 +828,7 @@ contains subroutine l_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_l_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -839,7 +839,7 @@ contains end subroutine l_vect_asb subroutine l_vect_sync(x) - implicit none + implicit none class(psb_l_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -907,12 +907,12 @@ contains subroutine l_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_l_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -921,7 +921,7 @@ contains subroutine l_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_l_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -931,7 +931,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -947,12 +947,12 @@ contains class(psb_l_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_l_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 2d716290b..a47d63775 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_s_base_vect_mod ! ! This module contains the definition of the psb_s_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,7 +43,7 @@ ! ! module psb_s_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod @@ -51,9 +51,9 @@ module psb_s_base_vect_mod use psb_l_base_vect_mod !> \namespace psb_base_mod \class psb_s_base_vect_type - !! The psb_s_base_vect_type + !! The psb_s_base_vect_type !! defines a middle level real(psb_spk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -61,9 +61,9 @@ module psb_s_base_vect_mod !! sparse matrix types. !! type psb_s_base_vect_type - !> Values. + !> Values. real(psb_spk_), allocatable :: v(:) - real(psb_spk_), allocatable :: combuf(:) + real(psb_spk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -78,7 +78,7 @@ module psb_s_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => s_base_ins_a procedure, pass(x) :: ins_v => s_base_ins_v @@ -93,7 +93,7 @@ module psb_s_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => s_base_sync procedure, pass(x) :: is_host => s_base_is_host @@ -130,7 +130,7 @@ module psb_s_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => s_base_gthab procedure, pass(x) :: gthzv => s_base_gthzv @@ -164,6 +164,12 @@ module psb_s_base_vect_mod procedure, pass(z) :: mlt_av => s_base_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va ! + ! Vector-Vector operations + ! + procedure, pass(x) :: div_v => s_base_div_v + procedure, pass(z) :: div_a2 => s_base_div_a2 + generic, public :: div => div_v, div_a2 + ! ! Scaling and norms ! procedure, pass(x) :: scal => s_base_scal @@ -183,11 +189,11 @@ module psb_s_base_vect_mod end interface psb_s_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -200,11 +206,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -214,7 +220,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -226,20 +232,20 @@ contains !! subroutine s_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none real(psb_spk_), intent(in) :: this(:) class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine s_base_bld_x - + ! ! Create with size, but no initialization ! @@ -247,11 +253,11 @@ contains !> Function bld_mn: !! \memberof psb_s_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine s_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -260,15 +266,15 @@ contains call x%asb(n,info) end subroutine s_base_bld_mn - + !> Function bld_en: !! \memberof psb_s_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine s_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -277,24 +283,24 @@ contains call x%asb(n,info) end subroutine s_base_bld_en - + !> Function base_all: !! \memberof psb_s_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine s_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_s_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine s_base_all !> Function base_mold: @@ -306,11 +312,11 @@ contains subroutine s_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x class(psb_s_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_s_base_vect_type :: y, stat=info) end subroutine s_base_mold @@ -320,21 +326,21 @@ contains ! !> Function base_ins: !! \memberof psb_s_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -344,7 +350,7 @@ contains ! subroutine s_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -354,21 +360,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -376,7 +382,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -394,7 +400,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -403,7 +409,7 @@ contains subroutine s_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -413,14 +419,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -436,14 +442,14 @@ contains ! subroutine s_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=szero call x%set_host() end subroutine s_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -452,20 +458,20 @@ contains !> Function base_asb: !! \memberof psb_s_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine s_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -482,20 +488,20 @@ contains !> Function base_asb: !! \memberof psb_s_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine s_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -508,39 +514,39 @@ contains !> Function base_free: !! \memberof psb_s_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine s_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine s_base_free - + ! !> Function base_free_buffer: !! \memberof psb_s_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine s_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -555,17 +561,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine s_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -575,13 +581,13 @@ contains !> Function base_free_comid: !! \memberof psb_s_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine s_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -593,77 +599,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_s_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine s_base_sync(x) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x - + end subroutine s_base_sync ! !> Function base_set_host: !! \memberof psb_s_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine s_base_set_host(x) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x - + end subroutine s_base_set_host ! !> Function base_set_dev: !! \memberof psb_s_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine s_base_set_dev(x) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x - + end subroutine s_base_set_dev ! !> Function base_set_sync: !! \memberof psb_s_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine s_base_set_sync(x) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x - + end subroutine s_base_set_sync ! !> Function base_is_dev: !! \memberof psb_s_base_vect_type !! \brief Is vector on external device . - !! + !! ! function s_base_is_dev(x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function s_base_is_dev - + ! !> Function base_is_host !! \memberof psb_s_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function s_base_is_host(x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x logical :: res @@ -674,10 +680,10 @@ contains !> Function base_is_sync !! \memberof psb_s_base_vect_type !! \brief Is vector on sync . - !! + !! ! function s_base_is_sync(x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x logical :: res @@ -686,16 +692,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_s_base_vect_type !! \brief Number of entries - !! + !! ! function s_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -708,13 +714,13 @@ contains !> Function base_get_sizeof !! \memberof psb_s_base_vect_type !! \brief Size in bytes - !! + !! ! function s_base_sizeof(x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * psb_sizeof_sp) * x%get_nrows() @@ -724,14 +730,14 @@ contains !> Function base_get_fmt !! \memberof psb_s_base_vect_type !! \brief Format - !! + !! ! function s_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function s_base_get_fmt - + ! ! @@ -740,7 +746,7 @@ contains !! \memberof psb_s_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function s_base_get_vect(x,n) result(res) class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), allocatable :: res(:) @@ -748,21 +754,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function s_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -771,18 +777,18 @@ contains !! \param val The value to set !! subroutine s_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -794,14 +800,14 @@ contains !> Function base_set_vect !! \memberof psb_s_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine s_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -809,7 +815,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -829,7 +835,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine s_base_absval1(x) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x if (allocated(x%v)) then @@ -841,21 +847,21 @@ contains end subroutine s_base_absval1 subroutine s_base_absval2(x,y) - implicit none - class(psb_s_base_vect_type), intent(inout) :: x + implicit none + class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y integer(psb_ipk_) :: info if (.not.x%is_host()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(ione*min(x%get_nrows(),y%get_nrows()),sone,x,szero,info) call y%absval() end if - + end subroutine s_base_absval2 ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_dot_v !! \memberof psb_s_base_vect_type @@ -864,12 +870,12 @@ contains !! \param y The other (base_vect) to be multiplied by !! function s_base_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: sdot - + res = szero ! ! Note: this is the base implementation. @@ -898,19 +904,19 @@ contains !! \param y(:) The array to be multiplied by !! function s_base_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: sdot - + res = sdot(n,y,1,x%v,1) end function s_base_dot_a - + ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -925,13 +931,13 @@ contains !! subroutine s_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (x%is_dev()) call x%sync() call y%axpby(m,alpha,x%v,beta,info) @@ -939,7 +945,7 @@ contains end subroutine s_base_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_axpby_a @@ -953,20 +959,20 @@ contains !! subroutine s_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (y%is_dev()) call y%sync() call psb_geaxpby(m,alpha,x,beta,y%v,info) call y%set_host() - + end subroutine s_base_axpby_a - + ! ! Multiple variants of two operations: ! Simple multiplication Y(:) = X(:)*Y(:) @@ -984,10 +990,10 @@ contains !! subroutine s_base_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1005,7 +1011,7 @@ contains !! subroutine s_base_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -1014,7 +1020,7 @@ contains info = 0 if (y%is_dev()) call y%sync() n = min(size(y%v), size(x)) - do i=1, n + do i=1, n y%v(i) = y%v(i)*x(i) end do call y%set_host() @@ -1035,7 +1041,7 @@ contains !! subroutine s_base_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: y(:) real(psb_spk_), intent(in) :: x(:) @@ -1043,58 +1049,58 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (z%is_dev()) call z%sync() n = min(size(z%v), size(x), size(y)) - if (alpha == szero) then - if (beta == sone) then - return + if (alpha == szero) then + if (beta == sone) then + return else do i=1, n z%v(i) = beta*z%v(i) end do end if else - if (alpha == sone) then - if (beta == szero) then - do i=1, n + if (alpha == sone) then + if (beta == szero) then + do i=1, n z%v(i) = y(i)*x(i) end do - else if (beta == sone) then - do i=1, n + else if (beta == sone) then + do i=1, n z%v(i) = z%v(i) + y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do end if - else if (alpha == -sone) then - if (beta == szero) then - do i=1, n + else if (alpha == -sone) then + if (beta == szero) then + do i=1, n z%v(i) = -y(i)*x(i) end do - else if (beta == sone) then - do i=1, n + else if (beta == sone) then + do i=1, n z%v(i) = z%v(i) - y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else - if (beta == szero) then - do i=1, n + if (beta == szero) then + do i=1, n z%v(i) = alpha*y(i)*x(i) end do - else if (beta == sone) then - do i=1, n + else if (beta == sone) then + do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do end if @@ -1118,12 +1124,12 @@ contains subroutine s_base_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: y class(psb_s_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -1133,7 +1139,7 @@ contains if (x%is_dev()) call x%sync() if (.not.psb_s_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -1148,12 +1154,12 @@ contains subroutine s_base_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: x(:) class(psb_s_base_vect_type), intent(inout) :: y class(psb_s_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1164,12 +1170,12 @@ contains subroutine s_base_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: y(:) class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1177,10 +1183,57 @@ contains call z%mlt(alpha,y,x,beta,info) end subroutine s_base_mlt_va + ! + !> Function base_div_v + !! \memberof psb_s_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine s_base_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info) + + + end subroutine s_base_div_v + ! + !> Function base_div_a2 + !! \memberof psb_s_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y + !! \param x(:) The array to be multiplied by + !! \param info return code + !! + subroutine s_base_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: z + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + z%v(i) = x(i)/y(i) + end do + + end subroutine s_base_div_a2 + ! - ! Simple scaling + ! Simple scaling ! !> Function base_scal !! \memberof psb_s_base_vect_type @@ -1189,17 +1242,17 @@ contains !! subroutine s_base_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x real(psb_spk_), intent (in) :: alpha - - if (allocated(x%v)) then + + if (allocated(x%v)) then x%v = alpha*x%v call x%set_host() end if end subroutine s_base_scal - + ! ! Norms 1, 2 and infinity ! @@ -1208,28 +1261,28 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function s_base_nrm2(n,x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res real(psb_spk_), external :: snrm2 - + if (x%is_dev()) call x%sync() res = snrm2(n,x%v,1) end function s_base_nrm2 - + ! !> Function base_amax !! \memberof psb_s_base_vect_type !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function s_base_amax(n,x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - + if (x%is_dev()) call x%sync() res = maxval(abs(x%v(1:n))) @@ -1241,17 +1294,17 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function s_base_asum(n,x) result(res) - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - + if (x%is_dev()) call x%sync() res = sum(abs(x%v(1:n))) end function s_base_asum - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -1266,18 +1319,18 @@ contains !! \param beta subroutine s_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: alpha, beta, y(:) class(psb_s_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine s_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_s_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1286,28 +1339,28 @@ contains !! \param idx(:) indices subroutine s_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx real(psb_spk_) :: y(:) class(psb_s_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine s_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine s_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_s_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1320,22 +1373,22 @@ contains !> Function base_device_wait: !! \memberof psb_s_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine s_base_device_wait() - implicit none - + implicit none + end subroutine s_base_device_wait function s_base_use_buffer() result(res) logical :: res - + res = .true. end function s_base_use_buffer subroutine s_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1345,7 +1398,7 @@ contains subroutine s_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1356,7 +1409,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_s_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1365,20 +1418,20 @@ contains !! \param idx(:) indices subroutine s_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: y(:) class(psb_s_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine s_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_s_base_vect_type @@ -1387,14 +1440,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine s_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:) class(psb_s_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -1403,12 +1456,12 @@ contains subroutine s_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real(psb_spk_) :: beta, x(:) class(psb_s_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -1417,14 +1470,14 @@ contains subroutine s_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real(psb_spk_) :: beta class(psb_s_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1449,22 +1502,22 @@ module psb_s_base_multivect_mod use psb_s_base_vect_mod !> \namespace psb_base_mod \class psb_s_base_vect_type - !! The psb_s_base_vect_type + !! The psb_s_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_s_base_multivect, psb_s_base_multivect_type type psb_s_base_multivect_type - !> Values. + !> Values. real(psb_spk_), allocatable :: v(:,:) - real(psb_spk_), allocatable :: combuf(:) + real(psb_spk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1478,7 +1531,7 @@ module psb_s_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => s_base_mlv_ins procedure, pass(x) :: zero => s_base_mlv_zero @@ -1489,7 +1542,7 @@ module psb_s_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => s_base_mlv_sync procedure, pass(x) :: is_host => s_base_mlv_is_host @@ -1562,7 +1615,7 @@ module psb_s_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => s_base_mlv_gthab procedure, pass(x) :: gthzv => s_base_mlv_gthzv @@ -1584,7 +1637,7 @@ module psb_s_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1603,7 +1656,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1630,7 +1683,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1645,7 +1698,7 @@ contains !> Function bld_n: !! \memberof psb_s_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine s_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1662,13 +1715,13 @@ contains !! \memberof psb_s_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine s_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1686,7 +1739,7 @@ contains subroutine s_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x class(psb_s_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1700,21 +1753,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_s_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1724,7 +1777,7 @@ contains ! subroutine s_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1734,21 +1787,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1756,7 +1809,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1773,7 +1826,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1788,7 +1841,7 @@ contains ! subroutine s_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=szero @@ -1804,7 +1857,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_s_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1813,7 +1866,7 @@ contains subroutine s_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1830,20 +1883,20 @@ contains !> Function base_mlv_free: !! \memberof psb_s_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine s_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine s_base_mlv_free @@ -1853,15 +1906,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_s_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine s_base_mlv_sync(x) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x end subroutine s_base_mlv_sync @@ -1870,10 +1923,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_s_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine s_base_mlv_set_host(x) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x end subroutine s_base_mlv_set_host @@ -1882,10 +1935,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_s_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine s_base_mlv_set_dev(x) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x end subroutine s_base_mlv_set_dev @@ -1894,10 +1947,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_s_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine s_base_mlv_set_sync(x) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x end subroutine s_base_mlv_set_sync @@ -1906,10 +1959,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_s_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function s_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x logical :: res @@ -1920,10 +1973,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_s_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function s_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x logical :: res @@ -1934,10 +1987,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_s_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function s_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x logical :: res @@ -1946,16 +1999,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_s_base_multivect_type !! \brief Number of entries - !! + !! ! function s_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1965,7 +2018,7 @@ contains end function s_base_mlv_get_nrows function s_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1978,10 +2031,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_s_base_multivect_type !! \brief Size in bytesa - !! + !! ! function s_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1994,10 +2047,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_s_base_multivect_type !! \brief Format - !! + !! ! function s_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function s_base_mlv_get_fmt @@ -2010,18 +2063,18 @@ contains !! \memberof psb_s_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function s_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x real(psb_spk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -2029,7 +2082,7 @@ contains end function s_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -2038,7 +2091,7 @@ contains !! \param val The value to set !! subroutine s_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val @@ -2051,16 +2104,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_s_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine s_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x real(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -2072,8 +2125,8 @@ contains end subroutine s_base_mlv_set_vect ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_mlv_dot_v !! \memberof psb_s_base_multivect_type @@ -2082,7 +2135,7 @@ contains !! \param y The other (base_mlv_vect) to be multiplied by !! function s_base_mlv_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2094,7 +2147,7 @@ contains ! ! Note: this is the base implementation. ! When we get here, we are sure that X is of - ! TYPE psb_s_base_mlv_vect (or its class does not care). + ! TYPE psb_s_base_mlv_vect (or its class does not care). ! If Y is not, throw the burden on it, implicitly ! calling dot_a ! @@ -2123,7 +2176,7 @@ contains !! \param y(:) The array to be multiplied by !! function s_base_mlv_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x real(psb_spk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n @@ -2141,7 +2194,7 @@ contains end function s_base_mlv_dot_a ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -2156,7 +2209,7 @@ contains !! subroutine s_base_mlv_axpby_v(m,alpha, x, beta, y, info, n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_s_base_multivect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: y @@ -2180,7 +2233,7 @@ contains end subroutine s_base_mlv_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_mlv_axpby_a @@ -2194,7 +2247,7 @@ contains !! subroutine s_base_mlv_axpby_a(m,alpha, x, beta, y, info,n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent(in) :: x(:,:) class(psb_s_base_multivect_type), intent(inout) :: y @@ -2230,10 +2283,10 @@ contains !! subroutine s_base_mlv_mlt_mv(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2243,10 +2296,10 @@ contains subroutine s_base_mlv_mlt_mv_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_s_base_vect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2263,7 +2316,7 @@ contains !! subroutine s_base_mlv_mlt_ar1(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: x(:) class(psb_s_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2271,7 +2324,7 @@ contains info = 0 n = min(psb_size(y%v,1_psb_ipk_), size(x)) - do i=1, n + do i=1, n y%v(i,:) = y%v(i,:)*x(i) end do @@ -2286,7 +2339,7 @@ contains !! subroutine s_base_mlv_mlt_ar2(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: x(:,:) class(psb_s_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2313,7 +2366,7 @@ contains !! subroutine s_base_mlv_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: y(:,:) real(psb_spk_), intent(in) :: x(:,:) @@ -2321,38 +2374,38 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, nr, nc - info = 0 + info = 0 nr = min(psb_size(z%v,1_psb_ipk_), size(x,1), size(y,1)) - nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) - if (alpha == szero) then - if (beta == sone) then - return + nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) + if (alpha == szero) then + if (beta == sone) then + return else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) end if else - if (alpha == sone) then - if (beta == szero) then + if (alpha == sone) then + if (beta == szero) then z%v(1:nr,1:nc) = y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == sone) then + else if (beta == sone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) end if - else if (alpha == -sone) then - if (beta == szero) then + else if (alpha == -sone) then + if (beta == szero) then z%v(1:nr,1:nc) = -y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == sone) then + else if (beta == sone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) end if else - if (beta == szero) then + if (beta == szero) then z%v(1:nr,1:nc) = alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == sone) then + else if (beta == sone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) end if end if @@ -2373,12 +2426,12 @@ contains subroutine s_base_mlv_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta class(psb_s_base_multivect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: y class(psb_s_base_multivect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -2389,7 +2442,7 @@ contains if (z%is_dev()) call z%sync() if (.not.psb_s_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -2404,39 +2457,39 @@ contains !!$ !!$ subroutine s_base_mlv_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ real(psb_spk_), intent(in) :: x(:) !!$ class(psb_s_base_multivect_type), intent(inout) :: y !!$ class(psb_s_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,x,y%v,beta,info) !!$ !!$ end subroutine s_base_mlv_mlt_av !!$ !!$ subroutine s_base_mlv_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ real(psb_spk_), intent(in) :: y(:) !!$ class(psb_s_base_multivect_type), intent(inout) :: x !!$ class(psb_s_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,y,x,beta,info) !!$ !!$ end subroutine s_base_mlv_mlt_va !!$ !!$ ! - ! Simple scaling + ! Simple scaling ! !> Function base_mlv_scal !! \memberof psb_s_base_multivect_type @@ -2445,7 +2498,7 @@ contains !! subroutine s_base_mlv_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x real(psb_spk_), intent (in) :: alpha @@ -2462,7 +2515,7 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function s_base_mlv_nrm2(n,x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2484,7 +2537,7 @@ contains !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function s_base_mlv_amax(n,x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2505,7 +2558,7 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function s_base_mlv_asum(n,x) result(res) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_), allocatable :: res(:) @@ -2528,7 +2581,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine s_base_mlv_absval1(x) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x if (allocated(x%v)) then @@ -2540,13 +2593,13 @@ contains end subroutine s_base_mlv_absval1 subroutine s_base_mlv_absval2(x,y) - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x class(psb_s_base_multivect_type), intent(inout) :: y integer(psb_ipk_) :: info - + if (x%is_dev()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(min(x%get_nrows(),y%get_nrows()),sone,x,szero,info) call y%absval() end if @@ -2555,15 +2608,15 @@ contains function s_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function s_base_mlv_use_buffer subroutine s_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2575,7 +2628,7 @@ contains subroutine s_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2586,12 +2639,12 @@ contains subroutine s_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -2599,7 +2652,7 @@ contains subroutine s_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2609,7 +2662,7 @@ contains subroutine s_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_s_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2632,7 +2685,7 @@ contains !! \param beta subroutine s_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: alpha, beta, y(:) class(psb_s_base_multivect_type) :: x @@ -2648,7 +2701,7 @@ contains end subroutine s_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_s_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2657,7 +2710,7 @@ contains !! \param idx(:) indices subroutine s_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx real(psb_spk_) :: y(:) @@ -2670,7 +2723,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_s_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2679,7 +2732,7 @@ contains !! \param idx(:) indices subroutine s_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: y(:) class(psb_s_base_multivect_type) :: x @@ -2696,7 +2749,7 @@ contains end subroutine s_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_s_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2705,7 +2758,7 @@ contains !! \param idx(:) indices subroutine s_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: y(:,:) class(psb_s_base_multivect_type) :: x @@ -2722,17 +2775,17 @@ contains end subroutine s_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine s_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_s_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -2744,9 +2797,9 @@ contains end subroutine s_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_s_base_multivect_type @@ -2755,10 +2808,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine s_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:) class(psb_s_base_multivect_type) :: y @@ -2773,7 +2826,7 @@ contains subroutine s_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:,:) class(psb_s_base_multivect_type) :: y @@ -2788,7 +2841,7 @@ contains subroutine s_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx real( psb_spk_) :: beta, x(:) @@ -2800,14 +2853,14 @@ contains subroutine s_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx real(psb_spk_) :: beta class(psb_s_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -2816,19 +2869,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine s_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_s_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine s_base_mlv_device_wait() - implicit none - + implicit none + end subroutine s_base_mlv_device_wait end module psb_s_base_multivect_mod - diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 0907f06ed..d835bc5aa 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,15 +27,15 @@ ! 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. -! -! +! +! ! ! package: psb_s_vect_mod ! ! This module contains the definition of the psb_s_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_s_vect_mod @@ -43,7 +43,7 @@ module psb_s_vect_mod use psb_i_vect_mod type psb_s_vect_type - class(psb_s_base_vect_type), allocatable :: v + class(psb_s_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => s_vect_get_nrows procedure, pass(x) :: sizeof => s_vect_sizeof @@ -94,13 +94,16 @@ module psb_s_vect_mod procedure, pass(z) :: mlt_av => s_vect_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va + procedure, pass(x) :: div_v => s_vect_div_v + procedure, pass(z) :: div_a2 => s_vect_div_a2 + generic, public :: div => div_v, div_a2 procedure, pass(x) :: scal => s_vect_scal procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2 => s_vect_nrm2 procedure, pass(x) :: amax => s_vect_amax - procedure, pass(x) :: asum => s_vect_asum + procedure, pass(x) :: asum => s_vect_asum end type psb_s_vect_type public :: psb_s_vect @@ -122,7 +125,7 @@ module psb_s_vect_mod 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, & & s_vect_mlt_va, s_vect_mlt_av, s_vect_scal, s_vect_absval1, & - & s_vect_absval2, s_vect_nrm2, s_vect_amax, s_vect_asum + & s_vect_absval2, s_vect_nrm2, s_vect_amax, s_vect_asum @@ -141,11 +144,11 @@ module psb_s_vect_mod contains - subroutine psb_s_set_vect_default(v) - implicit none + subroutine psb_s_set_vect_default(v) + implicit none class(psb_s_base_vect_type), intent(in) :: v - if (allocated(psb_s_base_vect_default)) then + if (allocated(psb_s_base_vect_default)) then deallocate(psb_s_base_vect_default) end if allocate(psb_s_base_vect_default, mold=v) @@ -153,7 +156,7 @@ contains end subroutine psb_s_set_vect_default function psb_s_get_vect_default(v) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(in) :: v class(psb_s_base_vect_type), pointer :: res @@ -163,10 +166,10 @@ contains function psb_s_get_base_vect_default() result(res) - implicit none + implicit none class(psb_s_base_vect_type), pointer :: res - if (.not.allocated(psb_s_base_vect_default)) then + if (.not.allocated(psb_s_base_vect_default)) then allocate(psb_s_base_vect_type :: psb_s_base_vect_default) end if @@ -176,14 +179,14 @@ contains subroutine s_vect_clone(x,y,info) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine s_vect_clone @@ -198,7 +201,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_s_get_base_vect_default()) @@ -220,7 +223,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_s_get_base_vect_default()) @@ -241,7 +244,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_s_get_base_vect_default()) @@ -304,7 +307,7 @@ contains end function size_const function s_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -312,7 +315,7 @@ contains end function s_vect_get_nrows function s_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -320,7 +323,7 @@ contains end function s_vect_sizeof function s_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -329,7 +332,7 @@ contains subroutine s_vect_all(n, x, info, mold) - implicit none + 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 @@ -338,12 +341,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_s_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -353,12 +356,12 @@ contains subroutine s_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -368,7 +371,7 @@ contains subroutine s_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -378,7 +381,7 @@ contains subroutine s_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -424,12 +427,12 @@ contains subroutine s_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -438,7 +441,7 @@ contains subroutine s_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -448,7 +451,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -459,7 +462,7 @@ contains subroutine s_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -469,7 +472,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -487,12 +490,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_s_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -503,7 +506,7 @@ contains subroutine s_vect_sync(x) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -512,7 +515,7 @@ contains end subroutine s_vect_sync subroutine s_vect_set_sync(x) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -521,7 +524,7 @@ contains end subroutine s_vect_set_sync subroutine s_vect_set_host(x) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -530,7 +533,7 @@ contains end subroutine s_vect_set_host subroutine s_vect_set_dev(x) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -539,7 +542,7 @@ contains end subroutine s_vect_set_dev function s_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_s_vect_type), intent(inout) :: x @@ -550,7 +553,7 @@ contains end function s_vect_is_sync function s_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_s_vect_type), intent(inout) :: x @@ -561,11 +564,11 @@ contains end function s_vect_is_host function s_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_s_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -573,7 +576,7 @@ contains function s_vect_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res @@ -585,7 +588,7 @@ contains end function s_vect_dot_v function s_vect_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n @@ -599,14 +602,14 @@ contains subroutine s_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y real(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - if (allocated(x%v).and.allocated(y%v)) then + if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) else info = psb_err_invalid_vect_state_ @@ -616,7 +619,7 @@ contains subroutine s_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y @@ -631,10 +634,10 @@ contains subroutine s_vect_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -645,7 +648,7 @@ contains subroutine s_vect_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -661,7 +664,7 @@ contains subroutine s_vect_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: y(:) real(psb_spk_), intent(in) :: x(:) @@ -669,7 +672,7 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (allocated(z%v)) & & call z%v%mlt(alpha,x,y,beta,info) @@ -677,12 +680,12 @@ contains subroutine s_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y class(psb_s_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n @@ -696,12 +699,12 @@ contains subroutine s_vect_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: x(:) class(psb_s_vect_type), intent(inout) :: y class(psb_s_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -712,12 +715,12 @@ contains subroutine s_vect_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none real(psb_spk_), intent(in) :: alpha,beta real(psb_spk_), intent(in) :: y(:) class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -727,9 +730,38 @@ contains end subroutine s_vect_mlt_va + subroutine s_vect_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info) + + end subroutine s_vect_div_v + + subroutine s_vect_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info) + + end subroutine s_vect_div_a2 + subroutine s_vect_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x real(psb_spk_), intent (in) :: alpha @@ -749,19 +781,19 @@ contains class(psb_s_vect_type), intent(inout) :: x class(psb_s_vect_type), intent(inout) :: y - if (allocated(x%v)) then + if (allocated(x%v)) then if (.not.allocated(y%v)) call y%bld(psb_size(x%v%v)) call x%v%absval(y%v) end if end subroutine s_vect_absval2 function s_vect_nrm2(n,x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%nrm2(n) else res = szero @@ -770,12 +802,12 @@ contains end function s_vect_nrm2 function s_vect_amax(n,x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%amax(n) else res = szero @@ -784,12 +816,12 @@ contains end function s_vect_amax function s_vect_asum(n,x) result(res) - implicit none + implicit none class(psb_s_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_spk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%asum(n) else res = szero @@ -812,7 +844,7 @@ module psb_s_multivect_mod !private type psb_s_multivect_type - class(psb_s_base_multivect_type), allocatable :: v + class(psb_s_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => s_vect_get_nrows procedure, pass(x) :: get_ncols => s_vect_get_ncols @@ -886,11 +918,11 @@ module psb_s_multivect_mod contains - subroutine psb_s_set_multivect_default(v) - implicit none + subroutine psb_s_set_multivect_default(v) + implicit none class(psb_s_base_multivect_type), intent(in) :: v - if (allocated(psb_s_base_multivect_default)) then + if (allocated(psb_s_base_multivect_default)) then deallocate(psb_s_base_multivect_default) end if allocate(psb_s_base_multivect_default, mold=v) @@ -898,7 +930,7 @@ contains end subroutine psb_s_set_multivect_default function psb_s_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_s_multivect_type), intent(in) :: v class(psb_s_base_multivect_type), pointer :: res @@ -908,10 +940,10 @@ contains function psb_s_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_s_base_multivect_type), pointer :: res - if (.not.allocated(psb_s_base_multivect_default)) then + if (.not.allocated(psb_s_base_multivect_default)) then allocate(psb_s_base_multivect_type :: psb_s_base_multivect_default) end if @@ -921,14 +953,14 @@ contains subroutine s_vect_clone(x,y,info) - implicit none + implicit none class(psb_s_multivect_type), intent(inout) :: x class(psb_s_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine s_vect_clone @@ -941,7 +973,7 @@ contains class(psb_s_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_s_get_base_multivect_default()) @@ -959,7 +991,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_s_get_base_multivect_default()) @@ -1019,7 +1051,7 @@ contains end function size_const function s_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_s_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1027,7 +1059,7 @@ contains end function s_vect_get_nrows function s_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_s_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1035,7 +1067,7 @@ contains end function s_vect_get_ncols function s_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_s_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -1043,7 +1075,7 @@ contains end function s_vect_sizeof function s_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_s_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -1052,18 +1084,18 @@ contains subroutine s_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_multivect_type), intent(out) :: x class(psb_s_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_s_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -1073,12 +1105,12 @@ contains subroutine s_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -1088,7 +1120,7 @@ contains subroutine s_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_s_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -1098,7 +1130,7 @@ contains subroutine s_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1109,7 +1141,7 @@ contains end subroutine s_vect_asb subroutine s_vect_sync(x) - implicit none + implicit none class(psb_s_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -1177,12 +1209,12 @@ contains subroutine s_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -1191,7 +1223,7 @@ contains subroutine s_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_s_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1201,7 +1233,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -1217,12 +1249,12 @@ contains class(psb_s_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_s_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -1232,7 +1264,7 @@ contains !!$ function s_vect_dot_v(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x, y !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res @@ -1244,28 +1276,28 @@ contains !!$ end function s_vect_dot_v !!$ !!$ function s_vect_dot_a(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ real(psb_spk_), intent(in) :: y(:) !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res -!!$ +!!$ !!$ res = szero !!$ if (allocated(x%v)) & !!$ & res = x%v%dot(n,y) -!!$ +!!$ !!$ end function s_vect_dot_a -!!$ +!!$ !!$ subroutine s_vect_axpby_v(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ class(psb_s_multivect_type), intent(inout) :: y !!$ real(psb_spk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ -!!$ if (allocated(x%v).and.allocated(y%v)) then +!!$ +!!$ if (allocated(x%v).and.allocated(y%v)) then !!$ call y%v%axpby(m,alpha,x%v,beta,info) !!$ else !!$ info = psb_err_invalid_vect_state_ @@ -1275,25 +1307,25 @@ contains !!$ !!$ subroutine s_vect_axpby_a(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ real(psb_spk_), intent(in) :: x(:) !!$ class(psb_s_multivect_type), intent(inout) :: y !!$ real(psb_spk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ +!!$ !!$ if (allocated(y%v)) & !!$ & call y%v%axpby(m,alpha,x,beta,info) -!!$ +!!$ !!$ end subroutine s_vect_axpby_a !!$ -!!$ +!!$ !!$ subroutine s_vect_mlt_v(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ class(psb_s_multivect_type), intent(inout) :: y -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1304,7 +1336,7 @@ contains !!$ !!$ subroutine s_vect_mlt_a(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: x(:) !!$ class(psb_s_multivect_type), intent(inout) :: y !!$ integer(psb_ipk_), intent(out) :: info @@ -1314,13 +1346,13 @@ contains !!$ info = 0 !!$ if (allocated(y%v)) & !!$ & call y%v%mlt(x,info) -!!$ +!!$ !!$ end subroutine s_vect_mlt_a !!$ !!$ !!$ subroutine s_vect_mlt_a_2(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ real(psb_spk_), intent(in) :: y(:) !!$ real(psb_spk_), intent(in) :: x(:) @@ -1328,20 +1360,20 @@ contains !!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ -!!$ info = 0 +!!$ info = 0 !!$ if (allocated(z%v)) & !!$ & call z%v%mlt(alpha,x,y,beta,info) -!!$ +!!$ !!$ end subroutine s_vect_mlt_a_2 !!$ !!$ subroutine s_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ class(psb_s_multivect_type), intent(inout) :: y !!$ class(psb_s_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ character(len=1), intent(in), optional :: conjgx, conjgy !!$ !!$ integer(psb_ipk_) :: i, n @@ -1355,12 +1387,12 @@ contains !!$ !!$ subroutine s_vect_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ real(psb_spk_), intent(in) :: x(:) !!$ class(psb_s_multivect_type), intent(inout) :: y !!$ class(psb_s_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1371,16 +1403,16 @@ contains !!$ !!$ subroutine s_vect_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ real(psb_spk_), intent(in) :: alpha,beta !!$ real(psb_spk_), intent(in) :: y(:) !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ class(psb_s_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ if (allocated(z%v).and.allocated(x%v)) & !!$ & call z%v%mlt(alpha,x%v,y,beta,info) !!$ @@ -1388,36 +1420,36 @@ contains !!$ !!$ subroutine s_vect_scal(alpha, x) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ real(psb_spk_), intent (in) :: alpha -!!$ +!!$ !!$ if (allocated(x%v)) call x%v%scal(alpha) !!$ !!$ end subroutine s_vect_scal !!$ !!$ !!$ function s_vect_nrm2(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res -!!$ -!!$ if (allocated(x%v)) then +!!$ +!!$ if (allocated(x%v)) then !!$ res = x%v%nrm2(n) !!$ else !!$ res = szero !!$ end if !!$ !!$ end function s_vect_nrm2 -!!$ +!!$ !!$ function s_vect_amax(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%amax(n) !!$ else !!$ res = szero @@ -1426,12 +1458,12 @@ contains !!$ end function s_vect_amax !!$ !!$ function s_vect_asum(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_s_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_spk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%asum(n) !!$ else !!$ res = szero diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 6dd242cc3..350e70340 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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. -! -! +! +! ! ! package: psb_z_base_vect_mod ! ! This module contains the definition of the psb_z_base_vect type which ! is a container for dense vectors. -! This is encapsulated instead of being just a simple array to allow for +! This is encapsulated instead of being just a simple array to allow for ! more complicated situations, such as GPU programming, where the memory ! area we are interested in is not easily accessible from the host/Fortran ! side. It is also meant to be encapsulated in an outer type, to allow @@ -43,7 +43,7 @@ ! ! module psb_z_base_vect_mod - + use psb_const_mod use psb_error_mod use psb_realloc_mod @@ -51,9 +51,9 @@ module psb_z_base_vect_mod use psb_l_base_vect_mod !> \namespace psb_base_mod \class psb_z_base_vect_type - !! The psb_z_base_vect_type + !! The psb_z_base_vect_type !! defines a middle level complex(psb_dpk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow @@ -61,9 +61,9 @@ module psb_z_base_vect_mod !! sparse matrix types. !! type psb_z_base_vect_type - !> Values. + !> Values. complex(psb_dpk_), allocatable :: v(:) - complex(psb_dpk_), allocatable :: combuf(:) + complex(psb_dpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -78,7 +78,7 @@ module psb_z_base_vect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins_a => z_base_ins_a procedure, pass(x) :: ins_v => z_base_ins_v @@ -93,7 +93,7 @@ module psb_z_base_vect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => z_base_sync procedure, pass(x) :: is_host => z_base_is_host @@ -130,7 +130,7 @@ module psb_z_base_vect_mod generic, public :: set => set_vect, set_scal ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => z_base_gthab procedure, pass(x) :: gthzv => z_base_gthzv @@ -164,6 +164,12 @@ module psb_z_base_vect_mod procedure, pass(z) :: mlt_av => z_base_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va ! + ! Vector-Vector operations + ! + procedure, pass(x) :: div_v => z_base_div_v + procedure, pass(z) :: div_a2 => z_base_div_a2 + generic, public :: div => div_v, div_a2 + ! ! Scaling and norms ! procedure, pass(x) :: scal => z_base_scal @@ -183,11 +189,11 @@ module psb_z_base_vect_mod end interface psb_z_base_vect contains - + ! - ! Constructors. + ! Constructors. ! - + !> Function constructor: !! \brief Constructor from an array !! \param x(:) input array to be copied @@ -200,11 +206,11 @@ contains this%v = x call this%asb(size(x,kind=psb_ipk_),info) end function constructor - - + + !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(n) result(this) integer(psb_ipk_), intent(in) :: n @@ -214,7 +220,7 @@ contains call this%asb(n,info) end function size_const - + ! ! Build from a sample ! @@ -226,20 +232,20 @@ contains !! subroutine z_base_bld_x(x,this) use psb_realloc_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: this(:) class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info call psb_realloc(size(this),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_vect_bld') return end if x%v(:) = this(:) end subroutine z_base_bld_x - + ! ! Create with size, but no initialization ! @@ -247,11 +253,11 @@ contains !> Function bld_mn: !! \memberof psb_z_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine z_base_bld_mn(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -260,15 +266,15 @@ contains call x%asb(n,info) end subroutine z_base_bld_mn - + !> Function bld_en: !! \memberof psb_z_base_vect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine z_base_bld_en(x,n) use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_) :: info @@ -277,24 +283,24 @@ contains call x%asb(n,info) end subroutine z_base_bld_en - + !> Function base_all: !! \memberof psb_z_base_vect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine z_base_all(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_z_base_vect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info - + call psb_realloc(n,x%v,info) - + end subroutine z_base_all !> Function base_mold: @@ -306,11 +312,11 @@ contains subroutine z_base_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x class(psb_z_base_vect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info - + allocate(psb_z_base_vect_type :: y, stat=info) end subroutine z_base_mold @@ -320,21 +326,21 @@ contains ! !> Function base_ins: !! \memberof psb_z_base_vect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -344,7 +350,7 @@ contains ! subroutine z_base_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -354,21 +360,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -376,7 +382,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -394,7 +400,7 @@ contains end select end if call x%set_host() - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -403,7 +409,7 @@ contains subroutine z_base_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_base_vect_type), intent(inout) :: irl @@ -413,14 +419,14 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return if (irl%is_dev()) call irl%sync() if (val%is_dev()) call val%sync() if (x%is_dev()) call x%sync() call x%ins(n,irl%v,val%v,dupl,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_vect_ins') return end if @@ -436,14 +442,14 @@ contains ! subroutine z_base_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x - + if (allocated(x%v)) x%v=zzero call x%set_host() end subroutine z_base_zero - + ! ! Assembly. ! For derived classes: after this the vector @@ -452,20 +458,20 @@ contains !> Function base_asb: !! \memberof psb_z_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine z_base_asb_m(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_mpk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -482,20 +488,20 @@ contains !> Function base_asb: !! \memberof psb_z_base_vect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! ! - + subroutine z_base_asb_e(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_epk_), intent(in) :: n class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (x%get_nrows() < n) & & call psb_realloc(n,x%v,info) @@ -508,39 +514,39 @@ contains !> Function base_free: !! \memberof psb_z_base_vect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine z_base_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - + info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) if (info == 0) call x%free_buffer(info) if (info == 0) call x%free_comid(info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') - + end subroutine z_base_free - + ! !> Function base_free_buffer: !! \memberof psb_z_base_vect_type !! \brief Free aux buffer - !! + !! !! \param info return code !! ! subroutine z_base_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -555,17 +561,17 @@ contains !! In some derived classes, e.g. GPU, !! does not really frees to avoid runtime !! costs - !! + !! !! \param info return code !! ! subroutine z_base_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -575,13 +581,13 @@ contains !> Function base_free_comid: !! \memberof psb_z_base_vect_type !! \brief Free aux MPI communication id buffer - !! + !! !! \param info return code !! ! subroutine z_base_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -593,77 +599,77 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_sync: !! \memberof psb_z_base_vect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine z_base_sync(x) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x - + end subroutine z_base_sync ! !> Function base_set_host: !! \memberof psb_z_base_vect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine z_base_set_host(x) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x - + end subroutine z_base_set_host ! !> Function base_set_dev: !! \memberof psb_z_base_vect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine z_base_set_dev(x) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x - + end subroutine z_base_set_dev ! !> Function base_set_sync: !! \memberof psb_z_base_vect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine z_base_set_sync(x) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x - + end subroutine z_base_set_sync ! !> Function base_is_dev: !! \memberof psb_z_base_vect_type !! \brief Is vector on external device . - !! + !! ! function z_base_is_dev(x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x logical :: res - + res = .false. end function z_base_is_dev - + ! !> Function base_is_host !! \memberof psb_z_base_vect_type !! \brief Is vector on standard memory . - !! + !! ! function z_base_is_host(x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x logical :: res @@ -674,10 +680,10 @@ contains !> Function base_is_sync !! \memberof psb_z_base_vect_type !! \brief Is vector on sync . - !! + !! ! function z_base_is_sync(x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x logical :: res @@ -686,16 +692,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_get_nrows !! \memberof psb_z_base_vect_type !! \brief Number of entries - !! + !! ! function z_base_get_nrows(x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -708,13 +714,13 @@ contains !> Function base_get_sizeof !! \memberof psb_z_base_vect_type !! \brief Size in bytes - !! + !! ! function z_base_sizeof(x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(in) :: x integer(psb_epk_) :: res - + ! Force 8-byte integers. res = (1_psb_epk_ * (2*psb_sizeof_dp)) * x%get_nrows() @@ -724,14 +730,14 @@ contains !> Function base_get_fmt !! \memberof psb_z_base_vect_type !! \brief Format - !! + !! ! function z_base_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function z_base_get_fmt - + ! ! @@ -740,7 +746,7 @@ contains !! \memberof psb_z_base_vect_type !! \brief Extract a copy of the contents !! - ! + ! function z_base_get_vect(x,n) result(res) class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), allocatable :: res(:) @@ -748,21 +754,21 @@ contains 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() isz = x%get_nrows() if (present(n)) isz = max(0,min(isz,n)) - allocate(res(isz),stat=info) - if (info /= 0) then + allocate(res(isz),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_get_vect') return end if res(1:isz) = x%v(1:isz) end function z_base_get_vect - + ! - ! Reset all values + ! Reset all values ! ! !> Function base_set_scal @@ -771,18 +777,18 @@ contains !! \param val The value to set !! subroutine z_base_set_scal(x,val,first,last) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_ first_=1 last_=size(x%v) if (present(first)) first_ = max(1,first) if (present(last)) last_ = min(last,last_) - + if (x%is_dev()) call x%sync() x%v(first_:last_) = val call x%set_host() @@ -794,14 +800,14 @@ contains !> Function base_set_vect !! \memberof psb_z_base_vect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine z_base_set_vect(x,val,first,last) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), optional :: first, last - + integer(psb_ipk_) :: info, first_, last_, nr first_ = 1 @@ -809,7 +815,7 @@ contains last_ = min(psb_size(x%v),first_+size(val)-1) if (present(last)) last_ = min(last,last_) - if (allocated(x%v)) then + if (allocated(x%v)) then if (x%is_dev()) call x%sync() x%v(first_:last_) = val(1:last_-first_+1) else @@ -829,7 +835,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine z_base_absval1(x) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x if (allocated(x%v)) then @@ -841,21 +847,21 @@ contains end subroutine z_base_absval1 subroutine z_base_absval2(x,y) - implicit none - class(psb_z_base_vect_type), intent(inout) :: x + implicit none + class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y integer(psb_ipk_) :: info if (.not.x%is_host()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(ione*min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info) call y%absval() end if - + end subroutine z_base_absval2 ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_dot_v !! \memberof psb_z_base_vect_type @@ -864,12 +870,12 @@ contains !! \param y The other (base_vect) to be multiplied by !! function z_base_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res complex(psb_dpk_), external :: zdotc - + res = zzero ! ! Note: this is the base implementation. @@ -898,19 +904,19 @@ contains !! \param y(:) The array to be multiplied by !! function z_base_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res complex(psb_dpk_), external :: zdotc - + res = zdotc(n,y,1,x%v,1) end function z_base_dot_a - + ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -925,13 +931,13 @@ contains !! subroutine z_base_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (x%is_dev()) call x%sync() call y%axpby(m,alpha,x%v,beta,info) @@ -939,7 +945,7 @@ contains end subroutine z_base_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_axpby_a @@ -953,20 +959,20 @@ contains !! subroutine z_base_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - + if (y%is_dev()) call y%sync() call psb_geaxpby(m,alpha,x,beta,y%v,info) call y%set_host() - + end subroutine z_base_axpby_a - + ! ! Multiple variants of two operations: ! Simple multiplication Y(:) = X(:)*Y(:) @@ -984,10 +990,10 @@ contains !! subroutine z_base_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1005,7 +1011,7 @@ contains !! subroutine z_base_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -1014,7 +1020,7 @@ contains info = 0 if (y%is_dev()) call y%sync() n = min(size(y%v), size(x)) - do i=1, n + do i=1, n y%v(i) = y%v(i)*x(i) end do call y%set_host() @@ -1035,7 +1041,7 @@ contains !! subroutine z_base_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: y(:) complex(psb_dpk_), intent(in) :: x(:) @@ -1043,58 +1049,58 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (z%is_dev()) call z%sync() n = min(size(z%v), size(x), size(y)) - if (alpha == zzero) then - if (beta == zone) then - return + if (alpha == zzero) then + if (beta == zone) then + return else do i=1, n z%v(i) = beta*z%v(i) end do end if else - if (alpha == zone) then - if (beta == zzero) then - do i=1, n + if (alpha == zone) then + if (beta == zzero) then + do i=1, n z%v(i) = y(i)*x(i) end do - else if (beta == zone) then - do i=1, n + else if (beta == zone) then + do i=1, n z%v(i) = z%v(i) + y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do end if - else if (alpha == -zone) then - if (beta == zzero) then - do i=1, n + else if (alpha == -zone) then + if (beta == zzero) then + do i=1, n z%v(i) = -y(i)*x(i) end do - else if (beta == zone) then - do i=1, n + else if (beta == zone) then + do i=1, n z%v(i) = z%v(i) - y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else - if (beta == zzero) then - do i=1, n + if (beta == zzero) then + do i=1, n z%v(i) = alpha*y(i)*x(i) end do - else if (beta == zone) then - do i=1, n + else if (beta == zone) then + do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do - else - do i=1, n + else + do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do end if @@ -1118,12 +1124,12 @@ contains subroutine z_base_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: y class(psb_z_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -1133,7 +1139,7 @@ contains if (x%is_dev()) call x%sync() if (.not.psb_z_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -1148,12 +1154,12 @@ contains subroutine z_base_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_vect_type), intent(inout) :: y class(psb_z_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1164,12 +1170,12 @@ contains subroutine z_base_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: y(:) class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -1177,10 +1183,57 @@ contains call z%mlt(alpha,y,x,beta,info) end subroutine z_base_mlt_va + ! + !> Function base_div_v + !! \memberof psb_z_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine z_base_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info) + + + end subroutine z_base_div_v + ! + !> Function base_div_a2 + !! \memberof psb_z_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y + !! \param x(:) The array to be multiplied by + !! \param info return code + !! + subroutine z_base_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: z + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + z%v(i) = x(i)/y(i) + end do + + end subroutine z_base_div_a2 + ! - ! Simple scaling + ! Simple scaling ! !> Function base_scal !! \memberof psb_z_base_vect_type @@ -1189,17 +1242,17 @@ contains !! subroutine z_base_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x complex(psb_dpk_), intent (in) :: alpha - - if (allocated(x%v)) then + + if (allocated(x%v)) then x%v = alpha*x%v call x%set_host() end if end subroutine z_base_scal - + ! ! Norms 1, 2 and infinity ! @@ -1208,28 +1261,28 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function z_base_nrm2(n,x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res real(psb_dpk_), external :: dznrm2 - + if (x%is_dev()) call x%sync() res = dznrm2(n,x%v,1) end function z_base_nrm2 - + ! !> Function base_amax !! \memberof psb_z_base_vect_type !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function z_base_amax(n,x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - + if (x%is_dev()) call x%sync() res = maxval(abs(x%v(1:n))) @@ -1241,17 +1294,17 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function z_base_asum(n,x) result(res) - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - + if (x%is_dev()) call x%sync() res = sum(abs(x%v(1:n))) end function z_base_asum - - + + ! ! Gather: Y = beta * Y + alpha * X(IDX(:)) ! @@ -1266,18 +1319,18 @@ contains !! \param beta subroutine z_base_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: alpha, beta, y(:) class(psb_z_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,alpha,x%v,beta,y) end subroutine z_base_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_z_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1286,28 +1339,28 @@ contains !! \param idx(:) indices subroutine z_base_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx complex(psb_dpk_) :: y(:) class(psb_z_base_vect_type) :: x - + if (idx%is_dev()) call idx%sync() call x%gth(n,idx%v(i:),y) end subroutine z_base_gthzv_x ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine z_base_gthzbuf(i,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx class(psb_z_base_vect_type) :: x - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -1320,22 +1373,22 @@ contains !> Function base_device_wait: !! \memberof psb_z_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine z_base_device_wait() - implicit none - + implicit none + end subroutine z_base_device_wait function z_base_use_buffer() result(res) logical :: res - + res = .true. end function z_base_use_buffer subroutine z_base_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1345,7 +1398,7 @@ contains subroutine z_base_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -1356,7 +1409,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_gthzv !! \memberof psb_z_base_vect_type !! \brief gather into an array special alpha=1 beta=0 @@ -1365,20 +1418,20 @@ contains !! \param idx(:) indices subroutine z_base_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: y(:) class(psb_z_base_vect_type) :: x - + if (x%is_dev()) call x%sync() call psi_gth(n,idx,x%v,y) end subroutine z_base_gthzv ! - ! Scatter: + ! Scatter: ! Y(IDX(:)) = beta*Y(IDX(:)) + X(:) - ! + ! ! !> Function base_sctb !! \memberof psb_z_base_vect_type @@ -1387,14 +1440,14 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine z_base_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:) class(psb_z_base_vect_type) :: y - + if (y%is_dev()) call y%sync() call psi_sct(n,idx,x,beta,y%v) call y%set_host() @@ -1403,12 +1456,12 @@ contains subroutine z_base_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex(psb_dpk_) :: beta, x(:) class(psb_z_base_vect_type) :: y - + if (idx%is_dev()) call idx%sync() call y%sct(n,idx%v(i:),x,beta) call y%set_host() @@ -1417,14 +1470,14 @@ contains subroutine z_base_sctb_buf(i,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex(psb_dpk_) :: beta class(psb_z_base_vect_type) :: y - - - if (.not.allocated(y%combuf)) then + + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -1449,22 +1502,22 @@ module psb_z_base_multivect_mod use psb_z_base_vect_mod !> \namespace psb_base_mod \class psb_z_base_vect_type - !! The psb_z_base_vect_type + !! The psb_z_base_vect_type !! defines a middle level integer(psb_ipk_) encapsulated dense vector. - !! The encapsulation is needed, in place of a simple array, to allow + !! The encapsulation is needed, in place of a simple array, to allow !! for complicated situations, such as GPU programming, where the memory !! area we are interested in is not easily accessible from the host/Fortran !! side. It is also meant to be encapsulated in an outer type, to allow !! runtime switching as per the STATE design pattern, similar to the !! sparse matrix types. !! - private + private public :: psb_z_base_multivect, psb_z_base_multivect_type type psb_z_base_multivect_type - !> Values. + !> Values. complex(psb_dpk_), allocatable :: v(:,:) - complex(psb_dpk_), allocatable :: combuf(:) + complex(psb_dpk_), allocatable :: combuf(:) integer(psb_mpk_), allocatable :: comid(:,:) contains ! @@ -1478,7 +1531,7 @@ module psb_z_base_multivect_mod ! ! Insert/set. Assembly and free. ! Assembly does almost nothing here, but is important - ! in derived classes. + ! in derived classes. ! procedure, pass(x) :: ins => z_base_mlv_ins procedure, pass(x) :: zero => z_base_mlv_zero @@ -1489,7 +1542,7 @@ module psb_z_base_multivect_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(x) :: sync => z_base_mlv_sync procedure, pass(x) :: is_host => z_base_mlv_is_host @@ -1562,7 +1615,7 @@ module psb_z_base_multivect_mod ! ! Gather/scatter. These are needed for MPI interfacing. - ! May have to be reworked. + ! May have to be reworked. ! procedure, pass(x) :: gthab => z_base_mlv_gthab procedure, pass(x) :: gthzv => z_base_mlv_gthzv @@ -1584,7 +1637,7 @@ module psb_z_base_multivect_mod contains ! - ! Constructors. + ! Constructors. ! !> Function constructor: @@ -1603,7 +1656,7 @@ contains !> Function constructor: !! \brief Constructor from size - !! \param n Size of vector to be built. + !! \param n Size of vector to be built. !! function size_const(m,n) result(this) integer(psb_ipk_), intent(in) :: m,n @@ -1630,7 +1683,7 @@ contains integer(psb_ipk_) :: info call psb_realloc(size(this,1),size(this,2),x%v,info) - if (info /= 0) then + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_vect_bld') return end if @@ -1645,7 +1698,7 @@ contains !> Function bld_n: !! \memberof psb_z_base_multivect_type !! \brief Build method with size (uninitialized data) - !! \param n size to be allocated. + !! \param n size to be allocated. !! subroutine z_base_mlv_bld_n(x,m,n) use psb_realloc_mod @@ -1662,13 +1715,13 @@ contains !! \memberof psb_z_base_multivect_type !! \brief Build method with size (uninitialized data) and !! allocation return code. - !! \param n size to be allocated. + !! \param n size to be allocated. !! \param info return code !! subroutine z_base_mlv_all(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_base_multivect_type), intent(out) :: x integer(psb_ipk_), intent(out) :: info @@ -1686,7 +1739,7 @@ contains subroutine z_base_mlv_mold(x, y, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x class(psb_z_base_multivect_type), intent(out), allocatable :: y integer(psb_ipk_), intent(out) :: info @@ -1700,21 +1753,21 @@ contains ! !> Function base_mlv_ins: !! \memberof psb_z_base_multivect_type - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of N pairs !! (IRL(i),VAL(i)) !! record a new coefficient in X such that !! X(IRL(1:N)) = VAL(1:N). - !! + !! !! - the update operation will perform either !! X(IRL(1:n)) = VAL(1:N) !! or !! X(IRL(1:n)) = X(IRL(1:n))+VAL(1:N) !! according to the value of DUPLICATE. - !! - !! + !! + !! !! \param n number of pairs in input !! \param irl(:) the input row indices !! \param val(:) the input coefficients @@ -1724,7 +1777,7 @@ contains ! subroutine z_base_mlv_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1734,21 +1787,21 @@ contains integer(psb_ipk_) :: i, isz info = 0 - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ - else if (n > min(size(irl),size(val))) then + else if (n > min(size(irl),size(val))) then info = psb_err_invalid_input_ - else + else isz = size(x%v,1) - select case(dupl) - case(psb_dupl_ovwrt_) + select case(dupl) + case(psb_dupl_ovwrt_) do i = 1, n !loop over all val's rows - ! row actual block row + ! row actual block row if ((1 <= irl(i)).and.(irl(i) <= isz)) then ! this row belongs to me ! copy i-th row of block val in x @@ -1756,7 +1809,7 @@ contains end if enddo - case(psb_dupl_add_) + case(psb_dupl_add_) do i = 1, n !loop over all val's rows @@ -1773,7 +1826,7 @@ contains ! !$ goto 9999 end select end if - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,'base_mlv_vect_ins') return end if @@ -1788,7 +1841,7 @@ contains ! subroutine z_base_mlv_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x if (allocated(x%v)) x%v=zzero @@ -1804,7 +1857,7 @@ contains !> Function base_mlv_asb: !! \memberof psb_z_base_multivect_type !! \brief Assemble vector: reallocate as necessary. - !! + !! !! \param n final size !! \param info return code !! @@ -1813,7 +1866,7 @@ contains subroutine z_base_mlv_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1830,20 +1883,20 @@ contains !> Function base_mlv_free: !! \memberof psb_z_base_multivect_type !! \brief Free vector - !! + !! !! \param info return code !! ! subroutine z_base_mlv_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 if (allocated(x%v)) deallocate(x%v, stat=info) - if (info /= 0) call & + if (info /= 0) call & & psb_errpush(psb_err_alloc_dealloc_,'vect_free') end subroutine z_base_mlv_free @@ -1853,15 +1906,15 @@ contains ! ! The base version of SYNC & friends does nothing, it's just ! a placeholder. - ! + ! ! !> Function base_mlv_sync: !! \memberof psb_z_base_multivect_type !! \brief Sync: base version is a no-op. - !! + !! ! subroutine z_base_mlv_sync(x) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x end subroutine z_base_mlv_sync @@ -1870,10 +1923,10 @@ contains !> Function base_mlv_set_host: !! \memberof psb_z_base_multivect_type !! \brief Set_host: base version is a no-op. - !! + !! ! subroutine z_base_mlv_set_host(x) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x end subroutine z_base_mlv_set_host @@ -1882,10 +1935,10 @@ contains !> Function base_mlv_set_dev: !! \memberof psb_z_base_multivect_type !! \brief Set_dev: base version is a no-op. - !! + !! ! subroutine z_base_mlv_set_dev(x) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x end subroutine z_base_mlv_set_dev @@ -1894,10 +1947,10 @@ contains !> Function base_mlv_set_sync: !! \memberof psb_z_base_multivect_type !! \brief Set_sync: base version is a no-op. - !! + !! ! subroutine z_base_mlv_set_sync(x) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x end subroutine z_base_mlv_set_sync @@ -1906,10 +1959,10 @@ contains !> Function base_mlv_is_dev: !! \memberof psb_z_base_multivect_type !! \brief Is vector on external device . - !! + !! ! function z_base_mlv_is_dev(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x logical :: res @@ -1920,10 +1973,10 @@ contains !> Function base_mlv_is_host !! \memberof psb_z_base_multivect_type !! \brief Is vector on standard memory . - !! + !! ! function z_base_mlv_is_host(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x logical :: res @@ -1934,10 +1987,10 @@ contains !> Function base_mlv_is_sync !! \memberof psb_z_base_multivect_type !! \brief Is vector on sync . - !! + !! ! function z_base_mlv_is_sync(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x logical :: res @@ -1946,16 +1999,16 @@ contains ! - ! Size info. + ! Size info. ! ! !> Function base_mlv_get_nrows !! \memberof psb_z_base_multivect_type !! \brief Number of entries - !! + !! ! function z_base_mlv_get_nrows(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1965,7 +2018,7 @@ contains end function z_base_mlv_get_nrows function z_base_mlv_get_ncols(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x integer(psb_ipk_) :: res @@ -1978,10 +2031,10 @@ contains !> Function base_mlv_get_sizeof !! \memberof psb_z_base_multivect_type !! \brief Size in bytesa - !! + !! ! function z_base_mlv_sizeof(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(in) :: x integer(psb_epk_) :: res @@ -1994,10 +2047,10 @@ contains !> Function base_mlv_get_fmt !! \memberof psb_z_base_multivect_type !! \brief Format - !! + !! ! function z_base_mlv_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'BASE' end function z_base_mlv_get_fmt @@ -2010,18 +2063,18 @@ contains !! \memberof psb_z_base_multivect_type !! \brief Extract a copy of the contents !! - ! + ! function z_base_mlv_get_vect(x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x complex(psb_dpk_), allocatable :: res(:,:) integer(psb_ipk_) :: info,m,n m = x%get_nrows() n = x%get_ncols() - if (.not.allocated(x%v)) return + if (.not.allocated(x%v)) return call x%sync() - allocate(res(m,n),stat=info) - if (info /= 0) then + allocate(res(m,n),stat=info) + if (info /= 0) then call psb_errpush(psb_err_alloc_dealloc_,'base_mlv_get_vect') return end if @@ -2029,7 +2082,7 @@ contains end function z_base_mlv_get_vect ! - ! Reset all values + ! Reset all values ! ! !> Function base_mlv_set_scal @@ -2038,7 +2091,7 @@ contains !! \param val The value to set !! subroutine z_base_mlv_set_scal(x,val) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val @@ -2051,16 +2104,16 @@ contains !> Function base_mlv_set_vect !! \memberof psb_z_base_multivect_type !! \brief Set all entries - !! \param val(:) The vector to be copied in + !! \param val(:) The vector to be copied in !! subroutine z_base_mlv_set_vect(x,val) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_) :: nr, nc integer(psb_ipk_) :: info - if (allocated(x%v)) then + if (allocated(x%v)) then nr = min(size(x%v,1),size(val,1)) nc = min(size(x%v,2),size(val,2)) @@ -2072,8 +2125,8 @@ contains end subroutine z_base_mlv_set_vect ! - ! Dot products - ! + ! Dot products + ! ! !> Function base_mlv_dot_v !! \memberof psb_z_base_multivect_type @@ -2082,7 +2135,7 @@ contains !! \param y The other (base_mlv_vect) to be multiplied by !! function z_base_mlv_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), allocatable :: res(:) @@ -2094,7 +2147,7 @@ contains ! ! Note: this is the base implementation. ! When we get here, we are sure that X is of - ! TYPE psb_z_base_mlv_vect (or its class does not care). + ! TYPE psb_z_base_mlv_vect (or its class does not care). ! If Y is not, throw the burden on it, implicitly ! calling dot_a ! @@ -2123,7 +2176,7 @@ contains !! \param y(:) The array to be multiplied by !! function z_base_mlv_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: y(:,:) integer(psb_ipk_), intent(in) :: n @@ -2141,7 +2194,7 @@ contains end function z_base_mlv_dot_a ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! ! @@ -2156,7 +2209,7 @@ contains !! subroutine z_base_mlv_axpby_v(m,alpha, x, beta, y, info, n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_z_base_multivect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: y @@ -2180,7 +2233,7 @@ contains end subroutine z_base_mlv_axpby_v ! - ! AXPBY is invoked via Y, hence the structure below. + ! AXPBY is invoked via Y, hence the structure below. ! ! !> Function base_mlv_axpby_a @@ -2194,7 +2247,7 @@ contains !! subroutine z_base_mlv_axpby_a(m,alpha, x, beta, y, info,n) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent(in) :: x(:,:) class(psb_z_base_multivect_type), intent(inout) :: y @@ -2230,10 +2283,10 @@ contains !! subroutine z_base_mlv_mlt_mv(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2243,10 +2296,10 @@ contains subroutine z_base_mlv_mlt_mv_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_z_base_vect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info info = 0 if (x%is_dev()) call x%sync() @@ -2263,7 +2316,7 @@ contains !! subroutine z_base_mlv_mlt_ar1(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: x(:) class(psb_z_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2271,7 +2324,7 @@ contains info = 0 n = min(psb_size(y%v,1_psb_ipk_), size(x)) - do i=1, n + do i=1, n y%v(i,:) = y%v(i,:)*x(i) end do @@ -2286,7 +2339,7 @@ contains !! subroutine z_base_mlv_mlt_ar2(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: x(:,:) class(psb_z_base_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -2313,7 +2366,7 @@ contains !! subroutine z_base_mlv_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: y(:,:) complex(psb_dpk_), intent(in) :: x(:,:) @@ -2321,38 +2374,38 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, nr, nc - info = 0 + info = 0 nr = min(psb_size(z%v,1_psb_ipk_), size(x,1), size(y,1)) - nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) - if (alpha == zzero) then - if (beta == zone) then - return + nc = min(psb_size(z%v,2_psb_ipk_), size(x,2), size(y,2)) + if (alpha == zzero) then + if (beta == zone) then + return else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) end if else - if (alpha == zone) then - if (beta == zzero) then + if (alpha == zone) then + if (beta == zzero) then z%v(1:nr,1:nc) = y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == zone) then + else if (beta == zone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + y(1:nr,1:nc)*x(1:nr,1:nc) end if - else if (alpha == -zone) then - if (beta == zzero) then + else if (alpha == -zone) then + if (beta == zzero) then z%v(1:nr,1:nc) = -y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == zone) then + else if (beta == zone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) - y(1:nr,1:nc)*x(1:nr,1:nc) end if else - if (beta == zzero) then + if (beta == zzero) then z%v(1:nr,1:nc) = alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else if (beta == zone) then + else if (beta == zone) then z%v(1:nr,1:nc) = z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) - else + else z%v(1:nr,1:nc) = beta*z%v(1:nr,1:nc) + alpha*y(1:nr,1:nc)*x(1:nr,1:nc) end if end if @@ -2373,12 +2426,12 @@ contains subroutine z_base_mlv_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod use psb_string_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta class(psb_z_base_multivect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: y class(psb_z_base_multivect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n logical :: conjgx_, conjgy_ @@ -2389,7 +2442,7 @@ contains if (z%is_dev()) call z%sync() if (.not.psb_z_is_complex_) then call z%mlt(alpha,x%v,y%v,beta,info) - else + else conjgx_=.false. if (present(conjgx)) conjgx_ = (psb_toupper(conjgx)=='C') conjgy_=.false. @@ -2404,39 +2457,39 @@ contains !!$ !!$ subroutine z_base_mlv_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ complex(psb_dpk_), intent(in) :: x(:) !!$ class(psb_z_base_multivect_type), intent(inout) :: y !!$ class(psb_z_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,x,y%v,beta,info) !!$ !!$ end subroutine z_base_mlv_mlt_av !!$ !!$ subroutine z_base_mlv_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ complex(psb_dpk_), intent(in) :: y(:) !!$ class(psb_z_base_multivect_type), intent(inout) :: x !!$ class(psb_z_base_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ call z%mlt(alpha,y,x,beta,info) !!$ !!$ end subroutine z_base_mlv_mlt_va !!$ !!$ ! - ! Simple scaling + ! Simple scaling ! !> Function base_mlv_scal !! \memberof psb_z_base_multivect_type @@ -2445,7 +2498,7 @@ contains !! subroutine z_base_mlv_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x complex(psb_dpk_), intent (in) :: alpha @@ -2462,7 +2515,7 @@ contains !! \brief 2-norm |x(1:n)|_2 !! \param n how many entries to consider function z_base_mlv_nrm2(n,x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2484,7 +2537,7 @@ contains !! \brief infinity-norm |x(1:n)|_\infty !! \param n how many entries to consider function z_base_mlv_amax(n,x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2505,7 +2558,7 @@ contains !! \brief 1-norm |x(1:n)|_1 !! \param n how many entries to consider function z_base_mlv_asum(n,x) result(res) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_), allocatable :: res(:) @@ -2528,7 +2581,7 @@ contains !! \brief Set all entries to their respective absolute values. !! subroutine z_base_mlv_absval1(x) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x if (allocated(x%v)) then @@ -2540,13 +2593,13 @@ contains end subroutine z_base_mlv_absval1 subroutine z_base_mlv_absval2(x,y) - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x class(psb_z_base_multivect_type), intent(inout) :: y integer(psb_ipk_) :: info - + if (x%is_dev()) call x%sync() - if (allocated(x%v)) then + if (allocated(x%v)) then call y%axpby(min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info) call y%absval() end if @@ -2555,15 +2608,15 @@ contains function z_base_mlv_use_buffer() result(res) - implicit none + implicit none logical :: res - + res = .true. end function z_base_mlv_use_buffer subroutine z_base_mlv_new_buffer(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2575,7 +2628,7 @@ contains subroutine z_base_mlv_new_comid(n,x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(out) :: info @@ -2586,12 +2639,12 @@ contains subroutine z_base_mlv_maybe_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (psb_get_maybe_free_buffer())& & call x%free_buffer(info) @@ -2599,7 +2652,7 @@ contains subroutine z_base_mlv_free_buffer(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2609,7 +2662,7 @@ contains subroutine z_base_mlv_free_comid(x,info) use psb_realloc_mod - implicit none + implicit none class(psb_z_base_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -2632,7 +2685,7 @@ contains !! \param beta subroutine z_base_mlv_gthab(n,idx,alpha,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: alpha, beta, y(:) class(psb_z_base_multivect_type) :: x @@ -2648,7 +2701,7 @@ contains end subroutine z_base_mlv_gthab ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_z_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2657,7 +2710,7 @@ contains !! \param idx(:) indices subroutine z_base_mlv_gthzv_x(i,n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i,n class(psb_i_base_vect_type) :: idx complex(psb_dpk_) :: y(:) @@ -2670,7 +2723,7 @@ contains ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_z_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2679,7 +2732,7 @@ contains !! \param idx(:) indices subroutine z_base_mlv_gthzv(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: y(:) class(psb_z_base_multivect_type) :: x @@ -2696,7 +2749,7 @@ contains end subroutine z_base_mlv_gthzv ! ! shortcut alpha=1 beta=0 - ! + ! !> Function base_mlv_gthzv !! \memberof psb_z_base_multivect_type !! \brief gather into an array special alpha=1 beta=0 @@ -2705,7 +2758,7 @@ contains !! \param idx(:) indices subroutine z_base_mlv_gthzm(n,idx,x,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: y(:,:) class(psb_z_base_multivect_type) :: x @@ -2722,17 +2775,17 @@ contains end subroutine z_base_mlv_gthzm ! - ! New comm internals impl. + ! New comm internals impl. ! subroutine z_base_mlv_gthzbuf(i,ixb,n,idx,x) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, ixb, n class(psb_i_base_vect_type) :: idx class(psb_z_base_multivect_type) :: x integer(psb_ipk_) :: nc - - if (.not.allocated(x%combuf)) then + + if (.not.allocated(x%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'gthzbuf') return end if @@ -2744,9 +2797,9 @@ contains end subroutine z_base_mlv_gthzbuf ! - ! Scatter: + ! Scatter: ! Y(IDX(:),:) = beta*Y(IDX(:),:) + X(:) - ! + ! ! !> Function base_mlv_sctb !! \memberof psb_z_base_multivect_type @@ -2755,10 +2808,10 @@ contains !! \param n how many entries to consider !! \param idx(:) indices !! \param beta - !! \param x(:) + !! \param x(:) subroutine z_base_mlv_sctb(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:) class(psb_z_base_multivect_type) :: y @@ -2773,7 +2826,7 @@ contains subroutine z_base_mlv_sctbr2(n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:,:) class(psb_z_base_multivect_type) :: y @@ -2788,7 +2841,7 @@ contains subroutine z_base_mlv_sctb_x(i,n,idx,x,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, n class(psb_i_base_vect_type) :: idx complex( psb_dpk_) :: beta, x(:) @@ -2800,14 +2853,14 @@ contains subroutine z_base_mlv_sctb_buf(i,iyb,n,idx,beta,y) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_) :: i, iyb, n class(psb_i_base_vect_type) :: idx complex(psb_dpk_) :: beta class(psb_z_base_multivect_type) :: y integer(psb_ipk_) :: nc - - if (.not.allocated(y%combuf)) then + + if (.not.allocated(y%combuf)) then call psb_errpush(psb_err_alloc_dealloc_,'sctb_buf') return end if @@ -2816,19 +2869,18 @@ contains nc = y%get_ncols() call y%sct(n,idx%v(i:),y%combuf(iyb:),beta) call y%set_host() - + end subroutine z_base_mlv_sctb_buf ! !> Function base_device_wait: !! \memberof psb_z_base_vect_type !! \brief device_wait: base version is a no-op. - !! + !! ! subroutine z_base_mlv_device_wait() - implicit none - + implicit none + end subroutine z_base_mlv_device_wait end module psb_z_base_multivect_mod - diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index f6da1ded4..b65ba18bd 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,15 +27,15 @@ ! 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. -! -! +! +! ! ! package: psb_z_vect_mod ! ! This module contains the definition of the psb_z_vect type which ! is the outer container for dense vectors. ! Therefore all methods simply invoke the corresponding methods of the -! inner component. +! inner component. ! module psb_z_vect_mod @@ -43,7 +43,7 @@ module psb_z_vect_mod use psb_i_vect_mod type psb_z_vect_type - class(psb_z_base_vect_type), allocatable :: v + class(psb_z_base_vect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => z_vect_get_nrows procedure, pass(x) :: sizeof => z_vect_sizeof @@ -94,13 +94,16 @@ module psb_z_vect_mod procedure, pass(z) :: mlt_av => z_vect_mlt_av generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va + procedure, pass(x) :: div_v => z_vect_div_v + procedure, pass(z) :: div_a2 => z_vect_div_a2 + generic, public :: div => div_v, div_a2 procedure, pass(x) :: scal => z_vect_scal procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2 => z_vect_nrm2 procedure, pass(x) :: amax => z_vect_amax - procedure, pass(x) :: asum => z_vect_asum + procedure, pass(x) :: asum => z_vect_asum end type psb_z_vect_type public :: psb_z_vect @@ -122,7 +125,7 @@ module psb_z_vect_mod 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, & & z_vect_mlt_va, z_vect_mlt_av, z_vect_scal, z_vect_absval1, & - & z_vect_absval2, z_vect_nrm2, z_vect_amax, z_vect_asum + & z_vect_absval2, z_vect_nrm2, z_vect_amax, z_vect_asum @@ -141,11 +144,11 @@ module psb_z_vect_mod contains - subroutine psb_z_set_vect_default(v) - implicit none + subroutine psb_z_set_vect_default(v) + implicit none class(psb_z_base_vect_type), intent(in) :: v - if (allocated(psb_z_base_vect_default)) then + if (allocated(psb_z_base_vect_default)) then deallocate(psb_z_base_vect_default) end if allocate(psb_z_base_vect_default, mold=v) @@ -153,7 +156,7 @@ contains end subroutine psb_z_set_vect_default function psb_z_get_vect_default(v) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(in) :: v class(psb_z_base_vect_type), pointer :: res @@ -163,10 +166,10 @@ contains function psb_z_get_base_vect_default() result(res) - implicit none + implicit none class(psb_z_base_vect_type), pointer :: res - if (.not.allocated(psb_z_base_vect_default)) then + if (.not.allocated(psb_z_base_vect_default)) then allocate(psb_z_base_vect_type :: psb_z_base_vect_default) end if @@ -176,14 +179,14 @@ contains subroutine z_vect_clone(x,y,info) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine z_vect_clone @@ -198,7 +201,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_z_get_base_vect_default()) @@ -220,7 +223,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_z_get_base_vect_default()) @@ -241,7 +244,7 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_z_get_base_vect_default()) @@ -304,7 +307,7 @@ contains end function size_const function z_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -312,7 +315,7 @@ contains end function z_vect_get_nrows function z_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -320,7 +323,7 @@ contains end function z_vect_sizeof function z_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -329,7 +332,7 @@ contains subroutine z_vect_all(n, x, info, mold) - implicit none + 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 @@ -338,12 +341,12 @@ contains if (allocated(x%v)) & & call x%free(info) - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_z_base_vect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(n,info) else info = psb_err_alloc_dealloc_ @@ -353,12 +356,12 @@ contains subroutine z_vect_reall(n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(n,info) if (info == 0) & @@ -368,7 +371,7 @@ contains subroutine z_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -378,7 +381,7 @@ contains subroutine z_vect_asb(n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -424,12 +427,12 @@ contains subroutine z_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -438,7 +441,7 @@ contains subroutine z_vect_ins_a(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -448,7 +451,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -459,7 +462,7 @@ contains subroutine z_vect_ins_v(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl class(psb_i_vect_type), intent(inout) :: irl @@ -469,7 +472,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then + if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if @@ -487,12 +490,12 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info,mold=psb_z_get_base_vect_default()) end if - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -503,7 +506,7 @@ contains subroutine z_vect_sync(x) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -512,7 +515,7 @@ contains end subroutine z_vect_sync subroutine z_vect_set_sync(x) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -521,7 +524,7 @@ contains end subroutine z_vect_set_sync subroutine z_vect_set_host(x) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -530,7 +533,7 @@ contains end subroutine z_vect_set_host subroutine z_vect_set_dev(x) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x if (allocated(x%v)) & @@ -539,7 +542,7 @@ contains end subroutine z_vect_set_dev function z_vect_is_sync(x) result(res) - implicit none + implicit none logical :: res class(psb_z_vect_type), intent(inout) :: x @@ -550,7 +553,7 @@ contains end function z_vect_is_sync function z_vect_is_host(x) result(res) - implicit none + implicit none logical :: res class(psb_z_vect_type), intent(inout) :: x @@ -561,11 +564,11 @@ contains end function z_vect_is_host function z_vect_is_dev(x) result(res) - implicit none + implicit none logical :: res class(psb_z_vect_type), intent(inout) :: x - res = .false. + res = .false. if (allocated(x%v)) & & res = x%v%is_dev() @@ -573,7 +576,7 @@ contains function z_vect_dot_v(n,x,y) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x, y integer(psb_ipk_), intent(in) :: n complex(psb_dpk_) :: res @@ -585,7 +588,7 @@ contains end function z_vect_dot_v function z_vect_dot_a(n,x,y) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), intent(in) :: y(:) integer(psb_ipk_), intent(in) :: n @@ -599,14 +602,14 @@ contains subroutine z_vect_axpby_v(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info - if (allocated(x%v).and.allocated(y%v)) then + if (allocated(x%v).and.allocated(y%v)) then call y%v%axpby(m,alpha,x%v,beta,info) else info = psb_err_invalid_vect_state_ @@ -616,7 +619,7 @@ contains subroutine z_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y @@ -631,10 +634,10 @@ contains subroutine z_vect_mlt_v(x, y, info) use psi_serial_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -645,7 +648,7 @@ contains subroutine z_vect_mlt_a(x, y, info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info @@ -661,7 +664,7 @@ contains subroutine z_vect_mlt_a_2(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: y(:) complex(psb_dpk_), intent(in) :: x(:) @@ -669,7 +672,7 @@ contains integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n - info = 0 + info = 0 if (allocated(z%v)) & & call z%v%mlt(alpha,x,y,beta,info) @@ -677,12 +680,12 @@ contains subroutine z_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y class(psb_z_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info character(len=1), intent(in), optional :: conjgx, conjgy integer(psb_ipk_) :: i, n @@ -696,12 +699,12 @@ contains subroutine z_vect_mlt_av(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: x(:) class(psb_z_vect_type), intent(inout) :: y class(psb_z_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -712,12 +715,12 @@ contains subroutine z_vect_mlt_va(alpha,x,y,beta,z,info) use psi_serial_mod - implicit none + implicit none complex(psb_dpk_), intent(in) :: alpha,beta complex(psb_dpk_), intent(in) :: y(:) class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info integer(psb_ipk_) :: i, n info = 0 @@ -727,9 +730,38 @@ contains end subroutine z_vect_mlt_va + subroutine z_vect_div_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info) + + end subroutine z_vect_div_v + + subroutine z_vect_div_a2(x, y, z, info) + use psi_serial_mod + implicit none + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info) + + end subroutine z_vect_div_a2 + subroutine z_vect_scal(alpha, x) use psi_serial_mod - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x complex(psb_dpk_), intent (in) :: alpha @@ -749,19 +781,19 @@ contains class(psb_z_vect_type), intent(inout) :: x class(psb_z_vect_type), intent(inout) :: y - if (allocated(x%v)) then + if (allocated(x%v)) then if (.not.allocated(y%v)) call y%bld(psb_size(x%v%v)) call x%v%absval(y%v) end if end subroutine z_vect_absval2 function z_vect_nrm2(n,x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%nrm2(n) else res = dzero @@ -770,12 +802,12 @@ contains end function z_vect_nrm2 function z_vect_amax(n,x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%amax(n) else res = dzero @@ -784,12 +816,12 @@ contains end function z_vect_amax function z_vect_asum(n,x) result(res) - implicit none + implicit none class(psb_z_vect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n real(psb_dpk_) :: res - if (allocated(x%v)) then + if (allocated(x%v)) then res = x%v%asum(n) else res = dzero @@ -812,7 +844,7 @@ module psb_z_multivect_mod !private type psb_z_multivect_type - class(psb_z_base_multivect_type), allocatable :: v + class(psb_z_base_multivect_type), allocatable :: v contains procedure, pass(x) :: get_nrows => z_vect_get_nrows procedure, pass(x) :: get_ncols => z_vect_get_ncols @@ -886,11 +918,11 @@ module psb_z_multivect_mod contains - subroutine psb_z_set_multivect_default(v) - implicit none + subroutine psb_z_set_multivect_default(v) + implicit none class(psb_z_base_multivect_type), intent(in) :: v - if (allocated(psb_z_base_multivect_default)) then + if (allocated(psb_z_base_multivect_default)) then deallocate(psb_z_base_multivect_default) end if allocate(psb_z_base_multivect_default, mold=v) @@ -898,7 +930,7 @@ contains end subroutine psb_z_set_multivect_default function psb_z_get_multivect_default(v) result(res) - implicit none + implicit none class(psb_z_multivect_type), intent(in) :: v class(psb_z_base_multivect_type), pointer :: res @@ -908,10 +940,10 @@ contains function psb_z_get_base_multivect_default() result(res) - implicit none + implicit none class(psb_z_base_multivect_type), pointer :: res - if (.not.allocated(psb_z_base_multivect_default)) then + if (.not.allocated(psb_z_base_multivect_default)) then allocate(psb_z_base_multivect_type :: psb_z_base_multivect_default) end if @@ -921,14 +953,14 @@ contains subroutine z_vect_clone(x,y,info) - implicit none + implicit none class(psb_z_multivect_type), intent(inout) :: x class(psb_z_multivect_type), intent(inout) :: y integer(psb_ipk_), intent(out) :: info info = psb_success_ call y%free(info) - if ((info==0).and.allocated(x%v)) then + if ((info==0).and.allocated(x%v)) then call y%bld(x%get_vect(),mold=x%v) end if end subroutine z_vect_clone @@ -941,7 +973,7 @@ contains class(psb_z_base_multivect_type), pointer :: mld info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_z_get_base_multivect_default()) @@ -959,7 +991,7 @@ contains integer(psb_ipk_) :: info info = psb_success_ - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(x%v,stat=info, mold=psb_z_get_base_multivect_default()) @@ -1019,7 +1051,7 @@ contains end function size_const function z_vect_get_nrows(x) result(res) - implicit none + implicit none class(psb_z_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1027,7 +1059,7 @@ contains end function z_vect_get_nrows function z_vect_get_ncols(x) result(res) - implicit none + implicit none class(psb_z_multivect_type), intent(in) :: x integer(psb_ipk_) :: res res = 0 @@ -1035,7 +1067,7 @@ contains end function z_vect_get_ncols function z_vect_sizeof(x) result(res) - implicit none + implicit none class(psb_z_multivect_type), intent(in) :: x integer(psb_epk_) :: res res = 0 @@ -1043,7 +1075,7 @@ contains end function z_vect_sizeof function z_vect_get_fmt(x) result(res) - implicit none + implicit none class(psb_z_multivect_type), intent(in) :: x character(len=5) :: res res = 'NULL' @@ -1052,18 +1084,18 @@ contains subroutine z_vect_all(m,n, x, info, mold) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_multivect_type), intent(out) :: x class(psb_z_base_multivect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info - if (present(mold)) then + if (present(mold)) then allocate(x%v,stat=info,mold=mold) else allocate(psb_z_base_multivect_type :: x%v,stat=info) endif - if (info == 0) then + if (info == 0) then call x%v%all(m,n,info) else info = psb_err_alloc_dealloc_ @@ -1073,12 +1105,12 @@ contains subroutine z_vect_reall(m,n, x, info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (.not.allocated(x%v)) & & call x%all(m,n,info) if (info == 0) & @@ -1088,7 +1120,7 @@ contains subroutine z_vect_zero(x) use psi_serial_mod - implicit none + implicit none class(psb_z_multivect_type), intent(inout) :: x if (allocated(x%v)) call x%v%zero() @@ -1098,7 +1130,7 @@ contains subroutine z_vect_asb(m,n, x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info @@ -1109,7 +1141,7 @@ contains end subroutine z_vect_asb subroutine z_vect_sync(x) - implicit none + implicit none class(psb_z_multivect_type), intent(inout) :: x if (allocated(x%v)) & @@ -1177,12 +1209,12 @@ contains subroutine z_vect_free(x, info) use psi_serial_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info info = 0 - if (allocated(x%v)) then + if (allocated(x%v)) then call x%v%free(info) if (info == 0) deallocate(x%v,stat=info) end if @@ -1191,7 +1223,7 @@ contains subroutine z_vect_ins(n,irl,val,dupl,x,info) use psi_serial_mod - implicit none + implicit none class(psb_z_multivect_type), intent(inout) :: x integer(psb_ipk_), intent(in) :: n, dupl integer(psb_ipk_), intent(in) :: irl(:) @@ -1201,7 +1233,7 @@ contains integer(psb_ipk_) :: i info = 0 - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if @@ -1217,12 +1249,12 @@ contains class(psb_z_base_multivect_type), allocatable :: tmp integer(psb_ipk_) :: info - if (present(mold)) then + if (present(mold)) then allocate(tmp,stat=info,mold=mold) else allocate(tmp,stat=info, mold=psb_z_get_base_multivect_default()) - endif - if (allocated(x%v)) then + endif + if (allocated(x%v)) then call x%v%sync() if (info == psb_success_) call tmp%bld(x%v%v) call x%v%free(info) @@ -1232,7 +1264,7 @@ contains !!$ function z_vect_dot_v(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x, y !!$ integer(psb_ipk_), intent(in) :: n !!$ complex(psb_dpk_) :: res @@ -1244,28 +1276,28 @@ contains !!$ end function z_vect_dot_v !!$ !!$ function z_vect_dot_a(n,x,y) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ complex(psb_dpk_), intent(in) :: y(:) !!$ integer(psb_ipk_), intent(in) :: n !!$ complex(psb_dpk_) :: res -!!$ +!!$ !!$ res = zzero !!$ if (allocated(x%v)) & !!$ & res = x%v%dot(n,y) -!!$ +!!$ !!$ end function z_vect_dot_a -!!$ +!!$ !!$ subroutine z_vect_axpby_v(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ class(psb_z_multivect_type), intent(inout) :: y !!$ complex(psb_dpk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ -!!$ if (allocated(x%v).and.allocated(y%v)) then +!!$ +!!$ if (allocated(x%v).and.allocated(y%v)) then !!$ call y%v%axpby(m,alpha,x%v,beta,info) !!$ else !!$ info = psb_err_invalid_vect_state_ @@ -1275,25 +1307,25 @@ contains !!$ !!$ subroutine z_vect_axpby_a(m,alpha, x, beta, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ integer(psb_ipk_), intent(in) :: m !!$ complex(psb_dpk_), intent(in) :: x(:) !!$ class(psb_z_multivect_type), intent(inout) :: y !!$ complex(psb_dpk_), intent (in) :: alpha, beta !!$ integer(psb_ipk_), intent(out) :: info -!!$ +!!$ !!$ if (allocated(y%v)) & !!$ & call y%v%axpby(m,alpha,x,beta,info) -!!$ +!!$ !!$ end subroutine z_vect_axpby_a !!$ -!!$ +!!$ !!$ subroutine z_vect_mlt_v(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ class(psb_z_multivect_type), intent(inout) :: y -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1304,7 +1336,7 @@ contains !!$ !!$ subroutine z_vect_mlt_a(x, y, info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: x(:) !!$ class(psb_z_multivect_type), intent(inout) :: y !!$ integer(psb_ipk_), intent(out) :: info @@ -1314,13 +1346,13 @@ contains !!$ info = 0 !!$ if (allocated(y%v)) & !!$ & call y%v%mlt(x,info) -!!$ +!!$ !!$ end subroutine z_vect_mlt_a !!$ !!$ !!$ subroutine z_vect_mlt_a_2(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ complex(psb_dpk_), intent(in) :: y(:) !!$ complex(psb_dpk_), intent(in) :: x(:) @@ -1328,20 +1360,20 @@ contains !!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ -!!$ info = 0 +!!$ info = 0 !!$ if (allocated(z%v)) & !!$ & call z%v%mlt(alpha,x,y,beta,info) -!!$ +!!$ !!$ end subroutine z_vect_mlt_a_2 !!$ !!$ subroutine z_vect_mlt_v_2(alpha,x,y,beta,z,info,conjgx,conjgy) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ class(psb_z_multivect_type), intent(inout) :: y !!$ class(psb_z_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ character(len=1), intent(in), optional :: conjgx, conjgy !!$ !!$ integer(psb_ipk_) :: i, n @@ -1355,12 +1387,12 @@ contains !!$ !!$ subroutine z_vect_mlt_av(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ complex(psb_dpk_), intent(in) :: x(:) !!$ class(psb_z_multivect_type), intent(inout) :: y !!$ class(psb_z_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 @@ -1371,16 +1403,16 @@ contains !!$ !!$ subroutine z_vect_mlt_va(alpha,x,y,beta,z,info) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ complex(psb_dpk_), intent(in) :: alpha,beta !!$ complex(psb_dpk_), intent(in) :: y(:) !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ class(psb_z_multivect_type), intent(inout) :: z -!!$ integer(psb_ipk_), intent(out) :: info +!!$ integer(psb_ipk_), intent(out) :: info !!$ integer(psb_ipk_) :: i, n !!$ !!$ info = 0 -!!$ +!!$ !!$ if (allocated(z%v).and.allocated(x%v)) & !!$ & call z%v%mlt(alpha,x%v,y,beta,info) !!$ @@ -1388,36 +1420,36 @@ contains !!$ !!$ subroutine z_vect_scal(alpha, x) !!$ use psi_serial_mod -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ complex(psb_dpk_), intent (in) :: alpha -!!$ +!!$ !!$ if (allocated(x%v)) call x%v%scal(alpha) !!$ !!$ end subroutine z_vect_scal !!$ !!$ !!$ function z_vect_nrm2(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res -!!$ -!!$ if (allocated(x%v)) then +!!$ +!!$ if (allocated(x%v)) then !!$ res = x%v%nrm2(n) !!$ else !!$ res = dzero !!$ end if !!$ !!$ end function z_vect_nrm2 -!!$ +!!$ !!$ function z_vect_amax(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%amax(n) !!$ else !!$ res = dzero @@ -1426,12 +1458,12 @@ contains !!$ end function z_vect_amax !!$ !!$ function z_vect_asum(n,x) result(res) -!!$ implicit none +!!$ implicit none !!$ class(psb_z_multivect_type), intent(inout) :: x !!$ integer(psb_ipk_), intent(in) :: n !!$ real(psb_dpk_) :: res !!$ -!!$ if (allocated(x%v)) then +!!$ if (allocated(x%v)) then !!$ res = x%v%asum(n) !!$ else !!$ res = dzero diff --git a/base/psblas/Makefile b/base/psblas/Makefile index bc583f17f..6e1b1a70a 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -10,25 +10,26 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_snrm2.o psb_snrmi.o psb_sspmm.o psb_sspsm.o\ psb_camax.o psb_casum.o psb_caxpby.o psb_cdot.o \ psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o \ - psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o + psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ + psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o LIBDIR=.. INCDIR=.. MODDIR=../modules -FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) +FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) -lib: $(OBJS) +lib: $(OBJS) $(AR) $(LIBDIR)/$(LIBNAME) $(OBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) -#$(F90_PSDOBJS): $(MODS) +#$(F90_PSDOBJS): $(MODS) veryclean: clean /bin/rm -f $(LIBNAME) -clean: +clean: /bin/rm -f $(OBJS) $(LOCAL_MODS) veryclean: clean diff --git a/base/psblas/psb_cdiv_vect.f90 b/base/psblas/psb_cdiv_vect.f90 new file mode 100644 index 000000000..38c7ce6a2 --- /dev/null +++ b/base/psblas/psb_cdiv_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_cdiv_vect + +subroutine psb_cdiv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cdiv_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_div_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cdiv_vect diff --git a/base/psblas/psb_ddiv_vect.f90 b/base/psblas/psb_ddiv_vect.f90 new file mode 100644 index 000000000..d9ab02037 --- /dev/null +++ b/base/psblas/psb_ddiv_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_ddiv_vect + +subroutine psb_ddiv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_ddiv_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_div_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ddiv_vect diff --git a/base/psblas/psb_sdiv_vect.f90 b/base/psblas/psb_sdiv_vect.f90 new file mode 100644 index 000000000..99a1ce7ca --- /dev/null +++ b/base/psblas/psb_sdiv_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_sdiv_vect + +subroutine psb_sdiv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_sdiv_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_div_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sdiv_vect diff --git a/base/psblas/psb_zdiv_vect.f90 b/base/psblas/psb_zdiv_vect.f90 new file mode 100644 index 000000000..949cbf7d5 --- /dev/null +++ b/base/psblas/psb_zdiv_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_zdiv_vect + +subroutine psb_zdiv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zdiv_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_div_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zdiv_vect diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 732a47087..e9cc88a8d 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -55,6 +55,7 @@ program vecoperation integer(psb_lpk_), allocatable :: myidx(:) real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf character(len=20) :: name,ch_err,readinput + real(psb_dpk_), allocatable :: vx(:), vy(:) info=psb_success_ @@ -139,6 +140,12 @@ program vecoperation t2 = psb_wtime() - t1 if (iam == psb_root_) write(psb_out_unit,'("Overall vector creation time : ",es12.5)')t2 + if (iam == psb_root_) then + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + end if ! ! Vector operations @@ -150,8 +157,33 @@ program vecoperation norminf = psb_normi(x,desc_a,info) if (iam == psb_root_) write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5," \|x\|_2",es12.5)')norminf,norm1,norm2 call psb_geaxpby(1.0_psb_dpk_, x, 1.0_psb_dpk_, y, desc_a, info) ! \alpha x + \beta y + + if (iam == psb_root_) then + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + end if + call psb_gemlt(x,y,desc_a,info) + if (iam == psb_root_) then + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + end if + + call psb_gediv(x,y,desc_a,info) + + if (iam == psb_root_) then + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + end if + + ! From db7b882e9ce97ae7e734062b0a27779ddb431c41 Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Wed, 20 Nov 2019 18:22:38 +0100 Subject: [PATCH 03/61] entrywise divide with zero check --- base/modules/psblas/psb_c_psblas_mod.F90 | 9 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 9 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 9 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 9 +++ base/modules/serial/psb_c_base_vect_mod.f90 | 68 +++++++++++++++++-- base/modules/serial/psb_c_vect_mod.F90 | 35 +++++++++- base/modules/serial/psb_d_base_vect_mod.f90 | 68 +++++++++++++++++-- base/modules/serial/psb_d_vect_mod.F90 | 35 +++++++++- base/modules/serial/psb_s_base_vect_mod.f90 | 68 +++++++++++++++++-- base/modules/serial/psb_s_vect_mod.F90 | 35 +++++++++- base/modules/serial/psb_z_base_vect_mod.f90 | 68 +++++++++++++++++-- base/modules/serial/psb_z_vect_mod.F90 | 35 +++++++++- base/psblas/psb_cdiv_vect.f90 | 74 +++++++++++++++++++++ base/psblas/psb_ddiv_vect.f90 | 74 +++++++++++++++++++++ base/psblas/psb_sdiv_vect.f90 | 74 +++++++++++++++++++++ base/psblas/psb_zdiv_vect.f90 | 74 +++++++++++++++++++++ 16 files changed, 724 insertions(+), 20 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 1e16312d4..8e9a286a0 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -448,6 +448,15 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_cdiv_vect + subroutine psb_cdiv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_cdiv_vect_check end interface end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index f7bdfa8f1..993ac5422 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -448,6 +448,15 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_ddiv_vect + subroutine psb_ddiv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_ddiv_vect_check end interface end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index af2c17f6d..1a2347d1a 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -448,6 +448,15 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_sdiv_vect + subroutine psb_sdiv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_sdiv_vect_check end interface end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 807ec7cd8..7fd96c4ce 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -448,6 +448,15 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zdiv_vect + subroutine psb_zdiv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_zdiv_vect_check end interface end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index d95314747..3927a60b1 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -166,9 +166,11 @@ module psb_c_base_vect_mod ! ! Vector-Vector operations ! - procedure, pass(x) :: div_v => c_base_div_v - procedure, pass(z) :: div_a2 => c_base_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(x) :: div_v => c_base_div_v + procedure, pass(x) :: div_v_check => c_base_div_v_check + procedure, pass(z) :: div_a2 => c_base_div_a2 + procedure, pass(z) :: div_a2_check => c_base_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check ! ! Scaling and norms ! @@ -1205,10 +1207,32 @@ contains end subroutine c_base_div_v ! + !> Function base_div_v_check + !! \memberof psb_c_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine c_base_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info,flag) + + + end subroutine c_base_div_v_check + ! !> Function base_div_a2 !! \memberof psb_c_base_vect_type !! \brief Entry-by-entry divide between normal array x=x/y - !! \param x(:) The array to be multiplied by + !! \param y(:) The array to be divided by !! \param info return code !! subroutine c_base_div_a2(x, y, z, info) @@ -1229,7 +1253,43 @@ contains end do end subroutine c_base_div_a2 + ! + !> Function base_div_a2_check + !! \memberof psb_c_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y and check if y(i) + !! is different from zero + !! \param y(:) The array to be dived by + !! \param info return code + !! + subroutine c_base_div_a2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: z + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + if (flag .eqv. .false.) then + call c_base_div_a2(x, y, z, info) + else + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + if (y(i) /= 0) then + z%v(i) = x(i)/y(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine c_base_div_a2_check ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 02965a3c3..d4eb5a2a4 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -95,8 +95,10 @@ module psb_c_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => c_vect_div_v + procedure, pass(x) :: div_v_check => c_vect_div_v_check procedure, pass(z) :: div_a2 => c_vect_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(z) :: div_a2_check => c_vect_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check procedure, pass(x) :: scal => c_vect_scal procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 @@ -744,6 +746,21 @@ contains end subroutine c_vect_div_v + subroutine c_vect_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info,flag) + + end subroutine c_vect_div_v_check + subroutine c_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none @@ -759,6 +776,22 @@ contains end subroutine c_vect_div_a2 + subroutine c_vect_div_a2_check(x, y, z, info,flag) + use psi_serial_mod + implicit none + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info,flag) + + end subroutine c_vect_div_a2_check + subroutine c_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 4d3bb1617..3d00bbef8 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -166,9 +166,11 @@ module psb_d_base_vect_mod ! ! Vector-Vector operations ! - procedure, pass(x) :: div_v => d_base_div_v - procedure, pass(z) :: div_a2 => d_base_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(x) :: div_v => d_base_div_v + procedure, pass(x) :: div_v_check => d_base_div_v_check + procedure, pass(z) :: div_a2 => d_base_div_a2 + procedure, pass(z) :: div_a2_check => d_base_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check ! ! Scaling and norms ! @@ -1205,10 +1207,32 @@ contains end subroutine d_base_div_v ! + !> Function base_div_v_check + !! \memberof psb_d_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine d_base_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info,flag) + + + end subroutine d_base_div_v_check + ! !> Function base_div_a2 !! \memberof psb_d_base_vect_type !! \brief Entry-by-entry divide between normal array x=x/y - !! \param x(:) The array to be multiplied by + !! \param y(:) The array to be divided by !! \param info return code !! subroutine d_base_div_a2(x, y, z, info) @@ -1229,7 +1253,43 @@ contains end do end subroutine d_base_div_a2 + ! + !> Function base_div_a2_check + !! \memberof psb_d_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y and check if y(i) + !! is different from zero + !! \param y(:) The array to be dived by + !! \param info return code + !! + subroutine d_base_div_a2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: z + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + if (flag .eqv. .false.) then + call d_base_div_a2(x, y, z, info) + else + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + if (y(i) /= 0) then + z%v(i) = x(i)/y(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine d_base_div_a2_check ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 469cb56df..e7cf67573 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -95,8 +95,10 @@ module psb_d_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => d_vect_div_v + procedure, pass(x) :: div_v_check => d_vect_div_v_check procedure, pass(z) :: div_a2 => d_vect_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(z) :: div_a2_check => d_vect_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check procedure, pass(x) :: scal => d_vect_scal procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 @@ -744,6 +746,21 @@ contains end subroutine d_vect_div_v + subroutine d_vect_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info,flag) + + end subroutine d_vect_div_v_check + subroutine d_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none @@ -759,6 +776,22 @@ contains end subroutine d_vect_div_a2 + subroutine d_vect_div_a2_check(x, y, z, info,flag) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info,flag) + + end subroutine d_vect_div_a2_check + subroutine d_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index a47d63775..bf229956f 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -166,9 +166,11 @@ module psb_s_base_vect_mod ! ! Vector-Vector operations ! - procedure, pass(x) :: div_v => s_base_div_v - procedure, pass(z) :: div_a2 => s_base_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(x) :: div_v => s_base_div_v + procedure, pass(x) :: div_v_check => s_base_div_v_check + procedure, pass(z) :: div_a2 => s_base_div_a2 + procedure, pass(z) :: div_a2_check => s_base_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check ! ! Scaling and norms ! @@ -1205,10 +1207,32 @@ contains end subroutine s_base_div_v ! + !> Function base_div_v_check + !! \memberof psb_s_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine s_base_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info,flag) + + + end subroutine s_base_div_v_check + ! !> Function base_div_a2 !! \memberof psb_s_base_vect_type !! \brief Entry-by-entry divide between normal array x=x/y - !! \param x(:) The array to be multiplied by + !! \param y(:) The array to be divided by !! \param info return code !! subroutine s_base_div_a2(x, y, z, info) @@ -1229,7 +1253,43 @@ contains end do end subroutine s_base_div_a2 + ! + !> Function base_div_a2_check + !! \memberof psb_s_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y and check if y(i) + !! is different from zero + !! \param y(:) The array to be dived by + !! \param info return code + !! + subroutine s_base_div_a2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: z + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + if (flag .eqv. .false.) then + call s_base_div_a2(x, y, z, info) + else + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + if (y(i) /= 0) then + z%v(i) = x(i)/y(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine s_base_div_a2_check ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index d835bc5aa..225194563 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -95,8 +95,10 @@ module psb_s_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => s_vect_div_v + procedure, pass(x) :: div_v_check => s_vect_div_v_check procedure, pass(z) :: div_a2 => s_vect_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(z) :: div_a2_check => s_vect_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check procedure, pass(x) :: scal => s_vect_scal procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 @@ -744,6 +746,21 @@ contains end subroutine s_vect_div_v + subroutine s_vect_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info,flag) + + end subroutine s_vect_div_v_check + subroutine s_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none @@ -759,6 +776,22 @@ contains end subroutine s_vect_div_a2 + subroutine s_vect_div_a2_check(x, y, z, info,flag) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info,flag) + + end subroutine s_vect_div_a2_check + subroutine s_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 350e70340..91663600c 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -166,9 +166,11 @@ module psb_z_base_vect_mod ! ! Vector-Vector operations ! - procedure, pass(x) :: div_v => z_base_div_v - procedure, pass(z) :: div_a2 => z_base_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(x) :: div_v => z_base_div_v + procedure, pass(x) :: div_v_check => z_base_div_v_check + procedure, pass(z) :: div_a2 => z_base_div_a2 + procedure, pass(z) :: div_a2_check => z_base_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check ! ! Scaling and norms ! @@ -1205,10 +1207,32 @@ contains end subroutine z_base_div_v ! + !> Function base_div_v_check + !! \memberof psb_z_base_vect_type + !! \brief Vector entry-by-entry divide by a vector x=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine z_base_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (x%is_dev()) call x%sync() + call x%div(x%v,y%v,info,flag) + + + end subroutine z_base_div_v_check + ! !> Function base_div_a2 !! \memberof psb_z_base_vect_type !! \brief Entry-by-entry divide between normal array x=x/y - !! \param x(:) The array to be multiplied by + !! \param y(:) The array to be divided by !! \param info return code !! subroutine z_base_div_a2(x, y, z, info) @@ -1229,7 +1253,43 @@ contains end do end subroutine z_base_div_a2 + ! + !> Function base_div_a2_check + !! \memberof psb_z_base_vect_type + !! \brief Entry-by-entry divide between normal array x=x/y and check if y(i) + !! is different from zero + !! \param y(:) The array to be dived by + !! \param info return code + !! + subroutine z_base_div_a2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: z + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + if (flag .eqv. .false.) then + call z_base_div_a2(x, y, z, info) + else + info = 0 + if (z%is_dev()) call z%sync() + + n = min(size(y), size(x)) + do i=1, n + if (y(i) /= 0) then + z%v(i) = x(i)/y(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine z_base_div_a2_check ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index b65ba18bd..f5e4f31ae 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -95,8 +95,10 @@ module psb_z_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => z_vect_div_v + procedure, pass(x) :: div_v_check => z_vect_div_v_check procedure, pass(z) :: div_a2 => z_vect_div_a2 - generic, public :: div => div_v, div_a2 + procedure, pass(z) :: div_a2_check => z_vect_div_a2_check + generic, public :: div => div_v, div_v_check, div_a2, div_a2_check procedure, pass(x) :: scal => z_vect_scal procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 @@ -744,6 +746,21 @@ contains end subroutine z_vect_div_v + subroutine z_vect_div_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call x%v%div(y%v,info,flag) + + end subroutine z_vect_div_v_check + subroutine z_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none @@ -759,6 +776,22 @@ contains end subroutine z_vect_div_a2 + subroutine z_vect_div_a2_check(x, y, z, info,flag) + use psi_serial_mod + implicit none + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(z%v)) & + & call z%v%div(x,y,info,flag) + + end subroutine z_vect_div_a2_check + subroutine z_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/psblas/psb_cdiv_vect.f90 b/base/psblas/psb_cdiv_vect.f90 index 38c7ce6a2..99e4fef64 100644 --- a/base/psblas/psb_cdiv_vect.f90 +++ b/base/psblas/psb_cdiv_vect.f90 @@ -103,3 +103,77 @@ subroutine psb_cdiv_vect(x,y,desc_a,info) return end subroutine psb_cdiv_vect + +subroutine psb_cdiv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_cdiv_vect_check + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_div_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cdiv_vect_check diff --git a/base/psblas/psb_ddiv_vect.f90 b/base/psblas/psb_ddiv_vect.f90 index d9ab02037..20536a2c8 100644 --- a/base/psblas/psb_ddiv_vect.f90 +++ b/base/psblas/psb_ddiv_vect.f90 @@ -103,3 +103,77 @@ subroutine psb_ddiv_vect(x,y,desc_a,info) return end subroutine psb_ddiv_vect + +subroutine psb_ddiv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_ddiv_vect_check + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_div_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ddiv_vect_check diff --git a/base/psblas/psb_sdiv_vect.f90 b/base/psblas/psb_sdiv_vect.f90 index 99a1ce7ca..42bc8b832 100644 --- a/base/psblas/psb_sdiv_vect.f90 +++ b/base/psblas/psb_sdiv_vect.f90 @@ -103,3 +103,77 @@ subroutine psb_sdiv_vect(x,y,desc_a,info) return end subroutine psb_sdiv_vect + +subroutine psb_sdiv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_sdiv_vect_check + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_div_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sdiv_vect_check diff --git a/base/psblas/psb_zdiv_vect.f90 b/base/psblas/psb_zdiv_vect.f90 index 949cbf7d5..5ef0552a5 100644 --- a/base/psblas/psb_zdiv_vect.f90 +++ b/base/psblas/psb_zdiv_vect.f90 @@ -103,3 +103,77 @@ subroutine psb_zdiv_vect(x,y,desc_a,info) return end subroutine psb_zdiv_vect + +subroutine psb_zdiv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_zdiv_vect_check + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_div_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call x%div(y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zdiv_vect_check From b3c4971146295f2571cfdb685b78550cdbaff511 Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Thu, 21 Nov 2019 13:56:22 +0100 Subject: [PATCH 04/61] Added entrywise inversion and documentation for vec-vec operation --- docs/html/WARNINGS | 12 + docs/html/footnode.html | 14 +- docs/html/images.aux | 18 + docs/html/images.log | 507 + docs/html/images.out | 0 docs/html/images.pl | 1182 ++ docs/html/images.tex | 273 + docs/html/img1.png | Bin 200 -> 210 bytes docs/html/img10.png | Bin 404 -> 447 bytes docs/html/img100.png | Bin 178 -> 603 bytes docs/html/img101.png | Bin 363 -> 318 bytes docs/html/img102.png | Bin 533 -> 487 bytes docs/html/img103.png | Bin 359 -> 397 bytes docs/html/img104.png | Bin 368 -> 281 bytes docs/html/img105.png | Bin 228 -> 423 bytes docs/html/img106.png | Bin 340 -> 190 bytes docs/html/img107.png | Bin 259 -> 387 bytes docs/html/img108.png | Bin 0 -> 520 bytes docs/html/img109.png | Bin 194 -> 350 bytes docs/html/img11.png | Bin 526 -> 576 bytes docs/html/img110.png | Bin 737 -> 374 bytes docs/html/img111.png | Bin 373 -> 237 bytes docs/html/img112.png | Bin 0 -> 358 bytes docs/html/img113.png | Bin 0 -> 279 bytes docs/html/img114.png | Bin 0 -> 303 bytes docs/html/img115.png | Bin 0 -> 199 bytes docs/html/img116.png | Bin 134 -> 682 bytes docs/html/img117.png | Bin 257 -> 411 bytes docs/html/img118.png | Bin 390 -> 366 bytes docs/html/img119.png | Bin 263 -> 857 bytes docs/html/img120.png | Bin 244 -> 745 bytes docs/html/img121.png | Bin 276 -> 423 bytes docs/html/img122.png | Bin 374 -> 151 bytes docs/html/img123.png | Bin 222 -> 272 bytes docs/html/img124.png | Bin 259 -> 390 bytes docs/html/img125.png | Bin 808 -> 260 bytes docs/html/img126.png | Bin 412 -> 268 bytes docs/html/img127.png | Bin 431 -> 270 bytes docs/html/img128.png | Bin 354 -> 420 bytes docs/html/img129.png | Bin 310 -> 221 bytes docs/html/img13.png | Bin 3167 -> 3564 bytes docs/html/img130.png | Bin 839 -> 263 bytes docs/html/img131.png | Bin 335 -> 943 bytes docs/html/img132.png | Bin 500 -> 423 bytes docs/html/img133.png | Bin 402 -> 425 bytes docs/html/img134.png | Bin 267 -> 359 bytes docs/html/img135.png | Bin 533 -> 330 bytes docs/html/img136.png | Bin 545 -> 860 bytes docs/html/img137.png | Bin 335 -> 336 bytes docs/html/img138.png | Bin 232 -> 532 bytes docs/html/img139.png | Bin 520 -> 412 bytes docs/html/img14.png | Bin 643 -> 694 bytes docs/html/img140.png | Bin 613 -> 251 bytes docs/html/img141.png | Bin 581 -> 619 bytes docs/html/img142.png | Bin 312 -> 626 bytes docs/html/img143.png | Bin 277 -> 395 bytes docs/html/img144.png | Bin 870 -> 243 bytes docs/html/img145.png | Bin 215 -> 568 bytes docs/html/img146.png | Bin 583 -> 614 bytes docs/html/img147.png | Bin 732 -> 578 bytes docs/html/img148.png | Bin 523 -> 306 bytes docs/html/img149.png | Bin 268 -> 271 bytes docs/html/img15.png | Bin 230 -> 250 bytes docs/html/img150.png | Bin 572 -> 889 bytes docs/html/img151.png | Bin 240 -> 226 bytes docs/html/img152.png | Bin 0 -> 630 bytes docs/html/img153.png | Bin 8603 -> 750 bytes docs/html/img154.png | Bin 0 -> 534 bytes docs/html/img155.png | Bin 1099 -> 273 bytes docs/html/img156.png | Bin 758 -> 569 bytes docs/html/img157.png | Bin 875 -> 250 bytes docs/html/img158.old | 0 docs/html/img158.png | Bin 867 -> 0 bytes docs/html/img159.png | Bin 1172 -> 9773 bytes docs/html/img16.png | Bin 196 -> 203 bytes docs/html/img160.old | 0 docs/html/img160.png | Bin 1348 -> 0 bytes docs/html/img161.png | Bin 1029 -> 1148 bytes docs/html/img162.png | Bin 1121 -> 801 bytes docs/html/img163.png | Bin 1209 -> 934 bytes docs/html/img164.png | Bin 1156 -> 966 bytes docs/html/img165.png | Bin 373 -> 1251 bytes docs/html/img166.png | Bin 431 -> 1436 bytes docs/html/img167.png | Bin 304 -> 1126 bytes docs/html/img168.png | Bin 915 -> 1188 bytes docs/html/img169.png | Bin 678 -> 1238 bytes docs/html/img17.png | Bin 371 -> 384 bytes docs/html/img170.png | Bin 659 -> 1211 bytes docs/html/img171.png | Bin 219 -> 356 bytes docs/html/img172.png | Bin 429 -> 440 bytes docs/html/img173.png | Bin 2452 -> 302 bytes docs/html/img174.png | Bin 449 -> 998 bytes docs/html/img175.png | Bin 0 -> 719 bytes docs/html/img176.png | Bin 0 -> 746 bytes docs/html/img177.png | Bin 0 -> 228 bytes docs/html/img178.png | Bin 0 -> 442 bytes docs/html/img179.png | Bin 0 -> 2571 bytes docs/html/img18.png | Bin 540 -> 581 bytes docs/html/img180.png | Bin 0 -> 477 bytes docs/html/img181.png | Bin 0 -> 480 bytes docs/html/img182.png | Bin 0 -> 465 bytes docs/html/img183.png | Bin 0 -> 345 bytes docs/html/img184.png | Bin 0 -> 226 bytes docs/html/img185.png | Bin 0 -> 452 bytes docs/html/img186.png | Bin 0 -> 425 bytes docs/html/img187.png | Bin 0 -> 279 bytes docs/html/img19.png | Bin 486 -> 524 bytes docs/html/img2.png | Bin 3108 -> 3875 bytes docs/html/img20.png | Bin 184 -> 189 bytes docs/html/img21.png | Bin 231 -> 216 bytes docs/html/img22.png | Bin 201 -> 205 bytes docs/html/img23.png | Bin 225 -> 225 bytes docs/html/img24.png | Bin 469 -> 476 bytes docs/html/img25.png | Bin 482 -> 486 bytes docs/html/img26.png | Bin 267 -> 273 bytes docs/html/img27.png | Bin 4180 -> 4602 bytes docs/html/img28.png | Bin 791 -> 769 bytes docs/html/img29.png | Bin 245 -> 254 bytes docs/html/img3.png | Bin 3149 -> 3855 bytes docs/html/img30.png | Bin 591 -> 618 bytes docs/html/img31.png | Bin 1090 -> 1060 bytes docs/html/img32.png | Bin 311 -> 321 bytes docs/html/img33.png | Bin 3994 -> 4351 bytes docs/html/img34.png | Bin 799 -> 808 bytes docs/html/img35.png | Bin 454 -> 495 bytes docs/html/img36.png | Bin 875 -> 873 bytes docs/html/img37.png | Bin 311 -> 326 bytes docs/html/img38.png | Bin 3960 -> 4251 bytes docs/html/img39.png | Bin 508 -> 536 bytes docs/html/img4.png | Bin 178 -> 179 bytes docs/html/img40.png | Bin 909 -> 881 bytes docs/html/img41.png | Bin 564 -> 576 bytes docs/html/img42.png | Bin 572 -> 594 bytes docs/html/img43.png | Bin 320 -> 338 bytes docs/html/img44.png | Bin 4024 -> 4294 bytes docs/html/img45.png | Bin 655 -> 685 bytes docs/html/img46.png | Bin 476 -> 501 bytes docs/html/img47.png | Bin 498 -> 521 bytes docs/html/img48.png | Bin 536 -> 554 bytes docs/html/img49.png | Bin 572 -> 622 bytes docs/html/img5.png | Bin 200 -> 228 bytes docs/html/img50.png | Bin 597 -> 621 bytes docs/html/img51.png | Bin 243 -> 243 bytes docs/html/img52.png | Bin 256 -> 251 bytes docs/html/img53.png | Bin 415 -> 429 bytes docs/html/img54.png | Bin 2923 -> 2775 bytes docs/html/img55.png | Bin 192 -> 214 bytes docs/html/img56.png | Bin 229 -> 233 bytes docs/html/img57.png | Bin 421 -> 444 bytes docs/html/img58.png | Bin 824 -> 816 bytes docs/html/img59.png | Bin 283 -> 620 bytes docs/html/img6.png | Bin 376 -> 431 bytes docs/html/img60.png | Bin 1916 -> 553 bytes docs/html/img61.png | Bin 3748 -> 179 bytes docs/html/img62.png | Bin 3122 -> 416 bytes docs/html/img63.png | Bin 367 -> 467 bytes docs/html/img64.png | Bin 253 -> 416 bytes docs/html/img65.png | Bin 247 -> 266 bytes docs/html/img66.png | Bin 261 -> 2084 bytes docs/html/img67.png | Bin 2398 -> 3225 bytes docs/html/img68.png | Bin 261 -> 3213 bytes docs/html/img69.png | Bin 335 -> 370 bytes docs/html/img7.png | Bin 202 -> 205 bytes docs/html/img70.png | Bin 773 -> 258 bytes docs/html/img71.png | Bin 5090 -> 250 bytes docs/html/img72.png | Bin 5450 -> 255 bytes docs/html/img73.png | Bin 805 -> 2512 bytes docs/html/img74.png | Bin 368 -> 255 bytes docs/html/img75.png | Bin 502 -> 337 bytes docs/html/img76.png | Bin 326 -> 789 bytes docs/html/img77.png | Bin 366 -> 5441 bytes docs/html/img78.png | Bin 301 -> 6161 bytes docs/html/img79.png | Bin 2461 -> 803 bytes docs/html/img8.png | Bin 231 -> 242 bytes docs/html/img80.png | Bin 373 -> 387 bytes docs/html/img81.png | Bin 539 -> 523 bytes docs/html/img82.png | Bin 167 -> 334 bytes docs/html/img83.png | Bin 800 -> 363 bytes docs/html/img84.png | Bin 369 -> 312 bytes docs/html/img85.png | Bin 1401 -> 2611 bytes docs/html/img86.png | Bin 502 -> 438 bytes docs/html/img87.png | Bin 366 -> 554 bytes docs/html/img88.png | Bin 256 -> 178 bytes docs/html/img89.png | Bin 243 -> 939 bytes docs/html/img9.png | Bin 242 -> 246 bytes docs/html/img90.png | Bin 186 -> 373 bytes docs/html/img91.png | Bin 418 -> 1540 bytes docs/html/img92.png | Bin 507 -> 508 bytes docs/html/img93.png | Bin 219 -> 370 bytes docs/html/img94.png | Bin 582 -> 252 bytes docs/html/img95.png | Bin 319 -> 264 bytes docs/html/img96.png | Bin 457 -> 202 bytes docs/html/img97.png | Bin 394 -> 440 bytes docs/html/img98.png | Bin 285 -> 520 bytes docs/html/img99.png | Bin 415 -> 229 bytes docs/html/index.html | 442 +- docs/html/internals.pl | 206 + docs/html/labels.pl | 421 + docs/html/node1.html | 66 +- docs/html/node10.html | 70 +- docs/html/node100.html | 150 +- docs/html/node101.html | 275 +- docs/html/node102.html | 181 +- docs/html/node103.html | 132 +- docs/html/node104.html | 109 +- docs/html/node105.html | 120 +- docs/html/node106.html | 58 +- docs/html/node107.html | 76 +- docs/html/node108.html | 105 +- docs/html/node109.html | 132 +- docs/html/node11.html | 16 +- docs/html/node110.html | 131 +- docs/html/node111.html | 110 +- docs/html/node112.html | 87 +- docs/html/node113.html | 86 +- docs/html/node114.html | 118 +- docs/html/node115.html | 142 +- docs/html/node116.html | 177 +- docs/html/node117.html | 384 +- docs/html/node118.html | 195 +- docs/html/node119.html | 184 +- docs/html/node12.html | 18 +- docs/html/node120.html | 332 +- docs/html/node121.html | 130 +- docs/html/node122.html | 88 +- docs/html/node123.html | 99 +- docs/html/node124.html | 56 +- docs/html/node125.html | 131 +- docs/html/node126.html | 141 +- docs/html/node127.html | 169 +- docs/html/node128.html | 175 +- docs/html/node129.html | 128 +- docs/html/node13.html | 18 +- docs/html/node130.html | 154 +- docs/html/node131.html | 108 +- docs/html/node132.html | 110 +- docs/html/node133.html | 410 +- docs/html/node134.html | 201 +- docs/html/node135.html | 63 +- docs/html/node136.html | 440 + docs/html/node137.html | 180 + docs/html/node138.html | 67 + docs/html/node14.html | 16 +- docs/html/node15.html | 16 +- docs/html/node16.html | 16 +- docs/html/node17.html | 16 +- docs/html/node18.html | 16 +- docs/html/node19.html | 16 +- docs/html/node2.html | 52 +- docs/html/node20.html | 16 +- docs/html/node21.html | 16 +- docs/html/node22.html | 16 +- docs/html/node23.html | 84 +- docs/html/node24.html | 16 +- docs/html/node25.html | 16 +- docs/html/node26.html | 16 +- docs/html/node27.html | 16 +- docs/html/node28.html | 16 +- docs/html/node29.html | 16 +- docs/html/node3.html | 50 +- docs/html/node30.html | 16 +- docs/html/node31.html | 16 +- docs/html/node32.html | 16 +- docs/html/node33.html | 16 +- docs/html/node34.html | 16 +- docs/html/node35.html | 16 +- docs/html/node36.html | 16 +- docs/html/node37.html | 16 +- docs/html/node38.html | 16 +- docs/html/node39.html | 16 +- docs/html/node4.html | 60 +- docs/html/node40.html | 16 +- docs/html/node41.html | 16 +- docs/html/node42.html | 16 +- docs/html/node43.html | 46 +- docs/html/node44.html | 16 +- docs/html/node45.html | 16 +- docs/html/node46.html | 16 +- docs/html/node47.html | 16 +- docs/html/node48.html | 22 +- docs/html/node49.html | 16 +- docs/html/node5.html | 34 +- docs/html/node50.html | 16 +- docs/html/node51.html | 18 +- docs/html/node52.html | 60 +- docs/html/node53.html | 60 +- docs/html/node54.html | 72 +- docs/html/node55.html | 70 +- docs/html/node56.html | 54 +- docs/html/node57.html | 46 +- docs/html/node58.html | 54 +- docs/html/node59.html | 56 +- docs/html/node6.html | 56 +- docs/html/node60.html | 54 +- docs/html/node61.html | 46 +- docs/html/node62.html | 32 +- docs/html/node63.html | 32 +- docs/html/node64.html | 84 +- docs/html/node65.html | 93 +- docs/html/node66.html | 236 +- docs/html/node67.html | 592 +- docs/html/node68.html | 701 +- docs/html/node69.html | 269 +- docs/html/node7.html | 20 +- docs/html/node70.html | 586 +- docs/html/node71.html | 816 +- docs/html/node72.html | 542 +- docs/html/node73.html | 364 +- docs/html/node74.html | 190 +- docs/html/node75.html | 392 +- docs/html/node76.html | 214 +- docs/html/node77.html | 127 +- docs/html/node78.html | 81 +- docs/html/node79.html | 265 +- docs/html/node8.html | 32 +- docs/html/node80.html | 163 +- docs/html/node81.html | 87 +- docs/html/node82.html | 298 +- docs/html/node83.html | 180 +- docs/html/node84.html | 159 +- docs/html/node85.html | 93 +- docs/html/node86.html | 99 +- docs/html/node87.html | 187 +- docs/html/node88.html | 163 +- docs/html/node89.html | 111 +- docs/html/node9.html | 136 +- docs/html/node90.html | 103 +- docs/html/node91.html | 126 +- docs/html/node92.html | 116 +- docs/html/node93.html | 82 +- docs/html/node94.html | 85 +- docs/html/node95.html | 82 +- docs/html/node96.html | 213 +- docs/html/node97.html | 115 +- docs/html/node98.html | 264 +- docs/html/node99.html | 284 +- docs/html/userhtml.html | 442 +- docs/psblas-3.6.pdf | 24843 ++++++++++++++++++++------------------ docs/src/psbrout.tex | 211 + docs/src/userguide.pdf | 1 + 340 files changed, 24932 insertions(+), 20314 deletions(-) create mode 100644 docs/html/WARNINGS create mode 100644 docs/html/images.aux create mode 100644 docs/html/images.log create mode 100644 docs/html/images.out create mode 100644 docs/html/images.pl create mode 100644 docs/html/images.tex create mode 100644 docs/html/img108.png create mode 100644 docs/html/img112.png create mode 100644 docs/html/img113.png create mode 100644 docs/html/img114.png create mode 100644 docs/html/img115.png create mode 100644 docs/html/img158.old create mode 100644 docs/html/img160.old create mode 100644 docs/html/img175.png create mode 100644 docs/html/img176.png create mode 100644 docs/html/img177.png create mode 100644 docs/html/img178.png create mode 100644 docs/html/img179.png create mode 100644 docs/html/img180.png create mode 100644 docs/html/img181.png create mode 100644 docs/html/img182.png create mode 100644 docs/html/img183.png create mode 100644 docs/html/img184.png create mode 100644 docs/html/img185.png create mode 100644 docs/html/img186.png create mode 100644 docs/html/img187.png create mode 100644 docs/html/internals.pl create mode 100644 docs/html/labels.pl create mode 100644 docs/html/node136.html create mode 100644 docs/html/node137.html create mode 100644 docs/html/node138.html create mode 120000 docs/src/userguide.pdf diff --git a/docs/html/WARNINGS b/docs/html/WARNINGS new file mode 100644 index 000000000..5b6c6c23e --- /dev/null +++ b/docs/html/WARNINGS @@ -0,0 +1,12 @@ +No implementation found for style `pstricks' +No implementation found for style `fancybox' +No implementation found for style `ifthen' +No implementation found for style `listings' + +redefining command \thepage + +Substitution of arg to newlabelxx delayed. + +? brace missing for \oldcontentsline + +? brace missing for \textrm diff --git a/docs/html/footnode.html b/docs/html/footnode.html index 9b6f0db57..17cb83328 100644 --- a/docs/html/footnode.html +++ b/docs/html/footnode.html @@ -14,7 +14,7 @@ - + @@ -137,8 +137,8 @@ sample scatter/gather routines. . -
... follows4
+
... follows4
The string is case-insensitive 
.
@@ -173,12 +173,12 @@ sample scatter/gather routines.
 .
-
... method5
+
... method5
Note: the implementation is for $FCG(1)$. 
.
diff --git a/docs/html/images.aux b/docs/html/images.aux
new file mode 100644
index 000000000..075990843
--- /dev/null
+++ b/docs/html/images.aux
@@ -0,0 +1,18 @@
+\relax 
+\providecommand\hyper@newdestlabel[2]{}
+\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument}
+\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined
+\global\let\oldcontentsline\contentsline
+\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}}
+\global\let\oldnewlabel\newlabel
+\gdef\newlabel#1#2{\newlabelxx{#1}#2}
+\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}}
+\AtEndDocument{\ifx\hyper@anchor\@undefined
+\let\contentsline\oldcontentsline
+\let\newlabel\oldnewlabel
+\fi}
+\fi}
+\global\let\hyper@last\relax 
+\gdef\HyperFirstAtBeginDocument#1{#1}
+\providecommand*\HyPL@Entry[1]{}
+\HyPL@Entry{0<>}
diff --git a/docs/html/images.log b/docs/html/images.log
new file mode 100644
index 000000000..fc4875b53
--- /dev/null
+++ b/docs/html/images.log
@@ -0,0 +1,507 @@
+This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017/Debian) (preloaded format=latex 2019.9.9)  21 NOV 2019 13:53
+entering extended mode
+ restricted \write18 enabled.
+ %&-line parsing enabled.
+**./images.tex
+(./images.tex
+LaTeX2e <2017-04-15>
+Babel <3.18> and hyphenation patterns for 10 language(s) loaded.
+
+(/usr/share/texlive/texmf-dist/tex/latex/base/article.cls
+Document Class: article 2014/09/29 v1.4h Standard LaTeX document class
+(/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo
+File: size10.clo 2014/09/29 v1.4h Standard LaTeX file (size option)
+)
+\c@part=\count79
+\c@section=\count80
+\c@subsection=\count81
+\c@subsubsection=\count82
+\c@paragraph=\count83
+\c@subparagraph=\count84
+\c@figure=\count85
+\c@table=\count86
+\abovecaptionskip=\skip41
+\belowcaptionskip=\skip42
+\bibindent=\dimen102
+) (/usr/share/texlive/texmf-dist/tex/latex/pstricks/pstricks.sty
+Package: pstricks 2018/01/06 v0.67 LaTeX wrapper for `PSTricks' (RN,HV)
+(/usr/share/texlive/texmf-dist/tex/generic/iftex/iftex.sty
+Package: iftex 2013/04/04 v0.2 Provides if(tex) conditional for PDFTeX, XeTeX, 
+and LuaTeX
+) (/usr/share/texlive/texmf-dist/tex/latex/tools/shellesc.sty
+Package: shellesc 2016/06/07 v0.02a unified shell escape interface for LaTeX
+Package shellesc Info: Restricted shell escape enabled on input line 69.
+) (/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty
+Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK)
+(/usr/share/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg
+File: color.cfg 2016/01/02 v1.6 sample color configuration
+)
+Package xcolor Info: Driver file: dvips.def on input line 225.
+(/usr/share/texlive/texmf-dist/tex/latex/graphics-def/dvips.def
+File: dvips.def 2017/06/20 v3.1d Graphics/color driver for dvips
+)
+Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348.
+Package xcolor Info: Model `RGB' extended on input line 1364.
+Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366.
+Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367.
+Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368.
+Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369.
+Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370.
+Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371.
+) (/usr/share/texlive/texmf-dist/tex/generic/xkeyval/pst-xkey.tex
+File: pst-xkey.tex 2005/11/25 v1.6 PSTricks specialization of xkeyval (HA)
+(/usr/share/texlive/texmf-dist/tex/latex/xkeyval/xkeyval.sty
+Package: xkeyval 2014/12/03 v2.7a package option processing (HA)
+(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkeyval.tex (/usr/share/texl
+ive/texmf-dist/tex/generic/xkeyval/xkvutils.tex
+\XKV@toks=\toks14
+\XKV@tempa@toks=\toks15
+(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/keyval.tex))
+\XKV@depth=\count87
+File: xkeyval.tex 2014/12/03 v2.7a key=value parser (HA)
+))) (/usr/share/texlive/texmf-dist/tex/generic/pstricks/pstricks.tex (/usr/shar
+e/texlive/texmf-dist/tex/generic/pstricks/pst-fp.tex `pst-fp' v0.05, 2010/01/17
+ (hv)
+\pstFP@xs=\count88
+\pstFP@xia=\count89
+\pstFP@xib=\count90
+\pstFP@xfa=\count91
+\pstFP@xfb=\count92
+\pstFP@rega=\count93
+\pstFP@regb=\count94
+\pstFP@regs=\count95
+\pstFP@times=\count96
+) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfutil-common.tex
+\pgfutil@everybye=\toks16
+\pgfutil@tempdima=\dimen103
+\pgfutil@tempdimb=\dimen104
+
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfutil-common-lists.t
+ex)) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfkeys.code.tex
+\pgfkeys@pathtoks=\toks17
+\pgfkeys@temptoks=\toks18
+
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfkeysfiltered.code.t
+ex
+\pgfkeys@tmptoks=\toks19
+)) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgffor.code.tex (/u
+sr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmath.code.tex (/usr/share/t
+exlive/texmf-dist/tex/generic/pgf/math/pgfmathcalc.code.tex (/usr/share/texlive
+/texmf-dist/tex/generic/pgf/math/pgfmathutil.code.tex
+\pgf@x=\dimen105
+\pgf@xa=\dimen106
+\pgf@xb=\dimen107
+\pgf@xc=\dimen108
+\pgf@y=\dimen109
+\pgf@ya=\dimen110
+\pgf@yb=\dimen111
+\pgf@yc=\dimen112
+\c@pgf@counta=\count97
+\c@pgf@countb=\count98
+\c@pgf@countc=\count99
+\c@pgf@countd=\count100
+\pgfutil@tempcnta=\count101
+\pgfutil@tempcntb=\count102
+) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathparser.code.tex
+\pgfmath@dimen=\dimen113
+\pgfmath@count=\count103
+\pgfmath@box=\box26
+\pgfmath@toks=\toks20
+\pgfmath@stack@operand=\toks21
+\pgfmath@stack@operation=\toks22
+) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.code.tex
+
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.basic.code
+.tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.trigonomet
+ric.code.tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.random.cod
+e.tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.comparison
+.code.tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.base.code.
+tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.round.code
+.tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.misc.code.
+tex)
+(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.integerari
+thmetics.code.tex))) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmat
+hfloat.code.tex
+\c@pgfmathroundto@lastzeros=\count104
+))
+\pgffor@iter=\dimen114
+\pgffor@skip=\dimen115
+\pgffor@stack=\toks23
+\pgffor@toks=\toks24
+)
+\psLoopIndex=\count105
+`PSTricks' v2.82  <2018/01/06> (tvz,hv)
+\pst@dima=\dimen116
+\pst@dimb=\dimen117
+\pst@dimc=\dimen118
+\pst@dimd=\dimen119
+\pst@dimg=\dimen120
+\pst@dimh=\dimen121
+\pst@dimm=\dimen122
+\pst@dimn=\dimen123
+\pst@dimo=\dimen124
+\pst@dimp=\dimen125
+\pst@hbox=\box27
+\pst@ibox=\box28
+\pst@boxg=\box29
+\pst@cnta=\count106
+\pst@cntb=\count107
+\pst@cntc=\count108
+\pst@cntd=\count109
+\pst@cntg=\count110
+\pst@cnth=\count111
+\pst@cntm=\count112
+\pst@cntn=\count113
+\pst@cnto=\count114
+\pst@cntp=\count115
+\@zero=\count116
+\pst@toks=\toks25
+(/usr/share/texlive/texmf-dist/tex/generic/pstricks/pstricks.con)
+\psunit=\dimen126
+\psxunit=\dimen127
+\psyunit=\dimen128
+\pst@C@@rType=\count117
+\pslinewidth=\dimen129
+\psk@startLW=\dimen130
+\psk@endLW=\dimen131
+\pst@customdefs=\toks26
+\pslinearc=\dimen132
+\pst@symbolStep=\dimen133
+\pst@symbolWidth=\dimen134
+\pst@symbolLinewidth=\dimen135
+\everypsbox=\toks27
+\psframesep=\dimen136
+\pslabelsep=\dimen137
+\sh@wgridXunit=\dimen138
+\sh@wgridYunit=\dimen139
+\pst@shift=\dimen140
+)
+File: pstricks.tex 2018/01/06 v2.82 `PSTricks' (tvz,hv)
+(/usr/share/texlive/texmf-dist/tex/generic/pstricks/pst-fp.tex)
+File: pst-fp.tex 2018/01/06 v2.82 `PST-fp' (hv)
+) (/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty
+Package: fancybox 2010/05/15 1.4
+Style option: `fancybox' v1.4 <2010/05/15> (tvz)
+\@fancybox=\box30
+\shadowsize=\dimen141
+\@Sbox=\box31
+\do@VerbBox=\toks28
+\the@fancyput=\toks29
+\this@fancyput=\toks30
+\EndVerbatimTokens=\toks31
+\Verbatim@Outfile=\write3
+\Verbatim@Infile=\read1
+) (/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty
+Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support
+\@emptytoks=\toks32
+\symAMSa=\mathgroup4
+\symAMSb=\mathgroup5
+LaTeX Font Info:    Overwriting math alphabet `\mathfrak' in version `bold'
+(Font)                  U/euf/m/n --> U/euf/b/n on input line 106.
+) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty
+Package: hyperref 2018/02/06 v6.86b Hypertext links for LaTeX
+(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty
+Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO)
+
+(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty
+Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO)
+Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO)
+Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO)
+Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO)
+Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO)
+Package ifluatex Info: LuaTeX not detected.
+Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO)
+Package ifvtex Info: VTeX not detected.
+Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO)
+Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch
+Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO)
+Package etexcmds Info: Could not find \expanded.
+(etexcmds)             That can mean that you are not using pdfTeX 1.50 or
+(etexcmds)             that some package has redefined \expanded.
+(etexcmds)             In the latter case, load this package earlier.
+Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO)
+Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO)
+Package: pdftexcmds 2018/01/21 v0.26 Utility functions of pdfTeX for LuaTeX (HO
+)
+Package pdftexcmds Info: LuaTeX not detected.
+Package pdftexcmds Info: \pdf@primitive is available.
+Package pdftexcmds Info: \pdf@ifprimitive is available.
+Package pdftexcmds Info: \pdfdraftmode is ignored in DVI mode.
+Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO)
+Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO
+)
+Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO)
+Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO)
+)
+Package hobsub Info: Skipping package `hobsub' (already loaded).
+Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO)
+Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO)
+Package: xcolor-patch 2016/05/16 xcolor patch
+Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO)
+Package atveryend Info: \enddocument detected (standard20110627).
+Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO)
+Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO)
+Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO)
+) (/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty
+Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional
+) (/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty
+Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO)
+) (/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty
+Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO)
+)
+\@linkdim=\dimen142
+\Hy@linkcounter=\count118
+\Hy@pagecounter=\count119
+(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def
+File: pd1enc.def 2018/02/06 v6.86b Hyperref: PDFDocEncoding definition (HO)
+)
+\Hy@SavedSpaceFactor=\count120
+(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg
+File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive
+)
+Package hyperref Info: Option `bookmarks' set `true' on input line 4383.
+Package hyperref Info: Option `bookmarksnumbered' set `true' on input line 4383
+.
+Package hyperref Info: Option `bookmarksopen' set `false' on input line 4383.
+Package hyperref Info: Option `plainpages' set `false' on input line 4383.
+Package hyperref Info: Option `pdfpagelabels' set `true' on input line 4383.
+Package hyperref Info: Option `colorlinks' set `true' on input line 4383.
+Package hyperref Info: Hyper figures OFF on input line 4509.
+Package hyperref Info: Link nesting OFF on input line 4514.
+Package hyperref Info: Hyper index ON on input line 4517.
+Package hyperref Info: Plain pages OFF on input line 4524.
+Package hyperref Info: Backreferencing OFF on input line 4529.
+Package hyperref Info: Implicit mode ON; LaTeX internals redefined.
+Package hyperref Info: Bookmarks ON on input line 4762.
+\c@Hy@tempcnt=\count121
+(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty
+\Urlmuskip=\muskip10
+Package: url 2013/09/16  ver 3.4  Verb mode for urls, etc.
+)
+LaTeX Info: Redefining \url on input line 5115.
+\XeTeXLinkMargin=\dimen143
+\Fld@menulength=\count122
+\Field@Width=\dimen144
+\Fld@charsize=\dimen145
+Package hyperref Info: Hyper figures OFF on input line 6369.
+Package hyperref Info: Link nesting OFF on input line 6374.
+Package hyperref Info: Hyper index ON on input line 6377.
+Package hyperref Info: backreferencing OFF on input line 6384.
+Package hyperref Info: Link coloring ON on input line 6387.
+Package hyperref Info: Link coloring with OCG OFF on input line 6394.
+Package hyperref Info: PDF/A mode OFF on input line 6399.
+LaTeX Info: Redefining \ref on input line 6439.
+LaTeX Info: Redefining \pageref on input line 6443.
+\Hy@abspage=\count123
+\c@Item=\count124
+\c@Hfootnote=\count125
+)
+Package hyperref Info: Driver (default): hdvips.
+(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hdvips.def
+File: hdvips.def 2018/02/06 v6.86b Hyperref driver for dvips
+(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pdfmark.def
+File: pdfmark.def 2018/02/06 v6.86b Hyperref definitions for pdfmark specials
+\pdf@docset=\toks33
+\pdf@box=\box32
+\pdf@toks=\toks34
+\pdf@defaulttoks=\toks35
+\HyField@AnnotCount=\count126
+\Fld@listcount=\count127
+\c@bookmark@seq@number=\count128
+(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty
+Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO)
+Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2
+82.
+)
+\Hy@SectionHShift=\skip43
+)) (/usr/share/texlive/texmf-dist/tex/latex/base/ifthen.sty
+Package: ifthen 2014/09/29 v1.1c Standard LaTeX ifthen package (DPC)
+) (/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty
+Package: graphicx 2017/06/01 v1.1a Enhanced LaTeX Graphics (DPC,SPQR)
+(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty
+Package: graphics 2017/06/25 v1.2c Standard LaTeX Graphics (DPC,SPQR)
+(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty
+Package: trig 2016/01/03 v1.10 sin cos tan (DPC)
+) (/usr/share/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg
+File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration
+)
+Package graphics Info: Driver file: dvips.def on input line 99.
+)
+\Gin@req@height=\dimen146
+\Gin@req@width=\dimen147
+)
+\c@theorem=\count129
+\c@corollary=\count130
+(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.sty
+\lst@mode=\count131
+\lst@gtempboxa=\box33
+\lst@token=\toks36
+\lst@length=\count132
+\lst@currlwidth=\dimen148
+\lst@column=\count133
+\lst@pos=\count134
+\lst@lostspace=\dimen149
+\lst@width=\dimen150
+\lst@newlines=\count135
+\lst@lineno=\count136
+\lst@maxwidth=\dimen151
+(/usr/share/texlive/texmf-dist/tex/latex/listings/lstmisc.sty
+File: lstmisc.sty 2015/06/04 1.6 (Carsten Heinz)
+\c@lstnumber=\count137
+\lst@skipnumbers=\count138
+\lst@framebox=\box34
+) (/usr/share/texlive/texmf-dist/tex/latex/listings/listings.cfg
+File: listings.cfg 2015/06/04 1.6 listings configuration
+))
+Package: listings 2015/06/04 1.6 (Carsten Heinz)
+\c@subroutine=\count139
+\c@example=\count140
+(/usr/share/texlive/texmf-dist/tex/latex/base/inputenc.sty
+Package: inputenc 2015/03/17 v1.2c Input encoding file
+\inpenc@prehook=\toks37
+\inpenc@posthook=\toks38
+(/usr/share/texlive/texmf-dist/tex/latex/base/latin1.def
+File: latin1.def 2015/03/17 v1.2c Input encoding file
+))
+\sizebox=\box35
+\lthtmlwrite=\write4
+(./images.aux (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/intro.au
+x) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/datastruct.aux) (/h
+ome/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/psbrout.aux) (/home/cirda
+n/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/commrout.aux) (/home/cirdan/Versio
+niPSBLAS/8Bytes/psblas3/docs/src/tmp/toolsrout.aux) (/home/cirdan/VersioniPSBLA
+S/8Bytes/psblas3/docs/src/tmp/penv.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psb
+las3/docs/src/tmp/error.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/s
+rc/tmp/util.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/precs
+.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/methods.aux))
+\openout1 = `images.aux'.
+
+LaTeX Font Info:    Checking defaults for OML/cmm/m/it on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for T1/cmr/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for OT1/cmr/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for OMS/cmsy/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for OMX/cmex/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for U/cmr/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+LaTeX Font Info:    Checking defaults for PD1/pdf/m/n on input line 149.
+LaTeX Font Info:    ... okay on input line 149.
+\AtBeginShipoutBox=\box36
+Package hyperref Info: Link coloring ON on input line 149.
+(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty
+Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section
+(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty
+Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO)
+)
+\c@section@level=\count141
+)
+LaTeX Info: Redefining \ref on input line 149.
+LaTeX Info: Redefining \pageref on input line 149.
+LaTeX Info: Redefining \nameref on input line 149.
+(./images.out) (./images.out)
+\@outlinefile=\write5
+\openout5 = `images.out'.
+
+\c@lstlisting=\count142
+
+latex2htmlLength hsize=349.0pt
+
+latex2htmlLength vsize=682.0pt
+
+latex2htmlLength hoffset=0.0pt
+
+latex2htmlLength voffset=0.0pt
+
+latex2htmlLength topmargin=0.0pt
+
+latex2htmlLength topskip=0.00003pt
+
+latex2htmlLength headheight=0.0pt
+
+latex2htmlLength headsep=0.0pt
+
+latex2htmlLength parskip=0.0pt plus 1.0pt
+
+latex2htmlLength oddsidemargin=28.0pt
+
+latex2htmlLength evensidemargin=79.0pt
+
+LaTeX Font Info:    Try loading font information for OMS+cmr on input line 225.
+
+(/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd
+File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions
+)
+LaTeX Font Info:    Font shape `OMS/cmr/m/n' in size <9> not available
+(Font)              Font shape `OMS/cmsy/m/n' tried instead on input line 225.
+LaTeX Font Info:    Try loading font information for U+msa on input line 228.
+(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd
+File: umsa.fd 2013/01/14 v3.01 AMS symbols A
+)
+LaTeX Font Info:    Try loading font information for U+msb on input line 228.
+(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd
+File: umsb.fd 2013/01/14 v3.01 AMS symbols B
+)
+
+! LaTeX Error: Misplaced \endSbox! Should be in LR mode.
+
+See the LaTeX manual or LaTeX Companion for explanation.
+Type  H   for immediate help.
+ ...                                              
+                                                  
+l.229   \end{Sbox}
+                  %
+You're in trouble here.  Try typing    to proceed.
+If that doesn't work, type  X   to quit.
+
+l2hSize :Sbox7771:0.0pt::0.0pt::0.0pt.
+[1
+
+
+
+]
+
+! LaTeX Error: Misplaced \endSbox! Should be in LR mode.
+
+See the LaTeX manual or LaTeX Companion for explanation.
+Type  H   for immediate help.
+ ...                                              
+                                                  
+l.260   \end{Sbox}
+                  %
+You're in trouble here.  Try typing    to proceed.
+If that doesn't work, type  X   to quit.
+
+l2hSize :Sbox7788:0.0pt::0.0pt::0.0pt.
+[2
+
+
+]
+Package atveryend Info: Empty hook `BeforeClearDocument' on input line 273.
+Package atveryend Info: Empty hook `AfterLastShipout' on input line 273.
+(./images.aux)
+Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 273.
+Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 273.
+Package rerunfilecheck Info: File `images.out' has not changed.
+(rerunfilecheck)             Checksum: D41D8CD98F00B204E9800998ECF8427E;0.
+Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 273.
+ ) 
+Here is how much of TeX's memory you used:
+ 13704 strings out of 494799
+ 227394 string characters out of 6177696
+ 322233 words of memory out of 5000000
+ 16868 multiletter control sequences out of 15000+600000
+ 6061 words of font info for 25 fonts, out of 8000000 for 9000
+ 81 hyphenation exceptions out of 8191
+ 36i,6n,40p,409b,1382s stack positions out of 5000i,500n,10000p,200000b,80000s
+
+Output written on images.dvi (2 pages, 3212 bytes).
diff --git a/docs/html/images.out b/docs/html/images.out
new file mode 100644
index 000000000..e69de29bb
diff --git a/docs/html/images.pl b/docs/html/images.pl
new file mode 100644
index 000000000..2fcccff4e
--- /dev/null
+++ b/docs/html/images.pl
@@ -0,0 +1,1182 @@
+# LaTeX2HTML 2018 (Released Feb 1, 2018)
+# Associate images original text with physical files.
+
+
+$key = q/(0dotsnp-1);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$(0\dots np-1)$|; 
+
+$key = q/(1dotsmg);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$(1\dots mg)$|; 
+
+$key = q/(1dotsnp);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$(1\dots np)$|; 
+
+$key = q/(i+irw-1),ja(j),val(j);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$(i+irw-1),ja(j),val(j)$|; 
+
+$key = q/-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$-1$|; 
+
+$key = q/-1<=root<=np-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$-1<= root <= np-1$|; 
+
+$key = q/-1leiamlenp-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$-1 \le iam \le np-1$|; 
+
+$key = q/-1lerootlenp-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$-1\le root\le np-1$|; 
+
+$key = q/0,1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0,1$|; 
+
+$key = q/0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0$|; 
+
+$key = q/0<=dst<=np-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0<= dst <= np-1$|; 
+
+$key = q/0<=m<=size(dat,1);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0<= m <= size(dat,1)$|; 
+
+$key = q/0<=root<=np-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0<= root <= np-1$|; 
+
+$key = q/0<=src<=np-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0<= src <= np-1$|; 
+
+$key = q/0leiamlenp-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0 \le iam \le np-1$|; 
+
+$key = q/0leidlenp-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$0 \le id \le np-1$|; 
+
+$key = q/0lepv(i)|; 
+
+$key = q/1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$1$|; 
+
+$key = q/1dotsn;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$1\dots n$|; 
+
+$key = q/1dotsn_{hbox{row}_i};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$1\dots n_{\hbox{row}_i}$|; 
+
+$key = q/=0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$=0$|; 
+
+$key = q/>0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$>0$|; 
+
+$key = q/A;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$A$|; 
+
+$key = q/A^T;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$A^T$|; 
+
+$key = q/CG;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$CG$|; 
+
+$key = q/D;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$D$|; 
+
+$key = q/FCG(1);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$FCG(1)$|; 
+
+$key = q/I;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$I$|; 
+
+$key = q/ILU(0);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ILU(0)$|; 
+
+$key = q/IX;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$IX$|; 
+
+$key = q/N_I=nl;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$N_I=nl$|; 
+
+$key = q/O(n^2);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$O(n^2)$|; 
+
+$key = q/O(nlogn);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$O(n \log n)$|; 
+
+$key = q/P^T;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$P^T$|; 
+
+$key = q/P^{T};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$P^{T}$|; 
+
+$key = q/P_a;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$P_a$|; 
+
+$key = q/P_aP^T;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$P_aP^T$|; 
+
+$key = q/Q;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$Q$|; 
+
+$key = q/T;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$T$|; 
+
+$key = q/X;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$X$|; 
+
+$key = q/a;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$a$|; 
+
+$key = q/a_{ij}ne0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$a_{ij} \ne0$|; 
+
+$key = q/alpha;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\alpha$|; 
+
+$key = q/amax;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$amax$|; 
+
+$key = q/asum;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$asum$|; 
+
+$key = q/beta;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\beta$|; 
+
+$key = q/calB;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\cal B$|; 
+
+$key = q/calH;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\cal H$|; 
+
+$key = q/calI;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\cal I$|; 
+
+$key = q/collect;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$collect$|; 
+
+$key = q/dat;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$dat$|; 
+
+$key = q/dat_i;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$dat_i$|; 
+
+$key = q/diag(1)=1(noscaling);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$diag(1) = 1 (no scaling)$|; 
+
+$key = q/dot;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$dot$|; 
+
+$key = q/dst;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$dst$|; 
+
+$key = q/fbox{TheSbox};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\fbox{\TheSbox}|; 
+
+$key = q/flag=psb_sort_keep_idx_;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$flag = psb\_sort\_keep\_idx\_$|; 
+
+$key = q/flag=psb_sort_ovw_idx_;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$flag = psb\_sort\_ovw\_idx\_$|; 
+
+$key = q/glob_x;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$glob\_x$|; 
+
+$key = q/glob_x_{1:m,1:n};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$glob\_x_{1:m,1:n}$|; 
+
+$key = q/i+irw-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$i+irw-1$|; 
+
+$key = q/i;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$i$|; 
+
+$key = q/i=1,dots,nz;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$i=1,\dots,nz$|; 
+
+$key = q/i=1,nr;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$i=1,nr$|; 
+
+$key = q/ia(i),ja(i),val(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ia(i),ja(i),val(i)$|; 
+
+$key = q/ia(i),ja(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ia(i),ja(i)$|; 
+
+$key = q/ia(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ia(i)$|; 
+
+$key = q/iam=-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$iam=-1$|; 
+
+$key = q/id;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$id$|; 
+
+$key = q/iin{1dotsmg};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$i\in \{1\dots mg\}$|; 
+
+$key = q/includegraphics[scale=0.45]{figuresslashtry8x8.eps};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.45]{figures/try8x8.eps}|; 
+
+$key = q/includegraphics[scale=0.45]{figuresslashtry8x8};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.45]{figures/try8x8}|; 
+
+$key = q/includegraphics[scale=0.65]{figuresslashpoints.eps};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/points.eps}|; 
+
+$key = q/includegraphics[scale=0.65]{figuresslashpsblas.eps};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/psblas.eps}|; 
+
+$key = q/includegraphics[scale=0.65]{figuresslashpsblas};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/psblas}|; 
+
+$key = q/includegraphics[scale=0.65]{figuresslashtry8x8_ov.eps};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/try8x8_ov.eps}|; 
+
+$key = q/includegraphics[scale=0.65]{figuresslashtry8x8_ov};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/try8x8_ov}|; 
+
+$key = q/irst>0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$irst>0$|; 
+
+$key = q/irw(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$irw(i)$|; 
+
+$key = q/itmax=1000;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$itmax = 1000$|; 
+
+$key = q/itmaxge1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$itmax \ge 1$|; 
+
+$key = q/itrace;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$itrace$|; 
+
+$key = q/itrace=-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$itrace = -1$|; 
+
+$key = q/ix(1:n);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ix(1:n)$|; 
+
+$key = q/ix(:);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ix(:)$|; 
+
+$key = q/ix(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ix(i)$|; 
+
+$key = q/ix(i)leftarrowi;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ix(i) \leftarrow
+i$|; 
+
+$key = q/j;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$j$|; 
+
+$key = q/j=irp(i),dots,irp(i+1)-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$j=irp(i),\dots,irp(i+1)-1$|; 
+
+$key = q/ja(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ja(i)$|; 
+
+$key = q/lidx(1:nl);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$lidx(1:nl)$|; 
+
+$key = q/loc_x_i;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$loc\_x_i$|; 
+
+$key = q/m;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$m$|; 
+
+$key = q/mg;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$mg$|; 
+
+$key = q/n;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$n$|; 
+
+$key = q/n_{hbox{row}_i}+1dotsn_{hbox{col}_i};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$|; 
+
+$key = q/nlge0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nl\ge 0$|; 
+
+$key = q/nnz;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nnz$|; 
+
+$key = q/np-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$np-1$|; 
+
+$key = q/np;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$np$|; 
+
+$key = q/nr+1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nr+1$|; 
+
+$key = q/nrm2;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nrm2$|; 
+
+$key = q/nv>1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nv>1$|; 
+
+$key = q/nz;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nz$|; 
+
+$key = q/nzin+nz;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$nzin+nz$|; 
+
+$key = q/ptype;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$ptype$|; 
+
+$key = q/r_i=b-Ax_i;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$r_i=b-Ax_i$|; 
+
+$key = q/res;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$res$|; 
+
+$key = q/root=-1;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$root=-1$|; 
+
+$key = q/rotatebox{-90}{includegraphics[scale=0.65]{figuresslashpoints}};FSF=1.6;AAT/;
+$cached_env_img{$key} = q|\rotatebox{-90}{\includegraphics[scale=0.65]{figures/points}}|; 
+
+$key = q/row;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$row$|; 
+
+$key = q/scatter;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$scatter$|; 
+
+$key = q/size(dat,1);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$size(dat,1)$|; 
+
+$key = q/slash;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$/$|; 
+
+$key = q/src;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$src$|; 
+
+$key = q/trans=N;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$trans = N$|; 
+
+$key = q/unitd=U;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$unitd = U$|; 
+
+$key = q/update_type=psb_avg_;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$update\_type = psb\_avg\_ $|; 
+
+$key = q/val;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$val$|; 
+
+$key = q/vg(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$vg(i)$|; 
+
+$key = q/vg;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$vg$|; 
+
+$key = q/vl(1:nl);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$vl(1:nl)$|; 
+
+$key = q/vl;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$vl$|; 
+
+$key = q/x(i);MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x(i)$|; 
+
+$key = q/x(i)=0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x(i) = 0$|; 
+
+$key = q/x;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x$|; 
+
+$key = q/x_i,y;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x_i, y$|; 
+
+$key = q/x_i;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x_i$|; 
+
+$key = q/x_{:,:};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$x_{:, :}$|; 
+
+$key = q/y(i)=0;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$y(i) = 0$|; 
+
+$key = q/y;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$y$|; 
+
+$key = q/y_{:,:};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$y_{:, :}$|; 
+
+$key = q/{displaymath}14{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}\verb\vert psb_version_string_\vert\end{displaymath}|; 
+
+$key = q/{displaymath}amaxleftarrowmax_i{(|re(x_i)|+|im(x_i)|)}{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}amax \leftarrow \max_i {(\vert re(x_i)\vert + \vert im(x_i)\vert)}\end{displaymath}|; 
+
+$key = q/{displaymath}amaxleftarrowmax_i|x_i|{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}amax \leftarrow \max_i \vert x_i\vert\end{displaymath}|; 
+
+$key = q/{displaymath}asumleftarrow|re(x)|_1+|im(x)|_1{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}asum \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath}|; 
+
+$key = q/{displaymath}asumleftarrow|x_i|{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}asum \leftarrow \Vert x_i\Vert\end{displaymath}|; 
+
+$key = q/{displaymath}dotleftarrowx(i)y(i).{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x(i) y(i).\end{displaymath}|; 
+
+$key = q/{displaymath}dotleftarrowx^Hy{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x^H y\end{displaymath}|; 
+
+$key = q/{displaymath}dotleftarrowx^Ty{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x^T y\end{displaymath}|; 
+
+$key = q/{displaymath}err=frac{|r_i|}{(|A||x_i|+|b|)}|; 
+
+$key = q/{displaymath}err=frac{|r_i|}{|b|_2}|; 
+
+$key = q/{displaymath}err=frac{|r_i|}{|r_0|_2}|; 
+
+$key = q/{displaymath}glob_xleftarrowcollect(loc_x_i){displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath}|; 
+
+$key = q/{displaymath}loc_x_ileftarrowscatter(glob_x){displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}loc\_x_i \leftarrow scatter(glob\_x) \end{displaymath}|; 
+
+$key = q/{displaymath}nrm1leftarrow|A|_1{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}nrm1 \leftarrow \Vert A\Vert _1 \end{displaymath}|; 
+
+$key = q/{displaymath}nrm2leftarrowsqrt{x^Hx}{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}nrm2 \leftarrow \sqrt{x^H x}\end{displaymath}|; 
+
+$key = q/{displaymath}nrm2leftarrowsqrt{x^Tx}{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}nrm2 \leftarrow \sqrt{x^T x}\end{displaymath}|; 
+
+$key = q/{displaymath}nrmileftarrow|A|_infty{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}nrmi \leftarrow \Vert A\Vert _\infty \end{displaymath}|; 
+
+$key = q/{displaymath}res(i)leftarrowmax_k|x(k,i)|{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath}|; 
+
+$key = q/{displaymath}res(i)leftarrowx(:,i)^Ty(:,i){displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow x(:,i)^T y(:,i)\end{displaymath}|; 
+
+$key = q/{displaymath}res(i)leftarrow|re(x)|_1+|im(x)|_1{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath}|; 
+
+$key = q/{displaymath}res(i)leftarrow|x(:,i)|_2{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert x(:,i)\Vert _2 \end{displaymath}|; 
+
+$key = q/{displaymath}res(i)leftarrow|x_i|{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert x_i\Vert\end{displaymath}|; 
+
+$key = q/{displaymath}res=sqrt{sum_idat_i^2},{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}res = \sqrt{\sum_i dat_i^2},\end{displaymath}|; 
+
+$key = q/{displaymath}slashleftarrow1slashx(i).{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}/ \leftarrow 1/x(i).\end{displaymath}|; 
+
+$key = q/{displaymath}slashleftarrowx(i)slashy(i).{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}/ \leftarrow x(i)/y(i).\end{displaymath}|; 
+
+$key = q/{displaymath}xleftarrowQx{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}x \leftarrow Q x \end{displaymath}|; 
+
+$key = q/{displaymath}xleftarrowx{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}x \leftarrow x \end{displaymath}|; 
+
+$key = q/{displaymath}yleftarrowalpha>x+betay{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}y \leftarrow \alpha\> x+ \beta y \end{displaymath}|; 
+
+$key = q/{displaymath}yleftarrowalphaA^Hx+betay{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}
+y \leftarrow \alpha A^H x + \beta y
+\end{displaymath}|; 
+
+$key = q/{displaymath}yleftarrowalphaA^Tx+betay{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}
+y \leftarrow \alpha A^T x + \beta y
+\end{displaymath}|; 
+
+$key = q/{displaymath}yleftarrowalphaAx+betay{displaymath};MSF=1.6;AAT/;
+$cached_env_img{$key} = q|\begin{displaymath}
+y \leftarrow \alpha A x + \beta y
+\end{displaymath}|; 
+
+$key = q/{eqnarraystar}y&leftarrow&alphaT^{-1}x+betayy&leftarrow&alphaDT^{-1}x+betayy&lefhaDT^{-H}x+betayy&leftarrow&alphaT^{-H}Dx+betay{eqnarraystar};MSF=1.6;TAGS=R;AAT/;
+$cached_env_img{$key} = q|\begin{eqnarray*}
+y &\leftarrow& \alpha T^{-1} x + \beta y\\\\
+y &\leftarrow& \al...
+...-H} x + \beta y\\\\
+y &\leftarrow& \alpha T^{-H} D x + \beta y\\\\
+\end{eqnarray*}|; 
+
+$key = q/{lstlisting}callhb_read(a,iret,iunit,filename,b,mtitle){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call hb_read(a, iret, iunit, filename, b, mtitle)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callhb_write(a,iret,iunit,filename,key,rhs,mtitle){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call hb_write(a, iret, iunit, filename, key, rhs, mtitle)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callmm_array_read(b,iret,iunit,filename){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call mm_array_read(b, iret, iunit, filename)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callmm_array_write(b,iret,iunit,filename){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call mm_array_write(b, iret, iunit, filename)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callmm_mat_read(a,iret,iunit,filename){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call mm_mat_read(a, iret, iunit, filename)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callmm_mat_write(a,mtitle,iret,iunit,filename){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call mm_mat_write(a, mtitle, iret, iunit, filename)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_error(icontxt){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_error(icontxt)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_errpush(err_c,r_name,i_err,a_err){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_errpush(err_c, r_name, i_err, a_err)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_gather(glob_x,loc_x,desc_a,info,root)callpsb_gather(glob_x,loc_x,desc_a,info,root){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_gather(glob_x, loc_x, desc_a, info, root)
+call psb_gather(glob_x, loc_x, desc_a, info, root)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_halo(x,desc_a,info)callpsb_halo(x,desc_a,info,work,data){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_halo(x, desc_a, info)
+call psb_halo(x, desc_a, info, work, data)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_krylov(method,a,prec,b,x,eps,desc_a,info,&&itmax,iter,err,itrace,irst,istop,cond){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_krylov(method,a,prec,b,x,eps,desc_a,info,&
+& itmax,iter,err,itrace,irst,istop,cond)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_ovrl(x,desc_a,info)callpsb_ovrl(x,desc_a,info,update=update_type,work=work){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_ovrl(x, desc_a, info)
+call psb_ovrl(x, desc_a, info, update=update_type, work=work)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_scatter(glob_x,loc_x,desc_a,info,root,mold){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_scatter(glob_x, loc_x, desc_a, info, root, mold)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_set_erraction(err_act){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_set_erraction(err_act)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}callpsb_set_errverbosity(v){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+call psb_set_errverbosity(v)
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}vres(1)=psb_geamax(x1,desc_a,info,global=.false.)vres(2)=psb_geamax(eamax(x3,desc_a,info,global=.false.)callpsb_amx(ictxt,vres(1:3)){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+vres(1) = psb_geamax(x1,desc_a,info,global=.false.)
+vres(2)...
+...(x3,desc_a,info,global=.false.)
+call psb_amx(ictxt,vres(1:3))
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}vres(1)=psb_geasum(x1,desc_a,info,global=.false.)vres(2)=psb_geasum(easum(x3,desc_a,info,global=.false.)callpsb_sum(ictxt,vres(1:3)){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+vres(1) = psb_geasum(x1,desc_a,info,global=.false.)
+vres(2)...
+...(x3,desc_a,info,global=.false.)
+call psb_sum(ictxt,vres(1:3))
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}vres(1)=psb_gedot(x1,y1,desc_a,info,global=.false.)vres(2)=psb_gedotot(x3,y3,desc_a,info,global=.false.)callpsb_sum(ictxt,vres(1:3)){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+vres(1) = psb_gedot(x1,y1,desc_a,info,global=.false.)
+vres(...
+...,y3,desc_a,info,global=.false.)
+call psb_sum(ictxt,vres(1:3))
+\end{lstlisting}|; 
+
+$key = q/{lstlisting}vres(1)=psb_genrm2(x1,desc_a,info,global=.false.)vres(2)=psb_genrm2(nrm2(x3,desc_a,info,global=.false.)callpsb_nrm2(ictxt,vres(1:3)){lstlisting};AAT/;
+$cached_env_img{$key} = q|\begin{lstlisting}
+vres(1) = psb_genrm2(x1,desc_a,info,global=.false.)
+vres(2)...
+...x3,desc_a,info,global=.false.)
+call psb_nrm2(ictxt,vres(1:3))
+\end{lstlisting}|; 
+
+$key = q/|{calI}_i|+|{calB}_i|+|{calH}_i|;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$|; 
+
+$key = q/|{calI}_i|+|{calB}_i|;MSF=1.6;AAT/;
+$cached_env_img{$key} = q|$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$|; 
+
+1;
+
diff --git a/docs/html/images.tex b/docs/html/images.tex
new file mode 100644
index 000000000..2191e46c8
--- /dev/null
+++ b/docs/html/images.tex
@@ -0,0 +1,273 @@
+\batchmode
+\documentclass[10pt,a4paper,twoside]{article}
+
+\usepackage{pstricks}
+\usepackage{fancybox}
+\usepackage{amsfonts}
+\usepackage[bookmarks=true,             bookmarksnumbered=true,             bookmarksopen=false,             plainpages=false,            pdfpagelabels,            colorlinks,             linkcolor=blue]{hyperref}
+\usepackage{ifthen}
+\usepackage{graphicx}
+
+\newtheorem{theorem}{Theorem} 
+\newtheorem{corollary}{Corollary} \usepackage{listings}
+
+
+\pdfoutput=0
+
+
+
+\newcounter{subroutine}[subsection] 
+\newcounter{example}[subroutine] \makeatletter%
+\providecommand{\subsubroutine}[2]{%
+\stepcounter{subroutine}%
+      \subsection*{\flushleft #1---#2 \endflushleft}%
+      \addcontentsline{toc}{subsubsection}{#1}%
+      \markright{#1}}%%
+\providecommand{\subsubsubroutine}[2]{%
+\stepcounter{subroutine}%
+      \subsubsection*{\flushleft #1---#2 \endflushleft}%
+      \addcontentsline{toc}{paragraph}{#1}%
+      \markright{#1}}%%
+\providecommand{\examplename}{Example}%
+\providecommand{\syntaxname}{Syntax} 
+
+\makeatother%
+\providecommand{\example}{\stepcounter{example}%
+\section*{Example~\arabic{example}}} 
+
+%
+\providecommand{\precdata}{\hyperlink{precdata}{{\tt psb\_prec\_type}}}%
+\providecommand{\descdata}{\hyperlink{descdata}{{\tt psb\_desc\_type}}}%
+\providecommand{\spdata}{\hyperlink{spdata}{{\tt psb\_Tspmat\_type}}}%
+\providecommand{\vdata}{\hyperlink{vdata}{{\tt psb\_T\_vect\_type}}}%
+\providecommand{\spbasedata}{\hypertarget{spbasedata}{{\tt psb\_T\_base\_sparse\_mat}}}%
+\providecommand{\vbasedata}{\hypertarget{vbasedata}{{\tt psb\_T\_base\_vect\_type}}} 
+
+
+
+
+\usepackage[latin1]{inputenc}
+
+
+
+\makeatletter
+
+\makeatletter
+\count@=\the\catcode`\_ \catcode`\_=8 
+\newenvironment{tex2html_wrap}{}{}%
+\catcode`\<=12\catcode`\_=\count@
+\newcommand{\providedcommand}[1]{\expandafter\providecommand\csname #1\endcsname}%
+\newcommand{\renewedcommand}[1]{\expandafter\providecommand\csname #1\endcsname{}%
+  \expandafter\renewcommand\csname #1\endcsname}%
+\newcommand{\newedenvironment}[1]{\newenvironment{#1}{}{}\renewenvironment{#1}}%
+\let\newedcommand\renewedcommand
+\let\renewedenvironment\newedenvironment
+\makeatother
+\let\mathon=$
+\let\mathoff=$
+\ifx\AtBeginDocument\undefined \newcommand{\AtBeginDocument}[1]{}\fi
+\newbox\sizebox
+\setlength{\hoffset}{0pt}\setlength{\voffset}{0pt}
+\addtolength{\textheight}{\footskip}\setlength{\footskip}{0pt}
+\addtolength{\textheight}{\topmargin}\setlength{\topmargin}{0pt}
+\addtolength{\textheight}{\headheight}\setlength{\headheight}{0pt}
+\addtolength{\textheight}{\headsep}\setlength{\headsep}{0pt}
+\setlength{\textwidth}{349pt}
+\newwrite\lthtmlwrite
+\makeatletter
+\let\realnormalsize=\normalsize
+\global\topskip=2sp
+\def\preveqno{}\let\real@float=\@float \let\realend@float=\end@float
+\def\@float{\let\@savefreelist\@freelist\real@float}
+\def\liih@math{\ifmmode$\else\bad@math\fi}
+\def\end@float{\realend@float\global\let\@freelist\@savefreelist}
+\let\real@dbflt=\@dbflt \let\end@dblfloat=\end@float
+\let\@largefloatcheck=\relax
+\let\if@boxedmulticols=\iftrue
+\def\@dbflt{\let\@savefreelist\@freelist\real@dbflt}
+\def\adjustnormalsize{\def\normalsize{\mathsurround=0pt \realnormalsize
+ \parindent=0pt\abovedisplayskip=0pt\belowdisplayskip=0pt}%
+ \def\phantompar{\csname par\endcsname}\normalsize}%
+\def\lthtmltypeout#1{{\let\protect\string \immediate\write\lthtmlwrite{#1}}}%
+\newcommand\lthtmlhboxmathA{\adjustnormalsize\setbox\sizebox=\hbox\bgroup\kern.05em }%
+\newcommand\lthtmlhboxmathB{\adjustnormalsize\setbox\sizebox=\hbox to\hsize\bgroup\hfill }%
+\newcommand\lthtmlvboxmathA{\adjustnormalsize\setbox\sizebox=\vbox\bgroup %
+ \let\ifinner=\iffalse \let\)\liih@math }%
+\newcommand\lthtmlboxmathZ{\@next\next\@currlist{}{\def\next{\voidb@x}}%
+ \expandafter\box\next\egroup}%
+\newcommand\lthtmlmathtype[1]{\gdef\lthtmlmathenv{#1}}%
+\newcommand\lthtmllogmath{\dimen0\ht\sizebox \advance\dimen0\dp\sizebox
+  \ifdim\dimen0>.95\vsize
+   \lthtmltypeout{%
+*** image for \lthtmlmathenv\space is too tall at \the\dimen0, reducing to .95 vsize ***}%
+   \ht\sizebox.95\vsize \dp\sizebox\z@ \fi
+  \lthtmltypeout{l2hSize %
+:\lthtmlmathenv:\the\ht\sizebox::\the\dp\sizebox::\the\wd\sizebox.\preveqno}}%
+\newcommand\lthtmlfigureA[1]{\let\@savefreelist\@freelist
+       \lthtmlmathtype{#1}\lthtmlvboxmathA}%
+\newcommand\lthtmlpictureA{\bgroup\catcode`\_=8 \lthtmlpictureB}%
+\newcommand\lthtmlpictureB[1]{\lthtmlmathtype{#1}\egroup
+       \let\@savefreelist\@freelist \lthtmlhboxmathB}%
+\newcommand\lthtmlpictureZ[1]{\hfill\lthtmlfigureZ}%
+\newcommand\lthtmlfigureZ{\lthtmlboxmathZ\lthtmllogmath\copy\sizebox
+       \global\let\@freelist\@savefreelist}%
+\newcommand\lthtmldisplayA{\bgroup\catcode`\_=8 \lthtmldisplayAi}%
+\newcommand\lthtmldisplayAi[1]{\lthtmlmathtype{#1}\egroup\lthtmlvboxmathA}%
+\newcommand\lthtmldisplayB[1]{\edef\preveqno{(\theequation)}%
+  \lthtmldisplayA{#1}\let\@eqnnum\relax}%
+\newcommand\lthtmldisplayZ{\lthtmlboxmathZ\lthtmllogmath\lthtmlsetmath}%
+\newcommand\lthtmlinlinemathA{\bgroup\catcode`\_=8 \lthtmlinlinemathB}
+\newcommand\lthtmlinlinemathB[1]{\lthtmlmathtype{#1}\egroup\lthtmlhboxmathA
+  \vrule height1.5ex width0pt }%
+\newcommand\lthtmlinlineA{\bgroup\catcode`\_=8 \lthtmlinlineB}%
+\newcommand\lthtmlinlineB[1]{\lthtmlmathtype{#1}\egroup\lthtmlhboxmathA}%
+\newcommand\lthtmlinlineZ{\egroup\expandafter\ifdim\dp\sizebox>0pt %
+  \expandafter\centerinlinemath\fi\lthtmllogmath\lthtmlsetinline}
+\newcommand\lthtmlinlinemathZ{\egroup\expandafter\ifdim\dp\sizebox>0pt %
+  \expandafter\centerinlinemath\fi\lthtmllogmath\lthtmlsetmath}
+\newcommand\lthtmlindisplaymathZ{\egroup %
+  \centerinlinemath\lthtmllogmath\lthtmlsetmath}
+\def\lthtmlsetinline{\hbox{\vrule width.1em \vtop{\vbox{%
+  \kern.1em\copy\sizebox}\ifdim\dp\sizebox>0pt\kern.1em\else\kern.3pt\fi
+  \ifdim\hsize>\wd\sizebox \hrule depth1pt\fi}}}
+\def\lthtmlsetmath{\hbox{\vrule width.1em\kern-.05em\vtop{\vbox{%
+  \kern.1em\kern0.8 pt\hbox{\hglue.17em\copy\sizebox\hglue0.8 pt}}\kern.3pt%
+  \ifdim\dp\sizebox>0pt\kern.1em\fi \kern0.8 pt%
+  \ifdim\hsize>\wd\sizebox \hrule depth1pt\fi}}}
+\def\centerinlinemath{%
+  \dimen1=\ifdim\ht\sizebox<\dp\sizebox \dp\sizebox\else\ht\sizebox\fi
+  \advance\dimen1by.5pt \vrule width0pt height\dimen1 depth\dimen1 
+ \dp\sizebox=\dimen1\ht\sizebox=\dimen1\relax}
+
+\def\lthtmlcheckvsize{\ifdim\ht\sizebox<\vsize 
+  \ifdim\wd\sizebox<\hsize\expandafter\hfill\fi \expandafter\vfill
+  \else\expandafter\vss\fi}%
+\providecommand{\selectlanguage}[1]{}%
+\makeatletter \tracingstats = 1 
+
+
+\begin{document}
+\pagestyle{empty}\thispagestyle{empty}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength hsize=\the\hsize}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength vsize=\the\vsize}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength hoffset=\the\hoffset}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength voffset=\the\voffset}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength topmargin=\the\topmargin}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength topskip=\the\topskip}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength headheight=\the\headheight}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength headsep=\the\headsep}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength parskip=\the\parskip}\lthtmltypeout{}%
+\lthtmltypeout{latex2htmlLength oddsidemargin=\the\oddsidemargin}\lthtmltypeout{}%
+\makeatletter
+\if@twoside\lthtmltypeout{latex2htmlLength evensidemargin=\the\evensidemargin}%
+\else\lthtmltypeout{latex2htmlLength evensidemargin=\the\oddsidemargin}\fi%
+\lthtmltypeout{}%
+\makeatother
+\setcounter{page}{1}
+\onecolumn
+
+% !!! IMAGES START HERE !!!
+
+\begingroup 
+\renewcommand{\thepage}{toc}
+\endgroup
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{subsubsection}
+\stepcounter{subsection}
+\stepcounter{section}
+\stepcounter{subsection}
+\stepcounter{subsubsection}
+\stepcounter{subsubsection}
+\stepcounter{subsection}
+\stepcounter{subsubsection}
+\stepcounter{subsubsection}
+\stepcounter{subsection}
+\stepcounter{subsubsection}
+\stepcounter{subsection}
+\stepcounter{subsection}
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{section}
+{\newpage\clearpage
+\lthtmlfigureA{Sbox7771}%
+\begin{Sbox}
+    \begin{minipage}[tl]{0.95\textwidth}
+\small
+\begin{lstlisting}
+subroutine psb_foo(some args, info)
+   ...
+   if(error detected) then
+      info=errcode1
+      call psb_errpush('psb_foo', errcode1)
+      goto 9999
+   end if
+   ...
+   call psb_bar(some args, info)
+   if(info .ne. zero) then
+      info=errcode2
+      call psb_errpush('psb_foo', errcode2)
+      goto 9999
+   end if
+   ...
+9999 continue
+   if (err_act .eq. act_abort) then
+     call psb_error(icontxt)
+     return
+   else
+     return
+   end if
+\par
+end subroutine psb_foo
+\end{lstlisting}
+    \end{minipage}
+  \end{Sbox}%
+\lthtmlfigureZ
+\lthtmlcheckvsize\clearpage}
+
+
+
+\setlength{\fboxsep}{8pt}%
+
+\setlength{\fboxsep}{8pt}
+{\newpage\clearpage
+\lthtmlfigureA{Sbox7788}%
+\begin{Sbox}
+    \begin{minipage}[tl]{0.95\textwidth}
+\begin{verbatim}
+
+==========================================================
+Process: 0.  PSBLAS Error (4010) in subroutine: df_sample           
+Error from call to subroutine mat dist            
+==========================================================
+Process: 0.  PSBLAS Error (4010) in subroutine: mat_distv           
+Error from call to subroutine psb_spasb           
+==========================================================
+Process: 0.  PSBLAS Error (4010) in subroutine: psb_spasb           
+Error from call to subroutine psb_cest            
+==========================================================
+Process: 0.  PSBLAS Error (136) in subroutine: psb_cest            
+Format FOO is unknown
+==========================================================
+Aborting...\end{verbatim}
+
+    \end{minipage}
+  \end{Sbox}%
+\lthtmlfigureZ
+\lthtmlcheckvsize\clearpage}
+
+
+
+\setlength{\fboxsep}{8pt}%
+
+\setlength{\fboxsep}{8pt}
+\stepcounter{section}
+\stepcounter{section}
+\stepcounter{section}
+
+\end{document}
diff --git a/docs/html/img1.png b/docs/html/img1.png
index 2ac27f9619e5eb27f3ca81d3b0f77011c78ffb37..e7280f00d36d73c160acac44123814715d0282a7 100644
GIT binary patch
delta 195
zcmV;!06hQ50n!1G7k>`~0{{R4Xj)>50000gP)t-s|NsA)nVDr}WkW+l?(Xi)%*?8)
zs)&e)c6N3E001&FGTq(X5D*Z%ySuRzb9?{*00DGTPE!Ct=GbNc0034=L_t&tnPXsJ
z;ATJt2N)O@FfcU0xRF52af^Y0cLH+*iaKu)kqg9(96*BYGCYuI;9+23YLL8uX5t1Y
x%{~{(XqW+^Js6C@G;8f$WiX?ffgzKD0RVRK4J4odCXxUE002ovPDHLkV1mBTN)-SA

delta 185
zcmcb_c!F_)cs(BrGXn$TVz!O?3=9nF0X`wF|NsA=Idf)tdHK6{?~IL&1qB6HtyFtfSD&~Skfqwowyp#V3-YkZ=3uOXf}hVtDnm{r-UW|^y)#_

diff --git a/docs/html/img10.png b/docs/html/img10.png
index 41dbbad67f5d00bdffd4d5a0ef6ab3537fd89bbd..e94e2a07b561799143695201bb1d6f20cbd23ffc 100644
GIT binary patch
literal 447
zcmV;w0YLtVP)N0}~h+Hh{?_mU`XI(n83+U05mUvlV6`R;Q^4vAPE%nXPiKUIp|($XCGNdH^B{<}(2qofptd>H?-R1(+zqTDw-S;u>5*UT2UD3nw$
pfHE#12_i({K1U4#Y@$OA0003oRdzkQ%@F_q002ovPDHLkV1n(5r*!}T

literal 404
zcmV;F0c-w=P)Hh-PMH0000)L`2=)-6A3)ySuv-E6N)H
z0004WQchCOO@Ms1W0EQBMt(p4&z~a7%9W0CXEc3}oOwfIcdgAd3JDD|t
z8TF|h<9Dg}C5JT8iioCH)uh}?{otLT21
zTj)s|f>-OIXC4AD9^&PFC0HAS*_$-VmuYZ4dJBoAM}&2Ev*ER45JzwRUHSqS!Qf3A
yw0V0sM@=_)&qhoMZcb|Dy$*UU&2#Sue-RIimk8_{iK!?60000S

diff --git a/docs/html/img100.png b/docs/html/img100.png
index 89a17445a1029668b2dc5d19d19653f60ae4a6e7..f6badca21146f4a33fb163270ec8b2d12afb96e0 100644
GIT binary patch
literal 603
zcmV-h0;K(kP)vdLMKHOk)R@>qDYTRO2bvhLpr5LT9k^UxO}@lC&rv8P}1>9o|&E5*`3!K
z7-QNHWyr9J&$x>qXOX2@#ptyQ=}?d)!(#h`p`Zo*KK
zeu7Lu#`G8_p38=t0Ju90!z^?ot|adaj$3@+S9_xoTyqkeSHx*+
z|Al=+EZX4#9zI7PFTB
pMue^wuUl2zhJ8x${d*o^@Ea(lbhv=4ECB!j002ovPDHLkV1oaQ9QgnM

literal 178
zcmeAS@N?(olHy`uVBq!ia0vp^JV4CH!py+HIB&`YPasDh($

diff --git a/docs/html/img101.png b/docs/html/img101.png
index f539ffeb3309da75bba063bf2f46ca8d6c155676..991e37cee66b74720e38c0af525b746a8ec341ef 100644
GIT binary patch
literal 318
zcmV-E0m1%>P)~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0KZ8@K~yM_V_*OQ4h9S$#epWs%)r2Mm4RUa7PaVri{k+wm~nuCi?C|!
zfCof0Ffi~)1j=&UqJhh337#vVi!gUSfU=svWKOri6TYVkj0?cL
zMGKIm81681Ft8ke#q-MsgcQ2~--d!m3~!J%L8XAPYs|n93}SM@tQsN!0PWT$5ZvYQ
QU;qFB07*qoM6N<$f>23+6aWAK

literal 363
zcmV-x0hIoUP)SV1R;83=9_-@PQ2iAToe~ft7(t39m{91}1hWgEIug
zn*d@qFzIt!fEW)5XvPLqI1%gvKx26r7!tsoOKc!=5rYB`)Mn;y3&=2^0N}Zx184Jt
z>@Pr)1O?jy0VqfC69tfX?E`~!
z1_OgTip~=ZlNr3gETB#%U?N0Gf&2jsds|d4B8hAv-A_Xp001=)B*xBXU4j4r002ov
JPDHLkV1ixrha~_2

diff --git a/docs/html/img102.png b/docs/html/img102.png
index bbb0a1c0638813184dbf7efea93ec2d3bef9b505..c8269e63edae8d233ef80b3eee9596c55103d787 100644
GIT binary patch
literal 487
zcmV@RJ%^YFcdv)Q#THzsaQH81&O^LkeHCl7XW|2!b~M5
zwn$8Du0Sw>%Ea1%oqPcbW1#~p1Ckepiow`@t*AOg|mD&jTF
z!;hv85TF=TXxnrpxL6>`p)qBq8f)n-z4!!?;i9XCVJ{oC1VNQ#JPv~{nTxoB^8@F)
z6*3M_Sw?C~z#UZAJ;vexYdO6oL)TOOq&bfR7xom{X~-n$2;t&
zw4NN|D^TVr6aO+~KFH3SdI|R`*GD*6Eqhm3j~m^YeDcx<_Ch);Ztx`Mq49s`uJ}L>
d-jcdi!Y}RxPPit&Uj6_8002ovPDHLkV1oAg()s`Z

literal 533
zcmV+w0_y#VP)@QY}xzP!v7umUe63_Lg}nA16e{zCv(_{3}wcXA#_(I
z&%r7ppw=G<)NJ^O)TY2TdTD%_msC@;81BET_`4~DBi1&Wutb3;Y
zK>cJ?tr8rvousJzD#0W5lXfbuqn>tcM+pW8$(cl5rdcdA3q1${WK$nM`4U@X
zxxh?#M$CxA_R3_|Xv2!>{^dHrAv)u?9}J#;%W!8ft7GLOatnJ6Txf=O^TBQb8_gwL
z0rN3rkFH@C%M_n8AcJSFh0hSN-KS5waXKD1R_8de$;sfPf4jt6kev&-30>PP1l)V(
zuQafz87dHTGEwHJb%0}FB}Aq@R<1Cu_4Eqeh+*op%=7kJTl+jO6Jo9L6v7`AohkbO
XvC&&dV>9~m00000NkvXXu0mjfjvnZ4

diff --git a/docs/html/img103.png b/docs/html/img103.png
index b6226f3cb58570dcd90e8ddd8732b6904a4be507..61f04c6da1ed8d22886f6315bc88d87c5accc519 100644
GIT binary patch
literal 397
zcmV;80doF{P)~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0S-w-K~y-6V_?7sHZd?TF$gd)9731iU;>dm^YH3sU|@q#1!%%IU<~F9
z1Ps6c2iO&mcn^TMfdML#VaKB&0J2H}2p=#s@G&rQmvaH-85sBwTAncQkZLC>0K@Qx
zM@SqFH~|9&K)1mJPP4qQ0y>uiF2KXV%Lo);1qn2O)D=8nVq!>OU=*riTDs8(R0DPUK@JOM~3~m4b2E#CD2rR8B00000NkvXXu0mjfOT?4B

literal 359
zcmeAS@N?(olHy`uVBq!ia0vp^DnP8j!py+H_;_2w
zg{O;Sh{nX^1O{eS1-^s>EIJNniW?ptVA3gaIKZVO<&f1SCd06iKOwxGA;;lQ18>S2
zX?=0&!^UkaY;Aj(74Ps^@<=OasTmju8nLKnBvde{Bug~7Z7_Cjv5=6Ekd(N=-1o!a
zLu2iZ1jY*oxgFNbVCDWP!4#?ZYKNqRg`$oaJDc35SO=+$#t4hn#)VTH*&`pB%y`0L
z9g)Z69I%k@upL`lIU7&Sf`CVl=NzzY{K|Ae+(GP$v2kR)rNL*@_HXP6~!
zYrmGTl8|`DX<(qGAbI`^gG<%o9Y>i{47Qm#6f-b*UROVw#=5{9=w}8`S3j3^P6==xZb-KV>#z
z;fp9Z>2#Fi)gcy{`>J9EUCn1X1sVxsM=XFw-1c)I$ztaD0e0sw!mWH|r;

literal 368
zcmV-$0gwKPP)SU;qOFAYQ-#2MR#^fdK_@GhhcC{4f^NGlmTe44gRB
zAp@2K5ZPb=Bvcqa2yFNUv4M{-;Q*TeP>vO3KO+Of1tQGC33wUUfFwH*A7E#JiZy_}
z#?8vg!0?@+0O({UAnPv3*%$ad5)x_|4lpo)Tm@8=z`zA^`pTOiYFzMLDz@pgMz;KL#|1$%_ACM65g;oYV2KEa;pL|#akE{0#I~ZoM0mZl$
zTmT0I(24^LNsU4c3>pkv9~l^gKtf`EP^)-A1j_+bH}wMXH!Ay+6aWBqO)Pn?2Tg+j
O0000luya47hY9Uhram4j4GgT
zV><(90Z@Q*0*0Co3mIw{SQ8in7~V4QgDhjmRKpg)aGYT#8*>4t0s{xwK?fN4=ez_u
zdLB^i12DxUz<+?jzJYh4^aTdy3m`Q&aXGh;VI~8^d?0wP*4dWH_+TiD8#8Gw9eT%UGCayn)MLgASv2gwd7iO>+`1rZO;G
Xnjxg1Sth6fw2i^j)z4*}Q$iB}$i+)j

diff --git a/docs/html/img106.png b/docs/html/img106.png
index bd84d15a13c55f0d1ca4f209b9dbf12f7d15f537..6b570c4f67dfc5ff0f8a36803f454da9e48a7838 100644
GIT binary patch
literal 190
zcmeAS@N?(olHy`uVBq!ia0vp^JV4CP!py+H7EF>fZsKm&~=|7_S}I3Cl4Ip6@AK(q{hZ}?JZSSu0aI+X{iEF?hQAxvX+9_=LFr|NnpH%$eoo<)NXW
z@7}#LHa0$U=8T}A;Hp)tIyySi($atmU0hu5-o2}&q_lhYZh2Y7sX!sdk|4ie28U-i
zK=PM7T^vI+CMG8^F!>1_Jj}q()pJLqhK-fYPFbOFCZlx%dlDlXpC6lBox*Fb!|WS0
zE=$Us+W7K1dk`PD#1CE}nFbw4wz@W69vYZWLWL!%?)O-uOd4!^Uh$HDi-T*T^jsN)2=qZfF;{
kh~4C4)Y~EJEXTl*HA%(dr`P=!pzjzwUHx3vIVCg!07F`EA^-pY

diff --git a/docs/html/img107.png b/docs/html/img107.png
index 6c716f7e4178c36efee52549aad19407b2ea3fb7..55ae005a6ccec481c4e7e3f252eb7159b44c9134 100644
GIT binary patch
literal 387
zcmV-}0et?6P)SU;qI|28IF#h6xPFfR}*-h5r#uZeU-?;5TSM2rw5QOJ87M
habWNz-giR|004}KFBO;P>kj|`002ovPDHLkV1i-Hl>h($

literal 259
zcmeAS@N?(olHy`uVBq!ia0vp^3LrKMGXn#oZ=&N)AjcrUC&cyt|Nk>*&MYr44-E}{
z_wJpsvGJKRX9NWWSFKvr(b18XmIhSl;^K1m?p-A%rQN%C%gZWG1qv~i1o;IsI6S)n
zl5g~MaSY*@nVjIjUc)UBIbp{iK~5$fov1Ls$^`kUt+I9b||$o%*%OCB2=>vB$o
ziMM&yF!9XdnJg(G!Fs?;NAi_zB$vdud+9N!*B@YDSY;#m{CfG!zd*+@c)I$ztaD0e
F0sx<5TcrR1

diff --git a/docs/html/img108.png b/docs/html/img108.png
new file mode 100644
index 0000000000000000000000000000000000000000..452a9c87f5ccd95eca5fee9cff47340be799eed9
GIT binary patch
literal 520
zcmV+j0{8uiP)0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*IhDk(0R5*>*l0QoWF&M_5_S(Bk={0pK1;K8v_Yvyipa|{i6wt*%
zj1CsTp@@THT*MAi2S0$5gVSwYGZh>P{Q^Qj+#Gz9w6%p!9SXif^5e<9e;)1yCecIz
z2(dH-e&$}HDOBDuR`dw9JZ(uN?#%uKO65CB+W{Ihz^R>LwTNu>h!GWS-7*mu$C7bj
zn*`+|$CssA+73{IRFJ}ic!Bi!1`K9MZqNl=b%+&0Q$HWlQ3h(CaiRm~h|j(Z{8e_u
z)2wB98UwL(E{QN~Ru#0($X=fr#zduE4pC|{!qho;-h>Wq6#-K~9%53NO6UZK77g?o
zyss%D;jWw^N~X(t>#r@~GFe#Q2Y2o*RA6GJ)x^9lH;YUDD>p{cvaBt@5blHE*)NVCxC)r`uOEv#O`szmH$~hF5vio1uUJ0000<
KMNUMnLSTYI*ymjU

literal 0
HcmV?d00001

diff --git a/docs/html/img109.png b/docs/html/img109.png
index 660cca8c7ec796eebb489d2e672e35a6881cb687..0d45d2e5571a321c21e3009f9df80b97837cf0fc 100644
GIT binary patch
literal 350
zcmV-k0iphhP)GYCvO;GfH3rcWXgc+zHB*
z&Jd`BkyfZ-%7r3-wB#T_i{}c9?2E@|++P}i!{}$WO5LPMtdOq9F>Y#P#G<}{iely@
zDx>w|yPQVS_zRfwp<;=h3YC?gd*`cdgv$v+=@`~7Wj7dL2Cf~$)mxcSf{S9Bn8L!P
w_#EBwA*JsihTf~aZ^mt*<(AI$#|yr}4Tx+iw$jiQi~s-t07*qoM6N<$f;iQj?f?J)

literal 194
zcmeAS@N?(olHy`uVBq!ia0vp^JRmj;GXn#o1jC}|K#p#JPl)UP|Nm#soLOF89vT|@
z?%lgHXU+%;3a(nUs-vSLEiDbG%EiUy?%lgeN=mzT?_M^AZw^q1u_VYZn8D%M4UoLE
zr;B3<$IRq}ga;`J2>}dAY<=uJ1qaxdK2|gMU@4Q}z$nGTb4P}UCnkrHr>9@uAc1{N
o_zmHPD=XR0Fe!9BlvHMBm|@1HdBjz1InX!;Pgg&ebxsLQ09B|yy#N3J

diff --git a/docs/html/img11.png b/docs/html/img11.png
index 31bd2fc6ebcfb2228566927602896b510cc08d62..5af308a8d1d779b827b769262d525b0672dfa850 100644
GIT binary patch
delta 564
zcmV-40?Yl51i%E47k?iF0{{R4w{;XI0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*IzDYzu
zR5*?8RKH6?K^*_6;d_TZpR~0Z4G|3n(hx0gX^@DT`Y}Y(*nf1ixH`Dh;tfF<2yU&?
z(2x+?9yqu)P*1e6c9A?63fPLfQEb=oW<6P9>PQ>iVCo*#p8oZkHK
zsn$vvC_w)USQb$VonQ@nDcyormkMauR#CE@u
zZcmCaik+HIHP(y86LITlFJB8+jjXP!7wyV`TF2<^}UY?41p9-@K
za=IKY4=rluSfz?IhQuFK1hXSv-`AL~&fiV-xA+F}1B&SwjU3Vd00007f@n}3Vw=Fr(G6bG?O5%EDB
zVwZw03c8AaKA>K+JwU;iPLFh*z(g?FZ@59^F70%|mG5zT+9FN_+p
zOtS)*mVa&rmE}*Go+K@yq(e!22Tv)gZ1~MIvq+X5xV7x6Nej-H7E-Sp!}`g>#uybY
zQfs;-v0>vlrh0Cp1?-1jAYV=JUR1UcRP_=$
zE$WrLt2)C~WldzSVyakb=?(IM2i|F*Vslj!Pf*R6iZ5Uh;t3mf!*Q;AIeQSg{5}s>fpRD61%DdD)uI2dG5!?a0<==xxAHdnEn`;*ZCw&1SAUJyoQW5_q{UCRjQ27;sHKh!!5FdHI5Py
zz~4{{*g23xND7Cn4tX)vOC_fqTY?HY3))g4`K{1rgz&U;XvqNTei3W6z=?21Un_Mi
zpU9dZxMElu;f#g46XNc4Lw#cW8D3(XrQq`L@h>LEHjHgg!NxtX7*>VmBa#p8x;=

literal 737
zcmV<70v`Q|P)TxS)sImALl7Zi!9wy^O)Tu~v77%apt1E#Q0%s+4;ML@;)W_HZod1!HkAmn4`
z&6{uD%zN|Z?Ernmuu4V1!JlAEV2_wo28;qAkdV0^`SwfNdrUBDwOW6i_MOC4^3u&E
z?B~#)N_VoH4yg%yT(^IRORaF#ft7=d$*km$fa|=>H9Qx4=m7KVEO1kY#oKY>Rk+eu
zz`IJ#w50|c
zEYL%Yi~Cwu9;shv%5aNicb-av*ZGk7`y4CMjSOzw|4!?l)75J{V+Ql8rHoKUYc#G;Ta81!+J@YfRLlsAwDMA*u
z@doRl(kpsU9WB2H+up$pPAa4A+lEGuedEq?PESXV3a_I%KM7x8SFoGtv52N%U{uzD(t24;wLQ
z?gmC_W@hQbtt~8UdiR9#*wU(YiqPx#=R?L5Yk5|(ez84b;ije_TX
z9$3Os$|mh1krH+|OT0tDUO+fkPcVU*kFmwVTD_TDtXF=;3yvZO#u+I}VV3ob&66hC
zZ8{N}=O)L-7T0s&NoraI!xvMZIh~G;jt!lSGaVbJv)?qUlM(y)Xu4ccgEHgHbcb1K
zJy%-Ue%K3#oLh0xzOylLYX{SWzloxbPvv~$3I`pe8*%-sC9b!VmihTm<>{P`je7#MEc(eUPo
R+zbj}22WQ%mvv4FO#m8@hr9p)

diff --git a/docs/html/img112.png b/docs/html/img112.png
new file mode 100644
index 0000000000000000000000000000000000000000..3a753508dfddc82d642d405520d858ad161c7cff
GIT binary patch
literal 358
zcmV-s0h#`ZP)SU;qM6H~|3)jNB-Eh6@a=PZ%aJa5G>B%s?!_0Mx|D
z4^~{j3le3Yi9$!E+Fyhyu)RR6QFy^^2qg=(ltqDo
zffeXtj_(2vK!GJd|9t>jYA^xLVPm+k7p#n%*MWhHx4<5(lg$g}?wLe;kshEJh`T;O
z*z5{S32=$?U{Y8BL}oKEYyncWa~!@hup2-XOa3~XbDDWR>
z_{@Q12Xg}00AOUhFtDJ+kpBl%m)-yW|Nl2?c#(Dh0OK7md3N$d=>Px#07*qoM6N<$
Ef=wZe2><{9

literal 0
HcmV?d00001

diff --git a/docs/html/img113.png b/docs/html/img113.png
new file mode 100644
index 0000000000000000000000000000000000000000..709c989869cc2b00b70894b8276c3419b72cb984
GIT binary patch
literal 279
zcmeAS@N?(olHy`uVBq!ia0vp^@<7bT!py+H7{vQ(5s+gL;1lBd|NsA)GiRozraC)2
zzkByiQBm>CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR@Fdb&7eZBy|b@;+C9OlaRnsG5f&j
zfCCNu1vTOUa}LzYoeud<9nv(ENpEh9cQ`zuuIL7_*Y<%61Rg>=s{{iLE?@B2Ob?@Dq&`3
ZX1H)nsda~XSp?9544$rjF6*2UngBF;XXXF^

literal 0
HcmV?d00001

diff --git a/docs/html/img114.png b/docs/html/img114.png
new file mode 100644
index 0000000000000000000000000000000000000000..c7a30bbdf0311a231a9fbfda4cb09f2c41fd08b7
GIT binary patch
literal 303
zcmV+~0nq-5P)~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0I*3!K~yM_V_*ORjsgZ0Ai&3f4p=TQU%f!II{%k?r0vLy3fdWweo!kQu
zhn3+#09+X-Pr?KUr*{F&fCJQY7nJ}Hn0&5;A@Kr2HGznnZi6QbIZf;e=n@Qf7&<@%
z5WIU=`0m{Sm;}23--ZHq0ZgNS_8CJhg-Z-t003sKDuEe9k0$^C002ovPDHLkV1g8C
BY6AcO

literal 0
HcmV?d00001

diff --git a/docs/html/img115.png b/docs/html/img115.png
new file mode 100644
index 0000000000000000000000000000000000000000..3ee61bda66d209d8071a342cae4b733c713915a7
GIT binary patch
literal 199
zcmeAS@N?(olHy`uVBq!ia0vp^JV4CH!py+HIB&`YPawx2z$e7@|Ns9pXU4G0e$3jGJffG7xp{(g5!YACHj7l(cyW
z(V9z|aB6pgoKjwJu1uE-TcWN7&#KY*SmxJA(=YRp2s$NJyc02Q*{aw%Df>R2>SPMF
zZI&8xahK;a*UW%N@i61~io^Icz_0A}#(+tEm|?5M{(G$X
zh}=Tg@ePv&9s^HA%S4Wn;dx2UElKj;+)UXX4$dJa|=Jt
zT8yiICgOs8Yd<}Ed7HB7*&uw2Wix-91
ez}#}om65^j1moX;7{hR&Y6eeNKbLh*2~7abRwP&e

diff --git a/docs/html/img117.png b/docs/html/img117.png
index 74f211e1e3c6cc60031f040e98a014fb4b6367f3..f17fc72aba4f194b93d54ff61ecbc9242a516bd8 100644
GIT binary patch
literal 411
zcmV;M0c8G(P)=W
zoDUcn<}rXNAdgFc*Zj)_?IYNI!-0o43UC1&B?XQI3;?elmM?%~FOL8K002ovPDHLk
FV1kP@nH~TD

literal 257
zcmeAS@N?(olHy`uVBq!ia0vp^l0eMI!py+H7%x2QDUf3j;1lBd|NsA)GiR2UmxqRi
zzI*r1*x2~YnKOcdf~!`o>gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0Lj;Tx;Tb#%uG%If?EtK67Mt(8W?}GinD1vNcq9AXq}_xiHyu<45rT*
zng6rJPUm)DX4zvI*}(MY&K)Q54X+p)*RxNkv{7jNGhdQPa*|Z3C@R7(8A5T-G@yGywoy
Ccv`6pHR5*=eU;u*&6Py{)K*9uebRh!}!3a{$z=0&Z8wwC2K%M+x
z#s|)s3=Euq8$coq{7fex(!A&f<1z;wOn|caII9!0=fMMp$`Cx%Ntd-0_kqdAYyqtVM2A2a=fRmx&0~4|#{0tXZ7*GXh2+(}L
z0aJhoz@C82b0nmEGKL7FBo+l6`r;EAntn)u*dJzMQSf0QLoq*>0K^FgfNtP21_FD8
z0=58#w--_&S~xq94fuI(BE#$i1}*_!bD$|W00%CKAq>!yJ9=~j0FRe#j3nV`00000
M07*qoM6N<$f{k&6MF0Q*

literal 390
zcmV;10eSw3P)SU?2ia_`tvmq__zxYaaR57oN`Qrd0c24wn8VLd-~gAI0CEun
zM}qi--y9AF`~@IKZs1^GT)?n__W~#&az6kC6b`Uo;DPJ8z`%fTC>H~R0`(k90hofs
z_HqDviRl7{8r}n7Y8jZ6U%)s~(17C?gCfTRo(~NCpBWhbfW-N^7F^L{VE8bZ;{k&L
zFbF=Zf+dMnYz$j~)E4#&{0YE-;#zP48mSfuoC-inaAm(51Lp(=u8#~1LYOYp2N5g>
kFeO+(3F#X-o~8=`0F-GlG@kMKk^lez07*qoM6N<$f~2gJ7ytkO

diff --git a/docs/html/img119.png b/docs/html/img119.png
index fdfd3db7a7accefb6aa96c9dfe408ed99ccfa6f5..89de8dc3246d22b8b3d9421a55cbe8a7f745865e 100644
GIT binary patch
literal 857
zcmV-f1E&0mP)0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*J*GWV{R7i>KR?TV@K@k2nv(r1h*-5V`k${kW0KvIM5Xt5gFa-AE
zC8q%~;K|9wD0qk>sJ9M+8YH-a58%o3Jb?@d3pp(83kZWh!5pNm{+Z2evL-nQVo1Ss
zSAYFgZB128_X3CHg&tD3@Q{hs>@aCx95ZbL5n4uPmk~Ciql}zr#~k8UIJntVkU753
z&^lY#gE)cpiKRBwg3@Y(oB|4uR_W=@BQh@eC7
z=sll1FyZhGEO*U&h&eeQcL!!qnmj~lM^ddN**DWpl#_1YN}~Dob_0x+pyjSi+@Jiu5p%(M}X;Qg>7kd8rjmWeS
z^^c)5dfm*m2&&X9f+CHPdo;AsuF~<6S5eATNvOB{uHIXresh>uIhc_%IXzOLb0{vY
z?~P?G06T^Lq_873lq0n88Zc`pj{UOO**hu*x+|;Q5yaWu80Bq&+fXf=MX1b_yq}Z7
zl}BBI)`HHccf2whn@MozVvFpI$`flfm20&60k7A@NR#;&!yiCT4bkH2y>KkDRPHyS=_Q~616nmkNqKI6f^4tEfyb${kc__@B>r5
znlvf`lla?o6>D@U!~=^vb_)Kil$qBX^(IYoYxC13=X;+vf$Mk^o77IMUs^X;AjRor
z{3DI)i9tWlqG54jYZf3{7Pbdw}-J!L8jMqY}ldw4Iu&vc#
jOcebb{N?+

literal 263
zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)i!py+HD3-|}4dmzs_=LFr|NnpH%$eoo<)NXW
z@7}#TbLNbopx~-it2#P5($dm^s$5)L?%uttq@=Wa_wHp=_~rnG7)yfuf*Bm1-2lmV
zc)B=-NK8#m0D_bQOd<(9-%8lpSlJ~k%oUzY5ph%zXI7taoL5jJfjxNjfds})fjwRV
zha)NuT(NFrGdO!>0>dH;g=GdZm)b7y?+Cclc+`gFLy193qh$#{GxKZK87;r9*x1q-
zHQL`FRAaMSX&w;A-E4Y@L5+<~*W&q8B{ny0+cjcqo!A(*$SDb2eRfm;=q3hFS3j3^
HP6KR=;o4KotHGr*_V&b16&2RwNdtT4I0&)%g$7|G*5)
z&4fT=FmwPW4iy0&ic+Z(urYPcUw}@kKw^Q29m%4iQYLf1{3~%%BoG7Sll<=d-uv#|
zdp%9$ZjS|WuxB1cVFmW3Vxqr#AYxxprU-){^Jhvl5LQNHjSS!bTr
zO%85^e6QYb*5DropVQP8YfTT16a-^dSk%*J>x$O)iB|5-uh6PlReJjf)Z9`RiQ|NZ
zC(%hWq1j>rXWn(s-;!rbQ&>(hk9gw2a~XI+>4?nuTd^zpJ=K&nO%!FQ9eNR>Zs-P%
zIc5}%J7_m-9A#04d6coHgdE>wX9^G+h3%ok)g7rO`7z99bRateGgVc?5150W@m5$t
zygots?sh(FByhq{wUimBlBEw+DgASzKbN94`UNM6sUG%cDdw|(^F>*?!P;B*N90oP
zvhAaB5vW)fIaQ)mDLRVB

literal 244
zcmeAS@N?(olHy`uVBq!ia0vp^vOp}y!py+H7^-K%0_3O%_=LFr|NnpH%$eoo<)NXW
z@7}!=6ck*wYE@cV8c^QF#pUkZyGlw*yLa#2SC>8sD8yJ2FVdQ&MBb@0D2=%7XSbN

diff --git a/docs/html/img121.png b/docs/html/img121.png
index 4c5591100d17b9afb1b86907d6640487850c0b0e..61df3677072db8097bfa090839e9e06db779847c 100644
GIT binary patch
literal 423
zcmV;Y0a*TtP)!L4YtAkD?DKJWdetfZ>1tUj|-223A%^hW!5@AfgFy
zwHF9mO+46*1#BR!4FL{-9mI|hXogUz0mRI}z;6H&;RkyHv!;LvYe02C_Z2*6PJVI~788k+w9zreuHIpM=Xu+Upj$mjnD0)$HT0|^K-
zYuMO;X0ZiuD6l19n913JWc!Q;E>M)37ut&<`{CR~Bpxq5AB}i`ErDUp#Q+MdpoIs+
R9ZCQI002ovPDHLkV1mBSqeuV%

literal 276
zcmeAS@N?(olHy`uVBq!ia0vp^@*p+`GXn#oU}h;VkYg6$6XN>+|Nq5{7tfqIv%I`K
zG&JG5=N43U^RH{dqkQ3a0IE_X_*=KTM^Svzi$?VHr)#~cK5xD6(x9%1Td
zm+I$;+u*!FIn;4=zU_pF2T?uqBK28}BsWg3V#rwZhnEShP`q5dZMO*oNZcj4b9{Zx0Kgafm@4WNo
Y{fC%acO7u30J@98)78&qol`;+0I?%-J^%m!

diff --git a/docs/html/img122.png b/docs/html/img122.png
index 8e8e8c7b617ef9d65016d9de0d80b87d8db2f0da..401353f2dbf4ca549c251ae333a911143e4d8228 100644
GIT binary patch
literal 151
zcmeAS@N?(olHy`uVBq!ia0vp^JRmj;GXn#o1jC}|K#p{PPl)UP|Notxo!`BC*U`~Y
zR#rB1=1e0aBLM+{-Me?cJwGD?sEn~B$S;_|;n|HeAV=)kjc;Yff1ORy%KnP7(N&>q$5=EGYha4fMh_N$qZB3
z7`z<#8BSbbd%$3L0by1i1G6kx1_+)ptQX+C_O5}!{sS|RKvHGF!2B01GYVh;05K>y
ULaoNwV*mgE07*qoM6N<$f^M#jssI20

diff --git a/docs/html/img123.png b/docs/html/img123.png
index 56826b8bf01bdaa32853861434dfdbb451e4b900..01f60011ca74ec47c17bf08763c162d6e33b66fe 100644
GIT binary patch
literal 272
zcmeAS@N?(olHy`uVBq!ia0vp^l0eMQ!py+HIK|)70mv~3@CkAK|NsBYnKM&UQ=Ofi
z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3
zqyag7o-U3d95a&>fPjlZh{uwZC*eR%<4i`b8IpDlD{A=IL=NyDVNBv4J?aQ4p+DN
z6tc4APq@%NljnaVtA&U}T2n<1BM)!9h+`1o6XN>+|NogYXO@?jhlYl}
zd-u-R*!awuGlGJGt5&V*=;%mGO9Lu&adEkO_pXwX((c{6)?;<3R}H
zMD8CKM2w>5Keyc{cjigefhi24w(Q9pI-S=h1wXjUk@jcR&I1x_&mUl5_z=MR*{!O%
Q0%#9|r>mdKI;Vst061<=9{>OV

diff --git a/docs/html/img124.png b/docs/html/img124.png
index e205726f752de2f3b9c3206e5602974187753a72..c0d01a751711f11606e26c2164ad44fcc36ff6f9 100644
GIT binary patch
literal 390
zcmV;10eSw3P)~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0S8G$K~yM_#gRWs13?tVe;9V1U9(G$u$7g_9wA2BP@a_p29a{SfdFTMDQ!#-;eLTHv@BY`3k)dJ3~gKzEf7A5VnIx
z!pF#GKO+uSQRk5Bd-If*O2R(gkJF1NTLC%dQ|%uSFMi}59PqGAQi0T&dYfJ|db#1&
z#?_cTB!DyDXeN15kt>@y#l#2j8b;K5Aa1~jeU9Kbg3};-!iBhv!^=0#7MvT{SsLE8
kf!nND%ZV|+yZi6(4x7g{X4lUHHUIzs07*qoM6N<$f*HZ9f&c&j

literal 259
zcmeAS@N?(olHy`uVBq!ia0vp^(m>3|!py+H82!xa29RSA;1lBd|NsA)GiR2UmxqRi
zzI*r1*x2~YnKOcdf~!`o>gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0LeFcx;Tb#%uG&jVB_X;P?4W={`7$ZXEro8Hg*jQrHM=o!5;L<}LRvy#
zK*Ndm3?Cb3U3DnYW0tn=FiY@waA;9)qvO^UjgA%P+pR<855$x)Ds1FiB+l`ykz-!E
z!O>O)rHx#t9@j9aOp?gsZm8^e)h_X4`utRZyDTQ047NdHNi(DOcmf^6;OXk;vd$@?
F2>^0?UMK(n

diff --git a/docs/html/img125.png b/docs/html/img125.png
index 0df61bc18ca942c85295b2217fa35a9a6dce5cb4..ee72c1c30a9efee573c80897adb80221fb706be9 100644
GIT binary patch
literal 260
zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)o!py+H=(c3y3LwWIz$e7@|Ns9pXU6dAc};NK8#m0D@$PhPejE*d>}%RhbX7F|wUwb}(dCnaWecvnJse-(eqvvnLyv
z3yhjH@
zc%4F6gXV08FRb@jHI7d{$dSkp{l7kyW&QNVg;J+j7;Z<4^|~A1)&aVP!PC{xWt~$(
F69Br+TY3Nh

literal 808
zcmV+@1K0eCP)+0000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*Jrb$FWR7i>KRnKeGKotHmn`E=eCbR6RJ!r?pL#tq0Z=N>AA5@CE
z1rLe`b5IZub_;s)V9;WVtrGhWn4>p?l%fQoO3|Ve*Mf&qgr#`!*0hMWJ+w{|Thi?h
zD^(EbcbI(h-kWdUOlIByNf6kXN!llgr
z_r^oV%=r^Nnm>PRP6o04r#T@&U7-1|yXyNMYyRI_-am(2eoZ%JZ4hH&DJIz(2U#Ja
znKTRWXK#*?KCwRH^pVw|%>oU`D~lf)$hSKJRRt(5ZO)miu~wDoQvCOI*DDeYC>mIX
z1TgI=U63fmk!p(-L=m{}If@EW;AgthNO@`sr7CYL@Q4mAycf1TE=2dkhJB@u^hDa3
zL1i|>{AaVIhevn#T`Xe>O*!8S8uvd5G!N297{=Tvy5=HlBo2#`brA>pyp=57>7rP2Bq7%mhiOb9tICuhW-_0eA%H;>97FI~k
zR7bq-45w`)s+g@9XrDq}IOR>5VHIfafaDOC!K<|WQ<}eAw_z~3glSw$&e@7X7`W+v
zL4PR4*)-@2!Y3UJy$0j%m$<}Nbp)S6OMwgU3$3qK@sN$~F@n=~tr?t4D9au_YcSod
z>YpPe-5tYaQ!{~~u-s&Ap@gzt;SZW8MrjV&GdL{tsyy)+B=J_$CGv
m=6wl=evs`@dKbIc3O@i+C!Uu>O7X-10000*&P+{Bb#``s
z_wJpdqT-n|XI8CR)zQ&WR#p}g5&~3cWMp*r?%mzHcTcL9)dTVwOM?7@862M7NCR?u
zJzX3_B&H@OBqTgYc3_egIK$1u!*oYn!hk`UnOU9rF!KVPX69u&TnsPyDj2S*9N55^
z5@;>3Tt{I6FZT|PZQ>b^7}?m=C(L%_OKrR4Em6^E(#
v-{}55O!CdEQPMrYs?1I
zbD5d9GrPD&FnD}m{K>z-E8f@PS@Tj!i8B&ijv~rFf~T!#SSV896kK!gFBU;+a#ABbketq%-1QFsaryda8~VFOI$
z0s;MKfE|bzFd^x6XHjSXv4LU-Hh^U78xAmh01Gg)JMchNI>7WVAk8|`KmwEo`#Bfn
zKy6fOnHadC0>CikNDw&A4iXSxm<18s!0>?^qJoKVfp-HhI5{EApUg0oje(&6#I#80`DpQlfk}XY
zNn7ax#C(Ql4C@6L7$+dRW-W%tZlUnl6wstO6EJiPIRF5Fuq@>wuw2#v0000CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR?uJY5_^IA$g%Ff{E{NIJ;EW{~hC{r`am26-NbCnd*NR1AArjV07Q7$h0j{K=Ea
z;rYRE+&#|Gtt?EzyJ6x_b$NAWX6eK1c42A@^z_*JIL{nqs@VFNW$R>1o+6owPx~bc
zIDa&{-ZR>eoA^LGVef=f2RODxHa6-u9Gvjb_^=P#2Gu*QoTyVKoI`&!zIS7i@k8?8(3P}h&Dcguv%SnkT=jq
zK@_yGvv3Qmt5RyWrA5F6JDuJKM7i$1?9A@Ye8cR_1n?NJw&+IB@5>=<
zxmNwbZbu9nLupZ&@E^H;MM{B*@V5w%NQR$Dthazy23Layu5tInIc%MuSx5XIeXm%)BR%V1;0fq!NJF;6#(BBn)MN}57;3Q0blvBZ
zV^0vf6p(3)m5HF~je9&q#M7zfr^I-}C`JRnzm9R2O66
Z@dbcGIFt8jJ&ynY002ovPDHLkV1j5w#Kiyr

diff --git a/docs/html/img128.png b/docs/html/img128.png
index 8ae7e6e58190234b3da209af2c9c766da4ef7f6f..7dcbbf599d85eb878bea2c112b35b2439735754c 100644
GIT binary patch
literal 420
zcmV;V0bBlwP)z*
O0000SU;u*&KpemT2LeEBz<>mJ`515jPA0e-1_lLOs!#zt
z5HH{at9EBmXkh3Di`F+BVEDko@BymGfq{iM({O+Uu>M>izQD>45dt}N0s}{az;Sk<
z@dXSF8yG%t1D&w}sIHKchhYc90hmu1E4UO$|IB814gw|A2(}xfZZ7EMj2bW?;B+089bFDmDh*4ZNVh=IM0+hdBd-MMBR<
zi!TgJ0u0Rm85m}wSh5yuk^+ht8;GkyH6M}=0La`V>GPR%*Z=?k07*qoM6N<$g0rE4
AxBvhE

diff --git a/docs/html/img129.png b/docs/html/img129.png
index 03e5d0350d226cb15e264056ef036bcc9af17008..5971190f09b2db6396bea509fef1483fba22397c 100644
GIT binary patch
literal 221
zcmeAS@N?(olHy`uVBq!ia0vp^LO{&V!py+Hn6rMMd%8G=aLi0jNJw~)*ubF5Ch_1&N`gSbgF6i393Bi4r#hVZKdqFBSxexYDf1+s
zHv&@?n%**Y`0U^iic|R8$SD3HFCn0L!;Njz53=mmcaW5v!>`bz!q#T$z{SA1kgxRP
Tf!m@$YZyFT{an^LB{Ts5dJIj`

literal 310
zcmV-60m=S}P)x^v0000jP)t-s|NsA)
znVENYcU4tY?(Xi)%*+uH5vr=Hh=_=0W@Z2Y07OJY-QC?HA|kuHyQY*5oB#j-0d!JM
zQvg8b*k%9#0Jlj*K~yM_wUE6H!Y~kpKMcVrjxs|=$OsfjwCQLW!3_mXlnEjlTI3Nt
zLMA~_P_PB|1r!QGmsj}y?>!%kqO;*qBSlR?3NCh3<2%4miqU8n2DBn!ZKRY#^KW#F
zIs3Rp*&7H_S8DGzy>Oh!UY;7C+FspF+5%?cPmDY4Xool#ZY9Kv_WZP_qAp2%Oe9*9Eep-B=%b9{>O(fLw5N-0$vo1RQsoo1p*{41i?;Squgc1O$tV0ak!@
zn3c7=8vp^Iqv`3*O<)QPZf*vEO<;@c?gjunz{&~$#lSKWDJu&cO-%uqzg#F30H6R8
z2>`MHnL^GV6BJy-U}mAv^mJeciyZ)guvmZ`enN%{l6hqG{|_vg+ASyu0O1nox)eHH!_wp#0bS1?P@X5!p_J&L<>`1A+=VlPu
zfoZeTMG>F79?hA2n%7S_b1+G|88heV4y!TAs@vCDfUYf8AYx_RT1NNXr!A+zN1>l3
z?gUC1@)N6~fcG6+0x5jc1skeA*(UP#HrYSOsec0%vlzUzDYA2ZG4inNDgn{2+Nx-)uVBFtWORA^U>|1tLX$B-
zjFHz+T|=2=OVDbd>(IzJDk(x%v{*^nB<%C)VBt%r%jXU8-1fbX!+2arVih>`m(7%a
zGsZMA*@Bm{c7qqzwSP@Eh+E~v95$muyR(euf~zYXzPY*4>>ny=I*0D*F7!GT^ZIM=hXTNDy)hXO$
z*Yqw1W`T7N$^X%klK)ec)0`j0yfz#z0QuD%)TMzcJ7&GkNQa`RUpbIv7xqB=wH>a+
zmp90brCKDOFI`_n6_pGhGS8lc-FjlrNd0GUqxM4)?^5E@)5;E7Wl$f;%TYz(h_
ziSD3z9P3#3x0Y=`zFSB@%U%sih
z+SN>D6t!O>hU{x{NR)f`j~o4Y7*5;f+|*euwKcMD!s=H`uv@LIJnOZ>`2ZJkIW&{3Z|g}+7`
z%34&R+`l2V&o`(3=&(|EG8A)9F6(RCKr73na7D?{xWZg@8RHzTLL*H1Xo2ib0Hn$Q
z2;W)ouE@
zXGt8u7E$k~Nnx>UjF_Dae4JxEr^e@rJ99LgIbR8?SIET=4UC@$Ky1B@`H37uua4W~
z?Ubo^9d2!BHlj*AMdakC~yiYX9vE?=(`T7KFeJ7v~VFGks&+<`j33<9ACMw>!@)#lvA&TLJ*VCjR}HnXtw
ziQe2z4n1;e<=E|eGf~aW>?H@62slZppVTjftqjgHx!_-VW#XP!!b3(zl=uJn7Wf-$
z)w059Cl6T-0xf0v{7@n66_A900BLko22VkZqRY{#vKQgbP)oN<+8x~*j=P_>&Jqgu0$++?^IfN{{3SJ{<
zdnrr}n`*98aIV4M*~N5s^mP&gn}nLsISmI&Rb}WPT!21AfId-Gi%%mpkuzbtV5kBh%G?VC9WMt4V+N^jFvKIJd2kiY{`td@0LPm4>iwnrk5l%h(=BSST
zm~%|<*7Xp92cP`p_vRKL&T=s@({n__g*wiTg<&s_{x`j^{CS8&&pFKFl6=5Qc4}z(
zuf;^^0QnLRc6UY2K_&ji8!B7oN_SB!?WV13j^6aU$@{^Og4YMZ>P%{Ar*(e02mEr*
z7rNU7GtQ`5{YTR9(bnjzYqrTvJ9x|er^H@cbVibO36j7_e*5AYh*v8jiar?!ud~nN
z-VrilQ6{6D+a+b6w+^Y+ClBy5&FanNHSr)c)P!l8&$WPa`jWwgLl!l((F$iRggyVu
z2vMV1#-~*2$S2TRZE`3my8Ey!lR7V@SS<2UBSc&6yBQG@UR{M9%<@;-6+h$MZd6Vy
zQnI4ull3~4Ku^Rrk2c-IeZHTTa;3Z;4l&Uqe*7?*GQIZ3g3>rrx)Jis6JlMCGrA8+
znbOlsRaXdN8a=o*Jg?I=jS+UcrmRk3U=Sq5gZD|0CPzAzlV2p^NkFx?u%E%W56p;k4|$G9ArNGri{{
z^+Y6HHf83We?H7~*m*)lNY(paESQ#L9~V$4W8;wuvm(SjBiVN(r=;HQT>Sn9VRdjC
zwOh0-Y^b6SvzeE5;uDf`>c5cfch#?gg7i?>Q1-vHH{LuhtgxxiOue1HjcZkvHtx~P
zw3;V4wOR50uJ=A=@&%_0VL}Tdc{sl|EF@lArEzz$(Cwh{*sKqwf2oljjjOkGXcGnz
zM5zCxd;jo!oBqjt7*qPeL)3z+6<=OQXh$!Q$m#Q4zfxm^uBm?6f_FVB>uFeEzcwu@
zp#NerMHyvvZ8qJEzS`(t!hF3Sp4D%dxzVrw-UTc5lwXq?v)dVVKd0nR6armwg?G6>
zqK}4@^p?{sD!QKf?n&r>t$%k2a_^F-Nn(>J9QZ6;ZRhnBe)?f9NriPxP|p!~xI(9c
z(XFPwvY}Wd(=|nD^gKtahN9?t?gCfYvISo(`ZdeVXTuFz>1oi_+yZ6A!Nqrq=1zmI
z2KG6q!~+Vecs_XIs7rm6tGqk{)N5CDud%xwwp7a~df=hx?&YyDM6Xc#2)RP*D2CHf
zH?L$^R!qVT=DQ6Zq~|kPGf#dT(CmR9(OGZ!M^wi*uLxu+s#}=+(;wP
z@rbzC##r5Mr$`ph4qryjN_rq>w3E!jCbN{X(F(On0|vAGc*+TB_PV}&xcO_V+oDZW
zCyEc%zM#LJRmT>w?HohQ*%5X~U3X(4Zw)bThP6ix{MH{7>@pgz-&;@E39{)-Tz|o@
zO-hN^`&fy4VRT}7n0KfbcQuUB+96L%ax%ECO?xf{$_N*9yG#?~?Gh;B@UOGx++~^sRwbDo&>Fz$otysX3wqH~s#2V-vV!dCpfHe3_EA7+eZT`FAnda?T{
z7VTplO}VOGNrCe>S#Gsf651c87+xI57x9>kJ?ipYE{uSMpI6{G-?`!X
zhu@pMV2q*NI&C-M`vhisT?7
zz+Vi*wW}=oxksa>-3F7Q-z&xR`l`!&AA090IhJ*rIh~3iX#O}7*1CsAU;XV3f9CK;
zepGgO=dCLHq+>+`h~KxDt;;o2gire@Cp>>Govnq_q6%`xdCKi6Utn$7%wj~hL@jTN
z#>9D#?~~Z^K2WJ`Ho7@2>=srEj#$P#%aQX`st;Uu>OwlHEd-vvy(yp9R=)LC1?fIh
zN$RQD>N#I`u@U#d&^-1D}$=}vR$!02;gXCJh0IT`@3&_C49)oAswJ%
Y*AzJ~84tE1e|A8+_YLorY1xJRA45?rYXATM

literal 3167
zcmb7Gc{J2t{~whiSw>Q*WGS+ZrLv0}Teh-f8B#>VkR@Xq6UkCBglvP7EE6+`A!=+1
zS;oH1#AKj0My$X
z&;T@&l7LwU2WdbWi{${peSH8304*gYF&F^A0GQ3qKpy~L0U!z3W-urk8XO`33V^{J
zYGA?Jn=`-(aBu+Vxw!}gkedr^^z{vaK%BTSFnD?zKmdptD3rnBn*OJ?0Kgy0zHfif
zKnu{)%;_UI8L+vWz5}p|#U=qsAP~S=+@Q~mr<}cTh1y!%fegP+dV@fGR_0J6`)~}s
zfDcvtR`^4i{>Bo4GUuVV2+LkltM}QI*MC{nxdK$p$lh}_G~>ypZzE8jp5*Ew-%ET3
zRX;k`SO4y*{+ax{`H~DLRhRYyx=*LlW&7fFg`Xfk1WsN7H(yMdXRju|W(2G%W3ya-
z-{cKw2tiebSM%sWj3ryaU%^}#&7R!eqEI+@p|EL
z+vA^)C>j-ysTD7RG1L6A9uXH>rxwG%RG+G!+i@c;HLkL0VcwUzggYsD$(|jZDSJ0W
zRF*pmz`k{uDJw{$D1MW2l69u0K3oBi`&M{otDiDlndt{E`Pr0ScQv%Vnzb+zsCmX6_+Y+Xm`UY!(fK|Dk$YisHF>o+Qe
zgpc9h@eMP%o20aXqF_m=U!`ci|8Sa~NLB2)^Qb^_$X5UFMlRZJ8JB05n+I2!I>niE
z$YI(9L0lwes>et&j^{P9@$8Pvm0v=#e7f#rJN%)nmHa1NVD7A63KpMyi!4uP9yRE(
zl8if%baY!DgYG$HVyRjCW_d6MehXZH#t3{a39R*uRO{Jb77XHs5<$EL;BQJy)*mhYxW*$bL66-~OCY`$2l$NC6GJGtnJ;rZ
zaVOTGZf{@KDl0lnWN#BHij@`1Z3IT;_AOT|8QUiBkzGB*uhYOUj?Kn}}c
zFHsDBy+tXw5S96R*k*lX;@Omd(KcIP}!}hcrs?6iY05!ys49JtKIay_K;4Ht}C^&_m)1=8PmE0*XX@_
zzCs9xV^%=ibuE6@H5Cl3Ew{NXfgbc6EVhG3m_-JB!C7T}U=~}CMOG{Do{Bn)lf72b
zYDgVPqe*6~T9gJ-x6
zKxq$sLyy*b$+B7LO@vB&H}^3~
z>Vh~yfh@Ggh$A=6*(V7P36EvBw_VL)CQneui%_tuSR8%{4T(EZQDK5iaKc_Glq$r2
zf5o0}cBe|iNh~;ztxVVw+#XJ{1|F7OGr6mMLeINOIPLZd>TlM+Ho}wDd$pA}wH^9t
zowd3qb~ONA+cI_F@Bx|LeybN~r*tQ^3RY}}ywrVSj?C@&)aoOvKSJ)ec`Sp}c9+e?ihjwvf9}D{HS$g!+uHJ428mbwSFClp61odfMdDpg8QDVI
zcI9GSM9yaoF0+dV){h8i&vFCS$2|SxJa<8+C&U|U4$J;FXf=?T(?aUB1e;tJ2RE`yA1GwYojd8d}q%uEKu!3SD99*sqkAqbn^keK^D&v!>6lGklySZ{vsVnrI$9yN_$U2$Oqn>bwd
zo%YstKOzV1T!95Td@|T$q;>wIs8FX#1f>>5%e9{oeHMyT
z`+^`13@naYXce;qP+9WoHF~Og5v{+ooIA9Ps7xCiBVEk-IQU0Q1bTIuzfB?%SS$P-
z6b_5S&8@xCc{lAUn<;i}$e$6AdrfnhPr1TmjcVm2(mU>-euqJ^SK0`??qK&=r4L^r
zAxW0dWRh4H{4C23hbGRir{iPcUk^sHaY+A#a7aT!NN)Vb&QRXx6=>g!*0MXh0s~X%
z%K2Lq#|rMI-jmgVk<*xVZA!kvFuJV9A)=&UXzW{}krm@=Vi_inL4It@*6n
z5@RbsO?ojCblW^cCPSy|bg9ZY`%xlUkM|YrxT(FJ+nk8qVTnPa?f>MlK1JUm^1Ag0
zq4UocwX#-=N_?hPf*eDSCVlWSyeKOabad0e{9z28&tG22TK{guzN$H0$Y|HzI((*9
z=V<4D>k|~nx12pR<4e_Cj?HCyR0$=GU?sC74sa!1&o8~McPNNvR(B4EWna2F5ELYG
zEc@V^F)deVNGtt(>0+a+8J31Gwz7Zpu<@wjR>@xxdM!mW87S6_P|;C2yl2^>2_BXQ
zyM3!aS4Gtm(=C()>KXSAwD^b#9{n`;aB@pH@vyIjtrB~JLoWDpK#`j)_g9SD2hH(a
z$@noJNm=A^EtWGEJ%jC^xbYkrd~rU*G14dcTb8&uJ>%afb3{g%=X`MEra6Dg#(z?&
z|GyMQkG+_dE4lmRY?
zyBqzXR0?w;1xd3$^8m@UcPClH+l73v$pWP0l1jT*v#5)ls}yg$!%m$_h^F5Mt4$3o
zvhY4j#;9TSp775(3!!z#Yv`DOa@VrU9_}BRp%N(W&HKr-e4gye;BMK>hTCUM+AiTX
zY91&Wq-js}kxo%$aPgJ4_Cv&Tyzc0*WeKYT+#CF6d}im5`cNwAV7^+x+HIFx6r!kD
z%IAl!^%TcP`di%#-6O>Go@;EAdC{n8{i*uEsQ2y57yqw{tysnK$%LF4R*(&^rX{3A+BE
zRTJfIw#L0J+;^AW)b%^2+2~se04C1dc?Ys=sZ4WnJH}8dz)@iuC8&pX(h=
zl_F4KVxeZVK!X9Wn&5?1kc80Tu#Rh#cP$ObYi4;k31(UE?CPfSo{edN#B8+9ey^({
zHlsusd;3@|w>MRWx*JtgG2(nBp1u|F=0*{shamVWeC5ViNmyVnQEmksfQo8~3EBz(
kei>0=sf8KyiUTbVGS{!q1fVZ)e%T;%V{0hx!u7a+0lNEiA^-pY

diff --git a/docs/html/img130.png b/docs/html/img130.png
index 84c60af3d463eec8d2269eeaa0d79d4921123fa1..c39e7eb240ec2b712d3e96298c2bf3249a02f729 100644
GIT binary patch
literal 263
zcmeAS@N?(olHy`uVBq!ia0vp^Qb5el!py+HSYPqU8OSjR@CkAK|NsBYnKM&UQ=Ofi
z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3
zqyagto-U3d95a&>7@C-Q0t_5G8yk6#J$&*c9Tqxx6
zasHF~(^id)!W`xt&u2AWHQw0#Bh#T)p^B0DHnYIqM#YCpC;B3mv0jqj@WP$7*5S?F
z0}I$5?qx{Y_BK_3kNw7tciaMU^BE?bcu>Rea4S=x5c6Rv1y%;uDWdN<+5gTe~DWM4fS-xV-

literal 839
zcmV-N1GxN&P)KRY7ReP#FG_rs->vCQ(5q2#piQ@UnUFCPa|UA?OZc
zHzhmh4)w5s$S%UOR@76=4#Nq;5D^B-!WhB~LI;AoS$a@d!Id$@n{RW2;gI=~tZPfV
z(aS(&-y!dN|NGyUKmYsx7oZjzu?*EX7we(O`|}uDKnIL9JQhz5Jq1SgcXL=ccGo=3
z&?K4d7P1=Id1F9g5EXW<(8`-zMtdcOJxg5V4{?(aK1`TQ5R7%$bd4!@vVcM68Q)V3
zJmrLIB!DZND!|P;-Inrmm~f5yxm6*whVyTz5GN|4V3h;Dq(+$KBErfB^N+h5uX0}s
zrVB-h?w*VSL4H6d!@ZMM)*M&8tl4Sjk@02~)@64pY1O+Be?pR~cL<;NkE2tqnCo59wTkx
zE~>}0@SqbpI$Gq7G+M;FGOuvOQ3PH5O<+vr9VZ{C;|5Vu5g6^f^+x)s$7`E<$kQmV
z>gy#Qv(Dpq?OsICwgP6vm)B(|)SD;rjWoQ2`wJgA8-!(aOC3Xbqs-&%8A)&n
znQiy=SJbcapO1wV+(L=Qr|MoSmdU60Iwiik&n#>g+5>kE{j7yp*9KBa2YNx|>L?Ys
z1Ydkv6&VNAKKzt^+%Dm(U8A1DroDnC9p8K_XBw3UFvs143;zV>G8#p$*G{n02)g~=
zpAu4+qAy&sm-~T+gzn;e^Sn00_kHYSx*G0cn$@fnXImEkwbFVZM>xU(_zTU#wQo4?
R-u(ao002ovPDHLkV1nmUhj#z~

diff --git a/docs/html/img131.png b/docs/html/img131.png
index 8aa2fd479620438432151766fa114d58be561f87..8d05ac1ef143b2bee86f9d9525fee445c2caa5a9 100644
GIT binary patch
literal 943
zcmV;g15o^lP)N@K1X2Pi0hjRH
z4ZljczXQw7gt1sL&ZYG0xA|f8bANX
z9vv+)T3Rd+Eef~n4*?A5NbrH|Wt}(U3(-Nah)8tcEC$dH5pfoD03Eak5pndP3oi5y
z5owT@vv=d;d*A;VpPk0f!S`hSAR?!OJl)bc?rx2)Fo?+Rb@>E3us08n_@UqoxAX*j
z8xXJoaBih#eJEImcLu;Zu#VoDpzI{@mgp_s0eDODEyX82Zy5{IK2o)4%0=D4=K)fgaFWYYimu9)(5#k3tcP0zv{5u_Pej>UkW9
zkil0|47um_UX_`g^(=7oAZ_|0X3jZ}^ebn8`{Qda8yYXk~6+SVIpNDfi
zUj9cGcVZ^JKZIwI;buX&iT%whQpH`Dh3!z=mkYC&g9M=a=MyB$$2#_QA-e+O--#w$
z-T(v*q^=MYfCi
zG8eciS*SSB7Bye~C(=4X4Rn$+d1oxdtCgV5m1*dtD>cyFT&}AuNdekGnl7^`8U;;(G&rOBX;5DgDUdX
z8S@yadN^`~A9}pU0@`v08eqI+!`b{QyA6Sa0n!MPBY>HeR7hg)v%#gWLdx(LaP0@u
zI58;SoE-Ow)CGLjo#P0MfGbJG20GY3|2!fRxk0Otw7Ug!(iw;LTBGM4cFOGqeU8ju
h!c6U1{%Eo9a0ivDAa8ELk(B@d002ovPDHLkV1j-ji^>21

diff --git a/docs/html/img132.png b/docs/html/img132.png
index 8c725ced5f339779b92535fa7c293ced7f241be0..eb2ae848e47a07f6055577d98369dc19addfc2ac 100644
GIT binary patch
literal 423
zcmV;Y0a*TtP)I$w9{hkk0Yb|&FgT(}@S?;JCs5gBRGnTRf>DyeLn_^tA(;Ux
zF9pOL`r;FTT0pVzVJ1TYD==JUG9c;yu#lk`80;Vm*bgKy2s2z@s6>`$3t)JAfq?@g
z&)LDTT85V;M0085#HDt4+
RLtg*@002ovPDHLkV1hhhoge@J

literal 500
zcmV@QoTw8K@k3Om)z-XjyUTYXBMUDc~&Ew#}S-KVy&j
z+|$z?o{#c0^EG`nRUKe>FjQGo`@7+^ckh6$=8uBxkkNW2dgOh+jGQ`0)qpPn+CFIq
zY~ke22T)1bSkX35#q?sdyb<^P3ib|9os&I;1L6Rm@P_otGs3W8y}um-N3efUQiUR)
qW=gh!ll*vIv^xq5A@ySWy5SEfJ4ppc=T$=h0000R5*>*QoTyVKoI`oYBsAEms2EYqmOVeAf!`#3AfVrs;h)c
zX}OJ}g$Q!sYvd8q+TA0pTw@n!HX9AH2o@Ii!R*d_JHMF#0VPR}7_J7o4EHXHJ#M4^
zanyYs+hFdv(#hr@!UqlH7^z^50Bx!}g%vEenOTt(FG^s6DKs;S;On3w`ThqDs)1F5
zN=qFq`Na!#Jrndqq)wZx+k-ZoV~1v1Qq*PJIxNZeOu?X_DH0AT_$ZOWh_E@+<;uAJ
z8bca?B@US7_Q&IFpx^uRB9bCG#QD+nX*vPM7HZ1ed;d7*obC~3i+%|U&BD~dyk)>M
z)JAQvk4BPylOkh^^K~GGmU^4L?tPTJ--imqfAo#sgP3o;`Sba=sh{9Cx4!rU_V_#9
TRYuDq00000NkvXXu0mjfDxkpW

literal 402
zcmV;D0d4+?P)~?fQqlGPdAw#UQ}U;u_pO09c-dAf~YJ
z5h{_*1iBtXzX44U2m}cs(-VLs-21kaVwO3=N#5z{>3iqhQ&2PplX-M;F3bM5D8Nsv
z4_06Vk)CV~Ki?{yunblmY!OVY(FcuiMOJ$+*&TCvDL3pSNq%VOAumAu6

diff --git a/docs/html/img134.png b/docs/html/img134.png
index 8fbf5a93f28c83e320f6f831c0f8d0dd99f4e1a4..afdff9bdb362158d18aeedf78c01c2bd14af3fb8 100644
GIT binary patch
literal 359
zcmV-t0hs=YP)SU;qOL23`hakd}a8^8xV$25bOHkHdruV44N1LIhw3
z8OFoOz`&o-FqNO-GstA|MVxF5OBf0uDjFC#37CN!6aaNIFdP86jGZ4M#KXYA47AOF
znT?Y_fdeRTfg5PS1E4IIJ10;|9Bi8d0~136Gt`t13>V0D0ZD*80Yb|&FqHA41TiOA
z#tTF+N-}szrQ0$jGcX8FVBiFW(ubK039KI&7-ll?b53C32kB%#kiZ}ebay2KLk$}P
z2S|vsgJZeS4+l^P%xGX>M)niLviT^E;RGt+pouq8005>wB+FCSx|jd}002ovPDHLk
FV1k_af4l$y

literal 267
zcmeAS@N?(olHy`uVBq!ia0vp^Vn8g%!py+Hxc1!P&p?iDfKQ0)|NsAI&YW3ZULG16
z`tIF3V`JkpXU+%;3U+jKq@|?+Rk^sh+`W5ONl9t=emnH^3fvX>y&hzTrW0<&3@!XV9g@%VlZyH=*Jm6;CcKp3mV~*WD
z_8!KXojh^;4Rg}k!pzv5*>Wc=%I5jZazoG7t06NU_?hSp%!yPVxMML>5k
Nc)I$ztaD0e0sutOU(x^o

diff --git a/docs/html/img135.png b/docs/html/img135.png
index ae2386e3facd4cfc362d95639b6267d781020766..59f6cf6c4ef275cc267545e0b9e79b4c1562dab0 100644
GIT binary patch
literal 330
zcmV-Q0k!^#P)D+)22Y?jFc%PV1aDx#3q%A#u!vxz
z)plxUGb(-Z9=$bQjHlY~9fly51=Gtpfzyg*EHa6Z)2W#4}&tUi*8aN$Nysfd{
cnf*)D9Z9esid<9@8~^|S07*qoM6N<$f=>v86aWAK

literal 533
zcmV+w0_y#VP)Dd0CbyfCkP0!69@(kn2Da3Q!I^jz|~KRZVCUK@|RGvwyRjxN9jbR+QY-o)&WIsq3W_R2mOn
z+ej4;R#|^4T3T2{sP(kk9@;}O1*M1xIrLKEPYG|1_@5C9Uc@E
z1VmDHMX|OstFUa(CJ@+3R>(PWj{VrD6xivUc&&^lVM>!=WHOTa>E3+0xaeQ-<~|n-FqTA2Am~cd
zz01bzRBab_@VD_N4>4&Xz@?uN4mEh9s#tFDCp|XRc*($Q%Bv$)*y^F895tsY-LT`M
z4#698hhcb0_79z5xC?xnbX#zb$fYcj3M#NMC}ebW
zDY>e6H{*rs0_N}lU*d25h)#??c2|+~*@#(ZU3_3(cB^uX-f`7u8{m(i@(3XV`Nvw-
zHQz*}B^kTkvE%*?Gfs&iw|b(lIx4RcUPETfXOEzQ-x6FV<<{!&?bUiJrY2(A
m)_uQe!kXYWs5{s}b9@JnVX&FT=dLLL00002A27sa7C
zxE5L`b#itp2pxn%aMCTa1Pl%iqR^iZagd^=UM@|0t+o{kI_R_9z0dpH`*nAK4?=qs
z2~357fP<26B}JD+L8I=b$W02V0UD5(4MsecFekKrdcc7mRoKps*&YE@+KknxuNXj`
zH|t~=4$u_rJ<*xy3tDWOl3|#qp1{_eE-cHOGUd4k^~0#KHbWXB1A-2HqyZ>sLv9EM
z#G!E!yE6CEUc+HUYa3W+`@>?OG`L7V!jlwc=`=poNDL)IvMf)bdNowZR$0b9uOXgL
zm-OkClUc2$oLP#$2dO^tr=t3|PlmjgeSj0bD(4fX`%st^fxif1;LTlbY|fDvgtEuA
zSo3J5mv)KwmM2ahb*Pfr&CUwoTwo0mTfapPJ3;^wRONj+QQUUM1E7kG*TSOfi#O~m
zoXNywt!>EMamQPzAh>{4j=euGjv8Z{Og
zV&gY>0M{aZ>_DRSbioL*qNj%^V=H^waH=TOb^Rj6I4GkEj~16*N-Gln4$73%9=eS4eGB
z&rov03SGU%bcMH2CBT~%Sz=Ma}=^{B^=b=z0aNzf5#OF>+;r2
inTF+sPW+>Xwcrh`bR(^r9}Up}0000Hv;xD2kNONu
z3LrKko9YH4wUY`qJV@Z?;e@bt&K#hTEyREVRIWCr3T_4l{(^vj%Y57nOiD^0phCPC
z6apAHm?28eoH+m#V!!aEO(B6d0ZHRf2OJ4_rJ0E`1QHJXpBY#bI~zEcb!hw-!l~-R
zDh54ZKqj0Art5T^s<;+h*ugN1jsE~c34#6l&l}U{qkR|A1i>
hleW?YqTD|+000GBC+GJL+JpcA002ovPDHLkV1mfGe98a-

diff --git a/docs/html/img138.png b/docs/html/img138.png
index 28bf892de4cf98b516cc966a4577fdf9982cedd6..74b25797d542b8914a15ac102a04cbe6a88773d3 100644
GIT binary patch
literal 532
zcmV+v0_**WP)*Q^88ZKoEUxk|t@p-5`P@Li+~>Jm@h>PlDJ_2#SJ&
z5b#iXGI%O@i6BBx+8+?XqlXs!frzJqVy`_2ksbwgHi1wMzIlxOI{B;CW4=If-t49!>l>b!Ep%amONRiF=WvfHSllW3r9a--5OVz
zqM)%A7I~$>);M^Ht<$EWt44G!`s5$1c<;X;fST~a8fJ5r5J~!>fCVtSaV%8b1PWB8
zM@N#XMQ-Csfh%GXypj&dlQIsNF81o!gGtAfstW1q2I1LWfC_}nzLSS9i+lpHc56N0
zR|iZn_RBLiP>vjaKeo!E%U-0h3f+#Q!|@~=!eqN-mazkzyfqBL>ebJ&z0j;cTber~
zwH+e7lTkZpf#(gCq#b5VC{71AbeU}&Q4Qjk1!8^JXaKt?JrheKmeHKIfLsl)KD4l~
z)@F;^p$N3`cnp5+9n>#ydN-g}HP}i3De5j2q7{Qwym_D1Tbh+`1o6XN>+|NogYXO@?jhlYl}
zd-u-R*!awuGlGJGt5&V*=;%mGO9Lu&adEkO_pXwX((c{62JW`%-V7Q4g+mu@O1TaS?83{1OUK-RL=ka

diff --git a/docs/html/img139.png b/docs/html/img139.png
index 69fa8cc71517b3ae30beee0dc4c9c72c2e81369f..50b5104b51dfddbaf54a443e2fc62311bb4e85dd 100644
GIT binary patch
literal 412
zcmV;N0b~A&P)qBjpxqF#Z4h=;SKkwYRXsGhCR=8~A*3q>X
zE@W;{C#V9>S+sw^rRVf*gNtg^{wA2yekcVij^sqDc-1iJS7l>iv5}Ar%
zA##|6U|a48w1iP|d!SoobYOwZor!g(!Qjhhk>Y`&fxWr~C+)`Vt^#h&21*V2Dg@u^
zG#%axknIS@8{dyO9W;^U^2AO9PyEj0pPK{sRurXGJxORkQZKA
z@y?&rP0htS@W92Hvgx%ZO4#5mAC3CKhiAeqsq#aaBRw^;iBF&GDaR9!xQ0`7cu*k>
z)pIb%-P1g>S(@CzJ)I(2wHzHLkDi#~S?GN|bQq~uHaqAabHgX-8%~r0KRljQ#K^T3Pz4P{)b(51wKqQdD
zMuaeOM2sMwMpIvk2*G9%Ei8ol6NF$t-g)P(C|r~33b(mJ=6^g=h=qlSVqt3`iUb$5
z5C!8md%u^gNg;~pYj(c(-oBmPnb{9WLRKDy_)mAJ01svCgy+|c02TX2skh%>xX+W$!1bt;^F`kxDapt$f
z+L@+tQ`TOwvVT0d>gZ76X3jxCia)EpLdF`>l$ac*k?)PC`L*F#pyB`d*ZvD2M~m3b
zSBb?C<4ahdm8w3=tk|EyR)zRHJeEO&AEOA9uMs$6;&YT{Efp27qewd%D!sr)NXe5~
zDn@G^SeAX=7;D>dxwZ|Y=QvSWX)na)rZLLpi7Q=Wc7J4k*7SodE~5@qq=e92rR;sS1A3z-mAK4C0iikrn-WW0O$6d5AY
z9F?l6zJCEm_=qzYRf=Y^GCUPStQ2K`>15$2!u{wK8BDp}2r
zvKLythP+YW*L#n{x&e;Tk?oGst~B{^~Y07w|2(-D6QHw*v(002ovPDHLkV1jB{J4FBh

delta 607
zcmV-l0-*i21%m~UFMoG;cU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0
zBD=f09~~i;00001bW%=J06^y0W&i*J0ZBwbR7i>KRX=DGQ5^nyz2>g>YmVCk5=tRM
zP`X$LmjiWk2o70X0;PzHgdmm*LKpY9xM$MAWvar>NSK32WuPUJGo&2@MW4>H2J34G?AfVnL~i8+$rn^d`P4VLr=bqx3jA#+;g5=XCi
tCyOuV$xh=7I^t*~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0DMVAK~xx(V_;xl;8?%_2LcQXtZ)v?1qKYj#Ryb#!~s(R1@KKsc*zc=
z7wB;=CZH4@us>VSl?>FWz{Lb~%7Fkb22P%YX#yZALbj3%a=HzkFuZ9pSP0_WVdwx6
zk|3uD@NFnySKv|rvUwO7j2U>(9DwQJn^HibtpKnt7W}6z>W=^b002ovPDHLkV1hyc
BTf_hW

literal 613
zcmV-r0-F7aP)(g4E0z{t$Rz;oshl41c=y(|h4
znvr;C4H3}r0hNy>;-ncEco`lrFz_IWxd5>~sxod+qTj&4>cF6+q`)wnBgJKbivma$
zlakU0&IJtOd@yAo(?Vd@ZTPG3_W%PE)EOHB82K2^oH+oFMFF57ByF)U6g+4M*v0@;
zH{oZ(7no@fV1V5lXu>!EFaGQ>!~mAuL{SDK5->Fi5LQGOFhi&khAyapFm`njP})fW
zpJ|Zv!M}mwH<%%cUHqxQKeJyAmuamk$QH5v
z17;8fhW&aB4EvctsgB7WS(=~k17pD5Sq$A6rZLn)d?*Ss?vs)dDDyBdoL~Uj!E|6h
z1J?n*4+$`*F@dB(*={n!R5qZ-AWYNXu^@x+D%$~I$)%yo;PgXRS|(8>kU0Q&_>bdQ3e0*EVWhyxn{|LV&&1@zjv00000NkvXXu0mjfZxj16

diff --git a/docs/html/img141.png b/docs/html/img141.png
index f659c90c4a84c34f67d4316091e38ae9a7bea1cd..2c6ef8d9201b9eb7017f0ea8cc333213752bce07 100644
GIT binary patch
literal 619
zcmV-x0+juUP)KRZU16K^T4c+w5#Indre>V<~u&21@a|y%Yq&bjzLa!UzLklhFNqY0%OK#p|@vP|8gRmAVMuc@{Hp$LrHySaA7Wzo$=gpfp
z^L;bS0wGkfENhqlbc_LEE0t^lHb7k|4Wosmtf?$h{W%7T?>MEu=IvP5U!ypPU%dk4
zrQ=|uoT5l=IGiS)8K}~4K58Jz?r;Y>4;*Q%Q1eCpf<8YrW_3F6~E?bVhSC~IRZ_W
z%dC8+x!Q20lFPrHJ+{UUk&RjC6qUwRp_;g?Z74IvvwY}C+ZMlsvPnquSb
z;k_t!hVx=~GYD#1V^v&Qb>thwwt}EE&N{rPjR}foJ1=_*XE&S7d^R;vO#l6Du7{UJ(EQ002ovPDHLk
FV1jo^9v%Py

literal 581
zcmV-L0=oT)P)KRliHaKoowtUZo|rQN*po^|UI~(zv)95cdw
z1YO;NC^$G22XV7FIR=8ckktU-+PY>?*Ia@
z*06%AbDXCSaX)>Y*m^51!mRNW3?V^N
zaQE>Woj#CcO4&bdha&YLQ{;)15_oUPYE5NVT?a%d2z@P^^O(pmz?Z;4DkdS2RvcTE
z%}@I(IZZ6PdDXhoW_Oexm=g5#S|~f;x=t
zs$d#P&Uin-Lae43upCXi#EpY&@mz}IF+|@^lglXNof4zZ(!sJHZrtt-E`8Z
TgYZ0q00000NkvXXu0mjfZL$Dy

diff --git a/docs/html/img142.png b/docs/html/img142.png
index eb9a94fb926a6fcc8ca8348505ab4eac0c49df0a..cbc74cec0a796ef25f325fa01f4012dfaa2ab5f9 100644
GIT binary patch
literal 626
zcmV-&0*(ENP)(EFH-73RKLGTBVt`Z<JMi@u
zqOPN8wf9V4i;)k2z~|Gp;_Z~pfmeY{2DW)`5s%NK69n5}WrO%+dL1uSB~UBP=OCP_
z78EQTmx+{qFUAA4O#$w2Q#gEJ%1?sZbw9ojvB)HqQQu5JP-70VYAo`wVTq9I=qj|p
z_56%?r|aW2SC7L%npVn&Ku0)!mnc{Se%mdGCi7aY1YO?cYOG7#P3F^F=dkEz6YVSX
zR4H&m)g$mBQUzgVLZu83QmQC8`@5F>GsHaY?RdcxV7Is9xbW~_zR@-heb;JY?1tB3{d=dye2R9U*we|A4sHcii9k8U#iN!`Pm>;Q#;t
M07*qoM6N<$f*kH15&!@I

literal 312
zcmeAS@N?(olHy`uVBq!ia0vp^3P3E!!py+HctY8*2gor9@CkAK|NsBYnKR4F%R@s$
z-@SWhY;1hy%o#yJ!BwkPb#!#3rKJHCy12O9y?a+lNon`)-SV=EQ-MN^B|(0{3=Yq3
zfaJG%x;TbNOifNmNO&NU(!k8l%Esnq@S0hmc#fGzk^?(`!;Fb9%_i(AsAuwUV07kW
zVmO<`nr&n;;lP=M0|yo?RN6SN`7mR@*ct_fV-^f0q8-=xPXt7;ESV`GC1w-wAT{B^
zv*+akl?+poe_JHF9X2YP!NwP~R*Ba@mmzra1Eza?3X@W~r%0b%aHQb;!QV`mnK|bB
zHzqQ_=UY%Uk29c={|whA=^NWP3O3)J8suPH`%pY;=WGE6hQ4!3+cde@K|WycboFyt
I=akR{0F%vco&W#<

diff --git a/docs/html/img143.png b/docs/html/img143.png
index 3df4bd77545b396fa90496a94c5ac61a0b34bf41..6bb04de64e04c3c658be961e1f919e3950313112 100644
GIT binary patch
literal 395
zcmV;60d)R}P)9rVMPD61!nw1Ck&+
zlr~`a;4q(oa{>dy1O|3S?EsM21ROSC7)U@J1c3eVV8a4FPN>`R|9=3BC9p6sun=Vg
zQD8R)*g#kl1ROx+He;$_W?gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0Lf4Gba4#fn3b(mcR%?GGd^DRuoo*FiW>e8A|yGLSW~1UTDp;WmbYZEP{+n#e*0ANN%|!&hze0QNb6SF6q`+7zg&-7
zC1L%eum)QPrv*Thn5V`}GTHpqY&ILMIC2ZN#DFVXV=h@y_ocpLUC7k1KVlV&*W23w
z3Uj*SL7`CecPz0lpJ|)0A5laGDdhWTK$ZxP*}Lv&#iGuOz;j2496(14NNf~mlZF3V
zjJZ(hZ=P+vZ8morv1E6VHKr{lzlX?_;H_1GU=dmxB3I!C?^X6yFjXEplCu}Mq&$YH
zx*{JY8#e(h?a*tz$Yn`sqVySMHY3u^!?IOpp-4eEt;4==xdr7iKcNJ3-Va|@EHw)D
z+A_IUb{wb$^~$1f8ZaYV4bf&51^K0QBWzWM<F;xoSRGO2YreStd@TxQgGqLp-HXnW1
znOF`>)cdde@x>73yHOk79>y~JE_@EI+~O@O_nI}18D9iiBd|?#c~=0V#aCC4Y8A62
zQ{BFT%ZPsMqS%~$-ka{)i!Ei1PD*A_?X5{?w?eo7NXNDdk1Ax)WT?9`c*%c>&&~VLkx<0A^&SwUSx>$N&HU07*qoM6N<$g6o`#h5!Hn

diff --git a/docs/html/img145.png b/docs/html/img145.png
index d3d1573f6c148aed7e57479b5406f9dafa8692fa..16435531c24bc8957a03b8064b5d72985fb7fd6d 100644
GIT binary patch
literal 568
zcmV-80>}M{P)VIlelglqhWAHqU)h~5V1II;?z2~e}rO9V4~@G%bnt{8%%?wnh9b>Ur5RV-Tv;rdnvZ5k5?
zWuVg@#!{yhh)ULrQcRl)A4`sO^2)Pa+>fTzkp{fl53KY$tgwv0000*&MYr44-E}{
z_wJpsvGJKRX9NWWSFKvr(b18XmIhSl;^K1m?p-A%rQN%C%gZWG1qv~i1o;IsI6S)n
zk`MKCaSY*@nVbLwOi69Y3Qdi^Ga0#r8fM5Ji(IJBpu#UAVUWN$NAfS1!>eW|MvwMp
z31((~<-_bbT7eGhjSlbUzLW5btxcF`vLlZg>o$hAz4s*;to`^h8*H={ffg`$y85}S
Ib4q9e0L_C#S^xk5

diff --git a/docs/html/img146.png b/docs/html/img146.png
index 7ecedb71d1a3be936e0e89f4bed1fe19071d05ed..d25261ef14396212690115dd486abc9fbc268932 100644
GIT binary patch
literal 614
zcmV-s0-61ZP)KRljT7KotHY*^1>vxq}X!3d)wHprQ_4if`zYr5f8!
zYe^uQvIPvy&`dQLS_Dm_l0fK|!F&8CDBV01I&}*bO+$V{@=mfVD{3uswtE9-Fcesknk`<1$b>d7%;tx^4XuYtxuxzi&M%hA=Z
zMja6m6hTuZEubA};$ThNw%gW@gWkRPq#qgkc}Msd)k0u#Ffjoiz)6MZ@ZK
zobd3R)~QBPQ?TuC`_D-GmJoSk&q|c52`;x}JQ`1-s;DyLlNyuM@-$5rJyna9Snv5E
zKYaLlkjmOAU$BN~{nS%zZgabfx=3x_2%EU3t&lWR;2dxq8y>?i{8$6+pyoKx5xMRl
zn!bd=28Gz9=MQO*rCB%qFKOJ*yl{p3_#{m6Uom5;UNOThcBeRVl4cp`B#Ie~j%xJF
zvG<`cTswJR0teLSfvoI6f=+yUkzH3VH-ge;oo&DgSK$>jQ|SKRJ}^WP!#@h+a_sib7Q68U@-;<6~sJ3HaAVh&B2O`
zllTawR0pR%LVW-+IEZ6)cE}3|;@~C(-4w<9(>7_fwW1aWKgd1z%RTqYIp>~SAOZ#Q
z7H9>Z!#9yjAuMM48vltf=;Lbk}fk&w};Q45LL+x4aX^9U9xQrrr+_>nT{f~NS@YorZpzk
zLYk4g$?0#UF*3|V(*XzMHqfr4Cc8;_??idgJTWDQ>dQjdDjufIbhXQ?Rc$Motpw05
z$tvY1JrWBXq+Hmx1;6f=n*s8moOzC6bVo1GWM^`Q(%gZ>|fvh#gvwjy$+|^dBKRXt0?P!v6BOGs+d1QA?=V?lV5#mx-4pjQh-W*SkB
zJSOirjCt!7QHVksNcJ022p4Bt8PKFDO(QU5yy7{}o{Vc6cr*26~u|ivl^&
zQwFmoeKdWof8eL6FOO)_gTxL>PxI|`sOk&&I?{P+W+^mXVnYV>n@BOPPjt$DOi;mR
zvB3;=E+j2C3IgGRJ29l`qdoB0KPX}Jj1Nt3BmLA2mzf^&U18Re3;Y9q0gwT8u&>&O
Qp#T5?07*qoM6N<$g3~nmkN^Mx

literal 732
zcmV<20wev2P)KRnKb^K^T2I`yN_qgmb{87JiJm1_HY8Mv?&hg{|RS6mnkR47+FhIbjU(Y=ji-_
zt7kl~=>&O3JF$1nsL4f?H_V%(;z@k`+?ldN!*tQS?(j
zjljT~j2P#pihp^aSdezSF^#xECx_!|GGM
z=|p(HN1ud*lbk*PJ2)0cvhWdKoW5;AvrAdZ^1JX5u8)QIhh6ACkyuDRvDeb6btUt$
z@@;C<*xK)6d)Zr~|DHJt>in2gOpKR9y(}sbp4Qe0MhreXt?L>7A$$idD|PSU|?Y2Q(=IEvv%i>00mn&-@0000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*IiAh93R5*?0QNK&WKp1_wCTU9BG&ov>1d2G^4yhY15y$6w7pI*N^@(Z43BArY>;J|VZ&09Ots5xxnngG0507q#Hs$JT6Q?e9`tI|qv!
z(CU2<1Mbe4=k~^rNQ;tf;IV1}Cu#4R`nDQ$revmBr7%UTq&fc`J^f!(Z

diff --git a/docs/html/img149.png b/docs/html/img149.png
index 18cdc9576d9ad2f63c7000b0d840983cc72eba54..cb788d91113476458c199366ef3e0ab0ac72e4ef 100644
GIT binary patch
literal 271
zcmeAS@N?(olHy`uVBq!ia0vp^Qb5el!py+HSYPqU8OSjR@CkAK|NsBYnKM&UQ=Ofi
z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3
zqyag-o-U3d95a&>fPj}lh$p?lg7HYggR};wFom?l6X(+%n7Ab*EF>jv$Q+SjQEMoP
z@z`;oftST0laY;Wft6XgS$P|;!{VJgb~@Cgg(ZeDx-ZzmETEQf@!W2yqc_wHPS!KH
zq;>6QO=A7FQd_pcPvk)WLt>k~!pikLHP;gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0LgcGx;Tb#%uG&5NO+*lAjFg3@PyS&p*fS0nQO=S1C2+Rz1R#4KGX?h#4k9|z$j;6
zAj1&E#KXhOlOxBI_lJk)&KaKNI~zoH%jj=sUd9*qmit7Erol=UwaIn+Qg{6L-+V!B
zf~yVJ9BzrOr}_m=XVQPXJy6%XxUru3bvuhff8oF9|7HG5%kGeplwfGHl5c%%{;wG5
ODh5wiKbLh*2~7aSonVLn

diff --git a/docs/html/img15.png b/docs/html/img15.png
index d9af05b2e66ad2ffa69a7427acf290cbb042556a..557ff9028d2fc6c44114ea3129fe8528e0de4957 100644
GIT binary patch
literal 250
zcmeAS@N?(olHy`uVBq!ia0vp^x^2^Tk!w@

literal 230
zcmeAS@N?(olHy`uVBq!ia0vp^dLT9nGXn!-@QOl^gl>ROi0l9V|7XseSzcZq8XEfU
z-8*Ar<1=T@2nq^zbabSpr2$pBxVYTCdsj(GY4`5kWh*vo0EHM!g8YIR9G=|($)|g|
zIEF|}O-?w#Cm|{#QK5dIB8H<&pTT3Jks*hHfq`;%gI3~%%9bOU83z(=@(wKOSknH!
ziDA+dM~MjmRR>NTI3jRh!Uu-=noisW9s=s;4(?>sYFhSBgn2bX%pA@WAuR!7Jf(6x
Z47W}A-u?G$zX!CE!PC{xWt~$(69B#sP_qC4

diff --git a/docs/html/img150.png b/docs/html/img150.png
index a83c2523b21ff3cb104a1130ccd33536aaea03da..59c6a079e6fad840a0fa98a520136106ac2bd736 100644
GIT binary patch
literal 889
zcmV-<1BU#GP)naZB
zIB$?!>L0x2gbd;!$OTR~RFI0diO@mhuy}O1O~v5g;^4Ws96}aBIU&CHC25niU(#Ac
z{K5Ap@Atiz_rC9YF98^ey)JaY1t>snh6(Jh>oZnmxJCjZfaCx)geqr&Ig*(GE}B!w
zACNbhAP2Cz>Z$?V2G27h%M0V!9tEw$^HOp_n>q;>&f4sGI*@CY8!pkby5!Gtf!}gS
zDHYF4d%X?P;M*c-rYZk1a_O{M)OEd+^6G7WcupPeif~stq*@_ag&d1wac^<%!Y7>O
z@p!ccJk?K<74i)$e&dubFGfQZ#|Cl`Oh5*x^=RK|scZ(wqv7lk6I6S&c=PPid
zo=P|VZy}`98Cf%0-t*w>==zBcm$r+BUoZ%_-6UO=>9UwmqQS9~v;}X2bpTyTu60ed
z<|Btxq(g;GXH(tUx9Da!>`O+U7RhX0$t!-0CMMV^7j&Jj3S~iq=<;%TiETm)j%q(b
z)k1LQ!rHa9>(;$^YEFSl&h=nMABdJfA~%A7=HgLNAa%UR&ywK=PP;CaJ&#*C>?()w
zvDbpMGi|$p2gAXVh<{;bsgt>MMwVpIN;>`jpx8-4mNNfrM!=Oxl+@K&cC(b%v6c3#5y=zQKLDx8
zzOlD9lp30`3&s%=6M7Ypl?Gua3{TpX8`R)M&)7GB70(6v&4444UsqN_V#O$E)Kru&
zFo}X*odxmESJ)Z|*`Qv0A3iU^_Z+pN!D{JGjETlGIGQmGN*`+e{W=|(ufOIk9fC?5MBJA`F9EeNl;H~~10SuC
zvC;oBi(^|kFeXUmvK1z?d@eJCl2B`{a5^{EW)Ujell-(^oIn@z?(gC^J*K>@64{k}@P)OW;0000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*Ix=BPqR7i>KRJ%^YFcdv;(^Tmz5vUu32@fGaO1mSq5@KgyWT;r!
zfPob$MPh)Zz!!AvhIfSM2XqJndp@D+PzfOfcHKwPv@~iLK%Bvk>*M3&>jyA|0SXY6
z4I?flfZ6ocupBmil+cktlE-R_Xr)1TsdOd@<1vH@i;SWr3X@pasZdI6qW1^*y0JQ3
zgWF)G@VrDc`MLe^q;ZRi>5q`sSk`5)c^HQW*gc;*YK%0SK59Tq9G-xVzXE4Wb^;(g
z^%;?(bRfJtLSy1;GsH`66D
zxv%|hyyiCGI8gK59?c}OgB2z6ejh58b#ltKBsL?legVQSW{x)$4WwdDCr!bgtj=-M
z3oK6Ns@Atsscva7ymuQpzd6k|Umg}5+_l9uR9Ad=UfHPLT^g67jk1cq1Co5@hG5~8WW$mq)Ss`$l?vnL&1%iq!E@Hqh+`1o6XN>+|NogYXQrm6Iy*bR
zd-qOJQSr=~Gpkmu>gebwD=P~L2>~iJGBUb*_pX3|!0z3<`?~W#1BDn%g8YIR9G=}s
z19B2PT^vI=W+o>90eey#t3p%bM+0V&nuO$p2MvWH%S9PZHZTiIY+&enFQjmmiJeJ8
z;)Vp*GDCxckH$3zmI<+5Ial~2>HtsJ_i2f0&RRD#Sf}aoBxX8@=`%MoUoc@~V2Bi4
U(IIHz477{E)78&qol`;+0PIOiX#fBK

literal 240
zcmeAS@N?(olHy`uVBq!ia0vp^QXn=9GXn#o(S~3TAjcrUC&cyt|Nk>*&MYr44-E}{
z_wJpsvGJKRX9NWWSFKvr(b18XmIhSl;^K1m?p-A%rQN%C%gZWG1qv~i1o;IsI6S)n
zlF##WaSY*@nVbLwi42XkJOT&!TM7h9(8Z4;VjN)@}U5
zaw+?#JP)KRZU16K@|RWH|}OPjT3_4sSr<*p^UwD3sm;ONj?H65mV`GqEbt^zYyY
zd2im#$9r$yd$R$$$N<9}Rt|SS0k)0+M%y%d4zr4s(CD|Fay*6!B!(y12Ks>}Wu$H;
zBBJ?i5i!8>1+f()GRAR~pk%oC;P(~r*AefN2;?#iJRp_2!f+{LY-6KkY5G7t0V}mF
z<1`J{Y)TfM(&hA6>|4VuctZM6vZ7DUkX+bb|KwHv0v>jkpRXlQ@dg+!i>Qmv%gU;-
z#W>SM6k676`^|Kxa2P4QT~J7!Li>SDopQJ|STwI0m}@4Il;t=9JkN#yJ?Fmyb;|L)
z1b(fkbv&7q=rrTeL3zGTdQ4im@vT-CjnZxR{#Vm^4}w+Di`VVHkn&EgVJqT&Vg}fe
zb~fzsxGsdF8-2EWJAJ^l+^0FHZeq6DfL
Qg#Z8m07*qoM6N<$g4;JGp8x;=

literal 0
HcmV?d00001

diff --git a/docs/html/img153.png b/docs/html/img153.png
index 2c8c4c5960ec02422feddee783e7699c003578f1..986f62fdb4eec3565fee5fde2fff31560300ab89 100644
GIT binary patch
literal 750
zcmVKRn2P?K@|TryE~i7hZ|6=qSD}B5YVf*0iozAryjgG
zqE>PcEFN^UBI_C~#fM&CW
zcNQh9xd(Gb$@4iG!ms$14iDl3P$l4=9@{u2RLnQp(^9%=B^=?PEFqKIH5%!t;SCGM
zS?K=`d$5<v6?A;~{VemBbT
z^|u1Yk4$D`beyg1ka~he&A&&cJLKMG@(pzNdDf$eSr0itQOTpQPSC^PKG~imE6Z)Pc{~^P0t|seag-OvLdw!O&{&
z(_R@}4B1=Vnq0=|)H8SL);0b~rWOt_uozueKBYw0ZUZMq9>kv`KUn{bsFC5AVfi08
gjK;W8ckwUq3k30$YdvprWdHyG07*qoM6N<$g5Kt39RL6T

literal 8603
zcmZvC1yEc~w=EXjEw}~^KFI(H?g0h}kO0AlVUP^&!Gb#^I1CyrB*AUaFt}@g8G?Io
z4Gxd*zyH1OzI)%P-KVO%Pj&U~?!DIPQ#(pWOO=F>fe-@&gXEQ(k}d`YmKX*G<_Zq>
z!`ll$r1j7tqNAy=e1CtRk&)r$<@M&xoBjQL001yFG(Hk_LldUEu9hB#+y?5QpAF-clDxim)}E;ojI-Axkf}`V^HY2JN1!;w
zSJkJ=N6e!#%6z-eE_D=0OnM`L!Lp|(8{l62td3AiI$kEW(BDm3H|!nkQAuVomERa8
z>@xTH99L9YqZ_eQPV!6h?l3bIL!L6=@Q!^krir5Z8ur2o>eWc?h0xd+^5PoSCU4Bj
z&b~cz@!S}Oi#uTu5)S(dHy^}FJU$c4U$M*|G_%z&=O3KF^e1iC@|I;*3u!IH=&&^!
z8~4rgXC?lqTk?X#%U}Q1Ont1Aqw-?8ZR8gwR_nhpwYk`MhrZiU0W2-vWPxOVGl`q*
zs_`H%E%|teKxSPhtzUh02*;xPl&t1T(NUl6nnYlgdOm*i8(6)W0+ToCVeuomv}d&g
zXw6cl_6^DG;PP^ZLOq?#$U8@_g8CNoFxI5HK2>eYXti%5u|)F><5=X*m8>)89+`*0
zmrbUx3~?0K3DXi5Fmx#yR9Z%6UL0lIAXAU#Bi|Pa?v~1{ChpTo+bY&UxnNkoKQL-o
zRP@Vba)S(Uz*~c%0nHMlGd+_O^xNmJ0lMQ1MG9{EUSQ`84w?4Cf>Gto7`(vBY0x{_
z;xK*cU|084gjxvMpCTPKsao)6S5SJ3kLedV(k5SOS`8>zm+-PZ{f6Oh&sECXG>`M$
z$h>7#laa+UJ95xJSF!%ZX`xt!g;#YQP7ZqTfuU*sVPjo#QaAolFk*#=N?-oO??ZUHY
z!Z>$b-Xax4o6f5e)9Rnbf@4xcOA=#a$c$c_?)DLhN2_B9M6hs0gW(CRz=4qU9pi__
zKWWnHmUR}iK{fd5Gi{n)db~X0VLX&m8(KUr>~{IYqty29>z<$QqYqvrf2cfi@N}2d
zRwp##EMoW?&8IHWGK3iHzD%a
zcokkj#JiFl<6MGqKVhNDY4-OfExzX@j-|B*sIB0BzbMxsJ3g*1G8Z8g?=Mzi)%PR=Qf|RF+P6usryun-sI@MN*)teYJ2|8uHb@~2vh?;gl
zMQZ7G6!W>U7*|RZtS!AZT};*xG}KdUN=OEf<}(uQ9}_N~2fZVfWV3u
z^J*f4a3U3$85g`{ec1>Y1<=4gDB4y`tE;I%U7hY8&Jy){2y72urH|~4Vb8=)zS95$3G$Qc`KSSZ
z51+N9;GyIX~{TP1#_rYc;_FOhYmF9wO(G96qP+3~4PwDiBcdvfDcEKWDQ44b1tWzvS@2y6uTjW#e;neiQ-$du!?YKAuwj
z?NWlR!{QU}dAZ@hi0LK(_ii;nA7Dv3&A3sqQ0uhPe<`lvem8298d?tBQH>{nK3#T=
zsoDmeq9FQnIdr@Mf+J+|z_*g6g-Kr!)%~p4us+@-RWftf40IZf#n^^8On+M9;8MJ|
zr7CdywIfnL{yO@*Lm)>K$x~Xmgxk+~Vzmoi=ho%Jm+fN!G&ns@P>PPv*C)vT0@v4r
z*Wq&^)df{Gdko0}=9krlxGPXQSyxxXt2q_Q>VB%EDtbk=X^C}pR4g4iW00rC8Unp>
zZ}q03@}0?m-5+POUR$+H`vrwNObV&cN6C)Ys3f#OVupArn+<>J(bqGi?#c%hu_
zJvVX2$$3F{gljYc-0jd95_>zmWuFFlPjqQ#CyR5Sw%QfhkLJC*kx@s-e3>ri&
zMHnsiMqv#EofUKxyG3|>`(ZWj8lmgSffwctV+)t>8VC-H_|g!dt54Mk=?<`~oG
zub@McIecZ(X73p(y)7#K7zLv~(eb>2mA}~!v9ul%h@G(_uF2nX9jti`vwItbQ8`jw
z5MpLMtXZ*~A@|Omb$@A=5`4;2j5_+g^hnq8z!=!Po9}`MtwL{o+S~ymua|D9EyX#0
zjQ(P5BAD4d>sk3y*`HoXva?%Q+UP0iC@88Sk>>FL2T#6VIqF`6m^9J#DO3t5_ZH#8
zko8($>6a%ePB@HhS4!l(1$Q&>;Hh^5P;O@P#(tfP4@sO@uy}{xjxRs)bao6BW9Y!v
zbZSmqsS`-XJvw~VWS>W{1sL;0ZZvB7(ZLBY$aNCLJC2hZ@Ef?`|7cJrLu&O@|0z&Xq>PxDm`^RK
zEHlRx=~6jo;d~hp_ISCv|9w(%@V#y$M>}*x!NAFHm;`B-bQZotQu|{)yyH&yksLnU
zPC{B;q^pOug}UTykSIEiX<&j|^$106lcWmK!>cBl`SITCn42?zZ=eUSm19?}9i8mD
zhrs4F6J(J(Y%b}EoHMFfmYFa$jbJH`T5BsSyZsDektA(|s+H#b)Mw8__2r}bUJC#T
z2?_1K7>d53W|aKz)?-CwMG6>yR>JIxqWkObo;KgNCzaLpQ?Y|@Nd&mJ3@bmL3rjj@
zOn-TB=|fpHE&yCG`#mAJy(KZxvn=jqWIH|_uJQ>~U`g%?WtE0A2Ta)iIW!#Hgf4MV
za2kQ!E0nD;))fPCic)_QKht*8Bre8H7508eq!F9x7&#bkx?bBWTun
zTZ~IvTJk2w$|73Z8}mOr7HuycxGP2+or@3(z~>&8z~u{V(ruFIYyVHeF83yo+1cYjDGklGoWc>7@edqO&JItLR7L;J`uH#!whZ{GoSO)2u)X
z$%|X->c*<^ptu!ETw09~l6+NFFbaQmJxIA(Wjcp8EU?(ME5m{+uwlDu1>T1yZq6cp
zg46W0p{UTZD7L{7q5z!FbN{d+*d-fo6^p>KgqgK(Q7v3Wg9i5xl@;IiE5I3d3+{Q%
ziVZe31hBWQ3R&lCo+S)VW_3?Iiya3{hx#I5AKH>Y*L=}Nb9uEWhPVE}cb6{Z?6V@3
z99mv`t~3VznteT?zCtzJI!rS5Wln#ZLl+jzA$uIKNe9&L)o|_kETiD}mA)t3M#~Od
zJIW#~!3$%|ETg}>ia_UFw?$wM?6io<UB6;_~$Sp5i8qctF`AU`?i`jIef(5JF9C^1Ae
zq%uM$!=v}B?BpNU33J1rA5E_l^^AK0N5!TLv{65FeVA|w+1>9zsMQ#*ZWXVq{h>z)
zIgsb(yO}~?Uk&eS_lrRBy7}7*IW$;Om?}vKEHz#mSW5SY1=`s64q0gC3Df#QmB9(;
zkZ++3#0+lVyK{=Oe
zjsM2pbDBKc#vi&o*0PNOgZQ2D8t`TplMN!M2flN%hN35qtPy8clACW!M#Bppr`DvN
z@z3cPH`(4s+Sz}fy6$IWSi~LU{!RyQoP}YP<>G6+T|UXEcS-ia-yUZX4t0WPZlEH<
zO}W-Y$bgOVRi9UDhc1g(r>cZc%GHuUu!{H|#jxXTlt7{ZUTMkxR8WCVsR7PQSFmWT2X!g}oJJMZCQdj%fS16)JnN7`!GJA-dwGrf_n6OcpFoHkp@Sp*Y00q4
zxfx@tBvHeVT|?C7+S^R8kS}le$0`q(M8}*1kcWdy$a%`kx1lvhW1W5P7e1L#@oco7
zY`rhR8xXmGDSm*(hx(AT*E&zoH`KcA!QRYqHTN^_Oyr07F73?Wi#u$k*BudN5y}yOYi#Pi^M!Vupf+~jA!C3Wpbb|M1aJAlWYQEH8U-J)YlmU^bd@j
z534pY5u?n9xxUAaIAbK5i59!vU^EiKjUL9m&;DX-+;Hwv0&|_OjC$o}ll1g~UX!)q
zOamn#()CI1f8;C$+WmxUxgfHdU81CtcyS;jcCa{FJvHNJ-p%DKzipW1q+m~Zn-Dx+
z2>vdc-}T-F*Et$BhU~W;8nmKZ@9bf@OW(-)wi`YV`d#c@88yNw_yTVq=(oG?XUY2>
z<1c2~XRszm=EEHoE?(#0XyF?jozQL&>gu5{@TGT5xcsYb!kA0qaCl9FYCRfR@OC)#
z{STuBi%yV;hWl%QLNIeL@CV==rd2O?db8$2-Yi3vHA^o^7PK;4hI8wwK_)E
zp3}3wwFxg-;b6-0_lmLjGM=4Ijbq?)ZiqRdy+yIUFzZwxbrggT)&>?e
z!jNY%UQ1;gCxSy0cvbmLoz>Iuw4lX+U!)vp4z>)hfZjMa%{f#b%~APv^W&q{R;vRn
z_&OWwqC(nuw1FX9Sh8o-d-!0%{zw6Kw`qPk?ZK#>W7Ko?`2~<-jkZ1
zJ9mkWqVzWdTx)dtg?Wy{BhvxCmO+e1$)dx$6!kIH|Q
z)_4ANCiABKd-bK4hmAgft6f%0m0Xd|-ey5IS-B~qcS|cSu*FB<*do1rh3A}AVpGyLb6k5oVVv-~R+TrPV0
zFI*?%g$>^9c9@rP{28NF_jRKfL#pUsCQp$cU1F|Oe>e{V+AUHSo;-0w_PtO<-?xgY
z%SlnF@t?(X6=*m1dUa-eB2Fm$bC(o8j-4${b1@nxT;W?aojSI5Zf~?J5PtA@$tYl)
z@<#X*X%%~=i+}~MHavGC8~o!okuw#-Zx*aZY&NOVnJUsMd6NxCIJlSu$@kNB2yj*B
zzU`+2;gPyD%o`jf*}Xg4@c(#UX<3eeKB8r$sCi|Sh+VYjf2W1AGc4Zqr+Id=VlH=Y
z$Fbw=y?Tf%JJmuq$S=lmUED`2K^Z{g*Od3cfj+sIM^T`kc$6vrqj;y}$aI8qm$wJE
z){V_=*R`FpK!0W1jCVxi-Y64gQht7hlbpxqduQiA5fUV98`M#kJQv69lAmMK874yj
z5#E1}K35#)_2^MdCJBu491b-m#lCdI_trn=Qe<#j8KN{nMyb1+J#k~n|F5Ws<;%ck
z98eswpWzg47Q)SwwZ0c_z*VQB`^A=v5BdDj+rSeQI2Ao4i`i2K@Kh_InkR~~y>d%#
zO%4$|bd>%oKW#+}-dpnJeyP%(G!*_S-#&l<_let~lR(|+pTWGJGxN{TCiUAJUV`O!
z%l+8Co#AB6PQmexu(=uhbFj$%PiuwCocp7BlupPR3#{WF#-=M_AGg&wee;W1OL48)
zmM9k}FGICi;GHNxuhkrx@Vauud%?D;Qcr&U0!3=r!r!44whwJ`IzM)t&AGl9AP}!t
zmy6lOu2VSxThf1zOuU@OxzyAz@lG@XkJgYH^yNXMoSyl|$nww`M_wf&lPnm4UgA`V
z8D}|^t#69zrt=sX8D3w%dy?ERhy9B|x}S|Cry?J{;@CKo;T+pCCQT0$yQyH_6ldYF
z)h(n6qEQ8k6tr#I{ESX|LZjOBn`DItqlrJ(@tD!ozYK!
zOg|L2(;K80<+5_WFm~pkyrbL@oEM$_K(_Ev+8coF>BErJ4yff
zR7MZK$!qC-F>`J`)=B&)>cVaNy*p)@ZiW2v
zQl95`u(d(R?e-RY8Q4A(pUYC^SPA>sS%!}Qh@&6~F&?Sj_?Bl}^rVxuq@JXnp$+uC
zNRs6^PqVx$Zu(>hOX}`=L1*K>OyCv>Gs?QwY3@Px@cXj2#)QP0z}$pw&XzmuXAxh2SA(UA8dnIF+T9hV@ZkK;Z$a;)
zpL}GwJ;JK0wIo^IA8y}wcx;s`;;j~#2A&~Dh4q$2dp?%Kw!Y$S{FSvzZI3ITrF$8t
zVAt#MJmd;WyXbDx_oNeKP~;_!$JOa(Mf`l_D$Yf*vLYlQBwA~rDq
zGTS^01mRc`wR?sHpgX3B2`7&GpD5Np!}DAsWKP!nuI@wpoJEF&YK+1`yM}Kx*dsi<
z`@&X1tivjHaf8r{A5d9uftlwstf3?3XX=F9iG6m?s}!O5eXsMtC!;7sjYphPnB&}wIU=zB7j8~346vnWih#opvR;letv5!di=vs<>EqLpJj+>0
z-ycb~;M2+Aw+tp!E`KP0M6&^)73D<4A9p=6!-h}F9o2F^x99mCde)M
z-QvNnwL8t`N&5F&i@BPev>SZJ^3BZXboQW!(rL6)H!A(GgAd24>X~%I=%w$)Wxo*(
z=IT_2C^+gyz@&^WZS7DvoKQtTrp?Fe#{v&jHyy_F2kHV9T`
zPGt28e9=VwxtYH44_a%(xEcha{b5{ZkTyVA(XIqp+v@M>S0SOOnTq$OG0pk=;3V;s
zc>lkt+e*FImI9DtUa#L3%g#bPC6tTSrvNB$K$D#v)s=^AJ9WBZ@i12OX9>u)#lqs!
zU6$!eDx#T1toZl`eh2hsdI{s^3W$aBv{`47V%e78IntG<{XTa
zc0&^}k+%X0xCv%TvRVG&5i5lxbP4oONaBL3X>4saTAhli%pra$1|8fAtS%17k=dQqMa{k
z8Owg(>bH^RujKyyh|Zx`TcN+S7;JU5`c11r+VuiEaDTEnyTRTqLD;JA`&CyWaRtDy
z;Oryh;swrJ470n_wS;?GJM8h&tE~v#tlrqKBEcXZ1v0DBWHJHOW=Hg2BDGQGXkAxmV6+7a1E+uejR-#qPL_6#f9jAc7es9Bx0LKG!&OiegA$
zW5T$>Xl)1W$B8BR*2gDzdMZ7MKF`#hvLuzUGcvj8G>uS#>te)D
zKz%!f1h(LzQsjPJ3`K%Jo%&?bKcs_7WFI#gp#^Jf42>ZA$;(DX!uF<)iy7fTt=qDm
zXLW#h!%P-?7rKt=m;~4{9^B4#R;YE;~YZpQr#|b_&^W
z{xALlYe2cJIKmVQX|Nh*lo~3F3D%*F1U<(gv_9F|)Y%SQ)h2t5;|?k7+e*00v?_-e
zYOhp+&uvr+opt<^{`1NKF6htupXI-ZGG91jb}M$1H0b%A@ue6a1D5urL;N}4E3oqfgrfn%U-i+Bx-Fr@v
zyixa))z?zIAnkCGetqrY(9j0CzD@uW8+_>@FM#BqT!1S_80+13Xv?vxZ8p6+{fO9X
z_`0}(FV$y$oU26n+?pLkL9tyEpIfdOHQeF&kQOg3pl_!BC__CqQPd{pqaAoqv+E!3
zy%;-U*!m4V7?~g?aYXuj8%v8FY3TYjZaYQAhaf6Rci)NP`oz(tY*Cz;OJfYZ3X95?
zoEH>#xTMWeRy7yfatk-leAZ548r1B3jBg881^u4?W;UcxX)fkBsQH@Ce$3BC>-&?$
z-F!g_Z4&S)sPic?1dtLkJGQ@Hx__p-S9dT1nOw=rJN+-2@gH}G{|So!RwK;4U4)i>
j*CnrY{&^&#?(wDw$d5IlSrrc%6Bw_QwUo*gEQ0?JQ)Zq&

diff --git a/docs/html/img154.png b/docs/html/img154.png
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..f358d2063c7f1afcf65391b9ade0aca72bd30f48 100644
GIT binary patch
literal 534
zcmV+x0_pvUP)@Q@u;WKoox=$xG6&L|g#&>(F5d_8;JlE@cJM;D+hzHprp|mk1{d`3*j2RB=iCN5Biby0H~j
z0fu?ZgF|V7lA&90HiM31%j&c`3n5vxK^QXd(O$%$4_(Kjf>>5y!DpKT25ppTXW2aD~b8th&V!%YlE-FZ~axqJv
z$Yc+4RU;7&*Z5zt8*37u!qe^0o?<~Z>3TFc)8{xhePJjweWceJy%)AuyQNpE}>4T_E)l(EURG8_u}fHGjqVAYR~5E+2Q%*$e=G~z_a3L^W4Lg^ynMDm4#qor99i}5BeaqR)=aSJ3AVqF
YF93*I(ktoO`~Uy|07*qoM6N<$f(|n5eEfFPDZMZzyPA;E*e@J5V8fI}UVvJn4@GNypuW{0iJ6Vg0(6fiF0
z7G-G=Y-aE(R7i=nRy~LtM-={c@2sDl)2(vBaNrnC#32quIAPMI**4(9
zoEw+hxHwlTQn=I^0)`a1gkTa6j2o@L{j9o0}(iqN-acAWUhu~oOy*In7
z-IY#~?c}>#?aZ6^y`PykGYiZ>K>x~3^{G7sTsN)c=2<>$KoL3U;w`@{CJlorsvn48
zima5hI-h8L43!sD=P@W_msxIu8`SD^@7`F!QvH!MMv=Zdq`94DsyokD;e;UbSemC0
zMKS{(I(y|x>?+X9HoO+F*HHykK&X}EEM`gw{E`OrQKam1t+bDdt3_11iABpnUB(!D
zA^lXlWxeX7Nb9H4t{ixp7ge#$)5W40DR9K55NKEy-Sh@MMd4^IVhPDMV~!YPS2W1R
zR?;a}{>;sXPMU>TQzHm-eJih^^MVsFLHuBh_g1n?rc{UqmOnk9)`G6|Lat__ib1=$
z8oLTxtx$1jx@BuyD_-Fx2kkZuQ)T^(mpry-sC9s9?<^lzc4-`@rs5?{gZ5FXbg5pg
zACjzs^KHck*B?W}q*vhu0y@ty8X2whc}BIjCGXML)xBYAUe*H{jHYbRwUv%sd3pfJ
zY9JHFS@|nV>}rq{F?81yvbds+0@=FdB&%o%BvIW%vP=9~vzrQUrruPP@`7%xECU(!CA4qjZQjE;SruJ7*rLwERQVWQU^#>Oj5baHV&OB&UbuCM@e~EwK!rgZs)%QP0&+R+OTfXH`(W-%MBd%
zLNvEx%Kom#(yxDcaB9ay>G!En8?bs>9;o#-Qu=K7et4=@gVj9Sq*}1~L(r}_VE3wU
zS<)w-eXhX=G`P)KR6R=rK@ffS8Sf<7Lv1XC*rhx;Tgg=-HeP9Yy`s@t
z@JI^VfK{qoA=p}23R?IBR*Ogq5r2Sig^e1ByPI50a{1Dzl@E4j-^}dn%(Anc|Ad5go;3@-+>3)U8#<^-bSks^?j?NW>w@wNvsfzfy>XE?(SuAiBMX2P}2u#?h
zCAVl(6fbbJ1mWJP}$H(d(o@zf&u=d*{jI5XpjqU3o%uCImgn)~Utu~<1n*hXIVy#@%%9C&c2AZtse^XkMH9HE?#S*&Hl}n00000NkvXX
Hu0mjf&IkdD

literal 758
zcmV{WTwx<@BOHRbXlY>#7J?RIIOHIRse}WI#RCfuC0NLn%US4&5Z~-(Hp%YZT|PF+
z%s1crG4H)BFo7Qb2>F;o$i-!(Q2-1v)hX~fQHhQi5_cIaIHDxCBB7>+?K01V}Tb>SEo(ZFj&?=WnQj7d{;DK{1
zF*6XG#X&t;W=R=U_$|(%`RohUf#F>E54l&WXP9dK-RBWx7+)>&+7rW&y`I2I1v}hI
zpIJ*)Nsi30Qwx-p+tvW5MRXNU@DrBBOOe|1sj#M0eT&0|U||v~WbdNocpOn-sLD$%
zh*iay7|%d7m#d1@c0dO5cf>Hk$iAC3KddOCPr`Be;{_f~e~~qfZJnAck9n`
z%(0DS;(vSQr@L+F=S~C9n)itRNS|M1{LuD*CPn_YeNacKVFx&WzqW>3{fne9huFg%
z&?D0K5-5!D=6MheMl|+Iaze0)Sakzt8{A1QE>QDIK6Zika-)1bIF(dJP%OeWM35J&
zj;AxRHkD(k+Jiot$dg#~v+HQnSQc<|4eE8-L7}$-oIKd~@wp$M(NwXvHfVY2F{Sll
zOg4kT0L)$i>(^m6s3v-kYJAp~(pA~BK5)i%q1m=W8`clWvx5uW??323HldKb0Wvst
oBBn4FQhi_Ar15V*mgE07*qoM6N<$g13`hJpcdz

diff --git a/docs/html/img157.png b/docs/html/img157.png
index f241006d2a5a78e572d8af0521ca02d9e6f961d4..a32e3e378968206beef795ac65f289f73d0bf70b 100644
GIT binary patch
literal 250
zcmeAS@N?(olHy`uVBq!ia0vp^Qb5ed!py+HxJ5CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR>zJY5_^IA$g%06`){qXQeq19m5i2k9G9A4C`kDn5w&IFa#4>Ca;aPBpNfNqF^0
zl>Jh1y`jM;BLjm?n~Z80iY)gV8x@E=xZJ@x%|LH|=7lp89ves=S$*^If%3-2TFVdQ&MBb@0L<}Vvj6}9

literal 875
zcmV-x1C;!UP)%oI3!y$~hq09AK;6}pqe{E#oicR-IVdKn>VoRPsj^jtdZbql>bL_$JE!_I
z!yvpy*ly__-5LQbCPex)9J5}yUYY1$Zbl!k`qX}M4J15TsX^7C4CbV#MqL?WwO}nw
zQ6E0MxQ~PT{slFf(V=0aHXZ6RGrs`4HV&&4HR05>!eZe*)>bB9+z58$o(e15eS~B8#(+d91)#m;_FBZcpONatozPF^4lJ=^6?JI(}h`
zmW_s=s%cxr3UmyyTH$Pa_zO8yuT}3$O&$OM002ovPDHLkV1g*`
BgzEqR

diff --git a/docs/html/img158.old b/docs/html/img158.old
new file mode 100644
index 000000000..e69de29bb
diff --git a/docs/html/img158.png b/docs/html/img158.png
index 55f17c1aee09cd30d3ce1806fb928af2541d464a..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644
GIT binary patch
literal 0
HcmV?d00001

literal 867
zcmV-p1DyPcP)@S7f?rKqQcOtyfDRg4viMIB
z-I^&whmMM&5W2)!N|urzYnIncp{C#|P{<&fF%*(5TZOlFsC)P1XW5dPDA2R@^zQC^
z-`#t6l7JkM{I5zx23_>)v1M8wsL=qbK;)_wcD(LRaUhZ?w}@YW3zi~Gr8T~bDcm}P
z9EU>62pGXBb8wnUmpxH*uT-2oP>$$yyp&yK7WC|fW|9`lD4S~D3*xm0ws8FU2H_ZB
zT5wfh@!avzCDSL==Ho&Iv@?+~K{FB2D~=|3AwiTbOUhXT26{~$wJP3{VJ6AX1viOa
z#$p#;nv!f4LOn@(WuPZ!3TsX*r7ZQtltYv*XQCS^PlY>fu-OPTk>8=?lvL+Zl`F$p
zSdhLe?2vG*2PUpI>26a2MZ*VlNqM_wG|4EcTvIbrh->Ues#{0OWApRJx}@%vu{}<)
zyrefXIB-2p6n1JQl@Z+rV%}5d6nhBAI%Pye74_^OelFtHsAP|=fK;=lnaUWVAW=?u
zcWQn?n>fyaoEM}|$(%?<&$e-n?9XU2|5Z@SnsPewPXEST$sF)NEo2?7055<0sf_F|
zTZeS~qZVy;uN&K}=6iDNEyHTJ#;}#HhvViuT%0}uwuZ#Qe9Hfb=(a~a)L-oEGW3jx
zUBWZgJ>TezIiJ$_p%viu$tuk%1Ki*Z=r22)qg7&v;@4opVEZ&{1YA-%j(fwmZ;)YLMi%}|Wu!EP*Pp6O4@lyjF-zi?
z6bb9$Oh$p8=|DB#scW-2j(bGMw(x7%!}pUA?KPdz={8O0noWALnnPmf_odP-#v4Z-
z`u#r8YWZkC2Cb!6$ipGA7}~!;Z|-hOpx$0xA_VxN^7sntwy8wSVC<|t0~X1Q#bw^L
tz`vx(SN&d6@(Q8;ci7vcSpZWH@E03t#6CexT*CkW002ovPDHLkV1mtao74aR

diff --git a/docs/html/img159.png b/docs/html/img159.png
index 4aecd5d283cb72148bb2125599a47321e8fe435f..c857d6ca2e9a22b4492aba2fc02f58d62922fe94 100644
GIT binary patch
literal 9773
zcmZvC1ymeQvoB6?g2N(7aEApJce1!ckl-v977Y>tfnbZf1XzLxg1fu3xCL0;g9j2c
z*yI0w-@Wghd*7VuIbGdV)73N8RllCo5n39G1h_P~C@3fd%1R14C@5$^6cp4=4D_eF
zw*a2TQwN`xn%?Wj$H(;abQ>ERd3pJhlarS(UyhEBmXwr)hlhK4dFkotJqZGVz?GF1
zVq)Uf*4Ef4mp@NUs2(~Rx+pTc3$`dIFHn>fWc5B|9)EI)W*qeV$q1i;xGl_-OD8zf
z?e$%7;31W&+F3bcNjUQu6))+>8yPcWWEkA@-qhfWYO5JFzde@ytuxgfAK0pU9Lp6E
zbY<%y`)V)80$XJLwqrQIZPUvMmOa+pHw!`o;;yZBnQgTw6aGXalzvdI0
zeQ*rG5n9IV4NppWsc_nQ`i=Zd+FAR?uJxT+1ubt9if~QsFH}P!@+@?bv&#sPw&ie)
zD9zcfGB6X(?n);t&LF1@25=R+4tUL=_QqMYyM{ztyL{m681P!mk{c71E#&
zSC$YLU^NKT4AS(v!T?ee_Fl~lFJ-k)ZKd~+dd~t0F6GozXd-fcym=3nH)AWqcdnM4
zaq~)=|!PDVV*mb|I#iM3B*<5WIY`(gU;hxG7zeDI&7!1sq
zCC#_F*rdYplPBcA0Znw6Pd2VT`^d@9?n;7$=L7U`44up1
zh9Yd=5x-eU3Om%K_+D=LcM)4|-ky`si$mNya)PY%m8Cy40R*FK53_L@wJo_c$gRQQ
z$r4s|#;;W{TA>KJDKd5b*|xR%cHZ4uet}Z8pyz@4yIy?XdDYO{5;<3KmWT)OL4O9e
zHL9!a9D}HSs?uT);8Pw%IPeK+zs$Td)baimianm$aI*X-w#hs?d*U~fT8QfWat6I5
z2X=N7w*#SNj&i){X`WV28o@X9>r4KZW%D|(xMPYfOzi|Tk%nKT8iDYGR2%r4Qm8L2
z2#Aj>=WF!7YJ};pM%Es6UBi)*@3dH2=_xK0ja9wJY8e)Ae!cXeVw+;L@Y*D%;ep8i
zyH`q5v4Ux*6NpjXjx<3%SF_#8C*KEO8-&!s$}}dJd+|jw%jxd&1@0e^heZaSK!NFgdH~{tF`CE$fWfar+oY(v
zH3b`827%x#=%!^NQcE;Ss7wx-w&{Wf-DC_!LTcTP`Plu~NK5i&>q;iN-;dU)kuFKi
z)STJ`ER_D)drpz9uAyf%$tT*PCh+}X>sPZqOAplKY?H{cfKXD;rBuh|7yj9zre2>l
zyuY=kngCW_m~C0HBfa`8{Yr|gJzw7=m1_UfSHCknqr1Z`TWg!w@n76G`}cIByCa^n?qT4OJ!-oDieEb&%lf^#%<
z@$0IUNRnc3>9LwzyU-w&%ID%1MH#%-~XvsXuF=0jB0e21=&asJ7{-_|@_
z+xAlz7m#{aC)`1MT*vQL4(}gCR@H#;h!;cP8!N(#Or3n0*U3?^@$L?Z3sLpd*Zm_7
zDX8=&HrhYZE7R5k#&eA+v++%x9PHzSPG2mP_Ezur?{(hwsq%B=ui#Snv&SV91dG|$
z4qf-qnDNjb5@ryJZ2!T8a(w0x;<}XB`Ht-Ch19Y?{Qi(C{ahT-P{*koH^IWgk{;t^
zXEkn~1U+inN@PzS>#MQ+=55_fbB(0BVRiTOyo;`z2C0Fn`KqDANeHZKj5c3BxZ5pY
z1*wLXHujn0uxAhHcV(Kvc4TXSI44+OKerIfPrv@was7Q#4b*OX^ZDydUJTe8+b>{6
zdqE9N4E{ASW?;5DO)!wh9`x>s3X;_)0d=kV>nyMuO{?{jdH|w``ISWm|Jg!HrLzNe>WY
zmG`m=t6tm>C|+v|CTDuQ@!443WS2ulEfPSC{7Y{f$4zh7rRTqh#)P%UUMQfqgc1ArCi
zgIdtU*V6DD)FZS9ju?!EIzU%>d8gvLMtJIV4MJ7*OcEDtH{*bU>ecJyMQTQ39(yv;
zNyK?J8|t>e6nPDORaTRt{rkYKmm{5{={t=fAl_|g0CAkUB6es*WFQc`frH75eMx-{
zTwfm*$a7txTuyll@WRU?9~^HIeDr6+XX|(U!iq%sNhC~-Zp67Ml5{AwELiZ!8eH#3
zJ{Tp@Yg@H%9$nAW+oj+oJDUknqx}}UeEH>oUewam_nvpbqTXmDpAQS3Zp{bBy%*jP
zbDf)?n9O^9KWilpC0autBv86uU8B%K}
zpo%7j|Be85HgI{Z5(^n`LP2!%rUN97OrRp(l^qtNf4jzc4L=$tdl~3EwgtNUvVs*Z
zY(ejB)lRJ?vtA|b@|;P2sCgUI!7?{QmbGEBzNP$@YLYC&Xogxnjygzv3Sm0IySM-%
zo2aH)!Yt~$3}!H=m>7G9{M&DSZ{k5K!_-2cp`ZPweCYMo@<
z6gR#ZPfroYBwybShWNW+H*zKB{nuO=NPXbRMBuk3WPDC&`>s~NtC3vb$c6wZ(>
z%O0~u5<I=TtWB(SrWO?D`Gr%~uyX|lrX6iSwUeFi;F;
znU9O9YFEcFBGsr;v`LEE$)u0?MA$vWrX*75Z$1WraP2*~Smau}zQ5PiVSricrfrPf
z#-F%vg+5HszXV;CHCMoC0GKgi%nbg9YTXN+e`@cRVLZYmClvA%J0|^
z5xA8N*Stw*DDmH)*vNpY`MdG(zR%)D<+2G;Y6{gAo+7@obw&-_H~K1i
z+T(!?v8W^vF^rQS#w#wrUrg&V$#$FS#k!v_2(DzKiKs=T?%NJTlD;fxT4pLE_pUCE
z;K&l6q94;$FwA$ww@b0xQcI4GBKrdGo9Z2KM&1DqTH
zL*TcIALFG!)I(A%Ex5d_`o=BDE*kWSc5AO-fC@3(FOR_c8DlD(z0-YY;Bx#UM0Z5Q
zZoG>l^FmEgFq0KEE?+Xpq(@T^6_+0UeWberh!)>LFUff|6V*HqHY4CS$nJsjQ;=@*
z;yNDBK4yf4rj}!Uztm+KeGE)629}q%1}Pb+k^hT%;{Q!CmPkFAaxwsvi~ADfw_edX
z`R=RNk29Ac#XIj8wq5=RmOX!gu9HUni`E^%eVW#_BF@=+=ZMN>sSjG0$WpJ7y9jn{
zWvE-Vr|vRO@l(b>@~@;WFJwHPV-6mG70ADbv7m{XQ7HPWQrj+hOoIn;=&yB>72?{H
zBka^uplH^g50yb3TQQkvW(CUn_W0}Zoof`(y=~JVg00hEpFsA~d`HSvMmq!Z8`M96
zv^&j=e!XTLAD(*!|1$d&&70N2HV!%5{PIyM0MYbUWH2dP%IdWL5%F%@-ARO!cX7n$
zhl&_uwRUc!(k1znSnQa0%CX`578bKLy-kxg0mn|HOszI!Ka}LkSiKrb5@wqZrUc;L
zY3*xF3OIOnyQIJj(K&bkRCVCwC1)-~z;G(R#I=XSr`81vDqM=o6VgHdkuj0566!Gh
zTC)Mf9cm0tx-XKaX_!Ov<9TjWjI6dQg&9T$MKgO*ZF3AMJ`JlY_`?6omA#7B#7qkv=^s{wg^wyAa#EXz*Ol*5idD5P;}b@AXU3;Y=X=>&-x_}pbxYfE|n
zx>Q@NU;8Qv$H+x~=VyWQ$jd0Giw0>{M5=e>dtI>e)3T8f1U)>)zM^ZekB%duv?GS!
z_Ni}2!@8znJp6X;M5PVfgc66{8S&#rL={$cA=7S2`${l{?p~^hLdIApM12NW%NV>LpbbO%x;nFMwxO=v
zjxMvuqbyUrCp+xEa?-DOQ`8Hm7yG`_CUTO%{l2`+`gBCgqp$kU_!Ld+r{pwQMx#Zs
zo!LX_;=X6Yh%}dLwu8NA;AuMj+xzBgUxmA|XB?oKa4rhUC^BIIQ4n&X!MVwi_qChx
zD37gEleMiZ6;_pz)xt!9y+pHWvnpBtlaN{+*Bxd?QFC2Y9SV^i{dcCpLgIr?p9gby
z=)!sa+tRB112}bl9D&i?!6^X8m6{1))X20&w%Wg2a>R4Z4bg4r_#y(B`>@19fK#}(
z6>Dp)Pq^@gnH!q;Ri9b@y#*
zjd*CJ09gsS;{7n~3cRkbg}stQ1eq(UBe`qofg9gh_@d|f2l~$lv(>eEym|~zN+FWI
zP5U2%2p(vuH0!hk)^Mu3{eKrAX)99bU5<-n@&c^nFB
zptMage{#6iaoCB|bZM~PQlS(@KBTtmsGQrwMV_@06WrmnTPOduWUct!>4f>gdn~1U
zK-P;2uFBYDQitCMB5!BS=r}54+eFfg{eBh)MfiT-{?K=jv2{k>}70{bAI+&g-0*_3d*BF
z56#I(*e7gf7(?PQ*R92+>~-X|YU~&a<6>Er!0IU^r(JAz(u}URddiG$WfD63Z&Kn1
zNP2hRWyH`pKym-
zpSNo<86u@yMrwD>9_QwIod~bGmCt=H{ocVK8wI9;t~S5
zM$~h7q?REo4cs=K(r9GOx<=hxf;=-}XCT>J-3N+c@R@(XgU?kz_1&+)=P+)@YSIIE
zK^6MK=*Q+AluuCqxxOZ-OPggo2S-yMlCR{DPl*R!sJJ%?<>Ps4yl{Ozs%BJIjlNpk
z7yk}aD>Q$eTlCYh>q}DU?Z*W{;r^(YSbOECM8*k8s$>x;P~Nk8U+48ai}Eq)Rnmz!
zhvm~=0Usi8JFuk40I$tDrYp%3wRT#-PO`JE8)BXRyfl-urWH1=8r9%w_=<5nc~b#)yYOEatXD$*RnpKGO~MWDO{IdQ%nZ1}My
z4>P~Bxh@=rbz@Gnm>>C3OT>K*BE#+a^m8LKw(0?Q41Ya)AgSx(B
zQ>S*C{^+;v&Rd7SMx&*cx66e66}!p}6UTkAt2h^b4ujyxx#AUk66m*C)RU%g!W4Fh
zRV8Y?^oV=wZS~XV8X9~Yw6xAvF?c2K>+{I@)#f_OZSri(*3G#E`ih^i^q8>Hr4aYO
z;MafSFnRf{;l54wn7~Q>YP2Y0Ag(>)dk%AcP---;F_7c`!}Opa(ys8;ZVG^Ly!DDh
zHJudn{dOr+`(%sg39@f~f+rwADm~l3^JSw>;$lOKcD$Z+u{-Z5AU3I65K?qH#DXV!
zndBU9SERR);p4qqoM;iJ>*A-SQ2E=EIr=K8gJ-$NHEW
zqJ6db_j}C|u7H;hmRNM*zRHCDZzc(I`FuT?dW|=YDguj8V&xI?h_=vk0cTW({MFRx
z3%sVe&K&%!9-MBIqc#o2@e#)|n>I0Cdeh8)bRA%KN(0te*o2;#BC-Bsl3TTbC_oCM8y}jZ*i&o!nDQo6>bGap
zk=-N!mXo9}#V%Y;Res59zWCsmOOw)z$D4V2#ltouA%K=2A$KV7zrR}Y=%D-(IgY8V
z-ejV-tSUIviCO+0?nJ>skK4Q*#Mc+317zrp{T0wh<@j7Q^9zG%Qa5^$-;sE2L#`&1
zC1Ny_7MlZM_zU&U!yI$n?)o?pdoB!67wCg;u~kM{K$=)>(0%9fYpO`ZG_dlhbXp4P
zN6uW$m1IS78Nsb$`{{%0J6#$U44ZUO-T>DRve39KohVLYHgrn+)fqtYQ
z#4ARrG4;}DFLJR%)qFgF`Uq{rrJI~}{|o^7
zMB$q478fhYthutmTFBI(I{3z`4080AP9!e)*)?eA%9QA`NW|&1o=7C~vDK@E@mExc
zxwt{Fw-n0XJEFMRu8-{+w>Li&e^EGO_!}o|->p1)5M|Z4w4YUyWH&cSzIy8Goa;W9qNk@@oorhst;4lNnjK^2&t)+gb#NYuDnoo_=o}y6kOsbvzPt#`ty2dcl@#
zi1S!ldi!UyHRC)q!+lfWfnQ&&BMk!lzIRY1to4U6SN4yX3rD%gG4PfPewMB%koRBeVB<>-j)7mnKG*E
zayRA=V_xe(Om9;K4JA1nB!hX5=3ewFH%t(td{M5+k9M@SR6tm8{;-p>NJva5l)x<}
z0cCM4FTkoQ7o8C6XdJF=e}ks@Ga)pEc>M<_&WLlL{9IUA34^moq6Ctye}xSra)t*t
ztiI@ya{G?L%UYfYwDwq5iXCK}KgrCmnHRVZ6vkO0C092Gf+5*9`1s7!e-ZCBrGIdz
zOSuS6pDtqYXs~c6Wa+GH3|8W=tW4f;Zx4X6s$(gT%|g2oRw>|GFR?S($iifNIM~~t
z4H19fMNePf$~y>nELj2YqhZ|cPpH%ET
znWfNlyXxAeu(Ix8cU98#D`^WU8xdrMR)Cqm{|bT8Ea?@2L(qGI#dX_}Z%!S2nUIc_
zjr9d40)SoW+~bF3S#LYB@J~*P4r(cZGbW&4+QyjbAWR)z72tomz#;*{3ymkI&ym_WZ=J~N
zApZ#s|BUq?hCRJE_c$_y=l=~TQ;9w!$JhS#Q-s-b0Pr!ApQ?b3)|fJn*}9c(tr8_B
zOA{ww7^$Qr_0*`B*d2iph;ICX`kY^07>Jt<%bD={F5n@|$Xfg0YM(|bmTXh`=>}^!
zCwPV@yidYaIe5D#*Hf06y2hZMZW0ZVb4%5)<#??TagHSPgq_%a@RAV`99AZ)`lcd}
zWqF7qU)em(HAnxb#__MwUYb`npc^X!ZJNGVeb>GgjJKQ((z4sT4Y9)xkSLJz9Nxs0p`AFa{ljIE9ICb#$bI9?Kr!UEBAMsZYT+nu^~#nt!-CHZ8%a^V&K_d;EPLK5bSX
zF{L2*Mr*+)Wq|+KmDAVtP*R#@0KD|x$tWv*Fr2#Sk5fRyy3J6scyZ7(DpVdw2G9g7
z-ZEgKI7%haOZHr$>skD5el&v|`eMcst>S3T1_JOHxkY8;zb3roAVnyP5v_q=Z|+hy
z`OJ>kR97Xa6?ruqb-EKbT6Fx
zlLW@-uPLSgI(}=JzUbvg)TfF?A3lx3+;f4yjJ6VW7pMi2Rs+Slhg+{lbAC+7DvruL
zsfh!g07zfL=!WA?YCwV9lAom@g7#U!4Jn&gQ~Kd4iE~n6Dj%%Y%k1_y!FQ{4hEGI`
z^ww0WOoyAcmA&-Kg`*yGPqW^WXJNFJVY31|d(P81yRI)s{j(Zp0{g)nZ}N#hMC17A
zKUM_+?tU#(+QWID!q)lA!|z5vE;qOXY9*VWL^%ZliIC(NYJ^%j&qRf&^G5>D{j)%0s07T}cEw92|`G4*y6*@LO@5EQ}x0vj{
zQBVY$_QqVlrg!%JJf-thLH13W&9+IL2ohL-Z2%iCG%LIx?qyW
zm|n2~{u}g6qRS6KhK7hQO*c_+;CWsW*a`zQ29fDM^9}L59Qsk_SU-Lfyz@$4)mG9wj}!_l^ssH;@L=1Zkf7tQg(
zO3Rkm3RCFiT_btNtZprH52RKAkILkj2k@ch+&j)lgj|{o6Na3ydTgCqu&@-Q;~jI}
z8@}Uo&yr=;3@{5a*}89QvvyAqf+ga^wsBcd>ayc@Uk-U9@s2%&a7!+4%;WnAvx3TfVP&4-)16w{7tby_PGXYv^KslXJ46s|q
zVSD3}Jh#g4qNf|Ljx)^AQH?FH0
z3`PV3xiSuW8!RKphr>n8lkJ=(mN+GZ1y}U)6}Hmu>+cWuS386c(u6E>8M>-*Lt6S^vzss@`L%FgQi&`fgl*swLncK
zZM`PUo(d-Z_mJBgw(VwN=A4grOvfH_Mc?qP8`P(g=9yvPWvO$M4l~a6jEtqLg8p1vxdD=B*xZph
z!0LpUomv`(4XYx+a@|
zZQvF#m?mqI`pzWpY%2$(LPBFr#~T7wfZMh#Ou-3by9+x|fI``t!hfpJPX8o^Td4m(
zLjTwCpRyb*b(CCiOXk&dVc3+Nx1C5!rjc(MxtPo!!d*Ifql(2Tr}`a^=%<+Mgt|`i
zK}EF?pdaA7E-+)0#Io0*{7;_rfC~QqOKJIk_D>#6f07^(1%z~nXfa*8)#o4K!`r@Z
zz8PV;&vlW<#6xO64}3|Kuf@0jH#;g;E?N(+#ZSyQ%b*WgDs(|<`>^GlVN-Qh%&Ala
zh^~UvTHpGSef7mkPE#=QGkAlWuLcv=l#`$$3Spnow+`>H7KHCaj9aZc_!!LztM;)`2T?>|APsAZ7A`LpIG@(
gkmg@k`}HG=ebc;U|LmKmGh8UjuQe1ZMJn&58%$gCJGXYzi)7#FyZZ0ecd@OBWJhFtNFI
zTYPB=AY`{ynoVW9GVgD08h{B}mDkVAm2`epnTc;reFtlChsTLBcDfcS5x!8qF*qfJ
zXshrBVhSB+6({NBg{SR-y#BVBLpyK+S+ra)4h*f|Xy)}TR~QP2Fp)s+&Ca$^3Esd)
zg^N+avEb6>3rc|8b9Uev3~*6KdUd+Tmx0JkJPbTU5|NQArAZ-{YTm;g4up`NHIT4_
zqoX3}&J?_iG?uvf0tAr)^qACG<5CA}5$a-P^;<8rbCvFzRUmcE=hUj(Iz4L9zmjA<
zXnNZ(=!%^oOI9X{JmTM-wcd*!hU|lAwi-FBWtdi-4$Ia}oFP9H6h|C~I|FN#K%auR
zhyC>ouu%mJ7S`q-43BbO2p@)p#szLlMXl~*0~@F?>C=)9OSxOj<9uF-loJ&xOsE$z
z)BFM8r`cGyttxY(k%G<@8d<2w_D)z%FU50wIT5IH$`u^tsTKCyp^a++|RULY_3O@}0{{R4aaOx`0000jP)t-s|NsAGWo1J{L+~5D>e&yC0vO-~a#s0d!JMQvg8b*k%9#08B|lK~xBt
zV_;xlV_;yI0K^Pj3JehN0E$6CssTti++jcg?9Uc3Ff34DU^Qhpz`)6qzjHFq3_$Ilsw`;(n#kbk>gTe~DWM4f2_HZV

diff --git a/docs/html/img160.old b/docs/html/img160.old
new file mode 100644
index 000000000..e69de29bb
diff --git a/docs/html/img160.png b/docs/html/img160.png
index bf808fd4154de2d91cf919c351d6f18d11a973a4..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391 100644
GIT binary patch
literal 0
HcmV?d00001

literal 1348
zcmV-K1-tr*P))9!N!xK
z=o&8`8^MD)%^?R55!yNVbJz)p(bFyqlEYpq1D+PyK81)YjPao8WsZxNbVd+k0_%JA
z(|)#f}}rjtej$&R*b{BZGikc!W-mqz6Lq
zL~T2I7Rez1Q>$_~i-Ogmi%&KyE~6$rhRt-YLeJ*@q(o??btz9w(`yQ&F~LVH6XCm3
zX6x#mQmL#Me^%@YY*%Q}_oxIrTq=W4T5R78Y_q{4hl9{zO@J1GARIqOse^qjIA~1s%h1(nnL3saZ4CVl3uBt);+ZzY>ns
zB)AZ4o2fiF7kSh_4#WysNF|C!um{qqZNfFxT^x7aCbw5XsZnN9pYt&Rp{Xnu!`UR=
zp>|Eq$#(_g_9b3aRXI!4rQF6{ARnu-xjYs(H49+e2it4;jqIUQSH_jRu-lphJOy$zRcaC>&;O3oP
z#HQVuzKbsK6{6;*ZIJGn4S4H8oRv>U=IDXP#0sV(%x?o1#nfV&`HgvUs`+~M
zW|>)7g;V|6Tn^ayJS+>e63>_Csa9=LLF@k-;eSJ&5dHyYHaU-iHZvXo00007MSL
z#C5);
zma{Bz2^}fmh(8kw*vS?WRpim*{in!PP{raLj9%tJ4vM{6b?7#Cs#{JF@7pfvb8Tk3
z|6M-UXlDbR)gGFfBd-1Rd2`%Ohpf42lI@(zZDCMVP^V<9#9+yqf~ujP*i=V;(?hQh
zbk}i6f4x{iZ|iy;KHNl4`(5t5W?XsP>oq$nisSJhE0bKO{b}FKn_S{}(ADZOn&e60
zY%1;eE=C)~cgZWjC|0i41IM9dH`&m_;#9He6#?xgxd-ErBx_T-VEvkXm%Sc`4$u5T
zk3TN7+?$VeVWl_|Bn$J>mM;=c#VZqE24`NUDzECr?oY$|vc>onQ>_4`g0a(0Q}yD8
zQX!?^RO&JPg|Xw1CZBnp7FqL6Rx6fF|O5qORes`0!yZZ);O*OX8
z?*Sjq4xoNHZ_o4UjTqP7e#<^PG1L}*((e9q`WbTJCXqb$_U`YH_iKhKNjO6e)_%+`
zoLFsL-}~gVNW$lkiiXV`Ph#d_iq02iDR=NWybz6uzv~MpHG%gC$Ga|@p2|gOj<6>L
z`+S-Z$3nk$51k3c9gpE?J9=>2#v{^O@jJs
zkBX%oh4#l;j=+mNB-+##=?Ur-GfQbZqpclXd$OJDkwGgbY2+l?#4=_QbID$%Y-|A{
z5my~#aSe^8TZuUWRWCXvpmeH)m*(UH)uxd>wN=bdM^Ik!R#8HIqplL%AMWKn4DUJs~Ip#1Mjw;z7!MG-kL6LttDUq1b
zb#&sVV&;H(3>&MbSYZQ&44Fb|Rf%aqOb(S-6h<#pMwvAiQ*;XZ_0lP;pd*6jjpxA#
z;VHlM64y3JT|crej&kOPV?-{ZG#XYylm3XKQW*FxQuZL8WI4EsC9`;g-YY&djm2Rc
zcaY-Xuqh7KYq4bgNx9#0q{?$hscx7;RRygM_MyV0Ve`&#R7+mOu^Hd&bU}Kp=cS7L
z$#*sc{F5HS@;JMRzB9nhbL7yR;u_;Kwdu`_oOyibCU57&&aEjv7gARzRNms=9=1?f
zpHA(jiq{h!zd4MdGv3A4bicXjYVZ?!9Mhk&T0?pF60rIBDpFNc)(@{7_Ig6!ygT}&sR~dt)$4kbv}HuIJq}i
zHgoVOR4I#vuqQs5tlY&_h^PY2`DWfonI1+W9TCMTWW6Je_2+s5nPg-5S>9#ixBR-Asfzi4EVUC?
z!3ln(cjK^%C{!vB_U}eP)2$v;MdmXgsiK=C^?D=9Rmc1+7rS&orw4bcI0!qatwr9I
z+SR4ye)u(7I_-9Q;oU)a5c*koNz!}=03{?Zp`e|X2eJ1=P#9z|?AAG@Y;GOi}qW(zb00000NkvXXu0mjf2Q%i2

diff --git a/docs/html/img162.png b/docs/html/img162.png
index 28c318222068b8358d8b7087834c94a6b6304c49..36856d84dabca459b1e4bb22cc091e5a045b6320 100644
GIT binary patch
literal 801
zcmV++1K#|JP)A>$tDsFC}xd?
zvAaYo3PVHWV!)2+FQ*Y>QP^BZGYI9ymG65CKlxFD&21%xaogJ?dhwZECy6e$xl(Md244BE3
zUoAC86%ebGmy4q9ev+@3Q4}-x_vV8c&T*>4;Y0)t!KT(oRGu`2aH(^q1o^iOuOq&3
z!;xuZ-*1CdS0$-xG%;Q#Do24YZx1g469?}hJ`Tr6nx2z{
z4@n-dpObF(;s}|{8a8C|?6U~o9c@WeK2w6BvA$KDyUPiz89ajF!feu?K=xicFgCE;
z)*1Q{T3rjU#CSAL0e2$0C8OJ$Yq%f79`^&Y@Ze06R7k2takHs)3$^SGdNW=ybUmqs
zwAN$bRzx?`S}7dXqUSgXc%*M90^X?_u6;nxLVeSIC%
z4}FMt%i)0Wrqv`mpMuZ8!h7>FfvukkH|BuTL4B*EfANW-9sO6lbL37TzMqJ-a`J@7
f#qtR_^uqlEtg^T#cqLxv00000NkvXXu0mjfYQuAD

literal 1121
zcmV-n1fKheP)Z
zY(9u1GcT0te6_tef+WbH&Jka~t!cx1X@Np=vKe^&_yC&Su5u7^Ayx8SSmai^dKr}k
zQo=A3p`Tf{Ug1Sjv5aRPKCHJ4(BNpm)$kiQp6v~eR_a8e%2sMExUw?g>L}*1mDdy~
z#;WCWa|p5@4Jb~~O1XPv48XakfrJn#P&1_%VM_)zSc7|kz(@ia-VKH;dOJnUQMvIh
zuxEhCE(GJAg!ep(EtOtjrdDjp7KQWG_424GX`afvAh8+D?%k}6%pg5V<`9_9aLoy0
zeQ!E6+s~8W1jT7<+Fo*^ZHxx3*x)1ys;mZ3r#!|V^(JJ8F)s|Pm{p{Mzoiq3ei-Bq
z1XuAqn~{V8?PVAvJQ^@rc>LIVnx;mmgFxAQj2}?{*W@!(Sa-0L1Ri>scp3rc#
z=lIh&TsEZOO|0tm67dSv(}(ZXP1*odxNc;PQ}c6oQ=n+Y5{E6k=ZrXonOE+NEd8u3
zxP*z%)@
z_tB)L84ib5M9`nL`_>1ftaOgQCpGmjzMYVs4Rk`M>tS6s5qT1*>bEmn+BlAYbCdNw
z!lxmN67o<4Z)gXLK-V5AKN&CC#fk)rCf!ZRx=m`>Q_FNJ`NUalYh~qm
n4WZdv&i%M|F@?V3
z=FK;6zW2?0vvWYgdl!G*_2&8GzC!EeI
zGyxe?05oqDaXHab$NFk6gyPLCP4w@~!peQ!2jLB7}OC?)%rZ57z?-eAK
zza+RZp5Zh-m#a_RQ*E(fzEl)4iwpb%%)0B6DXfD)a>{Wm?bF;A7HqxD6q)c0<6&o=
zY(Xjt-7>gw<@JLVn6InAsXH+;Ipb60S)?aM
zeVkkom%0%4j#v4Z)6XLsDzWx)0opm)rp+cLisCVkS(pyeZchH8fxP>HxGf#_Hlp`!
zt7hOSEWZ<$Y0?uPPTD-Zo3Hdi`88-ZQWZrLMy2Efu81GU13RRF?3Sxg4JKzkRNc#PWXQs;B94trhyliiEQ#d!4a8yorTX~h&VLI3~&07*qo
IM6N<$f|QJ`fB*mh

literal 1209
zcmV;q1V;ObP){I?apLFz$gS-i>w$XVtovlz#bz4
zws8KyUtvPJuwci+nL5!8+;^JlPnGbJP9$DGI-$iV01;rG
z{Bj-Yde_d|bxd1sZ4{coMZm*M_)O|qc80bIL?a@x&*5SSEF}gZ7}NVI;(8C@<{jdw
z@gu$ljB&>ReSyn6~S`>))6NJ4WSAR-yel)NduONO2H7uu-
zU7GhBvJ6M+wGr_S^$I%k%rV1jTonz2ej-RZdY{an-QDxNFzK}vElH(TLli<^%Ty9zfe
zPLiF88Mjnf2IZx+#(rPuMmNMFBEB$&%Z0h}ScKb!#=#}*jl0{BPx$cu_{KdC-s#-F
z^;#Z3?yvVhcs};v<9`CU5tBLiANl;7ffK(9e-kyolfZ+$9>5dS+#UxRlIE4?(v{p+
z1vLDQByzsp%*FDz0Kx+M?j{a4ayoi*hh(w(c(Nf2aWBsANjpwfMT%=(zw|(-r87~%
z!RK%aw*Y@xAz=pUrWfYIR|m5|Q(=zv#_m=A4B(M;MP(~7y07yGzjoE1O_BuvUKC%4
zkXTKjtsxJQVyI!sLKy59%7W>%bS5e|oSl;KL;3_+F5zG33qq&@?sy-1CJj6aTOlpd
zHTJXo%qS;pYZ6Wir-g`h$jwJ`T)2WO61JW^o_w|i$MFdK
zu6FmkvO-`j-mZ}9Kre~42MHl!5^@&w$Rl&@Zif%0Pr1pUl^ki
zysxpE{`R{YV?;+cJI0&vpoeJKOk1QiRxpkw7T6tJUsomlsn(Ibwg1x;G&^{{iNkl4tNQ
Xa|$OU_OVe100000NkvXXu0mjfJ-;_%

diff --git a/docs/html/img164.png b/docs/html/img164.png
index 73fe83b67b58ea611fa9a759900c012d770a0b81..0e6a371eec594323f07f8742068ebb3a9823c047 100644
GIT binary patch
literal 966
zcmV;%13CPOP)DCFU+Y@b3TQv%I@5M>%q-`X)>e+Yq
zzWd(g?p_UykU&7d3=moY0#c`G#iT5sR{%{I!XecaSwOfwfHR6#iUt?9&Dx<253mjC
zF45bLFd=E~=z&Q+>OrwEDTVO-ej23}hh``aDSmK-#O0?|0YkELe
zKVkUDQBqegJL%7Jn3IAZc9{;Xj6o05%3{vp+UcRl(Vvzh9NBK##vcQO*sJG+^OF#M
zn9XsKe2EZUCZSn68>H3eQcR_XdET3(Ft**C?NP@FvFB;BO%$BgF+*LCCHduo9~P70
z3Jm?=F(tgs3f={z(P;)pk
zH-Wa__A@r)DB@8Tg#v-8r)@t+K~Yz!;x3F25tHkf-{?Ww9qh;+W;=54N{4XF6wu{y
zDaz`ELMBPU0TffgqZW6WT7ffx7L6GV1GSlaIbAYQ=L=+0PHAQ;@pLGrXg=s_+v);H
zxyw4=P(6&=s=8z&W*Y-tFR_oP;*|QwAy3AWYsrmKunuM$&?YhGcJQ*(*1L!||Mm#uo&PL4h
ozsc_95E5&w8~LAPeH@UFzu{^L01(`M&j0`b07*qoM6N<$f?5^Jv;Y7A

literal 1156
zcmV-~1bh35P)!pL*Va_^+_U#_oYZ9<_3wmhoI%tMm$g=lREQ6qyXEx**81}q|cP?8|tAH!d@jcdRlDXGTR)~Y1a
zWa$4oqRiz9T2k7f;1?s~bBe*R){MmNkqh6~3*j`K+7wP780`#A_H1&F)>;5nn8O|&
zJ5q`^LM%^Iar*X%+Tm9S@;)4(LM00kb(T^gbmDQxQ6k?H(_GiGZIe5xR1bEAfl`)a
z)V{9Lo8uy=TZfXI;O{!r0BGcITir?Wr7R@V$JPp8qx?{5Di=dm(edyWjg8bNZ!K|l
z?0?xL_7eVGw(&=&4MnG_T_$mE3Y1s1jfvZwMxm(tDoyrz7A;wo?opF#89Go7-AqQE
zT&rkQghL$}YdBOYamPY;?2$|DT{bI_m)Jc_KUS6CenC&KpHZb}>GA4Mq@_@cMevM#
ziA5rmNDPwD6R%WhLo){)V=`*>)1gGrMashwJzjZ>LsVdzm~d62(3go=Zlzy5;RI{R!=~BM>YKpJ(pPdk8#%NXc{n+{rZQ`wh)QV_b#+c`U
zn=+~2J*_Rwoh;&|4{;uNqF`FyOK|EmH+&&2XV;>`;hrc2uB5cFN<3E4+7#8pP2jmd
z9VCl-w6k~RfemAK^Ra^)foL&zaOd;$`0K0pQ9XA7t;@1;PiOb(%&WbDo4wcRq)Xin
z4eHxZ(nU_~AwHhRd#J8pUA{(Vuz9VofpMZPxvvP(y3G;qD{Onc1YqV#>sF8_*;`NV
z6RfoV0rl7y^KTYyx@F&`uxL$i7gs=El`4uyHV}wN_zv?SuIBK7j>5b8&C<^nz4ZFQ
z4MAt5!Ug}Xr}mn~Kk_Qw6(WopMpW4&Q4uJ#C#F1%%;TlFz>(SL`dcLJYbUKa(5T~3MZt?8c(h;-aTjD7JnlvZ
za>{Ky>M0{140@Px=~kVPrIi$c<>TrM;7szzN!c3B*aTSw6s=KQv
zJrfoD3_V@--+!-O)$g7Jpd3MQkSI_?ffqQVp#*5bsEc<3l$t7aV}W3!rBCoGK_Xg+
zKqScF0sLw(hGVH^#$E-NomX_*ZWouk&}J4rN7uf{vuTivOtUxUI4DF+X1pSq8-nS}
zNy#5_j-`UOVBt(-6`V8T8Yok$u7v_bswEU{*!7&w2XdX}%zf*aUD`tnvaE#)ZCXKL
zQvilJRa1X;%y8g*0n|4JPG!NFjT&=UnHt2Y5&bg|Q37xtj|Yo*NJB_4XI6C{uZoOB
zdLDv7S|yJ*Wjv_YL5@W~Nmfmw7wc-A@~8vB^HYUKBWi*w^b!Q~Di}vf`00>X6)JPf
z!fFk=<_u+PiHaoRIjuz_T*~kWp%S4iJL=eK=_zV^6xCBRLg?KnMq0*HbW*!A-JY8H
zXL%d`C2>xe=9cb5r1FhuI`F3bs+oy&V{p;K?KW2v`;cV9IifR3p!B+!EvlHGDI*w-
zy=5!f>(v+W>j+y+jy<3HYuU0NVRwp*3{$rA3u(aB|wAM~+3u5ucnePcn<5NEe-A&uvhH_6u9D
z@7wg&N@>*3(;BJly<1`DQhUp4exA0k!E|n`$1wHSl)J0ysS=gx(1AS$_{+ZN#2Q{2
zYZZ(?Kf+6G`nlh%z*96fsz*9rxQ+z0ic7`&vN~thk-7QF$xirpJ|CFNML|A4owJZR
zFWAy9XWEsTr4SW9lbk$*_yh3o-;O}+yaZ*Ro4dFnSGIZ3Si73QyIY9{`ggCO&j6vi
zE|-3+k--BjdvV=0iko{Pn~$(lm{~&Yhg}D7yxyV1#8r^e$;xf4KRxbn!Q1ckHETia
z`{#=S7Dcj1!{q436nzGFAc&yRZ>f^c6ME(+(Ed)l23Q=yt_I%W^9)f%*X1$M$MG>G
z%lnOE{B#X7WhYYrO~6W`N7xVGKo^8kvpVo!iodW1#j<7{A}czhMFYIq_x_mbTlVP}
zeH!40?6Z;Bx(j@=i2GxteI6KQZAz5@nNQGr;{OKShzr})>-v6sNpL(8(4eDyV)?p%#ve}7->-NSC$j5RQLW$PPM7@0Z@HYqSj@)lM0{;L2
N002ovPDHLkV1g-mUU2{b

literal 373
zcmV-*0gC>KP)SU;qMs5g?Jo00+`63=9eh49I{dfCY)S8w56>C`e%V
z_dke%fstctCxZdQ2L%*Khz15UfKc;5L4k*rnThEG*dPXm21azXq=N!Xi`Wi4VQ}XV
z=W_$HFFayUn83(a?*Mc%H$y=|!j}UK416F}1_mJV9}sKuqWY0Eup17@(A)i
T@r?7`00000NkvXXu0mjf(5!a*+pazd5*7j?9@9q^#5oDs%a%JPBq2k5
zud2Gc`e!Ctb{{k8davI5-dC^c)pP(#;uj5(0KO4J)RG!wWIDbi;KTC(oJ@b0LCP{k
z&hu~(01Uw8G8;$!ipu4j2Wu+va3@O2I25{SDF)Kuoc*kO;Ax
z25~4zed5Y0r9o7QtEh&Qw3(q-uaaquW={w{0*@5FEvJOdC58S*5fd!1&o
z*B!CvHgsufHBYWyfN){~A@V@Pq#lTliJa9gBVaLWp}O%1$*4pf2WCL-9P)4k?uww3
zDpDSVh158Y&{c-n4II6s$LQ`ks^+$hJTR{i$fGN#CkiW?9dT{0j)8Nb)r!?%Z&E0Vb2Ag@xb#r=wl1<0SlsNR(lE@
z)%0>lVXs%$_C3#&S&;{|7Pck0-=y`B*}?ieP%X7B5aA7xB!ab3jt6x{j>k5&(8pVd
z!`DX2zVEM%8tM8uuiw{WW+yya$Hb%OPj^Jhqec5Y-BPVB2EI#1mhiy7Oxv_It$2v6
zCt=_tkBvvf16y9T8kfz_5+1Cn4uj-@d1tU5*y8il5P`90G#DifaENKBZ=%1-
zXP~XZv}+P3gHnhfJ4ea&A7{S^V4FHhBy-fhb#WIXX#
z!z<`RBl{_2lH)k?Qlcz<>gV*qxp%_{w)A4L8W(S1z|nJyN*$|d*x$6X^0&0l--6@aVPBk5=g?m2GR4+3@x9$l?pSMsZS`L=Z85}(a2;It%%
z0n5){P^h_T{CSUT)~jM@P7s431;2m1Zu%!ML=5xD^jHnK7=SO~GjM&V2l%#^uSSnv
zGKSE8Al3FyQ@o+dI8DYu@F{GY3H5wq3sy>7NBWT7(-Zj82C8WMNc>&$Rpcn(
zjzTp7FGR{#6Q2|l$>80k+^wWx(zWUZ-BK$#z-pj;5ZM2fIz`fTR5jpi_p8vT215Xp
zI$}8gz>Hs64dqy_hN^s0jr`4HR0DM75^}m41;8(q&3Q1Nx9i|8+%4F3HJJ7hsv1%j
z!M%6@@b1#$_i(ra@+;+V$9pJXf9Z@5o12^XpIFd}f&I9O-w2%FLOfj8(G7_>Z|~m?
z!MmU2!}-G$~e9kpJ2fE;oF0000@h%<6GBNeh_iJS$
zqOSL!@R`dJJVF$p?fzqwEGejCt*z&=1xv*&N?AZifXNJ%4ynFkLhQ3mK+@JuhNzh-
z%6{sJ8;J~z#?(pQeV+&)L*x2$B2jPlP$$-oDMYQIQK`R{c?^2Zoj|&o68-?AvpIvi
zebnucofW+jeQCI9$-qc|N;w?3ieBNID|F+?Ygtq2p#K0b@Jzbk9lvtqX&c10L}$o+
z9ckw*jbBR8Jrq%ck_0ojV9=6k?}>P{$`2>KJh%T0af13;m-w)Do7Y|1u{H7hH{JOU
Zd;ne6G@J;|9@_u_002ovPDHLkV1g(i!o&ao

diff --git a/docs/html/img167.png b/docs/html/img167.png
index 0c441a4406839785dbd542469ff4d22966008c43..e06c9ae88e5088ede7216fd59860f6c7643af045 100644
GIT binary patch
literal 1126
zcmV-s1eyDZP)-Bm|d;#wkxk%AiO=2^=yNk&uEbniR2wqLjCyK%v_TDKt01BuXNr@ZQX>
z*RyM%EhSI(&d&S!-g`6Oj14T1HE4rP$j|VUW)lM_`oc(<(y3XEdV$;^#xV?er8JR{
zDm@-o+$@Bw2Fr@F-S+J%BNmd7eb(37SC!DuD=Ox3J}OVE%2C=7u}O_+n*2V2KEbBg
zDC=Ny#7*;-6q_JFNmPsT#gvOMw9g=)t$PFGo*h=9XmbJ#
z(mcoZwr(_Nr(~kF%BU83w=dV)A~Z49@-zkqVOn%YVM@s)5mQPSC_(l{gHRc(FNsGo
zkW3pJq?8tdbHJ$40g*(a9~jvP36p%{93)J;!Z`Jzm0pWi
z3su^+t1dNG7R$G4j#V9_g%$x*S9Ygwt(ks@p3krt3g?g4Yf$=-93|gdHCxSn<~USs
zA;y{LD&y1%aN1l2)gs9|TyChV`+GoCP_gWoO&q427oFnUv
z4*D&+i$(_ym_RyVNmUuT99x*04cjH5GFH~3E3|Ddv%2I&YBN**phq;rnUr6p=Z9HJ
zSzVIHqc;zJj;#4`z?|c-h~9cO=r`a$wZL(yw11|x3hMOSIV7fecJa(fa9NXjSyg{}
zvkA4bQX6wGpcb`oWl5l3Vy_`j>~mRF;Sk}E=X;QsUV-1ngN^f7j=fzB40USf>L;Hk
zc=S&PYhXvbeA@4WR{4Qizh$xQEJrS*
zU;T#FRF#dVYP3sG)MeGcxA+PXosr~-@!OEwbfzvBgKZ4L#0pSV88)1ftVdx-~$5#*9Hd^HM_xJ1B%!Jh8Av!hBV(L?bS%A)sIa7dL~>nFBEX1pLa$2inLSZlHq$Ht_SpI1CpICj4bM19S$E!^Ci*
z-~n6)Lgr8ib|V2&^}6Defw-Abqkj@ZzWq-D44Dsx4CxHt95_iLbX>TqF=@5u+lGXL3AY=y*g6zQ&5%HA1`G=U35HG1X$r6Lh`rfPV
zneN`{nV5ahT~)8X_r7|sUR5_RPCD|A4Hlr#$3LlBDSj^)Gu9}TI-qfEmwI1oU;u}e
z&H(shEPSrz*p5?BJHxi!&UDfVfh6>Z#AF(Ihbrxb2V4!MIceF5*s#JfCn|kL3Ndmh
zQx5zYsMhX}kkuJ|LjcCnV&vckyuMl}XV0@ul67nhB}vlOsR}M9Jwj{Sowdz;IBG=Fc
z7%t6tNaT{cxxg6ZxQR8JAQuZGWpj|11SP4c|Mqxwg*-Gmtei1bD=A>&Y!hY+6WM61
zmUbG;TZO_V@&6Z5@m!$nEO(|4&UMhg$t5L3DvV<)5<&*pi*8fxEt57di)yCrxKvcC
z6Q`c`qD7S}G6%aJ^oWSCG#`dDZLVZ0Kq>|e?^;Gghm?v0R-^HvsmE;g$zFY*jC}(1
zGEbx|5RvO55zm|YK38&UpNYC1uE8RaX!vy0J8ZUCGpgYlj{tH>2+?9~RL!k9OJtx%
z5%IBMt&XYEv7B9dMX{PBOLfwgLJr~PzzKKLt^K`ZY3GM^ny}$SdAu-+aG=D?HB@y1
z{QTfwZJ$HRuiwzCW^lITYGr~=b9oxHb}1&%wB`MhA1G~~!wSc9d5Wtk7hfsU;IB2y
zwB@;5a6diQfx7T?DV}@B&s~1vm8=n8j5+(#^Ub9rG4B68k0aY^fhR<9X4NX)j~=6V
zJa+Z%llfJv@5CB{eCl*DAj-R1!WV}5Vusef-zWgovlj)Vt-Zj6Pc5x%y!Cbn@3VEr
zeTX%99W=w1DaNC^^r5+wHL~ms!>M|QzUX+u%A-;aUyF3578
zty@0o%*W8d!TnJZkF^(=EaD!S`5GSxC;hLjG5U?rxm$`y+j#Uao*{-@yMN+j2d91-
zauJJFzAN!GZ9J#O$HSe{2SD7~d}Z+z?|^(f>FVqv23b5J>+p`#Kj>>0)<4ICTaZWO
z!7cxSP)X0w^>W?L2u
zezG%@KlA?k^XJb@7ND=-s9vE~)G9}H9g)s37a;LAs9-Clc=rjQ)P5thxXGj#kM3rv
ztuUso0wK(8PE$?|a-mGf)nGUeazY{Rst=6v&9HY!4VFEVH+q5!jy86vnPHPwS%tc_
z2SnF0O%3L0Fyr&C@6?q#Ni+P~3n`ph2fgB$5W*o+_*oh=7B_qo!9ejSI{-RXO5t~)E#|Oz1?MsCxFrH!LZa)b6v1on2=+TZJR)JoEHo~;Tv+2
zzF`SszX+wG{5LTle$|TeP^upM%YE_m>q%}OH=
z!=^$Vuoy-qFxBQ^(W25*M1e%yUUo1{rN}VgNn`Cv5dWpWkj`Z(U$1>dGc!3o0-A{h
zA4Wg}nllob`v8@Tqe+2U-pR0cG|+E0=zUsq!o%uX^+82*Zvej(nC#XYwCIR>+rbqr
z)B+uj!L=PnENi!M?d_1luxiAjyxIhK41WT2hQdcs15WW~w{u8N=QJ-%OK==+mVS&^
zCw%G93-L-AzPRp4;(qH|7~Zko6v|5bn;At{U`0+KMDb&qDJr9hODg^zapip4%#j!Q
zG{lW)F#E!eX;5QpHk0Pmlfy!JDc@+XXi@r>JY}U#_WXGd;aIW!^TE+wtT=czHRsAayLPZYiIOYawF#5YE1ce1i|Z-cI{m3Io0`Rh
zIiOgql3+>iw87&c^s&sI=gmx>dI7JYxuJ)`mEk
zhCQduea($413l%qaUaJCotRTfns8$GqKNyNm8WA*eVk0kg;wT1Rt06vSQW>5%G|v+
zZ=pu>Bd<(-&5bLA3kMwc^_$$528SkMoZSIBdYtm1$@lEgl$5ouDD%3xaKPN1zgc-S
z+~}Da<^4M$`Ck1+l+AS51mPmDJm6P`>KNK>|3o0%@t=RUvkG4d{j|(W|KF2yiqfT>yC8+6>xtFcljEmmIs5ntS0Dmp}
z)-18z!Z=v+>CTXKLc8;>%vw8(XHNE7y1Tl7UrV!@{LgU`i)wt?IdgqwSb74Xm8W_&
zhnZYg@ixY2e0qsqiz`o}T=Ct_OV=Mg3-!kCjkn&8iyndoKi*(Z@YT_mzkfD)=ghOz
z9*><*(foXmT9?l@;mgd0au_!fLrF-`1>+^+vVO)Cjh@|I-Tqz@l9|gPkAC`nCh)u@
znc6g*xR?6?@1i+GEAE(b#cD+7#5KaxK@jPJN1%2;@!Rkz{N-MN-o6;!f^9RZR9;9R69USoBaj&kUUqtnpJqjdPJg4;&vp
zjLT#k#v%+QA&W-zoi9rCC)Upxlqi7BqZf@NB(rms=;v;_0wkU#jilklo!m>+eSQd*
z9f!d(RBrtxYpW@iMb}ug^h5Gr?dJbM`j9NaKY|36dmH6LP5=M^07*qoM6N<$g77eE
Ai~s-t

literal 678
zcmV;X0$KfuP)cfv2Kb~QDEuH!2%LXD|KVZ
zR0*M$RO;5{#6%?|QY54fMcl~H;kv*;2O}|LV2GgV)T$X68Lq0-c7i@T+;L|(2NE*y
zN%7hK-tYPBvtxjSIE^YFMHz-nJmy7l5XXQju2f7x?RuhGyb_E$RFfPsKk6XoA1<@K
z8x5m+9n$GAo?Vyw4)mf~j_U@o0X#6rWQ!)lC{IyDX_rpZZ8iR8;u6XxIk)P1KPdWI
zUrbN><58dS@)a0r;8XmyM;qSj7MNiz4n~r8Rt3vS*mVE7>HJWpsZ~?QFOl!mYGwN(
ze_oSd@Zy8A^MR+O8Ps&POY~!#di!BZ+VO`ry*0n85(b`xrKPP}1==jMRF{Zz^6iHo
zOhSNz;TCZmmheXa@bt8*HmrplqN7Zcel@>Nex;I9E7=-WUt7DI&@L6UHbJ{y&$Qty
zmgQ_4m1}72doLbu8`^De4}!K=&$oN0t+Rf{hGsvsh16!dpH+J>duMBI?5k1s39!b_
z@XFEn28e@-3e}i2`x~aG{<>#yfLF|7r6#ZSf}4yi?4^ZW0wX0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*H{z*hZR5*=eV1NQnD1Cqd6)1p7uA&PJSOM#Mh7#;DsDKf{WJYj7
zOoj^vml|M>$b<-y1F&g?it#Tf2%KBV_3IYM6Y~W47$yLrfc*z%1_6TxMlAZUiBSq1
zu!v2-EynR(08^cSxe;fHl;kHQF*acM39xd5eae3lDEffm0T*w9K?5tJWCIJb!TfKz
z$`}$ZBw(?#jd*ViBEa8lK$JR8vXs@%arjD%X>S>3GW@&W62fqYp^HJ0p#e!5KQNAd
zGJr9M0{?-A&md9e30$(J*Ap19W++|;1{a3U3@lF=t~#*n^ivz+Axp{Q-)C-Ee>`%8kn8*#KoS
zF*0~FFbWW`6vf;PI23T>6THC4ouHsFApt|$z#yZI2-~R!6i8Ffxd4mch5&vIhAvi4
z2#*OECkhM`egZwS;TpP94u*yY0oV*?BF!D-g58*a6zv8?s>78g@T+4Hy7*Ip2zC5?
z9~c8J?@(oE{MevvtF1770SPdT>udy!0h$OAIdhz3;u5
z-T7lSH9z*v&iD8CeQ&;byTAl>6c8&ci5B(|vX}sYgg~<37d`WsBS#hLggq!J0YM8=
zDOv3=$|^-Gn27CmMHuNqd+V9A{RTs-qfh3`mF;qK*;>I!*YfHB6wAzq*M^(~&ihVJNsO
z4LwF=zwc44iaC0RY+;;wrgm#!@bzM+DfbcKR6RGaIZ
zMk!-9R9!uWN(iEI%5$EF-z_L~)%nRSP2+zIHf`X8A(`#M=$ABh>_c9CqR`a6#f#S-ejf77%JsM230bwj+r@=bCwXzeiCc0>
z8=S9pzWn{OMC)l6A6t%bZj}o5biVH%nJ!&^kNTMtF}%+&gB_=nZqQ&WUDLUFgy
zRABt}vZmZW(Ceo@9Dvim7-#2{e+iSOBsE2-o2E`zHpLYASKlP)#Z+B%(Gn*?X#WFawW5=qTwF3M
zqB!YRMI6MTD!7Q)!BxoMro-VRh*$@9R(z6I{u;y|Xv-qAg>?>~vJa`RTGEgXk4oK6e8xZsL`AlQofZP--+f1|P
zg%RjIRhji{vA{rOTNLI@+@{0zePwh^
zV4$ZjmVi>I#_T}WV+!oEJ-86}CYI>0J_T{uKgmS{rDS7m{AH#D^{uUGxo}ZCy;wnl
zRFP|vJ_4&BI%q6*?IACMX0q_8Rlc6|1aCEAp0LCeoU{LL*LF3
t0%J`9*lsi5Ubwx4n+x(Y0iW9m`vlU(itmRtOxged002ovPDHLkV1j)~CPx4O

diff --git a/docs/html/img171.png b/docs/html/img171.png
index cbcd172629a6c66045b415b0ecdd4109eef8c923..341e3e5713ef5dc8d6007168e95458db7530e4dc 100644
GIT binary patch
literal 356
zcmV-q0h|7bP)k7R49>SU;qLp5OIwG4pbQh7#JonAOqHL28Is|cmQLim{J-8
z16xce149B35&_`m@h@mN@RRu$2V*Xfv(VuSvpAOsM*&oh7?TKq15lb%+;fQ}=fo1u
z1_lNJdj?K+M&^JC3~UU-3<)0+7&kC5a1}8(_y;UkkQZQJ1*+dLApmBC3l*F}3Sh-5
zIul*s?_>udhAj;LlNn}$m~2NN(e{=>ixbF*1xf*#+5f>I&0)Z3!0jNwZ@@VL#Pnuh
zX#k4y-Ms*cFkUu42QbqOq?CVY1K4=a8xvqmdIJE3Ff&JR=CcU^0000`D+oZ3}+V&0`{hdF0|#IUe2=uVYfxSKz1
Q63`w7Pgg&ebxsLQ0NXE3yZ`_I

diff --git a/docs/html/img172.png b/docs/html/img172.png
index 881b68af772a0f2aaeeb0d9e4260ed08bfe17371..7054de7420ff505ab67b2a279c340b55d7248cd4 100644
GIT binary patch
literal 440
zcmV;p0Z0CcP)sd#O3liEREdp+3@mJ!nRtZmW$4O8
z9>Ee4q7oI%OdSwwyL1m@>C#8YiWuPRR8XMmK;gIUZ0Bs>|K9~Xv=V3dib*E!kngCY
zOa0^PDjH(#HkuX$afF)%8CkaR-YQ}lj2aX*<&s6T2~gOwg@v44H)WBkkpAZ-QLvfW
zuaUT%qRP`S*nY<>Nk%R_s)u-1B6Y_wGD4mOi$G(wY~A5g*#>pdkoG@Fme4hXD~Tja
z@jnu_M{s#9Hpn`ghXIgqU{Yc@z`&rubqiTB2T4Zb1x!$y5lZtiK)lYx4HZ!EW#9r*
z4;U1{Tuumekg0a&2TtlagKTgcO0%Mgb3y6f5Q=wU1BBr@0YZB-2!ce|HZVX06#T&y
z6FVg#{U~vZ?U`T;9I6%Wb!vRDx7O?6FB`AP(e!y_sTJpR!tUx*%
zUmL&jgQ#4_-^iiL$)ivKW_(go0>upj#}kIVNbxB2b4RasB#JDo>`vweHJ%~^=3Wx&$
XLsc#;=ziLL00000NkvXXu0mjf(;1&5

diff --git a/docs/html/img173.png b/docs/html/img173.png
index e803c83496e7973d6cae4b1d447a187c73fcbd6d..076f48e56c0de68839a331de4a49c664cb166e93 100644
GIT binary patch
literal 302
zcmV+}0nz@6P)~5D>e&yC0vO-~a#s0d!JM
zQvg8b*k%9#0Ix|zK~yM_V_*OQjsymDAOXZIXksi^F_d8d0|qWG0|tf$28II*z!VvP
z1Bm%1Byce?#Jzg}<}obLn5p@q_|~cR*(VIjjr^
z92{UWoIDA$48WY;1q>j$K@OfP;go6ulR4c6PxwwKa|vL`Fx+A2VBkH#IDr8eAwYnT
zVHe=rP*B9M2-7qk1_on>J7;j%_|lymFVGqQ05iWP*Ko_$lmGw#07*qoM6N<$g2y&%
Ang9R*

literal 2452
zcmV;F32XL=P)yK(0000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*Q5=lfsRA_cXF%2J;Dx^^W
zsVRlJp%i{lrxE?A_^692Bpx5Lu7D^!)*wWw5M+t^5mYKJR)yLwD;rc$140b&fz%bj
zL;^*8z{HSHx(^;qpm)uZ6FJ!^R
z2p1R{A#Su>qG^y4C2~SSDQj9tUf{wc%jCRI(V#5@+%8T}N90(}1QXCjlri&Yj$@LI
z$VwJ{^u-H<)6pLIa9MQ8`cR>cqO}rG8LaU
za5X_zFu@kZ`Wq)7DAydkf1A)$NF_Z_6(#8ExUGt$x7U{pbr<)8+-7(+)*
zGKXpvQ=(2(NqY=rwTUsCAOoz!RvyKK=xkuk#F#f=)l(5k(V_0az?e~yk9E{`^?^s0
zk;BYGO^nOgFj!-$;~Nt{p1-T=TiAdf@eD!ge2$=`Z;J^*r7>=$>~X7YpwlW{jaUDx
zpibGL@;cfW!kC^=%#y$i1bcOBvZ=X1jx3fmlvoE>6BFB4da&!=Op#fVQBnD^3Z!AR
ztQH|V(1P1)wt$LTQa)7epTIg)LM35@DDyJBo*IV7qn*HUpEsr9
zXkS%7rpWY5YK(3Luw1X3#PstRTL_7xrVEhM40D{9$5z(_?40ha7+J1w6>3@|n`HS(
zvP&nxvyAlt4%rH
zp`#!69mk6)RL@{a9!_;`1KIp<=gH3g?HHmi$yy}cR9V54CksGHE0vtWD3WE`w-@Wb(z;aIjKh^U!
zP3C`x^uPJ+lfmOnVl|fc0o?pH_6R=zq2?#**4#f#m437>n99sDA|N+p1`i%|gP2jS93-~v1Z_~Anl3zV&vDDagPoi%AwL^
zZJB4o=%llrAx5%ep8W@uor3N+9!jl36^nk)kq_aLCSHFY?f|rg@NIf*9}}@}cT*8}
zzTxVnZT~q?tQWxO0=((-5WO;qB6ev|M0hS0vH2*qjDr!=3|>gA_9HI5HcD~XS9EJD
z1Epx|sA*Dmh*pm4@!3TCK*Xp(2f)M9eICl3#%I9S>^^t^e%T6OC3y?`>0d^xE33E~apmgw!
zd=)YuxO@yvzBf{Dku_F1pnU*_y|lTEyMS2P$E`mJ&3dxp0pGU>*{@!tv=iyb`qB@8
z>?qn}l_qR%Zo=Z)p{kRj6h*?|tcc$a{x^c$F3YAFeeN-2b!(dj;Fun_OMQ*#2qHE%eYj
zd32a{`WDQj6{Y&&_`!G{JMY5p+voFV7}|cym8p*c(?LaAN?5OudVs0}j
z$Q?^wBS?L?d7NIw6rFPb=Ym9M)VP#{fk(oH<1v{z#s=`qLVf$Js^Yeh>k+F<&r2VR
z1R=3h{nmjtMS1g`^P!9
z4f}VHbU5ve8a=feroG(R#ortTP8FUsX1Gw7rG8zb1^bqWx%v?Ep+w}@m%1~
zPoKn^z@(ZsmLBJDf>zU;Wo?gOPk4bf=8vdJtbLgDs-iiDM&0lPLkd=>oBAg_{7vN_
S(1}<80000SB!r*WZG
zk+{Up`Oe>c@6Pw$a{vw$mH+;9EUxMN*Vg3rZ4H3L)u5tVv07p0nI@iyun{+Z$fQV%
zi)o_)?x=|CLYW|&l_ZU&M2J_923X2PTZKZF%gU~j_2v7ZsCz-si*=>mpo)B@+hvzk
zsmAqoBmx$#Ls49t%vH3(1TtlH1W;uS&r@%yYo^nc4)}LP?&KH{vmock6yQm248TM;
zMiYwkPy%U?FuILpCs480K&yM;akD|Y$j2UKMXg3gY*XG`=Rx|WKO(
zj6uzI20Nk7r&Wqk7{=TUeIVr_86fj~sI7bEK#)D46LeoI{(u(L@B`D+
z)&Uq3M;bt}sN90_N`>!OB7-WQq0v6V<|tMXXK@uLwLWS#l93FWx)xYq35*e~K;W9<
z9;b_ah?UDtUO5aqYBPrwJfh*g%OuOt5(((MMN8E=?T%S$s9(d@he>C!r<(OwSk+N#&1
zXsaucQO>)Y(^iQaD%k>s`PgB^PT;w(=VZZZ`RxTo$4Gjj(>hif;Xq^No7Qp3Z+$58
UY+D1Ud;kCd07*qoM6N<$f*p+2&j0`b

literal 449
zcmV;y0Y3hTP)^vp^FF(eT3lP
zpi4#{!7)Pz7a@y_Q|J?jgOgx!aOmXf))x>w=a!-!3awD^59i*S^PiJ@{y(5F2}_|u
zDr?!RE>{i>Q^a0ahPV@LEX!#+wcl9<{i?}b`gM{R9o9LZ4>#b-Q
y-bp<&PZHi-
zZw}##*Zlz#eC!*(cA=Y`G}lw`Anv}G0cO<-W&
zDMzCCozRNWdIYTnFM<$uqjn3%QKyH=t>EsIZweWjYw#brm-kmLv1U1`<##xRSQKw0
zCk3kgdCE(@;!}V1&>rK2x2S84o&{Uh<70^dSE)VCIA#39C%vZe&>6_K9o>Gx9z??~
rm2iQgT4J}eg_2vk`00`c{bPIs@KQOWgNMoi00000NkvXXu0mjfO{B&g

diff --git a/docs/html/img175.png b/docs/html/img175.png
new file mode 100644
index 0000000000000000000000000000000000000000..ff19444e706cf2eb24757dc49f2f107c7b71c313
GIT binary patch
literal 719
zcmV;=0xsC8_$pbjaBG{5
zjd1wEDi$IZ*}cLxaD{Fm=HM*swh@FAyu!jp3>Jcj;y)k+1V0Kn=OvqLHf~E2i{bLup$fK6i`gL}0jxt0MZuwoQLb%SnD@Uv{-(#A3NfS-N4
zh_?B;9Su9qLrl@9AJ*6Nd;TOBO5<>YCZmJSeDB#nz6I`?H;wOw)bjJ%SW=i^oMFhs
z@0G)Ahv4rO>zKm|u{Bl-gTZ$@<*+cd|3tD+0R3UDUd@5o`l(S+pB-(JzEGE~_2X4d
zwn>9=>-9mpCf}&V4ziw`8QYq;1uyL-?!R|7n{?6BgiC~_qD{hBUuDLxEp`MuQh+P_
z5n5z!g?Z1l-9;f&yUUUwFZO{iIElN@8O}rX#$+5<7t@Y6SEuOdj^tc-O$v98KEz0_
zyinJqi}{g@3+EkBU9>)u`#Zr#oHi)3(0LlU)@>Gt`?#-BH1U^Q{U8Kf5nH8
zl!ZwhwsG5!Gv8R5oEA*#)9$mC*|SLv>UHg}G)5G<7Y2ZVHj7eT|p#k1iaKToI;{Clma!XrmERjxcpi
z4%_IT?xlfqGTa7srUsY?M)A~*mEXmN8fyVvC>N5xPETFVCUv@Lw*`ewN@?w^`1GYY
z1bo>PGCp`^43Fk#Gl1TR;iY5j_7AW;bx2S5dEi}jp!OJo(XcI=T4L8ioU%5Z{Yl4o
zOJ}YF$DX1oh>BAs4MkOG#s4jA*%W}wrZS=B^Ad$UM6(ID8kXeHEK9Q1O9=AtYu*!U
zIml5B8@RT5!g-3W&&>S1DfaYuXz^#*qMOqN+U?2E--$%|9Bt6q31Fq+;x;)DyTD`p
zp7w3RZJZ#`$VSc*a?p%(EQH@FCLnYp_&fQkQi2Mf2u-Ir1VXxBu2o2g-%K;F=zj-A
z)}vIc?9V9l_fIaSVCuAQmlw+6y0oe)Yy$V+ExMAmyOkAm>8Fn=7y~!MYrcj5a9ut7
zi9e#=Kw!!@gk%qrFO6G{_H*4ih9L`Z^MD+_0!!fpbvq9lHJ6=4=*@v}TETbr(yY$>rmWV1){4GB3Q6bjeLU
zvlbL8l!M$NI!{CTpC+?Ye_utR*#+}WE=&W1DhhP1n4KtKb#8&Q_>Emhm|wPE&8-k<
c)6BnuU)`gWXAS~8UjP6A07*qoM6N<$f-<#MyZ`_I

literal 0
HcmV?d00001

diff --git a/docs/html/img177.png b/docs/html/img177.png
new file mode 100644
index 0000000000000000000000000000000000000000..4c5ed5a3b67076a96708ce4d093493416de2bd38
GIT binary patch
literal 228
zcmeAS@N?(olHy`uVBq!ia0vp^LO?9b!py+HsI*Z~9mvrQ@CkAK|NsBYnKM&UQ=Ofi
z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?b}}?%k8>W%Yo3#*!evUo;8U@udIO1Q;zObRvZ#md}!M<`!n0hnUsWDzp}F$ACr0~FZ)
z{|9>SGaElB1lSlj85oR>4HyhIfTbt!F$i3k07?{G5cM;_B+~@xU-AxMBeBE>j>I#p
zzy-Xrny6fk{rD8~Zb0Qv*onlcoy=jt0!o@QK>)~LTEHoQB=5;!1k5y+tO;O63~$lQ
zzRkeXzyOS4P?`qDZvTH}1_l^{gIxy&#ViPy`(P|Z-qG=USM2$%^O)RC=b
kNWt`q0~@-cQ9u>|04C%+zVV!Z07*qoM6N<$g0ID|aR2}S

literal 0
HcmV?d00001

diff --git a/docs/html/img179.png b/docs/html/img179.png
new file mode 100644
index 0000000000000000000000000000000000000000..1c7be3b530da9843ffb23e52ee93b39777e31ced
GIT binary patch
literal 2571
zcmV+m3iS1fP)6T?9rm^nv5$b8??Z)z
z%!}W{nZTA!mTaQ}S%^k?O9;y&rk&{V
z9n-Me)Cc+%!6{lcZ!Vi>T*TblL}sqKEK{y?V5kFN51=vqthkF}baPpWoJC`!`h6B^@GzT4*fKyMqoYHDbD0s%2ex+X|@A;m3mO
zmhu7%PL@`kE!WtaiY!GVLU1ryo(Y;@U~VSMYS_biDNn7aY~TXfEW9kAumbPC44qM9
zIkH?Ejk22Jh$Hs4WqHOuLRckRh)9%*50ho7WYCZnMlxhsppb#fyFS94UvNo{fF0IL
zHnqqyUjr`BtOc)B^dakGnYQUT)7EQUX{)X$j=Bg@iTlL_#j#yWSZPWtxov0TmT6;~
zwm%xeTKUACt3oYF#gn-Lo?sp?cth%$;$_u)*b_W?K~%L1>V)z>$FW3{~GBQjQ74wpl?fta(ad1)V-
zu_9+b2$h%1p}SyLp(LgQl9A$&PmvO0lJpH62z%Yd|9z@$L}=AMy#?~sGnsm;wa5g9PZ3(%aE1I5
zsDwF%u2kd*=i17)f?&%e!>b=hR`yR){}9hsksCDZUmxPfjmc{IVolCK>jq9^qo7CL&@k>vUJb
zXef71PvrDc?wl3FnIQxuGv1=hv*HhxB4e2jE~N$1WDT-qUtsP}I7yWnn;gklkw+K#
z2p>(7;d|KQYr5i-Z%V}rRY*H5N0!JFD@!qFL_SM(1;G&+%ajU)6V`p+w?VuJU*L99
zn(&P2U9AD82*jJr2xwT?3Q<&0A38r#ml8V)0kHLF8rIz6rHulXzBLSz)VrJ5TBVEamy5qN5D#T1c-d71NCFrS~jkSH7l!ntF9W
zx=M7`kR8m`GNS88NlZid3ee1qW+%sj!Qp|cEZ@kC;xxvGdHghX$z9AW;9faCEZ)Ob
znOEL6Y2@*ldzHb4eUoI4`{ReXw^h2|$xdSXeZ4<@h#vQSbwyH&_UN+tC-W%N4(h{C
zg@gLgg-*v7D23O9nhKN;^L2CQMxq8UgNo(wZmtLAEa|I@?$czbehG=?M+Bx4%P^MF
zX1Qefb#vg@a#>F>H&J6
z;j>DGjVw@+VBM&V$$XWyFBAVbF}Z!lon)DyaFgot`?y7KbxW+I00Rgb0P|w;mUgvcuRSy=
zadot;e9&UQg!{P&2jKX~1%;?%m78#0$F(Civ)jJwcG1N%)du{h3_rWRpPRL
z*XVn~^#&Vs_ce7d;~_gyPgYsmF|+@4$ku*LqRNMuZHzhZ24-nkor1GBnhx+Ps{!W4
z;w|kumI@^y5@a8A_S~`T=X@m%d@Zo%SA|@Boo=I_G3zlC@}Orze(Wy_`a@tB@b-2#
zCzXr|nVS*!NFw{;xg=z5Cy7mmY#+d!QOhPtr_D0k9Ovq3k#^NpQaV#oi_CcLt
zQMcb^rOrb)fUh1od>Z0aiJO;VnZ+Z|`I!3tF^EI&eFAvxwYvC){E`%}o?zi&Fw{9U
zNlTF%W<1#^1wWs?XB1CO)Ub2E>QVa`o}Bp6XJ{XsGj{MI35g5WPm+p|bnMqYD84pE
z(9AdS#}gXL>J*&4(Jbea`+pUx0p_vz5ILx|D?>UK_g~S~OQG^XvG0HX=o{C4^rB|Z
z5#ZpeL`8>o4ZNo0wq)sU_f)1k6z%XXwtE@si`^f^C$Ei8+=|Bk(;Xpu=}vpFVXAFV
zZZi4yJiFHM$iO|?@<7VKd4rt|uL>y6OjGpWv6SJ`@_8-#X2_9e_k+2{MV
z(ndRF{PEM&Np25D`RnS7xD0!b8~@!Pbf&g1(?>Cu->Dh4>Wj6?T4{s>qf$*$dZVQ?7`cHr-
zr!UghX>`QlUR+s9FN5mySSq>1A@k39U@>BCMlcmJt0{ui=-*qS
z{Ksv&-w9=UQ|Ss5U;-erm5m_HZ?PEOG3BbgH`Bk15S0Z
zAc7)d#LcPTPy~PBQrukK>gZ&!Xh9Sz2u?x~#41R=yCyYWW35gOK9VnY@7}%p?&ESm
z6JZ`>EL;|8=oy9|s36B5asV3$`ifk1RgiL>rvY6U&SdV}PH%zMY)Q^n|6ohnx#ciw
zgNcMZ`GrKY>}ud=t9J-m8@Yuf``P(ee*E={)~r5MbrqCmkrzgb%L*oS3kLVt)xwC-
zh89oc%DGRaQ%u4A2)d+;e6fN4@1V*|C7Rsh`y?L{EX>?y4wP-;njI!Q@p{4@I>IpFCwGhD7XSfZd
za7|juq}uF%Hh@LLZ}JCNV)T{wbV%PwzeE~|z#T4{5d)ICO{009YwlV
zzT!DwU`MarREbB~!ZWbJf+N66NCn_2Mp6_Iq%OjM++icts6erAosQM@!(PtE0q&>>h1vlv-TjR_Mf;
zdGBD~gNR0+f}s{F);;n@3Ur0000*lfO&DKorM6v8BoNN3M&b*hO4#bIt5x2mgS8lN6zw
zb}Kl!1s!ZfX>oMwCJsUu_kfdIx8jyTaB!&al2%$p3JQYXz}@lv-n;jGmv@ljE*+CR
zbEw!M<_ksAC`Bwmg%>;dF>V19;An&~QI;iK7XBF?L7BP}7Zu0YL;Q}N267rXln`w&
zO1OR~gu56EOa1-^Ng(CASt5M;YxKoztc{ohhl3{JfM_T#j1VWoQsyXY(etlPbTr_I)*7(YF{GORwQA*xU<-)z($4VXBm>byI_sDeBw0g1T#=NCVeG8LG+@0z=P0+CY?29ff
zGZs4|T2tM#`u;=D?z)&9i37Fudfuiip_k89a*HqF12f~j?@Cr_p!ee|`#Zb?@iI(y
T(xjOU00000NkvXXu0mjfQtsI5

literal 0
HcmV?d00001

diff --git a/docs/html/img181.png b/docs/html/img181.png
new file mode 100644
index 0000000000000000000000000000000000000000..8ed7190c36909f2a0472946d7c53af2810264194
GIT binary patch
literal 480
zcmV<60U!Q}P)G7LLK}`IBPm|=zILT`~ThJ-#{`6aE$DDPp-Cx8%R9U*lr|1#I@Jt366sYR
z0-ZUV+JABZ0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*IPf0{UR5*=eV1R(b#SogG0R<$4u|XIgP{sKfI2afhH?Sm!Pe9Yb
zup0(8Ad9jGfXD_0W}s2N3@kwQ1R#^0!y!QcA_@Wb(d;2;E)w8GFc}3Hz-B&}z;Izg
zz=j138xUd%47@;s1?&bYfZdpYc+Ce8OfDeiHvq9FAOx8qTz-QMmHq`E4g@qz1q!f2
zlw6p=$H~U#Ai#o9$K~M2#Lb$<&#;ISY#zj@1dvw~E?h{!>IDA(--vfFg#cSvQ51gc
z3Haq%1fUH51K4CI6+jrA;BaS@WS_dyq3L6#So;D7wuwayERD;GFMt(Di6E4Hn91;m
zfuBo&{QyH4Lm)#F0~<1Fe*%(q8cnUZtV?M(x(fAMkle^W=cNDxZcsTB2=Ir&umo6A4Hf_Z&i|QLrow*J00000NkvXX
Hu0mjf&*it#

literal 0
HcmV?d00001

diff --git a/docs/html/img183.png b/docs/html/img183.png
new file mode 100644
index 0000000000000000000000000000000000000000..045d4f07c0b632cb0b2f4474dbe1a7560870d9b4
GIT binary patch
literal 345
zcmV-f0jB
zLkeRG!+r(^E(b>@hJ+6Z92*=U?q=g28U6!U1Q{jSr>=Bp`XR-@HnE6-
zccM5$rUb}@4>KA5Fz|B;Ffar%G%*-5++`KWyZ|!(K!Q0NLn_d;0EV~uz~K4~F^98*
r!M=rIA&{kBc)Vc7cLB!!LIwr^M3F5CnKP?attu-k3keAUsxmS%x_kHT?%lilTf=REe8!R>zhDN3XE)M-oHS1t
z#}JO0$q5b3tPW?Y7(F)lCO9xE7>a4k{>b2Csz1TN%q$_IfF;!Qu%kw80`rVVtkOIS
zEqijKE0@6Gj2-~`5f_%iId@w
XsAxZD{K?fo8yP%Z{an^LB{Ts5U8hUu

literal 0
HcmV?d00001

diff --git a/docs/html/img185.png b/docs/html/img185.png
new file mode 100644
index 0000000000000000000000000000000000000000..0cd52618141d931f1091509d53abed697a4b824d
GIT binary patch
literal 452
zcmV;#0XzPQP)2Tq0w3|K(|11=dbFkoQZz`)1?W}~XxjQ}X(
z>;X^)KLf)D-?p+j6J~-nvU4zpIyB(13Ju^g9|dq?h=A;RFoEF$Hy1ZU{s*uS+yDPy
z;RFU=1_lR)1Qy~QL55?AayNEx07Hbs07PO&5Kx%kU_&J{4=WFI3IoH;ne$=73>PNw
zF{Ci2Fzkn@{}QX0$J*X#|vhB
u7hvo!#B{~aa}x>sYZTxH*fT%&BnklV*P{`#<)yv=0000R49>SU;qJL24-#sG>{>HE&>Eh2@H%4uQo6+uo)l(cSFDi
zga|tWLjaiZ!N9=*NP0h|mh3xF0g0OcR>GVmOj02Je5;0N&&E&#>zdX$^Nfq~zAg293XKzA_;0Qo?{3lA8o9YF5=
z3FdP-D6l0sI5IE@0t1B|qWc0v0?;oE;J~6aK=tkh3_d}?o`7BaqAZ#K{{bKY6J)&r
z<}yk$H2sibV42>|K6Rx7P{30kEd85-VLy=iFq5APnDkiZUt#zI)yQawkY+!SkP4(k
zSmGJX*&wnDL5AFB;N1eGI6D{?0;%~w3K;BLfD8|Hh!Jciw=NL&*N_Ff@qrBh*Clx=
T>N8p~00000NkvXXu0mjfy^){r

literal 0
HcmV?d00001

diff --git a/docs/html/img187.png b/docs/html/img187.png
new file mode 100644
index 0000000000000000000000000000000000000000..45adb542d7c0e9bfd7bd5202624569ebca8357a7
GIT binary patch
literal 279
zcmeAS@N?(olHy`uVBq!ia0vp^vOp}r!py+Hn6DC90^}G3_=LFr|NnpH%$cdFsm{*M
z@7}#rR8%~3=FF;9t2#P5%F4<@LPCHFjf{-$-n}azAh3J)?!NB)&p;u@k|4ie28U-i
z(tw<)o-U3d5>t~C7@8s^7M?C?Y@EBWfsv_#d!6wC24!X;fy5aME<8McSRIc1XVfs-
z-;!8m$t-ptG7}`q$iwS!g7X4f5)C94ua8*Q!B
zN-QJ;rmzvySqWPxVxwuTvPud&$I8UUwekIUB*ZDQ^)GT=mv4hFGlQ`UbYXk~JHsl&IL
zXVVxFmO#|N0yzpa9;*DnJlHAmJ(FeuQXWbf>KfMbOkfxlSmpe+5}0er=gVN)9*f61
z*53m*u!UFZk7A*sJn42k^{4TR5ccKhGw<+^s?;~j&2`|`YxMoE9&}5^=3FsqtIWe-
dc_OUQgYU-_T(3DLa7q9G002ovPDHLkV1g%r>3#qJ

delta 449
zcmV;y0Y3hW1m**fFMoG;cU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0
zBD=f09~~i;00001bW%=J06^y0W&i*IWJyFpR5*>@Q@>BbKp1_cEw;4fIvF;R3Ac`p
zH#q2E!s=jx{ssOC)x<#;5En;uGjSjeZYG48;lg5!1BnwOk$=eIpx<3BX(cwqgvFQZ
zeLwp8?(X}pKnmk-!G{AbeG5NP4`CuCCqMTp#p$V`ma8JPzMl{z#
zDg2GxAGH^T?Qxp*BD8+LPbKL<1KuhXSrxl9d`?FK?nP^w(7#%1
racHF;@Kj&VE{uX&ea~tyKuzNdD)&d3?neko00000NkvXXu0mjfcXiMV

diff --git a/docs/html/img2.png b/docs/html/img2.png
index ce374483e615394e990dec773625273263dfca43..bc1204e6210e28cc94f1e112ba88f8e8296a9bfa 100644
GIT binary patch
literal 3875
zcmV+;58UvHP)$?IkNdMN(k6$jzR0nACr$hGtQ
zkYjxvtIk#*oMhS~xz0dxk}W+_uQ#59V3MCK#
zKyCtvWR=Hv1m(im!yBb;^Ko4pT#M5tMMJ61kh?a5Nf0eXxb
zdiLFEh*QsW7|v_(D@iFwAy*FI?l=c={HuN0oPMpM-oYHp^%7}3nRtEc>Wq)3syf3k
zb>&2=^milfSTwq&XkxwoZj4g-1_(}d-%hlhrO4rjGh>v(KM*7r!B_aOC4Ao?5e-6Z(u2i~;p1_g
z*f~WDC3?>J{UNHyKtB@am9{d#EJ3q8YLMwMmPCtD?G)+BoU1|qUH(0I5@+;SESJT0`Mh@Zd`qTH+x;9}q8tDQ2;oF6X%N5`xvTiSDMfd^`+Ux?
z6sjhsHZ&UM!gul=-9qk@LOH57o_8))-3q^LUDfQXn@QYbz>&r+NRXu73}v@JF~uzn
z(VSvuES)U892fMy07vuCqJ{v*fwDe~gN5~>s_8OG7F7ju0!U<(JE<1yVyoBjWL|8U
z#uL3x^?Y7$CFRHIx8{n!u;K2fsBs>ib5cQ_FkY{#+*R)7x)f%M7NlF3sujAo#G5Hv
zXE#hP{n5RqeqIvCIhH|LJ>>g`VMweJ0S8WHD_R3U;Tx=ig;Dns57cNzO4%AOBknhe
z?j)Qxc5pq#Ptc-#ScCz5;gr5m0o{B|
zJ#3xMc(|ezfP+SCR9FKvS_euXstl?!_g6rDUh^|l)K5U7Lr=aQ^^;}MSsQgHF%Vji
zuu36U5keI~?G5EzHBRaqaYOy=!`7R$KtU-%k0j$IS)gdE#afU^r{r8q&gGm_DK%K2
zm}}XV#H|)JP-}aFxZgTzEE2z_1p@dcnZXUpXa)abvj=$G0wFzWNl?zI8*}?9D$1Uk
z9Z`b~@;C|CA_?FaIIv|F`Ua}}$LUyezWm%B)|%Xw)Bh9Oq(qKC+|mY-*d8PN6tcLB
zuV_6+cV2Ve#p_p5T~aw;x~QCET>pxR>^Huyy5NM|F6m9QmTP*|i@BG|HN8o(Wwpn0
z=)B-mYI-ESG@BHe$F=mTp3Wlk=%v|&np$!#_aro#Rti9SnqKt+TzZXd5{l4>FQXjRdy+Xno1yjyqgrR%6k$SN>=q9Cw
zbpa$Rz@}}=>8ikD<(40|Xm;hOS6(`i@?b6fbF-`kUXg{~6kKo8DLHT0=DjJ4OP>45
zV)PN?)`Ih$lr7`kQy_h`*F_$Kn6ytYjBnt^V9`%IcA+p3-V}Z!3guzn$49t-44dQj
zqp(>ZjAn3s3#14Yk|Z%HB2`xFf49*%2%f2FEekRu2#=m5nR=v0Nnp1%cO#oNJOqB|
zRts`V03T(ds(~y9_OJy-V`3BFwp2X%t~Yb
zak{yro0Fk+V=;9jA6R6PS*^dOJo5Rf^N|ggh(lFnK
z`3%YG@r4v13lC(KF)IKn)R_GbX8FulotMqd6G(DOZ~yF3OERX;xXrjFsYmN^r9dfQ
z-6!;E)NA0n|JRkjwE6XoYV9lsk0j^S^O6l1pvNTv{;XF0N?fk`4bi8C05%|80SMqj
z{H>jl%&Vq8pD!gdUts3GK!i6
zY6awh1^^^U0I1cVJWw;$^f;#^DfP5^(T;}}T4R>D)})E`11yvuCBjws-K6Iyv99Gb
z+KN9b7lG
zrOG1!u6q$W1cg7X3e74I&6^%WP^j>&cFg{WU!lj<*EL!#X0(cR%(NzlR{8TR;>JDs
z8lD!U!sC)Id>n2NSX~}AA4CogLV?JZPF}*oH<(5CxS=zQqzeG9zzmq>*dm8};!<+o
zs=Q-7&SPXtuDvBuOw)KdDJEO*WToj>=nroSZP4CpttR0P$Fsh|VRxITeS_kKpVVCv
z-CJvi1jncffNI$3wdy!(AEuJM`m|g!ZcHgJ`~0pg&9J+VDFmt;9QH4oVNn8+EmdLw
z-$1}dwgk#B^$n`Gl}5BX?JZ1>2!NX+!K!)@icOxNgc~D_5Y#B-D*O((`0kc|D1aZy
z%DMoAfUYR^w~Ay@0x%7x3>wCVkX5d!F%bM{MIl!K0KeHXKCh*@oKw%`M5mOp
zH~DL4&JtthmNemdTE5nf+O59Qx_o5rBc@PX`l*U}jMsAs1A
z`oq97*rU_3-w{ukv5$^753hkY53hj%dAMAuG=T+H7q|XgzIhD89Rdr}^5ViF|Ht_m
zp3=X?K)=!qCWmB}hyZ|Np=O5<0KPE_<*c+mj1TcA;2W3~pnNz9g7(|c*Dw?hc`D3z
zqX4)F|NHm>0NW3UT+GCYZLR@?e*glac$|0}^Zf!BsWeiukdOsrye_I)b&*bGkxpgq
zO_p26SjtJv>H2R|Sx~OEEHpORd|BMcw-p9I6uAo;|FGo|gX>n-KAwX2`0yHd^Y9w@
z>+;ZZ!gUWl=b{fBs~uW>_Akma75PYbf*0`U6h`O48J~&2u3qW@j&C{*=he~=HU`k@
zn6cg9_Z5(DzlqiEKkTObz8d19o;$ch!ILCUuk1vW2V37l6@^3j{CO#09-#4G$meT1oC0Wf)8Dm>;y4EqaMKyOlOjlz7
zSd&|+m&N}7bQ{Od*vtAAcFV@cr}LnWev&q%n)n9;fU0
z78_ynLrIl2rNu{JMIuZsq=rwI!vOgF{_r^7JiG?pJiG=T(XGzV%iBFOe7zqac*ZZu
z>?n;kP42#i_=5eRGZQ^|c&X*V7nDP1ym@#Hym{EeSIAw3nT4GJP(Bd2fPZkMFGc0c
zv5zq*29v|gPau5b?kB~Iygd0WqK#eT0BSJ?!$3Tg#)LU+SqgV|v_t&wi5JakkxRD(
zYB7exAPZlfBuTv?iL_dEEGBZdmMXa}NXqF+j0aZLE-~mfUMY;*c!PY07*{hNF8*W5
z#>xDxTVDfj9$o`Ic^Jvrp&$CnVLT?f&k!F_lH(kK=rPBAupk3V;{^w+CsBC&YrF>D
z{u+b8nqtxX6B{k@0&U4H>_aTP0uKPNKSkgq2tpIVIwc&Nx0~_33J-g?3;|JW0GHzE
zyKxUMz=Jh5F|fJG%j)Cru~c(z^|V
zm^!TPYH53`T1$}4^*xG~rGqac>Fc-rs8hP_#EL``g)(v
zxA+jX``K1MDx=cG-`(aI?IH9cn;{4n0*Ig&LAm*sh2`d37DD}|7b_%b2@yuni#>^%
zpM>f+y;vRNn$-1;`k{>#Nm@eS?DEr;*RJpK^t~8YHaCwCl3NtA&>+`qDP@*T)&;Z4
zx*(ZKk3>N)t-?ssTWif-*hySZlhBm1ihm}DV)e%|g2@B>TOpiO2;u(_%9xF*$AFW%
zDoLskCl$i#Fj?)=-H=33eq;jJTXx8W!Xg(6u%@(t1k9<`Cw%P9zWfmPWKJOggSs3v
z$rRe#9xKq(#WK_0UJkn$1WD{dK$4j^Nxf46HOS$v?6Pg4^}3CePvh5lNaq{9lq`04
z7;FosQ~4iQ%1N9~WpRvAU3pNQ6p67dsMmU(Rp}n#VeNUX8fq>+x_3po^hFxh73p;R+YN2%@;35jw6VPxd5KG3q+wl=
zgkI!85bns#{N#k<9kk)0=8AOiMH<)@$=`k}_dnxOc|)~EoBrTV(%sFNmD8sZlN#`G3#xa}8M<;amU!002ovPDHLkV1gL*aee>*

literal 3108
zcmV+<4BPXGP)wL_t(|ob6qSx`QeX<}!ddGK9h5
z{a{VHIFvVsSf4RgH&5c={&gqJLD@763hDVS6HRcdB~FMk@
z3zM;F@k55TKxNHjd~+ct#_?D}_iVQ(*s2t!B!E*zLzsjd`H0V4=uM}F@qmy{i<
z3I4m>IFxF^eGQpZonjt(?0$A5xH(hzcLg?ghYf;b?*P<81bibr8+r?P#P-Y|?-Dr{
z0%Ssz^LSA&vcV=d=XO2^Y7*;-qqKu1EV%N@7E7zx9+V@&r7$nlyMc3GT2O*(hN!(O
zOcY-j%9N(8K-CpXyM}M3|C|1mlN1P{yiRh@g7TfwY88l;^a)AkU6OVRF(M6&7f3sB
z<)fG@VYwHMDztFK`hEf?YCw72iHr}5qnqC)#JIuNlG}Hrh1n16#tI>>cahX6|LXe?
zK(;>$6-|IZ$|Q^;!B7iYz&qTFF*Xz`4eCP<1rO|~yFPT#X3Riuz?8_GukPAAeRh0C
z*1C`np`rjhc}B3FgjkTOwIPfwiihji_<^~hxf>P)GlAU=fJdg7%F2D>
zghlKi`;=wL6uPg4?vK!nmVDSozeB?IW8uMeT6hIQG8+{jto@c(X>J#buxeN@7_msx
zY`mHy!371L3Y$;}K~_%itx&H6&tkD99k!~Ul;}4l5Nag0C&8nWtl0=63_rlk_hzEL
zO}Z|dN1sc;bd=B})7YI!V1fH}Hu^`>pt;e`_c9m-s%^Bhto=#1rQ8(GJ9GVv8Qg`5
zn)U9yx5pF5^S&rBb&I>Opebpg91hW_hR{8%b-mPh;rh-n--DMn1
z%S_j69A0S(4b@d4434L$yPCoMVI>D8s3TYGI%zrzua~ZKB?n2KT+w6}$9Jm-AALb0
zMimZEZxlT$<cgQE#y!h?DI0qJg!w^J2`w0hmg_agz8NkJwjMu
zcb;+xN+{kL!MkB}MHr0^Ot_)pd$uiy~kq`n#bXpp7PMYoEB
zjXndmSA)3KGjb}Z$st8BVu%9i)C+4(IdmvY2xX+hauAI-tZP6_1kyv-rIW*lIUH?#
zSVTKmXXY%({USPMr93&*_odBnkjb23MAy}D(93X$LmzNa$tmP12c4awuEC)?t+Z+K3G&p6a`3(u4Tkl81I0?#{PoCamq
zn17Dm9!?Ig0?jdw%$#Y3xi62F!_qK}&FZ7(M!t}ezAG*k&^sb;tnqwtqr2o)7Rx=|n%?$aCOY0RAZ7IYx$J5$KAMyBGQEg*4}{PzxWO#b^{aE_DCuSsKuVA?E|U
z2%X_VU;X1@JkX*f@&@k7Q0zofe?yvZXc@O@9pQDr@V$>w!#I_$9nDn4ix&0s`+Z;x
zxe938GtQ-9ZKHdK3O$tr0x+WItmD`dA|f{mAmor3O%*WYq^9mTq@Dg4v=6J7r}?k)
z`>j3oD11RRYipMsr@lZJiN>UucbN0q6p3-E{eiH$1RzEkVzjim2NbS@gH(IVwu=m+
zP4bELSUcJ>DJ8Z)V0{^fv?W|z&Buz%6^1Uf4_oM7Y%cuqP}khp(hV
z0fWq0QJ~`bvM=r7D^lCjWd91W3CCSwY{hI(5GRKH{OUV>qOx&dk*@eqLjmm@IUgTPuOP0N{+
z|2CkN#pg_M&>dv9y!r@+$)jbdIS7VB#=9r46T>lhofwY6>jxCM{ml;5W2_zFNw@R^
z*;{+X(?{qBAp8LgfrNBXGXJO?^qP^-&e?e2vfpLH{Ws+h)rZ^NHdK>;v5Q+_IMl_p
z91a+)@Y^&i=^X}|PYFzV+6M*oJDoH=JPx|+jkapSID=VWjh>*_SjJWZF`888YNM8Mcou@jC23cG3l-zr)5P=D6
z$s&S-yN$f(_+|0#%4s(cTQb@S#HMUc498$|VmJny
z&tM=WAVBC<@~}Fz@~k7L;CjO6@yJn>&F*nMZOhH
zFqpyV*|ez~RPSyupdKlJUtgFN`Bs!E2c#A=nHF_WIminJ!8qa5cz1kZR^(gJ54Pzq
zihL(FCx&CN*-QBT0onT}Fl@)@`~6NnF(Y5P;$`z?F`LqHQ&vnz&fZe`1q{DXm)>L0
z7Iv9rUP156AsoJ_$}oVAA6JRq8T9e#w!>S#%D3MtP$333PAdX4wlLssRMZ|caBt#5
z0`krX5V^9x0AW!!x7z1{zjWVKAjkj
zK|hC~su|?Y6td}dACNt*$858hZz9c|RpkVm)mM0aQk~Q0E<86U5Em;LC>0p!#b!Ev
z_aFy8V9-{CI|i5K|J|_TL9j*_B_W4FI7chqDQU(y+IX$A=_iSH3`IMXh~l#mgXkF-
zBdlEuJ!>pO~rmaz-ZTNHodPZI4&k#2`)
zF@z9?PCPxdv}`8+TxBbRSM6h65^ba7E)$YA&+>5<#r?8>0gjg1$1M-qxM+mlbDnnW
zjlo`GP?TWAV0z6==*X54f0AhD;~aN-HfC593F#rH-}rOI;Nxa_cNl!y*kJf>^(Z*f
zZDiQ_K=!7W|KNK}axB&uYz>AW-8=;$23XoJy$|&hed}&hBs+``FYeUh^d{!yndEP6
z4>q;kUcFpkHy6Xr_%{q~rKaRE49%_m#Aq9bP602C40AEujDN$>Ruuzf&LzSig-A|e
z%r_Ow;X3|}Lt9l0{(?a$A2Yud(ZZl6pH+XA;&&Lv@o!wZSPjEsI#8Ql5%c>ywK)9(
yhOM-#qFeP?)sH+sCU2Zu+t?bW{HnvC2>%aYYOmWp3-bE_0000l|*y*qQ}jG&<4s#U8x
zIy%zQ(tt`_TwLzny{n|8w0rk%*1p!wKq1DGAirP+hi5lH@;06>jv*W~lM@^mwy|h5
zw>K&>t3?#@dK4HgV0xy_%cHZ$q3r-0Tim0
V+U**QJAnokvNrly-77fpg3O3(rIJ4=-J%=fh4CNbmm?L&pNdoO*
N@O1TaS?83{1OVF`Ov(TN

literal 231
zcmeAS@N?(olHy`uVBq!ia0vp@KrF|?%)r1{)UfjnkYf+|NogYXO@?jhlYl}
zd-u-R*!awuGlGJGt5&V*=;%mGO9Lu&adEkO_pXwX((c{6ef%(D=}S
zfti{6f(aiR+qV20SKqcpck`ame;~pT^rwbtyR5^X?>ue^g$I}EDs(MwP;Xq|z2O!o
bi!=k1y_jR{v$iQf3mH6J{an^LB{Ts5kk(LK

diff --git a/docs/html/img22.png b/docs/html/img22.png
index 6a7336dd74bd2b9988e0067617cb07afa1f14f3b..19b9986cb72d46b8b616c27a4cd22e33c3cfb9af 100644
GIT binary patch
delta 190
zcmX@fc$RU3cs(BrGXn$TtVD(q1_lPL0G|-o|NsBboH^6k+4bW$Y(4G@(X5gcy=QV$O-gxaSY*@nVgXDAR!?^
zfFX(P8v~n$M?!*dgAqTI8W4$S;_|;n@w4ysxK=V+hC0}(nZ2@iZ5jLu3qXst6yU@%Q)W7BK9$-^^;$5>cG;>Npq$3mFc&v;8{-Dvo7
mj+@7vwPDLjMrT!KW`?(RTzNY$N=E=qX7F_Nb6Mw<&;$UZFG7+4

diff --git a/docs/html/img23.png b/docs/html/img23.png
index 8820cddeaedb8247cf2defa7392439ca2c3372c6..fa052e10ea7440384e5b93e542e7d532ff8de777 100644
GIT binary patch
literal 225
zcmeAS@N?(olHy`uVBq!ia0vp@KrF|?%)r1{)UfjnkfR>p6XN>+|Nqp~RA*=BckkXQ
zDk`2ib7s}5RUI82Wo2a{At5to&b)i~?(W^Y@A%%|4b;L|666=m;PC858jzFW>Eak7
zF*P|M;Xz760|Q5CLt{H5V}!KCj)p62GjxO!(inwU-#9E<#^5Z(w?n9*tKkbLqr$}l
z2TnaWaA4lSh9q`70p5+P8XP5EHX9e1HoRbBTgEFeOEAUkH&Ywe1{33mDUAKa9~c;{
Xzwq3zP~UbCXeWcGtDnm{r-UW|Vun*5

literal 225
zcmeAS@N?(olHy`uVBq!ia0vp^d_XM6!py+HICDGGdmu+Ez$e7@|NsBx<>jHFq3_x+&MmUI+Gd8o_P~|zprBJ2M+^pYmEiFNdA+jdX_{hSPn~V$%
XzTC=BpB>TxTFBt(>gTe~DWM4f!B9%f

diff --git a/docs/html/img24.png b/docs/html/img24.png
index 87dfb3617e0beb11fe0895d44d446b3ed411cad2..35196adf1468f8338f5aa73dbd49c93d69720142 100644
GIT binary patch
delta 439
zcmV;o0Z9JU1Kb0UFMnlaWkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn
z5WBm(j*D;e00001bW%=J06^y0W&i*IT1iAfR5*=eV1NNm6bbB2ySs
z_<&;Z|Nnnr;06f?xG+MTfq@lHvBJd|;S@r{OfZ>J
zkiy0S4pRmW&Hx4meuD`N8y0K;hA3nG|Nl_GU2tG92n;X)hB+|68MqXH!OhPJidi<8
zVZ0y~Zyu&=IDZ=`@E_fP;755uf{NH3_%5)+IJ~QIC1-{v4E7%^s@}p`nc{C5Zb}GL
zMoj^7_ywS%ERD;GAyzO-GGsEa3UDYe3ouyn9{`Dj{|A8&phO!FRsUfogE_-j2EJ=w
z8Tg+t7bF0MlHpb`8t_6GYym(6n960!Is2zGF#m7>i7+WZ6?GNrw?OT-7cIc$I|R6$
hFq5z%29_@j3;?P_L`@3CQ{Vsq002ovPDHLkV1g&-s{{Z5

delta 432
zcmV;h0Z;zi1JwhNFMoG;cU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0
zBD=f09~~i;00001bW%=J06^y0W&i*IQ%OWYR5*=eV1NOp1Q7Xwn*j~*0Wk}M!v-+t
z1G+2}+;?CEk`ovh9B?Rr0bU3NwCi2O1{MZ}uM7Y
zlPL{uJPr&D2Y^gAZeSenvN$koFxbGSz`%Is%o&J!W+1VluwcRlNF1_WXkcLA#)xYm
zz~UNC1(H2A0Ds_;l9JK|f~o{K7jVGXyxKU`vm?n!fyq`d>42hY7Mzvz^DTpCzuKoN
zT_A@|0Vdor@y7u$4
z`XK=*94Jl8f@P)000{V0{{R4vFTs90000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*IWJyFpR5*=eV1NSw2AqI}f#Cy~F#(5y`~*fY&5ug~6o91JAk0}n
zeDur)AZf
0T{U}RuN(awS2EZl(mBbef1VBiFkATTo1%Q(aQ;hv9m|_JZD3|~VXhyK#Ab@wnOc0e)kirIxs0BbK
z2WJ2WHjJ~vQk0rVJep?=j@-(!2H7jB&GnB>nhZ5fij&xhT{wh1mNAqNgxkH
cfIrY00PC4dV72QgE&u=k07*qoM6N<$g6$8)NdN!<

literal 482
zcmV<80UiE{P)m_n1t
z@z($Vmg!$^ohL$_5(Cc%7@I#1r)m5D&q44GLUn?G1F|wE1qKV44#l4V440Y&gf=Mv
zd29+WB@+5g4G`9S1BPV`dJN1BJPHi^IS&9uI3i%G*ccYUm^TeL0vL8M{Ner0z;uB1
zLjq996K)~z23U&azQEVOkn}@n3ZsTD16Lzh%m6Ca^U>l9l*uTu6qg^7fimwAVw8aZ
Y0I_XGENs)f8~^|S07*qoM6N<$f&@pt?*IS*

diff --git a/docs/html/img26.png b/docs/html/img26.png
index 7bb6f1e1499f9158c58e068883f892658149b069..8c581355e69cf351eb90b36b0cf7887aab9be31e 100644
GIT binary patch
literal 273
zcmeAS@N?(olHy`uVBq!ia0vp^Qb5el!py+HSYPqU8OSjR@CkAK|NsBYnKM&UQ=Ofi
z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3
zqyahoo-U3d95a&>fWVePMdDmeLV^c_p@fS>fI}UVvQR!F^I;Y?HZyj^c6NtZiVvHZ
zL&T*x7?j!A7(1%U&DvSm+1T>*^4h!>Xc({7FgEv)YR_Z4cU64CPTz!2{4>so)SoU0
zc3NPR#dYE>lML4xCZ1`366|YIAME}%wede^G2@AlWkoZK&i#AIbH-jqf+62PW*Mu_
SmBm1(F?hQAxvXgec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0LgcHx;Tb#%uG&5NO+LVAjIQuZeS3@U>G50u%O{LUyp~)f+bAM%B0$u%ymtde(

diff --git a/docs/html/img27.png b/docs/html/img27.png
index e3b06a48c325a65e036275e6611472e0b371f081..54f4af4404af1f15fbb234cca74c4e72386c3675 100644
GIT binary patch
literal 4602
zcmV002n@0{{R4PTcu00000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*Ycu7P-RCt{2J8i5S)pcjz%+BoW?(E$J8f>@74+S-Hq>8C*T2PyK
zEJ7hBi5JBpaa81K5@eAy?Nc4FEs`=eh&s5E$6(pK1oIZTm2vaoRn?GGPsCf%Hswz|
zl|raXT`!_ag(}3rdzkl#rU0~LT)zo*j&kt49vNWG=TMYDre)N$0UO3p5}FX%$k50|qA*a61cGr`CScG*
zYZ6<{fe@7{0KDbkJUSB=%m6(5`=gm?Uxfb#m}x@pYw$$T%N=#0e1C}6wjp=LnJ(3;
zpq^J{Sx~P-jhw_Pa<2fBCi2-=h(FH5l>#b34Nljh8E8GC=TP03E2H%@iBq&GXwXXp
z);O-w15MDCwV-qx42~LAs53~
zHHGw1W<*8}LD$N;AXsUEwiZb=7xzvJR-%KiWSh`kzfBFCBP1xe1y}~-n({C0EdhEaP>_s2m)9Tq9nw*m&?KkcG@n^+b>O&*$h6Q4JVf{
z)zj0h*a&d4lp^jzYf4E!E3%=Bz(Es*7QdGA7>uk)I7F%FXOP1L`VuaGK=bH`KW4%J
z@9>y+;PtULoTR9;;t4Wmhz_mN{z8HuC71?+qrTsyd{W*G+d4EB?
zKM)T8nVIa?>iQf^`2OCLmN79Ysq6MX=r^A<04=cA&Hz
z!a@OX{!9{YqsWp^6CvlX3K*1X_RF-@939URc2kJ8jg?4R$si2ux}a#)2i)w*Am_v7
zXF7lRbO@mq%iqLZO@QeDKK>A5=pgRIXVB#N{{^urgls?2>rMD5ZFOAuhf;e~NYnP?
z{zdv%vE!em$G+$)Gm+jU`WpNQI|4_*en_TGoyYXZrIz%bcD6h2gq#Nmo`J-Z(-1Q9
zI3{?S=}Q|w0vj=^Qe5WA2pwyqH4c}%#lslyA3U&Y_Q2|B5h`Z6+?v8wYt;{wMSwG7
z52x>hUSa;&v>`muO`mRWmKTDki9K!QSI80|&IXVwH>2ThH*U(hoL(ZDq
z^V8FaJ8u;XsG;t{)5FNwkhhV80R3(m25SK;DoQvw6*XJvqC8EJ@H`D_yr*k50Us+P
z6Rm=@)6+AwI8F;3)=`h
zJPI5<+ZSk|tW2DVO2P-{6mcj((7=OriWlnVa&>AlOih(=aI@P$tqc|=*WKZhsnHNn
z%_9@DoJyZUKSR#VKq@zh0dk9fFo32#>!eGu@SwE=_D+^&OMeeXV9PFJ2i$_)`SKye
zYQO~iPXi9X#C_ornDMp*rN*rf(>3F0ak_pk+!9cGPpcRd??oosqR(zrfpg*7$3zP`
zZ}H_GOJG1?(zC9V1Ru9QatDY}NPebmj=^xe(C3Xgl$G8DZ?elKCy_{tswM%k2&Q;&
zsMqNuyiSuj*@;N20k2iY>)?9y4?Oy&taj+2*9DPs%Z60@5Pk$D9K6pXeiLmblU~QG
zIEmx|z6j&-RQlZ%-L6N8(j=G7`y?X6X-Icm
z852jVJy#OHyU)QDnuB%0uLV~W;WT
zaC$FsePGCKa_~?foUW2W=8g7vl@$~!SUk{;!cfP*Fws#H&Y0@tki0iB18>L(CD&?=^aTo
zO~!D_
zFOf+k;-iL+0o>k2l$ZtzI}XO_y8jM!(2`@c#<1-1?we49s-nu5jZj5x1JZa-@1996
zXw&Lu&*f0kbC;Xx_aU>vMJ;Z1WTuf~p7YYT6zq<+e)Xt8uq1)vR{*M*FLZ|1eA2QT
z@{{KJkZdmU^H>)X3N%(SqjNEnI7HD;N#
zHZB}n%rA$hUWTMT2lA+5wRCTUQ!8^ta)N
z3wTbmjdMFN794bm$A^6lUI>s$VKSD!3U&d-7nDdsK!ki<*z8)g`!mtzEBSejHjPHv
zGND1&0z@#XQo}Ryqan(c@J-q~cugR(yhdLs)TE(wuRtb-NNx9Uzvt%*JnI&ee8KUx
zZqmwAOIuBa2)xD=S^7?wie?R8O2?C)FOWZgD$Qa`lp$wv)M%|?=@e}WQu=O^o(4#7y#Wz@TxJJi8d$d))}$Woo(!C8QbAQ&)}uxU(jKGqw=4#
zU}3be`AUO#ob7lsSqrm`wU1%HXq~G>tKf)7IJ3by*b*Rj&0|@lKx~kX>}#hhluA7q1t_`s(P?fcH4Fvhw3(
zR+fr@^VKdChB{nmW@T#QWLBoak(bFO%&ZQMm02AG&aD1}nJ!^wWrgEpRu&yatJHKX
zU1pWH#>uSm9FMOxyw(zDR`X+JR`W8mI(<2_`achIs@@IBS0@sx1A|*mo-y~LpPp9<
zzaM16OvhS!X|rpM3=SZeO6W4aT_6;{iph?Yj@i_P`s+R(PW9Tc{EjW2LEHO?`y5=i
zDn~!ofE60t9&AA@(#t`yc?$g(;XG41COgV@=PL_TzW{s++?Z7NiZE-6pyJ65n>TT8
zR8g0E_&U{7bT|*`pr_JLRRfZaPnK@7bciBMgk|B7YWhtaCx5`6Qh_QL{)J1|B20G9
z!8vN5s2>a#t}M+S49pe9=_knnk79(o1!~V>S_KCv@Ew&UWek%qLCbocLWDD1!nn}G
zX7GwynZ`xT{7@LOnbKQNVKCAKK@P3aaXZ_?y!oC!6K;RIV;)wjPrWm}T$eWg{rGTA
zw#AL*H};H)XL~eBy1J;&_Ud}Fr-uQ(3oOE3KSV3h&(})IboL6&=+#>%>Z6(V2-AlO
zo9i8%>p(~b`jG2&SaD3;2>1LpW-4FW9>B-jcp)~NSY4|p$eW*DhFKS(iGNroox-^0
zsa;?k`383H{PhSN9Ugu>Pw3QqR5D
zB)UHf;?vuZ*BhIv%s7V6uh>0FcG?GbxJr|SH>%yH6BT!p>1-O=r~uQ$&Gr-z6`C*&
zZ|>FA)t}WBy&gXY#xsnDG%xa=D^YCxOQbRz*v>ihJuj<3<{K}0*;U_6zotk`zmHa(
zD8*+Z7pcD}XV)u7sWf;Kqag{Cj1?TGloAK80Qij32u0-$ymYeWiAgs0C2n1ME^Ogb=mY(SsakvWFP6wHYz|b
zH75byeg%#A(l#Ha@27o^2;%WqP>z;{(iqO}eb{9*vHSIFp)@<&D9rvSK)2nFZn$mF
zZy_6G@dwrM>ccx!#s#d7kOK#N~7_`3YK*i^~v4HXv(y0^qse*f;1v=#oO+IO!fFf^s%
zogD9V$t!^weH@m>m3}K(j-)UbRDqQn*d+-#oqz_Qg|R_+5I$b#HORoAQfowVxz1<#`|iimS~u=F1*UObHxYfzc?A}E&#dDZo*
z72$1Sv%1p#0xIoz+B2q0#;X5XH7}oX?Tu0s(SX;YjOm0%KOx|5vX69T8`al$RN{4G
z>{HnO88v=0?zySQa+ssDS)$358}n8DN!)wnq^AtYMi!VRybenGKOZ9L;+7qHOsU&m
zObGOop#;AJP9^=AYOj}`#9~{~||0Ib5Iny7=p!zV%oC>;4`*
zhP@p+Ak%#xNM29(C+Wl=)UQ8zYPma#!EhLGU%w3hAAt%~Z#}eh1uEi|g4pgQ?Mtyh
zm9J~gQWdBquLM2^tJ9ZDu|NfPg-ceTVqOHYKxNz+i@!7rRGdF7QGqJWMYuo(vGZP<
z1*$Jk6^<`eflBgXxa|cnegJ!vX_sb!%DVbZZ>b7Yl2=lo+IJe0<;w-CVQ{%X)fX-o
zsNOU9`jQa&u=HOVo;S=vpRL?CnP8xZP^_z$WMhul!$h>8QW`6|xvDnZuu9mw0q1FY
zvoBU}80;ldU%!~1HVITI8eR!|=YZ=%Np&aDoC;A?H;U^}+;(6sh&x~tB?g@Ckjcb=
zYaMq`Sj(7x59PB|`$}q1Dn}yISK!~tAJZGLFLWLT?+(biP*UAVH0MIp*6({s9ZI&>
z0zV#AIiD;Xsa3a{&|$hY>C2J01{EiY$(L@{GazdwebUBv0jMsNR(BH3sSrhVqqq(w
z+xqdubR#yI88~f#;1if=a%oDL@*P)VBsC~?Js{K3;JZA^JGfHRrxNyV0M%@It2<{9

literal 4180
zcmV-a5UcNrP)3=8lI&^U&DQ``a=;0ry_bgszV!tx!`@nCAK4PNj
zj7|f7!#xg-TQoBFk?Lsq(A*{jo+msb7;VBr;E_z>O<8rWgfypsq|Z>ufhMntJA~+#
zGM7^Qdn3Ecu7;JtVdmmmsR6I0v_GEVAbNumm{VT;FA$|(I}IY0?Fx0apQ1}mEjwK
zFsV7%UkI%+=Zyfn(@8Oxz=hn2{$;w9$TE^~Xo|NV*5a4mzRm)@#RH91CwkIG(;9|u
znsAAMSF5Q&@MW6nxo{i4*>1F>0Mt1cZ-UU8lhkjPL;hlmGLWN1!R$$Lbu`>vkg{L=
zVp2QH>c+}V??CJ{r4_|<~>MjmWn%otuN#H9fN-lgM)c+lj_n#eI
z#Mfx+t*Si;<5W%(7nbm9BjV5T)|H*M+&)MsD}Esb8|ct|dhHN1D;*!VuZU}{qd}Jx
z!?-L0M&KB~9cwRoqqQ5|+_m>C-Fr^3jL}r7^g0;r`IdW`!pBP@5*Q3te3)kxz;u4y
zC)^!*3&bn|{}I=`j)YNd4IzRnnubzN!!&pVc%#vgF>99g2HYILWF-bZ?hmSi0l48X
z^3X{z4@-s(87EwWa5?Xxi~5m(*ymEKhrKRtc8y6~(NIVC#-X+kUa5juQuH>m?ecB|
zUn;orXgf=MOZ=ZPRB6hfPzCf
z&8wCW3!l=Bw7~i6}nsQnMWk`F$}DqsC7j1QZLh((~LD;gno@
zO;ZdOt*l(Gm?k3jzu4<6bR>KVych6wBs;C3TlrR)WY_3!KvVGgu#AASz8LEn0@rJY
zdy>QiPl)NE3pa83y1J1JwXnZ-E@Da11M?uvwRQz4f3fi?y3~A=zj?QL
zV4{y4@hP1QQLHG#>fnqRKR$3z8SWe~H|3dO@f62DTP7N9xrf^#Q(e{T%!Eh?S+8R>
z)q{oLGd6X4X|Gd%Eh4MVjlKwA;z&qmB~Oy<5+Ot2QV)xdzc^KFQkcQg1PIhk$q-KS
z$}b>RPW0jc0$fkpqtZV&)3)6q(;^u4o=*ytl6Q4ax?iEQRWaD&ygJuX$E!FD0c{)H
z7n%E^j^b7@tZTuFVI4X|>H7-I1z+V`CuH28=<{#SvRjoo=`MHxbdYyz4cyUv4uoy5
zhO}tml??P8;e`e&X+XIdy6%nm_cYlmJV0~`4hSa-BS;n1fk>+SA@PKO9Qvg0iJ2AD
zHF;`(CrGVFxyD7X;Ic<1SWb?jo#`}UB9U1$^V3FiAz#oi5)nl;2=sx$Rly(Ro&lG#
z&gJaMd0FIj9#;|3rRXdo
zTs=s1--xY>hgbqgR4GUc(uWAty&`nyP{q90)2pzT$|Ap$ChHJ)j@hQb^Ig&xfU49
z*xGZJek*M8^nYoK=vKJbS}5{lzaug$bgX+|8S0K`qOW<+9>dLeyP$DT%YbBX!sf@??IEtArd*#il8
zM=*PZLbV%mk0Px|CW44Nqgv2@I0Gq7EcwYU^C;I}sUE}Q&GcSv3(Oy2+t6A%y!9ws
z^3el)SZd(W19SyRJf7ig)CQU8gsJ7FudyX5=CftuDQ;iI#u&Rg7bF-%n3&
z%GTYC?PF6psrL~beFA-qSXW7k0Yf0YU|!qo;IJ2@U<78Hr>53jl>|jog;)!Qg
zW@((v$}G$Dzr_pG$-?nvR}l)wz&+^VyW1n~c00u#|0o#|
z52i1e+0j;414?k#z`eqifAS-~@VeWBUBMySSi0C&&SCW_52H#QE`W+N`v*!wOXLU-
zVJ3F5jlqg-ho(A1n=U_b?yEvK^OO!I)uPUIhE;N(sLH0U)29sy(65pz1?lgsGU)+c
zfcVbzlNzIEm+O0z=08UG%m<^!?nj3+OC-ti2e>}OdTNl(LNP-+KM6-J4c3ffFnCdC
zco$pcvvIdqIB9TXICNKGmXah_$%+RC*{}e%UdnESryhL^CL(hV-10Aa*}sZrTLT=e
zU*3;d*Y*7-7(ZSX2_%#krmh2h<9TSZe|`#6rvB}qO;c)i2pN3D|C60?-nz?rJSCsC
z{S%(#yLlNC*807&w;z2K1j>_OzH9z&q`YVY>nAGSu)MEHbhOQQ_?42}vfRq6zF{$d
zowvVDDkD_88+l16cfp)haV@fFCUQ#O1EA2UD}ZBcq>+fP`4iYDdi7T3y8#)5Jup2mVkh+I*JAA76*5Cf_JzNk
zqyc+w2+@UVwN!SAjdSh{Rd@03TD^?cvNnO4aJ^nnscys96V>&;BeamJqXt@!(rAfX
zKFdy9@bc$jK=qKX8P({&>lkr_ORN49xH49K{uMd+qGU#r{EB{DHnPGZ-yZ-`^Q3Bm
zSE4%ojC2@11MaA|-~-1fOW20twZ4eLD}zTiV!I%hPxcfUWqa%^!Q*kNL6-wh%oyYyLX&
zc!ri!rfqZjZJVah;RD!FKaT{MpqM$mbQM_B9NB&kq$IF$dAUtpAxv;`cpu)-M{0+$
zAygw?a!lh;1o77O`@ylnk~qfkD+cF5`nNd&?+3U!*$YSSith0Kij)6|`?#Srr2kHN
z(_3pJzjJNquO@`&|I?6y*Y8`$b;NvqZ{b>xp)jSnGQ5l9RkYT%fM~_ws(*;v>WGwP
zDr$7EEs$VPl6*=NVGXhwvevhWAc)5`g%?lAF@)#xti_4s{_ue{VKIgH!RX_#VwsAe
zo9{6FwPkY{;TflQe{eVGTx(#m-H9evsa3GA`;5ayNEGvni$zb(c^`c!@FhU}E6Hxm
zl_C)GQJ>hCIucoFP=(XHDP;d8dh3#}id!JakL)MyqiI!Y!K4&vJIuxXf26M_ad1vB
z6O!C)%C6kL{tY-P8>E`xm006vVK!$h^aJ?h%TWfRb&9Qp#1F!bCvT$0is)f&bj!#3
zeK6=_6w9N3aW)4R;$Jzoew~=bdFny&NkParE=?&@D`{>~N<&oR-ST|h4n>j75M$@&
z!fa02wjvv(n&6d;O}6D->xwU<$tsw`n}_-fML9ee4!-qY;4$BD;CoVa2QOd4<&D-l
zf>J@%g~`j>B8P_^=AS_ow8ZQRlHc8@;}LyNatCFnG2ePvm3{(_P^i#(R&}@pQ%EA=
zLRfw_$Ztw+D2Zo!Jf%7d-{GR5=7C@#c*(KyplSrmQKR7GHki_!59&7y$vm5Vq@(pZ
zr8Fq}Z6onl2k}AaAjDr051!XksbU20>G#hpB%@~0(GRAQD(my3WV41Gm}$wV3;lhg
z@JGOq^ZIFcJpwuW+)QiT3RGv$q)&iXy!Fz!eJU2H*evtbt3ZXv&vZ)j*t(=NFjh7<
zoXu(ls{cCcSD<<-+)ZVHNSVje^Yi7_arwdf8fjhkabb)FOaJoQs
zqHyQBAkhMTX3es!5t5I8(w%(RbXsjnG#bwu@&BC(X+yZdSOLaY>Vm*)v@M=BD{*Ab@f@$XT$1FqWU8+;g+Z(5!RtfjyUmql)XFz
zVay#XmCrBW^S+(wPL4Hg%#<%|K53=a9VcyHB
zP8Ff@j~XwXeQ&p1%B%H
zYkcd~Ksku5|Ki`LPnNpl!002@@@j*_KJ+L+x*AfI%2NQ?VlZk->OaE|!e9nG42d#9
eeI&D20saRQCGB|v?dPxn000027v~U7k?cD0{{R4&0n}&0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*Je@R3^
zR7i>KRWWN6K@|Qrx7ppf+-6TSMbca
zS~NDTH8FU25Cfl#0Tv&^&2hi_l-0_1#m6+*TCulXc9IS*<1Jat5o
zpNVoiJYO(Ro^$@GF1Z!D_Yjx~xfNViQ_E6(&;94DS{HeAi0tcy@iGZ803;+NC07*qoM6N<$f}gl(z5oCK

delta 781
zcmV+o1M>WV2A2kq7k?ZC0{{R41_NvP0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*Jl}SWF
zR7i>KRlSSUP!Rtm8N*1#qB;aDB%7RZ%DiG`#aznlEILzNr_@^X=fc6MD0Ne*YOh`JBgyeF4
z7%+kLGl9!nJ%0k9Bv10zWmt96MVK|&tzk<4SaO?#uh!hZ-N_DQ0AV4>yl$3RV_eHE
zGzh(L^CkDri4voZxv<{rIq4L%e!tJl^vEzJ%}J}oOsPth3nEKdRa9*hh7WBLV@J(7@#WcQ^20000<
LMFvhpu0mjf=Voy>

diff --git a/docs/html/img29.png b/docs/html/img29.png
index a39cee90cac107b421587a79c88a0aeedfda1d1f..79cf88911b5ca3a564e04c9e86b841862e251813 100644
GIT binary patch
literal 254
zcmeAS@N?(olHy`uVBq!ia0vp^Qb5ed!py+HxJ5CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR?eJY5_^IA$g%G&HgbE0`$T+sE`gbXL)4ZhlbG(r~OvlE=8Agu$FyS)1AKz{iQc
zJxgUy2qc_I{d?%Zfny&U8;{O!Z0v4a+_0ZCGY?zo#|k{;y|a
z`*zvg;hKiQhMa^C3Dw6ou$*AFn%bz!=)r8ru-Z}7>9S197oa;BJYD@<);T3K0RS<5
BUfKWv

literal 245
zcmeAS@N?(olHy`uVBq!ia0vp^(jYbqGXn$T-6D%JAV)XAC&cyt|Nk>*&MYr4fA{X4
zv9a-)GiL+^1y`+F)zQ(BmX-!o<>KOU_wHRKC8gcFcXLY45CjS_mIV0)GdMiE0g^BC
zba4#fn3wX=Ms0(;HP(mM16*ls7awHa=uD)@JrQV7xIw
zu33qh`8AWDTbrc=BdZ=8pPoYQfzN&GCAQnWX=sjCoO_cwW4W>Ljh+4y5;wlc85?x0
pVe`&UPk5l0utG4=;^YAa2FY?k1+H@OI-m;}JYD@<);T3K0RZ2qQGoye

diff --git a/docs/html/img3.png b/docs/html/img3.png
index 869e09eb2d53a8c79295a6821ce0df639fcc5bfa..61ee834b5f1524034cb5e7da8d5808c76c084ae0 100644
GIT binary patch
literal 3855
zcmV+q5Ag7bP)pXJ)cT^KqNlGFqN=NrxeWlWacr+T1Mx)Vy9HN9%ePZ`u
z`=y3&=K>Bx9Qc_7wflKnZU^P7g%E%b0NDf%*o=g=5~w#{;kV#Y*}m7QS8;Ex9T&zP
z{2a7)ZqDuYkc0B6@0;>E0-Uc{ZaXrID?V~gSfje2Jupi1ET*}g_@%j!yi+nI)sQUKjrsxSrs
z1z3Co0w@$!&Y1}&B3@+Cm4=!I^YYIBetRdEEjLuT{GsZ`+6b^jX8YqSTLJ-%(Ya(q)5_3&@WTbU1
zyiq3R-UT7~__}H#L{D4r`V`e;qQ4X8rL;1@Bu4Xmegv89BT2NF)ee!6$u`BgdGk1c
zPTo)-J^90+tml37(m?v|O^T+k8$7?ce`tIk*lC2yM52lkVG|IZjT;-a2
zU>~{rc+Srh>bxD}4DO)me?|)BsH6G3FCPvZ2XLI`*Y@Ku1wo=oyCO)p`c~n(T$3P4
z&7t)6`=n@Aa4w~2niv8&9oPYk17&>}2Q%wK0RhU|%_TgN903xe
zrL1O%e3`HHG8%dLnn^U$%S2D7$GxO@JN(sL@iiUpdWxgkT{Md*b-?&ZdwiftL``Nb
zNVhIkD|GLP7gMy(ZkSy9qkB#Lv?PjsPcvclB||YJ39E}z#5#b60if^>t6*WyE!Fnu
z(rJ2jjaQF)k+=k>jUIfQ;wR`)J}kljzHt6+V^sh*C;%*=;3zo2rj6=y86Fu?69h?5
z6O?2^j=3CjNy;9&PG{U)Q3}9TA};Pj0&t)NHh_ZyMdpXV<~aN(sHmTSMCXy*okW+0
zI$NAeB)aj?W8-!(oLVdzU?YUt`rVE2L#W@X{W$e@T`#E6f(y5Jv*KSDZd_Pc7eKrK
zY;rZ-7HzmN8@PJ)TOqWcDa>Z{oxjZ5lejdx2O9YgXzrJcx)+JBseu5#i6?M_VzYo>
z+w1{u*FZ>*S`w5~>c-rDii)y_@^I529B(J#TEqby0|&N9L*E!o%;8+qLJVGkwI;L0
z`2WN@E|B5R?%#>f73+P3pQ0_U;yYT;(Y^TXz0mEF%4xRuor}Hu<{z20aPYk8aXAD>
zV_Dity(Aswske$s%c)1^sYfqKN7U4kOSvVX
z$z)0mdh|5C@&P#aG{Ic1^5lfX2_)Bz!bLJYw~btK9iK?GT@!R_i&Ht6NSP;+Bv&Nm
z>L~CG7s-m$Q6eQ*^^H{4#)TUf)&+oA1#Pt@R|OUew|KL8lPkw530nwlj1p!7q3o<7
zMI9y#-6*t1xu#(Q`C?ntBll{HW*>kn6gr{zl+?ChyjHRyq}MPi?E@6!3%D>@^plQV
zC=7%bg`bGRezx%UHu$hHY8|ZmF@tY2ya~ipnPUR>Z0_8^rKhr0%?L);Vt5z7)rZnnKeYX);2owU=eZZJLWcs`l>6sUSQ=uY
z#ajyh%gpmu#fSYAAS`I*Bb72%f?WB
z>3lwe>3rSKD5B%;a<9$hZtR^a&sXTJzX%1TEL4b4ZK{o|5XjW#TCyFk&zl}46H+qQ
znMGA`s1+9z#$l@qTp7evhv(;*RF;
z7RHR$CXXGC+M!Ki=k&qKJ@^?OmZik)EuH(=-5{`N*k&1`9UO!L8(TP80SjLh#m4TB
z&J5FAa{w+d0VWyV#Qx4248enmk!1*?1yE$xD61EU4z${@FdkkM+MvDH+EEL4IG*(#
z4qL`P$hCckqSM9w$6=?;D>R>JJyV|DHw8d7oT;;FKWpy>-Su@`!*Wf|88xPq_2pdE
zmnNw0V=93128Zo~W>^%!#uh3z7woBs|r`a~>eD*OOke7J=l3LpqdX(to}%BKL3|A-e`rlRRmN|Kt1M@=%Ck|`69
zOqX2B^r)7`xlECJb1s)!r;yRqqcUjT0uLhS1OTb$C&z;CyRsh}%#KTgl^6#gX!`juv=c8Djj2mrvbP?PE%0DJ?ZP)rKz!}t)tmyZ^J^5Mh?
z+IrWY$3Q$}i7+4Kg*Yz4|JlBmSieDJVj>Q7a}6N;Gaw-H+o`uv-)lHcrIC=igv<#U
zEw}HAICDMTxywXtkUT`Kc8i+B72i%ZwcRaug`0f<$Z-u)*6Thxp>Hywf
zcN)&Cr5|hrpw%&ByTWe^AX~qSMfDE5Dn1rNT-0*~S15RrJo@99eA*aqUB+E|q@I@V
z%t<2ex$5YGYdm;TjdY*6J$LlD1#9r1{*e$z1KAi`(ch@@FSKX-A_d0w!4-hbJ983zt@21#n
z78`8*jrjL0x60`Pa&
zofN_V*hUx_gSErNk0E^HR*T|UR^Z_J!|F%S=hF<}N<6v8c!c8LEy^rBhJ
zGU*mLj4&hyF?@NFB=w3U5=xKEM{;XRm0ac|<#-pNTjp0W=r&#g4BHydx3+&6g_pm^
zbKvE#F$k>5XH9>x(Hc+Cm)zXm#KJT1007%l1Wt?~G#gl_fMc_EOTK5}Ve6J5Ao3O9
zQtW&;uHp%Ju*Sv)HZxgKe*7sCiw$CITCTibbKG;_#ltYT)$QaNc(~Q=of(Ax3-y91NT_n=i_^
z)1@2^zCG71>TRaqu4+Sp2ATN)vs!jWIev
z=vg{J5Y7a!fu04$>OBpM)q5I3{Xx$baZ*5pWmuJF;>V%-gPtw+aZTd-M*Yynia04C
zaB}%+!gJSmdHPz6Gn9%LFGp-t%
z=af?Clu~-s9%W8$!^rKHaT&Icd%%OtNgnf{NhZ+VdPm&T%;)Kzhbjg^5>*IDrrs#=
zj@qYzhigrju5+!I*J9NY9P^M&S9&hFy~ALgCu5nH=RuOO%=aaIuw`yvTF%YY!P=uG_h@Xuc_qYV#7zDQeFq@jJ0{PlaG
zDsxil4b>WL#)CUb%9}BZRTyjpe7G5mRf~m_wQcX~2#U9~s(I0EKcc_ddc_y1E=lhu
zTkoTK>Q%z15A2xi)5bAHJNePvW4BaqWVs0pWna{{vddeX@|3
R?tlOQ002ovPDHLkV1l%$aU1{u

literal 3149
zcmV-T46^fyP)0flC>#}qlBS!?b3Kg+=6WZ-!MV>`^To9wnstoUq5Ei;KoCe#`kF-&5JLqv
zB^2kAJm;v=UNKc&V#PI3booiR1%p@8A}S%x3nP6C*oal`b0K!8Lp)Y)l
zP2WCF(3W@^)D76&obX!I$d|^y_b0cfWf)XxT6EA2U=^Oa5}$dXfRVt;>c=iLCHnTo
z!Hw8Y)c)t{F;#DhG2Ep>?nV4?`ts}cDqWAM`;+wcu}?p>#8*S_3rJ`(EHxOso0n7~q9^TigF3Dk*d>x^Dv9oDAJtI2Y9d*vAWaS*a#BuhE+
z&p=rUAde~e8b;sIWcDF4foh17wWnA8$Rh3Plcxy#>SW&}6gQ&#n|(a};GRev^8YQ886g9V+*~kDLe~+PF|F&P#D2mJG<`C2wLFKv^D>P0g1_}X
z+~s(1agO&I@iNDXr}{L<8Y<@ZSNf-4pzV!r1%7aJ3>S22!T4CwKO{Ws%}JZkajmaU
zh?FM{KJ*>_yYIkjNIe0!$(Ea{uHc2mJo;h!149R3g#qCld!c?~#wtDaj5GdY2+V~w
znkqQXZJkt=4%U))ocKE^MD&d|5H*4lm>L=NKz?rSYY~Kq){54M1d%ZZE20_%b40LN
z3h=~Sqi&&!g7Y_C_tEILME;u^2(_EwdsaMLr~8dOsmWwclZ)|p3(?*x19lseEefOA
zKibm&C=7}SVNvkYELm@)GmU6L%7CKpbq^c>^9N~a3a6I4eswiolJV6H>v}P3`1$LFoxbuOQyg6NL4O+9+!m{8-*Rq@IMJ
zk`dBNQn&oXOx?2-eu$|HT%gdEKv1!2Dr!=VY#d>0FnEAy%PV`IS)gtD%y!~BD~GzZ>|l!dboEzeTrZ@0k*fK
zL!u_t8we8V2wp3I8VE7@5p@p4K^}?YaPu+)@F4=EzcDjL6=WXL=^|7@sGRmiE@?%4
z6EyP^GMorMfv}R+XgW(FYUwP?P^)q~5q<|DisvpDbniHljKf4~An<7FfdA0w>T*5IQ~urKaZlpz&#
zJAJPff+6i`^!h0zmE=RO-*jyq7QhJ4%X>ZybbIoKuv@VUgIlp}Oy@szD;~VIo(QWM
z?yqdTV0I|=?bA#f(hpX$6X78%c%Bq+UYVFY9CR@76kqfS0x2dj{lPrm_(^sjA@m%8
zEPSsMf@Fw(Vou`&1R5FjRR$@VDQ)!=1k!FhC7kL^RM194iYmXGdI+Ttaw7aJ!m>Qu
zBdntBy))$@8%G;(-_tQG<%zI?s{DLG0kAv6Nx5JXkwpl}ent%@3}H}aW%}asM2>J)8*dGA(hAESzb@rHO~*0znq_QA?Sxq=eA%ijIj+j)ULF->Vy4
zLI6wwUK0>6W$eeLe`8myU(HQqgf4+N5n?CUQ4D09a>Qt~mh9qS^Mt>?5tK)92iE?t
z7kNOZTVVObS|h<+$C><1GWe+vG7TG;|LH}REoL%A$U_FASOqW$eT>y#C+id
z<@SeVn@f-k&9LDcGsmK3BDwvs8>&o(v?UyK?nL2x&F!zWpJo|IPj7e~erTa+;xxBE
z>II74!%1JE1q1coZ*h-Uk=l_a``7d>5cid0E3`eOIAz$M@19tv49CFwwhZRkXmW}!
zKihNdOC9OUGHBmEE4k0<-g})~k8YKc*I*hc}aYdWJE
z2o8<*?CLit`Q#WfJl$G5|F}OwX-)=u5AA51l6@DlaTf;Lm8{yUwF=`5`GRMZ|4-Mjx9-goFAG%rI?`~@%V5QKG#4voeC079Uy%JUXX
zKs{=@^DQcP510N&b~NB!I#B)u5e_}iaOX?3LBu7(Q9gr@TwjRR$l@Z@{Uq;m$DMiXLSEaOvR!
zhd}eQ>%O~@K>_$-DTJHfjOKgqfdo+O64m)sjWTEuKJ75vYSHqdj9CZq*`|*HbINcG
zm{W#h!0cr}`~@3mJEY%_JNbqeq;$p0=F4I>rQ<$XF&(*hOX)Aj@E7XRybKoowjU(?
zoaWyHer=wul*(inRuQD=3@e36Yv2#_dJ1I_V`v5nB?~j|Mn&x*uOb+uGd%WEORTa_
zQ58B+ajvFQhGWo@zV*R@c9^h}A{mCT6aGTUeb|Wv4mHuhAy?lEJ6Y1VqIe2B2}cM!
zStNsg3_HP?!cM$4_KRUB|BN<$d^%+~2K_l1s=7h$Tp^oo_koi?>w#^|`TpltK`Pr-
z*XKvy4rxaj08^m9Dz=}8DdR_aFi{_5Fy6&GfXj{sP7Mh_mYKOzGDM#HP1C&EL1V~p
zc90J_qF4ZQq!Bqc?8G)q87IBZO8y?Qvx@XV&hB|1c2J~4J;=bBUPR*$ZHMm`=`2$+
zh=@`KM(Ig?10h>tl@2+g*zvY
zB<;)eBF2Zhq)|a8L-XEK+>KEy6;>IoK7g|q=-GL``r!~
z$`Dnz$Uw;H*Y-;VM#1YJm1)Dib+;*!9ma<@S85^6a2`XE;x%2Ln|!Z%vE3Wa^H*-@
zcKjQLwpb{1kqjJ)bY!zhu
npZPS$jZ14AU&HoNB(VPjnnKRliFdK^T4B?#%7nuUVA1AQopOhlK|ct->uBh&E!1
zn07(IXrb2~ip4b+SGhqj1QNVdn$ADrnvixYtK<*RY6CfuH0w9(otis6^;QJI*X;N4
z-kbS$=9?Ly4e^aKunGG-^V3gY
z`W-6285^DHc(>y|118zj~l9e?^t&bnp!w^#gi?4`~&Hk%TtnFCikXu9OEyTVn
zb3;OAW*S-l8}$`)R0xNuhot9ypg^IVMFHE0J1HM4{o%}^Bv9r$GKYK?Kk=EX5aKlrc-gP!PxeNn_gNwTVz2v{fQ#6-4VNkT*E!rki6e
z_zlEC5YmDmF0G;
zjUBU3
zmYC*Qz#0EL@;glvPIp1@2((YvWI!
zl_MjYP|FbvttxXC%Oy)AHaiZFej7xG&dvHWVnIaMB7F0ob+T-B5lAsM!PdI$x-pq0
zzGQ3;Pa>Atzqq5mQBNPmqdm-K>ezis0$7-Z6uhk+Alx%~I
d7TbWoS?~8oY2?XkDLViF002ovPDHLkV1lc`4J7~o

diff --git a/docs/html/img31.png b/docs/html/img31.png
index b0759f28c537a74501498c37eea35679c0b9351c..ac17f63f507fb1f5ead7a1c34e3b59f0d23f1af9 100644
GIT binary patch
literal 1060
zcmV+<1l#+GP)1Z%40000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*KqDe$SR9J=WSIuh_NfiIhbWe5HB%K;p*hmm|#Dky*2Sj%-G7T#z
zf)K%tmjwqBKQBAW!iGo=Z4j62snnSGks%Wgdd+{ZbCJF2oP@w0B8aeiYK53lg!aAe
zo=i^?i4KE-B@e3ly{h->SN-a}*VVu#WQ|iN;0eHimeHV3tq$0m8E-)5GWX8qB2chb
z7w|h+X(Mu?M=zkEi1~%K4&sLAN|0@njA-Vgf(i
zeyO!V3_P0mpA>P16%GuoXnGuauv9Cs>}r~=nitZu>lar^Alc&0uD{0Dr|A4F?!2}M
zKIHYWSxxZ0(WAzlfp#|$ky~Air23=~ZmtK&1VI49kYbkNN;1G-#4Ln%su9o$)*YFV
zp;vv5J>f84s=H`~R*71gMS;ADbgqTVL#2AjBHZquOFGx}CAX>DRQI@#s+XPU;~4k6
zPg+WFEr`1?G!a!cC!STGG>xr7G9@b`st{3jxZ1!-`Jap-j@xn&Ssr^UrR`)K3i26U
zsLjE^~nC1D5!t!*q+DJ6Qclt}0g0xDn1NC%X08hS|tQLd1wdJ{nQVM&)H
zdU#8;;lgR}m>A9s2AElcx5JlW3cRho6L7SH3AE~mmsneoDLTI3TMq|_<
zmpWz{f*dvq_#kVX(IDUD_HJr{%c8}|gWNEN~gKHPMQDln?~3PsnvMTi!o
z;yg_(L;@R363*nBcO4g`)mxUjG)D4H)a^>FWNV~HcaLUss)nM+?4Q3LydIk6W7PNm
z%Ku&;p8BD2|Ju)ZS_$ut67w{(Yb8fQXmEwZqiay_dZhIMMuR@9_Tz6FuBgUJMh72`
zwqRY19{b9W&CqsY)E31-n;wmo<~|!swf;#e$t5dI##@&;389`;`hq{j$u0R6yRsFa
ed~(~=5q$(~73u=sM)Ift0000#~Z5
zt`>y42XZzM5yTIjJWFRTN>|9(
zKJ!37QG4h!QfMrhG@~0=BCIJBskoKhJqB^8f2FFuRQS}h_=?|y?}T6bXdMREuG_eA
z-T)dEZ`{{i4ZxZstozryrfex1Y}IcRJu**<94e)A)X}jhjErTaq)Cyi9QlpNqz@B;
z^5AJO0-#Jm6vL2-vN;L8r?^}MT$?d%|3u5GA1!UH+@$u(@*jx)a9%!m@ZfET>j&I@
z-&1&r8XtN2HmTzhc#g4pX1-A1{y={#Hc>R3wC*VMQ~=IfdV?KD?QFaYlAUO_xhUj~
zBt8Sr7#9gb*J%)K1bdJ-F&n5kv@=6p;z1Z^6|0KMX&`H)G2G6Fj3OHw@_GsR!Q1JW
zT<1Ipf;J_wkjbB=(Wy{!!Gm}heKvy~Y@N2voCj2*h9Viw7Jf3~_{
zWaMAF62CFcW{Ek(Y#9J)#)%-z9Jl1&1PRy6-LOb98+)1vwHZ;{L7aL;x_WljCx>W1D
zls8MzB*ZXZLvB6FcA{!&s<9TA-za3s_zDryBDxvsf!!?|NA{8K+K$+@HuAXfs&S2GjT+ehsY5I9A2MHWj<}3j^;}X^PlILKswxntN-ggfK5_maHFn<3;Y!7@
zFN$Cd0`E5T7$r^gjRe2Em^r^3|2^PmU#!0l>97|cJop~`2JAl@?CarSo&W#<07*qo
IM6N<$g49C&9RL6T

diff --git a/docs/html/img32.png b/docs/html/img32.png
index ed749deb990c719fc90a94603bc7719606b71773..b5d11a44cbf4fbeba3822b6b7c9ccc16aa5f36c3 100644
GIT binary patch
literal 321
zcmV-H0lxl;P){0tWY4ovvK%OG$8T|ag(o#VU20?q=CE1OzlN1TZkL
z@})5pObd9%U;uPsO%*@G2leCa8pIh%7_c2-52&5v@U?*X1Bl7cz&s%gD4gxUCBX2O
zVJ1T=gvsCyR-Mf7m61b%WeY=C8i>ihK$BqtNIZq%0xtuD0|OhF$#8`sfq?-4bU-ZI
TW?Mn^00000NkvXXu0mjfIM#Mk

literal 311
zcmeAS@N?(olHy`uVBq!ia0vp^+8{OyGXn$T*2Z0aK#oCxPl)UP|Nm#soLOF89vT|@
z?%g|MW8*Vt&Ik$$u3ELKqoX4&Ee)v9#l_|B-MdOkO1pROmX}qW3KU{23GxeOaCmkD
zB)`?u#W6%;YH|VtlO7vKK=KZTRKtS0*aIg{HZU%;FHcB#kp3WiR=?WB{SR*6_t%+}
z)62&5hfkbGNWyZ5kXXzC69(xEPwevz8&@_5HZ?Z3PyXNN*u?a{m6wO-&Kpi9{v30k
zgn)#Egg<|J9S@i}KUyGF=qALL<8Q%bv6FR%lZ2VU5o4B392?5n7+Uk|6T}i`96eCi
zc)7v9kyk^BIjnZ}Lu=*3aSK?!^X}uX%Uvma@3WZ!1B1kJtrm0C|~8bDS1
z#^IwtV%R8z)>0x52tEoyXe?
z@x(D1ZIYP-u|7+)corqNkav}e$3KdU`{2I-_Ey*Z*|u61#NLL2nMUzCo{+*ML#f6k
zFVf~l)A_vo{alX8w;6xeD^{}gH`X3C4IjDdMEx)q*&
zm^8<=&>YV~GaYs#t_r|&z~VLsR0AJg8yC&oie>x7vU8g|e{Z4pQHEKQAbz{E{(>SyReZo?v%JM;CaA)Eh$tdMZ70%otyHz&#Op0}}>hYeX&hVO+*8P9xO3nWw7_dbj;PeBJ|VhC&c7y5W(C
z-(j0SLzDeQ6HkB{JZpl2e>{?AMTOU)<|$a@HTjC2W9CBUJZ6iX&AlC%ucfe4=Px|jb!iy1g?FTJyyh*#8bFiRO9ja
zrw&$asN~D#g+>Wrq4j(jom7D{g1MIl)ift#4B+d1%xM9P_Ci7XQs3!F+ug~>uWr;M
zl)_D3Vw5=>PN9KKAD7zT4PwvCAV*y`{Tu>;T+R$sGkDLop&8sFvBNErr5dIpHi6s4
zsAvuKx`3O?R2DwCIS0-VlL0d`v*a}eJTD6tY~s}=z=v`cJn7+=k=T)KDZMgE&4L+R
z1xg76osv8A!-gDcMmEx1s!-f9z(o{!Q;wu!cylX`r-+Gd7WkhM;Mpc@%8$;({W!2Fl2nwT3#bb2S&LaSdpw
z5;Db_En4a(H0{uWnm7qtn|lypIrDCJxsJ5<$ik0H^MzO8C39!%;NB16vwj%etA6HQ{-sV^F5`Q7%V}zZU+Zl)QaIZ9v9eqo$u`9R5eT?eYXNSG=37e9Nq;UIA-Lwcu_APR$
z)YsC&PcA<1_39<0berPlgwWnoky%nqv{Mxm#r)=gVxzBP1H``~%xWM`LB*7QK@f%`
z@?=Auq11t2DI&{Sm~u_!THdjSYtkpkiScucZmgmA3hL?(qGj4zfhcEwBB
z0!>W;vP}UP8@K!HsqqX5nA`4?k7pX?4n{`TmG~@^v1M(sEHN7yg&~m@6W(&Uv8H3F
zE08I+_)Be6{4$1VmS6M)MzgAFSz$Pi6uYWL(bj~DiQoZ!fZQ@GpFz7`4)nKDVaTBO^egwx@TQ+I^*J|!-r3b?GH2CMoA|rTb7%K
zv(+E+pze7Lqr+F>btz6qiqBR%Rovwr*vi}>Fc=|x-$Hp9yC;Bb@hE@@DBB3$>#oG-
zJv6d=bii(um~9THz|w$D2M|7>=jIsZyT_0zwzz?}zuX!AGXaV%H3bLCR-V?6O2&o_
ztQcCPxX>&^#qcnI;PX>-?te-jkfa#d=73J{gko;ofnlkMiZ>yXf(;v7QoL|2PIXbQ
zc>yKimVF6kap0BtL;%_8&H77Ml;%s{wYC}Ob}gK`!8o_0eG;9dee%EO@D7pP9uV7B
zS(?M!0*>=wai(=4z=^bdczU5o*Na^>yl)&Nc@?-2Onp-<*ze&DrtdV0lQNJj$iBqY
zuw%d4^VS%b>`xwx=|G_WS~6LdM0jI53@Z8n=!1hkc5XuGBRQlk2l}`@%@O5|387EJ
zO;b!X4*Iy=j!EdVXHw`xgI^Z(anqrX9ZUv&@HAN_^l?+6PtKkY`qbrep^uvmea=h>
zeQ=jvhCV-Uv>0B8BD4}wb?Be9GWu9}1ifVP9QPn4B1ey6zgz4(l`QU=Gbp9eT9(e@
zSK+ZxF~gnLQA4M?IK75(4xZXCd52;BH5vM?0jx9NvvRAvvqeL4QDcrU-tsQU4ULR5S`6S+L)uyqntr_Xr54NE)$Ix}j&H-%?CQ8MMK~ZR(8h
z*M}#Z;7l|hW)}`Re?5AV@=^52JU2Lk^P%GW=LV|!xWwR;46_Km2yBva`|weT2`zp;
zD%c5z(u8iYm{J!jUL36IYe;bdv}oNSaRWU3iE9A9yiLMwokJK7-DrUJK&XEB6Hn@1
z;`J-_eBHZlXU%%)Nf5iP2JyK^XYP5(=W^zw>Q^Pp(xtA&x9#|_inW<9PJ3Lt^yAnG
zaLvwMH!VT@^0VOV3EPpZs}DTJ=DqXiZtV37PXcS|vzWNJnk?1^;qXEti?%ooW+}8`
z2F~unpl{2_Vlm(Z*ziTX-aUgndB3dSECwXxdyugZzM?hJ@Vi4KF0Lkv*`Q~-vq2W+YXCnz
zfrJ0@qfMCkQ`&bp8u7vjbTVTAlZhWJeVcoUou@wr^YioY^!y2Qn{9C8t|t$OzmwlO
zv}QAxGhcvz*~hZDqy^e9ql|kWefrm8ZPsG#vcj{*e;Dz7IuD
z`w%h~=3kZ6h|D<5rCq=1u_mqx>03BNg~N
zrS!?tR88;IrT!nVBpLSrTse+^3=LYOX`lX@=)f~O-pKZS7cri3bmy7zeMZs>9^pUl
z^fmppA~W)}OJTlcg}H`VgnQ3cU#SlFdYBx6MEh6^3~3AkDYnAGTQT}dQ9KlZ#9S!=
zW{5>?fCrl5JHWp$8$t;!X+QN$%3{(2Ls~xOdh=p1SBk}GQJ#JyAWklUc@hr6pTmO@
z?!Xf-K96UJ^m%+2A_wY)1r21jSarA~C@P~_3E-@slX%*5`DTA#D2q!hkZB4&tzvCu
zRnhg=!^wmN;%>N`hkUc=w4?f*x}O`(yWrmtTzG|06It9HB5`pw71$seUMPYr`bI%d
zl6|D}KIDJv?hq$sXdJ1StE8wG7pUgyybCXMI)Qb~c@-fLE(85!LW7+bB7sCUamL!7
zizMGW+k?3x1cL21MD^L~L)?fG3`vczX-$J`tOr2giwvUSMWS&$#edQk5dvJ%>yaQYozEAaa?hV8^SjrWdtsGtG)
z+mK38wH|7uBh4bFLg@7=x5=Mw?yE3gJhs+L7tUpUX6cmX*&LU~0k#H}#81KRNZU8XP#koS!m(7)LqnO<6XIs)&8DVLE?6D9v0ws0OV&7v@Qx2TktoY?m<}>TbZp0vOlNoyx(U~um{or
z{LhjogA%4(y420?gs^uoy%OhhNI?8=kHVknaCRsD7e-D1rdH9D1UgQ~t4WhEBpI`s
tG?3jHq~3f^FAdG^3^GylUd?38{{lYpOjRyEGHL(-002ovPDHLkV1gAWUAq7P

literal 3994
zcmV;L4`uL)P)Q7vW#|FTpjXO)=L-Wse#O1aUBRU|q&t)`ygwxyLqTU>uYOGCm&
z+A4~6ay7y9(r(}TzM0wCo!K8=P7^eb%*;36kN4j9zW3huzBii#=mW+m-aG?*yyHK5
z;1f82|75?hz_Z__(J*BBrQd^rWu=BU<^yxhu#*Rc_?WgAzZZ7)MadM0((mZbs-EMD
z7EA5R8V;m+Kwg2I4qETNPJeVUFhF~dFlu1%JP}$&1Rmst;Di)jAnx{&`4HE+6X`U6CoFCV3jP{7HjSUI2|1z>xsql`-v?Tcx(>!uqug2
zOGWMzd5|mT$|^gJL^@1FSXxkwcVH1^>f*qRs8uypZFu%DFiw_GH?k;(9GIRWcrof?
zB1^d{-2plk}t$jrVDJT%y_
zlK7=0%q@M`=+IdYelXNa5m{!Io3N-D+C@tFPG+dpavgc~IYUGqpU(F+PbayoW=gj%
z5Gr%6S0}x#D~cAo8>O&Db3GVu8n9$!fYbmTpbIc6no&Kf&_rKIU72)>33#AY?6mly
zj`sqbIhd|13$>`KN+O#HUN{Ju3n3EQj;Ph)^RKEAd!~5<+@u!No0x9GD@8DD$G;4I
z4sggv7X%N&E(16YW{AqE;!h4
z08@BZN1p~spTp}Z-O^yHLx5@eN7}-?uoMTSz0wP=Xn$+#pCRjd4*1NBi@mT*1<{tv
zGzKT2A+Ayhjs0E7mxj?akI=qwL~ah5ETEZM3=M3!BndQdv?G)$Yk|iYA-M$WR|G~V
zNdZ(HNxO<@YP>dsCZWabA|#A>IDa3@8j8beUS8hL_9%+U4bBz
zK_prbWf42UR^-rIu0vEUZ@3)RHmx>+=H(-ydU3a6!j?`W=!A7LiZcTr!w6{8!!+fx
z@lu8dK$lRiHYmU_HT&MNI>n>0-Ono(>KgK)4eQ`l#TwffwTsYQXo4!@^!n?#T6s+p
zpf#Qi>3D{LNN`X@Sgg|iCP9{DT@2f1PvRXU>pM?awg9yo;nFHo60?WmCy}gq{Q~3-@O0|
z9N(1K?8yPdl`S2VzC8wlxGtVG!f1{b`|G3$%rJbR%47$;*C0gi*>KNr05g6Lj)bsazUNw+J)p`y`G^n|(CB
zkb`{IZR=&rN1wfmcgAU*upV*SnLwuHE1r(mD~Sj*0#gKpb9T1R(Yh<3we1V#d%(r>
z?FT4FJ~aLi+;|Kf#VXACd-&x;AoiD`CV#lXex%Gv)!^j!{j>wyAcS#8Iuw-A(fCyH
zsCZLMu~V9O0j7PteRZ~H(WES)>Q1Re$9YX#b=s(pL)55)!oJ65jg
zd;l${>HSBPIvoSYt7s>xLSWPs$<&IqIFRZPJGSiBkuc38MaH2g2}7JPqeyV2{ZJ|+
zBztzo%`%Ffn3^xq;U6Qb2DLW=K2h)78P4&w8khxTMd-MMeX!P1p*|zRu`-?mu&IhM
zQ>K6c9###L?t<2YWG0QgC{8NRwPtpdSjD@Dx`WW$)6kdRYKjwRWXb4cg%aT5TR2Z&
z8ErLv1wC@^82V@NM!|%funlq5sn6DC#EelYnntHRykBW!uPdozm1fK_MkHx^^-!uB
zP=zBF1ZQlyMNKv+6E_t8!Pd4~)X@^&=rS!7#+RUl6+R=jk9CDGNlJ?|9zrdqX
zlO8qm*g#&&R+Gxr2`-Tk!+JW9B>Hv-l7kPO~OxWJj8%{$2T1k7bm
z!g9H)o@A9-u<1sVV7I`eHO3jL(boilTIOC@HRpv|?f9wK-JUj$=qxkpZ?W+(bprNT
zg2OtRT#4dr=!i#5jPZj&J*N??7`E@E_np#q8h9SVa{vYVb~Febh*&KT&yBMfL^ye^
z)nuasDP000>!m@lE(k~dCUlu-iVY%cSlCCaV`sc?r-tp)2$8S_PQ!z^ZEN6sgP!x$
z0ns|cT0L@^xbJ&vNm~3ciXKh&5e)Fb8Ct5hHi=#SR$uY8CG7<$E6wV18Si`dH^5~3
z8}Cr?p{~};cmT<8%^TZB2kUV*&R6lcLFzO$%gllcJN%&&c3H0QXnpLIerTwP;Zj@D
zTIz6eTXZ|N|8Bd!(^j^+^ok(f;j9G$XARC?=wlQH41H!?Dy?7Wqh|&Teax9O!USs!
zePj^VKlCwNSm)3uZY#Y)pBk)d=u=eu!9t%I?|kTUKJ*zB4nw4TZ6`**t4IPZ+=wnG
z-=)hS5c_D_MmR>cV^@;f8e_D$Ys&}}cy=xzjN#50Uq)h0d*q(uBF;g2Pe2)NJf<#E
z=Lczh3qM09)ruj#BPJv
z4t^Hkp*ah7en9K+Qi#N;bq**TxZrV6$L+4;u+o}6FVb}yRR
z*aWa|*Z*M(TtO+~YUSiDSh?#mP?{KGl{Z*ancX)RNf#IKwLhFP!I&Bcb^cUDJh!l6
zyTG&axC8J)a~wHrPIOLKnVJT{3{6*mxTBiXumpe7wJXNj)6jy0w7^N~84f
z5h`ePSy92Q4MVA__;Hi)Yk8Y!U2g>#S|x&#gWYsW&Jv!(R^Aqqsm6$fUkVV*R)A;2
zY8j<@FyzAtda4acse?_8uxYX&Sp65o4yL#EXduzXjPaqYY|P3Jx*+B$)6o
zEu=(USBOO(PD(H%R+w0Qt0jzK84tg@h_~Hk8?HZ28~P*~e0dQ^E6H%};I3&H8XE(6
zxXEE@X$hv5?yxXgx0UII4KOvmvWUo(`RNVp4*fkufodm8MtKou%}9c~nxp%Hl_w;g
zOOfo-lBaz6gF3qkwg`D`3ekIv3#`716;E7
z7h7ULGS`wIcH=o{Gtw`Ky)R$U8}SJc8sc~kR328Btm{N0*5H~Pf{X*h=21x5hXpfK
z5UlQnyFwJW5C0~Jw6uk$4>!LPh6t*g6rHRwyxda0{+5N`%hA!vf^YBRrQt7#k_PVBcvXA^C
zQm1n<#ltETC#++NN2{(&-~k_9is!Vo&MBU~R)FIiP4O596QYyCTx*JF*p(R0%@j|`
zg=b(rQ#>WNScy;gTubp}%NzZ5P4VPLehcSQJSlKK#j~z(KE?B);J$SkL_5Y`&zP4r
zLEy1fn$NFgDLr!=yR#qZkHk#72b5PJ(
zuV!3)JOq^2_}DP+pFkZI>R8I6I7FW3FE0nG}4c#&?A1frI=uTMa)z~e5NEvh^
zwEkql*@HwXCkas^C=HS^X}3XN$1C5L*t)_00Xq`m(}@R@rvLx|07*qoM6N<$f@N5N
AA^-pY

diff --git a/docs/html/img34.png b/docs/html/img34.png
index 75e66a30e60b99898f2d4900a6ec10e6240938d6..8fdb928396ffe57f3505bf9fbb65c91e524f9605 100644
GIT binary patch
literal 808
zcmV+@1K0eCP)fb&D0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*Jrb$FWR7i>KRy~LlQ4s!;>~8X6_BP@Vc1EnU$rd6ua$DKh1gr$%
z)}JPo2?rjc;06TI#z7Cy2zqN{saIL*wl=z;jbNdTsMYGBL`34em)-nbylfE!#V=%c
z-^@4j=1pcM3rs}AvVCy?-CVpb1JPvWFql>UNG16g@|R#vw?Po!g?y9?=acKm-PWI!
z1l$5S!)z~w$5bF|@CfkY<}=4CK%LXYLAY{JDWE8n%tD?@q!vjK=7e}M$O&A#bLA7Epd!I#lV>VDM+ym!W()FicZs
zZhV&*PMVYGKhv=OQRFw37UFw|25n@8sy7=X;&mW@DEMQnpyx~zcSLM_k9wH1ewbC5ww^
zxq)JZY>S(WHG(5F_**e#A%y*?8K!{>2jQ|NiQbB9Qz46iRQ6l{j3dw|CT|?sG}8#$
ztyIqbX30000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*Jok>JNR7i>KRn3djKotM=D@~fD4XZBbibiy6VJYod5a+7mVQ(HI
zA`2qegV%-F#RXAl{R_4zsCWwEp*Q12Jro*5P!J{h7sL;C7ZK{4Nk7~)Ym2Oc;_oo?
z=FNM*dGqGY3=oSofE5nl5tq~PCNVg{o2<;J^@O4@*~eTN$yFSt_R6tf76u;|vDZyw
zb?Wth2`-pu+YA!lt3$CraT6qp8Hw9Cs^>jJ>WoS{0uzpT?$s2&LnMB0tm9C|a;y!*
z(1pxFQ5rnGTdho3T(mVL@faBwDvk1;PDcn8q{ylOCr^G!47psOH8|f97iS8HQbP<<
zQ*Fg#Q_^1BRZOqYQE_&VFR`BP?dZ(o7Z2^
zO*d_5OTZ1f1Tdvp%&B-w^8QZ81ynULCu+#2dN6rSkd>2W`*aPRJuuLLog`G7TCr6X(1Hlq$P-1o;&l-c{{xnwe_Ecp5@z>%MgKQMTeuiqGc1PF4B!@4wV(I-|T+1rP3;-ilGH4dz4VTXj7j#IWLgBO5
zc8jR2oXOR=V+n(oH-(Q2%|?OLk|8-+ilOBp%jZuDB)cT
z^+?)z^60VJs@pE@DJHu9FIkOJrTLMpBMyF)3I~6feT^v9_E5^7rnH=h%Q02EL7zz-B>7w2zamh$3f
z_yAMC@Cz5VKmePwfL^X98$evniBp`jfU`l8lSwk2fq@Ys-c<_{4`|@Lz{&oLogslC
z9uz(X46F?NAb;^^0s#phSb2aZCP36PGxP$*)sN3F@b6&cVQyex0*iALH6-A$R~?J^
z0vzrf1sH${Deo!}4l!mV4`<4`;9kO0XJnJ|daUzCe>82N)Q6AWR-KDF&tum|_^<0K;PjULXX50w9MRFn{UzZiwydAf6V(K^A@>
zEtx=;VT8Z|oZ=5yII0+#_!&MJFvy%a16KC|mwMI@xXc+m;J^V8i5Y`f#F>%B0~A;i
zF1XBLa$sO^frvYCfW#Fx@N6(xz{<+W!0-kXJ_io)fz^Ldd~jjIMh+hC1_nm3`V%}1
zvrx_FCDA>j0Dn8+K?c*%1P6d!m60&l}rXLzm
z<$4Uv4GhKd7j7DG1h8>CFe$JV03})*kd-HJ0gYeKRy}OfKotILCw4BxwIwJO6P=(;y-F-hmI9RGm
zAdJ+d6CD_l$WRF}AbCQ{#Kwjc)D{&aWZs>BVv^D_w4M5t+?~IB-}`)b&(8+7GuK7U
zSOz9sJ40-TfdksMv=Jx5voMB0b6F@vwlR@kZp+Jz6(gQscPqDXR}O;}!9xl0HkeUk
zTSwRj>)M9u1AjQQGT_?z#re>Y6Qb5ir}PEP%if+uU>X_EkUp6DC|mw_NJH<9{XM+(
zeK(Oek&$2X-b|!gO|Pyq3vS!TNRo7EN`o&1ZA90Q8IX*3!5#6-LZCp1!+sRTC^>$}z6dTe3Rh&x
zaVlF!I|wMZWOg~5NlZFIYgCy6DShC7b$$O+wZW9O)bSly&}_*uG98L&u^9z&O3jlW
zUbQBcWPcJuPdTnE46oOza1wz4n1~`#w?cAx%v3v6e
zc3^vBdbx7Wsy3wmX#Y#Q4=6nK|E#=5$*+@kjGiFg3!6SK5@@srJ&o;kikCv!ubuU$
z%Q}uIbg+eI&No*rA4}SsADjuRv+7*NSwbsONq@)c@Q1kRF^X8jnQDN?X;`aICuw5#
zg}2c%x+PDgL+iZZ)m_|w=MBY&JPgH5nDVP)_(38qThCAo^L+wFjLHgOKU1AGsgi7t
zC%?1xe3QRLOqD$)-=V_P#D;b&sC#R8u3-)rz3Oy84&TfBHm6t@OpbfHpm+;Co$`9>
zM_5|5(aKv~nl5?fI=D^;`I-8__GnbeO0Zqlktbat_ylavq#@s0hnPh3V3s`#ogJ*4
p2eq_RcLt7q0O)z{kZ-$fe*hl#&tqr5jOhRX002ovPDHLkV1j_;k+T2*

delta 865
zcmV-n1D^cp2I~fp7k?ZC0{{R4NB0&+0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*J=}AOE
zR7i>KR?lnHKotIxO|w6eG}{W&LZ#^ClI&);yKOCkm%e3YGB59Y-V%Aj(TYaP$nvMW(*S{viY}<8ZkqyUJ9N$WD@w8
zIjyTZ@wa=iqJLOm#Pc67o<`x7ptQFN{9@}}m(PY^Xd_l}3G%>KaNESIfXKAR!J6rl}Fgv5G
zD<3-yluk?zYn4_e8tnF9
z_B^>2yt_Yhs5Z;~M?miDxeR8R@Ek=p#FOjR2Y)kX>lcvmA7QtO
zi~*)oxLff`3(wLuIFC@m88TSXd~QiReapaO+?Mm!c_?A`21dY`4$vyS^m-HvI-#h2
zM~G~+9;G#JuN~2le2ko81}GTp(#b~aVZiZ;URST(gfKWTE!((<%m%?SX`Wd&_SUKx
zf?7J!zs8%Q67k>@}0{{R4GZo0-0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*H#7RU!
zR2Y?GU;qLpX9h43oxlJC?Dfp6J}{sI{tt{t85kHj7#;Z0WPcJB+zSLQ^cQvk6){|J
z`4Dh6ft@n}!vL&cI>QXc2@@2j6)-Tcaxlzgm{7lNcY$*PTL4Hn
znc*vAUILc`zcB%)f=|0{{R4wSl@$0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*HwMj%l
zR2Y?GU;qN7Z$sZ0z_7lHr>6*+Id^7ucJ|ZuLY&A)+BbLZx#ygF?#H>mdv+hdP%`yH
z+=73UfK$txBtR2C9)4s6U}+xYaPg4J&R+amh1{cR_BP1ffeJmW$koB=NT^}aCH;^|
z3OUIaR}E1ubT_XINFHv0O+f&MK`75x;1hq1^^c+FK)GOmRZ=3?Yj^;S_P3=UW}?by
zlFkCWI{*(naU3;xV0(&u`m3>hGwy)@!Er9XUnw~Q;)$Aq#aezN56JphX{2&o@nHZ^7R4}4>g>Fq;!A5)%
zGohlZ)+`GEyBkCrTHw22aS>Nm4gdI>73igwR0YtpLY$;+N88TorV@M0WE#bclp7o{
z=7`bC6-zj3v$96*Me~vxbr5Euj%(b24LHdL@=cYmk6S$xP^q*(kSzzCCGM0c?QH{m
zT&nAe`113Ibfb?`2P_)3zXyj*s{8!3?FN1_1G=L}sL*p)FfU75`+;674F8JD;)cF
zj~Tc&6qf#i*vg=-=D{-62&)OpZ?cF>8vWP<*WwWl*g%WNI$%zaPj)5f4IyVsN`@2M
z^|?%LHlpt6SyWLI-P(b@e`Ck~mzSQ0JUYF4@UH<*l)x<4)IY;9fVo=bae&`}mord7
z;TciZK_lMBdp#)RFNYlZzqd)+H$aIQKjQ(zZB@tT_raU>M5%XHWV(RQp5p=f-^T^+
ziOBC8FiE~f)PSGFWo+WsLd&=Ca5VuIC0uvkCn)&XtE2;ClHmiY_!IW|&uFkeW#S32
zD234m_-Uj~hbu5nK1+|zw>hYO!O61lGc0^HEuP0O=EzF8VP)*i>
zqv&8gz*#nUs-49}Y_R6oB8yuL-axL`wuNCpwJK5e8p&D>Q<0d!?P8R)g=$s6RYfWb
z#3Wf4l|a2^kVcvoY^I>5w(#r{;6puaU;6kk5aY_|i}ukOnZFybT=-Yfw&r2|BJ(Sa)1=OU8HvrFgry)~qoXLfE{06{*3^4zV5=0F
zXM}|9@lD2C_RogZgrL&PHinq8X818`g}Gx^7#ebD6&_MXmF9doxx(zH3~KpK`-4Zbl1@T&F~_|i!jO^eZx1o0`&?-tbZy5#qaSfJ&pY8n{s+(>xEsCZ{j{qSX{
zZ_ak$p7m|TyaYOkg?avOluoCJ$iwNZ7R1I!@dga5uvz|=oOxY7PYv=Nd1obGcRKo5
zD^sRGPP!@5L?Gbu&@wKFykX)r@Ekd-tfg_k;Y2Sq>{g;g#UQk({UvhjJ}MU|lzW_dmA
zuIbdNs73sqx+X;NJ#CmMmN)wh8*znxtAY3rv!!ZEkYR!w44I%R>%kgrSvJ<&LDRK-ZOo*l?{9FIHf@pY$>o<)n}6^s|~kbq;drq1~$tK
z_;_{lQCcxl#anDM&^okw
z)-tio@Y0Z6Om#@?Tu}`R`4@ahQaBlXXQt{Yf9Ik!KSdJ(i(gwR!=BU#R0p);TL3qE
zCB>ltk%>1d9eFmtHFX8CM9l6vtPKZxGA{!o7e!`|!}G`h(jU2c14teYoXB1R`(a60
zU^(6GWM3h-HjdSC`CeSv4-dfBM)g2;emh>yGF~Gf!_K={Y%`W~74|GU568u`dHNggin#>Wrq3Qs|@HvkFl92>ijhUUFqtA17*XeS*DUPOE-S+)iOag$X%2J
zGf?;v8U9m!K$2k;qddqpNyE&%AHz}|4R0wKzJk58b7UBsc^OB~c@B@cyo7y-^#MvN
zi8(sd*d^C5Dy-z5fqi&0*d^^t^NZi8LNn7m^1sV?Z;gg(0_g+A2zX+j^T
zH5v55(`2g9C+kcIeK_$pP3W^WA@sprdI9?Us!=h#4nYd;l!t!PmC?t-IXL^Rtrm{S*%WKev4FT>*Z?uI8s87T2*>e(wvm5G>G-9W8L(e#Pbq16{A57e)?uhkz
z*Q5iyA$*!$IOu+B^dQ+$^vFEc--A=3Vf&`Os+5#?u1|QFN4Sc>AuZPr@0FO)V<(6T
z34y|d%VKpvU2J%@zbeHTAdVhgdO&P~yMF%z0H3>8!gZYkxI4Y5gHB(lwr{$45zM8N
zN<4e99xv-X`yXK0_1DYHIqu~T!tsssJKy;cWZ#Zs{$BOFGU4%c_rFWU*356r`&>)n
zA>o{%yae&vkAk}^0QmE$o=g!F@AwFoSHXQ6?4YOy%`t1k0(A)fPP+u5N3UE9
zk;in#K7n0|J^6Bkk00}EGU;(!
zd#tVP2y0n9;jtHb{AGX}BUi{2adPN!8JXtOa6@3Marg7o#kt61t!xd6W_(XL>;pB-Ai-WhJhXt#oq-l
z_4E3o!7hM{2WrujijL(W&0kK+nFMEA7g4fP4Ni-
zRi`iM$5ckdK9@PZX3A2-Ji>kKs4tXmqfkgXQD-3B20?9YR!jEJ0HNfyt1QJUP
zKp;arY65(|F1`=^`?4XFwDRK6Rytu$q!osA_L%F%bHrTekxgF$izDk`9)Sb!xAa44
zjXUtfi_halBHhd5z9VxrONniuflO9?M$29SM}RquKyHRx7=7T`16K!oLWN9o@G%uz
zE2@&NC-JTaD1S3|`D)*7M)hQhnC3S4PwEMF�GL?6E^#T#6lKZCIcV!40i^G{of5
z*K&H0oI{;A!TzJ0L(G+-ehkE1a1ieNL4YE9re?}_YT4VC5awvkTo-|m*RVTMNaT=Y
zZ0)f~F^hLSjt~g)H%0Yiia4mjkh&+<2Tl#dT&#@>*df^6=|sVVJj(x@_83QfGcNP%
zHLkWk)RBX5HJn0wjxrmfNdS<#;cHp33`dpbmYVHIJp=>}N3Ls!h>Wq@U=k~wZG5uRs)9`QHWkd?6JhK*g_Q1rHs`Bbk>
zgPe;^`Gc}$@
z-S{uiuQyTF=NAu6IqUO_hvKU9GV7CV(7(1!G3%ohhIC$Lec&^#>1KUcA=7!9^`SF<
zs#zaa$b)u%W_>j$6=pr&&U@>vusKYU^mv@k?)2qztjJSV;B|Cz2UdlOJ@~e-TTs@8(=Q=pCy&uj
z>t+HBbjl7&FTI6C8I&kV(xr5Er$3()=Y~i@{J%%x&vZDu6aR;i+X{7cg}A!oV002ovPDHLkV1jUfC5!+7

literal 3960
zcmV-;4~OuHP)Ypkz($>4IY%XxefRO!VgD8
z!-vX=Kh&VUQkZ7jIN6LrkQjwG&dJ7>&0?6EowXnT(e;|rrx^0P)Tqui)
zXkxI_lUD12>+`(t%J^9<^{4*Z}T}s1C?w
z7b>Dj8K@eHb#>4nmw~K42-g|RE&|B*VdRYeAGJsftbmF49CaY@Ug!_nBd{0XS#Q1N
z)e8Vc=E1lp@8i_+FbcQ{g}@E!E`ODn1LRS$LWs_r**%#7X>R7}E
zJE%%B(z-IYA?s@lFe9oO-9&VUd%M)drkfl}Caw;Yc&)A}QrWe}KxQPlX()MI12veH
zsI_SbC2Dj_Yp{e$E;HWg%^rFT589SXn5zVmowR&elO)X^qzS&u@7}-CElp~dxnyeU
z;6ojz*h&5#znj+$P$Sz}ac8C^aw?Hp%4EQ(^j<4Abh7zjhI8{&-L(&#o00%TM?6S8Vjsq-u
z#QhPt&j5zRa;^dBzO(J6S7cB~xwPCHyu(bJdte9dRZ
zCGz-)GK*}BMWRvC`0fB)39M9ZBE819?OAw(Zw`=3L)ifm@c
zdoJaBK{q9nU|m>D>d1%&d=<&Dy(I@xZ@3V2?RGoXq5hVgnAA}>Y{GS&i=Y!mv?$gF
zHhEM#TGMTEk)xFc1zQA($rS?`3OY7>?vo9CND<%X7V@4Z;uX)eUA5s)E)3l*98exm
zH$iPEI6^s12%z>xAjdVp!g$hd3+8CggfS4q;heKCHL*~0+e>c`%e|XFid8jx&Yn0S
znbL#rFD?`jVfN2j4aPt@T2UERPieKxG3+f^r!OwZOg^6iKyA0-Dn;0D!W>(oPRd}U
zlsaY?;Ve)YzD3UgvI+V!TtemJ!FIPbQ^D&XFLgQwhF8H#R0Sa0(BqIs@ohX{MbTtg!q#cHRanZSJkd_>(7V;-M}u%`
zXuy3a;NhDPz)P=dHzAsveG94h8?nL7(W-E7+1`5^Gj&L-)ZN(nF4RlBosMjqs8A-0
zF-9zrfo>z{RSim%5aa`b7F!if1b8@x8lk!Q6jI?^bnR1TCbykzN9wMWz!2cX%BIr;
zEo2)hlOf@WMPfnWXq>_lk3@PYUNK)DAb3#wM;mO|*l{>~whNYpm&^xxrK5%R?QA7@
zqe+`%RPtv<7U#bnuH$G|S5oP6d~$X3T*Rh%HI@205CJSwjyn(oHZQ9mhjG|J78_nD
zD)*Rq+f44?sOV8_y&rbWlq#u%Z<^rAvonMZ^3AZznqU~Lg24sUQ}@9V6Xn}}Oq(k_
zYbxPcW}SBxp7xYuNClJ_$$DU+ciB&Ev0dN97$29CM!u&EZ;4q;8gCOTuc={7^;V;4
zN7sf%IdQ^67dM0EJ2|c0WYfm`N#I#84aRV-7yK?{+&%e+O4BTpV8!Eton|QbM)YPv
zu!Gf9|3p;qm*}}eAb^wC8llUq&>6HKR=kFtEi-r=<}EPgTBE&5Z1*lTvn{PA@5R>j
zY_lhwCr?flzbV^uI-_B;Hu&&DA47MB3w=Dg
zjWG1lvyI_GpGK*h;8@+sg+AZrb%R46gI-1&`qU#D_6vPzL`E3;$ci^y=u@9K6Z)J9
zeTD@M!pT>U*4sT(&V~qep2k_x{SY~<;O@C+@+`YO-I7`oV@#T4#f>B)AS0|lD+
zis`@TJR_wxg66E#|MOr!!Jt}g!6xOq!7N7v
z@ySKuj^t@IynjkAPP*uTif}P%cF|!BHK|`2R54VNOv=nHz)X50t;kcbCgW}@x=ZFG
zm2C8a`{eHePn8~Jk}gY~N7ioYjic@xj#s)86xyrKxV%42h6RdTR8KVi)1S?`YFKqB
zKEbmOIQ*$6#pJrLz^!y6CaT?At04_O6qX`d4f9E(Ctkp(nyeBK4t*E$X*hecQ3ZA3
zUk*GpXTf(`G!8EXOpJObLGFcZk3n|FF@Wb=7xJ3y^tKsJd)0qzP$urdAy8d7w7C3-
z)+F#Fnf$fJU(ASB%g1jZo8%zp8?ws?3##;d1Hn8bA^iLQL!PE1NfWCc;feTVo
zeffPVC{59gV}kZ3yb6!K;V1cB@u5=u#^ftjgjd0#h9h_*?1GaO-sh2sFrS|AmH>hT
zFBiqXK4C~{2?cVt2AyhZd{GK=uFw&P99ZE`2LwfdI@;u4)!ViTCu|f6+6GIID}@Ft
zElbe8jFFr|zYd5QOdPUjn+b#eMx=<%NfFdLc)XZ2*h+^6lPGFInrj_p
zA`6UC>%>hHBDk!!!IUiTeqy&LIRvGD@D#utF-O?|^8q>Dwe626L;T>F&`%eZ#u$TU&_q#e`i5jpIt>uE}F0_iiz
zO~(QkL9#>}%q0vWNLha2i^;acBro-jvI*39#5*uf>GiWis(+#*7+eMPP<28)41102
z3AT)Y$H?II!6^S9Fv=0WX#_k*20ca?*RbN{?g02)AKD=Uk6;bU4PxlSwf$*i(=QZW
zvy-iZ1COjF3S9z^?rWGl>kKiJSZ}S`2B*7d73IYt!y+24KGJ$)jgi(IC^K~IcwV-1
zOew*q`B8w=rz+5GAKncaCuPYL4x}8aC|I8dPWw~6i6$4EaMK%qZSw-}&+2Uo3QqwBQo5vl7Up)Eh>o
zEsm`P8`bzk*GOw6GM7jc|A6k%f386Kp_PQ1BzAm)`xM{#ea9MuaEeV4N
zwg!bRr=`T0|BO~eZ#WcxT~pvO*2o)hN1NiA+h_-Mr(=o-&vDg}rg-F8xvkb|nc_L*
zjX1^gp5^m6O;bGCJ&CRpow?c+kFiH^I6YH5Y7>45qfGG>Dx4vlt|^}M&W+AUQ#|S7
zM(<3Drwg1(@r)GCq-1a^iymr7q3-`IVT#
zVJhc2`Y27~Df^q_5m@j80Dcn;=!Iu;B0Y8w{kltIQy`mo=r5&NKtwo{sLS5vfdAwE
z*;8++4)*o_0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*ImPtfGR5*>@R69$)a2e^O_nY$?Wj)q2?50p4t8=iAh<{&
zf{TL~7ae=S$*BGAueKF;<wf3lFXsjr6nX=P3yN)QXpe43l(I;Bw5~4_xA24>{;Rb85nD+unY>MNs$RXIe{f=8ETQ$=7
z*^)l!OT5KpU)3+-94xoYREIxJ#QzY3_+w)+wOl@RY!9pC-l02Mua!mGSp9q!b)`1H
zs6RSqj^2YX-9_|ay*XeqUkQhc0!?gTGdubM>?JXb`yMWUg$S0cuhDap>y+bf434sf
z^eU&%xWW!_*#!4x?sW*?2$vxa9@6^sfzofK>e2l@xr?jW-G}FSq;*yIC+>?*PSTA0
a%pjkkbYDf+AhAIJ0000A+0I#F&){KEdq|5D8YK
zfCPex3Uy*314G5sKfvsjuv8|b{(~n}l>zMAs7=~bDner7#JaJ4j<0>MA3z3CDdY%|
zk9P8pbJ??LEjZy45^(O9ILd|4#?@wLFEC5Gai@%bh?4GgLou7&{fXmwSO80^SwB8d
zm?J7^vNhhTiVBQ=zpn|AU2`=xV&gZ<`UBYNn_vP55>0BwIM{{;~0iUY7WA*fV^Q11Nes;`uT8}LV`-1dEHPYC<#n(-MI`~0{{R4v*F070000dP)t-s|Ns9(LqqQF?##^0s;a7ph=_J}
zc2rbUnVFd~GBVxW-4GBEySuw~xZ=0~0004WQchC)HJAaS-(1_l5QF9ur;
Sj9)GQ0000|F}@-mA{QAk6pt_(}Up{EW33=GddaOVH|74ZgW
O9D}E;pUXO@geCyUfI8&>

diff --git a/docs/html/img40.png b/docs/html/img40.png
index e7b8816aa53b682551145982cab79469dfa7e3dc..18cdf16577ce02b283e30a84b96e1acc6100e655 100644
GIT binary patch
literal 881
zcmV-%1CIQOP)KR=aN0KomXRhwZU;u?rFrB$QMXG`OIl!V-vw(ribG
zQKTRQNEQV`ND)gYcr+PAkx(TCEmHn~Eg~8kxBCNhkqiwcb^UpWPN}oA0OJ-5fCx3VTw3oBJJ`~)K`nFz?I;BeCruz7z&iA@m}=f)^z9?
zqM63b1B4Z5VLH8chxR!`JI^`KI2)x+NyaIId}W_Rf-b?h24foOjo(NpL2Ny|Ha4jm
zq}1-0k&-qYeOZAUc!M2ajni;Wi8zJf%|=~Av}Sdh{Xq?ubIi9sE7}hZU4Jd;8gE4|Cn;W@xo%C=fFr)`I!TKoJG>Ai8
zh-?JaeTG7*wRPo0W@!W6bHv~3z?j5AQC=}oUsi!C>)-%$>7yGyjs(2uJSp-8T03rN
zZ5V-^VffnKf+T{AtL+%?v^*ILlrK2LE&ndA(TjPIxefa(y|B*rEg`w4g;VtG^6jT*
zbSA~4JOdM2n}qEu)aU2Z&v!28`^Aj5i7BMr!zUbIx^s-&wtwKW9l|@CK&XNKG?#7}
zm`AHmgcl7-9j?}a%o&k-8S_zlF{XtXXY#w!im9aEMfGM}*V}0Z;_bc(CUhgZv0LHf
zK%`F5;-V2xVpitzb=)0G5;GZGeP0hTA(uvy0V_D1`G4&Xf!@P=X+60k00000NkvXX
Hu0mjfEfbT}

literal 909
zcmV;819JR{P)KR=;o4KotJ$I(8Daimgi
z#yg!3Yj|p6id0#YI`wRoS`%Tk!6v2uwJHI>!tK$r$Xl4jFG{d&uu+p!)
zUSWnRQEeI-qc4~JdK5XI8d51i4JTxUp6qmDQD<`=FG?IvRI4>I`Y@(>Zp7D;C6R->
zHhhh&9f_nOwsoTwS{bA}M%nPCm)--KQ}g*ULbDQK4Kl`PKku|-^5aY;d2dHOBD_t7}cHs+_6o-8fH
z@=;uvTx4IVrvD0fsZGFq)}@EWUWEARD9$2-qgyV@8y7;F(eaUFrm+6HF@%%6u-EID
z#Swl2eI*vYSo2I1Dh2+U?#fV)7@++QXwv*l76+fnbs{5BVtODA8D%ttQ*Lz)zt|`>
z5`JpO6Ptadn&Xs+w>v+yodpl4f$0P#aT(XMIMZ}_)poi#gZoRX0Wh%(&L)o2mQka+
zXdhbfp;U63DUEr|w{o&vCel>fEg{`nOEP-7I>0&ET$1+HwY<+s`c!Xs96S{K@u+Ie
j<0v8o#~)eO|B!wH`Y6Ogq}q=%00000NkvXXu0mjfq)wwV

diff --git a/docs/html/img41.png b/docs/html/img41.png
index ef7452395bbbdbcbcdb1ab162eb358781f9b8529..61ae82f89f5038bba4c08a2edbe62c433be399f7 100644
GIT binary patch
delta 564
zcmV-40?Ylh1i%E47k?Q90{{R4T)viF0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*IzDYzu
zR5*>@Q@u;WP!RvcwrLVglPV~<=&A_qpy(nviQ-@;9Sw-+W`9JNZfz+DPH}K>&{hXs
z3xZ1*!GGZW0S@j`NKwQ=i1%JvO>3;s!NDKAOYZL7$GZ=p1I`Q(Q{_&vfJSHe-hydm
zBlS(3hyIIL+=U4l6UcS5`4JUZK-pnH99U3X7nnjx_INs4PaeZqsR>jgR1_|*sbNX=
zg{K23f|CSIsegC`b1mW$zVFi|%2HeoTbu&!6Q&-c!)mpRhA7
z4B@B>hgyzH>I94H?P;@sV{PgDU!3(~r1DLHG?s3d(SH|=Q}$h07W4phIFUy2>9#Eo
zAbG)88E;9H%*Zj3LZ#Tq4Ifr$ZiJQ5N+n6tkOr1Ux95@KD_*$TXYekt&xxU#$vdpk
z8~6lB>plmMp=KrWU?-aKWNdJ1q0We43j>bo+L9>-X!9$-$uy@!tzDF|G)|hS&w3hp
zyTChQZ!P*$?M5g+pMV%CmFvN`1;HKdWlE71`5hmY0BWh47OMFG0000@Qol>XP!Rr_#HLLf8c;#SAryxy)V3hvW_Brb6kMW97k|OJIER8FSZMGsDC#Cc
z2DdKRT!hBKK^$6lhYAi-2fde6+tgUGIQc>D?%mJt-U~1QqYOxih|kB-w`SQ;O6p)b
z!+f7TflQNB7}KZ(h}~l
zPmjSN>4n57aep$c7G25g^|cLLdX;F6z~=8!AHLsrphYF$>TpV*7JafWrdr^c-b9V0
z>H2PCDCYI7MXo$Mi!ucDU=PX_Rr4HpK~reLBfB%X)4i@X^^#){B~fdb2)T_c7&fWh
zsBfg7z(2y$C`G)+WFnbNs=*1|!tz(=oGY8i!3eH;z<(NhOySc(VtczC{;bi
zOQT~PrmJUU0!Q?Y*!qYk7J&;&E5D?`E998Ulnu0VC}O7t`6i2XOajpwh4y<)IGc^q
zrS3*yoOn}nPMnfNJyM7k+F=#cQ80U)Pt#1^qf1k^=uhDdtUB9tnn7Hbp0H7`voPPQ
qiWB2VVo10000&(Q9|ZL5+g$~V
zp7FCX+?iy51G{Q*m{u@44;Kdd+lI776^q1sz64T0$=ngThi_OlLe@m0Dxc4-Fi}@X
za8X4Ft97S#$A6LlGqwVaIVW%d8I;LLM^Qu{kx+JIRSFyM*pw=TZ7`SqRrX(_-u`@l
z0v}tQuZerN)jDaljHQ}-$so^hRenED+ryPfKco?edzhoAIJZ?ZMH#k$%n1Wjpf`#_
z*tc=p;=U|}Ccb3TULjCpL=Hb-Mfm_SWxtj!m8F{cUw>fdQ&A#}m$@V7tDF3Vvn}6m
z?x{uhag`jE`rf?qEzndkJVrP9#+F&=-5^@7u3T4o)~a+P;xMNvCbJ220%Lu@MlggN
z{jAFe3liZz7ML8%&75M2&cTzQO-Br_B8nQN@Y0Qn^k*~6T*j3o!cTPgBJeafo}?cy
z5(he&yFZ(k5?YZ4%X00Z(4u_%c!d67U)GOfXZ|@%C#QMX^-xmg`tQPOa$i2i6B)H`
UF;084yZ`_I07*qoM6N<$f>|64O#lD@

delta 560
zcmV-00?+-@1iS>07k?N80{{R4n*24t0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*Ix=BPq
zR5*>*R69$T>RkPbMAM~^WK{P?_jLM7sYr37o{=pxKLMv_vQ@4
zb$S*PS5T2e7ldZEU!a^gA4#A@Myl>gJXFU1O)Y$-HSd_7}Q
zzdFeTSe|%-aetBk6Si|rhHakb0Y?>2h>g*HT-o2C_<4V=z%JI0)ieIen?^%xaMqlP
zTtb0n$6|VK3WE!l?hqxhH76skZRjV-lnp+nAQm@NI-(xWb0I$i*J0W~o(Cs##;F|^
z=pf^gNcfrW_Wa*5^((KKQ5MSK#rA!3i|EMoM{=Mdcz+lDEdt+Q&Sui65~PUXb587(
z!n;SLuaw8xL3<`UmfOqaiP>a7g`^hlE91aEnXNw!;Q<2C*{vrR7yVd{eRqdTennU*Z*+&uXEyC1rO20000CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR>%c)B=-NK8#mU|=d^_KXM19wsL|_@TF8qeEd7BlCo_3JLog>Kz%SnFDyG
z54SS3H82ZH{FIc~QNhh3!NM1D=U&fUpPU4{+s-UBAhIz_ovP{d7!+JvBOe*1FL}nN0Y0i$Pa!K6Glm2o_l<2GC4i}*Eh9PHrgdH
iXt5=Uv9+;u@G|uO*Vp@;{oxtVZw#KUelF{r5}E)F=y!_%

literal 320
zcmV-G0l)r%;YA_@QJBYE8Sazhu?HtL0qGbEb
zhdAtmL6D12ibaD#7u&HJ<@j2iEQSvez=^i738y8TcdWC;UF`T)vV#(>4i6%d#UEcI
zVeAtj407ZMTPF&35AR~UoA+K-_jLEn?2Pxu#|7Qf&31LYdS6wqUcGuV2QU?pLrS(nhnW`+1eCQjtU
zUnYh{u`==91c@&TEo_um#ZGf&~}gB3n4Cwko#9^Pvr)T0Q8?zyW8Tl@is%5PU|0
z+Fr(&pWUwq{Us@oqgne$a7d)O%S+2{<0msf9X(UQj)BtM)Vmze8UlGsb|tI`QF8vJ
z`jZksS9N}nhXrtoj^BAWz2t*njIF!@xT$AhAvJ*Jvl0%8)RBOp!4Q>h$DJ!+U1$XQ
zhC;;O5?Wcb)m&Jh9+B(7!mpU5LL9xw0^@!@3kU+!roY9wDt%M#iwP)F6<
zEKTj=DjcFmJ8A9P{03U;ljz7DSgOgHO~0DK6JWuT74Q=+DW
zMi5dSaG_MZ5DGvOmQf%tfGQ(?!V`wus)f(*g1f~P)ud<1bOWD>;{p2L9hd-k=?SYz
zvNeP@{3vSUkV?}?-o?|^0hp7p{jN`9@X6gWOAg@&V0nNn{(^1(1Wop*Y&-$xq_DaG
zFNfUB$!5LvG(B*_rcjeFI9Vosiis~HM>-DE*v4Ii#LtB$D?Ly2C)~HKz90(crQT0|
z!i1Rzgo{($TsTlH_7OzzBomje`*U_a$05^dbnK`Wos!^)4dTIP#4NJD@6mfoha9!~
z^D=JGyDJ{LbDP|@D}URvHfhlK;W>bNQxn)HQ{2EK3VMQ65=nDY$w#klIKpsYR78So
zvJSik-FC}I9W8xS&CTI}WhXDPxW(X2#J-smKNdc2`V7)uE}5%kD&}ay_
zw9G2{;AShx1X_Vb9BEl_n1ZI-5k|QV^67fg!-o|M!paiGGHpT+u?p7<6GV4vm0}lB
zIFLojNJf%NRfRk)a9xzl=P8Caw_5R#35QNjC1@CqYwyUA#qnq_AnvY*%+o$Uxn70d
z-~-F8zn-=4N2!9Q%Rx8nJUQrsA+eFz*+ebQHz?V#uOjoq7)jj!J<&
zU?qk_e)N#hlD*BKI^frnXe%x1Z%X{gP4QzR537vuFcjpF7amnsgVuZ@?qT^SEgJb=
z#6})g(|%ZDhKk6DAosYIK#@eUpiGlIOrnQI&Yv#8;?B*Q0&AG)}GrKZwyUadtcr|+-
z9E5qrCk)E|JTCmEqA*=6E;N$SA&QnAkTW4;SE56a12)MCKL$F#C}Flir$$?!s<69+
zuZ7J>j>CX$Qc1qnV(n;(#W;7Mjevx-MvfX0Z~QS)aX}Jqze(Nura*St&?SB;rI2m>
zWFv3vWtD~tqud0#$2WB^7O4723Z8WMXi|HCrm}>+qSd^Ho)5Ro(T|o)o$77P$-lSuV7AIbFbMqt$hq;9u
z=5#=L%@q2nvmWgA`C#tNfGey9`Z-Klh;?16VL7ycB$TzqvczO$!_>MKO!=0}$hwZ9
zuHa~CY{X$M{0RnPp6a3}zz%Avoik~HfsT|OMcXODhJtUQ4g3g|K@{vLF)4n}BDE33RUALQM)0Q;jghHi*AjcGt{*u51tzONSXK;K
z@il21(1yz;e3?*optoq;nOYFvoDI_`KIg^dhKtb`C{?2Uuji!kDcDq?eb+z@52WM_
zG}1$yK;Hs**o!G71&BMJ`uzrsDEZwP671k6g(B
zQtX{{ImpG1xco)(>h|j`bl-F92gO#or@l0EHu!jf!!yz+!Or`cY#X)_3+N6K2CPb)JJkin_TLXx5i9;n(iRM1e;8K_KlnRkn)pEeVkyt
z)Q7G&lT3ZG&X}nWUQs8T`Yex``rs}-lluIBgR;2}K{DMDRKFb>s%pH$^FGMUf0-zH
ziydDpQ%*FHJ|1+jui>J6Zxb?$x57O}aFp&W&E)?$JG0xzQ`E=V*e1(z>J9l@Bq!5$
z_tbMUn8EPPqexSfAGcPPfTj(;G8TvFPL{TQSjH5v;G--5)J#gFX+hb+3??jsx|^&<
zG{No(HtCLK1ZMV9+z3#kJVqz=%-USjI?j`@1%Qd~@Uaaz0EaGGFP};B6x~e{Ek^ib_1wM?B1;
zNAcqjmn(;BB}Q6&iRW~I{857wBPfkoQC}L+7YSbK?@A#CkfTNKJ1j1S+dleXfY073
zVf*@Fyb8IYf=*u%HGl27b70TErNqiNoj;NU$(E3Um`4$<%7#tnOX3~glbr*Y1I
zSN(yES-k!3_p3;n{k0j7dsp6woB-GC#MT*%UBCY@RQ4HsD2mKGcE=+)>Z}LR*x3)H
zEhZ|>4J{^BA@{_CA(AY*zS3lpLIo2^NE1oh3ps7k?Qk^G*`-8enpHj<;IG1d5=BV7<72YC1eGIr
zIF{9*HD+$uAXVWXv`JtrdhrSfEv7T}F;pqCxL^hz*n*%8yULLaIBg{PI9pt}`#w#(
z6k5DwEIy0QSc*QTM4I)7Dqr9vCwGofMif&=`2h6u;AM%`i
ztG;;P_1}Zi;^IPK@hM5P;@k48hsC$|12@jz1^>Oc=yDMz^Vjf${hFckB(k{ijxYUT
zBrUgf6<~33(Y|Qqu@)l#*(Y`IpYt;%{%AjXtI`TEi|3w1^=3E_l8l*B1@;0h~LKi-uHmtPL3!LHY+Q@%|B_#(@DA
zG3?im@xJA_dU->%Gr`<_gs9PQ(%;*>d*F-uF_9U`pUfIxK4Ge17U4d2)E8>Qy&lHN
zKs1YRAL};*BQlU;+cbU{WnTjX56wU#ssS0u5Q{nhpKFQl0{^~j2*jm4KX8O*QBJ%W
z*nH0Q{7L3qXi=UjNaFYk*vH{8{5}0pTIU^j;zj529D&yIgy+aYGpEFLpc9#_x>?hn
z@UuRwz1*UPco7CWTkd}Jtd!v?7eR|Umzipioc7xW}KN7sJ^`9Irfa;^;NF)-(X@4=pb
z^N~ca)KqPcrtQl>m<8or@Oa3Oz#+;=+E+rxH_j(=t}p{Z{Ka8Ei6RVgu%y-`_u;n(
z=3LB;8mKBfzP=s?6SAoIpW0%a^=;_pSL(bv_mOouD6fXMQJ$mhw&+j-NNRY7Hf^zH
z@oBQr{=Ru5f%d2L8f$4;r7u-t0bZjSTuoVgl~=hAOh1X@HU1y?p@*7aw)sn_uE#B2
z)fQ`ROB6orHm)(r;N@eBym0hO*nWW;9}Igg=`$FXFb%dVKDKVs9W!_tVA{bj
zWI?%@w2GPjiXJGE<0CxvYf(m3&%CdD_>eOI3U+#`e8
zXqZhXGBRYnyg~mcQKMm_8~+)2cLP;@esTYVt3JQDKSG?ARiA8|{%gwwt3H~cfzz_;
z12+egt@
zmr)&C>CY*KU(4d$zr!!R=(mrlp@VXz7!XnT6-C~+>iD?Od`<-%g;z|GBw=x1btf$9
zh@G%YS2nIODGJhY?S|_LJ1J7dEWVAtf~Hy!m0q|8W3J|8@%!*|?E5tALGw8Upy!&4
zBngZAsyktV!MOp|YR&?ao?#EyZg`EI4kRpg>Mi}wr5CEf#Jt5T@o}&I!FDMr@2z;g=;XeZ)=gm%|2%a
z`^@K*098=JB1sSWsyl-rED&*BrT6mASac%}=8LO^@hDoe{IS_}9n6p2yj
z2W?tn3KAfYItoJKT_aV9x28*}(iUmmP)e$*TDPhYP)aA;2WibJ{($h5;x-77q7;L~
zLqfo0A%SSynse@*mp$XPcjMBi%1Jzrd(ZRUbI(2Z*b6WM%rD}_W8j15;RC(+0Dc3&
zeQ*>lST}!&2%vD;#j`&F6Q7kfUQ`QI*9wt5C?#q1h(#Vqb>3AOMvd^+-DR0q_C
z2Tj?fjZ_WAdIsJY5_X1THAXW^fdTAJn*wB%h
za2l-vU>R)y4io~70cr^zgCerwmcfShfV-)YWa8>VRkRvRQyQK<4Js$eU6V;2>I&Vv
zrc|Oumpp?LsN^~qgWesY$N0eZy@`8TDA~=cE;LTntM#YJ!4Kvo(qHJ3C$$?wGIb5`
zp#d|UG=Dii*50jY)gIBWPSv;ttES1+3aj8~dA#`p73!esMY~af(T-z5O4(GyaPS81
znGRv}qhQG3V3xubHjfKdELC*4DtW!%^kIkSW)v1M9{Pl;cp@OCAR%&a#ZL{qkF};p
zK!XPYLxWTdh4T=2FsUO3-49XRK(h~;TBM%qu7av*`j-|F?70|8@C7U=N8>)_m{{ns~h`&M2ZzN)zN0so@K%0gXMw@52Xq)K)J2UV;de0dP
zq{7$9>ELneJ*J+CFW^<;T5d~XbPKHkmU!uktwhg?^C8@7?!(pL-g!T(sAlDFMMZID
zI%quSDiL!_Rkmr%_#1m376Q)>A*Hcm-DfbM=7=Wdpl?@4FqmDT&zUl}kR8`HE<>#X}80Q?^(t8f7zj
zN5dH^GAV%OxD(3pOt8H&S`rBsXb(j>5Xb3UaxS;qZl7A)}-G)PmJDdkQ(
z6}Sj=j&I3x0IkEMvt`3*jIkh@mA+_#aV^&Sb00Q{!&QM$+$4YpV2p4sjaIG)EB-Zg
zaiT~#7gHZ+^m;cO3D>AsAe5Zsg)8xhuY2NrxI+pc=kkS|VuPH^$0O)UELgc6FAv7-
zLU5uBK@Fe4wbsXAuZ8B&Sy81`a^E3|6ySXN58`Z9;UkcNtKs=HeEq1iF!*
zbC;gFh~%o!sfs+Sg69A_qT|+^(~(MOsG|w22Mf-i@)SkUWK}VHzK5}ou|Vr!Iw&0a
zpB8zv8o34o5kmnF--G~uen;GeXkOtDNG0Bg4XzivDb`NB_jGD)$m?S8IS&ONqvP%_
zLTr%5m?KunK(7;yDuXH&1jU4)#ded))sJi#p?ReoQsG;29ndhQw;g4mbXQGbNO1d}
zEq4f72+7@*42fc&!h?t6*?tOJ-cseI{)UxN=ZNhT5MMgrz|Mhf=HWqD&$^*j{4Xkcwsz^Y$1L{WXP;dsLLWCs!UpvdaL}IRn5=>+1hjLv
z!U-;)Z}_Gtp+0PB(OG7P|4uyZX{V72Xj>`xqKtct`ug$}3v+y2N^BbQws0MbhIKf9Q0bem
zCS7r77KimNoh4n0jqpHH@U?VbmI&aMSSJdZP1@Vba>X+oY?Z_PuwsLywmR`9vERSk
zD)d-OeGDp}T06w74Ytnls9~uObw5Z43T>mae=~(4!R>pthhSyGc!|J-@=|v)Y|af{
zywt}u-0@N$pDq(jeT+h9yws;t%@W+#wzbsf!=i0;>SNMvqNz_iq2Xq!56#E~Qy*3H
z$4hLi?Ph>yPno~amp^Ku)3@=1TP~k^#yUW2M6K3O@Z!yd({e#f(K>Rrbw0+_
z#fdDYbceojXTi7GZ4u+T4z|5Fz^_yC!1Q~gF~THgTQz|$=yojFY9s|~ieTHNwu^!o
zaWTGVpcG*`pl{=4dK-dsT)BlaUpN<~JBrU*8?3jcF0LJ6kKlS!EuAZTy38@Ss)uHiWP
zkx^W<%2B-Lo55>7E=`(OY)(1FLq*=uPIdk(*wc%vQPc7M{GxEXEAB>GOffsf`Z!&P
ziS7*7YNWw$ggrQL$D{XzR^zU|OuUfKYPv~6rqVUFdc&LuXIBC_|gX+C|&*M&(VX{
zmBTnqr)?%SnJtfJPLuG
z3?hT`obo;5POj8UrZZp=Ocqj6!jp@o{m(Y#^p;3C9
zxG^b0$chc7vVpp4k#9NhmgSdYE4m6)R(B<`y%-MfUxeJjQ#Ks!%>rw+Jhk;0o^>np
z#=@>0bFeT6<^o?>oLPm1R;wd;sb4Vu!Hvo)2_pOV_jWu4+Wqq|H9HINY82aQwUqat
zxz54P*W+jA5Inv5)T(75w|u2SR>FJmBSfv^+Fc^kNC8lm7cWEPXsE6um)-@++mRb;
zBt?)c*#}E0g9vhV@NiAKFXiM9Z2n^=y+7j}c@Q1;vqNpPsBvJ(fnZkNvVPySW!N_X
z9utG#z1RwzFEGg&{@4U~Obmw1Fs@M^ZrAt}y7`#D|6l|sE!|q>xHZZur(?cg)OfSFlhmLp<U{h
z>}-ZIsq}`KX%7lNI7Dv}W@a-pt&M~)ktpgR4!%?%f5%2jP10dzS(1|oAuI07RV9Vi
z#@YR`sBK{`oj=xFLG*UY;5D4#k_}DFMs=4OM8UIyel%$CHNCSkmxkTOpTQ6e=_??#
z9P`DmBSi@(0L6-tU~R*rF+MP0aIR4l>+UkIH4vDo|8r~PTUv>5kgkb
z_sNt&1RoC{GEPgWIiI6dF&vKfzn)X#F+$WhFrV342n&4a^RTjN4YXXmx_w5Ty)$a(kzywrhQ`qeudlP&Qq?R3JP^RdK(=eX60mUz^<8mo0)mUxc)
z6E5*QYX>~e(-KeNaBAq}U~ad>V;+_q&d(B$-i1eCk|myUQ!s?{wZxM@u+yDri6>v#
z>0c=EWWa?I&qU!uiD%1@Z;ZwnO=P%`{yVW39vEcp)#;r{f}8&%&_*6tWa8!LZZ3$3
zDgob|t=HslNAg3~*9!+*Gx$1K5P$Iy!@I(Ve0Nhhk|^M-I5`d=sv0w6YkDrAwUv5M
zU+FVAD&;&1FB1*ZRKY3V!r=*7%mL%G;dkMlEYuLK@pl#a2B|`Uf}P>Arb7%PB5C5@
z@7clIcD`8OI>-`>sIT-HoG9f;lqj$8f}ae`N9X~HcnJ$AA(Sjj_E4QgFpP*o3@>;)
z_djbG2ecZT3hFC;1}926($xkH-q)i)5%Hz&qEIt!b4;(EL6dG2`Mdl{@8<)qqNYO(
zBO)=wIcE1y@a0000mP)t-s|NsA)
znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001
zbW%=J06^y0W&i*JD@jB_R5*?8RljQ#K@|SRJ$Gj|d)X@tXqsH9Rx9`iEJTvRCY7xV
z0YOCAe;~MmC{`J;(AZ=JA#MJID*_g2wg`xoos9^aCa4JOdvEt{C-EACSco6&%=_`p
zo0<1!W`SSf+Zsu)4(CuF7r>3IQxcekIUK?keI5(8^cqGgAj1X_=#Cnhc3(D@j(N%cpIXN`-~(YNCap?HC1c;A9-7MXQq`lTA%Y*n
zlH(hUhjc>w)%k7?Q+U$|;Ytc)GL50vg<@1FI;m_`Mu>k5F*4hUMpUXg9b7vjkd!)v
z)=^5oJu=05o+t#}VKREJN+?BF$jt}?30>K^FD6XHp)zw
zctiDMLQcuIRK*f2qpz4~zD#2wJiCg?;sRbVads7|e#J&qKDac+=fbf%qNv*4=70Ph
z1bmN*GsdxTy#no;dkm>!?_lcF*2MH)L6l>+H#>;h?j|?=U7ivnhv}tL^VSQU_y@3I
zx=fEqd_phIb21M~cYNX5JLJVO>&+%@z_NL8nRfIAc+k`c4iB&cELQv$0Za5c$)#xL
zzfJwlG$4(LW&97kh90wb@bnYjf&#x;2VOGi*qJ{luhC)N}0@&j4#?iUh|)R)UW6Py
z2=>sM6xRyHQl#x)&^?tR2su_LI4AKCF#ZAJ`WF~$*%lG>&C5(T*;Y$op_hIzkIDDm
zmwE5a58wp0I!N%~B;UXtAi$cWSpf={r$@bH+os{sSe%nn2!YO5`u5IP;Qz>JwA5rb
zfq+fK0m6nM@&zu~l%f@T+YyNR=sS=SVts-LJ~FS~Y){TWnylb=fZ#
z`cXf{Ar_zyS^CbQU^}U{ClXV*1$?1yPv<%RG2){`|C51(%ua6lNS7#BZ}B77LsVc_
z5Oqbb80nl%H7eF3|7XpVIwy^uGQq#@$tA{*AcUJ*BiBWm9k_3p$JkP@lN^=rv)yK!
zjLQ9Z7-*G7e)Q>ASIn$H+z#;p!B60~qD54fzuG*KUWo}N*JB82MxG{hgQu4ubk`LfUEcd&O*72>gM>=}k`M1iHJZ*93{bzg4
p(AP8uO=>6~c2li-%Ep}^e*v@of90YR=e_^{002ovPDHLkV1i;gGpGOn

diff --git a/docs/html/img46.png b/docs/html/img46.png
index dfafa7c95afe8b26bacc5b3694058e50946bb020..8a05f9b875776a34d96118727817aa2c3825f325 100644
GIT binary patch
literal 501
zcmVES{SeTXevHZc&Oj&WA~UC9^^(XQ|qY2mdP$LLn$o3Y-ZY0zwAdr_F>$pBfdA7
z&-|_-mAVjul&e68CFh|>4xC`sdIDVK`M{bER^7Cjg};DWN;qm^;fAemr4cEme_+0t
zZ;QTESfV&wDVh$N&X!abgosEv^1$bSj%~>M?Vej|%;d4;U&ST&hfOpYqR+G_Z)pRi
zRG?Py`S2%Yiu3<#xbYo_87qUGlwJu>tuqHHtHO#Me$m12GDq*S{fge1=@IGbQR3Jv
z*4V&G%o;Lz#s!6#>?Jj{9YKf^htU^HF&oJST^1ahE|J?ce&-erC00000NkvXXu0mjf4ldxS

literal 476
zcmV<20VDp2P)2T;GDq?Ry%-|y4L~(Mn
zmrw);p+j-jdkA$D@i+<{oJ6+{jvbPS(9!dg9}^R_LO0*x<2&ccbMkRQfKoi0mua%F
z%am*bkE&&5CPJk|IrBp}>WHB7$=U>>2=(@rFVYDd`k)6cZ-%huI_`I2SxI8$L}!vT
z2z(b|hm+QL%mir%U{%wo(-tx3V#2bLgyvwS{Gmw#1`<5u%(&8gv3HOFO#(W!U>FUt
zHx<{#(A<)scc)?5w)(tXQbtz~OYd+hr>Y(IKlSMpm$te%%}cxQkv|~xlF_1>5$#44
zmumxO{UtuVps8_OG!8YE87CdHXWAZ2%h#ycON{e=!EnPyAiLQFFuKI+esI*r5yp)nji`mmw323a}ihnfRG|Z6d~r4Yf0Kvs7`_p?#sJ--^=B``vQ#O
z3a|vV#zbIdNryHN8fHO;oH!*;A1n8=l*~%3AahF8cvz;yF*vF6upN(p69%=N&1J#w
z_nQuJO%6oGJ`~;8eOG=5X+;s2*r$+)6dEvs1|7KcYss@TJdeN7ABH~!MLgr{-azr4
z$Ez(Nbq;BdzRmk}z(^&+ghV9pLTxfsB3?rVxQV3DVCB@Q*Caw2BWyR)ngXn_5XGy&JH}P)9u8ZPwH5
z+I=+7sKtpZh0#vDSoZUtb*$v}dBG(QDcMcwT>KL!J(y<7ooF%Zp{5?RsmV$C23vdT
zEI&^#x6dhXoG^lZ9TXa{#seQVZ(|4PBzGRc6tJ#MzAwe7=jZqW&r?v|a;+8X00000
LNkvXXu0mjfycXsm

literal 498
zcmVh9Lt`mn_4HD?qj?19b+U|7h&{FlN014yX>k{-t60t~7}7l15a8hpgS@Bx2N
oAp0D|YEoiZr9nswnjZ220MaE-Rasl8^#A|>07*qoM6N<$f?^ZNq5uE@

diff --git a/docs/html/img48.png b/docs/html/img48.png
index ffc914618dbf09bee8680bcf88cbe53c88d8d5b2..cf61ecd875a2aca57b28bcfba2aa653ff318f094 100644
GIT binary patch
delta 517
zcmV+g0{Z=!1gZp(FMnlaWkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn
z5WBm(j*D;e00001bW%=J06^y0W&i*Is7XXYR5*?8R6R?>Kp1|~CTY$#q$m{>`~k(m
zIEjOJgM*XgCqxj$Mco~GqTuK`+2T@NTwUG#37K3R>`#av(0>X_ypKd{TUr#|d?1(S
z?tR{m`viIrH|;tQf~sEBYZjnYxEx$kHoz?4$>u;s19-71+2Ua75U@1;miWRlEO5uu
zaRL`raD#oR&*b0EFbsCzh>A}#W))%7k_1I?JMm31>Bj^PSa1cbq#hv^O%!Uc2qyj2
z3jZGN0G6Vd5q~p1DL^y*pQ%>tykki6M1)45RH9}cd0Ux~_k0f5gq4Uj+#qG=QHD&8
z-+&w&#S}4&iPC^}+KX>}T`;2e8)v1gy7*Up0F#
z{@|XLIuwB-#+16xc*q3q$-dmfnG(n9^yX5R&(73^mVU<#EQo$ZTsL`IfO(Kp3Q~LZ
z5n3{rmvrV5adgC+L70-;fp;TI@v}Mt5MSP0(gG&*yP@;gF|0_*&E?9j9LZ(1)!UQj
z_p=-m*PYAp4*m3Tj$W9S--V4)E114gJF-!7^LeyO7o_|hfOl-A;sFTK00000NkvXX
Hu0mjfPk;IW

delta 499
zcmViUfwH${OBH9%l|Uv`-(T7zsjV}C%8D&Fvl2!S1?BC*C;5@Q#5RUk0y&{z$dx>1^COIodYghih6TsP^i
zWeJYZR+0s6QI?ZHA+n&ZcYv-xlb@_){(i&%6@}qDzWM6(*+W-*((I~AA~>k`iSmX$
zCO5j|$~GauS|I>eZC5fJ!)l>v;}Fq`6pHR5*>@RIyInKoEU^?epH9@f|1$L_%Dj0#hN1h?Pi@Dse~a
z2v9`D^(k5;)4n9%Mn~7%@h+pukr-e7Zg3HYl`)Q6(^SHcV26xXaHSV8a3;%JzzL
zFJh5QNHw}9tXC*p#5XB)C7i;IGTY4w_1aL}3GS0!gRQkj4a(605fadI31ZiysXxl*
z7|B%RIY#N>@c5t2_I6-ZMd_FayLjnc8m#3fh9Ip=gYVEuEgzMbwiQ1Gs!Y`D(i&qY
zh|)nUMGDlxds-)06AkwVlLzqonhLhU10>1>MpeWWvTc>7b)f=v(OxS%(Uz&{N>~#6
zrE5MaUGjg0=E-dHCc26o?^UiZdqO+5eFgvQbm;E{&Wi;2K0x>;o^~-zosns5Fx|)l
zyf-g-!)NMQ;>Y)&KO7KlPJcjCISNS!3nX9B3@UpU>R$Y$2p{W<-coETzH
zsIfMj(Emd3s~0m0Ap-uS#c{?=nh(NMbQ0LTb)3`DTDsF_rj;xAPw&3}_CR6sbCRy<
z<3wK;LU;Ep#`4Ju@HOfTZBl`>?k0EPlb|HlufNm{;3-Yv57n`8TQ4bsvH$=807*qo
IM6N<$f?b^!EdT%j

literal 572
zcmV-C0>k}@P)@Q@u*VP!#?W(>C@dG3X*FcpE2CG~f#a6r@{6$Lb5%
z7ZAERI2b!RxmX03AZ{)h#3{pFozy4r>QpMI_vS~_S__rB_(9G+=R5cOTyhTZg|ZYj
zgI~fd>M^C{+@HoNz*E15ftbn^4Ys&UQ1*d>IrwrvdUJAD%3a`1@NH4GCGBhILLP}a
zjUSI2NLOc*&UXf$~b=6@C0+*uE
zNCqw>u;o}ZX`Hs8u^`C(uP?~7b->5ckG;2sJoz7C+HoqsiPOCj(?<_8#0s1Y;NM@o
z9^32lYlmWd_VbC7LxFOdC|w+jqe!z0>Oxy)c{fs~+TAAVebGAR@
zY9P;IFTIH{A?g;-RWvzDxO4RyEIuJqSF=FEL8x42HAtEHWZ{jpQ_O%cG26=Qa{Rn(
zE{kiO=gQOt#mr?~Nk8v)aus*hrkRL20}gPD5#UR)Xx@wx(~A!mk63^w4#^_`0000<
KMNUMnLSTYHy8spd

diff --git a/docs/html/img5.png b/docs/html/img5.png
index 8960898839f77c9c621f4c715850fef1cedf1c2e..ad004662323b3bf16443f68bccdf2f4b936f1a5e 100644
GIT binary patch
literal 228
zcmeAS@N?(olHy`uVBq!ia0vp^+(0bP!py+HxaE)(ACRLJ;1lBd|NsA)GiN$GJHLDP
zPEk?u%$YN*R;}vj=qM{I3keAUsxmS%x_kHT?%lhSc{nEk`HUq&e!&b5&u*jvIT@ZV
zjv*W~lM@=6nc6rNUNKDBoyFLZl9rH=oRE-|P>|pt*v^or@GRAVadp^Qr-FzDCc+`H
zOal1{2^LZZ8bsGH&DzU#vxcpVS;a3wy5ouE1;%HF&Q}Ue8cxhpPB<6&=2_BaP7W~!
ZhLe}YifsS7F9O=h;OXk;vd$@?2>@iNPkaCX

literal 200
zcmeAS@N?(olHy`uVBq!ia0vp^JU}eV!py+HD1B`~4UnT7;1lBd|NsA)GiR2Um%n@W
z&e+)a%$YNSf`Y47t?KCLNJ~ots&a90xqJ7nl9JNy-Mcv@X9xm?7)yfuf*Bm1-2lmZ
zdb&7C6F^BXe%3G&IP1?QdF@%$Br(H7A1CiQR_R
vL*|;7f#?U8LwETES$2PB`Ociw)6B?lr-xJe^3|etprH(&u6{1-oD!Mq$gGR5*>@RKHK#KotIhor^Dtaa2SFNR?XF
z4mDH7fO-Q%yHx%YjD&;`5@GMaAys1Rbt(=E?b4N%jsKvYx_@+N{sAO6Z3Rf6<9^tQ
z8wiamy6{Q9`+VVv+V9fK5L8Ag1$Xlb0}k?e
z-#<(YQT5^(zn@g+4rn%+>uBN-V}%oh0=|o?RC!*dEw5*{hkSRb$^j`uCTvB=b?};+
zYt-({X`tBGt}T~-6wF%R!ruh;M&F%}zWaRx>4@Hwe}9uc$7K3-QCWEtulfg=01s+3WNM+Xa4)lLy|NV~s=8u}i&M)WImP*R@>?bSA5_KD3TK&RhMKS&z?zDe5z$qZbT#sj&*Q_Ul4(Yx<$}#5yh14S@uklp_&?z
z`(k=auR=@|etV}6KYo8IFm;sKdwqUz#s*4n_nceNw>Y^qQze*_+j=k}_t&_>613@R6R?>U=V)VruwEynt&n>4j~0U
z5&H*(AcD9#x|zk<4*r1BMG(RI0|XItatJ7{77?d_K?f0$R(~hQ;2spT4`NH`4m4&5|0ZlT
z+}s=&-UNzJB%uKG7QuW;1QKQ7LV*|O^nNeVw;;8tGS9z4<>@lgDWHcyP9y6$4z!!^n9iNvQw6ILP`6
zP_B`V6^MH0>i!#)J#TUFchm()zhEUbu!Z;SR>RV>)qij|n;iyp$VDvI6?_O2P->y@
zf(`m~>5+plylPUI*<^()5~Zi%7*jLuP|af(-mP*#(=-1W`WWh=3)K^CuCOwCJf{ZP
zy2{h$%X%r_FdGq7o0z~R)T2ms9j*eIKNgpe+-wnv{;{CM&mk?nKi=OAP2yocT*&OK
zXWgtb#VU!CN2DEK1*gru`4axVLQXmP5vdU$+1p%LwMbg)00000NkvXXu0mjfFYN#V

diff --git a/docs/html/img51.png b/docs/html/img51.png
index f6335409c72526e4b20d54dac87e20171a8e8aaa..57fa3dfb6bb4184b3f32d923a4f18ab91b956765 100644
GIT binary patch
delta 228
zcmVfg5AX9z{bFEgy9H}1CkO(
e6vG@CC;$NF9u0QkS^VAr0000cGIr)>dHAo+{1Eci})mQ!$gCr^18m0EWw5oC&WOQ@dna7?Yiuk4SAO3$x>6Gh<_W
zrk-G^$LGgarf|NYv0ug5llgsFVdQ&MBb@0M)8h1^@s6

delta 241
zcmV0GBwP
rpvb_Uke!f@P|HZPg?Pbk1lRxoeh47@CQr#I00000NkvXXu0mjfU>#r0

diff --git a/docs/html/img53.png b/docs/html/img53.png
index be2cba0ea04111fc3d37f3d1edd410c14338073d..c56945fb3dc283e3cf837bfffd4f42c643119841 100644
GIT binary patch
literal 429
zcmV;e0aE^nP)SV1NT&C>>Eafk6N+$}hmc&Jf3Nfx-AgLIDF7Fkt~h
zrPc&Z4j}Uj0|Q$CTbwADF#{Jir6BMDmCLaKL>~CX5YX_8onbCil(hk58Y6@HaYp8!
z-yyDhi_1jffG~pw$Rboh{tG~hIG6MbBr5b5vXnyv6CMEl$_GKWEqLn%Y;9EYzATnltk70000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*I9Z5t%R49>SV1NR4B^c`)+W`dzIN)Po;AXhSaA^UM9l(GDcwh{m
zV)oY;7#NfoW-~CbY+$Kozy~-`xonOgfdxzqH<*|>8QK?s1^F2h@S1@R&{Q)iFrYgY
zXyyi>6B!C-b6oM2=4NnXU{X^0z`&3{0ptNDh7A)qnHf$)P2+9=xs!!q!$t?*f4mUE
z2}~rph!D`(%fM74fN(5Mz^U%Q0CFP(qqY)%&;Jz+NsYSvLjQ#r7%u+*fUIx=R{)~}
zm^Fui?H@3D7O*{FYi3AiU?`TqfTED$6eolg&&F_qf#J6Uv#diHgCQG71OEmFP`D^5
z>4R(rMr#N};R*q^13(wd=<4S;U|27}@xRdlVIKc-1qNP_Cjh9SII64@nJxeT002ov
JPDHLkV1jhipVwQ)A-ZX%c
zLi~5Y3#;UVksqdND)YHaf%e
zt4b1JaCVsCYJbd7SyeHNLOz(}l1XiFQIj9D50i?anbZ*vG$BED2v!%u@TWskn-K$m
zrD8B822efegbFldh#Im46~ky$`(nU8`F9P-vjO7r&`=LakOrFHiO197hK|djK_1?P
z9486wbxD1s9S)Tojw38-GGaJB=zB`c-qrjb`FxCyt$*NM<6i$C`0*S34<9TTy+*XB
zhA*}N_V^`-LyH*Eh2(Ifjqa_k7Ed1F$9zR4C$Bjsyr30n2k7^_q@ps6D#G=H$fM>lNC9h^_jO
zb_jW+r+?5ch5KyEuze$?ohbLZDec7e?nK&Ev_`Kqh{@WkF0K-6NN7I^ydkCCP)tWb
zW-HauG|a^)1fK_ZVgRsMVZqNnXrTEVUO(UT$vp1@-|$-83lo!zwl|HGcCzAd21)G%
zZ=3$qwfoVMm9+zGhaOQPYj1cQu48JqQs42(bAM+%mVWXpFaYCx>dEt1r_esmgj`bO
zq_tDqt(10RdlYG>qav^j#|PG+56}!ehvc=J{Wm-+*V`MT?uGLdE
zIoQtck5>3!+oDOo2{|hqsrKm(MdFh^vUnAo6f@f2T^xl1iJb%>J
z_Micp%qm;cLA=e@m>M(GJtzvW(T}&dp+JRzM4U#)xajsAe&;Wwwvz
zMmf2{2lP%Hkv*lixQMDw89nPioR!uUaQ9$93-EOlu0(>9SvaIiQq(zJlOJX^Os2Z!
zRk_4u0is9enhvDW^{bgy5yJi4H-C3A3d$W(fLs~sYKA&&^f2(OF-Edg@DxY3K+ZdQ
zG?23G0-XT88}hY>xtfXaUZIQzTycGcudl*}#Wr5pV{hYz4ZQBU!q?q8uwxXsXi|xq
z0UbZv*T6O)WMX}&IYqvvQ-#`QA=53OF>no8z81JP;4bnt$JZR!^Gs@vuYb8#^iP4W
zIj(U>Rp9G3yYp=Kj`OvjKG(`3$-P+zX3W>|j}%TVgOU0A7cRNRn?lI;wPALdzdDQ~
z)7Kbs<=tbpubXY3?jFHs9GSkh^wc)9*w@7zw~U-#L4w&EI4>^!3gmt6-Acv^Y=m8m
z;k;4|#Ubt@b&z=Arstf%z<*3)IBt?&`VnQc&uP97COxqeF6@{N3H5w-b$;e!g1-tb
zWe~BZTZMJq6-8;4sdno+YJ5DNGt!0qn}_d*H<(1@`yORH^dreYvWwdr?^I+i#DaN?K;PGg&p>1`&!@{eV*@YQA?oD^L;JMK!2a-`}*H}5{K`<
z<9uyGp|hE<=eD8-HK>KJO%{Sf>6aO`uY=?CuqSdf>B{mo`Zjhn`wmK9lk<_t(U9$H
zc=JQa(NOGb=4dG6>z#LWnN2&R)vNjaB8HRQJtu8d#mHhf@c~WgG!>JZ%ovVDj(kYZ
z%{Fr7#c<3ZEEW66m46q*N#SmjK-5L9oEQ#gzQ9uPNy1eE*EU@d>^v2p=Y@7T
z#%l3TlML5;wn1BdS+psAZPTBq8uM5g(Q}(@U&qHd)qGzITsN_t%k{Ou^&EUB-`4`y
zubgvk6JO70Mz@F>(-!!_G=vzJ&MgNIWeL;|oE%l)3eRZ2T!-B6%0Vxb1dXY*yG$0g;@6{Fr&jB2k1-f<8
zJs3PcAOREWt5aRV#PZHlw
zj5W_b`@PR@zJKwa^dOA4K6S&11-@_!_p^^~9g+rJb^{oP=t}`QG2eRIlw*4B!?EPa
z^tdyzh+R+0B5ne*)hBVKNjo0|FUyct2pkR47qOV}BuL8whap{zW&L*u!cG#>wV(X@
z2NGapNEc(d*~aC+nuN3tPmm84q>Hh9ybt=n(va3VmVacj4C!Jl|1mg+rC<`$FFkwk
zv?Nf5^tf2&Gz{q}V42hH3F-fjyu7#^#HT`nM!|AAFB9PWIqDq;%gMYo~X1C;Ggq|7}U22h~0obp(DZn9^82?m*Cjd7Rhln1p_x)bmiTP4zuwTjkY2a`C^(HQ`
z)_)hGzV`PK1Fn)ha+!{(+njbbFPFx$3}Tj-DYm2jk+Cd;nB`@PZP7gjmQx_+*q#8(
zX%KU4kB{Xfh&i@rSiXJf*d_aOQw1|_=B^F5j*yWF$yokqu-%S(@=?sFH{2v+`9ZnL
z9zrprF|Z8Fbr)19W;8OEp+;(C1&aB^M}Nlh4=cVIn=GN2(dbyV9QNAU5Q-U13P5if
zLhe8cpgC1U!#jh0iq`UwmTK(9AXp>ss=X<7=R&%t5}2y7t=Ifx@5a4pNRL}%XBXMy
z*4SBzdCVF+yT~3lFJ~s^DZ$Vqml>o>PzocH)7+`8Zf0j$EHe;mL4a$VhnW$I>^6u3nRD49z8D?71^Wb<@_Rh^t@b9WY4fXqZ!ReMgIdcxOEikEhEDEszq&
zO-b`;b{Yw(LaH#SL*)ls#o
z_*2D-AQZF`qoozCHfg3SejpVIchiQXE4ti=AJ-ngX1pP*?0)HZJlE%*d(S=hyXW}Y
zTYvx*daT;V5u}Bn1g8EgRet(HJ$>ya&&RhLM8-{#W)jF)ITU`*a
zdt}nJr<%#Fix8+zue_GFx(mL#g39pgxSBRM##OCFzJDup29t@eKB-+I&EpTMCRE>`
z+w|nBPvJ@>Ep>HLr49b-WeuN*D7o_hw_s_2VCMy+43lC~>-f`b_^XrF)eW?IF}nF{
zh+at9WXC=Ih`IOA#I_OK)k#ullXEw*?tkSdIdMl25}U*
zt-EVQEq|nSh-W%OFQg3HZU$N>w%4WutrOeZnOYCSWP=>1f~`M@Kk8fHANe{td%3^$
zd`NdfP;3Vaa`Kqw{CJn?pDa3)T2ScpC-}^4n@j`zOSFPYhDHP1UUHT{r*-0XMGCb3
z20n~cv$Wm~YyB0Q*#6c@VU>(0-@4E!!&KkQO@EJIRXp7GBYznzAvg(
zTN#d-WBLX{=Bh1<=&^rVGT?YQIz-nqq7z!`C88B5p~HARQqMRgNF&ESs|DETDC>c!
z>wlI4b(#YpS{7wBhT7#Dyyh6d*LlMgjXRswbW@bzvzJ6QRoT6~6Wdo?Mi?B1^
zYRA`YsIP3RMK2*zTlROT)!!-`!URhL9_m_jvPN1>>Xyk`-s;dqEZJ&hUj{>bIC(z)
zx;w+qw49>+Wr&&K1jjVW#IYWhiksok?XpFni=|Tdx{zjUlAw+sOq8L%9$5l7yMM(g
z3b&g2nxH3XuGN1lM*F&e7d+Q$MNVn8mMpb~m4)TZYRjS|dTTAn(Yph5nz5Y;6TILG
zyXf7XvrvAqh}acrv_%EG>VNIKOtz!4jxF)fDZw7Q3&AMdq`N!L?MKrg|A@*ace_z?
zdKr^|n0&b294!Y_ZV!r;xUT5mWPcnM6=<4fSLgP|P(4&oz(Y=wVNoN$$|Ph`=k@uz
zitody3{?NbB8?e$AxKI#v0%fXLly69
z+EupVt~gu^Ugy~M4?%>lZC;nyert@cZMPKRN`kL#UO$YZalEfJc2+AGtAEbdm(y;&
zg*PtcoF|)yu|f{(rU*Gd}@nznhvV>WaDb6U=i9z2k;us6q;<;
z5#W>b!J)G?DIPX1;2|g8!+$puV@Fub)>ZP9jXM2^EohdyZRkkIQO*R*1w0{o)HBXJ
z#lG$+$O*h9CRiOU;b}MF+k`px(d_)~uvMc!xqKV>@=$A1LR(UT-!w_sF=m$;6Q4!)F9GU-;?S;M6zSJ2tX@q?}5WXlIRMO6|O
zBiC>Y;Wj2KYFH|64S#nNJ`+pDt>N}|w*XBn6|;uJvCq@5!UB;>#p{$(|6i2eO7+B%
zxFKPH_uG^Sa_b+Q7c<
z^rCsa?H1nG^^{(`%Sa=&hBd5V7=%CK91wWHnwdElsqom-v46FV{-XUbqB%JVr_j!H
zE6S-+X+c#wq;x>951Fn!?qy-chEVbNPP1zOn|3
z4+GrC6)DCX-$T6mUQ!FS9P%V8R?btu+plmD|JMN7KXRwolR{VFZ=lqDgS#$FY~?KS
z-{;DcOOHG|yMO6EZj{Q$Ph94D_>=V~3=mK9mOTaMV0e)5q&z0BmUkjnGBQ$H_?^Dx
zuTUhEHlq~gmwp^x*$6BAElx^n<8Tj(rgRnFcH2+nvhpg&h}$(-
z-!9O%@)EgB-UGWw1L^m?iI{<04>1GJsg>#+F)*3SbAMe>4&hFk{3WHMa0;uSG~wT{
zgDOwt@;7w-MSz8^JGdYh#l1QVm;G@Wet~arU(Up3Ut9(_fLVAj6PNvQxzNMwj**GWzPPMz
zI;-EY#((7%gjrqJV_r=g9MwX58J@E8TpkVSpL`{BH^_$3U&M3ydH#Y)kBSv|Mzy=YL;I$PUHIRkKn0(*WPK&Uee2(q;vZ
z^vg&H>iwk=&otj5DKR1pM6BQr?xG!--vrTKBgX$j|7eBbD~7+>bMU+jLJwf19%SIS
zXddDeR^e`Vwj)iGOt;|nRruEock=)+XTf3>Dwrsnj1UF_S#r1Q`t5Yh8NowKUJMz9
zU4O_GQvJ7;yA1dl9m0ojIbOs#$jx=^1q0T@To*47C7_WWp5WvLU*MU-{p`(l^0;{4
z)yBX|`av!G#DcL5s%~(s(70T-#JXftlEr0A#nVA4DLt1Fxlu;!oW^BB#ggW>$G!&P
zvj0XIC>5VU8MrK+@hikslpf8(W&e#b9e=`Y#u}GzTrA$a`}@XnDm-exPM8Tim-j9$
z_6r<_+oEg7b6Ks!3GRwXj|EV^#>)@R?n
z8Bbu{f@${uH`$Rs$&Qc958S1mHBxX~n&y-2!MPla%aCj1EC+>fnI_po#N`LOUXtzO
zGEK4vkIV2mfS(&-T(*d0_<>m5PlD&pCTsQm=Tpgh_G3h#V00000NkvXXu0mjf
DQkSrp

diff --git a/docs/html/img55.png b/docs/html/img55.png
index 0b94ce1bb965ee459976ac7201259b944a088dd9..80ca5a952f3e902c0aa48fe67b04f0c2ae1dd19f 100644
GIT binary patch
literal 214
zcmeAS@N?(olHy`uVBq!ia0vp^{2g??N
z?%g{@Ma45`&a7Iss-vT$tgI{~Bm}6?$jIpK-Maz;0=swb?(5F~3>0E43GxeOaCmkj
z4af=cba4#fn3;Wu`+j>uC1miPV!umx}mFfg<%=d4LzW)KK8pTX1B
K&t;ucLK6UH$VssP

literal 192
zcmeAS@N?(olHy`uVBq!ia0vp^0zk~i!py+HxR`CDK9Hjl;1lBd|NsA)GiR2UmxqRi
zzI*r1*w}d0s#R%eX+U`w7ni$t@9y5c`vHgkJs_X4B*-tA!Qt5rkffKVi(?4K%;bcG
zgd_&WbCEnJ8br@!F(jFZSgvE`V&%!n;o}TQl~HKobmeq@>Z8DLsfSM|m!~H|aT&vk
nIqpnT7IH4!F?H6~MiGWz=Q+;qIsK{_XexuJtDnm{r-UW|DilA8

diff --git a/docs/html/img56.png b/docs/html/img56.png
index 38055651c907a81af1dd2df94e83cb4d7434cd85..a2d8c23cf4b43a65f0f31bcf5248dcd38053efa5 100644
GIT binary patch
delta 218
zcmV<0044wB0qFsd7k>`~0{{R4hnNYp0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*HXGugs
zR0x@4U_gMG3=C|1U>4^D25x2sUbqYw0|$^~Vz|!0z5k?%V5C3
zuz+C$1H%Tk1P0DX6$V_Om4QLV0nB;`G~58h;0Rz~U{wII_yiaj=D?JFO<-UE0RPes
U04_G8tpET307*qoM6N<$g8rRTFaQ7m

delta 214
zcmaFK_>^&ics(BrGXn#o&yib#3=9mq0X`wF|NsA=Idf)td3k7P=(~6CjE#-YoH-*X
zD7b3Xs8P+e;2AjRPFn`eKJrmP##
ON(N6?KbLh*2~7YqJx0d>

diff --git a/docs/html/img57.png b/docs/html/img57.png
index bbdf4b88347d61afdcb9aacff51854eb80f9813f..e49a3dc80e403d2f6165ea59a7512229410caaec 100644
GIT binary patch
delta 431
zcmV;g0Z{&>1H1!}7k>`~0{{R4%W?!v0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*II!Q!9
zR49>SU;qP7W`+q2P>{
z-DRj@V=hSe%D{IG7@5XEU=Nht&%p2>tc=B8Vuiy(hA7MR3^N*-e>gCe%akLTmQybY
Zq5#;4LwK!LkC^}f002ovPDHLkV1l=}s+s@*

delta 408
zcmV;J0cZZa1Em9y7k>@}0{{R404~?*0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*IBS}O-
zR49>^Q87!zFc^JJORptY6Mw1KIqz2CxQ@7k?iF0{{R4?2$`S0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*Ju1Q2e
zR7i>KR7-2rP!#^AdCg5HO$1?lQRg2RaiQWSvr*KA=`ZMA)PI745D_c|!LfpMXNr%`
zfYK>;=VliEfGk}}pdu7naN(w4;fmD9Lhzp4%yeEB1%)p9B{}zT&UbQh&ba})V0UH#
z91;W*yCTWtG+9;7b7w$r4eaRSJfAV>pTLm<@$N7AOZ2}pi332(=b7ZFK8@p;b~kyc
zRTWMnr2QMHQ-0d8RQyan$s{isc8MXo8Vw=8C7!*4
zB&nJgONQq9>rySfm@dj(SXE8h<(bjokCYx@+%|MBgdNnR8d3g^l^CL{B5q%RD>3^Y
z-@Rv$qS%=awsVa{n2=<$G$Pw{{q6?VR3@{$d7V99O@DeC-EAvjUU2=X$SP0~YgA2X
z>0;e5gX?xln~I{Z))QeBWMrc@(pIx6VreOIp9~Hg#mws|w3^8nKEzESU2DdXz@KP_
zoEjsyG*J_VHm&obKXIlIRo*m1s%DTid`O4bZwJRy9r8Tu@(N5c3AMJWPAS^SO|36S
z_3n<{$A2D%^D4D?XC=E2RXDx>V%<}UA>?zw?VVMdHrH+QOg@i+OFcy9E5#5rdRB^d
zt-Mt@OhX0i-n{86mn`bGlrE*Bc%r-jtR3?7#d$ajW#Z^99EdUZdDbJgq8VPXA{yCH
z2(iUt<5TGIMN(JaaGvJiY9Gn){RF3lhZv
kMjx*DJ%~MwwvRo9Ul~EMBUUD9G5`Po07*qoM6N<$f|_4?rT_o{

delta 814
zcmV+}1JV4j2Dk>07k?lG0{{R48NL200000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*Jwn;=m
zR7i>KRXu1FK@|RWZ~yn!InERk0ylRcM2_U{Y73X3A}Y9*^?!1WV3k%uSQRvaA%~_A
z8?Ug@#wFD?!K=j1MKpztTSzK}HBpI#aL(@D?d@idfQ?AV2Q%-@oA=(ld2jYDkb;(Q
zbSxwu4nij;0vr8F`yA|j5>ocZi?7(k`wrX#&-h!YBSwk|bt$07ycNwJgu3gxq4b8Y
zQ_O*ngA(jqynp`|9v>024l@?iGsVDSNDMaoFQ&?iyw0v5gRj+s@P>Cxl=|m2k#I6u
z+<+)DeS@IqHwj;43dPusjzH6AxMPMQ`I~|4Ev^$KDc=eWi<%sIc3*&vl7_>KfF*eZ
zGq)Q(cfT3V1(u_T0qHWU1R|V}L|H0D5-#CVZ*wS*iGOrKaV@G0Gs~*UW*Hy#f>M-K
z-m;uuoaubEb$ufpln$f7^U6&h)UtGRn!X)M<&qgxt!DTU*h9@CsG*3w)+ayi
z^`t3$_O0=4-SGJCaFID6f>juCr_9i2(igh>6l+m8IKuxAqwYygvXa>2W)FHUqav_|
zdC{C`e196aH(ov;(&@C$bv9U+)$EL=3!^_dpju{Ch@M#c_cvu5LUo5?p|XWHu}hNm
z;G!6Sn_YPXRJUxSGJslH7OD>%VI6}eDG$oP!igubS&^#U4-YYqg2UQ=EBgD4M%pE7
zs6h+Ya1z9oTYF4*bsn`3o5M7o4sor!yRDqY&cO9NNYV%BOmHshXc5Ae=z?@X^sjTr}3=4ovX98JYYYHKC6
z!|s7IUi&-6%FdL~SPI&=%g(uFyeg3i?C@woE7dkmn4r<=)2!|ej0Ab&rxNb0!&j0`b07*qoM6N<$g7biY+5i9m

diff --git a/docs/html/img59.png b/docs/html/img59.png
index 0896a6f55ed36a52122c64b4067d251836e9bf66..c06940f9d161f2559b72f781839e41adc6781049 100644
GIT binary patch
literal 620
zcmV-y0+aoTP)PbXFR5*?8RKH8zP!#^|OLCL@OiYAQ>E!5|p+mdfsfAA2IyRtA
zLJi$o5Hkr*-mO2NRR4fNhc4Y5q^{{w5Elp0NeHwSGR1T5dq#N?S}k~sVZf4TK#H?RPRJ0M5z%z-UH41^N`&)T+zM@=#@%u6)fO@B5pvBrS;
zFG{G=anCqa+G}Nn($!RP@Golldpo!aV&q&;?OUZ#v0)dYeGSmQOF*rv@}0ISbML09
zfG?zjd#sqOOjQlB*0zw;z6Pps6!D0k9cMpN`s#(EQ$q;=$;m;hf$H
z5IM6U-k>_1crNMGd^eGO$%H9ez%|gec5O9Lr%adEkO_pXwX((c{6OGFGh69CcZOjg{Ca-L0e8|lFc&2f>M1x$S#uJu8Nr@ZcJ_{y$pJ3x#5ySa+
z8JohE#1??n>~rgP04p#!s8bv>>wSXL{tRVVvbtt-
zTlB8>Yw!TJ*Se9Y?(}D&4yaZWxLoDlyPM|GXg~?@gCn4=wNZz$Wvwb2MME2`rhzVF
zrJ>T9n|@G@IaTkQ`I=
zGi&GfmQZETPe8Xletp@W;M|n}hw(qb9^lvK?|Yt0fb$scO3=ihRlCqBdkAst6%|c|
z#F1DloxD{&|v-l&xQpYJ8qaZoyk+P
zGssx1gf2ujL=h`011uDYtm!$SsBNY>0C5A-Pw-_ugrIF*uqkZ%o9AD{P`Db2fJG6>
z?WDz!T7W^7icoc-+xkP=-o81|7g008xG%Od!ckd^p|$by#WZJriB^+-l*BCx@jL>q
zfK~>rCpF4q#!i=07=bs7Je{gJzL?|x#B{G6N}(})!bgNVE3<*Rwx4CS;@x*Ti0cLD
z-ZgE44vNkU1`B!LA8+DbUFmvQBHv10cb<88Ih>Vv&S|crWc+S3%=84mGe6Vy4%`5s
WMg>Z^TKP%<0000@R54G3P!Rqol=5onYhu*Ngw+lI0nx!26Gt~ANoNyu
zb1*Wyc%vPR_#gZMPIe{6LH`9NYSIbsy;4fiMXie;;kev8j{ClM51@u%#RhuH6Sb9)
zuVqpTt+2LaDPsU0T2zE0Y7XnQzl9TB5s<)QNDem@Au)l~Xk5NX6L_vSI#+n57mjIy
z^$E0H$@2_hCb$O@l6>Mvp#|gS6}Uv|VLgI~T~Vn7SKACo|FZR8!YjSZPBkrw!Oh{}(%hSI=-P#R`4Z4u%Itbl7ebC%>k;H%TpN>OM<^#G6g=X{sb
zhPYMpV0000mP)t-s|NsA)
znVENYcU4tY?(Xh0Gc(N0%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001
zbW%=J06^y0W&i*N`bk7VR9J=OS>0>sY8z6&t}PeQ>O(v3{)|RPn{N_)zQDG>BGW$>KlYs4qgXtb!sI>@;8~L|xCh
zcV_l$c6SmL5f7W0JLmJBd(J)g%mf$+9{oxv(+wLa!?Omnc8M8AfFe*40gM?Gpb_%k
zP+U+XQpKhc!6677*}bnf|7LqkGcGmSVFhA@-<{ioIYeD_R0g
z!04SxfM#UH1s=smS?NxZJqr!e@{q?DdDtAsjr}V;k!D`e>gq``LZg4aC6=)6p+B!o
zIl?gvN+vm`#M7oqCnV&-ra_slD?iL$t!{X)wmIkdUY;yLF9%+L0xj=)u4K3+2Qc-r
zpl9n7?W+uN?bLM+N}VN&FR)-HjbJLJD(+LF_iUaLd0bx
zD(9Hlcy=?EunV5Turu78fB#otNkds3gv!$
z(DjrUfPVo7$Gk6%Hm_5l=}g4WUa`1cW-i5}M%$HA*+a&bG=me^^o<;li^Yi#87wG<
zqCrCsiXD_P4&7=TGgD~m;=EsB{8^D{;b>raQ|JAI2drRT&?FYWmr9Jwbz&`Rv(`%H
zSBLQAt(aoL(`<)eVF9NLtNJb>_p7m?Jta*0;DLA-4}??|Zzzl|=DAdQoK#$K#qBAY
zbqpXNI-zW&&5S`d+FN5-#U61UHWp=RkT#qJ*cQi#_AMnC0s(}l7+l)W)v9o5gKP1$
zi&>@!WQW@bpgkM=5ty8@a=3>r@h~j(M0hiJQ1&c(yvaFtOR{JU_oJ>;`B94f1zr+Y
zN^?5YswBVLkr?u$AsSU4dOl?CDjTRZkRNVi1aPV+Wq3C#U9-WUi+-FvfVVr7>Zxt~
z_o3ReKV+4w^Tm#NHu|JwmAbzN8M9Txd%IE$+JjXLAVeT~p1atjbbw=S?)lJ$d6iod
z)*6lU8u&(gB+wUC>DKSZ>-MxTNoPq!>h{;PRpW|!x}oxhab@gDD?IF5PHEj(W;G4&
z8LZfkvgupl#&$R(8T+`Bq4OZ{zVn+-yB5nSd!_I&&&>Ng_nYCF;~#Sl2BxsQYYu^WBC-(>-#KG0t~bV1Db@kkd(igJy+rKGW#n2*
zjQeftUi^e3pr6&_1wCj@{Jh;~)C&=cI8Mm#5GZ(v3WKrF?$B3sS>h61if?^OPZR3v
z!HM2CS!qmJ9rsY;a=3-J)V3D{@5$bv-wU_Y?D4{Um|F$%;v?+!RVkUcx-%5Y3)X7j
z4}OxM#0Gdlx{M}`Ms!ZYKsz}LY-=5!#aGKdcE;aG&Mwh#-{k=Lqja%WRxo*nIJCRh
z_dEJ>fceS};+mn1dZh4+0Pc(gms(TrQ=ZNuGd&GlS8=ei;z=uC$8
zp4nY^6zol5S&!bfXuaLKR6EIA@M0#F-C;1Yjq2AHTAzv$$M76p1N|=EP@KB*CIrosPIxjBxqQity19AHn-911)ZlJ?z>oK)JB9Nj>%~+
zByy1CvfR`)J^4=lX{&{a56-j$DaCrc@Is5LtgQpGUtZ8cEHgaa^<{5W9>_BrN`+Eu
zQ7lYg8RzvLFV1l+8kBODjZ%hQ#CC{Cvjq&E8%M)johhknYrL_q2cg)EiE8
zhtOsR5xB`n0qysTgm1hF@cS@gZ3r#tA2t!>fL(CPB4=goK3lfC@%-0b{3|3Y(=RBxX!#>0t6nn11jJOS9)Q7K5XFg2GKVo;IxM
bQ($0NA;_$#rX6|#XdHv5tDnm{r-UW|(sw$a

literal 3748
zcmb7{XH*l+wuVDhI>ZJdh5!+P1W6DCA`y@xML=pONpuG7~!=brmx=Er_#=G}YkXV#jDFgDcT;XKa?004M&Z)utU
z08H59p?s3%cs|L$nshA48ylEu9UUE|rl$J&`I(!WFD)%0kw|%Yc{-ggARtgsP!Jv-
z?&RcjyjD|Fb98i6OiZl0y1Ew;7JnRK@-Zd9{aNU(Hf$G!3{^uaBS$dlF;1+sI+!E^K3JG(^E#kAy2(>JhJMLx~h
z4boM;Fz2V(?~1l=6l-b};YR;l_oIV*2_-WR=dJ#Sy>hidUT!N_TNUdzx%%_{7t|@hY3#wu$VV}YM;{rY
z>|c~K*7S@WpTv8a!6H}~b2C+z5{UB;jStRCo>9Gb5&x{2Gmc^H(K-AhRI3cUh#ttj
z>L_tzY1W9axI$U4y5s__cyO`SZpqs%JbcFG1~E2kuKO`c0kz0;=iE{MA(ihr3C>i(
z`pBT8(akARKn5?Xr;vI1!s0g}`|1?RjCM%Fi(C6|b`?Hr_1IQ7ASBc1S2m)&GViA?
zv^HjWbn+im+8ksL&Fsgd3Q0)~rl%f$n7;Xy^z|jmz`Md?qx!9)Hay}>$L3bv=-p;u
zo#)ZV`sNMn$T-DAq}N#{wDwN%gm-Pa^Di~veAGuPCg@WOC3tT6)j1wodN1
zSJHd(Bvo+T<_BJ9ANs?zMuL={rthlKK9Poh&A@6h!zOKu?ija@$P+p0gd=>Vyn2DO
zJ*WHCnLW_pD(uRL8Z!%D$8Y=0p?I9A)_QW%v}g6rgRti(%WEi;4+FYXxJ!wsK42lx
zhyFDN+Dk>y?6As;zri~Cr7=bde?-CS_WE)b%mQ3lK$V2xi2lRe8>!-Y&3S$aqKb)D
zhrYBCi)rTq%6WKf(_UELN2y72)Zs=4SE!ui@TON}%4Be}7oFq!?suQ&cHzk>?3{3Y
zBLdbIP*arhj%Z1vv)fBD=e&FySb$65MtLT3kzbWIdRg_&LJ~Wb1i(#+7
z7-Ls%zcq*p0@P1$X9uB5XO{DC@6lkv4uuVg7ode#st>kh9nOSz=$E-X*34>5++hxM
z44zCYOEK40S*zR5ejP4Jh$_VP5HQP1USQ
z`}Hr$WIpLXZ+RnOSY$kH9d1hSq9+KR-b@$$u
z=|(A=o-KFjuuTeRz94pYW1>u2wILa~(m%T7jeiTtyzi#NkW`(Oa^gQ#A=sl{$LZ4j
z{Ss^nn_eAfXBlU)i@q6n%dJasatswN6H5$<%O}tkoZ(HCHNjJ_4en=kZOgP4?O;rr
zxpl|i@{U@4c^yTab}%xt09raPT77-rk|7mkRpD6Nao6F{wOjm=XI-pP9zz=jud<}i
zSWXMS4;l+~Fz#@B^NCM7{Zk5Q&|YNqSpj#F7dI3ST4V#^3Qk8?@MK)ln~vF$I1
zj_{U=B{||(lqz#r@;F_)(~grhu%Z`0yl-36<+>tdJAr5?ZBUCob%6Z@56MnIlyI+J
z-BmI5qL>q=d0p(m%x513f#t7YcboY?UX6UZzlgs`^bd?1zCMtZJ{Ejxz-PHugl$jEIAJub1;WrQ}zyUq1l)4dF;Sesv`rJgHmq0TKDCZlaOo
zx*w*KZGQQ4Dl}rj>eDH`KOo_G9wt%`S}VE15YoIL~_BzI>mRqY#-!!;{w1U><2Tzc!ZvM588HOOPl!*)!rp;ny#
ze2!m;&r7cs3H
z_F;k#?+6M+TAD09JNrN>T~QZ9o%U#VAb-2Hexkje`v&xxZ+
z-?3pA(HsmIId{+Zh#EAkF@XD*$4fi9T-AuR4mYQwFKg(PmFCc-IWVrB#2m{|?ZirjlK1V6Nt@Hkhbo*+MYAes
z4CV~lWH6*oi%Tf^WznqK&tLA~pS+5z59C!AzQ)Kpf05@zv3ZqCpqm>0QtUg<)9mcl
z&6?6L?0MB5$!CmyZrs?(?c{j?fu7igNgfe?6?TCrU&^3CPlv=9Sv5vvk!e{58kK+F
zzA+KEmy}gZooPc$0U#xGS>8?n-b6Rn9&&T{Kh@3f*ncE|Q1l7e6iWHXi2Cjqo~>$I
zCnPm1W{p6Du#0A|u*y=S!3GJV`XkyN;WXe*O3=)&@Q;U+%xSh@l
zuX?WLIcmibf>mU^N~r%OmL~C64DdFF$nfIrN>a^&J0dj}xSH-3di5Q^3|Ce-Dm#C8i3enCe`2ok>G4FwMeri#gdx-tL8ce!eZ2%D@5W{vA7);^H^A
z`?d>m=F;GuJjqvTj4%^E!<04#3fJ@vIcD@jVUR0>--7tP<4lv?#4DE>+3M77jn5T%
z_9)BF9*9GY{iE9pLD^_;xKD9}>R_AG94-VjH%CPtMT_@W6qnHIS#eD%A|)M;hU}zf=1&VD5ktL>}by#JdZbGHJi59b`j{w
z>&s@dDfqB0arEe!!npqS3}rXisA&8hs7+#~5@RqZX-U9xw7$Vwg?eJG2pC%{0z~k?
z3+XQ%HqTxSy92o&+4{t*Iq|i$kT)Z@PtsJj(5Lh;j|WLr6IbDe5${r7hNcT(^6gh-4JvZo7`1R191
zdJCBJV{J!xq6XNSc=OdwdN;vi-8wG8XwLLAm;}MNhBX(tBirn?EPu`&;%*TB{g$s)
z*CB$JZ*eoHP^mdD_s~2$YTd=v782$P3;Noev|#!Ev{uk8BAyw&KIR
zOJs%$+SHJQg~Jm?Om@_^*#09nd)}hUQ>J3V9lHMxJvaQaiz+wnJOvt6GTj|-n0$0$
zB^-E6Xh5Cc<{?cER?bFTZXny54;-8CJY6o>q}l8;{t7f(c)`;o77?fS7vn&uzQYV(>A{XC7eb^f(OE!w4a8?k#EGQI>o@=
zf06%7u{~*h7A~~%wTE7X{_%ikC>DlfVoD!fmO%vDyKZ?RxuX<7xr7Z3tgHj>K9
zB9AbYm_n|w7Sh_~5w1P%B~pl$g)^IIE*h}$zz=r*zRd176QF~FQrN_vm?_X;h@BTJ
z?t6KNSs$iA6#@!@8gKXwOVrff%#vJ2%dhx8*t1Rg67Qk$5Z9V#pA$^pv#vrS8*54&8{(Dmp`WzAaP^GqcN($KPe+Uf
zw!%8)RGl2;sDXz9Q7;C#I)4_o&PrevDvObs)T`J>KJf_qfAIlLbUaOzv8~wv0000<
KMNUMnLSTZ$47+~-

literal 3122
zcmV-249)Y2P)+i5o8d@ZN-b8O7XC|
zt;}IgvWHer3nKd`wBtb+_Ry>!AR@Hj!HXE6AQH$H>muvGLhXzzj*e{OLA;2~x{8No
zwX&)*zTSJ8kx`k|nZ55pXGgtw@q53_jE@%)Sy@7evFHi0FZyCGvn)Lmr6O%o*@Rpj
zOd48yC93Lizlgo8)34M@YpI1+i-Xp*-y}V_R?GBBP(o#Qs!qQqQz}<=4*fpXgkObN
z5c+6*sY?7hSK4Q@$P87@)?2#0P%;o=;(R<={yUp12U!cA%cx7?@5(g1@1z{%iBVWN_I==N{5{PQpEs%(Lk5e+Y7d!8n*-XBD9BI}mVr@0
zX0z7P&sVA-(}i^G6nQ(#nW#`vXk85(uZ}mbd_BzT7x;wV*n6Y6Y
zc5Fa2-OvF{grOWd#SGs;)(U2U@Bx`R7Trr3DnN@tTUs&i
zLBO-*EUQ^pV$wQm7$1dYy*V}*o3uZ0fqUto`q*?}f8p1pJ=T7QiS(Mb$kxfSL}5#l
z;-dvDV7ol??Tkky+zdQ;g!mShkjrc>{Ve1PT6q=2C40@gD@Dnje-0MKBIEX6!4_E;
z_H3|pTCeH*E?Wq>@M{ujJ*bB5hq{f8fF*6G2)8UUU22gw&m&;DbuiyrB>ednjMi(M
zH@IO?^%+c4G7+n}+(K-Fx|L^o>!9cJzn;j8EUb^S!#Fz}nUs~@Y=4#d+S9r2^vPA?
z>Q{5s&y3^oR-Soux=QU56U$CY;VLweDNC0c9Luc#Uk(8>OqonwlGzyRa`9scD%0~q
zXEHQHM?g#SPZ~oc+y?%P8J0;n!3ol*LgOm)U*$Ntv3ttka#=GcQ$74ak&kt*HPLT$
zs)jIhke}9JGRI
z7a8>ScqWkD;iSHB@^DI?mvSGfY$T=cJV~jytmb>N2?ZpM(bv;
zK4_@T5_+NC1nZ7N7uM?n3WfFhXcn$RK)}K=${ibfg|lg-o3L30SEPKl*Qwjc(3^tZ
zMD(<&$z4@w9L}DW4WU&*rd_mAu@|IMHKb-}_3+o{O+gFwOheFwGzX2WEFhUKGP1IO
zdKPYzLCjLtLt=(qiJU%%lMLNnX#7i3G1Da6i?7?nUI7RvOIXK;lPrPko7733cnew$
z5AxKO(S0Aq8<@?xm*2fgjDDL#k6xXuQh%7`X5Tr>Gauw;J@lJSubJn_fB5md$cJ;)
z?&1m2Ovbrt&y3f*J9+YNhbZa2JkfhQPwgM)scDXQXw83bGIP!cA3>238J3$|Qi%=K
zp&1tL<1VUpbV#=o6e$cJ=s-QR#L5?Tl98Dk=4>+)uQNW{G+8$aM}?{<&d7|+$c(%W
zGP1*tW?G{tvy!=LSzV+5lN$D8_v
z0@;LLAjP##scBQlCgSc6a!FxEW@JVNhIT)}_H~NRboLXBnJ)E)^v{+kO`n)pC66hX
zk5Jp{SsN~3K@C|m!)I-H+LVc#wIOCaYhz?aX5_k&oqomkNQIe*8Nseaj7v5HP;IDR_@hP4A$U0ItY$ojG(K
zOJU>&k<|--ZVLIAg`LSd$nROYqihMOsJYovpfL2?xJoQJTGbglqKQ=DIpANxq8@y-sQa?~_9d9pRvgyb-#KFBl
z_1a`-8alW=nw)`>v+%oiy9eUm1vCT9aeor(?%jDYRPF6P9&)~YXBytCSMECx{w`(k
zmxIwP(A~Zx9tNsMp148O2Pj+D#Dh@xlk*Qf8>s&D9}%j=*ROr)W}v$F?C|e_YIx&&
zPrU?6zVW|6wfpFCG-nnTO0v;994D0k&oF5L#%YO!8wxRtcMv&VOXJFS9I%NrQ_yS;
z2b4(X=&6W6valr0ImH1f^kPVRIWMjJinP3S9;8OdRH+*&4rr0UadaEROGcWl(FPH~
z+;_PuvShjgQkXMyri3{&XG)kebEbqjGiO4y0zY~xHT)H7J6#B=Y;o>1OFAvl*gP;m?sS0HCTh{j+}l?xb^^1^n69^&lJPJkmGC&NqK`
zR3jwE8_ao4GR%2RNaoC(*Cf*bXBe(vPkdlApSY6IW;i`Wux0p6kXSULq=Kdu9K?nE
zbVy#lpF)+4G)v!4LFP2{e6XfzW26I8(jn8Yb3L5>d!k_RDrV^=W4n&5T7{+xp0Pv_
z6>RG|tf$M**nW3}16sP+KQm|MObK&l&Xh1`=1d85X3n@^ah-;d*xU^4zaaseL;^P4
z0b*AEGsDJ-Xf%Fan$;6O54VTnpq2BK(XE^455CN$f6_bIz0s%o&#qur2QliDXR%#*y)J
zWXxY{{CpAflt>4pkYrlSd1;mO&Je^)mHA)?-x(5`@jFA-Cc~W9gk;W_g!AJ2uOWyXCbybcAc~D!-}reXG)m!MmTG@?-jp^21`c1
zGi2?(w%`--gB
z(e&+(i`!2@<_FTvNii$q9O;0RbjbAUTn}geo+wznidlNe*sdcpPJ5*Xw%@&}cZRUA
zuw1ab0W@C;fAC3&(Fb6`odcli{|1^pI0CBoL9^bY(2N%3o5`Pss^_5U%_&el@iCy<
zdmQokexSMXJH(6>$oa}=5VMm|F}nUwXw?Iny~z~lcE&&@hjjP+e~vu3tUV4zeEzQ?W|KKop#~F_#UV35cW;QVDhee;{aKVQ*_bA=p_Q
zrnXwJu~Bn>Vx?^g8#_NCf{2B1zPIbfM8iSg3J3P>yV=QblYIgD$YMlrevvu69Dm`O
z5_YIU4d|95qjgS;Y!tRqGN=T#)lSE%mZNQ#Au*fOoisr_AYLpQ`spEWB<<=uA>mWG
zn7?h{8ug2P+WL%7yiz1)b9CpxtACD!t`sZ)e3)Am)LqVUL{cX|<;a4%b*NC8o6POA
z0tFs?ZM??ZZIt+DB~S`UCl=gE^rpa|M!CwM{}DrDX}KBnTi1wtijVyc_e|>%ceSV1NUT0}LO46cYmyIKUw7z<>$37#Ny>iWwUwV39-s
z9w^fGO1UE5sO#E?xfsNrkNT{^|CaDb!BBm{D3^E`N;{jff
z0q_)u

diff --git a/docs/html/img64.png b/docs/html/img64.png
index 63497b0632474f618af81724b6460373bcf449ac..1653a0fb91fc0e56465b47e37259ce09db649418 100644
GIT binary patch
literal 416
zcmV;R0bl-!P)#7ig1wye6M1%-ZunM}USWWFIli5}`O^edo9gD2_i
zL+$+~9hp~_!2NP;-Av66sN^lWvC)ljDA{5s1!A!ry!DpFoB!1F_t*u_
z@bcm4d9d12;%xi2!fq8RcW2Z4(_#elS?_g)eg~f5zRxj`K@rn$UuiV7!~{4Oz$J%w
z`wSl89P*LFtCPJ8Yy&qba9GI}2eZ|8k$%u*zY|98X8M!-O~L}_T{c2eh4#(>0000<
KMNUMnLSTZFEak7F*P}Xfk{r_U;&4Z(F>yu6$S?w-!lo!d~o2vf&&d~(+ngG3}O>*0C|6|
zF~$mU8fY?iGAu~4V_T4v$0o+gmRDD{AVTCnKP?at?KCLC@U)q2?+rzynFZV?%liBe)h8hau`d3{DK)Ap4|W$(dX&n
z7@{#TIiZ2cjGfKGAi;rss)SMmV=>bN0fjJAj)H>{(h?F$@9*tBaNz8L158goH5`#C
zc)3U}W5%fi8yGx_3)mXoq^{XpEuQmU$&am#Tj9H=PlCk+hQQN@-KxI_@I**W7nNtY
zw1-K9DTimH0$=ivSOJD#JZcFHd@oaW)NODGUzo=|V>yFpD|Z4T!=g}GJB#I441g|U
N@O1TaS?83{1ORn)UuFOR

literal 247
zcmeAS@N?(olHy`uVBq!ia0vp^Vn8g%!py+Hxc1!P&p?hrfKQ0)|NsAI&YW3ZULG16
z`tIF3V`JkpXU+%;3a(nUs-vSLEiDbG(8a~&?%lgeN=mzT@0OQUoC*|TED7=pW^j0R
z10-MS>Eak7F*P}%fq_xu>3Yg62JssXYuNuG6V)9k|s;CJ1mk;K+VR7Dcxl!J0?yGfz3v6`$ZuPi!DAFU)*}g5Bb9p
zC6K_7o9WDEcAd<4&b?LL)z#HMyR#tZ8M@~Fob#P??z#7zTLlcIK*BARBoY*+d9`xR8iENH~(vl3a-rKLXS(p1%WV0sn++
z(-5$gTLfuR(s_F9!$EGZT07hBfXc#1FJdwbZHtlVwu`~g3lf{A%cxf|oN$AUA?-_zZEow8F2z#?s0GyX-7q{iMIwd9@+OQx$~pw`
z>@SFtCuplq8$nPfh!+YEUnSm!DRPYZ9&2$*?7k^;%KcTws_H1OP+LifyX+^6{($al_+ry=82)|
zY8hkv$k^K9h~9sXhQ~aykFxVqdQ=QFJk(A2aXj1~)$GviEyCP?wE(LP|
z1-$lG)(Y$Rp1HlkO+tCSkF4oV{pKhJsL
zvc(C;^k{E!s$ddjGn94NUImKL0t(JKlDNi2&4u+$tOG5hW^hvqd|4Vc7s#l1BPiQD
z;R(LHU}`7UK{u>{anlrN$oQX`YM#buMU7eHM^zE*Da#@FpQxp3G@j;{`KZ9>J
zr)Q}3QGh3id(pFybDK)Uz8TMBS?(vX;vS9C!M6kPEoWZ$K0UMU%;#r}H+1(GE%8C_
z2*Hq|mQUrNdj{#+)3P*I_BK!@uGTBcquBKW@7BF8Kdn@oK4CQ;XZauIrru3gbO
zwg}fH7=mu0Vt8F0)xa>74wG~gQKKclv!{dn<`p=Q(xGFPn`s#MER061gK%Afq3u5x
zP{}!u^Q_}ZZ!svYW2JR|Nfj=tKFGD#RLz+>5uU@cKNpl+UwcZg_BPHhi8YJX>Wm6q
zXw8>`jk1p17cLU+O9ay&v8?zKNSwft&Q%S
z_;cLKWfpbnT&Go8sT0*WapwDs$mv*6qneI
zoXf8^HrsFg!%yH9S`>|98)vbxU}|(GC6*vov_UsiZfGpv%C6iXy3aR09B|{!klqcO
zWU_fN9-4*u4rbZ4BB`#Tz;2koOa`N{s@>o;u%ywMM~S7}=tOR4Ea2oW+^}w?MYwC>
z=G*o#+uY%bj7p}ev}bM|}E+_$;Z5WfrX;4wZIWNz-e_}jCv{}2P-
zf9&U9qS*${K6XZqsl
zoW346+F6RPsfrI+IhG-Y?@bsUre&o{7t>0ZsvC!>fED@E?}k^@bwM1)VgAs&#t7yi
zyan}@5_kK3=X@65kmedL;AeP9qcbV7e&aMAHSYGDc5?11+(PG_N5$GEI_Bv#ytcQ~
zg(U+|@tn1HYp{xw*GGTvGxs0kA*$l{FRLnUyL|CiRUFSG)z~a(U)uQ?h1(BnbS5R1
zazo)!gP3kh&Xqp%$ZNhDRki*nUK(E8+v&p6YUZU`#lKP6Nx9J`99zg4X7cexB2n;?)c?y>upQVdJO7>ePZ#azkZ6C
zx)7fFQW1-$1Qoop*N`Zp7|2|@FB*aL;0RI6oGFnKUH02`z
O0000%b{shWZKjt6R}`TSdvFe7$qwT-bE(~#
z!ww?&4J>uR8Ch^(aRyJ*!s0TgO=o3TokNcwKn!s~BoEu@$%D|iAdDc$-efN=2#)T>
z&dQ9)h=O(
zUz#Rg3L=+z7FRjOn0Ael`8`)jIZE}x6*fcCw|1VN&Y=2mI=NbhioYx*Y1)&2)@9^=
zM{GOuxBDy`BUysB={wTB-g$vcTw2c!F*+#@cTWF?E`Mf(C5?-rcB@dFhq3b!28FpSMj%MolYJmvtQzI2u9VQqKGiuAp}O4i3_u&i%6VCw$cOpZr^n
zf3H;;eqaPxojbTX+9icYwuYl7F(Nn2L04A$VIysSP-}rC*1n^C$IqIh{SqMsEfNbY
zz(WOthbA<7RSM@Bm{
zhnd!}X!CehmEL?>6^2J&uS(@KZa1kilo0HLQ)~k
z=Tt0A`lU1>wfta!$)>1NR^8D{fnEZX-dou8`k7X+RGZF2!a!ehH5{nEu0#y^D|&=o
z=LEqZaUr_UfgrRl*<1gd3&9;hh5MJkKsuseBtFLdgfXk7=@_x;eoWV4O&!sgh_n{g
z5vh^^AqlYV6?AXJyG-hQ6Euy(!(r#JRA*sfp#s7vt$qt()5|lhVA&qy!L((&m9EI9
z!HsEm;pBJ%9R#LbJYr0oc2QdW$JmGITq;%VsHzH5>JtgLIpkX6e15VF)N5`!rCsB~
z0GR149!~n99vMzbH=NP48d+=AFJw`%ClPnFiZ)x-@Nbm0yZX1$A;4o(j5~
zz%WW&#Q{PNC)xBWo5tF;sS;du4^wx^UHDo64jeTor{C%ePM1t6(}iIMg)?0k9O+V>
z2E2n>-ZFbU-oLA>yuDkMwzsv#Z=7hgx1VSqPp4YAftr5Pu)ln@Dr|nFSr5!cp-0;E
zcBZ|J-_WKXfi$MlFopl=Ql?R7I~w9gCq`Wx+?niY;d{7ggm#iO&mnaYu*X7od@-vQ
zA_Gi7D9F`gU+5T&MIV-d;AojBBuw{*8c^cBjta31rfvjAn1?bLDwpx&MO^4$q=jsn
zO|xk>jn)ndV~Mmxsv{XPo<2ttX+PX2rUJimG?B)W@5Ic!!35@;7N{_6Iz6wah13l}
z7dn7YSVH(1EqCgJZvm(swQHpgdowN8(KKG0O|xk>onYG9+*1#3FgjPzBDO&Y$52;F
zUd)odkg%SZCK=7MOzxbS)dwC+?xMiW1XeSG$sM)?hbMPwyPd4B$0{f!(*L#WGHjYn
zv*}eaU5`877xd?>(C{P>A&$%j4FZ2$2yE2!+G`6;1)f7O{E2-wo-d1cG=bemUftKl
zw0nB;@Nc+X$2#t$MRFGkaS$~-kq?JBYuaVl^b$;i?U*^T@iO
z+LFVO&sw>HBcHI;FiIS+aUnfk-`}t$j=^9igwHY~`?KS5`N?_Ev`7$^C$|UI`3oDz
z=nb(eq|fMg|KO`OjYI6!Ng7nC8j79-BCNecqo=j(GHjYnv*}ea-Rss9FmCp-^`y~M
zKxHtFfeW_vM23W-lg;x;XkB4+G2lV~6&JGU^I=+j@VGbAzyGv1)0>}8`!c=L+YPZ^
z)V)S6BxV|^9Tbv@m6^b>r2$Zhx1O{%oqj`np@`m)j<=q8wt+=N2%rWmvS~KWrrC5C
zrm@i7RKm8NSfRTDLL5U4qpO6Y*EDG*x1L1FOkg!5c(3aT4A}50C1&_RVfrg~nAVT#
zCH_no>L2!aq6_u+)9PP98G{08da4WNrw>NPTkUrOO$-oTLFPAvp4-!<7oow8V_o`z
z5$@{3r4!tA<#=~E$UNSw;?Td;SH9oQiq;{PAaf-cP^y>=|H*
z&v~rj;la~?dA!@twqF8jKmOw$P8kT-u7<=ee49c@kFdwmm005MuQ5Dpn=gjh4oqff4i!4H2s>(C^}8;rRD7{*KzV`j`0ts!QK
ztRf@f3bq>rTYtuCwst^JS}Zz0^;heQKQE$Gux8%c0Y%bOaI5zj^CvnWsZl-{Q)^!n
zQzL0n%+b5m1LnlGL8`T{8CN4oBB}~ru>}2Xe(v|098pVl&|tJ%!||ChGiH()Gh?QR
zF*9b07&BwW=`;)jpL^vnU_;`%!U<9n1Z=okiUSI=_U>Y789&PgHCx2b!_nQ*orY;d
zn|!c&o-+J3*uJjmR(2~}$$aq6A=tiN(Z;=R-GH3V7W1WBze2}(#>C?poa(F`E#wiQu`POKNGi5%x_fR
z@LsJPwmfbQrzmE(ep)KuzCE{dKvL?Oj6(K5!d@p8Fz6!P7F^qnC|4%XnEA@Q0N
zHA*Ae$NX&^kW^t_rO(=;)c!V{-F+t8R-f%T(E&|)>yOa${@)ow(Hf4=jF~Z$#F!Z~
zMU0s-Q^c5;gBkm-2ePo-`kf((%hV0t8A80$BVid{A~lsrTIUx~4RJt`G!@+Ht%CUl
zK2K?pTR|^a8iA;t#phNFV@9m?jXCkrHF?6VYGP_6Nkmn_D<(eg?(Ur-&EC(?#Kd&Q
z^dG=MHq;LuP62OY23X~{1YCOk7_i>jhYs#RYc%~AvXBk+H>ZI0qZ7a?za`+%_RkS8
z;5W6z&OV|>62y#dsNeG$s$RYK>h-HvRj+CmU>tbzPof15czi6W
zLCTo11SNoqa6sP%9&F5mCICvaz@W%FJtD0A=oKk64b^&vxe36HLzs+M0JydUw|}_=
z0aZ=ZxQgHIOKa?87EauO6MIAD?LNx1d~$X;yE+2{Q-@GeEYLHwsIS%T=_-BrgDf<`
zmu$#T)PQqx6ISkFRVlz>hfVN3tX5`8FwFVm-L8SDSjx(f)
ze;EP}E|xO*2@G_b=E+XHL&jGOxru2S7s^M0dP;|6q9z=iswx#DQqUvqMNjt;Qe6hd9>b!*Oq}qb`R9!MpG^TD*BskfX7IzR<{&+Da^)kN_`LkvU!f;|
zPl`%E0H0emP~-2A1=G^m;rg@XPkW~r#?c3$j-kgiI7$XrSK!4;rFt5E)Ayd){#Q33
zHibgedYM?K1G)Lz^Ug;kwKoGDS(IFFrD1AiUxUbQ^>YV7SQb$
z!%;m_itOd|E;JgGGzjOr=omDekp^Y*Dv~_(m(`RLr%;qDHN&aHxWJL?7*wsp0CE7c0dh3!<9j|Ln>t55I;+>!_m5u^!6de4i00)AC
zI%ml?om3b68@T1=J4$f7!8lq9r9ED}X?b}b>qRSpmk&1~go~77Xmf7SH!$|NtIAeX
zE(on%-|=a$f(?;t!!^M-vlWa}CJYY)x%OAtqkh|ELNnQMzL|N$Rsk*^+VR(En>#|%
z@B0H^hJ`h3y&|_hm}%&j;L;Xbg;}@?o8A>ta|tSTl*s7wOz@T|%M8nJaew4qb(oFv
zAP}P%#+%UAA2Tz;C$GRiL
zDayPNdEWlea1ARm$d5df&!8Q$7aJb7X`>|%3DKwu;`KYTfq3fGFq?iLaOvUn)03oP
zKf@%zL_f_Q!0RV!?u0FQ7b8*au0!$o%*2PR)h8uSB%e&u3cXC3UP2Gtgc;rHpoOu^
zKVWL7EYbrq?6DH>A}l+)8yZxYaWn@mlWd?ZdHfERY*tg*1$zqSt+HU4J)Raycn8ka
z*~9res)pI`D+11AD;Mm$NN90bbB#TC%w{5w1TI?B!I}%pihs+iY37cAld5bucU?G(
z1B6LFK;$8_;LD=Vq3MS%Ij_E&921#WeXrgfM#W&o_Fv48u$6<9rDUmuX_So$4Vfh2
z3BfBxo_3nfQjSB`Qe}_I#N
z75hs;MsTnEggW8v_;VE|*nGHd&r~%td%jVALKEyb*0qblhQPe8{3iTV$GlDx$hRRV
zc_Zmu4hrs0aPkdRW&%6-_2_L{rXMMR>x>eV=$R^YE7~&$N{mco?$?QH5Ug1FPiXz~
z{VaDI>7xIkmz_#EvKgNkqvM>2N?+Ru3y+Q=_Wy;KzW6l;v%`~V4f{)uM5pw{eaSs2
z=vQ&lp8l^5Ne30yW}d?(@eVH1Usw@}#@Yh3&jl?3&zHZc9P~0$Kkxs|j49mRdkTpw
z$3Sc2^sbz+h?u>+oJ?2Vk7v$}_8h?MdLR`e?%uz*JOo~cuLJ(k+a@B&1FZ@FI4buM
zE?=%F3nlv=vRR5q@s%G*T6so1k1dEwj0ezR{C|0MuE
z8wswoA9?{;Y(QDkz7H8##6xjOp4Rd;
z*+Uo9(ZA^!jT+{GIX$)^bqmkg%*6PRvc!){Sp~76{%e5S@Hl*jA}HUyrEFQndZfK%
zYnI|+ro7aNP^jnZJm>=Z<$D6Wysfk5>YCld^OsQyQ}8JK5BBj(kgdyZ
QX#fBK07*qoM6N<$g6MpRoB#j-

diff --git a/docs/html/img68.png b/docs/html/img68.png
index 5fc286046de65c9e8b31ebb08b1ae4882b8d51ea..364c435c1b45086c8877717e33c533a839d84864 100644
GIT binary patch
literal 3213
zcmV;8407{{P)
zScE|SgKR#)QZPhdMsm{f=%gg#irhnxaS0s#dA!MEUx0)Z&;
zCDT3A_4VGXuCDGLO|RaA?X7w5)qB70u8;SsYkGtbM`9$zuGkQBnu&=JC!&_5DJrL+
z79wS9IAyy=Q$Fq&(ckLQugq1R%UtBDJmfj;H;G?fD_dt#-t%hAxml-vwNNUXwJQMa
zYSj+?Dnx_eN88_0k$zE24N-eWl*x9X_tPNUDtHuL_0Nn_jWG(uS*`QrC;SYnDXP6RjvwNmu}}*61|hE
z-NgP>;e11AyUiVyx^A4z$5s9NPSUI@Z0N4Lq)Zr+NDIga^7H*{$dSrRG2Jg)(Szb}9r6#ga6!{zsNE_QCq)=rju>wihrbtx
znXre4C8In{i^%5B#iz3W6;{g7aVHar}3uh1>?;g4@%VALx52eFo?;Xip2{zU|=*YiEtLn;}^{Z5SW!XdtFz%>ns!SJSvkLY!DV_|Vfc57mm
zXz10rQS-G$>2sJvIBLG)`1e|sv4F?O0F7M*rBkgP9NA#)v{BRbUAGYO$gfGH_U%U6
ze!!W41Z&^EQgp=8Fq$!3q|fsVSg*afgQ0w@W!_LXUm8(D2GbK28Q!-3^h9x(6^DIY
zvb)WZ5Q~S9WtFKGmxsej!=lZT!)58^`xWn*Z!Qbd?^mo_dTr*N$+9rXD#z289>ko<
zFetbRjR8&u%xi?bp{^%gC9?0!kdRHE8q*4vOdX_lP>4Hspdu3o
zI2Gl}DZ9=GWcI*J+d_hr{;w(zm9l-x;EEVEOL%bZ3n3qEZsP%d4nt~uY}%LW#%D4Y
z34}5ztcQ(t87)caGN87K?&!g;YA^QclF7mlp|xPFfRLgAwGcMFI@1c4ZOdS^$Ay4K
zmuKCDljV~m{JgMfHyBRVO}mJ_A>773Oy^Rmaz~Yv<*usYQ2uGIEna@eA-5>xC3h95
z2W~ppt^*K)?K(Sb9!}!IIZfP+d!A~CV+iGC2)B_YZZG-p*|tV=)9!o#XC
zx>uD<8t?{cc}wr{c=twCI={OtOeU4ZZ|R4JKf7D`xIe4ZHc-(g3k4KfO0bDo?$ih0!C@ed0fpPOQpdfS7DF^$SDQ_fL*TA{lc
z`Rd&vq*Qe65U-0eiA|AXu@Y?@88
z>2)!UjzB>nqDH|B461g*0FsB`p!&iK9Zm(~pWC0N<$8BV6WD88B(S#A?(M%p)4sv3
zf(1L%h9QoXzroC}KExShmtoT@Fm1MDN_snH4!2|G)^<#{(kf81>C_1?Hb~qvhHge}JmNI0W1w
zY>}C|kp=?{i!h;qP#ZlBvdge(HqEBj#q^4{p3unf6*D+XdUd);?jG6dWYcLk2DOpu
zxv|-`#xpG9^PLB1UAqjM?$@;X;7)I*fB$K3rZ+#G^<{dew+mvusCz&y1g~wc
zDnTKl23M$j%Q`E7`CH^SHxjm<`0}L?&t)*`C<9xi>68oN3+dHKaPP4k-7<&e=rze*
zq;So;44Y=tZ2HuiUdyc~_;<0KIvuS}qSgnw^#nPm$m9+$n@T-yJz+W(WS01|s$hQD
z<40A&d_T?n0?HH=NYk^bFwrdJ3wis{#0cRPv{@C->{X?wq3Mm2s-#cE{C?Eg2e|2_
ze$DgSXMG2kW`{R{n)qQ5s7>Px-im84
zJ_po(`IUPvXKQwE-`}io{tUo8SDVg&+V~bw`{Ohg^YqD+&-lEzzWDGVRQs&Q8Xq6s
z|Ch(R_E7wE=BvH_(H>BH`iAh;j-oL$F;P^^+unp(%&z_;zCuMIYMwQPs6hvUa1c3h
zOYO>a?4gNNQ&6pi1B&Q~ux{;wR!grL7qSl#^NQLAqL$t^N@ef#s6Oa-RaleigJ})|
zglJ+L1LD-Mpgr9INmwI7Oh#t8>1s_h+E5VHX;JH*VhRI&^&!NHtl7jt?PR=NX<(jRxUjrr5_K{C;c%m-`JnREvvwZ)uro!er@?n&gW
zqtw!C#tt1tFY;9tJYxwh7B&6upTlm6sl_=6&=ALG#>|*0V$6)0BF4;^DPqiw87C~R
z%V8uoR|5~$kbq4h0UPcBQ6pb22c3vsN!~%3kF4%X9}cNn}kYZkY$K
z8L1ZIfTrP%&y1Nd)5Mq=GewMIU>q4gN5=e}#?NE|5}Bverj6+iNE#yM^jp_9?{1M>Nl<+??+o$P
z_?;m%i{})^+!D;=g}MAb?6r5hG}-@kzL?$l+Hd5&4o$8A^TEfLK9umwrE85j6O-S`
ze{^WF|MvXJ1tC8F)T~33JZ_wF%(+T`X9%pBBQFC?trENj?avlF_XlY88bzU
znK4tum{)^2?#&;OF9S(eYw!~_*eg8>AD$m2@O6Gf&0{rike*vDtgZ3$6f)6^%m-`J
znREvv^^Q3`NhS%qCy}>~QcJHHJ9HGvX|MFao_DY6ogqw2OploU131Wr`qAwftO%b{sSV1NU*1z?Ju0SOo|%wxa;_!t-}89p#D31E{%046xg
z3`{bHPk?X_;Ma!?cu{y8fGz@4jP?KjGw^?4FyLljV1dc<8(eT8-egL^2Na$N8_e1T
zK+O9A?8t_x5QhOBID<0)#Af{ubTcSU;qL}h7Al1tPE&i0)qm&5EwkbDhdUwfS8*>07&vd
z1X$UV@TtcHOhqOP4C=}bybza(F)#=)rj;>(&1L8WxfG^Qf;59k1H2O!Ffi~a0f|Fe
z3j4DA5GKA(Nm&Jz0Won0Is+|NogYXQrm6Iy*bR
zd-qOJQSr=~Gpkmu>gebwD=P~L2>~iJGBUb*_pX3|!0z3<`?~W#1BDn%g8YIR9G=}s
z19H4QT^vI=W+o>zFu5^nG~aA!oXpsApkeMp29KiVBjxf54h*T@Y-Mr^XIYQrIIKBv
zprCp?12bEJ-h+0jIqaev8>D0y7QVMA@JnD|*ptqYuzB7c6`-*Up00i_>zopr05N(-
A;s5{u

literal 202
zcmeAS@N?(olHy`uVBq!ia0vp^d?3ui%)r1nE0LiD$T0};332`Z|NqRHGt0}%LqkK~
zy?bYDY<%X-89_n8RjXEYbabSpr2!SXxVYTCdsj(GY4`5k^0JCkfkKQWL4Lsu4$p3Y
zR|h2t(?=m#F3uJ`x$K4)fTSZK^W(f#XFb)cCHp00i_>zopr0QvhvMgRZ+

diff --git a/docs/html/img70.png b/docs/html/img70.png
index 2539460aa3a028e10010860d8eb06ca22e135e5c..1e347c622a4aca6e42765a09e936100617422ba1 100644
GIT binary patch
literal 258
zcmeAS@N?(olHy`uVBq!ia0vp^0zfRs!py+HxZuL(EkKSzfKQ0)|NsAI&YYQ=n(FNA
z{O;X5MMcFkXU?ozwW_0|qpYkfBqRi=(8$Q>?%lfr0s^~t@9yi){|ppjED7=pW^j0R
zBMr!D@N{tuk(ipCz`&FyaB#!SMsXkG56(XX3K(5#7`TiUFsrq(^Y92ev@Fu-h;LrV
z#MQ7%(&dJXM1{S9gh4^`mjY%};{u~4jH>T`H&4kqxKv#H#FXh?3>S^~czDDVj>|9z
z9dr02ogsa@PNDgC^L}T!h_g$geA(GM%vMJ(i2{0QhOnr`LIZ^rK({b>y85}Sb4q9e
E0P$m3b^rhX

literal 773
zcmV+g1N!`lP)KRZU0~Q5^rh+1c6Iea^mNAux%0J9sKcgKk|`DJX>4
zQ*_*d%&17BQy`48o&p&=Nf*}w*;|uX2%9u@>ehnLAt?tB(j|7y8j;HF&A8V1v2CXy
z@ppLd|NZsm%>zQvmWL!ohc12D;LG?kmeGbBBG=Rk5Nl#v2d!@d^purDR*(`Wj@bG}
z{w_dM*dcne0rhg~9zzG=CUA>&!-Vc@d70Uui^pJa^gg9l$TQOIubuuv!t#HIq!^9A
zOWPGZL^G>EsFUMbOM(DaT*c}24F~4hGYM6AFSw=~^l{{5k+(kXYgM%xElrSN>XBMt
zsu;=|%a@)Fnkl5slD$3Q-a@*8JhD@it52VAlW#c^wUdwWKBvnvDzEd_wwBvQ1KmTapzQhueW$Dul
z?qd;Gkl?so%lMjyzzG=mif?b9cv~A{vpDb^6&x3w?<6^>Cb`J80h>7bAq;D_GObtS
zkG)hjUqkgD6ZN~~6C5=`iJY=-gaAcCjb{@oo
z2F5*^-}K6210yotj>B(u-MxEPKtN#k?%gY0DtLiHj3q&S!3+-1ZlnP@
z)t)YnAre!Q6B-&AG|rwqaNu|Y{|6>R>lt4eR@+z~W)V1g^&!I|E{O`M4^r)X5t1Sf
zBFfE-9jjh2aK|My1hKIuuw}YEV(U38E30d8PKB*aPh)Z}FY|p{+a6?zl6{gbBq1cSjIzsCmNAo3Lq$?Zmcd|brR+_J8L|&!WGTyFEM-fU
zu_fDBqA-RT$-cxp{r~Sd-}j#Hd;j16J>Pwv^E~G{_kEw=eO=e@cm1NRElrMcp5O!k
z07uPCjlci^vmgM#)W*TWc(X2cxiS*r)>k0L2L}h3&zJ)j7Yqh-P*(@7g8KXW8QIGvr=5xwBZ-3SiqR3MzQC2
zL&yOkQ*+VW$XDHEwj(9nup$&n+nIfIiGU
z@+wX_{Amr7xYRf6m(!6=99)yU=cVa2O~HlZ#1(&yPJSG)wkuvzaGhzMFt9g1|x9=VbSXoFqqznL#uDK19tC=a-v%#;7}vG2Qlk>ANpDE}JgPwZwndHf&Bc`q3wtCU!f+
z0suI7%=w6m!T1L>sD`=iOpMBUq}C+|8H5|{<{h%}P-Fc-qXhw(?i!@PbabAU5?qZ*
z$&}%D_mMXrZb8YDhXk)XJg*lcWc-xZ;=+*-C+!FgUbp%?fzS=n=K4o&$&=F*gv-jx
zQcU&eE;o5}ByUmf=zS~PHS(>X3bU7n*GE%K){?_Gr=ky6ldMNBH&r7P2^{Xr@ps8d
zrZM>U15pGZ3!ZVJ0030HXH5GgT}oxXX#Ab*ictC3CHglt2Z!yWEGNSD?R3L1pB+>aNF0L
zKd9MClhLMO#kG_g!koyDJ|cSiVpV#q4k`XPp-Py^r=oujKf61jFrk~RmMpaE=Y+zd
zcNFqRd)l3L>92rG=bjG;fPu=a9|ze6joAl{S*W>;hbc7s-R}>4#d2`G`xC|%JR;sp
zqH7EUMiaIPa!nhBNgnA?iF1Th6-r{UUTvRGryuRe3-Q21wjH-7s{5xlQHn_fZD2
zRxsKzmTI!HJD9+cy|wjTckx#JPr+7&wpn&6^C_tZmY9pcwu|fU6o2=3+qSs>dL`u{
z$s;apevIL-jLalxC_wjlj7QW=#f5DH=kRw3`{pkRJf}gI4@t-a06bB3!yT$P
zxmxK}4{zGL?Z+3BRl{4wM`(J8%7k{D&bYHZU&TtIin=y4`9YEk7fwxfeqZrYU5KMD
z>+qctPULi8aq05OLU-BW#xnQX#p%vxjB*h)H1+K!OdRYf9n=CoWNvO4RR9JmmW
zw(@0;)87Vut5oe8p^~Nig=}7a*_!#LWEyTGy!7hOL{$5=0~@sLsI$no7y>~Nw$Ni<
z@%Zo?WaX6BUa5P&!ul(cef#B#^SZ>$me+`l!vH{BJXRKUbqAsvwCR&TcbS
zT@S@9?t*=m^-x$E-~jE5-I74Z2Z@NBJW8hp(^?9UoQ~N{m5L
zZy7}hTyB4i9X^piua!>X)40zfQ9EDzBRp8y6ZjFnfiS>OGK=x-3z3)o5B~nB%&5
z1JaBT&66472mLNv;dLq4KxJct8VrhF5Iea@4Xv#WD8J~p(G;lo6aA|8_#!}S?Cjpc
zsrG@_$}a{3%H;g{2RtU=MH)T0B(xcutz%FyL5JRyyqhMsTQzk26s`4vRlV^aGJ;MD
z>N94C>OWizgN*CRM=)e9iWnSX!gCn>p==2YH%i3Rn1_KAiW*~-Yw(p}PCMd~ow?d3
zf5p8Mh7y7@Yh9>@;QH{|Z1XlA1KY>5N`fL47j`wP_)4`#(N~4eXrW0dof#?tgo_Cu
z1C%(XBu?I|vArABX&F*`X6frb0MC}Wl*Ua)h&?n&r&(WfT5R+THKN{@$9sxCV3wj1
z&vdL0Drv4XhC>cXc6dNo@g*!^FP1+>EM)M^j+Ns0Q*&;T^!d^QQ0!2p;(nVAT;U-s
z;8|uTLFj*zVrF7a#S%dp?Ea{J;S(zu0MA6~9*?*Q?@)sWUZTenOOZp*-g(%V
zjzw#(oc=fRz87d4){WcVskkrJJSQ`H#RfgIy8PwXl({p>q8tWZ(fGYlgMW>GZ>i?H
zv6|=(7mCw|4yxg|q9AJ0pG=FFf1oCnv1IB_nNu-_m1JeJ;409h^Uu&<}p^qF!?
zkuzy{_J6K9h8p*@?(0%N-~|c0Ts&VOhI9
zvEY!}=rl=c!jTc;Ti>Jos+|Jl`$oqiwd@x=qHk7{Q!)1)xxLKA
zPZKhmu)WhL=wjBJOYj)#1tsE^+&F)32
z$7(O!%fFd2t6p^E&8-ag=KP#krAGNuP*PjGSk)Xv5R8ag%uphFOV243*)|06Sl3+9`C3~us92~ucmV(^}J&NExYPPS3L8GQ?Q
z22#8j+8UYSbQokAXnZ1IpX_**QlsrJ#%tfx52rRq;z9CDAGE;}9&m~%vBPa99-^C_
zl#{1#vDW96D-%f3?B~1W``R^H9AsH(bWBXvKKFS7zhb{(dvppV=bO=gSXL9Td!dOk
zB~(8F#1zE}7_>iQfB=@cm33z4Ws`#owaW^)1icqcDb-?gM}5ChTkVWzkT30hYkJpI
z>=R@tnq~mzKuiMy?qCD{r`f
z-iw8AS(aV$>q;_k9uIr~gwRpuUZoZVcIta#v+Q%72xk
zx=s@!*em!d(}@|xZe{m@haq?m(+(%4Sr1xY!;NJ1W%*jqOw^$$WOK1VS7tzQC;N_m
zEs1&6OVOJ^7K}46rH2{LPfb*tN0)Lg-bjlqt$NrR0?y$oj=BEd5Z1lC7~$NtI*D%c
zPDhM!ud)%Xr>_%(VZXGOIvbo=CNcQ;7FuFyYzdF<4~{FR71;)6Eu1b(>BT(+mM-gx
zf2+^E`1(y2&KpTCPjUM31s*%cLRPI`rpq?AbspPPW}2))4Y%|-*dgB*#yGu%9|eBQ
zz!YID;&Qow)IQb?!NXH_BjNtda2o@^4BGp=0UM;F*SfUdXz2|84YH5_K27wm&IAy|Epj~$pYUcBY~9w1i8(ku%rJ=VDLtcTsD;J?~o5}}SO
zYR!4i>AZ{rI_G5`$_`J+w~P>pg2*0RtUv+v#K%izZ!=~1U~bUB3``w8-lkXK4@$*K
zl&rVL5p5xLFo-g{+p&_~U61Do7Fgk9QCOx}?-%awrCN97{+h-lVUps#`9b)?W^4g9
zdGh|lZaI;?E%Pys#95LB!W~&OdpsBcb5L3gdP>sqM2c=HrsT=1-$UN?S)Z$nTKyPa
zDZat#yH0AVy9&QG6?#12#J1EX<{8&~iN&u#s*2xNu_PsP%^(J&B8TU8ujKe}-tdJ;
ze-goeIXr;{5qYut0c(9npA>~D3CEpO&Tsk6+_?z7_5_BRSTIR{vRGj72$OhirLV+V6>gROrDZZWf=e3MofVyrHk>YMu#>MZw
z=!(`M_h}6oKu>Yx#;-P?7q^Idv=sPJnX#B*Xqu4F06?@=bLN0p+`DW8}uiKV9}
wIWMGgfIBtb`1Q+m^q-YeSg#>o;pP4rYIq2{(+pXz<3Gs4AhJbtL(=?|VxU79JYD@<);T3K0RS1l
BRvrKV

literal 5450
zcmb_gc{r4B+a94THHaZaF{F$ik$n=0DY9i56tYFOp=@I(vSh3k8L|sAYV6x!C?Q)D
zjeVJrv5X=4Ws)@SsPFx@_jupmcYMct|8XDBeO%9dJ@x*ATpG$AItk*znXYtdK9hZgR;69fV8+lI$#=$nHISd`ha@{~c2Itz8hF4i*
z@)#YFQJ&MjrY@uo{NXhfbdT&hb)_F?Jk`dl1q20$DDi$ziy4T8;9L0-1|y3qSYZn@>JS(DLE4_%LYqVU+xH}Jm!oZy6>?X
zg#t?Q6Hw9BR>JJX4gyIT=2hTL(5djZ&bmY2>tfntt4Zw^{hxK$(>r
zC*S2iD?6$Af;-9l8TcbzDCvMKmwFbe>TH3Z_%t`rZ&QJgH1&{p3TKYZ)QtNaA-9Gj
z{juXM&}N6V+Q$F5ZWiKRq62DgcMvEyePe8u(0HTKi1%VB+j*`u>ft1AiKMoyoF3;@
zbN!UlCz>QVx;0$|98G`xNki?Zga{1oY*mns42}77T
z6`c9zZav|1)^TW}uc3>;K1v0yq*sR}56?JzblW~TrmEd-ab7b%+J;Aj%x_v%<&%db+SCzL?GSH7=$JV-FaynVvXQhRl5g*&
zIHq!9>eUFV1zk%tj!y_&I5tOw|HZ@GStuZ-D5iPYK@R%&
z$FwFX7JTWa01s^&HuEOqLD<9X*-ADC)+C6dIEfm231~A_L2+Ag=!jhq2&2Q2VjT%hF;nF%L|EOn#VQ6
zDo%{T4pECFbma2zXMJ-M9WR8lp1difH+GoatJ8McFFV08GzU!zz_w}r>HUrMTI#UV
zIsTZ^pxjC0(-`kNl~KqnGj}cwcg9^qn%-M>suO@Z&-QD6u*{=$?KOVc!Op*g0xpuf
zj*~VR&$G{&@xDFTa3?^a9c{1GMI})nVP7{ZSWT!!dqWA~x?X)a^C{I+?Wpu&Z034qVEN0g{kv&$zznE@9C=1HX?o+BX=dWIzmY9$_
z#Qz^42Vhry^5SUAGM&5ll5^V
zR*JHcB@jG$z7R+5r5PW;_3!lUm1ZEdCfuTOVY8X0{c-YZGGY-@)@|7gOb^W2kZ1nL1j;uJi*G14iLh5
zki!4xc)c@<%6A)%rOltbAS65ko~YxW@TOK5c6_;>&2k|~7I6Y6;le#v|BBRTblB!F
zA+*$*ZqAQT5TohdieZ~zyW}Bf&Uc$1fN3^_r5OQADCa@iDlBQ){T6=_JU_Qnd}}i_
zYd)2{zF-*Jwlmfk=RGA${7E_??cEW>jgb~Me_xrn>R`FvGn8a}yM^|7uzTPlPvbEW
zv3^RsM)M`eeH3Dpz%7@t+Iz*`X>DzdzWbccY1EeC>8GJ(w&1LoYO6mLM}0HtU9Q1%
zSpT?T&up8z7rp7w2U2LM$9jEtR2_fM#m%^12>RK~`Pj_-Zh*8K4CO&qS&3py3|NjD
zmuL*ffnVTc`86)#+}f4IMUdBPp|Gb8kCj)lcwM{VVy
zoZwGfy@EO)n(D(_$m@z%$g!~q1wFDNs68M0;LPm*I8@VX3%2_tTT57)EWaU)_qRUL
zY8OuxhZ}a!FCZG-S{k`G61xIeavqXkrJU}>Edb{~D7V)!G)b>PEiEu2dQkI27ht&5
zsR5Ao8a~-BaJpt@)cG+RhV65oj{Cv2kDw7LmSH)O-Hx;V_9S6@&YaB&r%RI$McDpH
zTi8JC8>W01DwHV`q7}@;I~_ajJ-GdpoD-Rcdq|r0#e73y<4mMq3NFQN_B{x5NLQ5(F}+1xW^9s0TS@^00zM+xADe?C9UGwI5Y&|lve
zy3_xdOFW8)_d*b?>SAOb4eMlIb^8ca`E5f~I|@i4vPMB>4kkbXKaZ#mJNB
z>~wx^rez(gwjOTeJ2jk7-P#Vz;PqHy!Pk10dE5%6w>{1^Y1~{3w)a#;o6R}jp}iZJ
z^3l^sUAniTQX8_M{yi7(VM$z=MvvI|C0Mi=(Rvppuy!(PUQX1_7dcbTw=08&+C(4E
zd)=C;m+qM+&?NDI{v^$ht?M#@M84}{iJGO
z*z&5K?UMiKh)h;xIgl2SOnXnnf7Nj8(AufUym#kgOEPA5z>9M6e(0sC&S$`>al-ry
zPvZIFxU`CPNKNIp_k|W+954Fvukc@HlFG}5i&TAdcSQ|UpyUfZiTCG
z@g_J`&bAz8mFRsP#l6VCQuF`=eTLEfZRQuz8rkCeXHKbhUuJr-giP0iw`1SaY
zRctqFUc!2?1;AI1oOQQtP$_V2(df>jZoLhHq7~6lw)oTUA0cF+mh1r>K!bwQQ#buz
zaINx+WL`38s9&}Qk;MOd;;a+0ThbW*&XCN~0%|2x+m17CU8hsnMhNl@kK>>dI*W#i
z%xjTD6_*D!1~Alhtw)#p6)It8HmW#ohFn|K9rBfRY(wQ+A?L;-;>L02=n+3EP%vBe}X)>a{QB)*0Wj0-X76)E;3Rt>El<2@|b)7Hdg+$
z>RKeS6*F#r#-aoW?p12PjwSUvoobcA*3vi14aPu{$|<+)iqfF^Zz`PT
zp?l<@#{XNX#IQ~+GkHJV?KN-t2pMIwh2argk%+@UkpkrdQ(a585~H
zfi=WM`Zplz3d(qJHXK(mI>=c1+8WZzvXOylH&9tSf6U_46VP@?aGEU#&0>>gmR)5
zO%^u()OOy8aIm+CTgZ%_&_Mvt?Q-pYv@4Ojb{5Cvx3oy+YdFkbjKs21^USJA--|8a
zEU-3mVWwzb_m_bNsbVCT5l1)-vfniE%F!ji0@m^gcf|2NfP8=1qoOC0T$W3{tAm5~c=
zD)n{*EzYc~;L^FvtG=sd?Rg=_LV#~!rtZ0Ik!Okx80!Pt
zPMaDUWON!ZoZyDVkvM$C>!FwvBaY2{pC0_DJ1xgZaKr&CDjnbs%T-t~XkU$;$FCD_9I7hA#-UBI>ub+!S-!PE&94@w$3&P>u(+YyEgyI(3-1HX$?zZ7k-cqy;ib|
zP_wsa{%yEnDt6`a@TVefoa^E7Fo~D^WP_Xju%N1^N0(rwtA7scJ{g^fl#I#pA&X$|ht18-Bz~1Mi^s{pm}pyxL;m-6&)z`tyCva7c!)^(0DWe&bEO~WW@_m#
z4fMAM@gu)&1-2+t?5Aj_x_>n7eR0{9y{DrdT?p)&!$6D~5uRj(-;>yV#*!^Sk#*r+
z+qNL#yd#DCGA*{~dP>%st%isNI46tAYWcFUj3oOu>})OWt$1zqyg9PS5eF6cC$>)M
zPB~8$ut#R?>0@}FBk{~l>`io0!Q{I22<6p2g$VcqPR!%mKd|qM
zWLlArFARa*R+#4B6(WSu8Otc*zSQ4p@_DD|HQv_^ZK9uh7E^sae*WKk-~5ARm$gH@
z=3Dh-@%Jbwu2rsr#pV7Y)Odp6?~4eH_iiex^Csc{C5)q0SFLa|Z{FU4liJE<-q4(t
zik*V(gvJ6_AKcUE5H&7yon6wUppX8#znPP>`Kblvisu(`N5kM-d-pO6JfHMSP7F*w
zpeU~gZb;YQ_h!Xm>Nz9s!O~ae$IeidCLHsMZo>6VM+4Dy$ff>?u*YDp@v?-JmQI_Z
z_RA%3*zh}L_+F;(+PmTQ!#Fc+V?dyu%Hg3MDdFKc?m{gr)LlF#ksa^kK%jxXTXFe*;$9mlOa1

diff --git a/docs/html/img73.png b/docs/html/img73.png
index 6cc3ae5c543f5728efc2e11ffa2622bae2cc0a60..ec9322e9321b69118a78d7f0782dbd6da88ec5ff 100644
GIT binary patch
literal 2512
zcmV;>2`~1EP)R#1#k?UNR4bl)|cu
z;H3{yZ`dT--EOm-`!n{8?e#i|6D3lQ*4M{p&fh)v+;h*J1key;5JVh2pzktD?_wO>
zaR#!l2DN#o8UdxLYKXfRkjKWq;uRkeyA$m79E)>x!Nsp$vEPq42H4zS3xFe(vTOJI
z5OAEE`O8&A^7lFv*8xU-M&72`$8ZzjYb4&r1<
z-Qo0f9LYQr4pJ>+rNmN+ox18@PTG}!GhX+^c^H?
zrSrjDN#=$@IqiH-4C(Ai(l?1!_fD#*(ZMgrM2xD8G}ND`!Dx`SqH{44iNNwvP3&*B
zr?6a&LJC+kb-}UWupdW6FTP}dbCJe>&`3!wgH35zkUtPfY>pNNN>P8aLWWor`CBp?bH*lh85<4R1tj!E?C{f?x@yG{##v`RMuL(MaOfB$N2yu1&z|99IFs2z1y(SqVpA
zDFa3-oxK#@OGl`;324wKFHftR=TK{qLrN6A+wFRwHEUE7hiXy5LM?iNEr13*kwJbS);9v)rf&??^z)
z8V1olXQWG3^Gg-39co36i58Wfit87B=@2boOV*VT^4n$Hl-E$;A%!BtW`~yQ9sa6tG$!THB#4!~=f44>tkkI`zg*)gk7k_D`{A
z;bawevQ4Ag-52x_y5K+-*NeY$VN99pUl_Zo!hY1B(6`?;vUm~qM(l!i$le;6i+Gjf
z+)12Tus2o+5z7mTf5ZC!xs&U1lMV?6
zs$+)xhF+iC`q02e7$LC|9twv-I)wH|)IwcRUH;jIGl{A3(lmwK20PDYDcNg(k!fHZ
z8s8rtiws_xCIN`9jT*ZO-z=6#wp_9!+jRQDBY4d^BnaPVP|v3b)U!=DU&9!Ph1xgS
z^98XrS&S}~6khz6#Iq&VLl4NT?|m`U1^O1+Q?R=-zOZ^tU-eWR?KQ_=l_N~y?2o`w
zZ;kC<%Ju%`>aJhJy)`JF3fpJJL5!Hw5NnZSF^2iCtYddSI9c^-=%O)rj3Z
zFn=-WgH7FqY=rDxA39DCPb_jQtvRe{?lEHBaEjeSPuE6rYWwK3c4933YQX&InlrFY
z9#+B+eefAcRTerx8OU}WBopjoPb(QZ({4@Atk);$p|Hql@@3t{Z4a{H2wYj6xhd~(~4o-UU!9+>T?!4=TB}BTL%U;
z4kw0FahriNx^*Ar8;kehHUj&)bI1%v;Kq%DuDrg6jY-q%-9UR1ml5P@K
zu5i_sYNOr_-&vu0%E-f_)!5}J++gW-%-K-
z?DBFfgq=j6vXG6C3G@MCLgHSA
z=<{`zO%fi6We%BDDZCf=N~*HZxmctlr1Yj#EQ!1j4wzpij5YBN1&nc_R7NsYfA7AkW~02=nx>oo#ozo6UECF2u`Yi{H_Xv>4W=82^-qE<
zSu^ic#)1T6ZOn}W$*P2BG*w%;++(P%H>G06)ed0BqQ{aRwE3h&OtF<$z6?j(T%c`f
zEm_;XoP(R$_8t06nsi@3f0eht8t#%bl^|~o#qRchx7JBXK8Ti;)6J)gvw7mk*
aS^a-u&;;%i(i?XG0000KRnKeGKotHmn`X0{-6V?8DnbVlY!B^v^cYG#NVjDV
z9=y4V2fax2=AkfzDhP$9(2HJnDIy*U=Aa^0+~CDa!JrFz5O)6n#cZjtv=p7mc7NGM
zr1hfs!OXn(=6i2mX68+RI4tpIfj|X<5OAWIMa7R7HmQ&^@a*O_>(*QA4?=)j5qfKCQ+tp6!v9
zgM7umjc$2F8%B0-mfyPXgcnL1r+L$XOiN32%uMt&B@Sl?47zTlblauKFQ`7=JwcYwb_;piq$KU{m*4b2PQG_Zz++=*b
z++j^LTxoa&qaZGn;X7O}omvjwLb$ziOe{7<=%Jh=+!UVqYutyAaiDSnQ(_5x6>)B}
zcEk)-oI13PI%a?`${5$#JopcXyJaXU<49S;ZJBcm!frgltZEi3Nc$dEL7{Na
j`@y-rj9GS&ka73{Ft4wU+K(q900000NkvXXu0mjf<&<*O

diff --git a/docs/html/img74.png b/docs/html/img74.png
index 90e36a4d75b43c20cd37a67b86b8d25fece54d58..810b69c986d264816c1145ebcbeb1d91f3af1563 100644
GIT binary patch
literal 255
zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)o!py+H=(c3y3LwWIz$e7@|Ns9pXUXz<3Gs4AhJbtL(=?|VxU79JYD@<);T3K0RS1l
BRvrKV

literal 368
zcmV-$0gwKPP)SU;qM67DfhS;Q9%P!^Cg_NOG*$u$AEh19rgAumMOi
zGEAGm(E!!~1X?)MVgnzbdVnCHAm9M^f(C|!13-?3gFya-AKtqUP9woEJOJoQ12_k0
zfdZ7N(eS}TVSfTc=O2(mZZItPps;}f6eQf7toIon0M+sFGBB{UbA3=`n8dxi5#(M@
z>NtsNfE!G51fYv6fl1Z|Bq5e~hCr4L46X?r2l^cT0R{5;w@d|6dSU;qIwAYRFU0yr527>->)74w<^A{Q{=2V5Y{5Ho?`
zCIb%v^=S6a1X?n4CPM&_&CT$Dfnft5C&=0~295@{1ehv*6Os(Y4<-lz3E`Oz42+gj
z*gyhI3>z326u7}Y$mLI9V7u_G8)WqY2DrC?Dm)svp-zrvIFK+E9#$(FsOUB_0i(R&
zM*&RX5{9=71z=Vy1H&Q&gF^wT;2{IUVFZH@>L-q!Gl8Ll%m4$v26P4(^Z_yRg&7bA
jD)`9|@PQ293_1V+dS@(WW*K8i00000NkvXXu0mjf7?E|K

literal 502
zcmV;x1(D
zqGad?h<~6JL5iDBegn@X0I{QdSJ<7_(1vKY_Quy)SSPpN%dC`NJe0j7C@OV$29$JbUm(I&pO32K;gBf7q
za{SVxB~s=-Q_p6^V4J`N4I)tJ^HO!2u$tBGtcYG!RuL#aky6!7VZS5M!crP%(Unw<
zal$$UWM32RpyHW~!)8i!9;7y{>5wycpcHV*O@Qlru6S^!x+VYAXx|-*gC{wt;M!DN
zkuZmm!p@Z*&i^#x-;`OEcis8UH;@+nVfn%s)?I7eZ$R&=^%KhwGpAUK8F!?cUgI2F
zcnrQ{WJi$eMfsZLud}Uwll@;(Z%KRY7RfKootG&15&(#tF4qXi_A57-Yd;ib;{7Ghj49w{}>rC;hk
z91!HrKrE+?PPSR>Us1`}>3e_-uTX;Wcn|^)3%v*s%DgQ9dMr{Y;)&xQIZf-CNR7&;
zCm;ECW%xf(04Dp6okEhFBhKU@jt
zefC&=%zos~B7dnzS30#)q9~o}bVmTKlkj*ZkPN>!A6m9$$5d?6YdybNAh#0N%>vzE
zI*0aqD
zS0PyqMi&e7y!Nsi)8^4)O;TDm^$Pd5P5(Db^d{9g+q7mZYDynqub?F-R^|is+5{-=
z4>zN6iq371^>!hjTJT#}F~?R;5c{Tk8?vDaZ7I2Bif%@f-`|`>jD#`VUL3=WU}cbS
z?8747q?4|RNe)HI(<;iEXfnGSTXCB3<|0`HHNC{
TV<4uX00000NkvXXu0mjfk_c}T

literal 326
zcmV-M0lEH(P)SU;qOFAZB5JflUo?CId5s;@|Xv;R6GHpdi2j)aU?G
z4H4iXpaG%_iEVIz|G@-?gaaVgG)P>~_`Un!G$vvU!3}sfV7H6q!VQ7>7Z^JK0NG3o
z3Y&oLW@KPxVBo&ba2hDY$NPzaf%SqC%Mb3|jUPCW%;2QVJ(Pg2*o6bJigFY%n+a

diff --git a/docs/html/img77.png b/docs/html/img77.png
index 650cef038e8ae6a036b12d2bfd68e2438bb9b9a8..2a05686fb7f65bf41e7c0826bfeb56324d8656fd 100644
GIT binary patch
literal 5441
zcmbVPXH-+$whki2P!ED2RYXA$K~WGwl_Et562Kr3IwD<204YIGsS1ap2!zlfBtS%^
zCNzmO1*AytqO?c?QYAuOJomlv&N%Phd)|9{tg-fwwf35Gesg}`Tsz?=*pLe-3A3bR3U@RowG_^9I)9G1RS;3@WIv!6a65WaJbY5P%`>#i-
zL`f1Y$ynCY)1y!*fZqYr>(g`!g|4U9v)m&oDcRH0lQo!y!{O*XJ#TLN?z$L;_C{O-p3*R1a6tf9Fcp;Y){zfR4dC!^94Vlr`NUK0~$SLf;U
zCgz{rac;&&B+kgZQnGuTU@zyR$4@Vrpw)yORAOJm6=PnM%%8m&Gtbg>{jm9n)6IL
zDyovq=5b4+WsS3smr_z`-8ycA#98EQN9*mQDY`qm5({;|wekRRQ@?M>HIuqgBi|<`
z+zxNmW=z!Dd#CIFhV;Y*`_B4#RYLV0kF;`$#{qd1ulo$pqF@_)neTv9gJaR11#Kh_
zhuo+HXC*00{WbgiQNN#y*K^auQoX10?-Gf{A&>a$FR`0nEtRm?sdmt)ms3J&EjtG)
zMNm7uO7L{$>JtkS(l??6G=R_I1RFI%uh-hupeNX@dAuH!n_H?EL>oq{kolo57skVM
z>yJhq*8n1B*uI(CRA)eXZMh5&Amg@5eqT+zg@^jq-k$P)AOyNvT~obY88iGAD4Lm%tHP3sW?dr}XUYwnx
zerVhtXc5g@PCr(}pSirrQ?j?*(l>Joy7ncdGfPeYDs71o`tfb*}1~lJP^qYKqn8
zvwcf@#!^O4_dW^}K`lBAHG&)C@FRDd>~9$lBdMFOf!6+(s8hS|vcE&|>Rf4QW2E?
z5K~myl2()i0LL-2S~Ca>0F0!36v6sln?vv=g|6O3apWu(@-1R>OlCgpv<%1jx8U;1
zS6a$qna*$99qcK7(S?cEN7?`S5RqAW|Bgsr!`+lnuYs_W)meydzT8f^peiv|_(1m(
zw$#zM;?Zc8{~z+?CEYji5$Gf@Cr=
zM*vYW6Eg0rd2_eZg?(b#8nVSHo{{TI7T(4hxf!6Rk?I7Q`&xqn28A_Qh#T(xC(S74
z18bHU!`fzT=k0LbMYR_YBGZVx2jQI?Wgpu&%4SQ)@5n=LWSiZEqzZc}R+4Y0W85o;
zw3DI42b+rys!d=)KVOcUC&?7&Yh|OD}7`2ViX`gCrnJ?j8lIdinJsM97lr*6#OaL|mfA_ck}R
zbfR`dOEC1db!^|QQbSmYb!}mPar0|21k%8rLnRgfXq8e$zEOYV|3qS@U({!Z9}OJ>
zrTKD(j_~Kp<4*}(I@PFhrCQC)E(D#TBBII_vEZ|S1%s=XWTa7PF7Rkes!G7`-QB*$
zr*RCd{iFmee7WxhieTft;8E$5Mg~?W=A5bPa)lG3b6->-zYQ+}Wa?5A%T(A@8{tO1eD8%cX@!=vfIkWI&%Dwd6vJL
z{`X$zstDxZ{Xb`~v7R*_Fvs`NXtvH`2Fpvcs∨r-oIEpMj-Dg^*VWdKU>io
zBQ$Dy8|EFvz$8}9=m-7pV839BWa%}z=j=Z{Z-ygI*aE^{*fisnF^q{6st
zqCO3gCLR|9()M0>omEi!%lA(_UY9g@ydJ*&^hq3D`FrHWuZZ4imAebyYZ_WTWx(N|
zd*A=^vXU9%%mB}VkzBEq#Pdcm0*stm>(>P7$W{C!ts_iqT>`~zK(JpCBiEo)0?<2=
zy;r(4dE2MW1yOwNM2{Y2%i}qpYkJy|awo8It`0oeAQm1x`)r9z(abr8%w#7YFywh@
z1`TB4J-tbOq+}i1cv3NWR^rsQ!IguUJE2=|EO9lF+cf6lbHS(&ID@62vSXgLq(Wi4
z5F|}XoTpS;>;a0SdGun*SlHY<8t`vDE(q1{_)70{DVR91>0*x22x1;t2hli_-q$k3
z`+w9d#*F2MvZ)v90wbUy;n%*FkL*veFl9M|Z;F39s>P_#DN!Frjm+`0U3VVKsH>cF
zg+CkuzY{(4FK97ITMMQUA(NHP==fgvYplHG_=DQX2Zye+VcMLYxp1&y#7u7r
zS=>*vzXwc*tG#<%Nc|@D@r1O%!($pL+`iy!Updw7q=G;Tq1v+@w~oGN!=SrveF;O;*%=s`8JH6o;B2)QqkspHUu=Gz2xBm+sgV-X=^T
zoKD)5H@(1jS`bmT=8h{>V?xQ^di8aNBb?owhVgHUPe{88CC8mH9+oyvgX)E@BE0fS
z*)W5eD}zV^c*;b}afB>GHd!rJKlXe0L9}y!$%mi!)(5_dEU}t1Wrv?VJyqg4>dO
z!u|6IGza1NdiJcs{OH%J8=soPWX(vgz{~amg6Q{R#Of!02a8r_GO(c2-6e9_3ZV;E
zBJB}Dcr>wbh_?y>%2<6<>!ksMPKQ#Y5ctG5crC?ypyPzvD
z&foZJHDH)Dw(j^8c1;?;*=yL8d1FWjo((uG|kgVcKcFY?K<9tYGP(xHa5f
zD71G0Mq!L_*`LK&!~|{pHW6{*M^^1<}M!Ok0k&s0w5$he>u9`B`gde08E+X{0@W
zvawRVe|*I!rkQYVYqEBe6(mkj<-ETT>UgFG+;>peOgPLdO9?dX8XiBkWFhcnK?YH5
zly%&+{EZ-l>|(+BQ^gXUp0Xclq4ANQP(?7>1N{N(-{z9r?e?Y=v3Ww_PV@;Z%CLUA
zy#OZ!wF*o=wtVF&K1z~t0Gf46pnp6XcRx^UAGplg8p?t|_Cs|%*l?e_gM_Z-i?rGZ
zoKLqP>F;K}A5a4xqh3~~QoKu4p$5)2*)jMU94V5o;7tV(O6Z*=Fr(3Zx0cI^pVc20
z|G1Nv^I-K?u!Jhm6I>U(BrS+w9(UC#Co7xyEHHqkHl;$j>|W%3p@gX94|GkRqN{a<
zw(t8Q57hd%)*WM``fhp1L=@YJT3ZXyaB}bKXf3nByO|-cGCC(eI{QmgWeY?O^{fTR
zddeyCgxKRVmxs1Db}WZL3k~|b=%y5mf-hBLvbk;HAkk&+>LN%+vH`zLKXF5le31A=
z0)M#xGZ1iTLjHT|Kh-R179i?#+eSH~L7!X-(_shM>O_hE9#qi3#12q#ou
zM&Ws8He&mZ-YM;e{Q>Sh2PT*V-0_m|A4lgvbwZe=*b&In%?lSO&E~Qo!};5D72fRO
z4i-Wgh0C_(9i!L=a^F$Sm&+>tWNt)2P)3`@lE8|Rw&*jEcv>+M<E|EwOVJ31v6F`XnRZ!VQo9^`jP>@M1gn@`_E
zF(<+A?x-xi4kK>K`E#)h&ZjGQ%Y*3vS?Zv>+_tRy^b~7E`Ei1A(8l!?Rz{##IdMlo
z{udu=Jm+2#=-+k5=!G8QzAXUdyue=D3wG9b3wN
z*N!aP9j7+i0q3|F(raRE9kBo7rTpYbOXKd$r@Q|73kB-X_80QBSDMgvDAg=!=a(9k
z$~ibV99pbG1ekJ#erYkn{=?jd2Dw9W6L#QN8^AdDp-DHac@@Vc{_AM5)zmY9ekO=DK_5&UNPt`@{VOwdo(>uS_Cs|3-u=}-`Y~gQY6zT?!KWdzB)GMFOMY}T)f^9{6fqcfX4}heMQZYl@pr-|FJ)+J
z?yJWYla~k2Dm3lv_R0ofE0zMD7T=IRH5j*#t^VOXx66zhNv`1y`9|F7-O6v9oVDn$CV8=hzIL>Fzx&hnimhAHUPa24H=>uG7Q+0G^|R^8f$<

literal 366
zcmV-!0g?WRP)`6pHR2Y?GU;qKuQbsV%u=2`vAj!kPz{bG9k>KdV?!bTqK0qi=
z79er#z=aDO3|N3c1BeU&Vg){i9SjQf4jUL0uqi|V9}a*>Fu}mVU;v_k=1kCHab>s=
zpzvTn0|Ore6aOU+27TTSTp$dLO)U9q=>Px#
M07*qoM6N<$g7UYPdjJ3c

diff --git a/docs/html/img78.png b/docs/html/img78.png
index c3fd2d55f938f626fca0e4773cd6af70e59006c3..089b17f68aa07803d55581f1f6ab05a4bf24c073 100644
GIT binary patch
literal 6161
zcmb_f2{@E(+qOiOMA3{bOC`%|NQCT5M93N$!$=8PMr5C{MV7IYY}qEe5Mjg^CS)l~
zvI}GELXDAa5c7@q{oeom-uM6h|9HRS_~v+y`*@DI@B4bL>pZXXyq_n=(4kN$FJ8RxeeX-bVjZ!L6b=rG{IJzsELPJCG
z^^J~>_VxAEF4v}%mReX?P@hAwu;57LAnp(^U%rgT<0;Y6*cmJZkLRF1>+b9I
zs?P0%;9TkP_T3WY)fUOaOU7y%{DNnNStjhAf$cA}mrB)a-C@w(FIg3-b(QC|vwwNY
z`Dl&SaB(y$D6v_BdVBj$nvGx~34;&xh$3CsYoxdh7D%}Cc62u>tu#@dHZv!eBPa~m9g$V
zHCLkCnY#KZzm)!Bl+BOr{?(;VbtO5w*qY5O9sAP71Z>5
zUV1-n^!2CQb&zeH67-;q6pstg>UzDaZ3@;`MybScaSRSTPEQqRLvIQd6&{xXsYbgj
zYZ@A`JAeZ@2CLb`>%1OEy#9bU;(jtBy7lc+u*+H18QuO9t<7TpZUe6)hOc01A)%#(KEHFz%6*-#EF?q@1?ahZxn9phsZ+KO1*Q6ZM(gPd%
zmGIt5jhAl&>y)DLW)bPB@mmbKcig$CX|+NimsEjSI-l{N2Jb3=WfQ5hy0=|r$SIN4
zJ7;2tES4%o9xa9EFdin@a+TEQAV){Gf7Tw8U=)fRvG)x8*8-`vkNlFWZpAeEp;BDy
z_p(pl?x?%S>BK!}v#XtLgBvm0Km+34{+K`7HFq~l{h^vWSMOov0N?pwE-gZCpMLzX|vkzS3Ed^9bw!o92x
zTDi#{bHd2L=MdCkqfUQET+T0-JRV!Jznao~X0gq`W<0$iUF5>h8za^5hOc1_iocCX
zgH}>XPffIK`891JOo1@Vf%6gp#<6dSt+soW5uol80
zxV5*znPTWayy_$*8M!Extc7hfN-0+s?c^J+e%yM+&745XRgo(-_0RD)l&Lkc#@O$D
z)Z}9uy?zo*Gd~$!@-W~Am}!2p9lgnk$_!J+_n^s&9Nxj*3A!>z<
zTSUi9qaEycX=vIyLyCH~{S<7wh9RE~g6vGZWuWYeHiqO9rQPB(g;9Kis1ATUOIR3-a+11HL{11XYLhj+wYrhB
zGfX*V)q|{-_$l3Gi8KXfMjd`hQXcOJBF-;4tOc2{Pq;5kY`Ms-LC_g%>u)pGxZcNa
zb2%bRWu)6;gM{U!g^X3NRPJ?+x?pul3$+Tu3z=ZRA^G~AIX>e*>G_}Fc2!6UKyU=DFc
zdwm1uG*^92VYW;pKr0q*FrF=>4Q3j`Cgg6VRlST4Pxm0^vz;Gq6pL+gGW{gqwjzrl_B`s
z6{;M|1k;b2u1k3b(8(NDo7x^1hj9#9baD1W;K8bQ7)G&LE&C3ww<%-pi(0($Ku`o1HT>hJ)d0G!3Uk*3M>N`$W3bmfes%B(
z;95=EEZ%emtp(jscfQFQzS{oZ0rAfnBHJ@!c0$TiBNwN$SsNPWQ`754!d@Zo(Z4C!
z6$eIAAOg?5*D6wUT2veCY?D7>RPxx`LbvDD_w@~6Qg*S27?q+$zJZ*T)}Za@!Vk7D
z=qw8{#D56c=1e=tQ$%&o)uM7G-Cw^mEZNpI2jXf_=;*hvAS4Ky_UFXVed%^=zL)mK
z$?!oIcMwwr&;Tr1j{s4-1;EFAm}>X|AHTSzk`?(y%9^iuj!j`PL;Q#D*B>bO_08CtjG=;J+h!#Pga
zTaI&^&4UMeG@hV2%;s$d?lT$<*GJO*h-$#3`6|@Y&c9^PG<5nd(8G@o9}J%ktoj@B
zd;Vj2eSJMKkNkstuw8wWagT@9w?k7oAk;&ui&|P6+Pi8$A44AP)xl6To{lFD61(pz
z3o8H@s0=wIc#{bCrEpV_WGYE9SBJG_fr7AKHx|Ih&x+0r3f5Txiv*;L|LO$MJQ^p#
zLJ;FvUXjnUt&u%CeA=-PgAASzPXTn89%G~&kn!a!-Z~SFLlcFafhW^wXT9T>fFLFZ
zCG$}+9Ds2Y`Cs&!f0aq!gE(h>)`(T{YTd33fk_%km%Dn;T=iw?c?PsD`9Lg6buw7#
zKU>7xhzW(1WG3?}q^5)A3aAn~0{^Nr_2Y-8p8b&1Q!<@1z?0YSW@3giq0@5FCQh;M
zlcJ?su4+_#B7OcDo5dc5NiL}av)*W*M%nNFOW`RJQmB4;_TbUf7lhf5(oLS6{1Fsd
zS&?qlsWbb#`2;KGzO-3gRVnT_us6j@^&wI)v%QBJ@~?Hnb{#hI-B#tCyZbvRd!%ETlTgktn=a2
zZ5bES)2b*|rLT9g5DVRTCxXbLclXE2UY=i;4_*AyWv6a8=K!+7_8A){Sq_%7ka4DA};C#R00*0#_RDm$k-0|
zP}dz*Rom|NHkY)lW%!Fa!G8_{|5)!f_Tk;<{cQ%GLR>dV67Ko%o@cS>d6a+A7DDST
zFB7gr?V$Mr2iz1P#!5Ckb}?)kxuR{|>~!uD^D(G}U>BVlXPCYaId9JdKzhMsNY?@!
zj;apryJmm-XlpV9{36|R4U*1QuH>}rsq|yv(xvQXtnC|f60(Q+b41YNe
z_3J-@(Eqx$GhvCi8;{u^n0|uYX;zpj7EF%_bK4?-TNS=}ubI8?^mpzyxppM0kW8q6qXsBz7@3$uzcEH@Id8hI|ulS2^0*9YQH4
zZ}0SN?OFK?(rcfNyQizxZ%F7Al>>BEJ4;Utw?!#B3Qr}sIElOwkA@P0Z74sDCp4_b
zHt~g$Qf$eQMn^T%hY=3HB)9i@i^KOxYg>DD?5IfXbTwXb&wm3U>BrSVN>Bqtm@avC
zj|xq9QYBUl?y~%6WE!tS8;cdTG@f62`ufnufcykOw0%(jg{T^^+rhImYY@pvoTNoL
zLM5VI3U}faT8mGxP2N~JzXO1KLA4nD0;f6mH|YnDxLH2_cW8CWm-NNr*YlbJn{XZg
z(+oq6B>(R!tn6t80goMJUX{e|HnJ?unzLs?XdfT-i+mTIE9+gg^ZNjE<)a39^ER|k
zOK2OkI9+23xNXC|afd*s#u_#j-P7V!E;&-JbfSMNB~SV@xj_XEoAhrWJP@gujCQHQ
zeaf3d;B{s)7x`=extkmN-zVXB{j^AL<6CFiADFA9
zy+2EWne5iyXsU+<>gH2^g(ur`*TSl^YpkMTEujWh74W6e_T)Wwf^6FXVlECt21MnF
zBbSOKSJGDZrHywA5^GYUx)(_PjEsuM;N!R=N%{TzHq~EQMdx8A3Q^sKqEkF^X^OaY
zT{5_f_*@~-U6?!>&gj9g7aq5w<^@}rHQ2_quWINfUPv{*7g1?YfMAuTN(L2Z|C9Zl
z&5=3^o7?!FeKFjDz&pCMSg6Wzayx%6k}5D+OTbw47>Q>h`lX~BIW8rVi>jNx72Wx*
z`pMlucn#A7Gk=Y&#+(cZJLR>ZS%5%r!(0d%5#b?4i)zvMX4BJMYzH8df=;TH?E}J&
z$mkdWh_UjieY0uyd)Lh8iu`!==U83nTJRA8-BbcDWT{_WMTDm2N`Lm3ciwLmv^SVX
zAc@@0{<+aqt05U}XUAY+{ZzY|VU@jsXbrnLQ74u*987=+Qf+xjAmuB^=
z`lPxR+$ft9MthPL)c^~q59IBO!>2T^Bex!V
z17$!b9WqHe+iWV{pn=3!x}H3mV|5c5+5>&#QADUCxui*Q&lPLc1F`VsbK_O0c|zF5V0(ye0Bd
znUUAd`7;xW8G3qe_dp)*$HKpA5Y9)O+7Lj@R!1*lU2RX?Lx#vQLm~fk?L;Gj;$0%n
zLUHEPS(5d3VfffZ_z2=-eVouYwvGMuNL76Yg5$CfR7oXBbuNyCC#11ZYdbmt{)RVi
zHB*SbSoL=y_ye*X7xZwijEvsb9y5>YZ$9!qBiIH%mbiQ|oT|1#_W$tM`r9XAnx=IYP84wH
zUgd)GBiWdNpe%os^L=M!Rl4Lm7Ivq8hN$YjjX^pt8obvaH`|h|w?tZd1?t{&_BnYs
zP^~;7^ZS(SCnka|{FTsKW|R+9qGIIm&RTl$eye~Ae7t8tA@@0)j(VK``l3J`G>H5;
zRxLSR*57x+%d5v(1`;e%+I+?;Eepjw#H-w?uTbxwH!d5vePfcP2&*Fx`%&!=Fx*+p4Jb-YLchMp=>=!GXY)~IOwX!!JfP5xQ+$y_
bc8x--2ZrZgec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0LicRba4#Pn3$Zvz{sbNmg2ysqhS*#k!&uI<1pz#X2OlL7mg$_1nGTX^kiBxfl>Pb
zn_!Pm!Z$93umkIQOb(n3VNlWE!C=^tz2LxseF<(1%7@uDBnvnEo6Qh*{E$JX%j9xr
z#+`b}GxxsKRljQ#K@|S>_Q&nq-DW4Kq>zx#U)A^*WI+spAYNtb
zHYp?#)dAzGlDT3qrFd=Tg0JdCSDBdAv_Gq{hN$c6W|{O
zqkqz^l1hh!?Kv(FW*^h>r~u0a23oBIBIZI$?Yf9pi7A+f;U_NnD-AZ;4htL4hrGZpeO#6*^ltJaAxdpSm$?ag4(K*Yl4%oE>0lQ#q0omGdx9jWOq`KwKaL1yf2HiC#&p^idKaK+6h&L6
zEBB#o){R=;uchrq*Ia2oc@33LC0?Q{+cxWl?g7hqMbRg{ihmCGNf+w!3Ux-kO`7x`
zSg-MhNYfxe(ikgnC2})0&dn~<&Lv9HtyU6i1%0y--YOSksiPCOTM7V8VZy^_TH+ce
zT8auL)h{!Ru$(RK{OQWXR{jgHD4r6jgCVnk}JY77c=j6LOIJ*_l(@l#M!BT%GEnc%0z=v3Rx@Y`mE8^8tN>F94h
hG002ovPDHLkV1i9mY_b3V

literal 2461
zcmV;O31aq%P)%JZ43ZAfUZ#(q+REttI$qR6ed&
zsBH+MMj-Wf6e)s!)gKi?{b6>65Uonrg!c!m6_uCTsIyThAU9fnpo%I#qqgD$lgL7V
z`cpK!+D0i`WX`$s@XUDpSd{QO$=;cJ<~;5>_uO;Ni~**Dga5fMz+;@_)XUGH9~Ypp
z19<2*Kowxi00tT&nSd9+7s^L??zmC`B;){SNjlxo(s24N2!-^#nf&Vjt2UTVb#lyW
zDj|GZ*l@oKCTs;Xo!}amR!YqgEE;O#D)==0WH<}%8{Zkp&V<+lqddANoidu`#`Ln0
z2~dUsxOlxzs-{n#5?|^u-~shTibykZc1U&RkM^qGjU{EeIDNlo8>^XSpcC
zIk=AVG&5Idn?2~73U4|~3o*{lgGgc27E7R8LM)eXPu~XbDx#3rWO8AEL>{}yd{fSHGNGc|o>Kw1
zLDCI$jfoGt^xOl(QE|atP3^A%&ig~voEE`xkcqfZ&oW~i%
zP)t_S8W~w;xAkf$!Vww+i4NB!d#F
z1_DF+tw@K5beInmRIL(2CRA2LL7a<`+A>HbmK&f6Op!gIcxi03m0F1_u$9_&kKtZu
z)xa&b!vJ?ppoxbucXMP6IrIuL6(y04z_=dXJ#stY770s-V-Ac%M!f6O=sQ!T-D{W;
zQjILKc|t0au1sfRU=?^2Qa3CA2)Qldz|`Vs>PZX#433Et7Gxk!1Mdww$6xU0hQ$0+
z{*fWAWTNEA7~V+}nK<2*MQ+&cyLH0suXNqU|dNE%8u&Z
z1Lj56I-hB&ax7}OlM2PLERzE+VJTDV0EpU2JQ<3s5l&$^WG|6dw3DG)>OjqrD{1ae
zdL2`SYNhCbvbF{lPL@!k<4^{bl!6-?CE7DqkZ*C}4Rjd$y?;*gXeram`2wAH;kR8%
zEi#4~T3M^L(@kIqH9J0|hW9v~l7fkCAVD)e!9F^GournIHcT|6W2fCsBhrvd%(PkL
z|Ci7h1zSIc4!58Kl!5_XjPvx;Ldt1`FMy2^#+;myr9^mRg!sFYF4S_i>{2ICn_rZV
z3x0rikAK&^tz8Ay#sj-&;{m#4aeQsk@8IHFQ5fD)LHLn{V7dwHYb6gW5NJVjVmg1^
z$N73d@JiFPk*V(bE!@aj=NEoQ>a=wKTvx$Q7pl2()T!7U`K9S##FuK}6fb#4MgUX?%)9=^n$QTrT+LSt!<)q{zlT){x#LRQtr-q-HL%_W(
z^9Zlw7Cb*jVmy$|dO{@UpAN3M8~(MtH%aLSvpdW<{9!f;z$1$g-H79@>*eRuH`6qdFG@a-+BP=%e-
z7r`8^fVNi0DqVjHv&0Ya+4D})fHAw^;3V`1XR}~w3)cs5HD-P<}xnrY*
zy38h6-A5AkjZ^TYVKXArwtt!+G9LirliS|{cSGsMt?H{mf{
zrSeWV3>%2+$JQ@sK09IB~t4bI1mEu2Vwo^!~YXK8>;g1%b+HJ~=~+Ywo%&6A&o;>IeC
zDPuz=&*DrSycXmxuV5*7=b(+@;KEv17GZZ&K>i2&63RZh=<4wtZcbRG7j@i+7hEQF_eahF2V2CZIC5U}tK
zL|ff|xdyDh0%y11tH@BjlUv_8O;0}`P?>AOSUYoa8P^?XjOjSQwJ9b3@Bw4#i{Z^%56&VLG$haLY-4ZwmoG*FB4B>?Fx>yf4yvFi
zFdIJu-v{`yF@Th@*WtsEmj-rFGUq4ss{Ab0)7q_o>Z@3{bWy@W++GRl?4PxPdbmzM
zmR*Out@v)aBE2|f!z#Xw6x*2utfo2ig7Y+d0$m!C>4RHIF{r5O75#OuM?cR6@aBa;
z2@QceTK)!XEM;_1+|xexD~nM6Cb2g5X1V2~SO>*-hFb
zY@u;yg~F(l`ZDwx6s7QuE%ng#ibwUvr-C({#l{B(lx@YgVf>XY!AvP-ZTKDJMWGfa
z&_(b(Z`01=izxgS7Z;Lo@4V`Rex6~huQ92^SE2@Z;vA^ncoK{sgk>l-GYEa4w;mLH
zt}~HhYQa}9UsEyld)_o13lqQ6Q7@Q+bHjJ6$)fOmR$CfkdpQYa{vKe=XY8~Rmz(ko
bo4bDksZCi=<1hS#00000NkvXXu0mjfKtiG0

diff --git a/docs/html/img8.png b/docs/html/img8.png
index d7424dc1e6e7b1be704d0810d1c77cd23d9a6cf2..1b047adf84c55634bbbb57add608cdef62494032 100644
GIT binary patch
delta 227
zcmV<9038440rCNm7k>~00{{R4On(TW0000mP)t-s|NsA)nVDr}WkW+l?(Xg(AtB7n
z%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001bW%=J06^y0W&i*Ha7jc#
zR0x@4U|?WkU|^WQz&@XWiva{U0vH%BfJ7i5k0F79;Q=cH16;4x6b57vVh1F)03{gS
z9{>^sK0vJ?vv_tkpr~WG!14u5-)?g71Djecz%m^yV&pmXIf!Q4!oV;O#9&ru;9UY@
dTw(hUq5uT973%Tuo7(^Y002ovPDHLkV1gxER|^0D

delta 216
zcmV;}04M+Q0p|gb7k>@}0{{R4b)#!a0000mP)t-s|NsA)nVENYcU4tY?(Xh0Gc(N0
z%n=b0s;a7ph=^upW&i*HL_|d0-Q6N0BD=f09~~i;00001bW%=J06^y0W&i*HWl2Oq
zR0x@4U|`^6U|=}F!2gMX$pOe>;QYYAyMcj4fdK-V7=gqFeo+Qwu$3Jo29j8Dkb!}X
z0m$W>FabqL@)W&&2_VMpG6vQUAcngCQm_C+1p|XQ*rEjt43j_%A-(PEffN9`RT9o(
SJhGMm0000SU;qLRMm7dyz}@A5;4m`?07-U*cxwjSU;)S!h6xRf
z1`G@iEDVen7%K6oMh6oZ82F*gfCm!{I0FWT^002ovPDHLkV1k=tj=ul^

literal 373
zcmV-*0gC>KP)Hh-PMH0000)L`2=)-6A3)ySuxWH7^|i
z0004WQchC
zVCEa$82rnoIsx`pI8tDq+00000NkvXXu0mjfm6M*e

diff --git a/docs/html/img81.png b/docs/html/img81.png
index 6619889af70f094701afe63977363ddf4e29e57e..94fe3652d8537d68dd79897452c2449d2bd395ad 100644
GIT binary patch
literal 523
zcmV+m0`&cfP)@Q$0w-Kp1`bF+WYy21QU@Ite<(*(D&N;F8JJEIK*F
z+NDDwqjtK2sGI4cxOH&rq9EvIgo27lom>r67bh=CjZH1u4laFg$M@d7`|i8%5+H)a
z2<>S9-9-{g*=R>D$;B!MEsn+9+B_g1Lmx%|h|iHg97b;wg9p>(Cm`A=2AstQb3Z`V
z-XK8sr)oYET{d&Dd^zM_MO2@(Bl}RPSKsI+_YTluom1WK+TYFp4Qh=R+iQXJ)GGzt
zYF9wHl#m%bK+}DK5sZaGbZc<3(!{Ik(KqF=m7k=o+N*l>)G5y2MNz5e9S#B~2Q74|
z&d71faj(pZDVDe!4(+g)EJMJsV>_H#(x3Y#oFDsep5Q{%v1z2OSyU)@II;?{(_w#y
zDUvnQzHo+2sfO!7S)rrVVb1CuZhKK{NrH(vRhMbuqB}#sBI+*KFEUw(+~QKkI*9!1
z;63mbeN7{v4On6BhU8>0?W+cLtHzFc8T<>U%YSr2`+YeHeh~9e;1dE*Ry2KGnsNXD
N002ovPDHLkV1f}C?6Lp=

literal 539
zcmV+$0_6RPP)ZgKpw7+iJK+C0jP@iC^j>Q2N=%UK!RoMw(LwDbNNH3!ofOgmR%vf&-6X2~5ld
zsKfzD4L6($08+C#Qd}0eC@`=B*^C=D
dWdadk0|0fDyK1(&+^YZp002ovPDHLkV1nG6$Rq#&

diff --git a/docs/html/img82.png b/docs/html/img82.png
index 44cbaea8f64168b21eed31eebc65797d5587e2e9..e58c5e69115e601b611398f60657d85c85417cd0 100644
GIT binary patch
literal 334
zcmV-U0kQsxP)SU;u*z24t{91i@y8((wTdgusLej0Ox04lE3eHz5M-
z1hs&4A+rrQ4K6SweBftb;1!r(FkgE2!Y^FJ7=jz{ZoqCA3&TZ$iv|>UFd4{c
zV4e`h;13e!`M|b?fv;=}M3Fa4^=A&Y00u)K_5kW!pvf?yi_@%07*qoM6N<$f*{>~BLDyZ

literal 167
zcmeAS@N?(olHy`uVBq!ia0vp^5P%wJ9C;s
zSz%$qv0M{H?u88(kG6&wPiQohcrYQv;hDsQbAl!!OAlnWG#UyqFuZ)u!QOJWb3f2H
N22WQ%mvv4FO#pLPH7@`F

diff --git a/docs/html/img83.png b/docs/html/img83.png
index 2f1e81d34fe3199e8948fd35c3c87a2d6ba2a515..ba4e52685df24da3b09109bf393ba8c705e6f841 100644
GIT binary patch
literal 363
zcmV-x0hIoUP)u&B700001
zbW%=J06^y0W&i*H=}AOER2Y?ok1Pyd-YrAI3rL~3BvIMK!+{#7Z_mux(-toIbchK`@^s@_FBXqMX$>W;`xyBTJxs91u
zBo)W*Uh}&SyvXDcABUa;pVwVxM_VP=XWYHTr#`~1*Fy9DlrKH?GF(SRD8T>#002ov
JPDHLkV1ntPp#%T`

literal 800
zcmV+*1K<3KP)KRY7RfKootM&8E9evI!!x2a8iJ(u-~n-nOl}OcvUbhBE?15nPfLz+pI0E
z7tsfq`SbsOKbiS|etF3);#{Jm4oB$fDQ8)sm!r6c;BUj_nP(^k}
zHY-Ow1UY*R5mtk{BvLVW88N16ZXOzNyo4MaOuwr6`2p0AnvP>|vtF8De9BvJwB-Sv
zKk!lOgV7_iJ{cJgw+9pAVAG+T1tsKtq{P;_IS-QS>NfR=vPGPUuiJzeIbm0OU$7F5
zp3~GfvXg%S=91X=@;FiTvoN<&wrEtQ5mHN{o9;%k`DKgPa3$@v33ib$ib5k(|M7U!
z*A0eKDlBSA+T|d!Q$Ht?=ke#0sDbqJK+VE&)PV4`Q9MuPg`!GK&}1a_g_CFT|q!d(Z#)J3*eTmw6@}r3+%z
z_r_|u!EcS1$Ve<9UZMwBccC<*xe|`sd%T)R2O!&aV&A;z^d~3tW09pC`;_OK@@N(1
z$z9~$@XHegl&hu17vF5H1bMhki6i*(gN0I;&p&et#6nA>ip@8{-g3(w{!H0%(1$a4
ziql#{@v#HCg`8P#p7$YI@@}NegCT#AX522H_u^wsHNfFkC&Dc>--vC=@gHhG&Klgm
z#Zp7;v!dDWgsWzULGR-SMvH>4B27DdaUeGXrLYN^!n`^=`{?SmuOMN(xD_2*ypBul
zFH(K_3htIjm1PQToZ|*!@{@Unyd(HVeFPmovI)P;!I`8SC18&~{pcO~}0000SU;qMkMj*k>00RvS3{0F12*AOR&wvAPU0|5Wz|0Fa
zqyd*ARKUu>&%nUR4m7r?A%UC0KL94-LY#h_fJMvzND3q{FtG76d|=?80Onqpz`zi2
z0O(SAhXvCZ3=6N8(@;G7q}gOR29<%
zPIjLQ{6N{yzyJpVUI#V?26X|3Zww3Hh-PMH0000)L`2=)-6A3)ySuxWH7^|i
z0004WQchC0r0nxIQ#e95}c9*ISuAP-~h!st$UW*EQ=Loj*Kt!{cw05H4CJDq=hKNzP+mgO?guTDCGCp%!B3e&Y8y0U
zMJYrmxouwBycpi|+ey10Lgng{tJ}
zwnqa8>TgwQSQ^Ix2NsQw>g0A&15P$^XDG#7J}->pDN8;kC>94@3#LPn=z{sK<3T4R
zYjykmz+87?T@&R^-8yWPp`CF#t_s=7NT(Ei)<=5LlZoomSRX5L+ZN9S@zhWRLQFOx
zc}zUSym+y05iyG%>V-wPsTgv&<z{q)c*loCt*qV>1{G{=+a*gcn&qO
zvbv+v*M={1bF5qyv3`J@t6*Zuz#ui`WX6PTr2szR1e~)=Vli~JYZ#ss(@ulAidu4=
zc#ed#c;dw^!g4(|F2^&PL=f6VJLW~gaLjcaO;zbY%}_%mLjTlTbs$MIwMM|NCPcpV
z?X)p`-d!vg0(=_BH0UidF^xbIO0y-VNeBA76P61UP6bUm25{wEtwUIHjb$!0d=wBG
z67DX@b!NVt6E#;2Iak_psULudN0ByOt}OoOPnt6zRXaFeGg50lk|XxAZ4R(Wljgt=
zBiIG2R7At4sVKndk<9b%XY6&FS?0mnT2(STHf@B}8Vwp@6z>B@$eX;|qhU|6bTk?a
zTchP-uaj+qz^EcHje$q7T(=BR^$?|~eT6ZS+)rXklIGmmT97j9YiflVdglvbEsix+
zo(+Pn^H#$Z#__Rs9D*&Vy2wzo-QIa}o2_SOlF50+&Cbb|Y$4^jNwYCPIaavB+Xqdn
zY^fmT-|Chc#Vw<0z)RM)LPy29NC&EdW|y`UxNk85D;Bt3kg{SucITKCQ9K@we6?8#
z!EU$hQ5one7Huh7TQW?NYdR*ABW@gOm4hY0zy5?ZgW1VSr}Pr0o-&%{ldW>I98jIB
zyvTax$Aql?v08|>h&Y%IiZkeF-8W$o6s8Yi9&_Gw&}mOSrC3X>cV!|VLmZbDq(2=P
z&5<>3A@gRz$Zw+eNB&q^LpJIykT+7I_m4z>2WZJ$1QDNQZSvF};I!zkkiQYNq_Pjd
z+Q?no#(RPtswZ2LZcnepu#LcE%%xDM7W$zsYGkif6BneYaa7iX?4CGO!|hUKh4G!p
z9dFmlR9rdjbU&&GoXV@7RL>gUS|uZ0Y!(N_XJS}~nJ+LAwARE%y2^DO=jek<*(99<
z$C9$Ruu;?I$Oxh^EVQf3_`DQv69%QtLPML@4Sjlr|L{bI;V@$PHnX>h_R^d
z&2n5e~sLO^ht;q`1mBY>%$#P+EkUeIPhd`bsRDw1ikA9_1>(kKcSa{XTG@
zh7`aYD|_w({2$U)*gB@=m51nvznBP?-dqgNuabmI&cM@jAK__o~lyfn;cmka0ymZ
zRVrSX62XeW$v!MJOF$SoSS^P23#ABlI?xyWCDpy1YgzBG18${Vd6Dk^s=rj@)Bchu
z2}gS3Rwr4f-S~5Kg=5~+d8JdR2B-+@Pn|99r#4{;4Q7&@Lgbn7d2>X7B{Sml1c*uS@{Oc@xF#E2>
zk;X1Y*eRS<$bN2&Cd!Qa2kptRify*wQ`upI5e{L=OD$KVj_37<*(EruQRP-T#?}4F
zOW0_^cy`7Gn_Z7=vgU(p=`?Ozeje-(Yom$V^U*_-xc+t>+Mh^vbss&7^M^_GjsQhr
zSX_Vlpm1TI5I$qOJEkViWS|M>!oFj`_B)RaSJ-yoE-qagb2oURCXmxaTj<)R8T#Vz
ziK7ZJMKUG{A|5hc-~@hzq6^cj^4!W^Me!`I%^HIBSJgqhEKdAmIH%_F8hx9<&qc)&
zZ?bSzctyJS5b%wZ-S-S+=NOH
z`H0qjk&-3a;pqzl$=YYBt~@PR_o|=|t#x6%fhm`S;>S9fta1!fBwIT0gmm!};Oi;7
zZ5#5*mMDa}nOu@N1+%A;6=lw9#cB#Um#h;dD-m9m6PbtKdP{t%dfc9Va*1NdL1AKyOcd&bi8GjHQJ6&eN(b<&@FU`<826%AfZdZ|$)
zk8<|RuAZ#zCYt$>yXxcoe`N=yG(LwauhpUZwJ?|LHJAE?pW+8#JL!Uww7b{^F4%*m>ztQ&{{C&8>6z=8HbxHj9RIDbE
zQzY)$UDzd~k%(!cm?VfoQpp|`|2IT^-iDil9Tas;=9hK}Ry5D+O_J`JI~T7kH5Jb+
zFNggOYNEbZx*(rlOxao4I7r`epa)ihl~b^!rF6ab_ge7|$jVD|c!w%QpnX(J+6K9GA
z{XmR=;#C*Bu_diQ!6-7msaDpgTb#Q0NKGO4wKB;{#I%rj5=0@1cx4-4i!JmQR_oO++G(yt|9eHogHt$PtxBEeXU4wAIW-rC;f6UdGv`TUN07v6GNg!Y6>}}
zm8K|;tgsIv*v7~r!hSvQ9npC9;yQPfK1wuq+duxwv5^Y)sx{}*Y6`1stt7mF{{ZI(
V|CEWBkb(dJ002ovPDHLkV1j@!@ml}@

literal 1401
zcmV-<1%~>GP)RG%l!+koHajol;;UDylfwP=sP)MbQxpu~j6x)kQ)yAcKT-qCk5Gh#ZZ1
zZ)V5#?%I1xM8orWcjnFe`R1E9<2iuSh0|X>0*5-TR2@Mi22eM`&s6NCQ8a)$2WP~=
zvSd&&-~Jxq
z)KWea)bE=O<BQ1zjyf0}jl$syNoD0M~J}iOp#YUpFY`4=nClz+9L4eM}Xq
zELafaDCJlO9|Oj{?zrpgmLbykSj23KqYeTGzJdV{;eDXB!qKV-S1Jh{`gZ_*g#%FG
zjb$NXf`A1sHPKm=w1`ZO@j@UDmpuni6MD{L96^Gw`^)%76xvZj5iK<>W|LSNFbhNz
zvaqWDI|)@|R(?e$DkWQ#UPdFPo!!C-DMKk2Ms*s1QRj3R1*MZ#7`Q1Kp@PwAW7^Oq
ze1?goEKHgMo#AlV!y+`mb7y-4w}xNGf`f4!&Gk$JeSQSAh}uK==?FOzu!7g1W3iK{h*b3l2g_5FATwnOGv6Vo8iHzO}KKA5_
z=x>I9#lirrx+8;fiTn{vTi@biK^d!cXmoPXa=SGB&U(bdTB`s1XRa9JE#A4b~7Sq!$KGR{KSG#R~xTWqJrBvgPmV#k&H2g8G5lQ3WmN`@&JER%nA
zgeeKc-J`VJ;PgAKUno)DO|_gim00002bW%=J0RLN&
zBDDYj0dGk}K~zYI?N!lj!Y~khAO;}a07fAF=)c_oDv=SI5gbNHx`8tS9l;&}kI;+|
zMtJ=&307mkLRHmDeLrWNpWj{1=gW*3Fh|jzmb1`1;_RK5T~z>p418xIzd{pSkxTaE
zRtS=$U=Sr1E)w?|ZH@*ln(7$%NW+y8q!7kulB$*BisgUvU>>1JU=CXVXdxv~Sr=|w
zYpwN5Qj@F|mDy9&lR{H1b+oQYA9OeCXCodbEE{3f02XNSu0-`vbrxAwG;u*vlY&&5
zf}60M2V;yO70Cr$33RYeFL2no9FV8j;hl0zQkgw#MVfwcL1v?(U3ga|{yrn=gTI^(*zXXu{7<~O9G(02;
gjrg5?^)HoHoSo3_yNyS;espx~4-T@s}p2oDA
zp`V1Vu+C9{y1k`|D&JzwGI12l)Bzm*WemC`Xv4Hi!c|Tqr{1(l8nfZLEBC{mWGenX
zOhfo!A%egW`!V6PTAgkc$Kq9nkj+Gf-WrGJKZPHvswg;V@Py5hiMJuc3SzUIg!3t$
z)48RrAKS&-;FUD(Yv#Mgkn3C@6Jd}Dr5S9eJGyRj=m#5N#2DTSQM03T)ygn*!`8U&
z;ssa0MMy<=LRQpWn46ty4^0#{dyhB*zGT~Pl9%3es!?MXC~@E{QUe^K@PqAk3yI${
seYHH4Jk!Zdzi-W>5N@3RvMbEu4`Kd9_iPEVw*UYD07*qoM6N<$f|$SKNdN!<

diff --git a/docs/html/img87.png b/docs/html/img87.png
index d280160a6ff8a74211c90e54066367fd400fa936..0e932c939803fba4d723ac371fb57a190667f3e4 100644
GIT binary patch
literal 554
zcmV+_0@eMAP)KRKH8ZP!PT(P101;7f{e{annJF;O?88GdkuEaL6Qd
zD|YG@+yY`F6#NJJ2Xt_8OWit%gR|JdA6SI=?j_MA7#oldLO*)V-TS_KclY`lfDGtn
zCwS+c$38NYp$;}|prd+RS^>Huzr2A6x>HI13yfSO;Fr|^qG@fQb$1;=;!9w%c@9}!
zl<+0cc&n=a*A6NJ%ZgzVOquN#$S9h!M}y)VmS$-qfB{=JEI~pp=^HNMnFHv%efOFB
z4c)ymv*dpStw7>$cAKt^*hMlk8t?0Y*LFJ?8{^gh2#duQY?&#kL{Xw40Xtmd0JvtR
zlAwcJW*@9&6L^9L;I-stXxo`uYxpC#5J+WWM43gne4ven<4GS
z=lW&{$`G0-%-UX_U@yI9C`6pHR49?HkUee!F%X5n{n27z1Ka>3(WF6J=0h8TLi3Z{P4Vm
zzV@_6#L6i?E73yu*;A>r1l9HBN0os3gU;2ZeidT0si}k}2&1(uV;VM78CjMgZC^IB
zYR}VSlgi=2F|l_&#ck`{fH!zye4a}Rf4utGFP6lEgG_TiGx&13Zf7nS5%sLGZAI;G
z#+G-!-7Q@x?;m#ioXKuO*dsc?`ZOcRnpW+}tI6~6f&0(ly^a1GKOG|}7$Hr9wEzGB
M07*qoM6N<$f~td|0RR91

diff --git a/docs/html/img88.png b/docs/html/img88.png
index 89a30141f4e44021229186d55eba774c3587d7cd..00cb49e66f50d6f6633a448d1ee4f6467e554977 100644
GIT binary patch
literal 178
zcmeAS@N?(olHy`uVBq!ia0vp^5gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0Lj;Rx;TbNOifMzf}n(k#??H30>pmTcD#6ZSNg#w`Gg*|9Rgi85;8LuFo-1e;N{;?}8d&19VRy&hzMO9+kNtGWB4ZjaCFepw^5f(qK^b+V222WQ%mvv4FO#nb_
BVHW@Z

diff --git a/docs/html/img89.png b/docs/html/img89.png
index 168fcb95157e5a8d71ac20bd4b63beb7f0166f74..3a49b4c5406abe6810896658914b9d4f420b6d07 100644
GIT binary patch
literal 939
zcmV;c162HpP)ND00002bW%=J0RLN&
zBDDYj17t}=K~z|U?U*fh+(s0J-%U~2rvE@HG?NR>X8R9hTDA!c8anUR&DVsf~
zq;Lca$7L>?g*BTPmOTaf*tNZJyovYZ^fWIR9nIYLe(7rFN;7l-FAh!Wg_=eib&|BX
zT&<<;N*i$(9)Q_VdZm>lHS0~I)ncW!RuaH+Qk(1}dOxW4qqvl$tukZ)S}*_via8Mx
zv5;ZTu?{@9ug8ln9$W3Cg|r@TX>m}eG2w0UmcnLB09xT(4Rx}j2nApmWL*J7Z-(c;
zBwz%Fc2^so#}Q7G*Qeu%w0?1=%@NX_bUxiQcP`yd>hgu8h14vxl_ZtJ`g+rKUDruc
zv(;MLQY)!ZccoIzSU#m*Nzz)2a`AfNzxn3J+w<$$)!XaY)%Wk-y}Z$17graO&dVE(A?>|?X^?bd)zuz2#
zzLp=LJ?5=`I{r%~_5W77oqZ~`um6Ex?&cc_dqibc`;{5TY6U2E^BHAG&XJr4vWvr}
zi<@M;$2y{0V(VWDOLUQCTSve;p8?xac_zM>1&6_rfJmTsrU)T~5P%|NL&C8nKm{(Q
zP=f{6AI%1Az>a*Zlmg7dfRAB_)`P*KL_zqCltw;QCeT`FJ(6k{
zGBvQ*CxjLo9Nu|MOUSf-Oipsb1Z?nlJMl>eHk6N@RwFF#;8V7rwV`acWqEMnB)il}
zl%4`7dG$|$uZ})9zB>9iHrr#QSCRx{!~X0jrr{paoxSpo{pG>K(gp<8!KUqlsGllm
z?Ks>=b@y)1{-M(Xz-09S#VSJ;iB-mq5w>6~MT9)*$_Mp@0fn^PL>JKC~aKf}tfAfN}jb4}!jCX~E)iHGQ!XrY>keoJXkhK#c}M
zfdge+KV%JB+rEY98>-rq3r8@tj1DBTS1gl#zC@2$YMa}qw!_ID^_S(#;$PjL98JHyIoJRI
N002ovPDHLkV1lIc$g}_e

literal 243
zcmeAS@N?(olHy`uVBq!ia0vp^(m*W7!py+H7-8Vy4CJT>_=LFr|NnpH%$eoo<)NXW
z@7}!=6ck*wYE@cV8c^QF#pUkZyGlw*yLa#2SC>8sD8yJ2zopr04vf{qyPW_

diff --git a/docs/html/img9.png b/docs/html/img9.png
index 2a67babe3b406cb9e514810e31e3e786e3357838..67fce13f6e07538f34052ccc7723aa4a5879ac8a 100644
GIT binary patch
literal 246
zcmeAS@N?(olHy`uVBq!ia0vp^fCnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7
zNCR?8JY5_^IA$g%G%)3{#j#l=JWEeVN=Wc&D7yJmQmP^3>lsdmO^u(Gn2jzloiZ#m
z)-W(A_+({Zkm1MLCHsI)h&w`5Vgu8$X<2M-)ec*EIC&;ZO7u0e{#5?|--Kbag_uD>
rJ;UZaYl9PpF$^24Bqh4ON=h&sej)T=p2#O(p#2Pd-XuCO>hw#nNJv!d
zIJhb9y-0%!yR^rmhRN(pre-p&syeoUmq$mz*n)e8nSlX!18XI>gv&vmzP(;vuNAni
m8x-U;>{!;=c>6#fBZIKP)rg=aFKR+XfK>-5_H~b!u!M0zj>BZOBkTbT+zvp*c7$O+7Kei>})k*
h*0BQ34V`NmG
zP%-Y4G!^KeF4*7zlo2QTt}=7Q@97{&&6$F^+D3ezuO1MZ8xs0k^7Yit*b6QVqgu_X(xI$dCdpTJGcJex0G0>z6IGjX2
zMoHq-iP?w}O$zRxu@L#fq(m9&SS8UTi|I;Ng#ME96aO{iZ
z-x#ulR$_6K1!mMLuXsjvR-AF(l9-aXLImI{RM`hx-B(i_r0A?roL!LPs+FZyL@7bR
zwo17S<%S(Iy+Wgjy4`}fDn!|r2&O5&ED^UB2km6FqE^>8!}ccJ26s)m_3b_BHK1O|1)7=&AGyOd
zDMrYQ#g7U*=t~TfDz^O+W)%Z{yurITuNwI@k>3M1245MK{X@|WNJ;fmZ63Qpp`!R-
zZLqeY%=Sv382KzLhz85W{CtKk_}gnhxD8}T?a|R^~SI(xPC%d-i
zFnzo{_yPO{>(pDqE~Dd%hMNi8KfCzin~}!QwZ$N2a0Fh6N>o<`I%xD-BA=%Z$1ePD
zjf!TKHeLbV#(6_3`yYphO`wQ1%{8`_0+eU^vECn1Zn5OAJxo59H}1$ekfElk9V}vP
z-Zdy$bmfdN<|ZAsJlIiqoiZk^)0e{bS)=b-5oiouQ;Y&)Dn#;3^)9Zr9zEfoF?!Xq~=v^Ji*T)1fhRO)-K_TYb+p;EDOUvyflMxPG~p>!qPD!;*0Yz7QV%`8eyWA14-vc{ThuHxxPF1KV`N(Mk
zayZJ@NQ_Qj7;Y}`({noxFb2+{i@_QG!8yuVHz1ejZvnV#xJP5S$w+A{hpoLftFdX|
qnUQMWg76NQUj47L{!c>xF8l*aGrj%_{9RK30000*Qn60MFc5u7TDNIh$ljqYYlW!z0&lE{iP0nKl&Lcd
zE6OJnsUKjmbwG4t?t~Cu;lRkk8QTd_J2Wg6Pm1sE<@ug3G2jtm4+LgmB;HH?3n5p|
zLn*}P2_@3-gNA*81Y+V+wV~xgh=fRR43ic*#AJNcw~QEk<$Wj4%MOdio=u^B61y1D
zVQTI?@O6k3=;}-LQ>Az{M<=Yc-@~S+?nISDR#~ZFUbwyi7
zsU#AasfrJY2aPds@_6c8KG7=-8C3U;e!ti;<9n?dZ3|+#W7j{%H^AgMgfU{iXaE2J
M07*qoM6N<$f;^nE!vFvP

diff --git a/docs/html/img92.png b/docs/html/img92.png
index 7a1571bee715c24a2bc9cbc0d98ab1ce0dcc993e..bde637725c080a15c177e5c0e8449c00187d447b 100644
GIT binary patch
literal 508
zcmVBbKotH8mU0c!n)r*2$vAdng~;E)+{HmARyU%F
zzosf0WzcBCj{g7&e}U<29QYGzG*J?hdiUBh2eb@^jjy@)dhfgM-Mx1$AYo7W1TeS`
z;4?MmMNR{X2y=08B|XPn*ra9323A0`)tf#Aorucm|J+~(23dxWi6}41a*4}89_CHY
zqGgM6w_uWn!Qu}?yPj+6vJo74H5F^aS=3<{0B!PmskmYMdOSfz^_ae3veS&^&|T#v
zV_bh(W`Q(5`eBv7NzKS}nT{Qvs){Ci~X$pB2
z;Nl>}4sHeY7Zk@X9_~UW=O7M(OD5-1P*EuLa!nILG8A+W{NTNJ@4I*R?%sPqf=!{v
z$iwBbFIE-`kV8<$plun&y)yW*a=3UY_2@2lbQz3m0F9r;=Dtq2>V2rHq`3?XGNg#v
z=z-vj>>WpbAV`9z9R%quQo5@D-qV&wR%M%utD(Y8@U`G%h%c@nDQ1jF2Q=al$vG9i
zghNO4Q3Z><^k=57#K!Qu(W^TZEs&rZ{g7nY?R2GPWHu7cPk#1CVQm8!+^!FWODL55
zNWKNie5*P4YoRa`E-V*lhEU@@G;t&7;

diff --git a/docs/html/img93.png b/docs/html/img93.png
index 79cf58a608ac4cb053e96d889a83c89e734a4a70..ae65520d2645270a59acd5ffa737595d02c76086 100644
GIT binary patch
literal 370
zcmV-&0ge8NP)SV1NS$1oHq8D=;7dR>?>P?0_9v_k#%xENl!3IFzD*
z3k(Gl7#R2y6c!wq@Qr~JC}MD-M8JTt0Bj(aCj&nN!vtas!VP#CIAF{PJPaQY5(Yqv
z4Fn4089p;KfSkg`&k0lvRKU;A#mdI81Z;5v11rcU1|SWb4M2swl(~j%!1#fIJ%JZB
zET(};FR-*E!+QqK#&$LX5R-wk04VlhCc}Tm0EV}m6F^J`evoFi0EPzU0!{_?2@LE9
z5*RqZ2AY>M@Gg|T0E}?X4h9D13sB<=8GyQOf|>JSR`UM^k#m6<9;!430DV&~O-h-R
QW&i*H07*qoM6N<$f>)Y?{{R30

literal 219
zcmeAS@N?(olHy`uVBq!ia0vp^LO{&N!py+HxcqY>h@%_e6XN>+|NogYXO@?jzkB!2
z*x2~YnKOcdf~!`o>gec5OG^W)a&d9Fd-txAlG5(oyE!Fi2m*x|OM?7@862M70LjOA
zx;Tb#%uG%I0=6W!WPyVRma#6A*dcMFL4}=J#(;4nlRy%?L*X}eKJJD!y!;ATJO-kM
zYnwOzFl+GG$+?wBhut~C5)vL{Cp0iJT6AxXZDeFFaCqtEqbc!V{s+YejLglJhYxWpykozk
zHIeag3%@Y8goIj6%8mmEjvY9|DWdg!D%P!v5$(+|_82_lG#1QF56=q?tWbaHZzlZ!(B
zfFKoII_M-F1Y4&fi1`D>;w<QXg$IbLqnnG>*9?DX8O+l4wzuG6ePmY_=wCrggO&^iu)^;7%UrNlLQ^x
zdOT&)e%8p2=1VFvoN<|+TWpw7o!bI4u}u+;8tBz?$#%KnL-elQzWKk>{0~TVwNzE;
zW!Sya&E;k_+u#UNu(Ucd;bVoOi
z%ac$}T&NZj`@k3?iKc@KORp7U9l9o5k=+Rc=R$C$yLp@4flj1&*N(oPGr-UB4wMpJ
UIE(2>82|tP07*qoM6N<$f(PFN>Hq)$

diff --git a/docs/html/img95.png b/docs/html/img95.png
index 48aa78e3f8d4cf21d250e237bfc08d657a632e96..93115ef1d0fb20231d9c077757919f70fb875ecb 100644
GIT binary patch
literal 264
zcmeAS@N?(olHy`uVBq!ia0vp^(m*WB!py+HcyEc-TOh|Ez$e7@|Ns9pXU4Tq4II^!V8W2R2^^@;!`qa2quL*ufC?
z*C2t(u=^pCGJnVEGYtlvCmC1sbus>DvhZefD%MMQk>*}t&SGH1w9;STUd#Li7k;$l
zFbU_%u(9o)$k1nSm_35&g6kBS1f30qI!@yCS|94tUN9H_=#`nUDDji<&I~Z(dW}eN?EVDt|
yK$T&o4_lk2!z&f$!!j&K=N!mm2ztzHBE?W!#8dd&F18nFID@CFpUXO@geCy=z(Ah>

literal 457
zcmV;)0XF`LP)0#w0(@&sjJVPr?@#s*#4
zqV5R9#>OM~4VsB5gBSKZLR29n1VjCk1~*A5AhsSUz9;v7wtO8cfFVzZ4J<0wp~O-J
zYV=vY9BFB*c0@cMW=X!>fEcUY|6<{9MMxtNJ*oa!q>a0~&=p{hOtNcieb3U}ai1+eb=EZ3Z
zOA1QFhm1pad%jLq-yA8wc6{L~9kzirQbe&cUP+w-XWC6+r%thomsj~hxn~3=CT7j*
z-#y@Z@J<{2r*f>tmkBQMRydOeA5^?e!;#5v7D%{FN!H+9<@(V5o{PUs4D3Vng8{!f
zJ}~g<(Jt_)Y_Ge)q?L(c9dElQw6ym_Zk;s)(N#XhwM&2O00000NkvXXu0mjf{|d=v

diff --git a/docs/html/img97.png b/docs/html/img97.png
index c4a1e7addb4aaced38e2b20c67297361c6e97cc5..e7744ab3c0a3a94f8c79eadd4b06a4b76a9b513f 100644
GIT binary patch
literal 440
zcmV;p0Z0CcP)zQn5uMCVouYH3%wJOTky>Q4V=&_u?Bthx|}BBZf2pfF>+_x$ov@{_zt(NLzmWzqjN
z;4RDlMYzUg(RYFU>Xgj{P7p{S_NvkSEjJnb5Qu=|b@6Sh0AY$QjdG6Yr2qf`07*qoM6N<$f*HDxivR!s

diff --git a/docs/html/img98.png b/docs/html/img98.png
index df9999c45dc7ea3e7673d9a791d4d58d363d4803..eb7686778c8f2e113b105457a0790007de39cbca 100644
GIT binary patch
literal 520
zcmV+j0{8uiP)*Q9Vn;P!v5iX+BC`U(`Y9VmH_4CWz2Yv4im+WKbN9
zi&zjX{R75D6e?B_T=NHnfP-tGlZw#QL5Os5^uDC@gJkHShzIiSz2}|#l?M#)D34kd
zHH;&)0Tq$FLI#{zUx2mE>|GwbOgdgWqnNpLM0t&-EN=l0RWL*vD{?H+*VYZw@gYzG
z3mp$WHNI1dl`4%cV8Y;785@lcy(zc)QLv%cq)+J3$oTyM=gHw>&?Xp-7b<|xU8@MO
zFG(AXEeHd!(Ay~>FjHmOL`>;QbHR;0Uz22v8S6|sDqM}JfSXpN2UjpLNQ&q;HvVI<
zRp5~9%R>?tVyO0npc^nhajw$Xs3zuu9zaY8O&^=mssUzwXy+%QD`Rf)c|30000<
KMNUMnLSTYELgOR=

literal 285
zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)n!py+Hxc!rIEs$dn;1lBd|NsA)GiR2UmxqRi
zzI*r1*x2~YnKOcdf~!`o>gec5OG^VPba8RHd-txAlG5(oyX9pSrvil-OM?7@862M7
z0Ljnxba4!kn3|lBknn&#iIt6m;UW`{!2uE8CnKP?at?KCLC@U)isxmS%x_kGofPld6-MhcXoAv{R7)yfuf*Bm1-ADs+
z(mY)pLpWw8CjbFcQd!anV@H<7Du->Su_nAVmb_Q!$FT7RlZ4csiUV0^PD}EgHZ)*h
Y*y<$6>&|~=2GB+ZPgg&ebxsLQ01K;3t^fc4

literal 415
zcmV;Q0bu@#P)T#y?J;5>x`8&Z5hi~~T-2z0Li4?RR#qH;kt
zDllz876OIF1O^l#h$g7e93}^b2OHRtg;-fRc^ejRgEeme`H+c$gNM79*MWxt;%zu!
zV&DamE=VFg{R|7p^~_)aEK3*|Tye^JL8v=G%#GWOSTK1WLlLjkjZgWV3Jh!-LKhhR
zfQ2?-C}QJwU{YW!U^v8(2a_tmv`&e^n}J#6{uTy91_ns{&17Ksq^$^yKm`VdAPDt@
zL6d>`2ZLm109YCbm_9II2doWz2@L!S5RNBquQ4#F;FBB{002@YFn@UT8g>8x002ov
JPDHLkV1j~;mXQDe

diff --git a/docs/html/index.html b/docs/html/index.html
index e3200a830..cccebd92f 100644
--- a/docs/html/index.html
+++ b/docs/html/index.html
@@ -20,18 +20,18 @@
 
 
 

-
 next 
 up 
 previous 
-
 contents  
 

- Next:  Next: Contents
-       Contents 
 

 

@@ -61,345 +61,351 @@ Dec 1st, 2018
+

+

Notes

    -
  1. For processes in the virtual parallel machine the identifier - will satisfy $0 \le iam \le np-1$; + WIDTH="180" HEIGHT="30" ALIGN="MIDDLE" BORDER="0" + SRC="img131.png" + ALT="$flag = psb\_sort\_ovw\_idx\_$"> then the entries in $ix(1:n)$ + where $n$ is the size of $x$ are initialized to +$ix(i) \leftarrow +i$; thus, upon return from the subroutine, for each + index $i$ we have in $ix(i)$ the position that the item $x(i)$ + occupied in the original data sequence;
    2. -
  2. If the user has requested on psb_init a number of - processes less than the total available in the parallel execution - environment, the remaining processes will have on return If +$flag = psb\_sort\_keep\_idx\_$ the routine will assume that + the entries in $iam=-1$; - the only call involving icontxt that any such process may - execute is to psb_exit. + ALT="$ix(:)$"> have already been initialized by the user; +
    3. +
  3. The three sorting algorithms have a similar $O(n \log n)$ expected + running time; in the average case quicksort will be the + fastest and merge-sort the slowest. However note that: + +
      +
    1. The worst case running time for quicksort is $O(n^2)$; the algorithm + implemented here follows the well-known median-of-three heuristics, + but the worst case may still apply; +
      2. +
    2. The worst case running time for merge-sort and heap-sort is + $O(n \log n)$ as the average case; +
      3. +
    3. The merge-sort algorithm is implemented to take advantage of + subsequences that may be already in the desired ordering prior to + the subroutine call; this situation is relatively common when + dealing with groups of indices of sparse matrix entries, thus + merge-sort is the preferred choice when a sorting is needed + by other routines in the library. +
      4. +

-

+ +

+ +

+ + +next + +up + +previous + +contents +
+ Next: Parallel environment routines + Up: Data management routines + Previous: psb_sizeof Memory +   Contents
+ diff --git a/docs/html/node102.html b/docs/html/node102.html index ef55917cb..10f2e3675 100644 --- a/docs/html/node102.html +++ b/docs/html/node102.html @@ -3,8 +3,8 @@ -psb_exit -- Exit from PSBLAS parallel environment - +Parallel environment routines + @@ -14,136 +14,93 @@ - - - + + +
- next - + up - previous - contents
- Next: psb_get_mpicomm Get - Up: Parallel environment routines - Previous: psb_info Return -   Next: psb_init Initializes + Up: userhtml + Previous: Sorting utilities +   Contents

-

-psb_exit -- Exit from PSBLAS parallel +

+ +
+Parallel environment routines +

+ +

+

+ +Subsections + +

- -

-

-call psb_exit(icontxt)
-call psb_exit(icontxt,close)
-
- -

-This subroutine exits from the PSBLAS parallel virtual machine. -

-
Type:
-
Synchronous. -
-
On Entry
-
-
-
icontxt
-
the communication context identifying the virtual - parallel machine. -
-Scope: global. -
-Type: required. -
-Intent: in. -
-Specified as: an integer variable. -
-
close
-
Whether to close all data structures related to the - virtual parallel machine, besides those associated with icontxt. -
-Scope: global. -
-Type: optional. -
-Intent: in. -
-Specified as: a logical variable, default value: true. -
-
- -

-Notes - -

    -
  1. This routine may be called even if a previous call to - psb_info has returned with $iam=-1$; indeed, it it is the only - routine that may be called with argument icontxt in this - situation. -
    2. -
  2. A call to this routine with close=.true. implies a call - to MPI_Finalize, after which no parallel routine may be called. -
    3. -
  3. If the user whishes to use multiple communication contexts in the - same program, or to enter and exit multiple times into the parallel - environment, this routine may be called to - selectively close the contexts with close=.false., while on - the last call it should be called with close=.true. to - shutdown in a clean way the entire parallel environment. -
    4. -
- -

- -

- - -next - -up - -previous - -contents -
- Next: psb_get_mpicomm Get - Up: Parallel environment routines - Previous: psb_info Return -   Contents
- +
  • psb_info -- Return information about PSBLAS parallel + environment +
  • psb_exit -- Exit from PSBLAS parallel + environment +
  • psb_get_mpicomm -- Get the MPI communicator +
  • psb_get_rank -- Get the MPI rank +
  • psb_wtime -- Wall clock timing +
  • psb_barrier -- Sinchronization point parallel + environment +
  • psb_abort -- Abort a computation +
  • psb_bcast -- Broadcast data +
  • psb_sum -- Global sum +
  • psb_max -- Global maximum +
  • psb_min -- Global minimum +
  • psb_amx -- Global maximum absolute value +
  • psb_amn -- Global minimum absolute value +
  • psb_nrm2 -- Global 2-norm reduction +
  • psb_snd -- Send data +
  • psb_rcv -- Receive data + + +
    diff --git a/docs/html/node103.html b/docs/html/node103.html index 86979e32c..419c426d2 100644 --- a/docs/html/node103.html +++ b/docs/html/node103.html @@ -3,8 +3,8 @@ -psb_get_mpicomm -- Get the MPI communicator - +psb_init -- Initializes PSBLAS parallel environment + @@ -16,67 +16,97 @@ - +
    - next - + up - previous - contents
    - Next: psb_get_rank Get - Up: Parallel environment routines - Previous: psb_exit Exit -   Next: psb_info Return + Up: Parallel environment routines + Previous: Parallel environment routines +   Contents

    -

    -psb_get_mpicomm -- Get the MPI communicator +

    +psb_init -- Initializes PSBLAS parallel + environment 

    -call psb_get_mpicomm(icontxt, icomm)
+call psb_init(icontxt, np, basectxt, ids)

    -This subroutine returns the MPI communicator associated with a PSBLAS context +This subroutine initializes the PSBLAS parallel environment, defining +a virtual parallel machine.

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    -
    icontxt
    -
    the communication context identifying the virtual - parallel machine. +
    np
    +
    Number of processes in the PSBLAS virtual parallel machine.
    Scope: global.
    -Type: required. +Type: optional.
    Intent: in.
    -Specified as: an integer variable. +Specified as: an integer value. Default: use all available processes. +
    +
    basectxt
    +
    the initial communication context. The new context + will be defined from the processes participating in the initial one. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer value. Default: use MPI_COMM_WORLD. +
    +
    ids
    +
    Identities of the processes to use for the new context; the + argument is ignored when np is not specified. This allows the + processes in the new environment to be in an order different from the + original one. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer array. Default: use the indices $(0\dots np-1)$.
    @@ -85,19 +115,63 @@ Specified as: an integer variable.
    On Return
    -
    icomm
    -
    The MPI communicator associated with the PSBLAS virtual parallel machine. +
    icontxt
    +
    the communication context identifying the virtual + parallel machine. Note that this is always a duplicate of + basectxt, so that library communications are completely + separated from other communication operations.
    Scope: global.
    Type: required.
    Intent: out. -
    +
    +Specified as: an integer variable. +

    -

    +Notes + +
      +
    1. A call to this routine must precede any other PSBLAS call. +
      2. +
    2. It is an error to specify a value for $np$ greater than the + number of processes available in the underlying base parallel + environment. +
      3. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_info Return + Up: Parallel environment routines + Previous: Parallel environment routines +   Contents
    + diff --git a/docs/html/node104.html b/docs/html/node104.html index 2c8cd368b..6eda8e7e9 100644 --- a/docs/html/node104.html +++ b/docs/html/node104.html @@ -3,8 +3,8 @@ -psb_get_rank -- Get the MPI rank - +psb_info -- Return information about PSBLAS parallel environment + @@ -16,52 +16,51 @@ - +
    - next - + up - previous - contents
    - Next: psb_wtime Wall - Up: Parallel environment routines - Previous: psb_get_mpicomm Get -   Next: psb_exit Exit + Up: Parallel environment routines + Previous: psb_init Initializes +   Contents

    -

    -psb_get_rank -- Get the MPI rank +

    +psb_info -- Return information about PSBLAS parallel + environment 

    -call psb_get_rank(rank, icontxt, id)
+call psb_info(icontxt, iam, np)

    -This subroutine returns the MPI rank of the PSBLAS process $id$ +This subroutine returns information about the PSBLAS parallel environment, defining +a virtual parallel machine.

    Type:
    Asynchronous. @@ -81,22 +80,6 @@ Intent: in.
    Specified as: an integer variable.
    -
    id
    -
    Identifier of a process in the PSBLAS virtual parallel machine. -
    -Scope: local. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer value. -$0 \le id \le np-1$

    @@ -104,20 +87,58 @@ Specified as: an integer value. +$-1 \le iam \le np-1$ +

    np
    +
    Number of processes in the PSBLAS virtual parallel machine. +
    +Scope: global. +
    +Type: required. +
    +Intent: out. +
    +Specified as: an integer variable.
    +

    +Notes + +

      +
    1. For processes in the virtual parallel machine the identifier + will satisfy +$0 \le iam \le np-1$; +
      2. +
    2. If the user has requested on psb_init a number of + processes less than the total available in the parallel execution + environment, the remaining processes will have on return $iam=-1$; + the only call involving icontxt that any such process may + execute is to psb_exit. +
      3. +
    +


    diff --git a/docs/html/node105.html b/docs/html/node105.html index a93ed5422..a9efb2cb1 100644 --- a/docs/html/node105.html +++ b/docs/html/node105.html @@ -3,8 +3,8 @@ -psb_wtime -- Wall clock timing - +psb_exit -- Exit from PSBLAS parallel environment + @@ -16,66 +16,134 @@ - +
    - next - + up - previous - contents
    - Next: psb_barrier Sinchronization - Up: Parallel environment routines - Previous: psb_get_rank Get -   Next: psb_get_mpicomm Get + Up: Parallel environment routines + Previous: psb_info Return +   Contents

    -

    -psb_wtime -- Wall clock timing +

    +psb_exit -- Exit from PSBLAS parallel + environment 

    -time = psb_wtime()
+call psb_exit(icontxt)
+call psb_exit(icontxt,close)

    -This function returns a wall clock timer. The resolution of the timer -is dependent on the underlying parallel environment implementation. +This subroutine exits from the PSBLAS parallel virtual machine.

    Type:
    -
    Asynchronous. +
    Synchronous.
    -
    On Exit
    +
    On Entry
    -
    Function value
    -
    the elapsed time in seconds. +
    icontxt
    +
    the communication context identifying the virtual + parallel machine.
    -Returned as: a real(psb_dpk_) variable. +Scope: global. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer variable. +
    +
    close
    +
    Whether to close all data structures related to the + virtual parallel machine, besides those associated with icontxt. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: a logical variable, default value: true.

    -

    +Notes + +
      +
    1. This routine may be called even if a previous call to + psb_info has returned with $iam=-1$; indeed, it it is the only + routine that may be called with argument icontxt in this + situation. +
      2. +
    2. A call to this routine with close=.true. implies a call + to MPI_Finalize, after which no parallel routine may be called. +
      3. +
    3. If the user whishes to use multiple communication contexts in the + same program, or to enter and exit multiple times into the parallel + environment, this routine may be called to + selectively close the contexts with close=.false., while on + the last call it should be called with close=.true. to + shutdown in a clean way the entire parallel environment. +
      4. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_get_mpicomm Get + Up: Parallel environment routines + Previous: psb_info Return +   Contents
    + diff --git a/docs/html/node106.html b/docs/html/node106.html index 74bd3f515..047d0ff4f 100644 --- a/docs/html/node106.html +++ b/docs/html/node106.html @@ -3,8 +3,8 @@ -psb_barrier -- Sinchronization point parallel environment - +psb_get_mpicomm -- Get the MPI communicator + @@ -16,54 +16,52 @@ - +
    - next - + up - previous - contents
    - Next: psb_abort Abort - Up: Parallel environment routines - Previous: psb_wtime Wall -   Next: psb_get_rank Get + Up: Parallel environment routines + Previous: psb_exit Exit +   Contents

    -

    -psb_barrier -- Sinchronization point parallel - environment +

    +psb_get_mpicomm -- Get the MPI communicator 

    -call psb_barrier(icontxt)
+call psb_get_mpicomm(icontxt, icomm)

    -This subroutine acts as an explicit synchronization point for the PSBLAS -parallel virtual machine. +This subroutine returns the MPI communicator associated with a PSBLAS context

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    @@ -82,6 +80,22 @@ Specified as: an integer variable.
    +

    +

    +
    On Return
    +
    +
    +
    icomm
    +
    The MPI communicator associated with the PSBLAS virtual parallel machine. +
    +Scope: global. +
    +Type: required. +
    +Intent: out. +
    +
    +


    diff --git a/docs/html/node107.html b/docs/html/node107.html index 0f37acf31..a7b9c7202 100644 --- a/docs/html/node107.html +++ b/docs/html/node107.html @@ -3,8 +3,8 @@ -psb_abort -- Abort a computation - +psb_get_rank -- Get the MPI rank + @@ -16,49 +16,52 @@ - +
    - next - + up - previous - contents
    - Next: psb_bcast Broadcast - Up: Parallel environment routines - Previous: psb_barrier Sinchronization -   Next: psb_wtime Wall + Up: Parallel environment routines + Previous: psb_get_mpicomm Get +   Contents

    -

    -psb_abort -- Abort a computation +

    +psb_get_rank -- Get the MPI rank 

    -call psb_abort(icontxt)
+call psb_get_rank(rank, icontxt, id)

    -This subroutine aborts computation on the parallel virtual machine. +This subroutine returns the MPI rank of the PSBLAS process $id$

    Type:
    Asynchronous. @@ -78,6 +81,41 @@ Intent: in.
    Specified as: an integer variable.
    +
    id
    +
    Identifier of a process in the PSBLAS virtual parallel machine. +
    +Scope: local. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer value. +$0 \le id \le np-1$
    +
    + +

    +

    +
    On Return
    +
    +
    +
    rank
    +
    The MPI rank associated with the PSBLAS process $id$. +
    +Scope: local. +
    +Type: required. +
    +Intent: out. +

    diff --git a/docs/html/node108.html b/docs/html/node108.html index cada5b117..813dd87f9 100644 --- a/docs/html/node108.html +++ b/docs/html/node108.html @@ -3,8 +3,8 @@ -psb_bcast -- Broadcast data - +psb_wtime -- Wall clock timing + @@ -16,116 +16,61 @@ - +

    - next - + up - previous - contents
    - Next: psb_sum Global - Up: Parallel environment routines - Previous: psb_abort Abort -   Next: psb_barrier Sinchronization + Up: Parallel environment routines + Previous: psb_get_rank Get +   Contents

    -

    -psb_bcast -- Broadcast data +

    +psb_wtime -- Wall clock timing 

    -call psb_bcast(icontxt, dat, root)
+time = psb_wtime()

    -This subroutine implements a broadcast operation based on the -underlying communication library. +This function returns a wall clock timer. The resolution of the timer +is dependent on the underlying parallel environment implementation.

    Type:
    -
    Synchronous. +
    Asynchronous.
    -
    On Entry
    +
    On Exit
    -
    icontxt
    -
    the communication context identifying the virtual - parallel machine. +
    Function value
    +
    the elapsed time in seconds.
    -Scope: global. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer variable. -
    -
    dat
    -
    On the root process, the data to be broadcast. -
    -Scope: global. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical variable, -which may be a scalar or rank 1 array. Type, kind, rank and size must agree on all processes. -
    -
    root
    -
    Root process holding data to be broadcast. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an integer value -$0<= root <= np-1$, default 0
    -
    - -

    -

    -
    On Return
    -
    -
    -
    dat
    -
    On processes other than root, the data to be broadcast. -
    -Scope: global. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind, rank and size must agree on all processes. +Returned as: a real(psb_dpk_) variable.
    diff --git a/docs/html/node109.html b/docs/html/node109.html index c023b27af..e97259523 100644 --- a/docs/html/node109.html +++ b/docs/html/node109.html @@ -3,8 +3,8 @@ -psb_sum -- Global sum - +psb_barrier -- Sinchronization point parallel environment + @@ -16,50 +16,51 @@ - +
    - next - + up - previous - contents
    - Next: psb_max Global - Up: Parallel environment routines - Previous: psb_bcast Broadcast -   Next: psb_abort Abort + Up: Parallel environment routines + Previous: psb_wtime Wall +   Contents

    -

    -psb_sum -- Global sum +

    +psb_barrier -- Sinchronization point parallel + environment 

    -call psb_sum(icontxt, dat, root)
+call psb_barrier(icontxt)

    -This subroutine implements a sum reduction operation based on the -underlying communication library. +This subroutine acts as an explicit synchronization point for the PSBLAS +parallel virtual machine.

    Type:
    Synchronous. @@ -79,99 +80,10 @@ Intent: in.
    Specified as: an integer variable.
    -
    dat
    -
    The local contribution to the global sum. -
    -Scope: global. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
    -
    root
    -
    Process to hold the final sum, or $-1$ to make it available - on all processes. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an integer value -$-1<= root <= np-1$, default -1.

    -

    -
    On Return
    -
    -
    -
    dat
    -
    On destination process(es), the result of the sum operation. -
    -Scope: global. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. -
    -Type, kind, rank and size must agree on all processes. -
    -
    - -

    -Notes - -

      -
    1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
      2. -
    2. The dat argument may also be a long integer scalar. -
      3. -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_max Global - Up: Parallel environment routines - Previous: psb_bcast Broadcast -   Contents
    - +
    diff --git a/docs/html/node11.html b/docs/html/node11.html index c3adba33d..4952cd9bd 100644 --- a/docs/html/node11.html +++ b/docs/html/node11.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_local_rows Get - Up: Up: Descriptor data structure - Previous: Previous: Descriptor data structure -   Contents

    diff --git a/docs/html/node110.html b/docs/html/node110.html index 06883b02c..df63b41ce 100644 --- a/docs/html/node110.html +++ b/docs/html/node110.html @@ -3,8 +3,8 @@ -psb_max -- Global maximum - +psb_abort -- Abort a computation + @@ -16,53 +16,52 @@ - +
    - next - + up - previous - contents
    - Next: psb_min Global - Up: Parallel environment routines - Previous: psb_sum Global -   Next: psb_bcast Broadcast + Up: Parallel environment routines + Previous: psb_barrier Sinchronization +   Contents

    -

    -psb_max -- Global maximum +

    +psb_abort -- Abort a computation 

    -call psb_max(icontxt, dat, root)
+call psb_abort(icontxt)

    -This subroutine implements a maximum valuereduction -operation based on the underlying communication library. +This subroutine aborts computation on the parallel virtual machine.

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    @@ -79,98 +78,10 @@ Intent: in.
    Specified as: an integer variable.
    -
    dat
    -
    The local contribution to the global maximum. -
    -Scope: local. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
    -
    root
    -
    Process to hold the final maximum, or $-1$ to make it available - on all processes. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an integer value -$-1<= root <= np-1$, default -1. -

    -

    -
    On Return
    -
    -
    -
    dat
    -
    On destination process(es), the result of the maximum operation. -
    -Scope: global. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
    -
    - -

    -Notes - -

      -
    1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
      2. -
    2. The dat argument may also be a long integer scalar. -
      3. -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_min Global - Up: Parallel environment routines - Previous: psb_sum Global -   Contents
    - +
    diff --git a/docs/html/node111.html b/docs/html/node111.html index 76e40bd5a..febe6db20 100644 --- a/docs/html/node111.html +++ b/docs/html/node111.html @@ -3,8 +3,8 @@ -psb_min -- Global minimum - +psb_bcast -- Broadcast data + @@ -16,50 +16,50 @@ - +
    - next - + up - previous - contents
    - Next: psb_amx Global - Up: Parallel environment routines - Previous: psb_max Global -   Next: psb_sum Global + Up: Parallel environment routines + Previous: psb_abort Abort +   Contents

    -

    -psb_min -- Global minimum +

    +psb_bcast -- Broadcast data 

    -call psb_min(icontxt, dat, root)
+call psb_bcast(icontxt, dat, root)

    -This subroutine implements a minimum value reduction -operation based on the underlying communication library. +This subroutine implements a broadcast operation based on the +underlying communication library.

    Type:
    Synchronous. @@ -80,23 +80,20 @@ Intent: in. Specified as: an integer variable.
    dat
    -
    The local contribution to the global minimum. +
    On the root process, the data to be broadcast.
    -Scope: local. +Scope: global.
    Type: required.
    Intent: inout.
    -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. +Specified as: an integer, real or complex variable, which may be a +scalar, or a rank 1 or 2 array, or a character or logical variable, +which may be a scalar or rank 1 array. Type, kind, rank and size must agree on all processes.
    root
    -
    Process to hold the final value, or $-1$ to make it available - on all processes. +
    Root process holding data to be broadcast.
    Scope: global.
    @@ -105,13 +102,12 @@ Type: optional. Intent: in.
    Specified as: an integer value $-1<= root <= np-1$, default -1. -
    + WIDTH="153" HEIGHT="29" ALIGN="MIDDLE" BORDER="0" + SRC="img146.png" + ALT="$0<= root <= np-1$">, default 0

    @@ -120,7 +116,7 @@ Specified as: an integer value - -next - -up - -previous - -contents -
    - Next: psb_amx Global - Up: Parallel environment routines - Previous: psb_max Global -   Contents - +

    diff --git a/docs/html/node112.html b/docs/html/node112.html index 36e57ef87..7038a6b64 100644 --- a/docs/html/node112.html +++ b/docs/html/node112.html @@ -3,8 +3,8 @@ -psb_amx -- Global maximum absolute value - +psb_sum -- Global sum + @@ -16,50 +16,50 @@ - +
    - next - + up - previous - contents
    - Next: psb_amn Global - Up: Parallel environment routines - Previous: psb_min Global -   Next: psb_max Global + Up: Parallel environment routines + Previous: psb_bcast Broadcast +   Contents

    -

    -psb_amx -- Global maximum absolute value +

    +psb_sum -- Global sum 

    -call psb_amx(icontxt, dat, root)
+call psb_sum(icontxt, dat, root)

    -This subroutine implements a maximum absolute value reduction -operation based on the underlying communication library. +This subroutine implements a sum reduction operation based on the +underlying communication library.

    Type:
    Synchronous. @@ -80,9 +80,9 @@ Intent: in. Specified as: an integer variable.
    dat
    -
    The local contribution to the global maximum. +
    The local contribution to the global sum.
    -Scope: local. +Scope: global.
    Type: required.
    @@ -92,9 +92,9 @@ Specified as: an integer, real or complex variable, which may be a scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes.
    root
    -
    Process to hold the final value, or Process to hold the final sum, or $-1$ to make it available on all processes.
    @@ -108,10 +108,9 @@ Specified as: an integer value $-1<= root <= np-1$, default -1. -
    + WIDTH="165" HEIGHT="29" ALIGN="MIDDLE" BORDER="0" + SRC="img147.png" + ALT="$-1<= root <= np-1$">, default -1.

    @@ -120,7 +119,7 @@ Specified as: an integer value - next - + up - previous - contents
    - Next: psb_amn Global - Up: Parallel environment routines - Previous: psb_min Global -   Next: psb_max Global + Up: Parallel environment routines + Previous: psb_bcast Broadcast +   Contents diff --git a/docs/html/node113.html b/docs/html/node113.html index 587b7431d..f1e003d07 100644 --- a/docs/html/node113.html +++ b/docs/html/node113.html @@ -3,8 +3,8 @@ -psb_amn -- Global minimum absolute value - +psb_max -- Global maximum + @@ -16,49 +16,49 @@ - +

    - next - + up - previous - contents
    - Next: psb_nrm2 Global - Up: Parallel environment routines - Previous: psb_amx Global -   Next: psb_min Global + Up: Parallel environment routines + Previous: psb_sum Global +   Contents

    -

    -psb_amn -- Global minimum absolute value +

    +psb_max -- Global maximum 

    -call psb_amn(icontxt, dat, root)
+call psb_max(icontxt, dat, root)

    -This subroutine implements a minimum absolute value reduction +This subroutine implements a maximum valuereduction operation based on the underlying communication library.

    Type:
    @@ -80,7 +80,7 @@ Intent: in. Specified as: an integer variable.
    dat
    -
    The local contribution to the global minimum. +
    The local contribution to the global maximum.
    Scope: local.
    @@ -88,13 +88,13 @@ Type: required.
    Intent: inout.
    -Specified as: an integer, real or complex variable, which may be a +Specified as: an integer or real variable, which may be a scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes.
    root
    -
    Process to hold the final value, or Process to hold the final maximum, or $-1$ to make it available on all processes.
    @@ -108,8 +108,8 @@ Specified as: an integer value $-1<= root <= np-1$, default -1.
    @@ -120,18 +120,16 @@ Specified as: an integer value - next - + up - previous - contents
    - Next: psb_nrm2 Global - Up: Parallel environment routines - Previous: psb_amx Global -   Next: psb_min Global + Up: Parallel environment routines + Previous: psb_sum Global +   Contents diff --git a/docs/html/node114.html b/docs/html/node114.html index 0f1bd1841..15ca157e8 100644 --- a/docs/html/node114.html +++ b/docs/html/node114.html @@ -3,8 +3,8 @@ -psb_nrm2 -- Global 2-norm reduction - +psb_min -- Global minimum + @@ -16,49 +16,49 @@ - +
    - next - + up - previous - contents
    - Next: psb_snd Send - Up: Parallel environment routines - Previous: psb_amn Global -   Next: psb_amx Global + Up: Parallel environment routines + Previous: psb_max Global +   Contents

    -

    -psb_nrm2 -- Global 2-norm reduction +

    +psb_min -- Global minimum 

    -call psb_nrm2(icontxt, dat, root)
+call psb_min(icontxt, dat, root)

    -This subroutine implements a 2-norm value reduction +This subroutine implements a minimum value reduction operation based on the underlying communication library.

    Type:
    @@ -88,13 +88,13 @@ Type: required.
    Intent: inout.
    -Specified as: a real variable, which may be a -scalar, or a rank 1 array. Kind, rank and size must agree on all processes. +Specified as: an integer or real variable, which may be a +scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes.
    root
    Process to hold the final value, or $-1$ to make it available on all processes.
    @@ -108,8 +108,8 @@ Specified as: an integer value $-1<= root <= np-1$, default -1.
    @@ -120,7 +120,7 @@ Specified as: an integer value - -\begin{displaymath}res = \sqrt{\sum_i dat_i^2},\end{displaymath} - -
    -

    -with care taken to avoid unnecessary overflow. -
  • The dat argument is both input and output, and its value may be changed even on processes different from the final result destination.
    • +
  • The dat argument may also be a long integer scalar. +

    • - next - + up - previous - contents
    - Next: psb_snd Send - Up: Parallel environment routines - Previous: psb_amn Global -   Next: psb_amx Global + Up: Parallel environment routines + Previous: psb_max Global +   Contents
    diff --git a/docs/html/node115.html b/docs/html/node115.html index 2da350d64..afa24b62e 100644 --- a/docs/html/node115.html +++ b/docs/html/node115.html @@ -3,8 +3,8 @@ -psb_snd -- Send data - +psb_amx -- Global maximum absolute value + @@ -16,52 +16,53 @@ - +
    - next - + up - previous - contents
    - Next: psb_rcv Receive - Up: Parallel environment routines - Previous: psb_nrm2 Global -   Next: psb_amn Global + Up: Parallel environment routines + Previous: psb_min Global +   Contents

    -

    -psb_snd -- Send data +

    +psb_amx -- Global maximum absolute value 

    -call psb_snd(icontxt, dat, dst, m)
+call psb_amx(icontxt, dat, root)

    -This subroutine sends a packet of data to a destination. +This subroutine implements a maximum absolute value reduction +operation based on the underlying communication library.

    Type:
    -
    Synchronous: see usage notes. +
    Synchronous.
    On Entry
    @@ -79,65 +80,38 @@ Intent: in. Specified as: an integer variable.
    dat
    -
    The data to be sent. +
    The local contribution to the global maximum.
    Scope: local.
    Type: required.
    -Intent: in. +Intent: inout.
    Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is -not specified, size must agree as well. +scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes.
    -
    dst
    -
    Destination process. +
    root
    +
    Process to hold the final value, or $-1$ to make it available + on all processes.
    Scope: global.
    -Type: required. +Type: optional.
    Intent: in.
    Specified as: an integer value $0<= dst <= np-1$. -
    -
    m
    -
    Number of rows. -
    -Scope: global. -
    -Type: Optional. -
    -Intent: in. -
    -Specified as: an integer value -$0<= m <= size(dat,1)$. -
    -When $dat$ is a rank 2 array, specifies the number of rows to be sent -independently of the leading dimension $size(dat,1)$; must have the -same value on sending and receiving processes. -
    + ALT="$-1<= root <= np-1$">, default -1. +

    @@ -145,17 +119,29 @@ same value on sending and receiving processes.

    On Return
    +
    dat
    +
    On destination process(es), the result of the maximum operation. +
    +Scope: global. +
    +Type: required. +
    +Intent: inout. +
    +Specified as: an integer, real or complex variable, which may be a +scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. +

    Notes

      -
    1. This subroutine implies a synchronization, but only between the - calling process and the destination process $dst$. +
    2. The dat argument is both input and output, and its + value may be changed even on processes different from the final + result destination. +
      3. +
    3. The dat argument may also be a long integer scalar.
    @@ -163,26 +149,26 @@ same value on sending and receiving processes.
    - next - + up - previous - contents
    - Next: psb_rcv Receive - Up: Parallel environment routines - Previous: psb_nrm2 Global -   Next: psb_amn Global + Up: Parallel environment routines + Previous: psb_min Global +   Contents
    diff --git a/docs/html/node116.html b/docs/html/node116.html index 6f0eaa1e7..6ed398342 100644 --- a/docs/html/node116.html +++ b/docs/html/node116.html @@ -3,8 +3,8 @@ -psb_rcv -- Receive data - +psb_amn -- Global minimum absolute value + @@ -14,53 +14,55 @@ + - +
    - next - + up - previous - contents
    - Next: Error handling - Up: Parallel environment routines - Previous: psb_snd Send -   Next: psb_nrm2 Global + Up: Parallel environment routines + Previous: psb_amx Global +   Contents

    -

    -psb_rcv -- Receive data +

    +psb_amn -- Global minimum absolute value 

    -call psb_rcv(icontxt, dat, src, m)
+call psb_amn(icontxt, dat, root)

    -This subroutine receives a packet of data to a destination. +This subroutine implements a minimum absolute value reduction +operation based on the underlying communication library.

    Type:
    -
    Synchronous: see usage notes. +
    Synchronous.
    On Entry
    @@ -77,59 +79,8 @@ Intent: in.
    Specified as: an integer variable.
    -
    src
    -
    Source process. -
    -Scope: global. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer value -$0<= src <= np-1$. -
    -
    m
    -
    Number of rows. -
    -Scope: global. -
    -Type: Optional. -
    -Intent: in. -
    -Specified as: an integer value -$0<= m <= size(dat,1)$. -
    -When $dat$ is a rank 2 array, specifies the number of rows to be sent -independently of the leading dimension $size(dat,1)$; must have the -same value on sending and receiving processes. -
    -
    - -

    -

    -
    On Return
    -
    -
    dat
    -
    The data to be received. +
    The local contribution to the global minimum.
    Scope: local.
    @@ -138,11 +89,49 @@ Type: required. Intent: inout.
    Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is -not specified, size must agree as well. +scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. +
    +
    root
    +
    Process to hold the final value, or $-1$ to make it available + on all processes. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer value +$-1<= root <= np-1$, default -1. +
    +
    + +

    +

    +
    On Return
    +
    +
    +
    dat
    +
    On destination process(es), the result of the minimum operation. +
    +Scope: global. +
    +Type: required. +
    +Intent: inout. +
    +Specified as: an integer, real or complex variable, which may be a +scalar, or a rank 1 or 2 array. +
    +Type, kind, rank and size must agree on all processes.
    @@ -150,11 +139,11 @@ not specified, size must agree as well. Notes
      -
    1. This subroutine implies a synchronization, but only between the - calling process and the source process $src$. +
    2. The dat argument is both input and output, and its + value may be changed even on processes different from the final + result destination. +
      3. +
    3. The dat argument may also be a long integer scalar.
    @@ -162,26 +151,26 @@ not specified, size must agree as well.
    - next - + up - previous - contents
    - Next: Error handling - Up: Parallel environment routines - Previous: psb_snd Send -   Next: psb_nrm2 Global + Up: Parallel environment routines + Previous: psb_amx Global +   Contents
    diff --git a/docs/html/node117.html b/docs/html/node117.html index 3f350078a..765c68358 100644 --- a/docs/html/node117.html +++ b/docs/html/node117.html @@ -3,8 +3,8 @@ -Error handling - +psb_nrm2 -- Global 2-norm reduction + @@ -15,326 +15,194 @@ - - + +
    - next - + up - previous - contents
    - Next: Utilities - Up: userhtml - Previous: psb_rcv Receive -   Next: psb_snd Send + Up: Parallel environment routines + Previous: psb_amn Global +   Contents

    -

    -Error handling -

    +

    +psb_nrm2 -- Global 2-norm reduction +

    -The PSBLAS library error handling policy has been completely rewritten -in version 2.0. The idea behind the design of this new error handling -strategy is to keep error messages on a stack allowing the user to -trace back up to the point where the first error message has been -generated. Every routine in the PSBLAS-2.0 library has, as last -non-optional argument, an integer info variable; whenever, -inside the routine, an error is detected, this variable is set to a -value corresponding to a specific error code. Then this error code is -also pushed on the error stack and then either control is returned to -the caller routine or the execution is aborted, depending on the users -choice. At the time when the execution is aborted, an error message is -printed on standard output with a level of verbosity than can be -chosen by the user. If the execution is not aborted, then, the caller -routine checks the value returned in the info variable and, if -not zero, an error condition is raised. This process continues on all the -levels of nested calls until the level where the user decides to abort -the program execution. - -

    -Figure 9 shows the layout of a generic psb_foo -routine with respect to the PSBLAS-2.0 error handling policy. It is -possible to see how, whenever an error condition is detected, the -info variable is set to the corresponding error code which is, -then, pushed on top of the stack by means of the -psb_errpush. An error condition may be directly detected inside -a routine or indirectly checking the error code returned returned by a -called routine. Whenever an error is encountered, after it has been -pushed on stack, the program execution skips to a point where the -error condition is handled; the error condition is handled either by -returning control to the caller routine or by calling the -psb\_error routine which prints the content of the error stack -and aborts the program execution, according to the choice made by the -user with psb_set_erraction. The default is to print the error -and terminate the program, but the user may choose to handle the error -explicitly. - -

    - -

    - - - -
    Figure 9: -The layout of a generic psb_foo - routine with respect to PSBLAS-2.0 error handling policy.
    -
    - -
    - -\fbox{\TheSbox} -
    -
    - -

    -Figure 10 reports a sample error message generated by -the PSBLAS-2.0 library. This error has been generated by the fact that -the user has chosen the invalid “FOO” storage format to represent -the sparse matrix. From this error message it is possible to see that -the error has been detected inside the psb_cest subroutine -called by psb_spasb ... by process 0 (i.e. the root process). - -

    - -

    - - - -
    Figure 10: -A sample PSBLAS-2.0 error - message. Process 0 detected an error condition inside the psb_cest subroutine
    -
    - -
    - -\fbox{\TheSbox} -
    -
    - -

    -ifstarsubroutinesubroutinepsb_errpushPushes an error code onto the error - stack - -

    -
    -\begin{lstlisting} -call psb_errpush(err_c, r_name, i_err, a_err) -\end{lstlisting} -
    +

    +call psb_nrm2(icontxt, dat, root)
+

    +This subroutine implements a 2-norm value reduction +operation based on the underlying communication library.

    Type:
    -
    Asynchronous. +
    Synchronous.
    -
    On Entry
    -
    -
    -
    err_c
    -
    the error code -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: an integer. -
    -
    r_name
    -
    the soutine where the error has been caught. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a string. -
    -
    i_err
    -
    addional info for error code -
    -Scope: local -
    -Type: optional -
    -Specified as: an integer array -
    -
    a_err
    -
    addional info for error code -
    -Scope: local -
    -Type: optional -
    -Specified as: a string. -
    -
    - -

    -ifstarsubroutinesubroutinepsb_errorPrints the error stack content and aborts - execution - -

    -
    -\begin{lstlisting} -call psb_error(icontxt) -\end{lstlisting} -
    - -

    -

    -
    Type:
    -
    Asynchronous. -
    -
    On Entry
    +
    On Entry
    icontxt
    -
    the communication context. +
    the communication context identifying the virtual + parallel machine.
    -Scope: global +Scope: global.
    -Type: optional +Type: required.
    Intent: in.
    -Specified as: an integer. +Specified as: an integer variable.
    +
    dat
    +
    The local contribution to the global minimum. +
    +Scope: local. +
    +Type: required. +
    +Intent: inout. +
    +Specified as: a real variable, which may be a +scalar, or a rank 1 array. Kind, rank and size must agree on all processes. +
    +
    root
    +
    Process to hold the final value, or $-1$ to make it available + on all processes. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer value +$-1<= root <= np-1$, default -1. +
    -

    -ifstarsubroutinesubroutinepsb_set_errverbositySets the verbosity of error - messages. - -

    -
    -\begin{lstlisting} -call psb_set_errverbosity(v) -\end{lstlisting} -
    -

    -
    Type:
    -
    Asynchronous. -
    -
    On Entry
    +
    On Return
    -
    v
    -
    the verbosity level +
    dat
    +
    On destination process(es), the result of the 2-norm reduction.
    -Scope: global +Scope: global.
    -Type: required +Type: required.
    -Intent: in. +Intent: inout.
    -Specified as: an integer. +Specified as: a real variable, which may be a +scalar, or a rank 1 array. +
    +Kind, rank and size must agree on all processes.

    -ifstarsubroutinesubroutinepsb_set_erractionSet the type of action to be - taken upon error condition. +Notes + +

      +
    1. This reduction is appropriate to compute the results of multiple + (local) NRM2 operations at the same time. +
      2. +
    2. Denoting by $dat_i$ the value of the variable $dat$ on process + $i$, the output $res$ is equivalent to the computation of +

      +
      + -

      -
      \begin{lstlisting} -call psb_set_erraction(err_act) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      err_act
      -
      the type of action. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: an integer. Possible values: psb_act_ret, -psb_act_abort. -
      -
      + WIDTH="119" HEIGHT="55" BORDER="0" + SRC="img150.png" + ALT="\begin{displaymath}res = \sqrt{\sum_i dat_i^2},\end{displaymath}"> +
      +
      +

      +with care taken to avoid unnecessary overflow. +
      3. +
    3. The dat argument is both input and output, and its + value may be changed even on processes different from the final + result destination. +
      4. +

    - next - + up - previous - contents
    - Next: Utilities - Up: userhtml - Previous: psb_rcv Receive -   Next: psb_snd Send + Up: Parallel environment routines + Previous: psb_amn Global +   Contents
    diff --git a/docs/html/node118.html b/docs/html/node118.html index 9e19b0097..43baeea3b 100644 --- a/docs/html/node118.html +++ b/docs/html/node118.html @@ -3,8 +3,8 @@ -Utilities - +psb_snd -- Send data + @@ -14,78 +14,177 @@ - + - +
    - next - + up - previous - contents
    - Next: hb_read Read - Up: userhtml - Previous: Error handling -   Next: psb_rcv Receive + Up: Parallel environment routines + Previous: psb_nrm2 Global +   Contents

    -

    - +

    +psb_snd -- Send data +

    + +

    +

    +call psb_snd(icontxt, dat, dst, m)
+
    + +

    +This subroutine sends a packet of data to a destination. +

    +
    Type:
    +
    Synchronous: see usage notes. +
    +
    On Entry
    +
    +
    +
    icontxt
    +
    the communication context identifying the virtual + parallel machine.
    -Utilities - +Scope: global. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer variable. +
    +
    dat
    +
    The data to be sent. +
    +Scope: local. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer, real or complex variable, which may be a +scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is +not specified, size must agree as well. +
    +
    dst
    +
    Destination process. +
    +Scope: global. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer value +$0<= dst <= np-1$. +
    +
    m
    +
    Number of rows. +
    +Scope: global. +
    +Type: Optional. +
    +Intent: in. +
    +Specified as: an integer value +$0<= m <= size(dat,1)$. +
    +When $dat$ is a rank 2 array, specifies the number of rows to be sent +independently of the leading dimension $size(dat,1)$; must have the +same value on sending and receiving processes. +
    +

    -We have some utilities available for input and output of -sparse matrices; the interfaces to these routines are available in the -module psb_util_mod. +

    +
    On Return
    +
    +
    +

    -

    - -Subsections +Notes - - -
    +
      +
    1. This subroutine implies a synchronization, but only between the + calling process and the destination process $dst$. +
      2. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_rcv Receive + Up: Parallel environment routines + Previous: psb_nrm2 Global +   Contents
    + diff --git a/docs/html/node119.html b/docs/html/node119.html index 31f1fbaf5..2d94be946 100644 --- a/docs/html/node119.html +++ b/docs/html/node119.html @@ -3,8 +3,8 @@ -hb_read -- Read a sparse matrix from a file in the Harwell-Boeing format - +psb_rcv -- Receive data + @@ -14,78 +14,112 @@ - - +
    - next - + up - previous - contents
    - Next: hb_write Write - Up: Utilities - Previous: Utilities -   Next: Error handling + Up: Parallel environment routines + Previous: psb_snd Send +   Contents

    -

    - hb_read -- Read a sparse matrix from a file in the - Harwell-Boeing format +

    +psb_rcv -- Receive data

    -
    -\begin{lstlisting} -call hb_read(a, iret, iunit, filename, b, mtitle) -\end{lstlisting} -
    +

    +call psb_rcv(icontxt, dat, src, m)
+

    +This subroutine receives a packet of data to a destination.

    Type:
    -
    Asynchronous. +
    Synchronous: see usage notes.
    On Entry
    -
    filename
    -
    The name of the file to be read. +
    icontxt
    +
    the communication context identifying the virtual + parallel machine.
    -Type:optional. +Scope: global.
    -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. +Type: required. +
    +Intent: in. +
    +Specified as: an integer variable.
    -
    iunit
    -
    The Fortran file unit number. +
    src
    +
    Source process.
    -Type:optional. +Scope: global.
    -Specified as: an integer value. Only meaningful if filename is not -. +Type: required. +
    +Intent: in. +
    +Specified as: an integer value +$0<= src <= np-1$. +
    +
    m
    +
    Number of rows. +
    +Scope: global. +
    +Type: Optional. +
    +Intent: in. +
    +Specified as: an integer value +$0<= m <= size(dat,1)$. +
    +When $dat$ is a rank 2 array, specifies the number of rows to be sent +independently of the leading dimension $size(dat,1)$; must have the +same value on sending and receiving processes.
    @@ -94,64 +128,60 @@ Specified as: an integer value. Only meaningful if filename is not -On Return
    -
    a
    -
    the sparse matrix read from file. +
    dat
    +
    The data to be received.
    -Type:required. +Scope: local.
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    -
    b
    -
    Rigth hand side(s). +Type: required.
    -Type: Optional +Intent: inout.
    -An array of type real or complex, rank 2 and having the ALLOCATABLE -attribute; will be allocated and filled in if the input file contains -a right hand side, otherwise will be left in the UNALLOCATED state. -
    -
    mtitle
    -
    Matrix title. -
    -Type: Optional -
    -A charachter variable of length 72 holding a copy of the -matrix title as specified by the Harwell-Boeing format and contained -in the input file. -
    -
    iret
    -
    Error code. -
    -Type: required -
    -An integer value; 0 means no error has been detected. +Specified as: an integer, real or complex variable, which may be a +scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is +not specified, size must agree as well.
    +

    +Notes + +

      +
    1. This subroutine implies a synchronization, but only between the + calling process and the source process $src$. +
      2. +
    +

    - next - + up - previous - contents
    - Next: hb_write Write - Up: Utilities - Previous: Utilities -   Next: Error handling + Up: Parallel environment routines + Previous: psb_snd Send +   Contents
    diff --git a/docs/html/node12.html b/docs/html/node12.html index 165f326db..019a46a12 100644 --- a/docs/html/node12.html +++ b/docs/html/node12.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_local_cols Get - Up: Up: Descriptor data structure - Previous: Previous: Descriptor Methods -   Contents

    @@ -84,7 +84,7 @@ Scope: local. $|{\cal I}_i| + |{\cal B}_i|$ --> $\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$. The returned value is specific to the calling process. diff --git a/docs/html/node120.html b/docs/html/node120.html index 11e1a5b6c..21a186b79 100644 --- a/docs/html/node120.html +++ b/docs/html/node120.html @@ -3,8 +3,8 @@ -hb_write -- Write a sparse matrix to a file in the Harwell-Boeing format - +Error handling + @@ -15,51 +15,143 @@ - - + +
    - next - + up - previous - contents
    - Next: mm_mat_read Read - Up: Utilities - Previous: hb_read Read -   Next: Utilities + Up: userhtml + Previous: psb_rcv Receive +   Contents

    -

    -hb_write -- Write a sparse matrix to a file - in the Harwell-Boeing format -

    +

    +Error handling +

    + +

    +The PSBLAS library error handling policy has been completely rewritten +in version 2.0. The idea behind the design of this new error handling +strategy is to keep error messages on a stack allowing the user to +trace back up to the point where the first error message has been +generated. Every routine in the PSBLAS-2.0 library has, as last +non-optional argument, an integer info variable; whenever, +inside the routine, an error is detected, this variable is set to a +value corresponding to a specific error code. Then this error code is +also pushed on the error stack and then either control is returned to +the caller routine or the execution is aborted, depending on the users +choice. At the time when the execution is aborted, an error message is +printed on standard output with a level of verbosity than can be +chosen by the user. If the execution is not aborted, then, the caller +routine checks the value returned in the info variable and, if +not zero, an error condition is raised. This process continues on all the +levels of nested calls until the level where the user decides to abort +the program execution. + +

    +Figure 9 shows the layout of a generic psb_foo +routine with respect to the PSBLAS-2.0 error handling policy. It is +possible to see how, whenever an error condition is detected, the +info variable is set to the corresponding error code which is, +then, pushed on top of the stack by means of the +psb_errpush. An error condition may be directly detected inside +a routine or indirectly checking the error code returned returned by a +called routine. Whenever an error is encountered, after it has been +pushed on stack, the program execution skips to a point where the +error condition is handled; the error condition is handled either by +returning control to the caller routine or by calling the +psb\_error routine which prints the content of the error stack +and aborts the program execution, according to the choice made by the +user with psb_set_erraction. The default is to print the error +and terminate the program, but the user may choose to handle the error +explicitly. + +

    + +

    + + + +
    Figure 9: +The layout of a generic psb_foo + routine with respect to PSBLAS-2.0 error handling policy.
    +
    + +
    + +\fbox{\TheSbox} +
    +
    + +

    +Figure 10 reports a sample error message generated by +the PSBLAS-2.0 library. This error has been generated by the fact that +the user has chosen the invalid “FOO” storage format to represent +the sparse matrix. From this error message it is possible to see that +the error has been detected inside the psb_cest subroutine +called by psb_spasb ... by process 0 (i.e. the root process). + +

    + +

    + + + +
    Figure 10: +A sample PSBLAS-2.0 error + message. Process 0 detected an error condition inside the psb_cest subroutine
    +
    + +
    + +\fbox{\TheSbox} +
    +
    + +

    +ifstarsubroutinesubroutinepsb_errpushPushes an error code onto the error + stack


    \begin{lstlisting} -call hb_write(a, iret, iunit, filename, key, rhs, mtitle) +call psb_errpush(err_c, r_name, i_err, a_err) \end{lstlisting}
    @@ -68,72 +160,154 @@ call hb_write(a, iret, iunit, filename, key, rhs, mtitle)

    Type:
    Asynchronous.
    -
    On Entry
    +
    On Entry
    -
    a
    -
    the sparse matrix to be written. +
    err_c
    +
    the error code
    -Type:required. +Scope: local
    -Specified as: a structured data of type spdatapsb_Tspmat_type. +Type: required +
    +Intent: in. +
    +Specified as: an integer.
    -
    b
    -
    Rigth hand side. +
    r_name
    +
    the soutine where the error has been caught.
    -Type: Optional +Scope: local
    -An array of type real or complex, rank 1 and having the ALLOCATABLE -attribute; will be allocated and filled in if the input file contains -a right hand side. +Type: required +
    +Intent: in. +
    +Specified as: a string. +
    +
    i_err
    +
    addional info for error code +
    +Scope: local +
    +Type: optional +
    +Specified as: an integer array +
    +
    a_err
    +
    addional info for error code +
    +Scope: local +
    +Type: optional +
    +Specified as: a string. +
    + + +

    +ifstarsubroutinesubroutinepsb_errorPrints the error stack content and aborts + execution + +

    +
    +\begin{lstlisting} +call psb_error(icontxt) +\end{lstlisting} +
    + +

    +

    +
    Type:
    +
    Asynchronous.
    -
    filename
    -
    The name of the file to be written to. -
    -Type:optional. -
    -Specified as: a character variable containing a valid file name, or --, in which case the default output unit 6 (i.e. standard output -in Unix jargon) is used. Default: -. +
    On Entry
    +
    -
    iunit
    -
    The Fortran file unit number. +
    icontxt
    +
    the communication context.
    -Type:optional. +Scope: global
    -Specified as: an integer value. Only meaningful if filename is not -. -
    -
    key
    -
    Matrix key. +Type: optional
    -Type: Optional +Intent: in.
    -A charachter variable of length 8 holding the -matrix key as specified by the Harwell-Boeing format and to be -written to file. -
    -
    mtitle
    -
    Matrix title. -
    -Type: Optional -
    -A charachter variable of length 72 holding the -matrix title as specified by the Harwell-Boeing format and to be -written to file. +Specified as: an integer.
    +

    +ifstarsubroutinesubroutinepsb_set_errverbositySets the verbosity of error + messages. + +

    +
    +\begin{lstlisting} +call psb_set_errverbosity(v) +\end{lstlisting} +
    +

    -
    On Return
    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    -
    iret
    -
    Error code. +
    v
    +
    the verbosity level
    -Type: required +Scope: global
    -An integer value; 0 means no error has been detected. +Type: required +
    +Intent: in. +
    +Specified as: an integer. +
    +
    + +

    +ifstarsubroutinesubroutinepsb_set_erractionSet the type of action to be + taken upon error condition. + +

    +
    +\begin{lstlisting} +call psb_set_erraction(err_act) +\end{lstlisting} +
    + +

    +

    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    +
    +
    +
    err_act
    +
    the type of action. +
    +Scope: global +
    +Type: required +
    +Intent: in. +
    +Specified as: an integer. Possible values: psb_act_ret, +psb_act_abort.
    @@ -141,26 +315,26 @@ An integer value; 0 means no error has been detected.
    - next - + up - previous - contents
    - Next: mm_mat_read Read - Up: Utilities - Previous: hb_read Read -   Next: Utilities + Up: userhtml + Previous: psb_rcv Receive +   Contents
    diff --git a/docs/html/node121.html b/docs/html/node121.html index 2854dbbec..384e43c76 100644 --- a/docs/html/node121.html +++ b/docs/html/node121.html @@ -3,8 +3,8 @@ -mm_mat_read -- Read a sparse matrix from a file in the MatrixMarket format - +Utilities + @@ -14,103 +14,77 @@ - + - +
    - next - + up - previous - contents
    - Next: mm_array_read Read - Up: Utilities - Previous: hb_write Write -   Next: hb_read Read + Up: userhtml + Previous: Error handling +   Contents

    -

    -mm_mat_read -- Read a sparse matrix from a +

    + +
    +Utilities +

    + +

    +We have some utilities available for input and output of +sparse matrices; the interfaces to these routines are available in the +module psb_util_mod. + +

    +

    + +Subsections + +

    - -

    -
    -\begin{lstlisting} -call mm_mat_read(a, iret, iunit, filename) -\end{lstlisting} -
    - -

    -

    -
    Type:
    -
    Asynchronous. -
    -
    On Entry
    -
    -
    -
    filename
    -
    The name of the file to be read. -
    -Type:optional. -
    -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. -
    -
    iunit
    -
    The Fortran file unit number. -
    -Type:optional. -
    -Specified as: an integer value. Only meaningful if filename is not -. -
    -
    - -

    -

    -
    On Return
    -
    -
    -
    a
    -
    the sparse matrix read from file. -
    -Type:required. -
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    -
    iret
    -
    Error code. -
    -Type: required -
    -An integer value; 0 means no error has been detected. -
    -
    - -

    +

  • mm_array_read -- Read a dense array from a + file in the MatrixMarket format +
  • mm_mat_write -- Write a sparse matrix to a + file in the MatrixMarket format +
  • mm_array_write -- Write a dense array from a + file in the MatrixMarket format + +
    diff --git a/docs/html/node122.html b/docs/html/node122.html index 5a57cd340..b3438b339 100644 --- a/docs/html/node122.html +++ b/docs/html/node122.html @@ -3,8 +3,8 @@ -mm_array_read -- Read a dense array from a file in the MatrixMarket format - +hb_read -- Read a sparse matrix from a file in the Harwell-Boeing format + @@ -16,50 +16,50 @@ - +
    - next - + up - previous - contents
    - Next: mm_mat_write Write - Up: Utilities - Previous: mm_mat_read Read -   Next: hb_write Write + Up: Utilities + Previous: Utilities +   Contents

    -

    -mm_array_read -- Read a dense array from a - file in the MatrixMarket format +

    + hb_read -- Read a sparse matrix from a file in the + Harwell-Boeing format


    \begin{lstlisting} -call mm_array_read(b, iret, iunit, filename) +call hb_read(a, iret, iunit, filename, b, mtitle) \end{lstlisting}
    @@ -94,15 +94,31 @@ Specified as: an integer value. Only meaningful if filename is not -On Return

    +
    a
    +
    the sparse matrix read from file. +
    +Type:required. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    b
    Rigth hand side(s).
    -Type: required +Type: Optional
    -An array of type real or complex, rank 1 or 2 and having the ALLOCATABLE +An array of type real or complex, rank 2 and having the ALLOCATABLE attribute; will be allocated and filled in if the input file contains a right hand side, otherwise will be left in the UNALLOCATED state.
    +
    mtitle
    +
    Matrix title. +
    +Type: Optional +
    +A charachter variable of length 72 holding a copy of the +matrix title as specified by the Harwell-Boeing format and contained +in the input file. +
    iret
    Error code.
    @@ -113,7 +129,31 @@ An integer value; 0 means no error has been detected.

    -

    + +
    + + +next + +up + +previous + +contents +
    + Next: hb_write Write + Up: Utilities + Previous: Utilities +   Contents
    + diff --git a/docs/html/node123.html b/docs/html/node123.html index 4dd5f34e4..f8e65c336 100644 --- a/docs/html/node123.html +++ b/docs/html/node123.html @@ -3,8 +3,8 @@ -mm_mat_write -- Write a sparse matrix to a file in the MatrixMarket format - +hb_write -- Write a sparse matrix to a file in the Harwell-Boeing format + @@ -16,52 +16,54 @@ - +
    - next - + up - previous - contents
    - Next: mm_array_write Write - Up: Utilities - Previous: mm_array_read Read -   Next: mm_mat_read Read + Up: Utilities + Previous: hb_read Read +   Contents

    -

    -mm_mat_write -- Write a sparse matrix to a - file in the MatrixMarket format +

    +hb_write -- Write a sparse matrix to a file + in the Harwell-Boeing format


    \begin{lstlisting} -call mm_mat_write(a, mtitle, iret, iunit, filename) +call hb_write(a, iret, iunit, filename, key, rhs, mtitle) \end{lstlisting}
    + +

    Type:
    Asynchronous. @@ -76,13 +78,14 @@ Type:required.
    Specified as: a structured data of type spdatapsb_Tspmat_type.
    -
    mtitle
    -
    Matrix title. +
    b
    +
    Rigth hand side.
    -Type: required +Type: Optional
    -A charachter variable holding a descriptive title for the matrix to be - written to file. +An array of type real or complex, rank 1 and having the ALLOCATABLE +attribute; will be allocated and filled in if the input file contains +a right hand side.
    filename
    The name of the file to be written to. @@ -100,6 +103,24 @@ Type:optional.
    Specified as: an integer value. Only meaningful if filename is not -.
    +
    key
    +
    Matrix key. +
    +Type: Optional +
    +A charachter variable of length 8 holding the +matrix key as specified by the Harwell-Boeing format and to be +written to file. +
    +
    mtitle
    +
    Matrix title. +
    +Type: Optional +
    +A charachter variable of length 72 holding the +matrix title as specified by the Harwell-Boeing format and to be +written to file. +

    @@ -117,7 +138,31 @@ An integer value; 0 means no error has been detected.

    -

    + +
    + + +next + +up + +previous + +contents +
    + Next: mm_mat_read Read + Up: Utilities + Previous: hb_read Read +   Contents
    + diff --git a/docs/html/node124.html b/docs/html/node124.html index e7e3f85f6..f1307a9d2 100644 --- a/docs/html/node124.html +++ b/docs/html/node124.html @@ -3,8 +3,8 @@ -mm_array_write -- Write a dense array from a file in the MatrixMarket format - +mm_mat_read -- Read a sparse matrix from a file in the MatrixMarket format + @@ -14,51 +14,52 @@ + - +
    - next - + up - previous - contents
    - Next: Preconditioner routines - Up: Utilities - Previous: mm_mat_write Write -   Next: mm_array_read Read + Up: Utilities + Previous: hb_write Write +   Contents

    -

    -mm_array_write -- Write a dense array from a +

    +mm_mat_read -- Read a sparse matrix from a file in the MatrixMarket format


    \begin{lstlisting} -call mm_array_write(b, iret, iunit, filename) +call mm_mat_read(a, iret, iunit, filename) \end{lstlisting}
    @@ -70,14 +71,8 @@ call mm_array_write(b, iret, iunit, filename)

    On Entry
    -
    b
    -
    Rigth hand side(s). -
    -Type: required -
    -An array of type real or complex, rank 1 or 2; will be written..
    filename
    -
    The name of the file to be written. +
    The name of the file to be read.
    Type:optional.
    @@ -99,6 +94,13 @@ Specified as: an integer value. Only meaningful if filename is not -On Return
    +
    a
    +
    the sparse matrix read from file. +
    +Type:required. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    iret
    Error code.
    diff --git a/docs/html/node125.html b/docs/html/node125.html index 0b67b7104..07ecfc91b 100644 --- a/docs/html/node125.html +++ b/docs/html/node125.html @@ -3,8 +3,8 @@ -Preconditioner routines - +mm_array_read -- Read a dense array from a file in the MatrixMarket format + @@ -14,84 +14,105 @@ - - - + + +
    - next - + up - previous - contents
    - Next: init Initialize - Up: userhtml - Previous: mm_array_write Write -   Next: mm_mat_write Write + Up: Utilities + Previous: mm_mat_read Read +   Contents

    -

    - +

    +mm_array_read -- Read a dense array from a + file in the MatrixMarket format +

    + +

    +
    +\begin{lstlisting} +call mm_array_read(b, iret, iunit, filename) +\end{lstlisting}
    -Preconditioner routines -

    -The base PSBLAS library contains the implementation of two simple -preconditioning techniques: - -

      -
    • Diagonal Scaling -
      • -
    • Block Jacobi with ILU(0) factorization -
      • -
    -The supporting data type and subroutine interfaces are defined in the -module psb_prec_mod. -The old interfaces psb_precinit and psb_precbld are still supported for -backward compatibility +
    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    +
    +
    +
    filename
    +
    The name of the file to be read. +
    +Type:optional. +
    +Specified as: a character variable containing a valid file name, or +-, in which case the default input unit 5 (i.e. standard input +in Unix jargon) is used. Default: -. +
    +
    iunit
    +
    The Fortran file unit number. +
    +Type:optional. +
    +Specified as: an integer value. Only meaningful if filename is not -. +
    +

    -

    - -Subsections +
    +
    On Return
    +
    +
    +
    b
    +
    Rigth hand side(s). +
    +Type: required +
    +An array of type real or complex, rank 1 or 2 and having the ALLOCATABLE +attribute; will be allocated and filled in if the input file contains +a right hand side, otherwise will be left in the UNALLOCATED state. +
    +
    iret
    +
    Error code. +
    +Type: required +
    +An integer value; 0 means no error has been detected. +
    +
    - - +


    diff --git a/docs/html/node126.html b/docs/html/node126.html index aa0d47e77..6f5c409c4 100644 --- a/docs/html/node126.html +++ b/docs/html/node126.html @@ -3,8 +3,8 @@ -init -- Initialize a preconditioner - +mm_mat_write -- Write a sparse matrix to a file in the MatrixMarket format + @@ -16,130 +16,103 @@ - +
    - next - + up - previous - contents
    - Next: build Builds - Up: Preconditioner routines - Previous: Preconditioner routines -   Next: mm_array_write Write + Up: Utilities + Previous: mm_array_read Read +   Contents

    -

    -init -- Initialize a preconditioner +

    +mm_mat_write -- Write a sparse matrix to a + file in the MatrixMarket format

    -

    -call prec%init(icontxt,ptype, info)
-
    - -

    +
    +\begin{lstlisting} +call mm_mat_write(a, mtitle, iret, iunit, filename) +\end{lstlisting} +

    Type:
    Asynchronous.
    -
    On Entry
    +
    On Entry
    -
    icontxt
    -
    the communication context. -
    -Scope:global. +
    a
    +
    the sparse matrix to be written.
    Type:required.
    -Intent: in. -
    -Specified as: an integer value. +Specified as: a structured data of type spdatapsb_Tspmat_type.
    -
    ptype
    -
    the type of preconditioner. -Scope: global +
    mtitle
    +
    Matrix title.
    -Type: required +Type: required
    -Intent: in. -
    -Specified as: a character string, see usage notes. +A charachter variable holding a descriptive title for the matrix to be + written to file.
    -
    On Exit
    -

    +

    filename
    +
    The name of the file to be written to. +
    +Type:optional. +
    +Specified as: a character variable containing a valid file name, or +-, in which case the default output unit 6 (i.e. standard output +in Unix jargon) is used. Default: -.
    -
    prec
    -
    Scope: local +
    iunit
    +
    The Fortran file unit number.
    -Type: required +Type:optional.
    -Intent: inout. -
    -Specified as: a preconditioner data structure precdatapsb_prec_type. -
    -
    info
    -
    Scope: global -
    -Type: required -
    -Intent: out. -
    -Error code: if no error, 0 is returned. +Specified as: an integer value. Only meaningful if filename is not -.
    -Notes -Legal inputs to this subroutine are interpreted depending on the -$ptype$ string as follows4: + +

    -
    NONE
    -
    No preconditioning, i.e. the preconditioner is just a copy - operator. +
    On Return
    +
    -
    DIAG
    -
    Diagonal scaling; each entry of the input vector is - multiplied by the reciprocal of the sum of the absolute values of - the coefficients in the corresponding row of matrix $A$; -
    -
    BJAC
    -
    Precondition by a factorization of the - block-diagonal of matrix $A$, where block boundaries are determined - by the data allocation boundaries for each process; requires no - communication. Only the incomplete factorization $ILU(0)$ is - currently implemented. +
    iret
    +
    Error code. +
    +Type: required +
    +An integer value; 0 means no error has been detected.
    diff --git a/docs/html/node127.html b/docs/html/node127.html index e6a559015..2f598cdfc 100644 --- a/docs/html/node127.html +++ b/docs/html/node127.html @@ -3,8 +3,8 @@ -build -- Builds a preconditioner - +mm_array_write -- Write a dense array from a file in the MatrixMarket format + @@ -14,120 +14,83 @@ - - +
    - next - + up - previous - contents
    - Next: apply Preconditioner - Up: Preconditioner routines - Previous: init Initialize -   Next: Preconditioner routines + Up: Utilities + Previous: mm_mat_write Write +   Contents

    -

    -build -- Builds a preconditioner +

    +mm_array_write -- Write a dense array from a + file in the MatrixMarket format

    -

    -call prec%build(a, desc_a, info[,amold,vmold,imold])
-
    +
    +\begin{lstlisting} +call mm_array_write(b, iret, iunit, filename) +\end{lstlisting} +

    Type:
    -
    Synchronous. +
    Asynchronous.
    -
    On Entry
    +
    On Entry
    -
    a
    -
    the system sparse matrix. -Scope: local +
    b
    +
    Rigth hand side(s).
    -Type: required +Type: required
    -Intent: in, target. +An array of type real or complex, rank 1 or 2; will be written..
    +
    filename
    +
    The name of the file to be written.
    -Specified as: a sparse matrix data structure spdatapsb_Tspmat_type. +Type:optional. +
    +Specified as: a character variable containing a valid file name, or +-, in which case the default input unit 5 (i.e. standard input +in Unix jargon) is used. Default: -.
    -
    prec
    -
    the preconditioner. +
    iunit
    +
    The Fortran file unit number.
    -Scope: local +Type:optional.
    -Type: required -
    -Intent: inout. -
    -Specified as: an already initialized precondtioner data structure precdatapsb_prec_type -
    -
    desc_a
    -
    the problem communication descriptor. -Scope: local -
    -Type: required -
    -Intent: in, target. -
    -Specified as: a communication descriptor data structure descdatapsb_desc_type. -
    -
    amold
    -
    The desired dynamic type for the internal matrix storage. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat. -
    -
    vmold
    -
    The desired dynamic type for the internal vector storage. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type. -
    -
    imold
    -
    The desired dynamic type for the internal integer vector storage. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an object of a class derived from (integer) vbasedatapsb_T_base_vect_type. +Specified as: an integer value. Only meaningful if filename is not -.
    @@ -136,59 +99,17 @@ Specified as: an object of a class derived from (integer) vbasedatapsb_T_bas
    On Return
    -
    prec
    -
    the preconditioner. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a precondtioner data structure precdatapsb_prec_type -
    -
    info
    +
    iret
    Error code.
    -Scope: local -
    Type: required
    -Intent: out. -
    An integer value; 0 means no error has been detected.
    -The amold, vmold and imold arguments may be -employed to interface with special devices, such as GPUs and other -accelerators.

    - -

    - - -next - -up - -previous - -contents -
    - Next: apply Preconditioner - Up: Preconditioner routines - Previous: init Initialize -   Contents
    - +
    diff --git a/docs/html/node128.html b/docs/html/node128.html index d6071c087..06233ef98 100644 --- a/docs/html/node128.html +++ b/docs/html/node128.html @@ -3,8 +3,8 @@ -apply -- Preconditioner application routine - +Preconditioner routines + @@ -14,139 +14,84 @@ - - - + + +
    - next - + up - previous - contents
    - Next: descr Prints - Up: Preconditioner routines - Previous: build Builds -   Next: init Initialize + Up: userhtml + Previous: mm_array_write Write +   Contents

    -

    -apply -- Preconditioner application +

    + +
    +Preconditioner routines +

    + +

    +The base PSBLAS library contains the implementation of two simple +preconditioning techniques: + +

      +
    • Diagonal Scaling +
      • +
    • Block Jacobi with ILU(0) factorization +
      • +
    +The supporting data type and subroutine interfaces are defined in the +module psb_prec_mod. +The old interfaces psb_precinit and psb_precbld are still supported for +backward compatibility + +

    +

    + +Subsections + +

    - -

    -

    -call prec%apply(x,y,desc_a,info,trans,work)
-call prec%apply(x,desc_a,info,trans)
-
    - -

    -

    -
    Type:
    -
    Synchronous. -
    -
    On Entry
    -
    -
    -
    prec
    -
    the preconditioner. -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a preconditioner data structure precdatapsb_prec_type. -
    -
    x
    -
    the source vector. -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
    -
    desc_a
    -
    the problem communication descriptor. -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a communication data structure descdatapsb_desc_type. -
    -
    trans
    -
    Scope: -
    -Type: optional -
    -Intent: in. -
    -Specified as: a character. -
    -
    work
    -
    an optional work space -Scope: local -
    -Type: optional -
    -Intent: inout. -
    -Specified as: a double precision array. -
    -
    - -

    -

    -
    On Return
    -
    -
    -
    y
    -
    the destination vector. -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
    -
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. -
    -
    - -

    +

  • descr -- Prints a description of current + preconditioner +
  • clone -- clone current + preconditioner +
  • free -- Free a preconditioner + +
    diff --git a/docs/html/node129.html b/docs/html/node129.html index de6f38eae..0ff25da70 100644 --- a/docs/html/node129.html +++ b/docs/html/node129.html @@ -3,8 +3,8 @@ -descr -- Prints a description of current preconditioner - +init -- Initialize a preconditioner + @@ -16,47 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: clone clone - Up: Preconditioner routines - Previous: apply Preconditioner -   Next: build Builds + Up: Preconditioner routines + Previous: Preconditioner routines +   Contents

    -

    -descr -- Prints a description of current - preconditioner +

    +init -- Initialize a preconditioner 

    -call prec%descr()
-call prec%descr(iout, root)
+call prec%init(icontxt,ptype, info)

    @@ -67,43 +65,81 @@ call prec%descr(iout, root)

    On Entry
    -
    prec
    -
    the preconditioner. -Scope: local +
    icontxt
    +
    the communication context. +
    +Scope:global. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer value. +
    +
    ptype
    +
    the type of preconditioner. +Scope: global
    Type: required
    Intent: in.
    +Specified as: a character string, see usage notes. +
    +
    On Exit
    +

    +

    +
    prec
    +
    Scope: local +
    +Type: required +
    +Intent: inout. +
    Specified as: a preconditioner data structure precdatapsb_prec_type.
    -
    iout
    -
    output unit. -Scope: local +
    info
    +
    Scope: global
    -Type: optional +Type: required
    -Intent: in. +Intent: out.
    -Specified as: an integer number. Default: default output unit. +Error code: if no error, 0 is returned.
    -
    root
    -
    Process from which to print -Scope: local -
    -Type: optional -
    -Intent: in. -
    -Specified as: an integer number between 0 and $np-1$, in which case -the specified process will print the description, or $-1$, in which case -all processes will print. Default: 0. + +Notes +Legal inputs to this subroutine are interpreted depending on the +$ptype$ string as follows4: +
    +
    NONE
    +
    No preconditioning, i.e. the preconditioner is just a copy + operator. +
    +
    DIAG
    +
    Diagonal scaling; each entry of the input vector is + multiplied by the reciprocal of the sum of the absolute values of + the coefficients in the corresponding row of matrix $A$; +
    +
    BJAC
    +
    Precondition by a factorization of the + block-diagonal of matrix $A$, where block boundaries are determined + by the data allocation boundaries for each process; requires no + communication. Only the incomplete factorization $ILU(0)$ is + currently implemented.
    diff --git a/docs/html/node13.html b/docs/html/node13.html index 0fdc4242b..bbbcaa1b3 100644 --- a/docs/html/node13.html +++ b/docs/html/node13.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_global_rows Get - Up: Up: Descriptor data structure - Previous: Previous: get_local_rows Get -   Contents

    @@ -85,7 +85,7 @@ Scope: local. $|{\cal I}_i| + |{\cal B}_i| +|{\cal H}_i|$ --> $\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$. The returned value is specific to the calling process. diff --git a/docs/html/node130.html b/docs/html/node130.html index 8cad168ce..532b6c53f 100644 --- a/docs/html/node130.html +++ b/docs/html/node130.html @@ -3,8 +3,8 @@ -clone -- clone current preconditioner - +build -- Builds a preconditioner + @@ -16,60 +16,119 @@ - +
    - next - + up - previous - contents
    - Next: free Free - Up: Preconditioner routines - Previous: descr Prints -   Next: apply Preconditioner + Up: Preconditioner routines + Previous: init Initialize +   Contents

    -

    -clone -- clone current - preconditioner +

    +build -- Builds a preconditioner

    +

    -call  prec%clone(precout,info)
+call prec%build(a, desc_a, info[,amold,vmold,imold])

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    +
    a
    +
    the system sparse matrix. +Scope: local +
    +Type: required +
    +Intent: in, target. +
    +Specified as: a sparse matrix data structure spdatapsb_Tspmat_type. +
    prec
    the preconditioner.
    -Scope: local. +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: an already initialized precondtioner data structure precdatapsb_prec_type
    +
    desc_a
    +
    the problem communication descriptor. +Scope: local +
    +Type: required +
    +Intent: in, target. +
    +Specified as: a communication descriptor data structure descdatapsb_desc_type. +
    +
    amold
    +
    The desired dynamic type for the internal matrix storage. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat. +
    +
    vmold
    +
    The desired dynamic type for the internal vector storage. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type. +
    +
    imold
    +
    The desired dynamic type for the internal integer vector storage. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an object of a class derived from (integer) vbasedatapsb_T_base_vect_type. +

    @@ -77,16 +136,59 @@ Scope: local.

    On Return
    -
    precout
    -
    A copy of the input object. -
    +
    prec
    +
    the preconditioner. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a precondtioner data structure precdatapsb_prec_type +
    info
    -
    Return code. +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected.
    +The amold, vmold and imold arguments may be +employed to interface with special devices, such as GPUs and other +accelerators.

    -

    + +
    + + +next + +up + +previous + +contents +
    + Next: apply Preconditioner + Up: Preconditioner routines + Previous: init Initialize +   Contents
    + diff --git a/docs/html/node131.html b/docs/html/node131.html index 2c00d6de4..289b69abd 100644 --- a/docs/html/node131.html +++ b/docs/html/node131.html @@ -3,8 +3,8 @@ -free -- Free a preconditioner - +apply -- Preconditioner application routine + @@ -14,91 +14,137 @@ + - +
    - next - + up - previous - contents
    - Next: Iterative Methods - Up: Preconditioner routines - Previous: clone clone -   Next: descr Prints + Up: Preconditioner routines + Previous: build Builds +   Contents

    -

    -free -- Free a preconditioner +

    +apply -- Preconditioner application + routine 

    -call prec%free(info)
+call prec%apply(x,y,desc_a,info,trans,work)
+call prec%apply(x,desc_a,info,trans)

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    prec
    the preconditioner. +Scope: local
    -Scope: local. +Type: required +
    +Intent: in. +
    +Specified as: a preconditioner data structure precdatapsb_prec_type. +
    +
    x
    +
    the source vector. +Scope: local
    Type: required
    Intent: inout.
    -Specified as: a preconditioner data structure precdatapsb_prec_type. +Specified as: a rank one array or an object of type vdatapsb_T_vect_type.
    -
    On Exit
    -

    +

    desc_a
    +
    the problem communication descriptor. +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a communication data structure descdatapsb_desc_type.
    -
    prec
    -
    Scope: local +
    trans
    +
    Scope: +
    +Type: optional +
    +Intent: in. +
    +Specified as: a character. +
    +
    work
    +
    an optional work space +Scope: local +
    +Type: optional +
    +Intent: inout. +
    +Specified as: a double precision array. +
    +
    + +

    +

    +
    On Return
    +
    +
    +
    y
    +
    the destination vector. +Scope: local
    Type: required
    Intent: inout.
    -Specified as: a preconditioner data structure precdatapsb_prec_type. +Specified as: a rank one array or an object of type vdatapsb_T_vect_type.
    info
    -
    Scope: global +
    Error code.
    -Type: required +Scope: local +
    +Type: required
    Intent: out.
    -Error code: if no error, 0 is returned. +An integer value; 0 means no error has been detected.
    -Notes -Releases all internal storage.


    diff --git a/docs/html/node132.html b/docs/html/node132.html index 9c42bbe23..6244d986c 100644 --- a/docs/html/node132.html +++ b/docs/html/node132.html @@ -3,8 +3,8 @@ -Iterative Methods - +descr -- Prints a description of current preconditioner + @@ -14,62 +14,100 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_krylov Krylov - Up: userhtml - Previous: free Free -   Next: clone clone + Up: Preconditioner routines + Previous: apply Preconditioner +   Contents

    -

    - +

    +descr -- Prints a description of current + preconditioner +

    + +

    +

    +call prec%descr()
+call prec%descr(iout, root)
+
    + +

    +

    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    +
    +
    +
    prec
    +
    the preconditioner. +Scope: local
    -Iterative Methods - +Type: required +
    +Intent: in. +
    +Specified as: a preconditioner data structure precdatapsb_prec_type. +
    +
    iout
    +
    output unit. +Scope: local +
    +Type: optional +
    +Intent: in. +
    +Specified as: an integer number. Default: default output unit. +
    +
    root
    +
    Process from which to print +Scope: local +
    +Type: optional +
    +Intent: in. +
    +Specified as: an integer number between 0 and $np-1$, in which case +the specified process will print the description, or $-1$, in which case +all processes will print. Default: 0. +
    +

    -In this chapter we provide routines for preconditioners and iterative -methods. The interfaces for Krylov subspace methods are available in -the module psb_krylov_mod. - -

    -

    - -Subsections - - -
    diff --git a/docs/html/node133.html b/docs/html/node133.html index ba43c36fd..fadd4e4bb 100644 --- a/docs/html/node133.html +++ b/docs/html/node133.html @@ -3,8 +3,8 @@ -psb_krylov -- Krylov Methods Driver Routine - +clone -- clone current preconditioner + @@ -14,427 +14,79 @@ + - +
    - next - + up - previous - contents
    - Next: Bibliography - Up: Iterative Methods - Previous: Iterative Methods -   Next: free Free + Up: Preconditioner routines + Previous: descr Prints +   Contents

    -

    -
    -psb_krylov -- Krylov Methods Driver - Routine +

    +clone -- clone current + preconditioner

    -

    -This subroutine is a driver that provides a general interface for all -the Krylov-Subspace family methods implemented in PSBLAS version 2. - -

    -The stopping criterion can take the following values: -

    -
    1
    -
    normwise backward error in the infinity -norm; the iteration is stopped when -

    -
    - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{(\Vert A\Vert\Vert x_i\Vert+\Vert b\Vert)} < eps \end{displaymath} -
    -
    -

    -
    -
    2
    -
    Relative residual in the 2-norm; the iteration is stopped -when -

    -
    - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert b\Vert _2} < eps \end{displaymath} -
    -
    -

    -
    -
    3
    -
    Relative residual reduction in the 2-norm; the iteration is stopped -when -

    -
    - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert r_0\Vert _2} < eps \end{displaymath} -
    -
    -

    -
    -
    -The behaviour is controlled by the istop argument (see -later). In the above formulae, $x_i$ is the tentative solution and -$r_i=b-Ax_i$ the corresponding residual at the $i$-th iteration. - -

    -
    -\begin{lstlisting} -call psb_krylov(method,a,prec,b,x,eps,desc_a,info,& -& itmax,iter,err,itrace,irst,istop,cond) -\end{lstlisting} -
    +

    +call  prec%clone(precout,info)
+

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    -
    method
    -
    a string that defines the iterative method to be - used. Supported values are: -
    -
    CG:
    -
    the Conjugate Gradient method; - -
    -
    CGS:
    -
    the Conjugate Gradient Stabilized method; - -

    -

    -
    GCR:
    -
    the Generalized Conjugate Residual method; - -
    -
    FCG:
    -
    the Flexible Conjugate Gradient method5; - -

    -

    -
    BICG:
    -
    the Bi-Conjugate Gradient method; - -
    -
    BICGSTAB:
    -
    the Bi-Conjugate Gradient Stabilized method; - -
    -
    BICGSTABL:
    -
    the Bi-Conjugate Gradient Stabilized method with restarting; - -
    -
    RGMRES:
    -
    the Generalized Minimal Residual method with restarting. - -
    -
    -
    -
    a
    -
    the local portion of global sparse matrix -$A$. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    prec
    -
    The data structure containing the preconditioner. +
    the preconditioner.
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a structured data of type precdatapsb_prec_type. -
    -
    b
    -
    The RHS vector. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
    -
    x
    -
    The initial guess. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
    -
    eps
    -
    The stopping tolerance. -
    -Scope: global -
    -Type: required -
    -Intent: in. -
    -Specified as: a real number. -
    -
    desc_a
    -
    contains data structures for communications. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    itmax
    -
    The maximum number of iterations to perform. -
    -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Default: $itmax = 1000$. -
    -Specified as: an integer variable $itmax \ge 1$. -
    -
    itrace
    -
    If $>0$ print out an informational message about - convergence every $itrace$ iterations. If $=0$ print a message in - case of convergence failure. -
    -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Default: $itrace = -1$. +Scope: local.
    -
    irst
    -
    An integer specifying the restart parameter. -
    -Scope: global -
    -Type: optional. -
    -Intent: in. -
    -Values: $irst>0$. This is employed for the BiCGSTABL or RGMRES -methods, otherwise it is ignored. +

    - -

    istop
    -
    An integer specifying the stopping criterion. -
    -Scope: global -
    -Type: optional. -
    -Intent: in. -
    -Values: 1: use the normwise backward error, 2: use the scaled 2-norm -of the residual, 3: use the residual reduction in the 2-norm. Default: 2. -
    +
    On Return
    -
    x
    -
    The computed solution. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
    -
    iter
    -
    The number of iterations performed. -
    -Scope: global -
    -Type: optional -
    -Intent: out. -
    -Returned as: an integer variable. -
    -
    err
    -
    The convergence estimate on exit. -
    -Scope: global -
    -Type: optional -
    -Intent: out. -
    -Returned as: a real number. -
    -
    cond
    -
    An estimate of the condition number of matrix $A$; only - available with the $CG$ method on real data. -
    -Scope: global -
    -Type: optional -
    -Intent: out. -
    -Returned as: a real number. A correct result will be greater than or -equal to one; if specified for non-real data, or an error occurred, -zero is returned. +
    precout
    +
    A copy of the input object.
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. +
    Return code.

    - -

    - -

    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: Bibliography - Up: Iterative Methods - Previous: Iterative Methods -   Contents
    - +
    diff --git a/docs/html/node134.html b/docs/html/node134.html index fa6197a58..c98f860ce 100644 --- a/docs/html/node134.html +++ b/docs/html/node134.html @@ -3,8 +3,8 @@ -Bibliography - +free -- Free a preconditioner + @@ -14,164 +14,91 @@ - - - + +
    - next - + up - previous - contents
    - Next: About this document ... - Up: userhtml - Previous: psb_krylov Krylov -   Next: Iterative Methods + Up: Preconditioner routines + Previous: clone clone +   Contents -

    +
    +
    - -

    -Bibliography -

    1 -
    - D. Barbieri, V. Cardellini, S. Filippone and D. Rouson -Design Patterns for Scientific Computations on Sparse Matrices, - HPSS 2011, Algorithms and Programming Tools for Next-Generation High-Performance Scientific Software, Bordeaux, Sep. 2011 + +

    +free -- Free a preconditioner +

    -

    2 +
    +call prec%free(info)
+
    + +

    +

    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    -G. Bella, S. Filippone, A. De Maio and M. Testa, -A Simulation Model for Forest Fires, -in J. Dongarra, K. Madsen, J. Wasniewski, editors, -Proceedings of PARA 04 Workshop on State of the Art -in Scientific Computing, pp. 546-553, Lecture Notes in Computer Science, -Springer, 2005. -

    3 -
    A. Buttari, D. di Serafino, P. D'Ambra, S. Filippone,
    -2LEV-D2P4: a package of high-performance preconditioners,
    -Applicable Algebra in Engineering, Communications and Computing, -Volume 18, Number 3, May, 2007, pp. 223-239 -

    4 -
    P. D'Ambra, S. Filippone, D. Di Serafino
    -On the Development of PSBLAS-based Parallel Two-level Schwarz Preconditioners +
    +
    prec
    +
    the preconditioner.
    -Applied Numerical Mathematics, Elsevier Science, -Volume 57, Issues 11-12, November-December 2007, Pages 1181-1196. - -

    -

    5 -
    - Dongarra, J. J., DuCroz, J., Hammarling, S. and Hanson, R., -An Extended Set of Fortran Basic Linear Algebra Subprograms, -ACM Trans. Math. Softw. vol. 14, 1-17, 1988. -

    6 -
    - Dongarra, J., DuCroz, J., Hammarling, S. and Duff, I., -A Set of level 3 Basic Linear Algebra Subprograms, -ACM Trans. Math. Softw. vol. 16, 1-17, 1990. -

    7 -
    -J. J. Dongarra and R. C. Whaley, -A User's Guide to the BLACS v. 1.1, -Lapack Working Note 94, Tech. Rep. UT-CS-95-281, University of -Tennessee, March 1995 (updated May 1997). -

    8 -
    -I. Duff, M. Marrone, G. Radicati and C. Vittoli, -Level 3 Basic Linear Algebra Subprograms for Sparse Matrices: -a User Level Interface, -ACM Transactions on Mathematical Software, 23(3), pp. 379-401, 1997. -

    9 -
    -I. Duff, M. Heroux and R. Pozo, -An Overview of the Sparse Basic Linear -Algebra Subprograms: the New Standard from the BLAS Technical Forum, -ACM Transactions on Mathematical Software, 28(2), pp. 239-267, 2002. -

    10 -
    -S. Filippone and M. Colajanni, -PSBLAS: A Library for Parallel Linear Algebra -Computation on Sparse Matrices, +Scope: local.
    -ACM Transactions on Mathematical Software, 26(4), pp. 527-550, 2000. -

    11 -
    -S. Filippone and A. Buttari, -Object-Oriented Techniques for Sparse Matrix Computations in Fortran 2003, +Type: required
    -ACM Transactions on Mathematical Software, 38(4), 2012. -

    12 -
    -S. Filippone, P. D'Ambra, M. Colajanni, -Using a Parallel Library of Sparse Linear Algebra in a Fluid Dynamics -Applications Code on Linux Clusters, -in G. Joubert, A. Murli, F. Peters, M. Vanneschi, editors, -Parallel Computing - Advances & Current Issues, -pp. 441-448, Imperial College Press, 2002. -

    13 -
    - Gamma, E., Helm, R., Johnson, R., and Vlissides, - J. 1995. - Design Patterns: Elements of Reusable Object-Oriented Software. - Addison-Wesley. - -

    -

    14 -
    -Karypis, G. and Kumar, V., -METIS: Unstructured Graph Partitioning and Sparse Matrix - Ordering System. -Minneapolis, MN 55455: University of Minnesota, Department of - Computer Science, 1995. -Internet Address: http://www.cs.umn.edu/~karypis. -

    15 -
    -Lawson, C., Hanson, R., Kincaid, D. and Krogh, F., - Basic Linear Algebra Subprograms for Fortran usage, -ACM Trans. Math. Softw. vol. 5, 38-329, 1979. - -

    -

    16 -
    -Machiels, L. and Deville, M. -Fortran 90: An entry to object-oriented programming for the solution - of partial differential equations. -ACM Trans. Math. Softw. vol. 23, 32-49. -

    17 -
    -Metcalf, M., Reid, J. and Cohen, M. -Fortran 95/2003 explained. -Oxford University Press, 2004. -

    18 -
    -Rouson, D.W.I., Xia, J., Xu, X.: Scientific Software Design: The - Object-Oriented Way. Cambridge University Press (2011) - -

    -

    19 -
    -M. Snir, S. Otto, S. Huss-Lederman, D. Walker and J. Dongarra, -MPI: The Complete Reference. Volume 1 - The MPI Core, second edition, -MIT Press, 1998. +Intent: inout. +
    +Specified as: a preconditioner data structure precdatapsb_prec_type. +
    +
    On Exit
    +

    +

    +
    prec
    +
    Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a preconditioner data structure precdatapsb_prec_type. +
    +
    info
    +
    Scope: global +
    +Type: required +
    +Intent: out. +
    +Error code: if no error, 0 is returned. +
    +Notes +Releases all internal storage.


    diff --git a/docs/html/node135.html b/docs/html/node135.html index 29fee5d55..9dda94793 100644 --- a/docs/html/node135.html +++ b/docs/html/node135.html @@ -3,8 +3,8 @@ -About this document ... - +Iterative Methods + @@ -14,53 +14,62 @@ - + + +
    -next - +next + up - previous - contents
    - Up: Next: psb_krylov Krylov + Up: userhtml - Previous: Bibliography -   Previous: free Free +   Contents

    -

    -About this document ... -

    -

    -This document was generated using the -LaTeX2HTML translator Version 2018 (Released Feb 1, 2018) -

    -Copyright © 1993, 1994, 1995, 1996, -Nikos Drakos, -Computer Based Learning Unit, University of Leeds. +

    +
    -Copyright © 1997, 1998, 1999, -Ross Moore, -Mathematics Department, Macquarie University, Sydney. +Iterative Methods +

    +

    -The command line arguments were:
    - latex2html -local_icons -noaddress -dir ../../html userhtml.tex +In this chapter we provide routines for preconditioners and iterative +methods. The interfaces for Krylov subspace methods are available in +the module psb_krylov_mod. +

    -The translation was initiated on 2019-05-28 +

    + +Subsections + + +
    diff --git a/docs/html/node136.html b/docs/html/node136.html new file mode 100644 index 000000000..1899d05d4 --- /dev/null +++ b/docs/html/node136.html @@ -0,0 +1,440 @@ + + + + + +psb_krylov -- Krylov Methods Driver Routine + + + + + + + + + + + + + + + + + +
    + +next + +up + +previous + +contents +
    + Next: Bibliography + Up: Iterative Methods + Previous: Iterative Methods +   Contents +
    +
    + + +

    +
    +psb_krylov -- Krylov Methods Driver + Routine +

    + +

    +This subroutine is a driver that provides a general interface for all +the Krylov-Subspace family methods implemented in PSBLAS version 2. + +

    +The stopping criterion can take the following values: +

    +
    1
    +
    normwise backward error in the infinity +norm; the iteration is stopped when +

    +
    + + +\begin{displaymath}err = \frac{\Vert r_i\Vert}{(\Vert A\Vert\Vert x_i\Vert+\Vert b\Vert)} < eps \end{displaymath} +
    +
    +

    +
    +
    2
    +
    Relative residual in the 2-norm; the iteration is stopped +when +

    +
    + + +\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert b\Vert _2} < eps \end{displaymath} +
    +
    +

    +
    +
    3
    +
    Relative residual reduction in the 2-norm; the iteration is stopped +when +

    +
    + + +\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert r_0\Vert _2} < eps \end{displaymath} +
    +
    +

    +
    +
    +The behaviour is controlled by the istop argument (see +later). In the above formulae, $x_i$ is the tentative solution and +$r_i=b-Ax_i$ the corresponding residual at the $i$-th iteration. + +

    +
    +\begin{lstlisting} +call psb_krylov(method,a,prec,b,x,eps,desc_a,info,& +& itmax,iter,err,itrace,irst,istop,cond) +\end{lstlisting} +
    + +

    +

    +
    Type:
    +
    Synchronous. +
    +
    On Entry
    +
    +
    +
    method
    +
    a string that defines the iterative method to be + used. Supported values are: +
    +
    CG:
    +
    the Conjugate Gradient method; + +
    +
    CGS:
    +
    the Conjugate Gradient Stabilized method; + +

    +

    +
    GCR:
    +
    the Generalized Conjugate Residual method; + +
    +
    FCG:
    +
    the Flexible Conjugate Gradient method5; + +

    +

    +
    BICG:
    +
    the Bi-Conjugate Gradient method; + +
    +
    BICGSTAB:
    +
    the Bi-Conjugate Gradient Stabilized method; + +
    +
    BICGSTABL:
    +
    the Bi-Conjugate Gradient Stabilized method with restarting; + +
    +
    RGMRES:
    +
    the Generalized Minimal Residual method with restarting. + +
    +
    +
    +
    a
    +
    the local portion of global sparse matrix +$A$. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    +
    prec
    +
    The data structure containing the preconditioner. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type precdatapsb_prec_type. +
    +
    b
    +
    The RHS vector. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a rank one array or an object of type vdatapsb_T_vect_type. +
    +
    x
    +
    The initial guess. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a rank one array or an object of type vdatapsb_T_vect_type. +
    +
    eps
    +
    The stopping tolerance. +
    +Scope: global +
    +Type: required +
    +Intent: in. +
    +Specified as: a real number. +
    +
    desc_a
    +
    contains data structures for communications. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    itmax
    +
    The maximum number of iterations to perform. +
    +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Default: $itmax = 1000$. +
    +Specified as: an integer variable $itmax \ge 1$. +
    +
    itrace
    +
    If $>0$ print out an informational message about + convergence every $itrace$ iterations. If $=0$ print a message in + case of convergence failure. +
    +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Default: $itrace = -1$. +
    +
    irst
    +
    An integer specifying the restart parameter. +
    +Scope: global +
    +Type: optional. +
    +Intent: in. +
    +Values: $irst>0$. This is employed for the BiCGSTABL or RGMRES +methods, otherwise it is ignored. + +

    +

    +
    istop
    +
    An integer specifying the stopping criterion. +
    +Scope: global +
    +Type: optional. +
    +Intent: in. +
    +Values: 1: use the normwise backward error, 2: use the scaled 2-norm +of the residual, 3: use the residual reduction in the 2-norm. Default: 2. +
    +
    On Return
    +
    +
    +
    x
    +
    The computed solution. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a rank one array or an object of type vdatapsb_T_vect_type. +
    +
    iter
    +
    The number of iterations performed. +
    +Scope: global +
    +Type: optional +
    +Intent: out. +
    +Returned as: an integer variable. +
    +
    err
    +
    The convergence estimate on exit. +
    +Scope: global +
    +Type: optional +
    +Intent: out. +
    +Returned as: a real number. +
    +
    cond
    +
    An estimate of the condition number of matrix $A$; only + available with the $CG$ method on real data. +
    +Scope: global +
    +Type: optional +
    +Intent: out. +
    +Returned as: a real number. A correct result will be greater than or +equal to one; if specified for non-real data, or an error occurred, +zero is returned. +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected. +
    +
    + +

    + +

    + +

    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: Bibliography + Up: Iterative Methods + Previous: Iterative Methods +   Contents
    + + + + diff --git a/docs/html/node137.html b/docs/html/node137.html new file mode 100644 index 000000000..4717ee2dd --- /dev/null +++ b/docs/html/node137.html @@ -0,0 +1,180 @@ + + + + + +Bibliography + + + + + + + + + + + + + + + + + + +
    + +next + +up + +previous + +contents +
    + Next: About this document ... + Up: userhtml + Previous: psb_krylov Krylov +   Contents +

    + + +

    +Bibliography +

    1 +
    + D. Barbieri, V. Cardellini, S. Filippone and D. Rouson +Design Patterns for Scientific Computations on Sparse Matrices, + HPSS 2011, Algorithms and Programming Tools for Next-Generation High-Performance Scientific Software, Bordeaux, Sep. 2011 + +

    +

    2 +
    +G. Bella, S. Filippone, A. De Maio and M. Testa, +A Simulation Model for Forest Fires, +in J. Dongarra, K. Madsen, J. Wasniewski, editors, +Proceedings of PARA 04 Workshop on State of the Art +in Scientific Computing, pp. 546-553, Lecture Notes in Computer Science, +Springer, 2005. +

    3 +
    A. Buttari, D. di Serafino, P. D'Ambra, S. Filippone,
    +2LEV-D2P4: a package of high-performance preconditioners,
    +Applicable Algebra in Engineering, Communications and Computing, +Volume 18, Number 3, May, 2007, pp. 223-239 +

    4 +
    P. D'Ambra, S. Filippone, D. Di Serafino
    +On the Development of PSBLAS-based Parallel Two-level Schwarz Preconditioners +
    +Applied Numerical Mathematics, Elsevier Science, +Volume 57, Issues 11-12, November-December 2007, Pages 1181-1196. + +

    +

    5 +
    + Dongarra, J. J., DuCroz, J., Hammarling, S. and Hanson, R., +An Extended Set of Fortran Basic Linear Algebra Subprograms, +ACM Trans. Math. Softw. vol. 14, 1-17, 1988. +

    6 +
    + Dongarra, J., DuCroz, J., Hammarling, S. and Duff, I., +A Set of level 3 Basic Linear Algebra Subprograms, +ACM Trans. Math. Softw. vol. 16, 1-17, 1990. +

    7 +
    +J. J. Dongarra and R. C. Whaley, +A User's Guide to the BLACS v. 1.1, +Lapack Working Note 94, Tech. Rep. UT-CS-95-281, University of +Tennessee, March 1995 (updated May 1997). +

    8 +
    +I. Duff, M. Marrone, G. Radicati and C. Vittoli, +Level 3 Basic Linear Algebra Subprograms for Sparse Matrices: +a User Level Interface, +ACM Transactions on Mathematical Software, 23(3), pp. 379-401, 1997. +

    9 +
    +I. Duff, M. Heroux and R. Pozo, +An Overview of the Sparse Basic Linear +Algebra Subprograms: the New Standard from the BLAS Technical Forum, +ACM Transactions on Mathematical Software, 28(2), pp. 239-267, 2002. +

    10 +
    +S. Filippone and M. Colajanni, +PSBLAS: A Library for Parallel Linear Algebra +Computation on Sparse Matrices, +
    +ACM Transactions on Mathematical Software, 26(4), pp. 527-550, 2000. +

    11 +
    +S. Filippone and A. Buttari, +Object-Oriented Techniques for Sparse Matrix Computations in Fortran 2003, +
    +ACM Transactions on Mathematical Software, 38(4), 2012. +

    12 +
    +S. Filippone, P. D'Ambra, M. Colajanni, +Using a Parallel Library of Sparse Linear Algebra in a Fluid Dynamics +Applications Code on Linux Clusters, +in G. Joubert, A. Murli, F. Peters, M. Vanneschi, editors, +Parallel Computing - Advances & Current Issues, +pp. 441-448, Imperial College Press, 2002. +

    13 +
    + Gamma, E., Helm, R., Johnson, R., and Vlissides, + J. 1995. + Design Patterns: Elements of Reusable Object-Oriented Software. + Addison-Wesley. + +

    +

    14 +
    +Karypis, G. and Kumar, V., +METIS: Unstructured Graph Partitioning and Sparse Matrix + Ordering System. +Minneapolis, MN 55455: University of Minnesota, Department of + Computer Science, 1995. +Internet Address: http://www.cs.umn.edu/~karypis. +

    15 +
    +Lawson, C., Hanson, R., Kincaid, D. and Krogh, F., + Basic Linear Algebra Subprograms for Fortran usage, +ACM Trans. Math. Softw. vol. 5, 38-329, 1979. + +

    +

    16 +
    +Machiels, L. and Deville, M. +Fortran 90: An entry to object-oriented programming for the solution + of partial differential equations. +ACM Trans. Math. Softw. vol. 23, 32-49. +

    17 +
    +Metcalf, M., Reid, J. and Cohen, M. +Fortran 95/2003 explained. +Oxford University Press, 2004. +

    18 +
    +Rouson, D.W.I., Xia, J., Xu, X.: Scientific Software Design: The + Object-Oriented Way. Cambridge University Press (2011) + +

    +

    19 +
    +M. Snir, S. Otto, S. Huss-Lederman, D. Walker and J. Dongarra, +MPI: The Complete Reference. Volume 1 - The MPI Core, second edition, +MIT Press, 1998. +
    + +

    +

    + + + diff --git a/docs/html/node138.html b/docs/html/node138.html new file mode 100644 index 000000000..6fd05bf82 --- /dev/null +++ b/docs/html/node138.html @@ -0,0 +1,67 @@ + + + + + +About this document ... + + + + + + + + + + + + + + + + +
    +next + +up + +previous + +contents +
    + Up: userhtml + Previous: Bibliography +   Contents +
    +
    + + +

    +About this document ... +

    +

    +This document was generated using the +LaTeX2HTML translator Version 2018 (Released Feb 1, 2018) +

    +Copyright © 1993, 1994, 1995, 1996, +Nikos Drakos, +Computer Based Learning Unit, University of Leeds. +
    +Copyright © 1997, 1998, 1999, +Ross Moore, +Mathematics Department, Macquarie University, Sydney. +

    +The command line arguments were:
    + latex2html -local_icons -noaddress -dir ../../html userhtml.tex +

    +The translation was initiated on 2019-11-21 +

    + + + diff --git a/docs/html/node14.html b/docs/html/node14.html index df52c1c46..914b0e58c 100644 --- a/docs/html/node14.html +++ b/docs/html/node14.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_global_cols Get - Up: Up: Descriptor data structure - Previous: Previous: get_local_cols Get -   Contents

    diff --git a/docs/html/node15.html b/docs/html/node15.html index 32983a8e6..0f9aa78af 100644 --- a/docs/html/node15.html +++ b/docs/html/node15.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_global_indices Get - Up: Up: Descriptor data structure - Previous: Previous: get_global_rows Get -   Contents

    diff --git a/docs/html/node16.html b/docs/html/node16.html index d7a1001d0..e938a3c29 100644 --- a/docs/html/node16.html +++ b/docs/html/node16.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_context Get - Up: Up: Descriptor data structure - Previous: Previous: get_global_cols Get -   Contents

    diff --git a/docs/html/node17.html b/docs/html/node17.html index c432cd85d..80c4cf41d 100644 --- a/docs/html/node17.html +++ b/docs/html/node17.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Clone clone - Up: Up: Descriptor data structure - Previous: Previous: get_global_indices Get -   Contents

    diff --git a/docs/html/node18.html b/docs/html/node18.html index 42ebe8813..422ddc253 100644 --- a/docs/html/node18.html +++ b/docs/html/node18.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: CNV convert - Up: Up: Descriptor data structure - Previous: Previous: get_context Get -   Contents

    diff --git a/docs/html/node19.html b/docs/html/node19.html index 35a0d5cb0..af94fa1c1 100644 --- a/docs/html/node19.html +++ b/docs/html/node19.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_cd_get_large_threshold Get - Up: Up: Descriptor data structure - Previous: Previous: Clone clone -   Contents

    diff --git a/docs/html/node2.html b/docs/html/node2.html index 3f09ef740..cc966d25f 100644 --- a/docs/html/node2.html +++ b/docs/html/node2.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: General overview - Up: Up: userhtml - Previous: Previous: Contents -   Contents

    @@ -68,7 +68,7 @@ passing.

    The PSBLAS library version 3 is implemented in the Fortran 2003 [17] programming language, with reuse and/or + HREF="node137.html#metcalf">17] programming language, with reuse and/or adaptation of existing Fortran 77 and Fortran 95 software, plus a handful of C routines. @@ -78,11 +78,11 @@ mostly in the handling of requirements for evolution and adaptation of the library to new computing architectures and integration of new algorithms. For a detailed discussion of our design see [11]; other + HREF="node137.html#Sparse03">11]; other works discussing advanced programming in Fortran 2003 include [1,18]; sufficient support for + HREF="node137.html#DesPat:11">1,18]; sufficient support for Fortran 2003 is now available from many compilers, including the GNU Fortran compiler from the Free Software Foundation (as of version 4.8). @@ -91,7 +91,7 @@ Previous approaches have been based on mixing Fortran 95, with its support for object-based design, with other languages; these have been advocated by a number of authors, e.g. [16]. Moreover, the Fortran 95 facilities for dynamic + HREF="node137.html#machiels">16]. Moreover, the Fortran 95 facilities for dynamic memory management and interface overloading greatly enhance the usability of the PSBLAS subroutines. In this way, the library can take care of runtime memory @@ -102,12 +102,12 @@ implementation or compilation time. The presentation of the PSBLAS library follows the general structure of the proposal for serial Sparse BLAS [8,9], which in its turn is based on the + HREF="node137.html#sblas97">8,9], which in its turn is based on the proposal for BLAS on dense matrices [15,5,6]. + HREF="node137.html#BLAS1">15,5,6].

    The applicability of sparse iterative solvers to many different areas @@ -142,26 +142,26 @@ computational fluid dynamics applications.

    - next - up - previous - contents
    - Next: Next: General overview - Up: Up: userhtml - Previous: Previous: Contents -   Contents
    diff --git a/docs/html/node20.html b/docs/html/node20.html index 905f54a5f..f5816c702 100644 --- a/docs/html/node20.html +++ b/docs/html/node20.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_cd_set_large_threshold Set - Up: Up: Descriptor data structure - Previous: Previous: CNV convert -   Contents

    diff --git a/docs/html/node21.html b/docs/html/node21.html index 3478b03a8..2e6a31b63 100644 --- a/docs/html/node21.html +++ b/docs/html/node21.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Named Constants - Up: Up: Descriptor data structure - Previous: Previous: psb_cd_get_large_threshold Get -   Contents

    diff --git a/docs/html/node22.html b/docs/html/node22.html index b733e044a..2f9f2a6ac 100644 --- a/docs/html/node22.html +++ b/docs/html/node22.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Sparse Matrix class - Up: Up: Descriptor data structure - Previous: Previous: psb_cd_set_large_threshold Set -   Contents

    diff --git a/docs/html/node23.html b/docs/html/node23.html index ecc0e565c..1105c101c 100644 --- a/docs/html/node23.html +++ b/docs/html/node23.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Sparse Matrix Methods - Up: Up: Data Structures and Classes - Previous: Previous: Named Constants -   Contents

    @@ -57,9 +57,9 @@ The spdatapsb_Tspmat_type class contains all information about the local portion of the sparse matrix and its storage mode. Its design is based on the STATE design pattern [13] as detailed + HREF="node137.html#DesignPatterns">13] as detailed in [11]; the type declaration is shown in + HREF="node137.html#Sparse03">11]; the type declaration is shown in figure 4 where T is a placeholder for the data type and precision variants
    @@ -141,74 +141,74 @@ variants are obtained by conversion to/from it. Subsections
    - next - up - previous - contents
    - Next: Next: Sparse Matrix Methods - Up: Up: Data Structures and Classes - Previous: Previous: Named Constants -   Contents
    diff --git a/docs/html/node24.html b/docs/html/node24.html index 660dda429..95bed484d 100644 --- a/docs/html/node24.html +++ b/docs/html/node24.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_nrows Get - Up: Up: Sparse Matrix class - Previous: Previous: Sparse Matrix class -   Contents

    diff --git a/docs/html/node25.html b/docs/html/node25.html index 4e11b66d2..892822632 100644 --- a/docs/html/node25.html +++ b/docs/html/node25.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_ncols Get - Up: Up: Sparse Matrix class - Previous: Previous: Sparse Matrix Methods -   Contents

    diff --git a/docs/html/node26.html b/docs/html/node26.html index c22ddd4c6..b354b89f4 100644 --- a/docs/html/node26.html +++ b/docs/html/node26.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_nnzeros Get - Up: Up: Sparse Matrix class - Previous: Previous: get_nrows Get -   Contents

    diff --git a/docs/html/node27.html b/docs/html/node27.html index a7b464d09..79142d1ed 100644 --- a/docs/html/node27.html +++ b/docs/html/node27.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_size Get - Up: Up: Sparse Matrix class - Previous: Previous: get_ncols Get -   Contents

    diff --git a/docs/html/node28.html b/docs/html/node28.html index c7f4130fb..93fa1562f 100644 --- a/docs/html/node28.html +++ b/docs/html/node28.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: sizeof Get - Up: Up: Sparse Matrix class - Previous: Previous: get_nnzeros Get -   Contents

    diff --git a/docs/html/node29.html b/docs/html/node29.html index bd2a7410b..6543ee2dd 100644 --- a/docs/html/node29.html +++ b/docs/html/node29.html @@ -25,26 +25,26 @@ of a sparse matrix">
    - next - up - previous - contents
    - Next: Next: get_fmt Short - Up: Up: Sparse Matrix class - Previous: Previous: get_size Get -   Contents

    diff --git a/docs/html/node3.html b/docs/html/node3.html index 9d55ff44f..0d4479c1f 100644 --- a/docs/html/node3.html +++ b/docs/html/node3.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Basic Nomenclature - Up: Up: userhtml - Previous: Previous: Introduction -   Contents

    @@ -56,7 +56,7 @@ General overview The PSBLAS library is designed to handle the implementation of iterative solvers for sparse linear systems on distributed memory parallel computers. The system coefficient matrix $A$ must be square; it may be real or complex, nonsymmetric, and its sparsity pattern @@ -75,10 +75,10 @@ calls to the serial sparse BLAS subroutines. In a similar way, the inter-process message exchanges are encapsulated in an applicaiton layer that has been strongly inspired by the Basic Linear Algebra Communication Subroutines (BLACS) library [7]. + HREF="node137.html#BLACS">7]. Usually there is no need to deal directly with MPI; however, in some cases, MPI routines are used directly to improve efficiency. For -further details on our communication layer see Sec. 7. +further details on our communication layer see Sec. 7.

    @@ -131,7 +131,7 @@ equation indices to processes. In particular it is consistent with the usage of graph partitioning tools commonly available in the literature, e.g. METIS [14]. + HREF="node137.html#METIS">14]. Dense vectors conform to sparse matrices, that is, the entries of a vector follow the same distribution of the matrix rows. @@ -151,44 +151,44 @@ bottleneck would make this option unattractive in most cases. Subsections

    - next - up - previous - contents
    - Next: Next: Basic Nomenclature - Up: Up: userhtml - Previous: Previous: Introduction -   Contents
    diff --git a/docs/html/node30.html b/docs/html/node30.html index abfd6eca7..6bb1780dc 100644 --- a/docs/html/node30.html +++ b/docs/html/node30.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: is_bld, is_upd, is_asb - Up: Up: Sparse Matrix class - Previous: Previous: sizeof Get -   Contents

    diff --git a/docs/html/node31.html b/docs/html/node31.html index d12946dd8..1b942045c 100644 --- a/docs/html/node31.html +++ b/docs/html/node31.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: is_lower, is_upper, is_triangle, is_unit - Up: Up: Sparse Matrix class - Previous: Previous: get_fmt Short -   Contents

    diff --git a/docs/html/node32.html b/docs/html/node32.html index e799406e3..a515bd961 100644 --- a/docs/html/node32.html +++ b/docs/html/node32.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: cscnv Convert - Up: Up: Sparse Matrix class - Previous: Previous: is_bld, is_upd, is_asb -   Contents

    diff --git a/docs/html/node33.html b/docs/html/node33.html index 09fdf1042..7d7e9b278 100644 --- a/docs/html/node33.html +++ b/docs/html/node33.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: csclip Reduce - Up: Up: Sparse Matrix class - Previous: Previous: is_lower, is_upper, is_triangle, is_unit -   Contents

    diff --git a/docs/html/node34.html b/docs/html/node34.html index c5b9402dc..79ac9113e 100644 --- a/docs/html/node34.html +++ b/docs/html/node34.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: clean_zeros Eliminate - Up: Up: Sparse Matrix class - Previous: Previous: cscnv Convert -   Contents

    diff --git a/docs/html/node35.html b/docs/html/node35.html index 027817f2f..87018a14c 100644 --- a/docs/html/node35.html +++ b/docs/html/node35.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_diag Get - Up: Up: Sparse Matrix class - Previous: Previous: csclip Reduce -   Contents

    diff --git a/docs/html/node36.html b/docs/html/node36.html index 4768938d7..542aa3f78 100644 --- a/docs/html/node36.html +++ b/docs/html/node36.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: clip_diag Cut - Up: Up: Sparse Matrix class - Previous: Previous: clean_zeros Eliminate -   Contents

    diff --git a/docs/html/node37.html b/docs/html/node37.html index 6cc088c91..1fc5b6e4e 100644 --- a/docs/html/node37.html +++ b/docs/html/node37.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: tril Return - Up: Up: Sparse Matrix class - Previous: Previous: get_diag Get -   Contents

    diff --git a/docs/html/node38.html b/docs/html/node38.html index a718ea45d..7a7e8e5d0 100644 --- a/docs/html/node38.html +++ b/docs/html/node38.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: triu Return - Up: Up: Sparse Matrix class - Previous: Previous: clip_diag Cut -   Contents

    diff --git a/docs/html/node39.html b/docs/html/node39.html index 685de000e..30ece33f7 100644 --- a/docs/html/node39.html +++ b/docs/html/node39.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_set_mat_default Set - Up: Up: Sparse Matrix class - Previous: Previous: tril Return -   Contents

    diff --git a/docs/html/node4.html b/docs/html/node4.html index 1fd13393a..81bbea421 100644 --- a/docs/html/node4.html +++ b/docs/html/node4.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Library contents - Up: Up: General overview - Previous: Previous: General overview -   Contents

    @@ -62,21 +62,21 @@ PDE. Each point of the discretization mesh will have (at least) one associated equation/variable, and therefore one index. We say that point $i$ depends on point $j$ if the equation for a variable associated with $i$ contains a term in $j$, or equivalently if $a_{ij} \ne0$. After the partition of the discretization mesh into sub-domains @@ -123,25 +123,25 @@ Overlap points do not usually exist in the basic data distributions; however they are a feature of Domain Decomposition Schwarz preconditioners which are the subject of related research work [4,3]. + HREF="node137.html#2007c">4,3].

    We denote the sets of internal, boundary and halo points for a given subdomain by $\cal I$, $\cal B$ and $\cal H$. Each subdomain is assigned to one process; each process usually owns one subdomain, although the user may choose to assign more than one subdomain to a process. If each process $i$ owns one subdomain, the number of rows in the local sparse matrix is @@ -149,7 +149,7 @@ subdomain, the number of rows in the local sparse matrix is $|{\cal I}_i| + |{\cal B}_i|$ --> $\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$, and the number of local columns (i.e. those for which there exists at least one non-zero entry in the @@ -157,7 +157,7 @@ local rows) is $\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$. @@ -170,7 +170,7 @@ Point classfication.

    diff --git a/docs/html/node40.html b/docs/html/node40.html index 33021ee91..aef8c0c1d 100644 --- a/docs/html/node40.html +++ b/docs/html/node40.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: clone Clone - Up: Up: Sparse Matrix class - Previous: Previous: triu Return -   Contents

    diff --git a/docs/html/node41.html b/docs/html/node41.html index b76f447cd..83caf8851 100644 --- a/docs/html/node41.html +++ b/docs/html/node41.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Named Constants - Up: Up: Sparse Matrix class - Previous: Previous: psb_set_mat_default Set -   Contents

    diff --git a/docs/html/node42.html b/docs/html/node42.html index 0810e2ecc..34e452e09 100644 --- a/docs/html/node42.html +++ b/docs/html/node42.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Dense Vector Data Structure - Up: Up: Sparse Matrix class - Previous: Previous: clone Clone -   Contents

    diff --git a/docs/html/node43.html b/docs/html/node43.html index 74f930ba1..096acda1a 100644 --- a/docs/html/node43.html +++ b/docs/html/node43.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Vector Methods - Up: Up: Data Structures and Classes - Previous: Previous: Named Constants -   Contents

    @@ -57,7 +57,7 @@ The vdatapsb_T_vect_type data structure encapsulates the dense vectors in a way similar to sparse matrices, i.e. including a base type vbasedata psb_T_base_vect_type. The user will not, in general, access the vector components directly, -but rather via the routines of sec. 6. Among other +but rather via the routines of sec. 6. Among other simple things, we define here an extraction method that can be used to get a full copy of the part of the vector stored on the local process. @@ -119,44 +119,44 @@ private memory. Subsections
    - next - up - previous - contents
    - Next: Next: Vector Methods - Up: Up: Data Structures and Classes - Previous: Previous: Named Constants -   Contents
    diff --git a/docs/html/node44.html b/docs/html/node44.html index d7ea4154e..59a5574b7 100644 --- a/docs/html/node44.html +++ b/docs/html/node44.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_nrows Get - Up: Up: Dense Vector Data Structure - Previous: Previous: Dense Vector Data Structure -   Contents

    diff --git a/docs/html/node45.html b/docs/html/node45.html index 967d15c69..41ef895e2 100644 --- a/docs/html/node45.html +++ b/docs/html/node45.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: sizeof Get - Up: Up: Dense Vector Data Structure - Previous: Previous: Vector Methods -   Contents

    diff --git a/docs/html/node46.html b/docs/html/node46.html index 85e388673..18fa65e1d 100644 --- a/docs/html/node46.html +++ b/docs/html/node46.html @@ -25,26 +25,26 @@ of a dense vector">
    - next - up - previous - contents
    - Next: Next: set Set - Up: Up: Dense Vector Data Structure - Previous: Previous: get_nrows Get -   Contents

    diff --git a/docs/html/node47.html b/docs/html/node47.html index b14e02f91..2feec7f95 100644 --- a/docs/html/node47.html +++ b/docs/html/node47.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: get_vect Get - Up: Up: Dense Vector Data Structure - Previous: Previous: sizeof Get -   Contents

    diff --git a/docs/html/node48.html b/docs/html/node48.html index e8c5cf980..4bc79826d 100644 --- a/docs/html/node48.html +++ b/docs/html/node48.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: clone Clone - Up: Up: Dense Vector Data Structure - Previous: Previous: set Set -   Contents

    @@ -89,15 +89,15 @@ Type: optional; default: entire vector.
    Function value
    An allocatable array holding a copy of the dense 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. diff --git a/docs/html/node49.html b/docs/html/node49.html index 08d0b52ca..8344bc75f 100644 --- a/docs/html/node49.html +++ b/docs/html/node49.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Preconditioner data structure - Up: Up: Dense Vector Data Structure - Previous: Previous: get_vect Get -   Contents

    diff --git a/docs/html/node5.html b/docs/html/node5.html index a2f0e2b83..f2b0e0341 100644 --- a/docs/html/node5.html +++ b/docs/html/node5.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Application structure - Up: Up: General overview - Previous: Previous: Basic Nomenclature -   Contents

    @@ -125,7 +125,7 @@ internally defined in the PSBLAS software package:
    • For example the psb_geins, psb_spins and - psb_cdins perform the same action (see 6) on + psb_cdins perform the same action (see 6) on dense matrices, sparse matrices and communication descriptors respectively. Interface overloading allows the usage of the same subroutine @@ -167,26 +167,26 @@ whose current value is 3.4.0
    - next - up - previous - contents
    - Next: Next: Application structure - Up: Up: General overview - Previous: Previous: Basic Nomenclature -   Contents
    diff --git a/docs/html/node50.html b/docs/html/node50.html index 3b2fcc2e7..e61abc77d 100644 --- a/docs/html/node50.html +++ b/docs/html/node50.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Heap data structure - Up: Up: Data Structures and Classes - Previous: Previous: clone Clone -   Contents

    diff --git a/docs/html/node51.html b/docs/html/node51.html index d7f55d82e..41816dcff 100644 --- a/docs/html/node51.html +++ b/docs/html/node51.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Computational routines - Up: Up: Data Structures and Classes - Previous: Previous: Preconditioner data structure -   Contents

    @@ -52,7 +52,7 @@ Heap data structure

    -Among the tools routines of sec. 6, we have a number +Among the tools routines of sec. 6, we have a number of sorting utilities; the heap sort is implemented in terms of heaps having the following signatures:

    diff --git a/docs/html/node52.html b/docs/html/node52.html index deb3c842a..1d9cf8ca3 100644 --- a/docs/html/node52.html +++ b/docs/html/node52.html @@ -14,7 +14,7 @@ - + @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_geaxpby General - Up: Up: userhtml - Previous: Previous: Heap data structure -   Contents

    @@ -58,33 +58,39 @@ Computational routines Subsections
    diff --git a/docs/html/node53.html b/docs/html/node53.html index 6df5a1876..b3c9a66e6 100644 --- a/docs/html/node53.html +++ b/docs/html/node53.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_gedot Dot - Up: Up: Computational routines - Previous: Previous: Computational routines -   Contents

    @@ -78,7 +78,7 @@ call psb_geaxpby(alpha, x, beta, y, desc_a, info)


    -
    +
    @@ -86,16 +86,16 @@ Data types
    Table 1: Data types
    @@ -129,7 +129,7 @@ Data types
    alpha
    the scalar $\alpha$.
    @@ -145,7 +145,7 @@ type indicated in Table 1.
    x
    the local portion of global dense matrix $x$.
    @@ -158,16 +158,16 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 1. The rank of $x$ must be the same of $y$.
    beta
    the scalar $\beta$.
    @@ -182,7 +182,7 @@ Specified as: a number of the data type indicated in Table $y$.
    @@ -194,10 +194,10 @@ Intent: inout.
    Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of the type indicated in Table     1. The rank of $y$ must be the same of $x$.
    @@ -223,7 +223,7 @@ Specified as: an object of type descdatapsb_desc_type.
    y
    the local portion of result submatrix $y$.
    @@ -253,26 +253,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_gedot Dot - Up: Up: Computational routines - Previous: Previous: Computational routines -   Contents
    diff --git a/docs/html/node54.html b/docs/html/node54.html index 1cfefa4ff..9ab3fd9c3 100644 --- a/docs/html/node54.html +++ b/docs/html/node54.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_gedots Generalized - Up: Up: Computational routines - Previous: Previous: psb_geaxpby General -   Contents

    @@ -54,19 +54,19 @@ psb_gedot -- Dot Product

    This function computes dot product between two vectors $x$ and $y$.
    If $x$ and $y$ are real vectors it computes dot-product as: @@ -86,10 +86,10 @@ dot \leftarrow x^T y

    Else if $x$ and $y$ are complex vectors then it computes dot-product as:

    @@ -101,7 +101,7 @@ dot \leftarrow x^H y --> \begin{displaymath}dot \leftarrow x^H y\end{displaymath} @@ -113,7 +113,7 @@ dot \leftarrow x^H y psb_gedot(x, y, desc_a, info [,global])

    -
    +
    $x$, $y$, $\alpha$, $\beta$ Subroutine
    @@ -121,13 +121,13 @@ Data types
    Table 2: Data types
    @@ -162,7 +162,7 @@ Data types
    x
    the local portion of global dense matrix $x$.
    @@ -175,17 +175,17 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 2. The rank of $x$ must be the same of $y$.
    y
    the local portion of global dense matrix $y$.
    @@ -198,10 +198,10 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 2. The rank of $y$ must be the same of $x$.
    @@ -236,10 +236,10 @@ Default: global=.true.
    Function value
    is the dot product of vectors $x$ and $y$.
    @@ -272,7 +272,7 @@ An integer value; 0 means no error has been detected. by using the following scheme:
    \begin{lstlisting} vres(1) = psb_gedot(x1,y1,desc_a,info,global=.false.) @@ -290,26 +290,26 @@ In this way the global communication, which for small sizes is a <DIV CLASS=
    - next - up - previous - contents
    - Next: Next: psb_gedots Generalized - Up: Up: Computational routines - Previous: Previous: psb_geaxpby General -   Contents diff --git a/docs/html/node55.html b/docs/html/node55.html index f14e7e64d..1244a8d8c 100644 --- a/docs/html/node55.html +++ b/docs/html/node55.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_normi Infinity-Norm - Up: Up: Computational routines - Previous: Previous: psb_gedot Dot -   Contents

    @@ -55,10 +55,10 @@ psb_gedots -- Generalized Dot Product

    This subroutine computes a series of dot products among the columns of two dense matrices $x$ and $y$:

    @@ -70,7 +70,7 @@ res(i) \leftarrow x(:,i)^T y(:,i) --> \begin{displaymath}res(i) \leftarrow x(:,i)^T y(:,i)\end{displaymath} @@ -78,17 +78,17 @@ res(i) \leftarrow x(:,i)^T y(:,i)

    If the matrices are complex, then the usual convention applies, i.e. the conjugate transpose of $x$ is used. If $x$ and $y$ are of rank one, then $res$ is a scalar, else it is a rank one array. @@ -98,7 +98,7 @@ is a rank one array. call psb_gedots(res, x, y, desc_a, info)

    -
    +
    $dot$, $x$, $y$ Function
    @@ -106,13 +106,13 @@ Data types
    Table 3: Data types
    @@ -147,7 +147,7 @@ Data types
    x
    the local portion of global dense matrix $x$.
    @@ -160,17 +160,17 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 3. The rank of $x$ must be the same of $y$.
    y
    the local portion of global dense matrix $y$.
    @@ -183,10 +183,10 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 3. The rank of $y$ must be the same of $x$.
    @@ -206,10 +206,10 @@ Specified as: an object of type descdatapsb_desc_type.
    res
    is the dot product of vectors $x$ and $y$.
    @@ -237,26 +237,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_normi Infinity-Norm - Up: Up: Computational routines - Previous: Previous: psb_gedot Dot -   Contents
    diff --git a/docs/html/node56.html b/docs/html/node56.html index d626f7f67..7f1ecd2b2 100644 --- a/docs/html/node56.html +++ b/docs/html/node56.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_geamaxs Generalized - Up: Up: Computational routines - Previous: Previous: psb_gedots Generalized -   Contents

    @@ -55,12 +55,12 @@ psb_normi -- Infinity-Norm of Vector

    This function computes the infinity-norm of a vector $x$.
    If $x$ is a real vector it computes infinity norm as: @@ -73,14 +73,14 @@ amax \leftarrow \max_i |x_i| --> \begin{displaymath}amax \leftarrow \max_i \vert x_i\vert\end{displaymath}

    else if $x$ is a complex vector then it computes the infinity-norm as:

    @@ -92,7 +92,7 @@ amax \leftarrow \max_i {(|re(x_i)| + |im(x_i)|)} --> \begin{displaymath}amax \leftarrow \max_i {(\vert re(x_i)\vert + \vert im(x_i)\vert)}\end{displaymath} @@ -107,7 +107,7 @@ psb_normi(x, desc_a, info [,global])


    -
    +
    $res$, $x$, $y$ Subroutine
    @@ -115,11 +115,11 @@ Data types
    Table 4: Data types
    @@ -158,7 +158,7 @@ Data types
    x
    the local portion of global dense matrix $x$. @@ -205,7 +205,7 @@ Default: global=.true.
    Function value
    is the infinity norm of vector $x$.
    @@ -238,7 +238,7 @@ An integer value; 0 means no error has been detected. by using the following scheme:
    \begin{lstlisting} vres(1) = psb_geamax(x1,desc_a,info,global=.false.) @@ -256,26 +256,26 @@ In this way the global communication, which for small sizes is a <DIV CLASS=
    - next - up - previous - contents
    - Next: Next: psb_geamaxs Generalized - Up: Up: Computational routines - Previous: Previous: psb_gedots Generalized -   Contents diff --git a/docs/html/node57.html b/docs/html/node57.html index fdd2f842a..60bc14e4e 100644 --- a/docs/html/node57.html +++ b/docs/html/node57.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_norm1 1-Norm - Up: Up: Computational routines - Previous: Previous: psb_normi Infinity-Norm -   Contents

    @@ -55,7 +55,7 @@ psb_geamaxs -- Generalized Infinity Norm

    This subroutine computes a series of infinity norms on the columns of a dense matrix $x$:

    @@ -67,7 +67,7 @@ res(i) \leftarrow \max_k |x(k,i)| --> \begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath} @@ -81,7 +81,7 @@ call psb_geamaxs(res, x, desc_a, info)


    -
    +
    $amax$ $x$ Function
    @@ -89,11 +89,11 @@ Data types
    Table 5: Data types
    @@ -132,7 +132,7 @@ Data types
    x
    the local portion of global dense matrix $x$.
    @@ -162,7 +162,7 @@ Specified as: an object of type descdatapsb_desc_type.
    res
    is the infinity norm of the columns of $x$.
    @@ -189,26 +189,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_norm1 1-Norm - Up: Up: Computational routines - Previous: Previous: psb_normi Infinity-Norm -   Contents
    diff --git a/docs/html/node58.html b/docs/html/node58.html index c4fd28f7d..489a80f31 100644 --- a/docs/html/node58.html +++ b/docs/html/node58.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_geasums Generalized - Up: Up: Computational routines - Previous: Previous: psb_geamaxs Generalized -   Contents

    @@ -54,12 +54,12 @@ psb_norm1 -- 1-Norm of Vector

    This function computes the 1-norm of a vector $x$.
    If $x$ is a real vector it computes 1-norm as: @@ -72,14 +72,14 @@ asum \leftarrow \|x_i\| --> \begin{displaymath}asum \leftarrow \Vert x_i\Vert\end{displaymath}

    else if $x$ is a complex vector then it computes 1-norm as:

    @@ -91,7 +91,7 @@ asum \leftarrow \|re(x)\|_1 + \|im(x)\|_1 --> \begin{displaymath}asum \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath} @@ -106,7 +106,7 @@ psb_norm1(x, desc_a, info [,global])


    -
    +
    $res$ $x$ Subroutine
    @@ -114,11 +114,11 @@ Data types
    Table 6: Data types
    @@ -157,7 +157,7 @@ Data types
    x
    the local portion of global dense matrix $x$. @@ -203,7 +203,7 @@ Default: global=.true.
    Function value
    is the 1-norm of vector $x$.
    @@ -236,7 +236,7 @@ An integer value; 0 means no error has been detected. by using the following scheme:
    \begin{lstlisting} vres(1) = psb_geasum(x1,desc_a,info,global=.false.) @@ -254,26 +254,26 @@ In this way the global communication, which for small sizes is a <DIV CLASS=
    - next - up - previous - contents
    - Next: Next: psb_geasums Generalized - Up: Up: Computational routines - Previous: Previous: psb_geamaxs Generalized -   Contents diff --git a/docs/html/node59.html b/docs/html/node59.html index 4ab320ea4..bed7c2508 100644 --- a/docs/html/node59.html +++ b/docs/html/node59.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_norm2 2-Norm - Up: Up: Computational routines - Previous: Previous: psb_norm1 1-Norm -   Contents

    @@ -55,7 +55,7 @@ psb_geasums -- Generalized 1-Norm of Vector

    This subroutine computes a series of 1-norms on the columns of a dense matrix $x$:

    @@ -67,19 +67,19 @@ res(i) \leftarrow \max_k |x(k,i)| --> \begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath}

    This function computes the 1-norm of a vector $x$.
    If $x$ is a real vector it computes 1-norm as: @@ -92,14 +92,14 @@ res(i) \leftarrow \|x_i\| --> \begin{displaymath}res(i) \leftarrow \Vert x_i\Vert\end{displaymath}

    else if $x$ is a complex vector then it computes 1-norm as:

    @@ -111,7 +111,7 @@ res(i) \leftarrow \|re(x)\|_1 + \|im(x)\|_1 --> \begin{displaymath}res(i) \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath} @@ -125,7 +125,7 @@ call psb_geasums(res, x, desc_a, info)


    -
    +
    $asum$ $x$ Function
    @@ -133,11 +133,11 @@ Data types
    Table 7: Data types
    @@ -176,7 +176,7 @@ Data types
    x
    the local portion of global dense matrix $x$. @@ -209,7 +209,7 @@ Specified as: an object of type descdatapsb_desc_type.
    res
    contains the 1-norm of (the columns of) $x$.
    @@ -237,26 +237,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_norm2 2-Norm - Up: Up: Computational routines - Previous: Previous: psb_norm1 1-Norm -   Contents
    diff --git a/docs/html/node6.html b/docs/html/node6.html index 91707813f..15321ca34 100644 --- a/docs/html/node6.html +++ b/docs/html/node6.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: User-defined index mappings - Up: Up: General overview - Previous: Previous: Library contents -   Contents

    @@ -61,7 +61,7 @@ space to which there corresponds an index space and a matrix sparsity pattern. As an example, consider a cell-centered finite-volume discretization of the Navier-Stokes equations on a simulation domain; the index space $1\dots n$ is isomorphic to the set of cell centers, whereas the pattern of the associated linear system matrix is @@ -72,7 +72,7 @@ by the discretization stencil. Thus the first order of business is to establish an index space, and this is done with a call to psb_cdall in which we specify the size of the index space $n$ and the allocation of the elements of the index space to the various processes making up the MPI (virtual) @@ -81,22 +81,22 @@ parallel machine.

    The index space is partitioned among processes, and this creates a mapping from the “global” numbering $1\dots n$ to a numbering “local” to each process; each process $i$ will own a certain subset $1\dots n_{\hbox{row}_i}$, each element of which corresponds to a certain element of $1\dots n$. The user does not set explicitly this mapping; when the application needs to indicate to which element of the index @@ -106,7 +106,7 @@ library will translate into the appropriate “local” numbering.

    For a given index space $1\dots n$ there are many possible associated topologies, i.e. many different discretization stencils; thus the @@ -115,7 +115,7 @@ defined a sparsity pattern, either explicitly through psb_cdins or implicitly through psb_spins. The descriptor is finalized with a call to psb_cdasb and a sparse matrix with a call to psb_spasb. After psb_cdasb each process $i$ will have defined a set of “halo” (or “ghost”) indices @@ -123,16 +123,16 @@ defined a set of “halo” (or “ghost”) indices $n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$ --> $n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$, denoting elements of the index space that are not assigned to process $i$; however the variables associated with them are needed to complete computations associated with the sparse matrix $A$, and thus they have to be fetched from (neighbouring) processes. The descriptor of the index @@ -247,33 +247,33 @@ from optimal. Subsections

    - next - up - previous - contents
    - Next: Next: User-defined index mappings - Up: Up: General overview - Previous: Previous: Library contents -   Contents
    diff --git a/docs/html/node60.html b/docs/html/node60.html index f663ca4c1..231ca72d5 100644 --- a/docs/html/node60.html +++ b/docs/html/node60.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_genrm2s Generalized - Up: Up: Computational routines - Previous: Previous: psb_geasums Generalized -   Contents

    @@ -54,12 +54,12 @@ psb_norm2 -- 2-Norm of Vector

    This function computes the 2-norm of a vector $x$.
    If $x$ is a real vector it computes 2-norm as: @@ -72,14 +72,14 @@ nrm2 \leftarrow \sqrt{x^T x} --> \begin{displaymath}nrm2 \leftarrow \sqrt{x^T x}\end{displaymath}

    else if $x$ is a complex vector then it computes 2-norm as:

    @@ -91,7 +91,7 @@ nrm2 \leftarrow \sqrt{x^H x} --> \begin{displaymath}nrm2 \leftarrow \sqrt{x^H x}\end{displaymath} @@ -100,7 +100,7 @@ nrm2 \leftarrow \sqrt{x^H x}


    -
    +
    $res$ $x$ Subroutine
    @@ -108,11 +108,11 @@ Data types
    Table 8: Data types
    @@ -157,7 +157,7 @@ psb_norm2(x, desc_a, info [,global])
    x
    the local portion of global dense matrix $x$.
    @@ -203,7 +203,7 @@ Default: global=.true.
    Function Value
    is the 2-norm of vector $x$.
    @@ -238,7 +238,7 @@ An integer value; 0 means no error has been detected. by using the following scheme:
    \begin{lstlisting} vres(1) = psb_genrm2(x1,desc_a,info,global=.false.) @@ -256,26 +256,26 @@ In this way the global communication, which for small sizes is a <DIV CLASS=
    - next - up - previous - contents
    - Next: Next: psb_genrm2s Generalized - Up: Up: Computational routines - Previous: Previous: psb_geasums Generalized -   Contents diff --git a/docs/html/node61.html b/docs/html/node61.html index 867d4545d..bdbc1061f 100644 --- a/docs/html/node61.html +++ b/docs/html/node61.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_norm1 1-Norm - Up: Up: Computational routines - Previous: Previous: psb_norm2 2-Norm -   Contents

    @@ -55,7 +55,7 @@ psb_genrm2s -- Generalized 2-Norm of Vector

    This subroutine computes a series of 2-norms on the columns of a dense matrix $x$:

    @@ -67,7 +67,7 @@ res(i) \leftarrow \|x(:,i)\|_2 --> \begin{displaymath}res(i) \leftarrow \Vert x(:,i)\Vert _2 \end{displaymath} @@ -81,7 +81,7 @@ call psb_genrm2s(res, x, desc_a, info)


    -
    +
    $nrm2$ $x$ Function
    @@ -89,11 +89,11 @@ Data types
    Table 9: Data types
    @@ -132,7 +132,7 @@ Data types
    x
    the local portion of global dense matrix $x$. @@ -165,7 +165,7 @@ Specified as: an object of type descdatapsb_desc_type.
    res
    contains the 1-norm of (the columns of) $x$.
    @@ -192,26 +192,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_norm1 1-Norm - Up: Up: Computational routines - Previous: Previous: psb_norm2 2-Norm -   Contents
    diff --git a/docs/html/node62.html b/docs/html/node62.html index 6ef4e36db..497fbdd5f 100644 --- a/docs/html/node62.html +++ b/docs/html/node62.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_normi Infinity - Up: Up: Computational routines - Previous: Previous: psb_genrm2s Generalized -   Contents

    @@ -54,7 +54,7 @@ psb_norm1 -- 1-Norm of Sparse Matrix

    This function computes the 1-norm of a matrix $A$:
    @@ -68,7 +68,7 @@ nrm1 \leftarrow \|A\|_1 --> \begin{displaymath}nrm1 \leftarrow \Vert A\Vert _1 \end{displaymath} @@ -77,11 +77,11 @@ nrm1 \leftarrow \|A\|_1 where:

    $A$
    represents the global matrix $A$
    @@ -89,7 +89,7 @@ where:


    -
    +
    $res$ $x$ Subroutine
    @@ -97,7 +97,7 @@ Data types
    Table 10: Data types
    @@ -138,7 +138,7 @@ psb_norm1(A, desc_a, info)
    a
    the local portion of the global sparse matrix $A$.
    @@ -166,7 +166,7 @@ Specified as: an object of type descdatapsb_desc_type.
    Function value
    is the 1-norm of sparse submatrix $A$.
    diff --git a/docs/html/node63.html b/docs/html/node63.html index d084adad1..a4d426808 100644 --- a/docs/html/node63.html +++ b/docs/html/node63.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_spmm Sparse - Up: Up: Computational routines - Previous: Previous: psb_norm1 1-Norm -   Contents

    @@ -54,7 +54,7 @@ psb_normi -- Infinity Norm of Sparse Matrix

    This function computes the infinity-norm of a matrix $A$:
    @@ -68,7 +68,7 @@ nrmi \leftarrow \|A\|_\infty --> \begin{displaymath}nrmi \leftarrow \Vert A\Vert _\infty \end{displaymath} @@ -77,11 +77,11 @@ nrmi \leftarrow \|A\|_\infty where:

    $A$
    represents the global matrix $A$
    @@ -89,7 +89,7 @@ where:


    -
    +
    $A$ Function
    @@ -97,7 +97,7 @@ Data types
    Table 11: Data types
    @@ -138,7 +138,7 @@ psb_normi(A, desc_a, info)
    a
    the local portion of the global sparse matrix $A$.
    @@ -166,7 +166,7 @@ Specified as: an object of type descdatapsb_desc_type.
    Function value
    is the infinity-norm of sparse submatrix $A$.
    diff --git a/docs/html/node64.html b/docs/html/node64.html index 9f15d14c7..12cdf45b1 100644 --- a/docs/html/node64.html +++ b/docs/html/node64.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: psb_spsm Triangular - Up: Up: Computational routines - Previous: Previous: psb_normi Infinity -   Contents

    @@ -88,7 +88,7 @@ y \leftarrow \alpha A^T x + \beta y
    $A$ Function
    \begin{displaymath} y \leftarrow \alpha A^T x + \beta y @@ -122,29 +122,29 @@ y \leftarrow \alpha A^H x + \beta y where: <DL> <DT><STRONG><SPAN CLASS=$x$
    is the global dense matrix $x_{:, :}$
    $y$
    is the global dense matrix $y_{:, :}$
    $A$
    is the global sparse matrix $A$
    @@ -152,7 +152,7 @@ where:


    -
    +
    @@ -160,19 +160,19 @@ Data types
    Table 12: Data types
    @@ -213,7 +213,7 @@ call psb_spmm(alpha, a, x, beta, y,desc_a, info, &
    alpha
    the scalar $\alpha$.
    @@ -229,7 +229,7 @@ Table 12.
    a
    the local portion of the sparse matrix $A$.
    @@ -244,7 +244,7 @@ Specified as: an object of type spdatapsb_Tspmat_type.
    x
    the local portion of global dense matrix $x$. @@ -258,16 +258,16 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 12. The rank of $x$ must be the same of $y$.
    beta
    the scalar $\beta$.
    @@ -282,7 +282,7 @@ Specified as: a number of the data type indicated in Table $y$. @@ -296,10 +296,10 @@ Intent: inout. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 12. The rank of $y$ must be the same of $x$.
    @@ -336,7 +336,7 @@ Type: optional Intent: in.
    Default: $trans = N$
    @@ -354,10 +354,10 @@ Type: optional Intent: inout.
    Specified as: a rank one array of the same type of $x$ and $y$ with the TARGET attribute. @@ -369,7 +369,7 @@ the TARGET attribute.
    y
    the local portion of result matrix $y$.
    @@ -400,26 +400,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Next: psb_spsm Triangular - Up: Up: Computational routines - Previous: Previous: psb_normi Infinity -   Contents
    diff --git a/docs/html/node65.html b/docs/html/node65.html index 7617d650b..0283a958e 100644 --- a/docs/html/node65.html +++ b/docs/html/node65.html @@ -14,6 +14,7 @@ + @@ -22,26 +23,26 @@
    - next - up - previous - contents
    - Next: Communication routines - Up: Next: psb_gemlt Entrywise + Up: Computational routines - Previous: Previous: psb_spmm Sparse -   Contents

    @@ -86,34 +87,34 @@ y &\leftarrow& \alpha T^{-H} D x + \beta y\\ where:
    $x$
    is the global dense matrix $x_{:, :}$
    $y$
    is the global dense matrix $y_{:, :}$
    $T$
    is the global sparse block triangular submatrix $T$
    $D$
    is the scaling diagonal matrix. @@ -129,7 +130,7 @@ call psb_spsm(alpha, t, x, beta, y, desc_a, info,&


    -
    +
    $A$, $x$, $y$, $\alpha$, $\beta$ Subroutine
    @@ -137,22 +138,22 @@ Data types
    Table 13: Data types
    @@ -186,7 +187,7 @@ Data types
    alpha
    the scalar $\alpha$.
    @@ -202,7 +203,7 @@ Table 13.
    t
    the global portion of the sparse matrix $T$.
    @@ -218,7 +219,7 @@ Specified as: an object type specified in
    x
    the local portion of global dense matrix $x$. @@ -232,16 +233,16 @@ Intent: in. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 13. The rank of $x$ must be the same of $y$.
    beta
    the scalar $\beta$.
    @@ -256,7 +257,7 @@ Specified as: a number of the data type indicated in Table $y$. @@ -270,10 +271,10 @@ Intent: inout. Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of type specified in Table 13. The rank of $y$ must be the same of $x$.
    @@ -308,7 +309,7 @@ Type: optional Intent: in.
    Default: $trans = N$
    @@ -334,7 +335,7 @@ Type: optional Intent: in.
    Default: $unitd = U$
    @@ -380,7 +381,7 @@ Default: $diag(1) = 1 (no scaling)$
    @@ -397,7 +398,7 @@ Type: optional Intent: inout.
    Specified as: a rank one array of the same type of $x$ with the TARGET attribute. @@ -410,7 +411,7 @@ TARGET attribute.
    y
    the local portion of global dense matrix $y$. @@ -442,26 +443,26 @@ An integer value; 0 means no error has been detected.
    - next - up - previous - contents
    - Next: Communication routines - Up: Next: psb_gemlt Entrywise + Up: Computational routines - Previous: Previous: psb_spmm Sparse -   Contents
    diff --git a/docs/html/node66.html b/docs/html/node66.html index e73a47eba..7112a9500 100644 --- a/docs/html/node66.html +++ b/docs/html/node66.html @@ -3,8 +3,8 @@ -Communication routines - +psb_gemlt -- Entrywise Product + @@ -14,64 +14,226 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_halo Halo - Up: userhtml - Previous: Next: psb_gediv Entrywise + Up: Computational routines + Previous: psb_spsm Triangular -   Contents

    -

    -Communication routines -

    -The routines in this chapter implement various global communication operators -on vectors associated with a discretization mesh. For auxiliary communication -routines not tied to a discretization space see 6. +

    +psb_gemlt -- Entrywise Product +

    -

    - -Subsections +This function computes the entrywise product between two vectors $x$ and +$y$ +

    +
    + - - -
    +\begin{displaymath}dot \leftarrow x(i) y(i).\end{displaymath} +
    +
    +

    + +

    +

    +psb_gemlt(x, y, desc_a, info)
+
    +

    +
    +
    $T$, $x$, $y$, $D$, $\alpha$, $\beta$ Subroutine
    + + +
    Table 14: +Data types
    + + + + + + + + + + + + + + + + +
    $dot$, $x$, $y$Function
    Short Precision Realpsb_gemlt
    Long Precision Realpsb_gemlt
    Short Precision Complexpsb_gemlt
    Long Precision Complexpsb_gemlt
    +
    +
    +

    +
    + +

    +

    +
    Type:
    +
    Synchronous. + +
    +
    On Entry
    +
    +
    +
    x
    +
    the local portion of global dense vector + $x$. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: an object of type vdatapsb_T_vect_type + containing numbers of type specified in + Table 2. + +
    +
    y
    +
    the local portion of global dense vector + $y$. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: an object of type vdatapsb_T_vect_type + containing numbers of type specified in + Table 2. + +
    +
    desc_a
    +
    contains data structures for communications. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: an object of type descdatapsb_desc_type. + +
    +
    On Return
    +
    +
    +
    y
    +
    the local portion of result submatrix $y$. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type + indicated in Table 14. + +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected. +
    +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_gediv Entrywise + Up: Computational routines + Previous: psb_spsm Triangular +   Contents
    + diff --git a/docs/html/node67.html b/docs/html/node67.html index 1ab4ea308..ff68685c8 100644 --- a/docs/html/node67.html +++ b/docs/html/node67.html @@ -3,8 +3,8 @@ -psb_halo -- Halo Data Communication - +psb_gediv -- Entrywise Division + @@ -16,146 +16,153 @@ - +
    - next - + up - previous - contents
    - Next: psb_ovrl Overlap - Up: Communication routines - Previous: Communication routines -   Next: psb_geinv Entrywise + Up: Computational routines + Previous: psb_gemlt Entrywise +   Contents

    -

    -psb_halo -- Halo Data Communication +

    +psb_gediv -- Entrywise Division

    -These subroutines gathers the values of the halo -elements: - -

    +This function computes the entrywise division between two vectors $x$ and +$y$

    \begin{displaymath}x \leftarrow x \end{displaymath} + WIDTH="96" HEIGHT="29" BORDER="0" + SRC="img60.png" + ALT="\begin{displaymath}/ \leftarrow x(i)/y(i).\end{displaymath}">

    -where: -
    -
    $x$
    -
    is a global dense submatrix. -
    -

    +

    +psb_gediv(x, y, desc_a, info, [flag)
+

    -
    +
    - - +
    Table 14: +Table 15: Data types
    -
    +
    - - - - + ALT="$x$">, $y$ + - + - + - + - +
    $\alpha$, $/$, $x$Subroutine
    Integerpsb_haloFunction
    Short Precision Realpsb_halopsb_gediv
    Long Precision Realpsb_halopsb_gediv
    Short Precision Complexpsb_halopsb_gediv
    Long Precision Complexpsb_halopsb_gediv
    -


    -

    -
    -\begin{lstlisting} -call psb_halo(x, desc_a, info) -call psb_halo(x, desc_a, info, work, data) -\end{lstlisting} -
    -

    Type:
    Synchronous. +
    On Entry
    x
    -
    global dense matrix the local portion of global dense vector + $x$. -
    +
    Scope: local
    Type: required
    -Intent: inout. +Intent: in.
    -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 14. +Specified as: an object of type vdatapsb_T_vect_type + containing numbers of type specified in + Table 2. + +
    +
    y
    +
    the local portion of global dense vector + $y$. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: an object of type vdatapsb_T_vect_type + containing numbers of type specified in + Table 2. +
    desc_a
    contains data structures for communications. @@ -166,41 +173,29 @@ Type: required
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: an object of type descdatapsb_desc_type. +
    -
    work
    -
    the work array. +
    flag
    +
    check if any of the $y(i) = 0$, and in case returns error halting the computation.
    Scope: local
    Type: optional + Intent: in.
    -Intent: inout. -
    -Specified as: a rank one array of the same type of $x$. -
    -
    data
    -
    index list selector. -
    -Scope: global -
    -Type: optional -
    -Specified as: an integer. Values:psb_comm_halo_,psb_comm_mov_, -psb_comm_ext_, default: psb_comm_halo_. Chooses the -index list on which to base the data exchange. - -

    +Specified as: the logical value flag=.true. +

    On Return
    x
    -
    global dense result matrix the local portion of result submatrix $x$.
    @@ -210,15 +205,12 @@ Type: required
    Intent: inout.
    -Returned as: a rank one or two array -containing numbers of type specified in -Table 14. +Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type + indicated in Table 14. +
    info
    -
    the local portion of result submatrix $y$. +
    Error code.
    Scope: local
    @@ -226,406 +218,34 @@ Type: required
    Intent: out.
    -An integer value that contains an error code. +An integer value; 0 means no error has been detected.
    -
    - - - -
    Figure 7: -Sample discretization mesh.
    -
    -\includegraphics[scale=0.45]{figures/try8x8.eps} - -\includegraphics[scale=0.45]{figures/try8x8} - -
    -
    - -

    -Usage Example -Consider the discretization mesh depicted in fig. 7, -partitioned among two processes as shown by the dashed line; the data -distribution is such that each process will own 32 entries in the -index space, with a halo made of 8 entries placed at local indices 33 -through 40. If process 0 assigns an initial value of 1 to its entries -in the $x$ vector, and process 1 assigns a value of 2, then after a -call to psb_halo the contents of the local vectors will be the -following: -
    -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -Process 0  -Process 1
    - I GLOB(I) X(I)   I GLOB(I) X(I)
    - 1 1 1.0   1 33 2.0
    - 2 2 1.0   2 34 2.0
    - 3 3 1.0   3 35 2.0
    - 4 4 1.0   4 36 2.0
    - 5 5 1.0   5 37 2.0
    - 6 6 1.0   6 38 2.0
    - 7 7 1.0   7 39 2.0
    - 8 8 1.0   8 40 2.0
    - 9 9 1.0   9 41 2.0
    - 10 10 1.0   10 42 2.0
    - 11 11 1.0   11 43 2.0
    - 12 12 1.0   12 44 2.0
    - 13 13 1.0   13 45 2.0
    - 14 14 1.0   14 46 2.0
    - 15 15 1.0   15 47 2.0
    - 16 16 1.0   16 48 2.0
    - 17 17 1.0   17 49 2.0
    - 18 18 1.0   18 50 2.0
    - 19 19 1.0   19 51 2.0
    - 20 20 1.0   20 52 2.0
    -21 21 1.0   21 53 2.0
    -22 22 1.0   22 54 2.0
    -23 23 1.0   23 55 2.0
    -24 24 1.0   24 56 2.0
    -25 25 1.0   25 57 2.0
    -26 26 1.0   26 58 2.0
    -27 27 1.0   27 59 2.0
    -28 28 1.0   28 60 2.0
    -29 29 1.0   29 61 2.0
    -30 30 1.0   30 62 2.0
    -31 31 1.0   31 63 2.0
    -32 32 1.0   32 64 2.0
    -33 33 2.0   33 25 1.0
    -34 34 2.0   34 26 1.0
    -35 35 2.0   35 27 1.0
    -36 36 2.0   36 28 1.0
    -37 37 2.0   37 29 1.0
    -38 38 2.0   38 30 1.0
    -39 39 2.0   39 31 1.0
    -40 40 2.0   40 32 1.0
    -
    -

    - next - + up - previous - contents
    - Next: psb_ovrl Overlap - Up: Communication routines - Previous: Communication routines -   Next: psb_geinv Entrywise + Up: Computational routines + Previous: psb_gemlt Entrywise +   Contents
    diff --git a/docs/html/node68.html b/docs/html/node68.html index eff574f40..56b7396a1 100644 --- a/docs/html/node68.html +++ b/docs/html/node68.html @@ -3,8 +3,8 @@ -psb_ovrl -- Overlap Update - +psb_geinv -- Entrywise Inversion + @@ -14,157 +14,136 @@ - - +
    - next - + up - previous - contents
    - Next: psb_gather Gather - Up: Communication routines - Previous: psb_halo Halo -   Next: Communication routines + Up: Computational routines + Previous: psb_gediv Entrywise +   Contents

    -

    -psb_ovrl -- Overlap Update +

    +psb_geinv -- Entrywise Inversion

    -These subroutines applies an overlap operator to the input vector: - -

    +This function computes the entrywise inverse of a vector $x$ and puts it into +$y$

    \begin{displaymath}x \leftarrow Q x \end{displaymath} + ALT="\begin{displaymath}/ \leftarrow 1/x(i).\end{displaymath}">

    -where: -
    -
    $x$
    -
    is the global dense submatrix $x$ -
    -
    $Q$
    -
    is the overlap operator; it is the composition of two -operators $P_a$ and $P^{T}$. -
    -

    +

    +psb_geinv(x, y, desc_a, info, [flag)
+

    -
    +
    - - +
    Table 15: +Table 16: Data types
    -
    +
    - + ALT="$x$">, $y$ + - + - + - + - +
    $/$, $x$SubroutineFunction
    Short Precision Realpsb_ovrlpsb_geinv
    Long Precision Realpsb_ovrlpsb_geinv
    Short Precision Complexpsb_ovrlpsb_geinv
    Long Precision Complexpsb_ovrlpsb_geinv
    -


    -

    -
    -\begin{lstlisting} -call psb_ovrl(x, desc_a, info) -call psb_ovrl(x, desc_a, info, update=update_type, work=work) -\end{lstlisting} -
    -

    Type:
    Synchronous. +
    On Entry
    x
    -
    global dense matrix the local portion of global dense vector + $x$. -
    +
    Scope: local
    Type: required
    -Intent: inout. +Intent: in.
    -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 15. +Specified as: an object of type vdatapsb_T_vect_type + containing numbers of type specified in + Table 2. +
    desc_a
    contains data structures for communications. @@ -175,65 +154,29 @@ Type: required
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: an object of type descdatapsb_desc_type. +
    -
    update
    -
    Update operator. -
    -
    update = psb_none_
    -
    Do nothing; -
    -
    update = psb_add_
    -
    Sum overlap entries, i.e. apply $P^T$; -
    -
    update = psb_avg_
    -
    Average overlap entries, i.e. apply $P_aP^T$; -
    -
    -Scope: global -
    -Intent: in. -
    -Default: -$update\_type = psb\_avg\_ $ -
    -Scope: global -
    -Specified as: a integer variable. -
    -
    work
    -
    the work array. +
    flag
    +
    check if any of the $x(i) = 0$, and in case returns error halting the computation.
    Scope: local
    Type: optional + Intent: in.
    -Intent: inout. -
    -Specified as: a one dimensional array of the same type of $x$. - -

    +Specified as: the logical value flag=.true. +

    On Return
    -
    x
    -
    global dense result matrix y +
    the local portion of result submatrix $x$.
    @@ -241,11 +184,11 @@ Scope: local
    Type: required
    -Intent: inout. +Intent: out.
    -Specified as: an array of rank one or two -containing numbers of type specified in -Table 15. +Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type + indicated in Table 16. +
    info
    Error code. @@ -260,500 +203,30 @@ An integer value; 0 means no error has been detected.
    -

    -Notes - -

      -
    1. If there is no overlap in the data distribution associated with - the descriptor, no operations are performed; -
      2. -
    2. The operator $P^{T}$ performs the reduction sum of overlap -elements; it is a “prolongation” operator $P^T$ that -replicates overlap elements, accounting for the physical replication -of data; -
      3. -
    3. The operator $P_a$ performs a scaling on the overlap elements by -the amount of replication; thus, when combined with the reduction -operator, it implements the average of replicated elements over all of -their instances. -
      4. -
    - -

    - -

    - - - -
    Figure 8: -Sample discretization mesh.
    -
    -\includegraphics[scale=0.65]{figures/try8x8_ov.eps} - -\includegraphics[scale=0.65]{figures/try8x8_ov} - -
    -
    - -Example of use -Consider the discretization mesh depicted in fig. 8, -partitioned among two processes as shown by the dashed lines, with an -overlap of 1 extra layer with respect to the partition of -fig. 7; the data -distribution is such that each process will own 40 entries in the -index space, with an overlap of 16 entries placed at local indices 25 -through 40; the halo will run from local index 41 through local index 48.. If process 0 assigns an initial value of 1 to its entries -in the $x$ vector, and process 1 assigns a value of 2, then after a -call to psb_ovrl with psb_avg_ and a call to -psb_halo_ the contents of the local vectors will be the -following (showing a transition among the two subdomains) - -

    -
    -

    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -Process 0  -Process 1
    - I GLOB(I) X(I)   I GLOB(I) X(I)
    - 1 1 1.0   1 33 1.5
    - 2 2 1.0   2 34 1.5
    - 3 3 1.0   3 35 1.5
    - 4 4 1.0   4 36 1.5
    - 5 5 1.0   5 37 1.5
    - 6 6 1.0   6 38 1.5
    - 7 7 1.0   7 39 1.5
    - 8 8 1.0   8 40 1.5
    - 9 9 1.0   9 41 2.0
    - 10 10 1.0   10 42 2.0
    - 11 11 1.0   11 43 2.0
    - 12 12 1.0   12 44 2.0
    - 13 13 1.0   13 45 2.0
    - 14 14 1.0   14 46 2.0
    - 15 15 1.0   15 47 2.0
    - 16 16 1.0   16 48 2.0
    - 17 17 1.0   17 49 2.0
    - 18 18 1.0   18 50 2.0
    - 19 19 1.0   19 51 2.0
    - 20 20 1.0   20 52 2.0
    - 21 21 1.0   21 53 2.0
    - 22 22 1.0   22 54 2.0
    - 23 23 1.0   23 55 2.0
    - 24 24 1.0   24 56 2.0
    - 25 25 1.5   25 57 2.0
    - 26 26 1.5   26 58 2.0
    - 27 27 1.5   27 59 2.0
    - 28 28 1.5   28 60 2.0
    - 29 29 1.5   29 61 2.0
    - 30 30 1.5   30 62 2.0
    - 31 31 1.5   31 63 2.0
    - 32 32 1.5   32 64 2.0
    - 33 33 1.5   33 25 1.5
    - 34 34 1.5   34 26 1.5
    - 35 35 1.5   35 27 1.5
    - 36 36 1.5   36 28 1.5
    - 37 37 1.5   37 29 1.5
    - 38 38 1.5   38 30 1.5
    - 39 39 1.5   39 31 1.5
    - 40 40 1.5   40 32 1.5
    - 41 41 2.0   41 17 1.0
    - 42 42 2.0   42 18 1.0
    - 43 43 2.0   43 19 1.0
    - 44 44 2.0   44 20 1.0
    - 45 45 2.0   45 21 1.0
    - 46 46 2.0   46 22 1.0
    - 47 47 2.0   47 23 1.0
    - 48 48 2.0   48 24 1.0
    -
    -

    - next - + up - previous - contents
    - Next: psb_gather Gather - Up: Communication routines - Previous: psb_halo Halo -   Next: Communication routines + Up: Computational routines + Previous: psb_gediv Entrywise +   Contents
    diff --git a/docs/html/node69.html b/docs/html/node69.html index 79a9d84cf..dd04cb65d 100644 --- a/docs/html/node69.html +++ b/docs/html/node69.html @@ -3,8 +3,8 @@ -psb_gather -- Gather Global Dense Matrix - +Communication routines + @@ -14,257 +14,64 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_scatter Scatter - Up: Communication routines - Previous: psb_ovrl Overlap -   Next: psb_halo Halo + Up: userhtml + Previous: psb_geinv Entrywise +   Contents

    -

    -psb_gather -- Gather Global Dense Matrix -

    +

    +Communication routines +

    +The routines in this chapter implement various global communication operators +on vectors associated with a discretization mesh. For auxiliary communication +routines not tied to a discretization space see 6.

    -These subroutines collect the portions of global dense matrix -distributed over all process into one single array stored on one -process. +

    + +Subsections -

    -

    -
    - - -\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath} -
    -
    -

    -where: -
    -
    $glob\_x$
    -
    is the global submatrix -$glob\_x_{1:m,1:n}$ -
    -
    $loc\_x_i$
    -
    is the local portion of global dense matrix on -process $i$. -
    -
    $collect$
    -
    is the collect function. -
    -
    - -

    -

    -
    - - - -
    Table 16: -Data types
    -
    - - - - - - - - - - - - - - - - - - - -
    $x_i, y$Subroutine
    Integerpsb_gather
    Short Precision Realpsb_gather
    Long Precision Realpsb_gather
    Short Precision Complexpsb_gather
    Long Precision Complexpsb_gather
    -
    -
    -

    -
    - -

    -
    -\begin{lstlisting} -call psb_gather(glob_x, loc_x, desc_a, info, root) -call psb_gather(glob_x, loc_x, desc_a, info, root) -\end{lstlisting} -
    - -

    -

    -
    Type:
    -
    Synchronous. -
    -
    On Entry
    -
    -
    -
    loc_x
    -
    the local portion of global dense matrix -$glob\_x$. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -indicated in Table 16. -
    -
    desc_a
    -
    contains data structures for communications. -
    -Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    root
    -
    The process that holds the global copy. If $root=-1$ all - the processes will have a copy of the global vector. -
    -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Specified as: an integer variable -$-1\le root\le np-1$, default $-1$. -
    -
    On Return
    -
    -
    -
    glob_x
    -
    The array where the local parts must be gathered. -
    -Scope: global -
    -Type: required -
    -Intent: out. -
    -Specified as: a rank one or two array with the ALLOCATABLE attribute. -
    -
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. -
    -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_scatter Scatter - Up: Communication routines - Previous: psb_ovrl Overlap -   Contents
    - + + +
    diff --git a/docs/html/node7.html b/docs/html/node7.html index 155a14f7a..2823bee49 100644 --- a/docs/html/node7.html +++ b/docs/html/node7.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Programming model - Up: Up: Application structure - Previous: Previous: Application structure -   Contents

    @@ -61,7 +61,7 @@ to the constraints outlined in sec. 2.3< $1\dots n_{\hbox{row}_i}$ --> $1\dots n_{\hbox{row}_i}$; @@ -70,7 +70,7 @@ to the constraints outlined in sec. 2.3< $n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$ --> $n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$; diff --git a/docs/html/node70.html b/docs/html/node70.html index d16ab5109..cca8cb371 100644 --- a/docs/html/node70.html +++ b/docs/html/node70.html @@ -3,8 +3,8 @@ -psb_scatter -- Scatter Global Dense Matrix - +psb_halo -- Halo Data Communication + @@ -14,98 +14,77 @@ + - +
    - next - + up - previous - contents
    - Next: Data management routines - Up: Communication routines - Previous: psb_gather Gather -   Next: psb_ovrl Overlap + Up: Communication routines + Previous: Communication routines +   Contents

    -

    -psb_scatter -- Scatter Global Dense Matrix +

    +psb_halo -- Halo Data Communication

    -These subroutines scatters the portions of global dense matrix owned -by a process to all the processes in the processes grid. +These subroutines gathers the values of the halo +elements:


    \begin{displaymath}loc\_x_i \leftarrow scatter(glob\_x) \end{displaymath} + WIDTH="43" HEIGHT="24" BORDER="0" + SRC="img65.png" + ALT="\begin{displaymath}x \leftarrow x \end{displaymath}">

    where:
    $glob\_x$
    -
    is the global matrix -$glob\_x_{1:m,1:n}$ -
    -
    $loc\_x_i$
    -
    is the local portion of global dense matrix on -process $i$. -
    -
    $scatter$
    -
    is the scatter function. + WIDTH="13" HEIGHT="14" ALIGN="BOTTOM" BORDER="0" + SRC="img20.png" + ALT="$x$"> +
    is a global dense submatrix.


    -
    +
    @@ -113,25 +92,28 @@ Data types
    Table 17: Data types
    + WIDTH="14" HEIGHT="14" ALIGN="BOTTOM" BORDER="0" + SRC="img22.png" + ALT="$\alpha$">, $x$ - + - + - + - + - +
    $x_i, y$ Subroutine
    Integerpsb_scatterpsb_halo
    Short Precision Realpsb_scatterpsb_halo
    Long Precision Realpsb_scatterpsb_halo
    Short Precision Complexpsb_scatterpsb_halo
    Long Precision Complexpsb_scatterpsb_halo
    @@ -143,10 +125,11 @@ Data types


    \begin{lstlisting} -call psb_scatter(glob_x, loc_x, desc_a, info, root, mold) +call psb_halo(x, desc_a, info) +call psb_halo(x, desc_a, info, work, data) \end{lstlisting}
    @@ -158,16 +141,21 @@ call psb_scatter(glob_x, loc_x, desc_a, info, root, mold)

    On Entry
    -
    glob_x
    -
    The array that must be scattered into local pieces. +
    x
    +
    global dense matrix $x$.
    -Scope: global +Scope: local
    -Type: required +Type: required
    -Intent: in. +Intent: inout.
    -Specified as: a rank one or two array. +Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type +containing numbers of type specified in +Table 17.
    desc_a
    contains data structures for communications. @@ -180,61 +168,57 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    -
    root
    -
    The process that holds the global copy. If $root=-1$ all - the processes have a copy of the global vector. +
    work
    +
    the work array.
    -Scope: global +Scope: local
    Type: optional
    -Intent: in. +Intent: inout.
    -Specified as: an integer variable -$-1\le root\le np-1$, default -psb_root_, i.e. process 0. +Specified as: a rank one array of the same type of $x$.
    -
    mold
    -
    The desired dynamic type for the internal vector storage. +
    data
    +
    index list selector.
    -Scope: local. +Scope: global
    -Type: optional. +Type: optional
    -Intent: in. -
    -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is -only allowed when loc_x is of type vdatapsb_T_vect_type. +Specified as: an integer. Values:psb_comm_halo_,psb_comm_mov_, +psb_comm_ext_, default: psb_comm_halo_. Chooses the +index list on which to base the data exchange. + +

    On Return
    -
    loc_x
    -
    the local portion of global dense matrix -$glob\_x$. +
    x
    +
    global dense result matrix $x$.
    Scope: local
    -Type: required +Type: required
    -Intent: out. +Intent: inout.
    -Specified as: a rank one or two ALLOCATABLE array or an object of type vdatapsb_T_vect_type containing numbers of the type -indicated in Table 17. +Returned as: a rank one or two array +containing numbers of type specified in +Table 17.
    info
    -
    Error code. +
    the local portion of result submatrix $y$.
    Scope: local
    @@ -242,34 +226,406 @@ Type: required
    Intent: out.
    -An integer value; 0 means no error has been detected. +An integer value that contains an error code.
    +
    + + + +
    Figure 7: +Sample discretization mesh.
    +
    +\includegraphics[scale=0.45]{figures/try8x8.eps} + +\includegraphics[scale=0.45]{figures/try8x8} + +
    +
    + +

    +Usage Example +Consider the discretization mesh depicted in fig. 7, +partitioned among two processes as shown by the dashed line; the data +distribution is such that each process will own 32 entries in the +index space, with a halo made of 8 entries placed at local indices 33 +through 40. If process 0 assigns an initial value of 1 to its entries +in the $x$ vector, and process 1 assigns a value of 2, then after a +call to psb_halo the contents of the local vectors will be the +following: +
    +

    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +Process 0  +Process 1
    + I GLOB(I) X(I)   I GLOB(I) X(I)
    + 1 1 1.0   1 33 2.0
    + 2 2 1.0   2 34 2.0
    + 3 3 1.0   3 35 2.0
    + 4 4 1.0   4 36 2.0
    + 5 5 1.0   5 37 2.0
    + 6 6 1.0   6 38 2.0
    + 7 7 1.0   7 39 2.0
    + 8 8 1.0   8 40 2.0
    + 9 9 1.0   9 41 2.0
    + 10 10 1.0   10 42 2.0
    + 11 11 1.0   11 43 2.0
    + 12 12 1.0   12 44 2.0
    + 13 13 1.0   13 45 2.0
    + 14 14 1.0   14 46 2.0
    + 15 15 1.0   15 47 2.0
    + 16 16 1.0   16 48 2.0
    + 17 17 1.0   17 49 2.0
    + 18 18 1.0   18 50 2.0
    + 19 19 1.0   19 51 2.0
    + 20 20 1.0   20 52 2.0
    +21 21 1.0   21 53 2.0
    +22 22 1.0   22 54 2.0
    +23 23 1.0   23 55 2.0
    +24 24 1.0   24 56 2.0
    +25 25 1.0   25 57 2.0
    +26 26 1.0   26 58 2.0
    +27 27 1.0   27 59 2.0
    +28 28 1.0   28 60 2.0
    +29 29 1.0   29 61 2.0
    +30 30 1.0   30 62 2.0
    +31 31 1.0   31 63 2.0
    +32 32 1.0   32 64 2.0
    +33 33 2.0   33 25 1.0
    +34 34 2.0   34 26 1.0
    +35 35 2.0   35 27 1.0
    +36 36 2.0   36 28 1.0
    +37 37 2.0   37 29 1.0
    +38 38 2.0   38 30 1.0
    +39 39 2.0   39 31 1.0
    +40 40 2.0   40 32 1.0
    +
    +

    - next - + up - previous - contents
    - Next: Data management routines - Up: Communication routines - Previous: psb_gather Gather -   Next: psb_ovrl Overlap + Up: Communication routines + Previous: Communication routines +   Contents
    diff --git a/docs/html/node71.html b/docs/html/node71.html index ae405046e..1947ee48f 100644 --- a/docs/html/node71.html +++ b/docs/html/node71.html @@ -3,8 +3,8 @@ -Data management routines - +psb_ovrl -- Overlap Update + @@ -14,120 +14,748 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_cdall Allocates - Up: userhtml - Previous: psb_scatter Scatter -   Next: psb_gather Gather + Up: Communication routines + Previous: psb_halo Halo +   Contents

    -

    - -
    -Data management routines -

    +

    +psb_ovrl -- Overlap Update +

    -

    - -Subsections +These subroutines applies an overlap operator to the input vector: - - -
    +

    +

    +
    + + +\begin{displaymath}x \leftarrow Q x \end{displaymath} +
    +
    +

    +where: +
    +
    $x$
    +
    is the global dense submatrix $x$ +
    +
    $Q$
    +
    is the overlap operator; it is the composition of two +operators $P_a$ and $P^{T}$. +
    +
    + +

    +

    +
    + + + +
    Table 18: +Data types
    +
    + + + + + + + + + + + + + + + + +
    $x$Subroutine
    Short Precision Realpsb_ovrl
    Long Precision Realpsb_ovrl
    Short Precision Complexpsb_ovrl
    Long Precision Complexpsb_ovrl
    +
    +
    +

    +
    + +

    +
    +\begin{lstlisting} +call psb_ovrl(x, desc_a, info) +call psb_ovrl(x, desc_a, info, update=update_type, work=work) +\end{lstlisting} +
    + +

    +

    +
    Type:
    +
    Synchronous. +
    +
    On Entry
    +
    +
    +
    x
    +
    global dense matrix $x$. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type +containing numbers of type specified in +Table 18. +
    +
    desc_a
    +
    contains data structures for communications. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    update
    +
    Update operator. +
    +
    update = psb_none_
    +
    Do nothing; +
    +
    update = psb_add_
    +
    Sum overlap entries, i.e. apply $P^T$; +
    +
    update = psb_avg_
    +
    Average overlap entries, i.e. apply $P_aP^T$; +
    +
    +Scope: global +
    +Intent: in. +
    +Default: +$update\_type = psb\_avg\_ $ +
    +Scope: global +
    +Specified as: a integer variable. +
    +
    work
    +
    the work array. +
    +Scope: local +
    +Type: optional +
    +Intent: inout. +
    +Specified as: a one dimensional array of the same type of $x$. + +

    +

    +
    On Return
    +
    +
    +
    x
    +
    global dense result matrix $x$. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: an array of rank one or two +containing numbers of type specified in +Table 18. +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected. +
    +
    + +

    +Notes + +

      +
    1. If there is no overlap in the data distribution associated with + the descriptor, no operations are performed; +
      2. +
    2. The operator $P^{T}$ performs the reduction sum of overlap +elements; it is a “prolongation” operator $P^T$ that +replicates overlap elements, accounting for the physical replication +of data; +
      3. +
    3. The operator $P_a$ performs a scaling on the overlap elements by +the amount of replication; thus, when combined with the reduction +operator, it implements the average of replicated elements over all of +their instances. +
      4. +
    + +

    + +

    + + + +
    Figure 8: +Sample discretization mesh.
    +
    +\includegraphics[scale=0.65]{figures/try8x8_ov.eps} + +\includegraphics[scale=0.65]{figures/try8x8_ov} + +
    +
    + +Example of use +Consider the discretization mesh depicted in fig. 8, +partitioned among two processes as shown by the dashed lines, with an +overlap of 1 extra layer with respect to the partition of +fig. 7; the data +distribution is such that each process will own 40 entries in the +index space, with an overlap of 16 entries placed at local indices 25 +through 40; the halo will run from local index 41 through local index 48.. If process 0 assigns an initial value of 1 to its entries +in the $x$ vector, and process 1 assigns a value of 2, then after a +call to psb_ovrl with psb_avg_ and a call to +psb_halo_ the contents of the local vectors will be the +following (showing a transition among the two subdomains) + +

    +
    +

    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +Process 0  +Process 1
    + I GLOB(I) X(I)   I GLOB(I) X(I)
    + 1 1 1.0   1 33 1.5
    + 2 2 1.0   2 34 1.5
    + 3 3 1.0   3 35 1.5
    + 4 4 1.0   4 36 1.5
    + 5 5 1.0   5 37 1.5
    + 6 6 1.0   6 38 1.5
    + 7 7 1.0   7 39 1.5
    + 8 8 1.0   8 40 1.5
    + 9 9 1.0   9 41 2.0
    + 10 10 1.0   10 42 2.0
    + 11 11 1.0   11 43 2.0
    + 12 12 1.0   12 44 2.0
    + 13 13 1.0   13 45 2.0
    + 14 14 1.0   14 46 2.0
    + 15 15 1.0   15 47 2.0
    + 16 16 1.0   16 48 2.0
    + 17 17 1.0   17 49 2.0
    + 18 18 1.0   18 50 2.0
    + 19 19 1.0   19 51 2.0
    + 20 20 1.0   20 52 2.0
    + 21 21 1.0   21 53 2.0
    + 22 22 1.0   22 54 2.0
    + 23 23 1.0   23 55 2.0
    + 24 24 1.0   24 56 2.0
    + 25 25 1.5   25 57 2.0
    + 26 26 1.5   26 58 2.0
    + 27 27 1.5   27 59 2.0
    + 28 28 1.5   28 60 2.0
    + 29 29 1.5   29 61 2.0
    + 30 30 1.5   30 62 2.0
    + 31 31 1.5   31 63 2.0
    + 32 32 1.5   32 64 2.0
    + 33 33 1.5   33 25 1.5
    + 34 34 1.5   34 26 1.5
    + 35 35 1.5   35 27 1.5
    + 36 36 1.5   36 28 1.5
    + 37 37 1.5   37 29 1.5
    + 38 38 1.5   38 30 1.5
    + 39 39 1.5   39 31 1.5
    + 40 40 1.5   40 32 1.5
    + 41 41 2.0   41 17 1.0
    + 42 42 2.0   42 18 1.0
    + 43 43 2.0   43 19 1.0
    + 44 44 2.0   44 20 1.0
    + 45 45 2.0   45 21 1.0
    + 46 46 2.0   46 22 1.0
    + 47 47 2.0   47 23 1.0
    + 48 48 2.0   48 24 1.0
    +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_gather Gather + Up: Communication routines + Previous: psb_halo Halo +   Contents
    + diff --git a/docs/html/node72.html b/docs/html/node72.html index 6277372ec..dbff365ae 100644 --- a/docs/html/node72.html +++ b/docs/html/node72.html @@ -3,8 +3,8 @@ -psb_cdall -- Allocates a communication descriptor - +psb_gather -- Gather Global Dense Matrix + @@ -16,226 +16,215 @@ - +
    - next - + up - previous - contents
    - Next: psb_cdins Communication - Up: Data management routines - Previous: Data management routines -   Next: psb_scatter Scatter + Up: Communication routines + Previous: psb_ovrl Overlap +   Contents

    -

    -psb_cdall -- Allocates a communication descriptor +

    +psb_gather -- Gather Global Dense Matrix

    -

    -call psb_cdall(icontxt, desc_a, info,mg=mg,parts=parts)
-call psb_cdall(icontxt, desc_a, info,vg=vg,[mg=mg,flag=flag])
-call psb_cdall(icontxt, desc_a, info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx])
-call psb_cdall(icontxt, desc_a, info,nl=nl)
-call psb_cdall(icontxt, desc_a, info,mg=mg,repl=.true.)
-
    +These subroutines collect the portions of global dense matrix +distributed over all process into one single array stored on one +process.

    -This subroutine initializes the communication descriptor associated -with an index space. One of the optional arguments -parts, vg, vl, nl or repl -must be specified, thereby choosing -the specific initialization strategy. +

    +
    + + +\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath} +
    +
    +

    +where:
    -
    On Entry
    -
    -
    -
    Type:
    -
    Synchronous. -
    -
    icontxt
    -
    the communication context. -
    -Scope:global. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer value. -
    -
    vg
    -
    Data allocation: each index $i\in \{1\dots mg\}$ is allocated - to process $vg(i)$. -
    -Scope:global. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer array. + WIDTH="90" HEIGHT="30" ALIGN="MIDDLE" BORDER="0" + SRC="img81.png" + ALT="$glob\_x_{1:m,1:n}$">
    -
    flag
    -
    Specifies whether entries in $vg$ are zero- or one-based. -
    -Scope:global. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer value $0,1$, default $0$. - -

    +

    $loc\_x_i$
    +
    is the local portion of global dense matrix on +process $i$.
    -
    mg
    -
    the (global) number of rows of the problem. -
    -Scope:global. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer value. It is required if parts or -repl is specified, it is optional if vg is specified. -
    -
    parts
    -
    the subroutine that defines the partitioning scheme. -
    -Scope:global. -
    -Type:required. -
    -Specified as: a subroutine. -
    -
    vl
    -
    Data allocation: the set of global indices - $vl(1:nl)$ belonging to the calling process. -
    -Scope:local. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer array. -
    -
    nl
    -
    Data allocation: in a generalized block-row distribution the - number of indices belonging to the current process. -
    -Scope:local. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer value. May be specified together with -vl. -
    -
    repl
    -
    Data allocation: build a replicated index space - (i.e. all processes own all indices). -
    -Scope:global. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: the logical value .true. -
    -
    globalcheck
    -
    Data allocation: do global checks on the local - index lists vl -
    -Scope:global. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: a logical value, default: .false. -
    -
    lidx
    -
    Data allocation: the set of local indices - $lidx(1:nl)$ to be assigned to the global indices $vl$. -
    -Scope:local. -
    -Type:optional. -
    -Intent: in. -
    -Specified as: an integer array. +
    $collect$
    +
    is the collect function.
    +

    +

    +
    + + + +
    Table 19: +Data types
    +
    + + + + + + + + + + + + + + + + + + + +
    $x_i, y$Subroutine
    Integerpsb_gather
    Short Precision Realpsb_gather
    Long Precision Realpsb_gather
    Short Precision Complexpsb_gather
    Long Precision Complexpsb_gather
    +
    +
    +

    +
    + +

    +
    +\begin{lstlisting} +call psb_gather(glob_x, loc_x, desc_a, info, root) +call psb_gather(glob_x, loc_x, desc_a, info, root) +\end{lstlisting} +
    +

    +
    Type:
    +
    Synchronous. +
    +
    On Entry
    +
    +
    +
    loc_x
    +
    the local portion of global dense matrix +$glob\_x$. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type +indicated in Table 19. +
    +
    desc_a
    +
    contains data structures for communications. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    root
    +
    The process that holds the global copy. If $root=-1$ all + the processes will have a copy of the global vector. +
    +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Specified as: an integer variable +$-1\le root\le np-1$, default $-1$. +
    On Return
    -
    desc_a
    -
    the communication descriptor. +
    glob_x
    +
    The array where the local parts must be gathered.
    -Scope:local. +Scope: global
    -Type:required. +Type: required
    Intent: out.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: a rank one or two array with the ALLOCATABLE attribute.
    info
    Error code. @@ -250,199 +239,30 @@ An integer value; 0 means no error has been detected.
    -

    -Notes - -

      -
    1. One of the optional arguments parts, vg, - vl, nl or repl must be specified, thereby choosing the - initialization strategy as follows: -
      -
      parts
      -
      In this case we have a subroutine specifying the mapping - between global indices and process/local index pairs. If this - optional argument is specified, then it is mandatory to - specify the argument mg as well. - The subroutine must conform to the following interface: -
      -  interface 
-     subroutine psb_parts(glob_index,mg,np,pv,nv)
-       integer, intent (in)  :: glob_index,np,mg
-       integer, intent (out) :: nv, pv(*)
-     end subroutine psb_parts
-  end interface
-
      - The input arguments are: -
      -
      glob_index
      -
      The global index to be mapped; - -
      -
      np
      -
      The number of processes in the mapping; - -
      -
      mg
      -
      The total number of global rows in the mapping; - -
      -
      - The output arguments are: -
      -
      nv
      -
      The number of entries in pv; - -
      -
      pv
      -
      A vector containing the indices of the processes to - which the global index should be assigend; each entry must satisfy - -$0\le pv(i) < np$; if $nv>1$ we have an index assigned to multiple - processes, i.e. we have an overlap among the subdomains. - -
      -
      -
      -
      vg
      -
      In this case the association between an index and a process - is specified via an integer vector vg(1:mg); - each index -$i\in \{1\dots mg\}$ is assigned to process $vg(i)$. - The vector vg must be identical on all - calling processes; its entries may have the ranges $(0\dots np-1)$ - or $(1\dots np)$ according to the value of flag. - The size $mg$ may be specified via the optional argument mg; - the default is to use the entire vector vg, thus having - mg=size(vg). -
      -
      vl
      -
      In this case we are specifying the list of indices - vl(1:nl) assigned to the current process; thus, the global - problem size $mg$ is given by - the range of the aggregate of the individual vectors vl specified - in the calling processes. The size may be specified via the optional - argument nl; the default is to use the entire vector - vl, thus having nl=size(vl). - If globalcheck=.true. the subroutine will check how many - times each entry in the global index space $(1\dots mg)$ is - specified in the input lists vl, thus allowing for the - presence of overlap in the input, and checking for “orphan” - indices. If globalcheck=.false., the subroutine will not - check for overlap, and may be significantly faster, but the user - is implicitly guaranteeing that there are neither orphan nor - overlap indices. -
      -
      lidx
      -
      The optional argument lidx is available for - those cases in which the user has already established a - global-to-local mapping; if it is specified, each index in - vl(i) will be mapped to the corresponding local index - lidx(i). When specifying the argument lidx the user - would also likely employ lidx in calls to psb_cdins - and local in calls to psb_spins and psb_geins; - see also sec. 2.3.1. -
      -
      nl
      -
      If this argument is specified alone (i.e. without vl) - the result is a generalized row-block distribution in which each - process $I$ gets assigned a consecutive chunk of $N_I=nl$ global - indices. -
      -
      repl
      -
      This arguments specifies to replicate all indices on - all processes. This is a special purpose data allocation that is - useful in the construction of some multilevel preconditioners. -
      -
      -
      2. -
    2. On exit from this routine the descriptor is in the build - state. -
      3. -
    3. Calling the routine with vg or parts implies that - every process will scan the entire index space to figure out the - local indices. -
      4. -
    4. Overlapped indices are possible with both parts and - vl invocations. -
      5. -
    5. When the subroutine is invoked with vl in - conjunction with globalcheck=.true., it will perform a scan - of the index space to search for overlap or orphan indices. -
      6. -
    6. When the subroutine is invoked with vl in - conjunction with globalcheck=.false., no index space scan - will take place. Thus it is the responsibility of the user to make - sure that the indices specified in vl have neither orphans nor - overlaps; if this assumption fails, results will be - unpredictable. -
      7. -
    7. Orphan and overlap indices are - impossible by construction when the subroutine is invoked with - nl (alone), or vg. -
      8. -
    -

    - next - + up - previous - contents
    - Next: psb_cdins Communication - Up: Data management routines - Previous: Data management routines -   Next: psb_scatter Scatter + Up: Communication routines + Previous: psb_ovrl Overlap +   Contents
    diff --git a/docs/html/node73.html b/docs/html/node73.html index 364e18a04..924e3506b 100644 --- a/docs/html/node73.html +++ b/docs/html/node73.html @@ -3,8 +3,8 @@ -psb_cdins -- Communication descriptor insert routine - +psb_scatter -- Scatter Global Dense Matrix + @@ -14,162 +14,224 @@ - - +
    - next - + up - previous - contents
    - Next: psb_cdasb Communication - Up: Data management routines - Previous: psb_cdall Allocates -   Next: Data management routines + Up: Communication routines + Previous: psb_gather Gather +   Contents

    -

    -psb_cdins -- Communication descriptor insert - routine +

    +psb_scatter -- Scatter Global Dense Matrix

    -

    -call psb_cdins(nz, ia, ja, desc_a, info [,ila,jla])
-call psb_cdins(nz,ja,desc,info[,jla,mask,lidx])
-
    +These subroutines scatters the portions of global dense matrix owned +by a process to all the processes in the processes grid.

    -This subroutine examines the edges of the graph associated with the -discretization mesh (and isomorphic to the sparsity pattern of a -linear system coefficient matrix), storing them as necessary into the -communication descriptor. In the first form the edges are specified as -pairs of indices $ia(i),ja(i)$; the starting index $ia(i)$ should -belong to the current process. -In the second form only the remote indices $ja(i)$ are specified. +

    +
    + -

    +\begin{displaymath}loc\_x_i \leftarrow scatter(glob\_x) \end{displaymath} +

    +
    +

    +where:
    -
    Type:
    -
    Asynchronous. +
    $glob\_x$
    +
    is the global matrix +$glob\_x_{1:m,1:n}$
    -
    On Entry
    -
    +
    $loc\_x_i$
    +
    is the local portion of global dense matrix on +process $i$.
    -
    nz
    -
    the number of points being inserted. -
    -Scope: local. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer value. -
    -
    ia
    -
    the indices of the starting vertex of the edges being inserted. -
    -Scope: local. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer array of length $nz$. -
    -
    ja
    -
    the indices of the end vertex of the edges being inserted. -
    -Scope: local. -
    -Type: required. -
    -Intent: in. -
    -Specified as: an integer array of length $nz$. -
    -
    mask
    -
    Mask entries in ja, they are inserted only when the - corresponding mask entries are .true. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: a logical array of length $nz$, default .true.. -
    -
    lidx
    -
    User defined local indices for ja. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an integer array of length $nz$. +
    $scatter$
    +
    is the scatter function.
    +

    +

    +
    + + + +
    Table 20: +Data types
    +
    + + + + + + + + + + + + + + + + + + + +
    $x_i, y$Subroutine
    Integerpsb_scatter
    Short Precision Realpsb_scatter
    Long Precision Realpsb_scatter
    Short Precision Complexpsb_scatter
    Long Precision Complexpsb_scatter
    +
    +
    +

    +
    + +

    +
    +\begin{lstlisting} +call psb_scatter(glob_x, loc_x, desc_a, info, root, mold) +\end{lstlisting} +
    +

    +
    Type:
    +
    Synchronous. +
    +
    On Entry
    +
    +
    +
    glob_x
    +
    The array that must be scattered into local pieces. +
    +Scope: global +
    +Type: required +
    +Intent: in. +
    +Specified as: a rank one or two array. +
    +
    desc_a
    +
    contains data structures for communications. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    root
    +
    The process that holds the global copy. If $root=-1$ all + the processes have a copy of the global vector. +
    +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Specified as: an integer variable +$-1\le root\le np-1$, default +psb_root_, i.e. process 0. +
    +
    mold
    +
    The desired dynamic type for the internal vector storage. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is +only allowed when loc_x is of type vdatapsb_T_vect_type. +
    On Return
    -
    desc_a
    -
    the updated communication descriptor. +
    loc_x
    +
    the local portion of global dense matrix +$glob\_x$.
    -Scope:local. +Scope: local
    -Type:required. +Type: required
    -Intent: inout. +Intent: out.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: a rank one or two ALLOCATABLE array or an object of type vdatapsb_T_vect_type containing numbers of the type +indicated in Table 20.
    info
    Error code. @@ -182,76 +244,32 @@ Intent: out.
    An integer value; 0 means no error has been detected.
    -
    ila
    -
    the local indices of the starting vertex of the edges being inserted. -
    -Scope: local. -
    -Type: optional. -
    -Intent: out. -
    -Specified as: an integer array of length $nz$. -
    -
    jla
    -
    the local indices of the end vertex of the edges being inserted. -
    -Scope: local. -
    -Type: optional. -
    -Intent: out. -
    -Specified as: an integer array of length $nz$. - -

    -

    -Notes - -
      -
    1. This routine may only be called if the descriptor is in the - build state; -
      2. -
    2. This routine automatically ignores edges that do not -insist on the current process, i.e. edges for which neither the starting -nor the end vertex belong to the current process. -
      3. -
    3. The second form of this routine will be useful when dealing with - user-specified index mappings; see also 2.3.1. -
      4. -

    - next - + up - previous - contents
    - Next: psb_cdasb Communication - Up: Data management routines - Previous: psb_cdall Allocates -   Next: Data management routines + Up: Communication routines + Previous: psb_gather Gather +   Contents
    diff --git a/docs/html/node74.html b/docs/html/node74.html index dce0fc24f..4d97a7eb7 100644 --- a/docs/html/node74.html +++ b/docs/html/node74.html @@ -3,8 +3,8 @@ -psb_cdasb -- Communication descriptor assembly routine - +Data management routines + @@ -14,119 +14,119 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_cdcpy Copies - Up: Data management routines - Previous: psb_cdins Communication -   Next: psb_cdall Allocates + Up: userhtml + Previous: psb_scatter Scatter +   Contents

    -

    -psb_cdasb -- Communication descriptor assembly +

    + +
    +Data management routines +

    + +

    +

    + +Subsections + +

    - -

    -

    -call psb_cdasb(desc_a, info [, mold])
-
    - -

    -

    -
    Type:
    -
    Synchronous. -
    -
    On Entry
    -
    -
    -
    desc_a
    -
    the communication descriptor. -
    -Scope:local. -
    -Type:required. -
    -Intent: inout. -
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    mold
    -
    The desired dynamic type for the internal index storage. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: a object of type derived from (integer) vbasedatapsb_T_base_vect_type. -
    -
    - -

    -

    -
    On Return
    -
    -
    -
    desc_a
    -
    the communication descriptor. -
    -Scope:local. -
    -Type:required. -
    -Intent: inout. -
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. -
    -
    -Notes - -
      -
    1. On exit from this routine the descriptor is in the assembled - state. -
      2. -
    - -

    +

  • psb_cdasb -- Communication descriptor assembly + routine +
  • psb_cdcpy -- Copies a communication descriptor +
  • psb_cdfree -- Frees a communication descriptor +
  • psb_cdbldext -- Build an extended communication + descriptor +
  • psb_spall -- Allocates a sparse matrix +
  • psb_spins -- Insert a set of coefficients into a sparse + matrix +
  • psb_spasb -- Sparse matrix assembly routine +
  • psb_spfree -- Frees a sparse matrix +
  • psb_sprn -- Reinit sparse matrix structure for psblas + routines. +
  • psb_geall -- Allocates a dense matrix +
  • psb_geins -- Dense matrix insertion routine +
  • psb_geasb -- Assembly a dense matrix +
  • psb_gefree -- Frees a dense matrix +
  • psb_gelp -- Applies a left permutation to a dense + matrix +
  • psb_glob_to_loc -- Global to local indices + convertion +
  • psb_loc_to_glob -- Local to global indices + conversion +
  • psb_is_owned -- +
  • psb_owned_index -- +
  • psb_is_local -- +
  • psb_local_index -- +
  • psb_get_boundary -- Extract list of boundary + elements +
  • psb_get_overlap -- Extract list of overlap + elements +
  • psb_sp_getrow -- Extract row(s) from a sparse + matrix +
  • psb_sizeof -- Memory occupation +
  • Sorting utilities -- + +
    diff --git a/docs/html/node75.html b/docs/html/node75.html index 508603a4a..dc27405d4 100644 --- a/docs/html/node75.html +++ b/docs/html/node75.html @@ -3,8 +3,8 @@ -psb_cdcpy -- Copies a communication descriptor - +psb_cdall -- Allocates a communication descriptor + @@ -16,68 +16,209 @@ - +
    - next - + up - previous - contents
    - Next: psb_cdfree Frees - Up: Data management routines - Previous: psb_cdasb Communication -   Next: psb_cdins Communication + Up: Data management routines + Previous: Data management routines +   Contents

    -

    -psb_cdcpy -- Copies a communication descriptor +

    +psb_cdall -- Allocates a communication descriptor 

    -call psb_cdcpy(desc_in, desc_out, info)
+call psb_cdall(icontxt, desc_a, info,mg=mg,parts=parts)
+call psb_cdall(icontxt, desc_a, info,vg=vg,[mg=mg,flag=flag])
+call psb_cdall(icontxt, desc_a, info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx])
+call psb_cdall(icontxt, desc_a, info,nl=nl)
+call psb_cdall(icontxt, desc_a, info,mg=mg,repl=.true.)

    +This subroutine initializes the communication descriptor associated +with an index space. One of the optional arguments +parts, vg, vl, nl or repl +must be specified, thereby choosing +the specific initialization strategy.

    -
    Type:
    -
    Asynchronous. -
    -
    On Entry
    +
    On Entry
    -
    desc_in
    -
    the communication descriptor. +
    Type:
    +
    Synchronous. +
    +
    icontxt
    +
    the communication context.
    -Scope:local. +Scope:global.
    Type:required.
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: an integer value. +
    +
    vg
    +
    Data allocation: each index +$i\in \{1\dots mg\}$ is allocated + to process $vg(i)$. +
    +Scope:global. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer array. +
    +
    flag
    +
    Specifies whether entries in $vg$ are zero- or one-based. +
    +Scope:global. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer value $0,1$, default $0$.

    +
    mg
    +
    the (global) number of rows of the problem. +
    +Scope:global. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer value. It is required if parts or +repl is specified, it is optional if vg is specified. +
    +
    parts
    +
    the subroutine that defines the partitioning scheme. +
    +Scope:global. +
    +Type:required. +
    +Specified as: a subroutine. +
    +
    vl
    +
    Data allocation: the set of global indices + $vl(1:nl)$ belonging to the calling process. +
    +Scope:local. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer array. +
    +
    nl
    +
    Data allocation: in a generalized block-row distribution the + number of indices belonging to the current process. +
    +Scope:local. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer value. May be specified together with +vl. +
    +
    repl
    +
    Data allocation: build a replicated index space + (i.e. all processes own all indices). +
    +Scope:global. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: the logical value .true. +
    +
    globalcheck
    +
    Data allocation: do global checks on the local + index lists vl +
    +Scope:global. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: a logical value, default: .false. +
    +
    lidx
    +
    Data allocation: the set of local indices + $lidx(1:nl)$ to be assigned to the global indices $vl$. +
    +Scope:local. +
    +Type:optional. +
    +Intent: in. +
    +Specified as: an integer array. +

    @@ -85,8 +226,8 @@ Specified as: a structured data of type descdatapsb_desc_type.

    On Return
    -
    desc_out
    -
    the communication descriptor copy. +
    desc_a
    +
    the communication descriptor.
    Scope:local.
    @@ -110,7 +251,200 @@ An integer value; 0 means no error has been detected.

    -

    +Notes + +
      +
    1. One of the optional arguments parts, vg, + vl, nl or repl must be specified, thereby choosing the + initialization strategy as follows: +
      +
      parts
      +
      In this case we have a subroutine specifying the mapping + between global indices and process/local index pairs. If this + optional argument is specified, then it is mandatory to + specify the argument mg as well. + The subroutine must conform to the following interface: +
      +  interface 
+     subroutine psb_parts(glob_index,mg,np,pv,nv)
+       integer, intent (in)  :: glob_index,np,mg
+       integer, intent (out) :: nv, pv(*)
+     end subroutine psb_parts
+  end interface
+
      + The input arguments are: +
      +
      glob_index
      +
      The global index to be mapped; + +
      +
      np
      +
      The number of processes in the mapping; + +
      +
      mg
      +
      The total number of global rows in the mapping; + +
      +
      + The output arguments are: +
      +
      nv
      +
      The number of entries in pv; + +
      +
      pv
      +
      A vector containing the indices of the processes to + which the global index should be assigend; each entry must satisfy + +$0\le pv(i) < np$; if $nv>1$ we have an index assigned to multiple + processes, i.e. we have an overlap among the subdomains. + +
      +
      +
      +
      vg
      +
      In this case the association between an index and a process + is specified via an integer vector vg(1:mg); + each index +$i\in \{1\dots mg\}$ is assigned to process $vg(i)$. + The vector vg must be identical on all + calling processes; its entries may have the ranges $(0\dots np-1)$ + or $(1\dots np)$ according to the value of flag. + The size $mg$ may be specified via the optional argument mg; + the default is to use the entire vector vg, thus having + mg=size(vg). +
      +
      vl
      +
      In this case we are specifying the list of indices + vl(1:nl) assigned to the current process; thus, the global + problem size $mg$ is given by + the range of the aggregate of the individual vectors vl specified + in the calling processes. The size may be specified via the optional + argument nl; the default is to use the entire vector + vl, thus having nl=size(vl). + If globalcheck=.true. the subroutine will check how many + times each entry in the global index space $(1\dots mg)$ is + specified in the input lists vl, thus allowing for the + presence of overlap in the input, and checking for “orphan” + indices. If globalcheck=.false., the subroutine will not + check for overlap, and may be significantly faster, but the user + is implicitly guaranteeing that there are neither orphan nor + overlap indices. +
      +
      lidx
      +
      The optional argument lidx is available for + those cases in which the user has already established a + global-to-local mapping; if it is specified, each index in + vl(i) will be mapped to the corresponding local index + lidx(i). When specifying the argument lidx the user + would also likely employ lidx in calls to psb_cdins + and local in calls to psb_spins and psb_geins; + see also sec. 2.3.1. +
      +
      nl
      +
      If this argument is specified alone (i.e. without vl) + the result is a generalized row-block distribution in which each + process $I$ gets assigned a consecutive chunk of $N_I=nl$ global + indices. +
      +
      repl
      +
      This arguments specifies to replicate all indices on + all processes. This is a special purpose data allocation that is + useful in the construction of some multilevel preconditioners. +
      +
      +
      2. +
    2. On exit from this routine the descriptor is in the build + state. +
      3. +
    3. Calling the routine with vg or parts implies that + every process will scan the entire index space to figure out the + local indices. +
      4. +
    4. Overlapped indices are possible with both parts and + vl invocations. +
      5. +
    5. When the subroutine is invoked with vl in + conjunction with globalcheck=.true., it will perform a scan + of the index space to search for overlap or orphan indices. +
      6. +
    6. When the subroutine is invoked with vl in + conjunction with globalcheck=.false., no index space scan + will take place. Thus it is the responsibility of the user to make + sure that the indices specified in vl have neither orphans nor + overlaps; if this assumption fails, results will be + unpredictable. +
      7. +
    7. Orphan and overlap indices are + impossible by construction when the subroutine is invoked with + nl (alone), or vg. +
      8. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_cdins Communication + Up: Data management routines + Previous: Data management routines +   Contents
    + diff --git a/docs/html/node76.html b/docs/html/node76.html index 6a43fb9f1..46ac92530 100644 --- a/docs/html/node76.html +++ b/docs/html/node76.html @@ -3,8 +3,8 @@ -psb_cdfree -- Frees a communication descriptor - +psb_cdins -- Communication descriptor insert routine + @@ -16,57 +16,152 @@ - +
    - next - + up - previous - contents
    - Next: psb_cdbldext Build - Up: Data management routines - Previous: psb_cdcpy Copies -   Next: psb_cdasb Communication + Up: Data management routines + Previous: psb_cdall Allocates +   Contents

    -

    -psb_cdfree -- Frees a communication descriptor +

    +psb_cdins -- Communication descriptor insert + routine 

    -call psb_cdfree(desc_a, info)
+call psb_cdins(nz, ia, ja, desc_a, info [,ila,jla])
+call psb_cdins(nz,ja,desc,info[,jla,mask,lidx])
    +

    +This subroutine examines the edges of the graph associated with the +discretization mesh (and isomorphic to the sparsity pattern of a +linear system coefficient matrix), storing them as necessary into the +communication descriptor. In the first form the edges are specified as +pairs of indices $ia(i),ja(i)$; the starting index $ia(i)$ should +belong to the current process. +In the second form only the remote indices $ja(i)$ are specified. +

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    +
    nz
    +
    the number of points being inserted. +
    +Scope: local. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer value. +
    +
    ia
    +
    the indices of the starting vertex of the edges being inserted. +
    +Scope: local. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer array of length $nz$. +
    +
    ja
    +
    the indices of the end vertex of the edges being inserted. +
    +Scope: local. +
    +Type: required. +
    +Intent: in. +
    +Specified as: an integer array of length $nz$. +
    +
    mask
    +
    Mask entries in ja, they are inserted only when the + corresponding mask entries are .true. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: a logical array of length $nz$, default .true.. +
    +
    lidx
    +
    User defined local indices for ja. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer array of length $nz$. +
    +
    + +

    +

    +
    On Return
    +
    +
    desc_a
    -
    the communication descriptor to be freed. +
    the updated communication descriptor.
    Scope:local.
    @@ -76,13 +171,6 @@ Intent: inout.
    Specified as: a structured data of type descdatapsb_desc_type.
    -
    - -

    -

    -
    On Return
    -
    -
    info
    Error code.
    @@ -94,10 +182,78 @@ Intent: out.
    An integer value; 0 means no error has been detected.
    -
    +
    ila
    +
    the local indices of the starting vertex of the edges being inserted. +
    +Scope: local. +
    +Type: optional. +
    +Intent: out. +
    +Specified as: an integer array of length $nz$. +
    +
    jla
    +
    the local indices of the end vertex of the edges being inserted. +
    +Scope: local. +
    +Type: optional. +
    +Intent: out. +
    +Specified as: an integer array of length $nz$.

    -

    +
    + +Notes + +
      +
    1. This routine may only be called if the descriptor is in the + build state; +
      2. +
    2. This routine automatically ignores edges that do not +insist on the current process, i.e. edges for which neither the starting +nor the end vertex belong to the current process. +
      3. +
    3. The second form of this routine will be useful when dealing with + user-specified index mappings; see also 2.3.1. +
      4. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_cdasb Communication + Up: Data management routines + Previous: psb_cdall Allocates +   Contents
    + diff --git a/docs/html/node77.html b/docs/html/node77.html index 9716704ac..507c1f1c2 100644 --- a/docs/html/node77.html +++ b/docs/html/node77.html @@ -3,8 +3,8 @@ -psb_cdbldext -- Build an extended communication descriptor - +psb_cdasb -- Communication descriptor assembly routine + @@ -16,52 +16,49 @@ - +
    - next - + up - previous - contents
    - Next: psb_spall Allocates - Up: Data management routines - Previous: psb_cdfree Frees -   Next: psb_cdcpy Copies + Up: Data management routines + Previous: psb_cdins Communication +   Contents

    -

    -psb_cdbldext -- Build an extended communication - descriptor +

    +psb_cdasb -- Communication descriptor assembly + routine 

    -call psb_cdbldext(a,desc_a,nl,desc_out, info, extype)
+call psb_cdasb(desc_a, info [, mold])

    -This subroutine builds an extended communication descriptor, based on -the input descriptor desc_a and on the stencil specified -through the input sparse matrix a.

    Type:
    Synchronous. @@ -69,16 +66,6 @@ through the input sparse matrix a.
    On Entry
    -
    a
    -
    A sparse matrix -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: a structured data type. -
    desc_a
    the communication descriptor.
    @@ -86,37 +73,20 @@ Scope:local.
    Type:required.
    -Intent: in. +Intent: inout.
    -Specified as: a structured data of type spdatapsb_Tspmat_type. +Specified as: a structured data of type descdatapsb_desc_type.
    -
    nl
    -
    the number of additional layers desired. +
    mold
    +
    The desired dynamic type for the internal index storage.
    -Scope:global. +Scope: local.
    -Type:required. +Type: optional.
    Intent: in.
    -Specified as: an integer value $nl\ge 0$. -
    -
    extype
    -
    the kind of estension required. -
    -Scope:global. -
    -Type:optional . -
    -Intent: in. -
    -Specified as: an integer value -psb_ovt_xhal_, psb_ovt_asov_, default: psb_ovt_xhal_ - -

    +Specified as: a object of type derived from (integer) vbasedatapsb_T_base_vect_type.

    @@ -125,8 +95,8 @@ Specified as: an integer value
    On Return
    -
    desc_out
    -
    the extended communication descriptor. +
    desc_a
    +
    the communication descriptor.
    Scope:local.
    @@ -148,51 +118,16 @@ Intent: out. An integer value; 0 means no error has been detected.
    - -

    Notes

      -
    1. Specifying psb_ovt_xhal_ for the extype argument - the user will obtain a descriptor for a domain partition in which - the additional layers are fetched as part of an (extended) halo; - however the index-to-process mapping is identical to that of the - base descriptor; -
      2. -
    2. Specifying psb_ovt_asov_ for the extype argument - the user will obtain a descriptor with an overlapped decomposition: - the additional layer is aggregated to the local subdomain (and thus - is an overlap), and a new halo extending beyond the last additional - layer is formed. +
    3. On exit from this routine the descriptor is in the assembled + state.

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_spall Allocates - Up: Data management routines - Previous: psb_cdfree Frees -   Contents
    - +
    diff --git a/docs/html/node78.html b/docs/html/node78.html index 42ebd8018..4319c0670 100644 --- a/docs/html/node78.html +++ b/docs/html/node78.html @@ -3,8 +3,8 @@ -psb_spall -- Allocates a sparse matrix - +psb_cdcpy -- Copies a communication descriptor + @@ -16,56 +16,56 @@ - +
    - next - + up - previous - contents
    - Next: psb_spins Insert - Up: Data management routines - Previous: psb_cdbldext Build -   Next: psb_cdfree Frees + Up: Data management routines + Previous: psb_cdasb Communication +   Contents

    -

    -psb_spall -- Allocates a sparse matrix +

    +psb_cdcpy -- Copies a communication descriptor 

    -call psb_spall(a, desc_a, info, nnz)
+call psb_cdcpy(desc_in, desc_out, info)

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    -
    desc_a
    +
    desc_in
    the communication descriptor.
    Scope:local. @@ -75,18 +75,8 @@ Type:required. Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type. -
    -
    nnz
    -
    An estimate of the number of nonzeroes in the local - part of the assembled matrix. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an integer value. + +

    @@ -95,16 +85,16 @@ Specified as: an integer value.
    On Return
    -
    a
    -
    the matrix to be allocated. +
    desc_out
    +
    the communication descriptor copy.
    -Scope:local +Scope:local.
    -Type:required +Type:required.
    Intent: out.
    -Specified as: a structured data of type spdatapsb_Tspmat_type. +Specified as: a structured data of type descdatapsb_desc_type.
    info
    Error code. @@ -118,23 +108,6 @@ Intent: out. An integer value; 0 means no error has been detected.
    -Notes - -
      -
    1. On exit from this routine the sparse matrix is in the build - state. -
      2. -
    2. The descriptor may be in either the build or assembled state. -
      3. -
    3. 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. -
      4. -


    diff --git a/docs/html/node79.html b/docs/html/node79.html index 562a80b04..17081ee52 100644 --- a/docs/html/node79.html +++ b/docs/html/node79.html @@ -3,8 +3,8 @@ -psb_spins -- Insert a set of coefficients into a sparse matrix - +psb_cdfree -- Frees a communication descriptor + @@ -16,169 +16,65 @@ - +
    - next - + up - previous - contents
    - Next: psb_spasb Sparse - Up: Data management routines - Previous: psb_spall Allocates -   Next: psb_cdbldext Build + Up: Data management routines + Previous: psb_cdcpy Copies +   Contents

    -

    -psb_spins -- Insert a set of coefficients into a sparse - matrix +

    +psb_cdfree -- Frees a communication descriptor 

    -call psb_spins(nz, ia, ja, val, a, desc_a, info [,local])
-call psb_spins(nr, irw, irp, ja, val, a, desc_a, info [,local])
+call psb_cdfree(desc_a, info)

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    -
    nz
    -
    the number of coefficients to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer scalar. -
    -
    nr
    -
    the number of rows to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer scalar. -
    -
    irw
    -
    the first row to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer scalar. -
    -
    ia
    -
    the row indices of the coefficients to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer array of size $nz$. -
    -
    irp
    -
    the row pointers of the coefficients to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer array of size . -
    -
    ja
    -
    the column indices of the coefficients to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer array of size $nz$. -
    -
    val
    -
    the coefficients to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an array of size $nz$. Must be of the same type and kind -of the coefficients of the sparse matrix $a$. -
    desc_a
    -
    The communication descriptor. +
    the communication descriptor to be freed.
    -Scope: local. +Scope:local.
    -Type: required. +Type:required.
    Intent: inout.
    -Specified as: a variable of type descdatapsb_desc_type. -
    -
    local
    -
    Whether the entries in the indices vectors ia, - ja are already in local numbering. -
    -Scope:local. -
    -Type:optional. -
    -Specified as: a logical value; default: .false.. - -

    +Specified as: a structured data of type descdatapsb_desc_type.

    @@ -187,28 +83,6 @@ Specified as: a logical value; default: .false..
    On Return
    -
    a
    -
    the matrix into which coefficients will be inserted. -
    -Scope:local -
    -Type:required -
    -Intent: inout. -
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    -
    desc_a
    -
    The communication descriptor. -
    -Scope: local. -
    -Type: required. -
    -Intent: inout. -
    -Specified as: a variable of type descdatapsb_desc_type. -
    info
    Error code.
    @@ -223,98 +97,7 @@ An integer value; 0 means no error has been detected.

    -Notes - -

      -
    1. On entry to this routine the descriptor may be in either the - build or assembled state. -
      2. -
    2. On entry to this routine the sparse matrix may be in either the - build or update state. -
      3. -
    3. If the descriptor is in the build state, then the sparse matrix - must also be in the build state; the action of the routine is to - (implicitly) call psb_cdins to add entries to the sparsity - pattern; each sparse matrix entry implicitly defines a graph edge, - that is passed to the descriptor routine for the appropriate - processing; -
      4. -
    4. The input data can be passed in either COO or CSR formats; -
      5. -
    5. 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; -
      6. -
    6. In CSR format the coefficients to be inserted for each input row - are represented by the ordered triples -, for - -; - these triples should belong to the current process, i.e. - should be one of the local indices, but are otherwise arbitrary; -
      7. -
    7. There is no requirement that a given row must be passed in its - entirety to a single call to this routine: the buildup of a row - may be split into as many calls as desired (even in the CSR format); -
      8. -
    8. Coefficients from different rows may also be mixed up freely - in a single call, according to the application needs; -
      9. -
    9. Any coefficients from matrix rows not owned by the calling - process are silently ignored; -
      10. -
    10. If the descriptor is in the assembled state, then any entries in - the sparse matrix that would generate additional communication - requirements are ignored; -
      11. -
    11. If the matrix is in the update state, any entries in positions - that were not present in the original matrix are ignored. -
      12. -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_spasb Sparse - Up: Data management routines - Previous: psb_spall Allocates -   Contents
    - +
    diff --git a/docs/html/node8.html b/docs/html/node8.html index df750f2ad..6501ef055 100644 --- a/docs/html/node8.html +++ b/docs/html/node8.html @@ -22,26 +22,26 @@
    - next - up - previous - contents
    - Next: Next: Data Structures and Classes - Up: Up: General overview - Previous: Previous: User-defined index mappings -   Contents

    @@ -94,26 +94,26 @@ as:
    - next - up - previous - contents
    - Next: Next: Data Structures and Classes - Up: Up: General overview - Previous: Previous: User-defined index mappings -   Contents
    diff --git a/docs/html/node80.html b/docs/html/node80.html index 295e944c8..346afbdd8 100644 --- a/docs/html/node80.html +++ b/docs/html/node80.html @@ -3,8 +3,8 @@ -psb_spasb -- Sparse matrix assembly routine - +psb_cdbldext -- Build an extended communication descriptor + @@ -16,48 +16,52 @@ - +
    - next - + up - previous - contents
    - Next: psb_spfree Frees - Up: Data management routines - Previous: psb_spins Insert -   Next: psb_spall Allocates + Up: Data management routines + Previous: psb_cdfree Frees +   Contents

    -

    -psb_spasb -- Sparse matrix assembly routine +

    +psb_cdbldext -- Build an extended communication + descriptor 

    -call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
+call psb_cdbldext(a,desc_a,nl,desc_out, info, extype)

    +This subroutine builds an extended communication descriptor, based on +the input descriptor desc_a and on the stencil specified +through the input sparse matrix a.

    Type:
    Synchronous. @@ -65,6 +69,16 @@ call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
    On Entry
    +
    a
    +
    A sparse matrix +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: a structured data type. +
    desc_a
    the communication descriptor.
    @@ -74,52 +88,35 @@ Type:required.
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. +Specified as: a structured data of type spdatapsb_Tspmat_type.
    -
    afmt
    -
    the storage format for the sparse matrix. +
    nl
    +
    the number of additional layers desired.
    -Scope: local. +Scope:global.
    -Type: optional. +Type:required.
    Intent: in.
    -Specified as: an array of characters. Defalt: 'CSR'. +Specified as: an integer value $nl\ge 0$.
    -
    upd
    -
    Provide for updates to the matrix coefficients. +
    extype
    +
    the kind of estension required.
    -Scope: global. +Scope:global.
    -Type: optional. +Type:optional .
    Intent: in.
    -Specified as: integer, possible values: psb_upd_srch_, psb_upd_perm_ -
    -
    dupl
    -
    How to handle duplicate coefficients. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: integer, possible values: psb_dupl_ovwrt_, -psb_dupl_add_, psb_dupl_err_. -
    -
    mold
    -
    The desired dynamic type for the internal matrix storage. -
    -Scope: local. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat. +Specified as: an integer value +psb_ovt_xhal_, psb_ovt_asov_, default: psb_ovt_xhal_ + +

    @@ -128,16 +125,16 @@ Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_
    On Return
    -
    a
    -
    the matrix to be assembled. +
    desc_out
    +
    the extended communication descriptor.
    -Scope:local +Scope:local.
    -Type:required +Type:required.
    Intent: inout.
    -Specified as: a structured data of type spdatapsb_Tspmat_type. +Specified as: a structured data of type descdatapsb_desc_type.
    info
    Error code. @@ -156,25 +153,17 @@ An integer value; 0 means no error has been detected. Notes
      -
    1. On entry to this routine the descriptor must be in the - assembled state, i.e. psb_cdasb must already have been called. +
    2. Specifying psb_ovt_xhal_ for the extype argument + the user will obtain a descriptor for a domain partition in which + the additional layers are fetched as part of an (extended) halo; + however the index-to-process mapping is identical to that of the + base descriptor;
      3. -
    3. The sparse matrix may be in either the build or update state; -
      4. -
    4. Duplicate entries are detected and handled in both build and - update state, with the exception of the error action that is only - taken in the build state, i.e. on the first assembly; -
      5. -
    5. If the update choice is psb_upd_perm_, then subsequent - calls to psb_spins to update the matrix must be arranged in - such a way as to produce exactly the same sequence of coefficient - values as encountered at the first assembly; -
      6. -
    6. The output storage format need not be the same on all - processes; -
      7. -
    7. On exit from this routine the matrix is in the assembled state, - and thus is suitable for the computational routines. +
    8. Specifying psb_ovt_asov_ for the extype argument + the user will obtain a descriptor with an overlapped decomposition: + the additional layer is aggregated to the local subdomain (and thus + is an overlap), and a new halo extending beyond the last additional + layer is formed.
    @@ -182,26 +171,26 @@ An integer value; 0 means no error has been detected.
    - next - + up - previous - contents
    - Next: psb_spfree Frees - Up: Data management routines - Previous: psb_spins Insert -   Next: psb_spall Allocates + Up: Data management routines + Previous: psb_cdfree Frees +   Contents
    diff --git a/docs/html/node81.html b/docs/html/node81.html index 7320ea14f..8480c728e 100644 --- a/docs/html/node81.html +++ b/docs/html/node81.html @@ -3,8 +3,8 @@ -psb_spfree -- Frees a sparse matrix - +psb_spall -- Allocates a sparse matrix + @@ -16,45 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_sprn Reinit - Up: Data management routines - Previous: psb_spasb Sparse -   Next: psb_spins Insert + Up: Data management routines + Previous: psb_cdbldext Build +   Contents

    -

    -psb_spfree -- Frees a sparse matrix +

    +psb_spall -- Allocates a sparse matrix 

    -call psb_spfree(a, desc_a, info)
+call psb_spall(a, desc_a, info, nnz)

    @@ -65,17 +65,6 @@ call psb_spfree(a, desc_a, info)

    On Entry
    -
    a
    -
    the matrix to be freed. -
    -Scope:local -
    -Type:required -
    -Intent: inout. -
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    desc_a
    the communication descriptor.
    @@ -87,6 +76,18 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    +
    nnz
    +
    An estimate of the number of nonzeroes in the local + part of the assembled matrix. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an integer value. +

    @@ -94,6 +95,17 @@ Specified as: a structured data of type descdatapsb_desc_type.

    On Return
    +
    a
    +
    the matrix to be allocated. +
    +Scope:local +
    +Type:required +
    +Intent: out. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    info
    Error code.
    @@ -106,6 +118,23 @@ Intent: out. An integer value; 0 means no error has been detected.
    +Notes + +
      +
    1. On exit from this routine the sparse matrix is in the build + state. +
      2. +
    2. The descriptor may be in either the build or assembled state. +
      3. +
    3. 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. +
      4. +


    diff --git a/docs/html/node82.html b/docs/html/node82.html index e966ada42..fb0084f45 100644 --- a/docs/html/node82.html +++ b/docs/html/node82.html @@ -3,8 +3,8 @@ -psb_sprn -- Reinit sparse matrix structure for psblas routines. - +psb_spins -- Insert a set of coefficients into a sparse matrix + @@ -16,58 +16,182 @@ - +
    - next - + up - previous - contents
    - Next: psb_geall Allocates - Up: Data management routines - Previous: psb_spfree Frees -   Next: psb_spasb Sparse + Up: Data management routines + Previous: psb_spall Allocates +   Contents

    -

    -psb_sprn -- Reinit sparse matrix structure for psblas - routines. +

    +psb_spins -- Insert a set of coefficients into a sparse + matrix 

    -call psb_sprn(a, decsc_a, info, clear)
+call psb_spins(nz, ia, ja, val, a, desc_a, info [,local])
+call psb_spins(nr, irw, irp, ja, val, a, desc_a, info [,local])

    Type:
    -
    Synchronous. +
    Asynchronous.
    On Entry
    +
    nz
    +
    the number of coefficients to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer scalar. +
    +
    nr
    +
    the number of rows to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer scalar. +
    +
    irw
    +
    the first row to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer scalar. +
    +
    ia
    +
    the row indices of the coefficients to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer array of size $nz$. +
    +
    irp
    +
    the row pointers of the coefficients to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer array of size $nr+1$. +
    +
    ja
    +
    the column indices of the coefficients to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an integer array of size $nz$. +
    +
    val
    +
    the coefficients to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: an array of size $nz$. Must be of the same type and kind +of the coefficients of the sparse matrix $a$. +
    +
    desc_a
    +
    The communication descriptor. +
    +Scope: local. +
    +Type: required. +
    +Intent: inout. +
    +Specified as: a variable of type descdatapsb_desc_type. +
    +
    local
    +
    Whether the entries in the indices vectors ia, + ja are already in local numbering. +
    +Scope:local. +
    +Type:optional. +
    +Specified as: a logical value; default: .false.. + +

    +

    +
    + +

    +

    +
    On Return
    +
    +
    a
    -
    the matrix to be reinitialized. +
    the matrix into which coefficients will be inserted.
    Scope:local
    @@ -78,34 +202,16 @@ Intent: inout. Specified as: a structured data of type spdatapsb_Tspmat_type.
    desc_a
    -
    the communication descriptor. +
    The communication descriptor.
    -Scope:local. +Scope: local.
    -Type:required. +Type: required.
    -Intent: in. +Intent: inout.
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    clear
    -
    Choose whether to zero out matrix coefficients -
    -Scope:local. -
    -Type:optional. -
    -Intent: in. -
    -Default: true. -
    -
    - -

    -

    -
    On Return
    -
    -
    +Specified as: a variable of type descdatapsb_desc_type. +
    info
    Error code.
    @@ -118,16 +224,112 @@ Intent: out. An integer value; 0 means no error has been detected.
    + +

    Notes

      -
    1. On exit from this routine the sparse matrix is in the update - state. +
    2. On entry to this routine the descriptor may be in either the + build or assembled state. +
      3. +
    3. On entry to this routine the sparse matrix may be in either the + build or update state. +
      4. +
    4. If the descriptor is in the build state, then the sparse matrix + must also be in the build state; the action of the routine is to + (implicitly) call psb_cdins to add entries to the sparsity + pattern; each sparse matrix entry implicitly defines a graph edge, + that is passed to the descriptor routine for the appropriate + processing; +
      5. +
    5. The input data can be passed in either COO or CSR formats; +
      6. +
    6. 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; +
      7. +
    7. 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$; + these triples should belong to the current process, i.e. $i+irw-1$ + should be one of the local indices, but are otherwise arbitrary; +
      8. +
    8. There is no requirement that a given row must be passed in its + entirety to a single call to this routine: the buildup of a row + may be split into as many calls as desired (even in the CSR format); +
      9. +
    9. Coefficients from different rows may also be mixed up freely + in a single call, according to the application needs; +
      10. +
    10. Any coefficients from matrix rows not owned by the calling + process are silently ignored; +
      11. +
    11. If the descriptor is in the assembled state, then any entries in + the sparse matrix that would generate additional communication + requirements are ignored; +
      12. +
    12. If the matrix is in the update state, any entries in positions + that were not present in the original matrix are ignored.

    -

    + +
    + + +next + +up + +previous + +contents +
    + Next: psb_spasb Sparse + Up: Data management routines + Previous: psb_spall Allocates +   Contents
    + diff --git a/docs/html/node83.html b/docs/html/node83.html index 65e4c10ef..b44e36758 100644 --- a/docs/html/node83.html +++ b/docs/html/node83.html @@ -3,8 +3,8 @@ -psb_geall -- Allocates a dense matrix - +psb_spasb -- Sparse matrix assembly routine + @@ -16,45 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_geins Dense - Up: Data management routines - Previous: psb_sprn Reinit -   Next: psb_spfree Frees + Up: Data management routines + Previous: psb_spins Insert +   Contents

    -

    -psb_geall -- Allocates a dense matrix +

    +psb_spasb -- Sparse matrix assembly routine 

    -call psb_geall(x, desc_a, info, n, lb)
+call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)

    @@ -66,51 +66,60 @@ call psb_geall(x, desc_a, info, n, lb)

    desc_a
    -
    The communication descriptor. +
    the communication descriptor.
    -Scope: local +Scope:local.
    -Type: required +Type:required.
    Intent: in.
    -Specified as: a variable of type descdatapsb_desc_type. -
    -
    n
    -
    The number of columns of the dense matrix to be allocated. -
    -Scope: local -
    -Type: optional -
    -Intent: in. -
    -Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a -rank-1 array. +Specified as: a structured data of type descdatapsb_desc_type.
    -
    lb
    -
    The lower bound for the column index range of the dense matrix to be allocated. +
    afmt
    +
    the storage format for the sparse matrix.
    -Scope: local +Scope: local.
    -Type: optional +Type: optional.
    Intent: in.
    -Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a -rank-1 array. +Specified as: an array of characters. Defalt: 'CSR'. +
    +
    upd
    +
    Provide for updates to the matrix coefficients. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: integer, possible values: psb_upd_srch_, psb_upd_perm_ +
    +
    dupl
    +
    How to handle duplicate coefficients. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: integer, possible values: psb_dupl_ovwrt_, +psb_dupl_add_, psb_dupl_err_. +
    +
    mold
    +
    The desired dynamic type for the internal matrix storage. +
    +Scope: local. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat.
    @@ -119,18 +128,17 @@ rank-1 array.
    On Return
    -
    x
    -
    The dense matrix to be allocated. +
    a
    +
    the matrix to be assembled.
    -Scope: local +Scope:local
    -Type: required +Type:required
    -Intent: out. +Intent: inout.
    -Specified as: a rank one or two array with the ALLOCATABLE attribute -or an object of type vdatapsb_T_vect_type, of type real, complex or integer. -
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    info
    Error code.
    @@ -145,7 +153,57 @@ An integer value; 0 means no error has been detected.

    -

    +Notes + +
      +
    1. On entry to this routine the descriptor must be in the + assembled state, i.e. psb_cdasb must already have been called. +
      2. +
    2. The sparse matrix may be in either the build or update state; +
      3. +
    3. Duplicate entries are detected and handled in both build and + update state, with the exception of the error action that is only + taken in the build state, i.e. on the first assembly; +
      4. +
    4. If the update choice is psb_upd_perm_, then subsequent + calls to psb_spins to update the matrix must be arranged in + such a way as to produce exactly the same sequence of coefficient + values as encountered at the first assembly; +
      5. +
    5. The output storage format need not be the same on all + processes; +
      6. +
    6. On exit from this routine the matrix is in the assembled state, + and thus is suitable for the computational routines. +
      7. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_spfree Frees + Up: Data management routines + Previous: psb_spins Insert +   Contents
    + diff --git a/docs/html/node84.html b/docs/html/node84.html index 26821fdaf..2ae76326e 100644 --- a/docs/html/node84.html +++ b/docs/html/node84.html @@ -3,8 +3,8 @@ -psb_geins -- Dense matrix insertion routine - +psb_spfree -- Frees a sparse matrix + @@ -16,101 +16,65 @@ - +
    - next - + up - previous - contents
    - Next: psb_geasb Assembly - Up: Data management routines - Previous: psb_geall Allocates -   Next: psb_sprn Reinit + Up: Data management routines + Previous: psb_spasb Sparse +   Contents

    -

    -psb_geins -- Dense matrix insertion routine +

    +psb_spfree -- Frees a sparse matrix 

    -call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])
+call psb_spfree(a, desc_a, info)

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    -
    m
    -
    Number of rows in $val$ to be inserted. +
    a
    +
    the matrix to be freed.
    -Scope:local. +Scope:local
    -Type:required. +Type:required
    -Intent: in. +Intent: inout.
    -Specified as: an integer value. -
    -
    irw
    -
    Indices of the rows to be inserted. Specifically, row $i$ - of $val$ will be inserted into the local row corresponding to the - global row index $irw(i)$. -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: an integer array. -
    -
    val
    -
    the dense submatrix to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: in. -
    -Specified as: a rank 1 or 2 array. -Specified as: an integer value. +Specified as: a structured data of type spdatapsb_Tspmat_type.
    desc_a
    the communication descriptor. @@ -123,30 +87,6 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    -
    dupl
    -
    How to handle duplicate coefficients. -
    -Scope: global. -
    -Type: optional. -
    -Intent: in. -
    -Specified as: integer, possible values: psb_dupl_ovwrt_, -psb_dupl_add_. -
    -
    local
    -
    Whether the entries in the index vector irw, - are already in local numbering. -
    -Scope:local. -
    -Type:optional. -
    -Specified as: a logical value; default: .false.. - -

    -

    @@ -154,18 +94,6 @@ Specified as: a logical value; default: .false..

    On Return
    -
    x
    -
    the output dense matrix. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type, of -type real, complex or integer. -
    info
    Error code.
    @@ -180,42 +108,7 @@ An integer value; 0 means no error has been detected.

    -Notes - -

      -
    1. Dense vectors/matrices do not have an associated state; -
      2. -
    2. Duplicate entries are either overwritten or added, there is no - provision for raising an error condition. -
      3. -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_geasb Assembly - Up: Data management routines - Previous: psb_geall Allocates -   Contents
    - +
    diff --git a/docs/html/node85.html b/docs/html/node85.html index 3a23b931b..199f1af90 100644 --- a/docs/html/node85.html +++ b/docs/html/node85.html @@ -3,8 +3,8 @@ -psb_geasb -- Assembly a dense matrix - +psb_sprn -- Reinit sparse matrix structure for psblas routines. + @@ -16,45 +16,46 @@ - +
    - next - + up - previous - contents
    - Next: psb_gefree Frees - Up: Data management routines - Previous: psb_geins Dense -   Next: psb_geall Allocates + Up: Data management routines + Previous: psb_spfree Frees +   Contents

    -

    -psb_geasb -- Assembly a dense matrix +

    +psb_sprn -- Reinit sparse matrix structure for psblas + routines. 

    -call psb_geasb(x, desc_a, info, mold)
+call psb_sprn(a, decsc_a, info, clear)

    @@ -65,31 +66,38 @@ call psb_geasb(x, desc_a, info, mold)

    On Entry
    +
    a
    +
    the matrix to be reinitialized. +
    +Scope:local +
    +Type:required +
    +Intent: inout. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    desc_a
    -
    The communication descriptor. +
    the communication descriptor.
    -Scope: local +Scope:local.
    -Type: required +Type:required.
    Intent: in.
    -Specified as: a variable of type descdatapsb_desc_type. -
    -
    mold
    -
    The desired dynamic type for the internal vector storage. +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    clear
    +
    Choose whether to zero out matrix coefficients
    -Scope: local. +Scope:local.
    -Type: optional. +Type:optional.
    Intent: in.
    -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is -only allowed when $x$ is of type vdatapsb_T_vect_type. +Default: true.
    @@ -98,18 +106,6 @@ only allowed when On Return
    -
    x
    -
    The dense matrix to be assembled. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one or two array with the ALLOCATABLE or an -object of type vdatapsb_T_vect_type, of type real, complex or integer. -
    info
    Error code.
    @@ -122,6 +118,15 @@ Intent: out. An integer value; 0 means no error has been detected.
    +Notes + +
      +
    1. On exit from this routine the sparse matrix is in the update + state. +
      2. +
    + +


    diff --git a/docs/html/node86.html b/docs/html/node86.html index e1744ccb3..72ad8bf66 100644 --- a/docs/html/node86.html +++ b/docs/html/node86.html @@ -3,8 +3,8 @@ -psb_gefree -- Frees a dense matrix - +psb_geall -- Allocates a dense matrix + @@ -16,45 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_gelp Applies - Up: Data management routines - Previous: psb_geasb Assembly -   Next: psb_geins Dense + Up: Data management routines + Previous: psb_sprn Reinit +   Contents

    -

    -psb_gefree -- Frees a dense matrix +

    +psb_geall -- Allocates a dense matrix 

    -call psb_gefree(x, desc_a, info)
+call psb_geall(x, desc_a, info, n, lb)

    @@ -65,21 +65,6 @@ call psb_gefree(x, desc_a, info)

    On Entry
    -
    x
    -
    The dense matrix to - be freed. -
    -Scope: local -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one or two array with the ALLOCATABLE or an -object of type vdatapsb_T_vect_type, of type real, complex or integer. -
    -

    -

    desc_a
    The communication descriptor.
    @@ -91,6 +76,42 @@ Intent: in.
    Specified as: a variable of type descdatapsb_desc_type.
    +
    n
    +
    The number of columns of the dense matrix to be allocated. +
    +Scope: local +
    +Type: optional +
    +Intent: in. +
    +Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a +rank-1 array. +
    +
    lb
    +
    The lower bound for the column index range of the dense matrix to be allocated. +
    +Scope: local +
    +Type: optional +
    +Intent: in. +
    +Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a +rank-1 array. +

    @@ -98,6 +119,18 @@ Specified as: a variable of type descdatapsb_desc_type.

    On Return
    +
    x
    +
    The dense matrix to be allocated. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +Specified as: a rank one or two array with the ALLOCATABLE attribute +or an object of type vdatapsb_T_vect_type, of type real, complex or integer. +
    info
    Error code.
    diff --git a/docs/html/node87.html b/docs/html/node87.html index dbb80998a..7e7dff181 100644 --- a/docs/html/node87.html +++ b/docs/html/node87.html @@ -3,8 +3,8 @@ -psb_gelp -- Applies a left permutation to a dense matrix - +psb_geins -- Dense matrix insertion routine + @@ -16,46 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_glob_to_loc Global - Up: Data management routines - Previous: psb_gefree Frees -   Next: psb_geasb Assembly + Up: Data management routines + Previous: psb_geall Allocates +   Contents

    -

    -psb_gelp -- Applies a left permutation to a dense - matrix +

    +psb_geins -- Dense matrix insertion routine 

    -call psb_gelp(trans, iperm, x, info)
+call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])

    @@ -66,51 +65,88 @@ call psb_gelp(trans, iperm, x, info)

    On Entry
    -
    trans
    -
    A character that specifies whether to permute $A$ or $A^T$. +
    m
    +
    Number of rows in $val$ to be inserted.
    -Scope: local +Scope:local.
    -Type: required +Type:required.
    Intent: in.
    -Specified as: a single character with value 'N' for $A$ or 'T' for $A^T$. -
    -
    iperm
    -
    An integer array containing permutation information. +Specified as: an integer value. +
    +
    irw
    +
    Indices of the rows to be inserted. Specifically, row $i$ + of $val$ will be inserted into the local row corresponding to the + global row index $irw(i)$. +Scope:local.
    -Scope: local -
    -Type: required +Type:required.
    Intent: in.
    -Specified as: an integer one-dimensional array. -
    -
    x
    -
    The dense matrix to be permuted. +Specified as: an integer array. +
    +
    val
    +
    the dense submatrix to be inserted.
    -Scope: local +Scope:local.
    -Type: required +Type:required.
    -Intent: inout. +Intent: in.
    -Specified as: a one or two dimensional array. -
    +Specified as: a rank 1 or 2 array. +Specified as: an integer value. + +
    desc_a
    +
    the communication descriptor. +
    +Scope:local. +
    +Type:required. +
    +Intent: in. +
    +Specified as: a structured data of type descdatapsb_desc_type. +
    +
    dupl
    +
    How to handle duplicate coefficients. +
    +Scope: global. +
    +Type: optional. +
    +Intent: in. +
    +Specified as: integer, possible values: psb_dupl_ovwrt_, +psb_dupl_add_. +
    +
    local
    +
    Whether the entries in the index vector irw, + are already in local numbering. +
    +Scope:local. +
    +Type:optional. +
    +Specified as: a logical value; default: .false.. + +

    +

    @@ -118,6 +154,18 @@ Specified as: a one or two dimensional array.

    On Return
    +
    x
    +
    the output dense matrix. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type, of +type real, complex or integer. +
    info
    Error code.
    @@ -132,7 +180,42 @@ An integer value; 0 means no error has been detected.

    -

    +Notes + +
      +
    1. Dense vectors/matrices do not have an associated state; +
      2. +
    2. Duplicate entries are either overwritten or added, there is no + provision for raising an error condition. +
      3. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_geasb Assembly + Up: Data management routines + Previous: psb_geall Allocates +   Contents
    + diff --git a/docs/html/node88.html b/docs/html/node88.html index 562054789..705998d9c 100644 --- a/docs/html/node88.html +++ b/docs/html/node88.html @@ -3,8 +3,8 @@ -psb_glob_to_loc -- Global to local indices convertion - +psb_geasb -- Assembly a dense matrix + @@ -16,101 +16,80 @@ - +
    - next - + up - previous - contents
    - Next: psb_loc_to_glob Local - Up: Data management routines - Previous: psb_gelp Applies -   Next: psb_gefree Frees + Up: Data management routines + Previous: psb_geins Dense +   Contents

    -

    -psb_glob_to_loc -- Global to local indices - convertion +

    +psb_geasb -- Assembly a dense matrix 

    -call psb_glob_to_loc(x, y, desc_a, info, iact,owned)
-call psb_glob_to_loc(x, desc_a, info, iact,owned)
+call psb_geasb(x, desc_a, info, mold)

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    -
    x
    -
    An integer vector of indices to be converted. +
    desc_a
    +
    The communication descriptor.
    Scope: local
    Type: required
    -Intent: in, inout. +Intent: in.
    -Specified as: a rank one integer array. +Specified as: a variable of type descdatapsb_desc_type.
    -
    desc_a
    -
    the communication descriptor. +
    mold
    +
    The desired dynamic type for the internal vector storage.
    -Scope:local. +Scope: local.
    -Type:required. +Type: optional.
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    iact
    -
    specifies action to be taken in case of range errors. -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
    -
    owned
    -
    Specfies valid range of input -Scope: global -
    -Type: optional -
    -Intent: in. -
    -If true, then only indices strictly owned by the current process are -considered valid, if false then halo indices are also -accepted. Default: false. +Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is +only allowed when $x$ is of type vdatapsb_T_vect_type.
    @@ -120,43 +99,17 @@ accepted. Default: false.
    x
    -
    If $y$ is not present, - then $x$ is overwritten with the translated integer indices. -Scope: global +
    The dense matrix to be assembled. +
    +Scope: local
    Type: required
    Intent: inout.
    -Specified as: a rank one integer array. -
    -
    y
    -
    If $y$ is present, - then $y$ is overwritten with the translated integer indices, and $x$ - is left unchanged. -Scope: global -
    -Type: optional -
    -Intent: out. -
    -Specified as: a rank one integer array. -
    +Specified as: a rank one or two array with the ALLOCATABLE or an +object of type vdatapsb_T_vect_type, of type real, complex or integer. +
    info
    Error code.
    @@ -169,45 +122,7 @@ Intent: out. An integer value; 0 means no error has been detected.
    - -

    -Notes - -

      -
    1. If an input index is out of range, then the corresponding output - index is set to a negative number; -
      2. -
    2. The default Ignore means that the negative output is the - only action taken on an out-of-range input. -
      3. -
    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_loc_to_glob Local - Up: Data management routines - Previous: psb_gelp Applies -   Contents
    - +
    diff --git a/docs/html/node89.html b/docs/html/node89.html index ac2750955..48f987c13 100644 --- a/docs/html/node89.html +++ b/docs/html/node89.html @@ -3,8 +3,8 @@ -psb_loc_to_glob -- Local to global indices conversion - +psb_gefree -- Frees a dense matrix + @@ -16,90 +16,81 @@ - +
    - next - + up - previous - contents
    - Next: psb_is_owned - Up: Data management routines - Previous: psb_glob_to_loc Global -   Next: psb_gelp Applies + Up: Data management routines + Previous: psb_geasb Assembly +   Contents

    -

    -psb_loc_to_glob -- Local to global indices - conversion +

    +psb_gefree -- Frees a dense matrix 

    -call psb_loc_to_glob(x, y, desc_a, info, iact)
-call psb_loc_to_glob(x, desc_a, info, iact)
+call psb_gefree(x, desc_a, info)

    Type:
    -
    Asynchronous. +
    Synchronous.
    On Entry
    x
    -
    An integer vector of indices to be converted. +
    The dense matrix to + be freed.
    Scope: local
    Type: required
    -Intent: in, inout. +Intent: inout.
    -Specified as: a rank one integer array. -
    +Specified as: a rank one or two array with the ALLOCATABLE or an +object of type vdatapsb_T_vect_type, of type real, complex or integer. +
    +

    +

    desc_a
    -
    the communication descriptor. +
    The communication descriptor.
    -Scope:local. +Scope: local
    -Type:required. +Type: required
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. -
    -
    iact
    -
    specifies action to be taken in case of range errors. -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
    +Specified as: a variable of type descdatapsb_desc_type. +

    @@ -107,44 +98,6 @@ Specified as: a character variable Ignore, Warning or

    On Return
    -
    x
    -
    If $y$ is not present, - then $x$ is overwritten with the translated integer indices. -Scope: global -
    -Type: required -
    -Intent: inout. -
    -Specified as: a rank one integer array. -
    -
    y
    -
    If $y$ is not present, - then $y$ is overwritten with the translated integer indices, and $x$ - is left unchanged. -Scope: global -
    -Type: optional -
    -Intent: out. -
    -Specified as: a rank one integer array. -
    info
    Error code.
    diff --git a/docs/html/node9.html b/docs/html/node9.html index b60f74d37..7e75eada3 100644 --- a/docs/html/node9.html +++ b/docs/html/node9.html @@ -23,26 +23,26 @@
    - next - up - previous - contents
    - Next: Next: Descriptor data structure - Up: Up: userhtml - Previous: Previous: Programming model -   Contents

    @@ -114,132 +114,132 @@ developer's documentation. Subsections
    - next - up - previous - contents
    - Next: Next: Descriptor data structure - Up: Up: userhtml - Previous: Previous: Programming model -   Contents
    diff --git a/docs/html/node90.html b/docs/html/node90.html index aaf6d3e32..9de2f117a 100644 --- a/docs/html/node90.html +++ b/docs/html/node90.html @@ -3,8 +3,8 @@ -psb_is_owned -- - +psb_gelp -- Applies a left permutation to a dense matrix + @@ -16,45 +16,46 @@ - +
    - next - + up - previous - contents
    - Next: psb_owned_index - Up: Data management routines - Previous: psb_loc_to_glob Local -   Next: psb_glob_to_loc Global + Up: Data management routines + Previous: psb_gefree Frees +   Contents

    -

    -psb_is_owned -- +

    +psb_gelp -- Applies a left permutation to a dense + matrix 

    -call psb_is_owned(x, desc_a)
+call psb_gelp(trans, iperm, x, info)

    @@ -65,8 +66,14 @@ call psb_is_owned(x, desc_a)

    On Entry
    -
    x
    -
    Integer index. +
    trans
    +
    A character that specifies whether to permute $A$ or $A^T$.
    Scope: local
    @@ -74,19 +81,36 @@ Type: required
    Intent: in.
    -Specified as: a scalar integer. +Specified as: a single character with value 'N' for $A$ or 'T' for $A^T$.
    -
    desc_a
    -
    the communication descriptor. +
    iperm
    +
    An integer array containing permutation information.
    -Scope:local. +Scope: local
    -Type:required. +Type: required
    Intent: in.
    -Specified as: a structured data of type descdatapsb_desc_type. -
    +Specified as: an integer one-dimensional array. +
    +
    x
    +
    The dense matrix to be permuted. +
    +Scope: local +
    +Type: required +
    +Intent: inout. +
    +Specified as: a one or two dimensional array. +

    @@ -94,30 +118,19 @@ Specified as: a structured data of type descdatapsb_desc_type.

    On Return
    -
    Function value
    -
    A logical mask which is true if - $x$ is owned by the current process +
    info
    +
    Error code. +
    Scope: local
    -Type: required +Type: required
    Intent: out. -
    +
    +An integer value; 0 means no error has been detected. + -

    -Notes - -

      -
    1. This routine returns a .true. value for an index - that is strictly owned by the current process, excluding the halo - indices -
      2. -
    -


    diff --git a/docs/html/node91.html b/docs/html/node91.html index d2bd979c5..053654184 100644 --- a/docs/html/node91.html +++ b/docs/html/node91.html @@ -3,8 +3,8 @@ -psb_owned_index -- - +psb_glob_to_loc -- Global to local indices convertion + @@ -16,45 +16,47 @@ - +
    - next - + up - previous - contents
    - Next: psb_is_local - Up: Data management routines - Previous: psb_is_owned -   Next: psb_loc_to_glob Local + Up: Data management routines + Previous: psb_gelp Applies +   Contents

    -

    -psb_owned_index -- +

    +psb_glob_to_loc -- Global to local indices + convertion 

    -call psb_owned_index(y, x, desc_a, info)
+call psb_glob_to_loc(x, y, desc_a, info, iact,owned)
+call psb_glob_to_loc(x, desc_a, info, iact,owned)

    @@ -66,7 +68,7 @@ call psb_owned_index(y, x, desc_a, info)

    x
    -
    Integer indices. +
    An integer vector of indices to be converted.
    Scope: local
    @@ -74,7 +76,7 @@ Type: required
    Intent: in, inout.
    -Specified as: a scalar or a rank one integer array. +Specified as: a rank one integer array.
    desc_a
    the communication descriptor. @@ -98,6 +100,18 @@ Intent: in. Specified as: a character variable Ignore, Warning or Abort, default Ignore.
    +
    owned
    +
    Specfies valid range of input +Scope: global +
    +Type: optional +
    +Intent: in. +
    +If true, then only indices strictly owned by the current process are +considered valid, if false then halo indices are also +accepted. Default: false. +

    @@ -105,19 +119,43 @@ Specified as: a character variable Ignore, Warning or

    On Return
    -
    y
    -
    A logical mask which is true for all corresponding entries of - x +
    If $y$ is not present, + then $x$ that are owned by the current process -Scope: local + ALT="$x$"> is overwritten with the translated integer indices. +Scope: global
    Type: required
    +Intent: inout. +
    +Specified as: a rank one integer array. +
    +
    y
    +
    If $y$ is present, + then $y$ is overwritten with the translated integer indices, and $x$ + is left unchanged. +Scope: global +
    +Type: optional +
    Intent: out.
    -Specified as: a scalar or rank one logical array. +Specified as: a rank one integer array.
    info
    Error code. @@ -136,14 +174,40 @@ An integer value; 0 means no error has been detected. Notes
      -
    1. This routine returns a .true. value for those indices - that are strictly owned by the current process, excluding the halo - indices +
    2. If an input index is out of range, then the corresponding output + index is set to a negative number; +
      3. +
    3. The default Ignore means that the negative output is the + only action taken on an out-of-range input.

    -

    + +
    + + +next + +up + +previous + +contents +
    + Next: psb_loc_to_glob Local + Up: Data management routines + Previous: psb_gelp Applies +   Contents
    + diff --git a/docs/html/node92.html b/docs/html/node92.html index a3c4d4b6f..666b0bf51 100644 --- a/docs/html/node92.html +++ b/docs/html/node92.html @@ -3,8 +3,8 @@ -psb_is_local -- - +psb_loc_to_glob -- Local to global indices conversion + @@ -16,45 +16,47 @@ - +
    - next - + up - previous - contents
    - Next: psb_local_index - Up: Data management routines - Previous: psb_owned_index -   Next: psb_is_owned + Up: Data management routines + Previous: psb_glob_to_loc Global +   Contents

    -

    -psb_is_local -- +

    +psb_loc_to_glob -- Local to global indices + conversion 

    -call psb_is_local(x, desc_a)
+call psb_loc_to_glob(x, y, desc_a, info, iact)
+call psb_loc_to_glob(x, desc_a, info, iact)

    @@ -66,15 +68,15 @@ call psb_is_local(x, desc_a)

    x
    -
    Integer index. +
    An integer vector of indices to be converted.
    Scope: local
    Type: required
    -Intent: in. +Intent: in, inout.
    -Specified as: a scalar integer. +Specified as: a rank one integer array.
    desc_a
    the communication descriptor. @@ -87,6 +89,17 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    +
    iact
    +
    specifies action to be taken in case of range errors. +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Specified as: a character variable Ignore, Warning or +Abort, default Ignore. +

    @@ -94,30 +107,57 @@ Specified as: a structured data of type descdatapsb_desc_type.

    On Return
    -
    Function value
    -
    A logical mask which is true if - x +
    If $y$ is not present, + then $x$ is local to the current process -Scope: local + ALT="$x$"> is overwritten with the translated integer indices. +Scope: global
    Type: required
    +Intent: inout. +
    +Specified as: a rank one integer array. +
    +
    y
    +
    If $y$ is not present, + then $y$ is overwritten with the translated integer indices, and $x$ + is left unchanged. +Scope: global +
    +Type: optional +
    Intent: out. -
    +
    +Specified as: a rank one integer array. + +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected. +
    -

    -Notes - -

      -
    1. This routine returns a .true. value for an index - that is local to the current process, including the halo - indices -
      2. -
    -


    diff --git a/docs/html/node93.html b/docs/html/node93.html index 3a12cab90..133899aa9 100644 --- a/docs/html/node93.html +++ b/docs/html/node93.html @@ -3,8 +3,8 @@ -psb_local_index -- - +psb_is_owned -- + @@ -16,45 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_get_boundary Extract - Up: Data management routines - Previous: psb_is_local -   Next: psb_owned_index + Up: Data management routines + Previous: psb_loc_to_glob Local +   Contents

    -

    -psb_local_index -- +

    +psb_is_owned -- 

    -call psb_local_index(y, x, desc_a, info)
+call psb_is_owned(x, desc_a)

    @@ -66,15 +66,15 @@ call psb_local_index(y, x, desc_a, info)

    x
    -
    Integer indices. +
    Integer index.
    Scope: local
    Type: required
    -Intent: in, inout. +Intent: in.
    -Specified as: a scalar or a rank one integer array. +Specified as: a scalar integer.
    desc_a
    the communication descriptor. @@ -87,17 +87,6 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    -
    iact
    -
    specifies action to be taken in case of range errors. -Scope: global -
    -Type: optional -
    -Intent: in. -
    -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -

    @@ -105,40 +94,27 @@ Specified as: a character variable Ignore, Warning or

    On Return
    -
    y
    -
    A logical mask which is true for all corresponding entries of +
    Function value
    +
    A logical mask which is true if $x$ that are local to the current process + ALT="$x$"> is owned by the current process Scope: local
    Type: required
    Intent: out. -
    -Specified as: a scalar or rank one logical array. -
    -
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. -
    +

    Notes

      -
    1. This routine returns a .true. value for those indices - that are local to the current process, including the halo - indices. +
    2. This routine returns a .true. value for an index + that is strictly owned by the current process, excluding the halo + indices
    diff --git a/docs/html/node94.html b/docs/html/node94.html index 41a1b8588..56bfb76ff 100644 --- a/docs/html/node94.html +++ b/docs/html/node94.html @@ -3,8 +3,8 @@ -psb_get_boundary -- Extract list of boundary elements - +psb_owned_index -- + @@ -16,46 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_get_overlap Extract - Up: Data management routines - Previous: psb_local_index -   Next: psb_is_local + Up: Data management routines + Previous: psb_is_owned +   Contents

    -

    -psb_get_boundary -- Extract list of boundary - elements +

    +psb_owned_index -- 

    -call psb_get_boundary(bndel, desc, info)
+call psb_owned_index(y, x, desc_a, info)

    @@ -66,7 +65,18 @@ call psb_get_boundary(bndel, desc, info)

    On Entry
    -
    desc
    +
    x
    +
    Integer indices. +
    +Scope: local +
    +Type: required +
    +Intent: in, inout. +
    +Specified as: a scalar or a rank one integer array. +
    +
    desc_a
    the communication descriptor.
    Scope:local. @@ -77,6 +87,17 @@ Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    +
    iact
    +
    specifies action to be taken in case of range errors. +Scope: global +
    +Type: optional +
    +Intent: in. +
    +Specified as: a character variable Ignore, Warning or +Abort, default Ignore. +

    @@ -84,19 +105,20 @@ Specified as: a structured data of type descdatapsb_desc_type.

    On Return
    -
    bndel
    -
    The list of boundary elements on the calling process, in - local numbering. -
    +
    y
    +
    A logical mask which is true for all corresponding entries of + $x$ that are owned by the current process Scope: local
    Type: required
    Intent: out.
    -Specified as: a rank one array with the ALLOCATABLE -attribute, of type integer. -
    +Specified as: a scalar or rank one logical array. +
    info
    Error code.
    @@ -114,12 +136,9 @@ An integer value; 0 means no error has been detected. Notes
      -
    1. If there are no boundary elements (i.e., if the local part of - the connectivity graph is self-contained) the output vector is set - to the “not allocated” state. -
      2. -
    2. Otherwise the size of bndel will be exactly equal to the - number of boundary elements. +
    3. This routine returns a .true. value for those indices + that are strictly owned by the current process, excluding the halo + indices
    diff --git a/docs/html/node95.html b/docs/html/node95.html index 07d579819..79dba935f 100644 --- a/docs/html/node95.html +++ b/docs/html/node95.html @@ -3,8 +3,8 @@ -psb_get_overlap -- Extract list of overlap elements - +psb_is_local -- + @@ -16,46 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_sp_getrow Extract - Up: Data management routines - Previous: psb_get_boundary Extract -   Next: psb_local_index + Up: Data management routines + Previous: psb_owned_index +   Contents

    -

    -psb_get_overlap -- Extract list of overlap - elements +

    +psb_is_local -- 

    -call psb_get_overlap(ovrel, desc, info)
+call psb_is_local(x, desc_a)

    @@ -66,7 +65,18 @@ call psb_get_overlap(ovrel, desc, info)

    On Entry
    -
    desc
    +
    x
    +
    Integer index. +
    +Scope: local +
    +Type: required +
    +Intent: in. +
    +Specified as: a scalar integer. +
    +
    desc_a
    the communication descriptor.
    Scope:local. @@ -84,41 +94,27 @@ Specified as: a structured data of type descdatapsb_desc_type.
    On Return
    -
    ovrel
    -
    The list of overlap elements on the calling process, in - local numbering. -
    +
    Function value
    +
    A logical mask which is true if + $x$ is local to the current process Scope: local
    Type: required
    Intent: out. -
    -Specified as: a rank one array with the ALLOCATABLE -attribute, of type integer.
    -
    info
    -
    Error code. -
    -Scope: local -
    -Type: required -
    -Intent: out. -
    -An integer value; 0 means no error has been detected. -

    Notes

      -
    1. If there are no overlap elements the output vector is set - to the “not allocated” state. -
      2. -
    2. Otherwise the size of ovrel will be exactly equal to the - number of overlap elements. +
    3. This routine returns a .true. value for an index + that is local to the current process, including the halo + indices
    diff --git a/docs/html/node96.html b/docs/html/node96.html index 2736fbfb9..d7e2ac978 100644 --- a/docs/html/node96.html +++ b/docs/html/node96.html @@ -3,8 +3,8 @@ -psb_sp_getrow -- Extract row(s) from a sparse matrix - +psb_local_index -- + @@ -16,47 +16,45 @@ - +
    - next - + up - previous - contents
    - Next: psb_sizeof Memory - Up: Data management routines - Previous: psb_get_overlap Extract -   Next: psb_get_boundary Extract + Up: Data management routines + Previous: psb_is_local +   Contents

    -

    -psb_sp_getrow -- Extract row(s) from a sparse - matrix +

    +psb_local_index -- 

    -call psb_sp_getrow(row, a, nz, ia, ja, val, info, &
-              & append, nzin, lrw)
+call psb_local_index(y, x, desc_a, info)

    @@ -67,75 +65,38 @@ call psb_sp_getrow(row, a, nz, ia, ja, val, info, &

    On Entry
    -
    row
    -
    The (first) row to be extracted. +
    x
    +
    Integer indices.
    -Scope:local +Scope: local
    -Type:required +Type: required +
    +Intent: in, inout. +
    +Specified as: a scalar or a rank one integer array. +
    +
    desc_a
    +
    the communication descriptor. +
    +Scope:local. +
    +Type:required.
    Intent: in.
    -Specified as: an integer $>0$. +Specified as: a structured data of type descdatapsb_desc_type.
    -
    a
    -
    the matrix from which to get rows. +
    iact
    +
    specifies action to be taken in case of range errors. +Scope: global
    -Scope:local -
    -Type:required +Type: optional
    Intent: in.
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    -
    append
    -
    Whether to append or overwrite existing output. -
    -Scope:local -
    -Type:optional -
    -Intent: in. -
    -Specified as: a logical value default: false (overwrite). -
    -
    nzin
    -
    Input size to be appended to. -
    -Scope:local -
    -Type:optional -
    -Intent: in. -
    -Specified as: an integer $>0$. When append is true, specifies how many -entries in the output vectors are already filled. -
    -
    lrw
    -
    The last row to be extracted. -
    -Scope:local -
    -Type:optional -
    -Intent: in. -
    -Specified as: an integer $>0$, default: $row$. - -

    +Specified as: a character variable Ignore, Warning or +Abort, default Ignore.

    @@ -144,49 +105,19 @@ Specified as: an integer On Return
    -
    nz
    -
    the number of elements returned by this call. +
    y
    +
    A logical mask which is true for all corresponding entries of + $x$ that are local to the current process +Scope: local
    -Scope:local. -
    -Type:required. +Type: required
    Intent: out.
    -Returned as: an integer scalar. -
    -
    ia
    -
    the row indices. -
    -Scope:local. -
    -Type:required. -
    -Intent: inout. -
    -Specified as: an integer array with the ALLOCATABLE attribute. -
    -
    ja
    -
    the column indices of the elements to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: inout. -
    -Specified as: an integer array with the ALLOCATABLE attribute. -
    -
    val
    -
    the elements to be inserted. -
    -Scope:local. -
    -Type:required. -
    -Intent: inout. -
    -Specified as: a real array with the ALLOCATABLE attribute. +Specified as: a scalar or rank one logical array.
    info
    Error code. @@ -205,52 +136,14 @@ An integer value; 0 means no error has been detected. Notes
      -
    1. The output $nz$ is always the size of the output generated by - the current call; thus, if append=.true., the total output - size will be $nzin+nz$, with the newly extracted coefficients stored in - entries nzin+1:nzin+nz of the array arguments; -
      2. -
    2. When append=.true. the output arrays are reallocated as - necessary; -
      3. -
    3. The row and column indices are returned in the local numbering - scheme; if the global numbering is desired, the user may employ the - psb_loc_to_glob routine on the output. +
    4. This routine returns a .true. value for those indices + that are local to the current process, including the halo + indices.

    - -

    - - -next - -up - -previous - -contents -
    - Next: psb_sizeof Memory - Up: Data management routines - Previous: psb_get_overlap Extract -   Contents
    - +
    diff --git a/docs/html/node97.html b/docs/html/node97.html index 9a4468313..184f952e2 100644 --- a/docs/html/node97.html +++ b/docs/html/node97.html @@ -3,8 +3,8 @@ -psb_sizeof -- Memory occupation - +psb_get_boundary -- Extract list of boundary elements + @@ -16,50 +16,46 @@ - +
    - next - + up - previous - contents
    - Next: Sorting utilities - Up: Data management routines - Previous: psb_sp_getrow Extract -   Next: psb_get_overlap Extract + Up: Data management routines + Previous: psb_local_index +   Contents

    -

    -psb_sizeof -- Memory occupation +

    +psb_get_boundary -- Extract list of boundary + elements

    -

    -This function computes the memory occupation of a PSBLAS object. - 

    -isz = psb_sizeof(a)
-isz = psb_sizeof(desc_a)
-isz = psb_sizeof(prec)
+call psb_get_boundary(bndel, desc, info)

    @@ -70,54 +66,63 @@ isz = psb_sizeof(prec)

    On Entry
    -
    a
    -
    A sparse matrix -$A$. +
    desc
    +
    the communication descriptor.
    -Scope: local +Scope:local.
    -Type: required -
    -Intent: in. -
    -Specified as: a structured data of type spdatapsb_Tspmat_type. -
    -
    desc_a
    -
    Communication descriptor. -
    -Scope: local -
    -Type: required +Type:required.
    Intent: in.
    Specified as: a structured data of type descdatapsb_desc_type.
    -
    prec
    -
    Scope: local -
    -Type: required -
    -Intent: in. -
    -Specified as: a preconditioner data structure precdatapsb_prec_type. -
    + + +

    +

    On Return
    -
    Function value
    -
    The memory occupation of the object specified in - the calling sequence, in bytes. +
    bndel
    +
    The list of boundary elements on the calling process, in + local numbering.
    Scope: local
    -Returned as: an integer(psb_long_int_k_) number. +Type: required +
    +Intent: out. +
    +Specified as: a rank one array with the ALLOCATABLE +attribute, of type integer. +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected.
    +

    +Notes + +

      +
    1. If there are no boundary elements (i.e., if the local part of + the connectivity graph is self-contained) the output vector is set + to the “not allocated” state. +
      2. +
    2. Otherwise the size of bndel will be exactly equal to the + number of boundary elements. +
      3. +
    +


    diff --git a/docs/html/node98.html b/docs/html/node98.html index 5625baef1..4f8e69381 100644 --- a/docs/html/node98.html +++ b/docs/html/node98.html @@ -3,8 +3,8 @@ -Sorting utilities -- - +psb_get_overlap -- Extract list of overlap elements + @@ -14,121 +14,68 @@ + - +
    - next - + up - previous - contents
    - Next: Parallel environment routines - Up: Data management routines - Previous: psb_sizeof Memory -   Next: psb_sp_getrow Extract + Up: Data management routines + Previous: psb_get_boundary Extract +   Contents

    -

    -Sorting utilities -- +

    +psb_get_overlap -- Extract list of overlap + elements

    -psb_msort -- Sorting by the Merge-sort - algorithm - -

    -psb_qsort -- Sorting by the Quicksort - algorithm - -

    -psb_hsort -- Sorting by the Heapsort algorithm 

    -call psb_msort(x,ix,dir,flag)
-call psb_qsort(x,ix,dir,flag)
-call psb_hsort(x,ix,dir,flag)
+call psb_get_overlap(ovrel, desc, info)

    -These serial routines sort a sequence $X$ 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).

    Type:
    Asynchronous.
    -
    On Entry
    +
    On Entry
    -
    x
    -
    The sequence to be sorted. +
    desc
    +
    the communication descriptor. +
    +Scope:local.
    Type:required.
    -Specified as: an integer, real or complex array of rank 1. -
    -
    ix
    -
    A vector of indices. +Intent: in.
    -Type:optional. -
    -Specified as: an integer array of (at least) the same size as $X$. -
    -
    dir
    -
    The desired ordering. -
    -Type:optional. -
    -Specified as: an integer value:
    -
    Integer and real data:
    -
    psb_sort_up_, -psb_sort_down_, psb_asort_up_, psb_asort_down_; -default psb_sort_up_. -
    -
    Complex data:
    -
    psb_lsort_up_, -psb_lsort_down_, psb_asort_up_, psb_asort_down_; -default psb_lsort_up_. -
    -
    -
    -
    flag
    -
    Whether to keep the original values in $IX$. -
    -Type:optional. -
    -Specified as: an integer value psb_sort_ovw_idx_ or -psb_sort_keep_idx_; default psb_sort_ovw_idx_. - -

    +Specified as: a structured data of type descdatapsb_desc_type.

    @@ -137,155 +84,46 @@ Specified as: an integer value psb_sort_ovw_idx_ or
    On Return
    -
    x
    -
    The sequence of values, in the chosen ordering. +
    ovrel
    +
    The list of overlap elements on the calling process, in + local numbering.
    -Type:required. +Scope: local
    -Specified as: an integer, real or complex array of rank 1. -
    -
    ix
    -
    A vector of indices. +Type: required
    -Type: Optional +Intent: out.
    -An integer array of rank 1, whose entries are moved to the same -position as the corresponding entries in $x$. +Specified as: a rank one array with the ALLOCATABLE +attribute, of type integer. +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected.
    -

    -

    Notes

      -
    1. For integer or real data the sorting can be performed in the up/down direction, on the - natural or absolute values; +
    2. If there are no overlap elements the output vector is set + to the “not allocated” state.
      3. -
    3. For complex data the sorting can be done in a lexicographic - order (i.e.: sort on the real part with ties broken according to - the imaginary part) or on the absolute values; -
      4. -
    4. The routines return the items in the chosen ordering; the - output difference is the handling of ties (i.e. items with an - equal value) in the original input. With the merge-sort algorithm - ties are preserved in the same relative order as they had in the - original sequence, while this is not guaranteed for quicksort or - heapsort; -
      5. -
    5. If -$flag = psb\_sort\_ovw\_idx\_$ then the entries in $ix(1:n)$ - where $n$ is the size of $x$ are initialized to -$ix(i) \leftarrow -i$; thus, upon return from the subroutine, for each - index $i$ we have in $ix(i)$ the position that the item $x(i)$ - occupied in the original data sequence; -
      6. -
    6. If -$flag = psb\_sort\_keep\_idx\_$ the routine will assume that - the entries in $ix(:)$ have already been initialized by the user; -
      7. -
    7. The three sorting algorithms have a similar $O(n \log n)$ expected - running time; in the average case quicksort will be the - fastest and merge-sort the slowest. However note that: - -
        -
      1. The worst case running time for quicksort is $O(n^2)$; the algorithm - implemented here follows the well-known median-of-three heuristics, - but the worst case may still apply; -
        2. -
      2. The worst case running time for merge-sort and heap-sort is - $O(n \log n)$ as the average case; -
        3. -
      3. The merge-sort algorithm is implemented to take advantage of - subsequences that may be already in the desired ordering prior to - the subroutine call; this situation is relatively common when - dealing with groups of indices of sparse matrix entries, thus - merge-sort is the preferred choice when a sorting is needed - by other routines in the library. -
        4. -
      +
    8. Otherwise the size of ovrel will be exactly equal to the + number of overlap elements.

    - -

    - -

    - - -next - -up - -previous - -contents -
    - Next: Parallel environment routines - Up: Data management routines - Previous: psb_sizeof Memory -   Contents
    - +
    diff --git a/docs/html/node99.html b/docs/html/node99.html index 24fa37b80..57f6c73e4 100644 --- a/docs/html/node99.html +++ b/docs/html/node99.html @@ -3,8 +3,8 @@ -Parallel environment routines - +psb_sp_getrow -- Extract row(s) from a sparse matrix + @@ -14,93 +14,243 @@ - - - + + +
    - next - + up - previous - contents
    - Next: psb_init Initializes - Up: userhtml - Previous: Sorting utilities -   Next: psb_sizeof Memory + Up: Data management routines + Previous: psb_get_overlap Extract +   Contents

    -

    - -
    -Parallel environment routines -

    +

    +psb_sp_getrow -- Extract row(s) from a sparse + matrix +

    -

    - -Subsections +
    +call psb_sp_getrow(row, a, nz, ia, ja, val, info, &
+              & append, nzin, lrw)
+
    - - -
    +

    +

    +
    Type:
    +
    Asynchronous. +
    +
    On Entry
    +
    +
    +
    row
    +
    The (first) row to be extracted. +
    +Scope:local +
    +Type:required +
    +Intent: in. +
    +Specified as: an integer $>0$. +
    +
    a
    +
    the matrix from which to get rows. +
    +Scope:local +
    +Type:required +
    +Intent: in. +
    +Specified as: a structured data of type spdatapsb_Tspmat_type. +
    +
    append
    +
    Whether to append or overwrite existing output. +
    +Scope:local +
    +Type:optional +
    +Intent: in. +
    +Specified as: a logical value default: false (overwrite). +
    +
    nzin
    +
    Input size to be appended to. +
    +Scope:local +
    +Type:optional +
    +Intent: in. +
    +Specified as: an integer $>0$. When append is true, specifies how many +entries in the output vectors are already filled. +
    +
    lrw
    +
    The last row to be extracted. +
    +Scope:local +
    +Type:optional +
    +Intent: in. +
    +Specified as: an integer $>0$, default: $row$. + +

    +

    +
    + +

    +

    +
    On Return
    +
    +
    +
    nz
    +
    the number of elements returned by this call. +
    +Scope:local. +
    +Type:required. +
    +Intent: out. +
    +Returned as: an integer scalar. +
    +
    ia
    +
    the row indices. +
    +Scope:local. +
    +Type:required. +
    +Intent: inout. +
    +Specified as: an integer array with the ALLOCATABLE attribute. +
    +
    ja
    +
    the column indices of the elements to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: inout. +
    +Specified as: an integer array with the ALLOCATABLE attribute. +
    +
    val
    +
    the elements to be inserted. +
    +Scope:local. +
    +Type:required. +
    +Intent: inout. +
    +Specified as: a real array with the ALLOCATABLE attribute. +
    +
    info
    +
    Error code. +
    +Scope: local +
    +Type: required +
    +Intent: out. +
    +An integer value; 0 means no error has been detected. +
    +
    + +

    +Notes + +

      +
    1. The output $nz$ is always the size of the output generated by + the current call; thus, if append=.true., the total output + size will be $nzin+nz$, with the newly extracted coefficients stored in + entries nzin+1:nzin+nz of the array arguments; +
      2. +
    2. When append=.true. the output arrays are reallocated as + necessary; +
      3. +
    3. The row and column indices are returned in the local numbering + scheme; if the global numbering is desired, the user may employ the + psb_loc_to_glob routine on the output. +
      4. +
    + +

    + +

    + + +next + +up + +previous + +contents +
    + Next: psb_sizeof Memory + Up: Data management routines + Previous: psb_get_overlap Extract +   Contents
    + diff --git a/docs/html/userhtml.html b/docs/html/userhtml.html index e3200a830..cccebd92f 100644 --- a/docs/html/userhtml.html +++ b/docs/html/userhtml.html @@ -20,18 +20,18 @@
    - next up previous - contents
    - Next: Next: Contents -   Contents

    @@ -61,345 +61,351 @@ Dec 1st, 2018
      -
    • Contents -
    • Introduction -
    • General overview
      -
    • Data Structures and Classes
      -
    • Computational routines -
      -
    • Communication routines - -
      + HREF="node67.html">psb_gediv -- Entrywise Division
    • Data management routines -
      -
    • Parallel environment routines +
    • Communication routines +
      +
    • Data management routines + +
    • psb_wtime -- Wall clock timing + HREF="node102.html">Parallel environment routines + -
      + HREF="node113.html">psb_max -- Global maximum
    • Error handling + HREF="node114.html">psb_min -- Global minimum
    • Utilities - +
    • mm_mat_write -- Write a sparse matrix to a - file in the MatrixMarket format + HREF="node120.html">Error handling
    • mm_array_write -- Write a dense array from a + HREF="node121.html">Utilities +
      -
    • Preconditioner routines -
      diff --git a/docs/psblas-3.6.pdf b/docs/psblas-3.6.pdf index 1f73a02d1..b68308725 100644 --- a/docs/psblas-3.6.pdf +++ b/docs/psblas-3.6.pdf @@ -226,19 +226,19 @@ endobj /Type /ObjStm /N 100 /First 869 -/Length 4583 +/Length 4562 >> stream 202 0 206 47 207 85 210 127 211 166 214 210 215 239 218 283 219 310 222 354 223 382 226 426 227 453 230 497 231 526 234 570 235 597 238 641 239 670 242 714 243 741 246 785 247 814 250 858 251 885 254 929 255 956 258 1000 259 1026 262 1070 -263 1096 266 1138 267 1177 270 1221 271 1247 274 1291 275 1317 278 1361 279 1389 282 1433 -283 1462 286 1504 287 1545 290 1589 291 1616 294 1660 295 1687 298 1731 299 1758 302 1802 -303 1829 306 1873 307 1901 310 1945 311 1975 314 2019 315 2046 318 2090 319 2117 322 2161 -323 2188 326 2232 327 2260 330 2304 331 2330 334 2374 335 2401 338 2445 339 2472 342 2516 -343 2543 346 2587 347 2615 350 2659 351 2685 354 2729 355 2768 358 2812 359 2851 362 2895 -363 2929 366 2973 367 3010 370 3054 371 3088 374 3132 375 3169 378 3213 379 3250 382 3294 -383 3330 386 3374 387 3408 390 3452 391 3480 394 3524 395 3556 398 3598 399 3644 402 3688 +263 1096 266 1140 267 1167 270 1211 271 1238 274 1282 275 1309 278 1351 279 1390 282 1434 +283 1460 286 1504 287 1530 290 1574 291 1602 294 1646 295 1675 298 1717 299 1758 302 1802 +303 1829 306 1873 307 1900 310 1944 311 1971 314 2015 315 2042 318 2086 319 2114 322 2158 +323 2188 326 2232 327 2259 330 2303 331 2330 334 2374 335 2401 338 2445 339 2473 342 2517 +343 2543 346 2587 347 2614 350 2658 351 2685 354 2729 355 2756 358 2800 359 2828 362 2872 +363 2898 366 2942 367 2981 370 3025 371 3064 374 3108 375 3142 378 3186 379 3223 382 3267 +383 3301 386 3345 387 3382 390 3426 391 3463 394 3507 395 3543 398 3587 399 3621 402 3665 % 202 0 obj << /S /GoTo /D (subsection.3.5) >> % 206 0 obj @@ -300,149 +300,149 @@ stream % 262 0 obj (psb\137spsm) % 263 0 obj -<< /S /GoTo /D (section.5) >> -% 266 0 obj -(5 Communication routines) -% 267 0 obj << /S /GoTo /D (section*.47) >> -% 270 0 obj -(psb\137halo) -% 271 0 obj +% 266 0 obj +(psb\137gemlt) +% 267 0 obj << /S /GoTo /D (section*.48) >> -% 274 0 obj -(psb\137ovrl) -% 275 0 obj +% 270 0 obj +(psb\137gediv) +% 271 0 obj << /S /GoTo /D (section*.49) >> +% 274 0 obj +(psb\137geinv) +% 275 0 obj +<< /S /GoTo /D (section.5) >> % 278 0 obj -(psb\137gather) +(5 Communication routines) % 279 0 obj << /S /GoTo /D (section*.50) >> % 282 0 obj -(psb\137scatter) +(psb\137halo) % 283 0 obj -<< /S /GoTo /D (section.6) >> -% 286 0 obj -(6 Data management routines) -% 287 0 obj << /S /GoTo /D (section*.51) >> -% 290 0 obj -(psb\137cdall) -% 291 0 obj +% 286 0 obj +(psb\137ovrl) +% 287 0 obj << /S /GoTo /D (section*.52) >> -% 294 0 obj -(psb\137cdins) -% 295 0 obj +% 290 0 obj +(psb\137gather) +% 291 0 obj << /S /GoTo /D (section*.53) >> +% 294 0 obj +(psb\137scatter) +% 295 0 obj +<< /S /GoTo /D (section.6) >> % 298 0 obj -(psb\137cdasb) +(6 Data management routines) % 299 0 obj << /S /GoTo /D (section*.54) >> % 302 0 obj -(psb\137cdcpy) +(psb\137cdall) % 303 0 obj << /S /GoTo /D (section*.55) >> % 306 0 obj -(psb\137cdfree) +(psb\137cdins) % 307 0 obj << /S /GoTo /D (section*.56) >> % 310 0 obj -(psb\137cdbldext) +(psb\137cdasb) % 311 0 obj << /S /GoTo /D (section*.57) >> % 314 0 obj -(psb\137spall) +(psb\137cdcpy) % 315 0 obj << /S /GoTo /D (section*.58) >> % 318 0 obj -(psb\137spins) +(psb\137cdfree) % 319 0 obj << /S /GoTo /D (section*.59) >> % 322 0 obj -(psb\137spasb) +(psb\137cdbldext) % 323 0 obj << /S /GoTo /D (section*.60) >> % 326 0 obj -(psb\137spfree) +(psb\137spall) % 327 0 obj << /S /GoTo /D (section*.61) >> % 330 0 obj -(psb\137sprn) +(psb\137spins) % 331 0 obj << /S /GoTo /D (section*.62) >> % 334 0 obj -(psb\137geall) +(psb\137spasb) % 335 0 obj << /S /GoTo /D (section*.63) >> % 338 0 obj -(psb\137geins) +(psb\137spfree) % 339 0 obj << /S /GoTo /D (section*.64) >> % 342 0 obj -(psb\137geasb) +(psb\137sprn) % 343 0 obj << /S /GoTo /D (section*.65) >> % 346 0 obj -(psb\137gefree) +(psb\137geall) % 347 0 obj << /S /GoTo /D (section*.66) >> % 350 0 obj -(psb\137gelp) +(psb\137geins) % 351 0 obj << /S /GoTo /D (section*.67) >> % 354 0 obj -(psb\137glob\137to\137loc) +(psb\137geasb) % 355 0 obj << /S /GoTo /D (section*.68) >> % 358 0 obj -(psb\137loc\137to\137glob) +(psb\137gefree) % 359 0 obj << /S /GoTo /D (section*.69) >> % 362 0 obj -(psb\137is\137owned ) +(psb\137gelp) % 363 0 obj << /S /GoTo /D (section*.70) >> % 366 0 obj -(psb\137owned\137index ) +(psb\137glob\137to\137loc) % 367 0 obj << /S /GoTo /D (section*.71) >> % 370 0 obj -(psb\137is\137local ) +(psb\137loc\137to\137glob) % 371 0 obj << /S /GoTo /D (section*.72) >> % 374 0 obj -(psb\137local\137index ) +(psb\137is\137owned ) % 375 0 obj << /S /GoTo /D (section*.73) >> % 378 0 obj -(psb\137get\137boundary) +(psb\137owned\137index ) % 379 0 obj << /S /GoTo /D (section*.74) >> % 382 0 obj -(psb\137get\137overlap) +(psb\137is\137local ) % 383 0 obj << /S /GoTo /D (section*.75) >> % 386 0 obj -(psb\137sp\137getrow) +(psb\137local\137index ) % 387 0 obj << /S /GoTo /D (section*.76) >> % 390 0 obj -(psb\137sizeof) +(psb\137get\137boundary) % 391 0 obj << /S /GoTo /D (section*.77) >> % 394 0 obj -(Sorting utilities) +(psb\137get\137overlap) % 395 0 obj -<< /S /GoTo /D (section.7) >> -% 398 0 obj -(7 Parallel environment routines) -% 399 0 obj << /S /GoTo /D (section*.78) >> +% 398 0 obj +(psb\137sp\137getrow) +% 399 0 obj +<< /S /GoTo /D (section*.79) >> % 402 0 obj -(psb\137init) +(psb\137sizeof) endstream endobj -555 0 obj +567 0 obj << /Length 585 >> @@ -453,24 +453,24 @@ stream 0 g 0 G 0 g 0 G BT -/F16 24.7871 Tf 135.453 564.641 Td [(PSBLAS)-375(3.6.0)-375(User's)-375(guide)]TJ +/F16 24.7871 Tf 135.453 563.395 Td [(PSBLAS)-375(3.6.0)-375(User's)-375(guide)]TJ ET q -1 0 0 1 125.3 548.396 cm +1 0 0 1 125.3 547.151 cm 0 0 343.711 4.981 re f Q BT -/F18 14.3462 Tf 132.314 526.714 Td [(A)-350(r)50(efer)50(enc)50(e)-350(guide)-350(for)-350(the)-350(Par)50(al)-50(lel)-350(Sp)50(arse)-350(BLAS)-350(libr)50(ary)]TJ +/F18 14.3462 Tf 132.314 525.468 Td [(A)-350(r)50(efer)50(enc)50(e)-350(guide)-350(for)-350(the)-350(Par)50(al)-50(lel)-350(Sp)50(arse)-350(BLAS)-350(libr)50(ary)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf 223.567 -133.983 Td [(b)32(y)-383(Salv)63(atore)-383(Filipp)-32(one)]TJ 12.889 -11.956 Td [(and)-383(Alfredo)-384(Buttari)]TJ/F8 9.9626 Tf 41.655 -11.955 Td [(Dec)-333(1st,)-334(2018)]TJ +/F27 9.9626 Tf 223.567 -135.228 Td [(b)32(y)-383(Salv)63(atore)-383(Filipp)-32(one)]TJ 12.889 -11.955 Td [(and)-383(Alfredo)-384(Buttari)]TJ/F8 9.9626 Tf 41.655 -11.955 Td [(Dec)-333(1st,)-334(2018)]TJ 0 g 0 G 0 g 0 G ET endstream endobj -565 0 obj +577 0 obj << /Length 77 >> @@ -485,7 +485,7 @@ ET endstream endobj -616 0 obj +628 0 obj << /Length 16983 >> @@ -1084,222 +1084,234 @@ endobj << /Type /ObjStm /N 100 -/First 865 -/Length 7127 +/First 866 +/Length 6480 >> stream -403 0 407 44 408 70 411 114 412 140 415 184 416 220 419 264 420 297 423 341 -424 368 427 412 428 441 431 485 432 512 435 556 436 583 439 627 440 652 443 696 -444 721 447 765 448 790 451 834 452 859 455 903 456 928 459 972 460 998 463 1042 -464 1067 467 1111 468 1136 471 1178 472 1209 475 1253 476 1282 479 1326 480 1353 483 1397 -484 1438 487 1482 488 1520 491 1562 492 1588 495 1632 496 1657 499 1702 500 1728 503 1773 -504 1805 507 1850 508 1884 511 1929 512 1962 515 2007 516 2042 519 2085 520 2126 523 2171 -524 2198 527 2243 528 2271 531 2316 532 2344 535 2389 536 2417 539 2462 540 2482 543 2527 -544 2554 547 2597 548 2632 551 2677 552 2705 553 2750 556 2864 557 2920 3 2976 554 3030 -564 3135 566 3249 563 3306 615 3372 567 3866 568 4012 569 4158 570 4310 571 4462 572 4614 -573 4771 574 4923 575 5069 576 5221 577 5377 578 5524 579 5671 580 5819 581 5967 582 6114 +403 0 407 44 408 76 411 118 412 164 415 208 416 234 419 278 420 304 423 348 +424 374 427 418 428 454 431 498 432 531 435 575 436 602 439 646 440 675 443 719 +444 746 447 790 448 817 451 861 452 886 455 930 456 955 459 999 460 1024 463 1068 +464 1093 467 1137 468 1162 471 1206 472 1232 475 1276 476 1301 479 1345 480 1370 483 1412 +484 1443 487 1487 488 1516 491 1560 492 1587 495 1632 496 1673 499 1718 500 1756 503 1798 +504 1824 507 1869 508 1894 511 1939 512 1965 515 2010 516 2042 519 2087 520 2121 523 2166 +524 2199 527 2244 528 2279 531 2322 532 2363 535 2408 536 2435 539 2480 540 2508 543 2553 +544 2581 547 2626 548 2654 551 2699 552 2719 555 2764 556 2791 559 2834 560 2869 563 2914 +564 2942 565 2987 568 3101 569 3157 3 3213 566 3267 576 3372 578 3486 575 3543 627 3609 +579 4103 580 4249 581 4395 582 4547 583 4699 584 4851 585 5008 586 5160 587 5306 588 5458 % 403 0 obj -<< /S /GoTo /D (section*.79) >> -% 407 0 obj -(psb\137info) -% 408 0 obj << /S /GoTo /D (section*.80) >> +% 407 0 obj +(Sorting utilities) +% 408 0 obj +<< /S /GoTo /D (section.7) >> % 411 0 obj -(psb\137exit) +(7 Parallel environment routines) % 412 0 obj << /S /GoTo /D (section*.81) >> % 415 0 obj -(psb\137get\137mpicomm) +(psb\137init) % 416 0 obj << /S /GoTo /D (section*.82) >> % 419 0 obj -(psb\137get\137rank) +(psb\137info) % 420 0 obj << /S /GoTo /D (section*.83) >> % 423 0 obj -(psb\137wtime) +(psb\137exit) % 424 0 obj << /S /GoTo /D (section*.84) >> % 427 0 obj -(psb\137barrier) +(psb\137get\137mpicomm) % 428 0 obj << /S /GoTo /D (section*.85) >> % 431 0 obj -(psb\137abort) +(psb\137get\137rank) % 432 0 obj << /S /GoTo /D (section*.86) >> % 435 0 obj -(psb\137bcast) +(psb\137wtime) % 436 0 obj << /S /GoTo /D (section*.87) >> % 439 0 obj -(psb\137sum) +(psb\137barrier) % 440 0 obj << /S /GoTo /D (section*.88) >> % 443 0 obj -(psb\137max) +(psb\137abort) % 444 0 obj << /S /GoTo /D (section*.89) >> % 447 0 obj -(psb\137min) +(psb\137bcast) % 448 0 obj << /S /GoTo /D (section*.90) >> % 451 0 obj -(psb\137amx) +(psb\137sum) % 452 0 obj << /S /GoTo /D (section*.91) >> % 455 0 obj -(psb\137amn) +(psb\137max) % 456 0 obj << /S /GoTo /D (section*.92) >> % 459 0 obj -(psb\137nrm2) +(psb\137min) % 460 0 obj << /S /GoTo /D (section*.93) >> % 463 0 obj -(psb\137snd) +(psb\137amx) % 464 0 obj << /S /GoTo /D (section*.94) >> % 467 0 obj -(psb\137rcv) +(psb\137amn) % 468 0 obj -<< /S /GoTo /D (section.8) >> -% 471 0 obj -(8 Error handling) -% 472 0 obj << /S /GoTo /D (section*.95) >> -% 475 0 obj -(psb\137errpush) -% 476 0 obj +% 471 0 obj +(psb\137nrm2) +% 472 0 obj << /S /GoTo /D (section*.96) >> -% 479 0 obj -(psb\137error) -% 480 0 obj +% 475 0 obj +(psb\137snd) +% 476 0 obj << /S /GoTo /D (section*.97) >> +% 479 0 obj +(psb\137rcv) +% 480 0 obj +<< /S /GoTo /D (section.8) >> % 483 0 obj -(psb\137set\137errverbosity) +(8 Error handling) % 484 0 obj << /S /GoTo /D (section*.98) >> % 487 0 obj -(psb\137set\137erraction) +(psb\137errpush) % 488 0 obj -<< /S /GoTo /D (section.9) >> -% 491 0 obj -(9 Utilities) -% 492 0 obj << /S /GoTo /D (section*.99) >> -% 495 0 obj -(hb\137read) -% 496 0 obj +% 491 0 obj +(psb\137error) +% 492 0 obj << /S /GoTo /D (section*.100) >> -% 499 0 obj -(hb\137write) -% 500 0 obj +% 495 0 obj +(psb\137set\137errverbosity) +% 496 0 obj << /S /GoTo /D (section*.101) >> +% 499 0 obj +(psb\137set\137erraction) +% 500 0 obj +<< /S /GoTo /D (section.9) >> % 503 0 obj -(mm\137mat\137read) +(9 Utilities) % 504 0 obj << /S /GoTo /D (section*.102) >> % 507 0 obj -(mm\137array\137read) +(hb\137read) % 508 0 obj << /S /GoTo /D (section*.103) >> % 511 0 obj -(mm\137mat\137write) +(hb\137write) % 512 0 obj << /S /GoTo /D (section*.104) >> % 515 0 obj -(mm\137array\137write) +(mm\137mat\137read) % 516 0 obj -<< /S /GoTo /D (section.10) >> -% 519 0 obj -(10 Preconditioner routines) -% 520 0 obj << /S /GoTo /D (section*.105) >> -% 523 0 obj -(prec\045init) -% 524 0 obj +% 519 0 obj +(mm\137array\137read) +% 520 0 obj << /S /GoTo /D (section*.106) >> -% 527 0 obj -(prec\045build) -% 528 0 obj +% 523 0 obj +(mm\137mat\137write) +% 524 0 obj << /S /GoTo /D (section*.107) >> +% 527 0 obj +(mm\137array\137write) +% 528 0 obj +<< /S /GoTo /D (section.10) >> % 531 0 obj -(prec\045apply) +(10 Preconditioner routines) % 532 0 obj << /S /GoTo /D (section*.108) >> % 535 0 obj -(prec\045descr) +(prec\045init) % 536 0 obj << /S /GoTo /D (section*.109) >> % 539 0 obj -(clone) +(prec\045build) % 540 0 obj << /S /GoTo /D (section*.110) >> % 543 0 obj -(prec\045free) +(prec\045apply) % 544 0 obj -<< /S /GoTo /D (section.11) >> -% 547 0 obj -(11 Iterative Methods) -% 548 0 obj << /S /GoTo /D (section*.111) >> +% 547 0 obj +(prec\045descr) +% 548 0 obj +<< /S /GoTo /D (section*.112) >> % 551 0 obj -(psb\137krylov) +(clone) % 552 0 obj -<< /S /GoTo /D [553 0 R /Fit] >> -% 553 0 obj +<< /S /GoTo /D (section*.113) >> +% 555 0 obj +(prec\045free) +% 556 0 obj +<< /S /GoTo /D (section.11) >> +% 559 0 obj +(11 Iterative Methods) +% 560 0 obj +<< /S /GoTo /D (section*.114) >> +% 563 0 obj +(psb\137krylov) +% 564 0 obj +<< /S /GoTo /D [565 0 R /Fit] >> +% 565 0 obj << /Type /Page -/Contents 555 0 R -/Resources 554 0 R +/Contents 567 0 R +/Resources 566 0 R /MediaBox [0 0 595.276 841.89] -/Parent 562 0 R +/Parent 574 0 R >> -% 556 0 obj +% 568 0 obj << -/D [553 0 R /XYZ 98.895 753.953 null] +/D [565 0 R /XYZ 98.895 753.953 null] >> -% 557 0 obj +% 569 0 obj << -/D [553 0 R /XYZ 99.895 716.092 null] +/D [565 0 R /XYZ 99.895 716.092 null] >> % 3 0 obj << -/D [553 0 R /XYZ 99.895 716.092 null] ->> -% 554 0 obj -<< -/Font << /F16 558 0 R /F18 559 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 564 0 obj -<< -/Type /Page -/Contents 565 0 R -/Resources 563 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 562 0 R +/D [565 0 R /XYZ 99.895 716.092 null] >> % 566 0 obj << -/D [564 0 R /XYZ 149.705 753.953 null] ->> -% 563 0 obj -<< -/Font << /F8 561 0 R >> +/Font << /F16 570 0 R /F18 571 0 R /F27 572 0 R /F8 573 0 R >> /ProcSet [ /PDF /Text ] >> -% 615 0 obj +% 576 0 obj << /Type /Page -/Contents 616 0 R -/Resources 614 0 R +/Contents 577 0 R +/Resources 575 0 R /MediaBox [0 0 595.276 841.89] -/Parent 562 0 R -/Annots [ 567 0 R 568 0 R 569 0 R 570 0 R 571 0 R 572 0 R 573 0 R 574 0 R 575 0 R 576 0 R 577 0 R 578 0 R 579 0 R 580 0 R 581 0 R 582 0 R 583 0 R 584 0 R 585 0 R 586 0 R 587 0 R 588 0 R 589 0 R 590 0 R 591 0 R 592 0 R 593 0 R 594 0 R 595 0 R 596 0 R 597 0 R 598 0 R 599 0 R 600 0 R 601 0 R 602 0 R 603 0 R 604 0 R 605 0 R 606 0 R 607 0 R 608 0 R 609 0 R 610 0 R 611 0 R 612 0 R ] +/Parent 574 0 R >> -% 567 0 obj +% 578 0 obj +<< +/D [576 0 R /XYZ 149.705 753.953 null] +>> +% 575 0 obj +<< +/Font << /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 627 0 obj +<< +/Type /Page +/Contents 628 0 R +/Resources 626 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 574 0 R +/Annots [ 579 0 R 580 0 R 581 0 R 582 0 R 583 0 R 584 0 R 585 0 R 586 0 R 587 0 R 588 0 R 589 0 R 590 0 R 591 0 R 592 0 R 593 0 R 594 0 R 595 0 R 596 0 R 597 0 R 598 0 R 599 0 R 600 0 R 601 0 R 602 0 R 603 0 R 604 0 R 605 0 R 606 0 R 607 0 R 608 0 R 609 0 R 610 0 R 611 0 R 612 0 R 613 0 R 614 0 R 615 0 R 616 0 R 617 0 R 618 0 R 619 0 R 620 0 R 621 0 R 622 0 R 623 0 R 624 0 R ] +>> +% 579 0 obj << /Type /Annot /Subtype /Link @@ -1307,7 +1319,7 @@ stream /Rect [98.899 683.007 179.001 691.918] /A << /S /GoTo /D (section.1) >> >> -% 568 0 obj +% 580 0 obj << /Type /Annot /Subtype /Link @@ -1315,7 +1327,7 @@ stream /Rect [98.899 660.882 202.863 669.793] /A << /S /GoTo /D (section.2) >> >> -% 569 0 obj +% 581 0 obj << /Type /Annot /Subtype /Link @@ -1323,7 +1335,7 @@ stream /Rect [113.843 648.802 225.868 657.713] /A << /S /GoTo /D (subsection.2.1) >> >> -% 570 0 obj +% 582 0 obj << /Type /Annot /Subtype /Link @@ -1331,7 +1343,7 @@ stream /Rect [113.843 634.785 210.675 645.633] /A << /S /GoTo /D (subsection.2.2) >> >> -% 571 0 obj +% 583 0 obj << /Type /Annot /Subtype /Link @@ -1339,7 +1351,7 @@ stream /Rect [113.843 622.706 232.122 633.554] /A << /S /GoTo /D (subsection.2.3) >> >> -% 572 0 obj +% 584 0 obj << /Type /Annot /Subtype /Link @@ -1347,7 +1359,7 @@ stream /Rect [136.757 610.626 296.409 621.474] /A << /S /GoTo /D (subsubsection.2.3.1) >> >> -% 573 0 obj +% 585 0 obj << /Type /Annot /Subtype /Link @@ -1355,7 +1367,7 @@ stream /Rect [113.843 598.546 227.777 609.394] /A << /S /GoTo /D (subsection.2.4) >> >> -% 574 0 obj +% 586 0 obj << /Type /Annot /Subtype /Link @@ -1363,7 +1375,7 @@ stream /Rect [98.899 578.358 258.112 587.269] /A << /S /GoTo /D (section.3) >> >> -% 575 0 obj +% 587 0 obj << /Type /Annot /Subtype /Link @@ -1371,7 +1383,7 @@ stream /Rect [113.843 564.341 249.529 575.189] /A << /S /GoTo /D (subsection.3.1) >> >> -% 576 0 obj +% 588 0 obj << /Type /Annot /Subtype /Link @@ -1379,60 +1391,12 @@ stream /Rect [136.757 552.261 257.001 563.11] /A << /S /GoTo /D (subsubsection.3.1.1) >> >> -% 577 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 540.182 231.021 551.03] -/A << /S /GoTo /D (section*.2) >> ->> -% 578 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 528.102 227.395 538.95] -/A << /S /GoTo /D (section*.3) >> ->> -% 579 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 516.022 236.832 526.871] -/A << /S /GoTo /D (section*.4) >> ->> -% 580 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 503.943 233.207 514.791] -/A << /S /GoTo /D (section*.5) >> ->> -% 581 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 491.863 246.49 502.711] -/A << /S /GoTo /D (section*.6) >> ->> -% 582 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 479.783 219.602 490.133] -/A << /S /GoTo /D (section*.7) >> ->> endstream endobj -669 0 obj +681 0 obj << -/Length 20672 +/Length 20368 >> stream 0 g 0 G @@ -1659,125 +1623,125 @@ BT 0 g 0 G [-1084(49)]TJ 0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -22.125 Td [(5)-925(Comm)32(unication)-383(r)-1(ou)1(t)-1(ines)]TJ -0 g 0 G - [-19454(52)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 456.722 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 456.523 Td [(halo)]TJ -0 g 0 G - [-495(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(53)]TJ -0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ ET q -1 0 0 1 181.246 444.643 cm +1 0 0 1 181.246 478.848 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 444.444 Td [(o)28(vrl)]TJ +/F8 9.9626 Tf 184.235 478.649 Td [(gemlt)]TJ 0 g 0 G - [-659(.)-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(.)-499(.)-500(.)]TJ + [-662(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-1084(52)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -18.586 -12.08 Td [(psb)]TJ +ET +q +1 0 0 1 181.246 466.768 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 184.235 466.569 Td [(gediv)]TJ +0 g 0 G + [-801(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-1084(54)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -18.586 -12.08 Td [(psb)]TJ +ET +q +1 0 0 1 181.246 454.688 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 184.235 454.489 Td [(gein)28(v)]TJ +0 g 0 G + [-829(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-1084(56)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 432.563 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 432.364 Td [(gather)]TJ -0 g 0 G - [-326(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(60)]TJ +/F27 9.9626 Tf -33.53 -22.125 Td [(5)-925(Comm)32(unication)-383(r)-1(ou)1(t)-1(ines)]TJ 0 g 0 G + [-19454(57)]TJ 0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ +/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ ET q 1 0 0 1 181.246 420.483 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 420.284 Td [(scatter)]TJ +/F8 9.9626 Tf 184.235 420.284 Td [(halo)]TJ 0 g 0 G - [-932(.)-500(.)-500(.)-500(.)-499(.)-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 + [-495(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1083(62)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -22.125 Td [(6)-925(Data)-383(managem)-1(e)1(n)31(t)-383(routines)]TJ -0 g 0 G - [-18205(64)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 386.278 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 386.079 Td [(cdall)]TJ -0 g 0 G - [-273(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(64)]TJ + [-1084(58)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ ET q -1 0 0 1 181.246 374.199 cm +1 0 0 1 181.246 408.404 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 373.999 Td [(cdins)]TJ +/F8 9.9626 Tf 184.235 408.204 Td [(o)28(vrl)]TJ 0 g 0 G - [-879(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-659(.)-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(.)-499(.)-500(.)]TJ 0 g 0 G - [-1084(68)]TJ + [-1084(61)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ ET q -1 0 0 1 181.246 362.119 cm +1 0 0 1 181.246 396.324 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 361.92 Td [(cdasb)]TJ +/F8 9.9626 Tf 184.235 396.125 Td [(gather)]TJ 0 g 0 G - [-657(.)-500(.)-499(.)-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 + [-326(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1083(70)]TJ + [-1084(65)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ ET q +1 0 0 1 181.246 384.244 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 184.235 384.045 Td [(scatter)]TJ +0 g 0 G + [-932(.)-500(.)-500(.)-500(.)-499(.)-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 + [-1083(67)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG +/F27 9.9626 Tf -33.53 -22.125 Td [(6)-925(Data)-383(managem)-1(e)1(n)31(t)-383(routines)]TJ +0 g 0 G + [-18205(69)]TJ +0 0 1 rg 0 0 1 RG +/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ +ET +q 1 0 0 1 181.246 350.039 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 349.84 Td [(cdcp)28(y)]TJ +/F8 9.9626 Tf 184.235 349.84 Td [(cdall)]TJ 0 g 0 G - [-607(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-273(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(71)]TJ + [-1084(69)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1787,11 +1751,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 337.76 Td [(cdfree)]TJ +/F8 9.9626 Tf 184.235 337.76 Td [(cdins)]TJ 0 g 0 G - [-520(.)-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(.)-499(.)-500(.)-500(.)]TJ + [-879(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-1084(72)]TJ + [-1084(73)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ @@ -1801,11 +1765,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 325.681 Td [(cdbldext)]TJ +/F8 9.9626 Tf 184.235 325.681 Td [(cdasb)]TJ 0 g 0 G - [-912(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-657(.)-500(.)-499(.)-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 - [-1084(73)]TJ + [-1083(75)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1815,11 +1779,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 313.601 Td [(spall)]TJ +/F8 9.9626 Tf 184.235 313.601 Td [(cdcp)28(y)]TJ 0 g 0 G - [-323(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-607(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-1084(75)]TJ + [-1084(76)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1829,11 +1793,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 301.521 Td [(spins)]TJ +/F8 9.9626 Tf 184.235 301.521 Td [(cdfree)]TJ 0 g 0 G - [-929(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-520(.)-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(.)-499(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(76)]TJ + [-1084(77)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1843,11 +1807,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 289.441 Td [(spasb)]TJ +/F8 9.9626 Tf 184.235 289.441 Td [(cdbldext)]TJ 0 g 0 G - [-707(.)-500(.)-499(.)-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 + [-912(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1083(79)]TJ + [-1084(78)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ @@ -1857,11 +1821,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 277.362 Td [(spfree)]TJ +/F8 9.9626 Tf 184.235 277.362 Td [(spall)]TJ 0 g 0 G - [-570(.)-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(.)-499(.)-500(.)-500(.)]TJ + [-323(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(81)]TJ + [-1084(80)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1871,11 +1835,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 265.282 Td [(sprn)]TJ +/F8 9.9626 Tf 184.235 265.282 Td [(spins)]TJ 0 g 0 G - [-431(.)-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(.)-499(.)-500(.)]TJ + [-929(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-1084(82)]TJ + [-1084(81)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1885,11 +1849,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 253.202 Td [(geall)]TJ +/F8 9.9626 Tf 184.235 253.202 Td [(spasb)]TJ 0 g 0 G - [-329(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-707(.)-500(.)-499(.)-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 - [-1084(83)]TJ + [-1083(84)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ @@ -1899,11 +1863,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 241.123 Td [(geins)]TJ +/F8 9.9626 Tf 184.235 241.123 Td [(spfree)]TJ 0 g 0 G - [-934(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-570(.)-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(.)-499(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(84)]TJ + [-1084(86)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1913,11 +1877,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 229.043 Td [(geasb)]TJ +/F8 9.9626 Tf 184.235 229.043 Td [(sprn)]TJ 0 g 0 G - [-712(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-431(.)-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(.)-499(.)-500(.)]TJ 0 g 0 G - [-1084(86)]TJ + [-1084(87)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1927,11 +1891,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 216.963 Td [(gefree)]TJ +/F8 9.9626 Tf 184.235 216.963 Td [(geall)]TJ 0 g 0 G - [-576(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-329(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-1084(87)]TJ + [-1084(88)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.079 Td [(psb)]TJ @@ -1941,11 +1905,11 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 204.884 Td [(gelp)]TJ +/F8 9.9626 Tf 184.235 204.884 Td [(geins)]TJ 0 g 0 G - [-551(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-934(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(88)]TJ + [-1084(89)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -18.586 -12.08 Td [(psb)]TJ @@ -1955,169 +1919,148 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 192.804 Td [(glob)]TJ -ET -q -1 0 0 1 203.097 193.003 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 206.086 192.804 Td [(to)]TJ -ET -q -1 0 0 1 215.54 193.003 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 218.528 192.804 Td [(lo)-28(c)]TJ +/F8 9.9626 Tf 184.235 192.804 Td [(geasb)]TJ 0 g 0 G - [-747(.)-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 + [-712(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1083(89)]TJ + [-1084(91)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -52.879 -12.08 Td [(psb)]TJ + -18.586 -12.08 Td [(psb)]TJ ET q 1 0 0 1 181.246 180.923 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 180.724 Td [(lo)-28(c)]TJ -ET -q -1 0 0 1 197.286 180.923 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 200.275 180.724 Td [(to)]TJ -ET -q -1 0 0 1 209.728 180.923 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 212.717 180.724 Td [(glob)]TJ +/F8 9.9626 Tf 184.235 180.724 Td [(gefree)]TJ 0 g 0 G - [-748(.)-500(.)-500(.)-499(.)-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 + [-576(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1083(91)]TJ + [-1084(92)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -47.068 -12.08 Td [(psb)]TJ + -18.586 -12.08 Td [(psb)]TJ ET q 1 0 0 1 181.246 168.844 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 168.644 Td [(is)]TJ -ET -q -1 0 0 1 191.53 168.844 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 194.518 168.644 Td [(o)28(wned)]TJ +/F8 9.9626 Tf 184.235 168.644 Td [(gelp)]TJ 0 g 0 G - [-880(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-551(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(92)]TJ + [-1084(93)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -28.869 -12.079 Td [(psb)]TJ + -18.586 -12.079 Td [(psb)]TJ ET q 1 0 0 1 181.246 156.764 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 156.565 Td [(o)28(wned)]TJ +/F8 9.9626 Tf 184.235 156.565 Td [(glob)]TJ ET q -1 0 0 1 212.23 156.764 cm +1 0 0 1 203.097 156.764 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 215.219 156.565 Td [(index)]TJ +/F8 9.9626 Tf 206.086 156.565 Td [(to)]TJ +ET +q +1 0 0 1 215.54 156.764 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 218.528 156.565 Td [(lo)-28(c)]TJ 0 g 0 G - [-746(.)-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 + [-747(.)-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 - [-1083(93)]TJ + [-1083(94)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -49.57 -12.08 Td [(psb)]TJ + -52.879 -12.08 Td [(psb)]TJ ET q 1 0 0 1 181.246 144.684 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 144.485 Td [(is)]TJ +/F8 9.9626 Tf 184.235 144.485 Td [(lo)-28(c)]TJ ET q -1 0 0 1 191.53 144.684 cm +1 0 0 1 197.286 144.684 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 194.518 144.485 Td [(lo)-28(cal)]TJ +/F8 9.9626 Tf 200.275 144.485 Td [(to)]TJ +ET +q +1 0 0 1 209.728 144.684 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 212.717 144.485 Td [(glob)]TJ 0 g 0 G - [-824(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-748(.)-500(.)-500(.)-499(.)-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 - [-1084(94)]TJ + [-1083(96)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -28.869 -12.08 Td [(psb)]TJ + -47.068 -12.08 Td [(psb)]TJ ET q 1 0 0 1 181.246 132.605 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 132.405 Td [(lo)-28(cal)]TJ +/F8 9.9626 Tf 184.235 132.405 Td [(is)]TJ ET q -1 0 0 1 205.035 132.605 cm +1 0 0 1 191.53 132.605 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 208.023 132.405 Td [(index)]TJ +/F8 9.9626 Tf 194.518 132.405 Td [(o)28(wned)]TJ 0 g 0 G - [-691(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-880(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(95)]TJ + [-1084(97)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -42.374 -12.079 Td [(psb)]TJ + -28.869 -12.079 Td [(psb)]TJ ET q 1 0 0 1 181.246 120.525 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 184.235 120.326 Td [(get)]TJ +/F8 9.9626 Tf 184.235 120.326 Td [(o)28(wned)]TJ ET q -1 0 0 1 198.116 120.525 cm +1 0 0 1 212.23 120.525 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 201.105 120.326 Td [(b)-28(oundary)]TJ +/F8 9.9626 Tf 215.219 120.326 Td [(index)]TJ 0 g 0 G - [-354(.)-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 + [-746(.)-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 - [-1083(96)]TJ + [-1083(98)]TJ 0 g 0 G 0 g 0 G - 118.688 -29.888 Td [(ii)]TJ + 104.574 -29.888 Td [(ii)]TJ 0 g 0 G ET endstream endobj -715 0 obj +730 0 obj << -/Length 18018 +/Length 19093 >> stream 0 g 0 G @@ -2131,597 +2074,690 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 706.129 Td [(get)]TJ +/F8 9.9626 Tf 133.425 706.129 Td [(is)]TJ ET q -1 0 0 1 147.307 706.328 cm +1 0 0 1 140.72 706.328 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 150.295 706.129 Td [(o)28(v)28(e)-1(r)1(lap)]TJ +/F8 9.9626 Tf 143.709 706.129 Td [(lo)-28(cal)]TJ 0 g 0 G - [-605(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-824(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(97)]TJ + [-1084(99)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -35.456 -11.955 Td [(psb)]TJ + -28.87 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 694.373 cm +1 0 0 1 130.436 693.675 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 694.174 Td [(sp)]TJ +/F8 9.9626 Tf 133.425 693.476 Td [(lo)-28(cal)]TJ ET q -1 0 0 1 143.488 694.373 cm +1 0 0 1 154.225 693.675 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 146.476 694.174 Td [(getro)28(w)]TJ +/F8 9.9626 Tf 157.214 693.476 Td [(index)]TJ 0 g 0 G - [-433(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(98)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -31.637 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 682.418 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 682.219 Td [(sizeof)]TJ -0 g 0 G - [-740(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-691(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(100)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.956 Td [(Sorting)-333(utilities)]TJ + -42.375 -12.654 Td [(psb)]TJ +ET +q +1 0 0 1 130.436 681.022 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 133.425 680.822 Td [(get)]TJ +ET +q +1 0 0 1 147.307 681.022 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 150.295 680.822 Td [(b)-28(oundary)]TJ 0 g 0 G - [-519(.)-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 + [-354(.)-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 [-583(101)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -14.944 -21.917 Td [(7)-925(P)32(arallel)-384(en)32(vironmen)32(t)-383(routines)]TJ -0 g 0 G - [-16316(103)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.956 Td [(psb)]TJ + -35.456 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 636.59 cm +1 0 0 1 130.436 668.368 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 636.39 Td [(init)]TJ -0 g 0 G - [-829(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(104)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ +/F8 9.9626 Tf 133.425 668.169 Td [(get)]TJ ET q -1 0 0 1 130.436 624.634 cm +1 0 0 1 147.307 668.368 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 624.435 Td [(info)]TJ +/F8 9.9626 Tf 150.295 668.169 Td [(o)28(v)28(e)-1(r)1(lap)]TJ 0 g 0 G - [-690(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-605(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(102)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -35.456 -12.653 Td [(psb)]TJ +ET +q +1 0 0 1 130.436 655.715 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 133.425 655.516 Td [(sp)]TJ +ET +q +1 0 0 1 143.488 655.715 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 146.476 655.516 Td [(getro)28(w)]TJ +0 g 0 G + [-433(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(103)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -31.637 -12.654 Td [(psb)]TJ +ET +q +1 0 0 1 130.436 643.062 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 133.425 642.862 Td [(sizeof)]TJ +0 g 0 G + [-740(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(105)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 612.679 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 612.48 Td [(exit)]TJ + -18.586 -12.653 Td [(Sorting)-333(utilities)]TJ 0 g 0 G - [-690(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-519(.)-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 - [-584(106)]TJ + [-583(106)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ +/F27 9.9626 Tf -14.944 -23.081 Td [(7)-925(P)32(arallel)-384(en)32(vironmen)32(t)-383(routines)]TJ +0 g 0 G + [-16316(108)]TJ +0 0 1 rg 0 0 1 RG +/F8 9.9626 Tf 14.944 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 600.724 cm +1 0 0 1 130.436 594.674 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 600.525 Td [(get)]TJ -ET -q -1 0 0 1 147.307 600.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 600.525 Td [(mpicomm)]TJ +/F8 9.9626 Tf 133.425 594.475 Td [(init)]TJ 0 g 0 G - [-1024(.)-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 + [-829(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(107)]TJ + [-583(109)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -35.456 -11.955 Td [(psb)]TJ + -18.586 -12.654 Td [(psb)]TJ ET q -1 0 0 1 130.436 588.769 cm +1 0 0 1 130.436 582.021 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 588.57 Td [(get)]TJ -ET -q -1 0 0 1 147.307 588.769 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 588.57 Td [(rank)]TJ +/F8 9.9626 Tf 133.425 581.821 Td [(info)]TJ 0 g 0 G - [-994(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-584(108)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -35.456 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 576.814 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 576.615 Td [(wtime)]TJ -0 g 0 G - [-440(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-584(109)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -11.956 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 564.859 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 564.659 Td [(barrier)]TJ -0 g 0 G - [-931(.)-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(.)-499(.)]TJ + [-690(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 [-584(110)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 552.903 cm +1 0 0 1 130.436 569.367 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 552.704 Td [(ab)-28(ort)]TJ +/F8 9.9626 Tf 133.425 569.168 Td [(exit)]TJ 0 g 0 G - [-742(.)-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(.)-499(.)-500(.)-500(.)-500(.)]TJ + [-690(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(111)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 540.948 cm +1 0 0 1 130.436 556.714 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 540.749 Td [(b)-28(cast)]TJ +/F8 9.9626 Tf 133.425 556.515 Td [(get)]TJ +ET +q +1 0 0 1 147.307 556.714 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 150.295 556.515 Td [(mpicomm)]TJ 0 g 0 G - [-795(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-1024(.)-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 - [-584(112)]TJ + [-583(112)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -35.456 -12.654 Td [(psb)]TJ ET q -1 0 0 1 130.436 528.993 cm +1 0 0 1 130.436 544.061 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 528.794 Td [(sum)]TJ +/F8 9.9626 Tf 133.425 543.861 Td [(get)]TJ +ET +q +1 0 0 1 147.307 544.061 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 150.295 543.861 Td [(rank)]TJ 0 g 0 G - [-546(.)-499(.)-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(.)-499(.)]TJ + [-994(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 [-584(113)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -35.456 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 517.038 cm +1 0 0 1 130.436 531.407 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 516.839 Td [(max)]TJ +/F8 9.9626 Tf 133.425 531.208 Td [(wtime)]TJ 0 g 0 G - [-468(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-440(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-583(114)]TJ + [-584(114)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 505.083 cm +1 0 0 1 130.436 518.754 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 504.884 Td [(min)]TJ +/F8 9.9626 Tf 133.425 518.555 Td [(barrier)]TJ 0 g 0 G - [-662(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-931(.)-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(.)-499(.)]TJ 0 g 0 G [-584(115)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.956 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 493.128 cm +1 0 0 1 130.436 506.101 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 492.928 Td [(amx)]TJ +/F8 9.9626 Tf 133.425 505.902 Td [(ab)-28(ort)]TJ 0 g 0 G - [-468(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-742(.)-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(.)-499(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-583(116)]TJ + [-584(116)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.654 Td [(psb)]TJ ET q -1 0 0 1 130.436 481.172 cm +1 0 0 1 130.436 493.448 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 480.973 Td [(amn)]TJ +/F8 9.9626 Tf 133.425 493.248 Td [(b)-28(cast)]TJ 0 g 0 G - [-440(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-795(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(117)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 469.217 cm +1 0 0 1 130.436 480.794 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 469.018 Td [(nrm2)]TJ +/F8 9.9626 Tf 133.425 480.595 Td [(sum)]TJ 0 g 0 G - [-826(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-546(.)-499(.)-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(.)-499(.)]TJ 0 g 0 G [-584(118)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 457.262 cm +1 0 0 1 130.436 468.141 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 457.063 Td [(snd)]TJ +/F8 9.9626 Tf 133.425 467.942 Td [(max)]TJ 0 g 0 G - [-823(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-468(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-584(119)]TJ + [-583(119)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 445.307 cm +1 0 0 1 130.436 455.488 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 445.108 Td [(rcv)]TJ +/F8 9.9626 Tf 133.425 455.289 Td [(min)]TJ 0 g 0 G - [-965(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-662(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(120)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -21.918 Td [(8)-925(Error)-383(handling)]TJ -0 g 0 G - [-23812(121)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.955 Td [(psb)]TJ + -18.586 -12.654 Td [(psb)]TJ ET q -1 0 0 1 130.436 411.434 cm +1 0 0 1 130.436 442.835 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 411.235 Td [(errpush)]TJ +/F8 9.9626 Tf 133.425 442.635 Td [(amx)]TJ 0 g 0 G - [-595(.)-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(.)-499(.)-500(.)-500(.)-500(.)]TJ + [-468(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-583(121)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -18.586 -12.653 Td [(psb)]TJ +ET +q +1 0 0 1 130.436 430.181 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 133.425 429.982 Td [(amn)]TJ +0 g 0 G + [-440(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(122)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -18.586 -12.653 Td [(psb)]TJ +ET +q +1 0 0 1 130.436 417.528 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 133.425 417.329 Td [(nrm2)]TJ +0 g 0 G + [-826(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(123)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.955 Td [(psb)]TJ + -18.586 -12.654 Td [(psb)]TJ ET q -1 0 0 1 130.436 399.479 cm +1 0 0 1 130.436 404.875 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 399.28 Td [(error)]TJ +/F8 9.9626 Tf 133.425 404.675 Td [(snd)]TJ 0 g 0 G - [-987(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-823(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(124)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -18.586 -11.956 Td [(psb)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 130.436 387.524 cm +1 0 0 1 130.436 392.221 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 133.425 387.324 Td [(set)]TJ -ET -q -1 0 0 1 146.255 387.524 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 149.244 387.324 Td [(errv)28(erb)-28(osit)28(y)]TJ +/F8 9.9626 Tf 133.425 392.022 Td [(rcv)]TJ 0 g 0 G - [-977(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-965(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(125)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -34.405 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 375.568 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 375.369 Td [(set)]TJ -ET -q -1 0 0 1 146.255 375.568 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 149.244 375.369 Td [(erraction)]TJ -0 g 0 G - [-735(.)-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(.)-499(.)-500(.)]TJ -0 g 0 G - [-584(126)]TJ +/F27 9.9626 Tf -33.53 -23.081 Td [(8)-925(Error)-383(handling)]TJ 0 g 0 G + [-23812(126)]TJ 0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -49.349 -21.918 Td [(9)-925(Utilities)]TJ -0 g 0 G - [-27238(127)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.955 Td [(h)28(b)]TJ +/F8 9.9626 Tf 14.944 -12.654 Td [(psb)]TJ ET q -1 0 0 1 126.23 341.695 cm +1 0 0 1 130.436 356.487 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 129.219 341.496 Td [(read)]TJ +/F8 9.9626 Tf 133.425 356.288 Td [(errpush)]TJ 0 g 0 G - [-859(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-595(.)-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(.)-499(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(128)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -14.38 -11.955 Td [(h)28(b)]TJ + -18.586 -12.654 Td [(psb)]TJ ET q -1 0 0 1 126.23 329.74 cm +1 0 0 1 130.436 343.833 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 129.219 329.541 Td [(write)]TJ +/F8 9.9626 Tf 133.425 343.634 Td [(error)]TJ 0 g 0 G - [-526(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-987(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(129)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -14.38 -11.955 Td [(mm)]TJ + -18.586 -12.653 Td [(psb)]TJ ET q -1 0 0 1 132.042 317.785 cm +1 0 0 1 130.436 331.18 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 135.03 317.586 Td [(mat)]TJ +/F8 9.9626 Tf 133.425 330.981 Td [(set)]TJ ET q -1 0 0 1 152.786 317.785 cm +1 0 0 1 146.255 331.18 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 155.775 317.586 Td [(read)]TJ +/F8 9.9626 Tf 149.244 330.981 Td [(errv)28(erb)-28(osit)28(y)]TJ 0 g 0 G - [-527(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-977(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(130)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -40.936 -11.955 Td [(mm)]TJ + -34.405 -12.653 Td [(psb)]TJ ET q -1 0 0 1 132.042 305.83 cm +1 0 0 1 130.436 318.527 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 135.03 305.631 Td [(arra)28(y)]TJ +/F8 9.9626 Tf 133.425 318.328 Td [(set)]TJ ET q -1 0 0 1 158.376 305.83 cm +1 0 0 1 146.255 318.527 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 161.365 305.631 Td [(read)]TJ +/F8 9.9626 Tf 149.244 318.328 Td [(erraction)]TJ 0 g 0 G - [-744(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-735(.)-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(.)-499(.)-500(.)]TJ 0 g 0 G [-584(131)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -46.526 -11.955 Td [(mm)]TJ +/F27 9.9626 Tf -49.349 -23.082 Td [(9)-925(Utilities)]TJ +0 g 0 G + [-27238(132)]TJ +0 0 1 rg 0 0 1 RG +/F8 9.9626 Tf 14.944 -12.653 Td [(h)28(b)]TJ ET q -1 0 0 1 132.042 293.875 cm +1 0 0 1 126.23 282.792 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 135.03 293.676 Td [(mat)]TJ +/F8 9.9626 Tf 129.219 282.593 Td [(read)]TJ +0 g 0 G + [-859(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(133)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + -14.38 -12.653 Td [(h)28(b)]TJ ET q -1 0 0 1 152.786 293.875 cm +1 0 0 1 126.23 270.139 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 155.775 293.676 Td [(write)]TJ +/F8 9.9626 Tf 129.219 269.94 Td [(write)]TJ 0 g 0 G - [-972(.)-499(.)-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 + [-526(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-583(132)]TJ + [-584(134)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - -40.936 -11.956 Td [(mm)]TJ + -14.38 -12.654 Td [(mm)]TJ ET q -1 0 0 1 132.042 281.92 cm +1 0 0 1 132.042 257.486 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 135.03 281.72 Td [(arra)28(y)]TJ +/F8 9.9626 Tf 135.03 257.286 Td [(mat)]TJ ET q -1 0 0 1 158.376 281.92 cm +1 0 0 1 152.786 257.486 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 161.365 281.72 Td [(write)]TJ +/F8 9.9626 Tf 155.775 257.286 Td [(read)]TJ 0 g 0 G - [-410(.)-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 + [-527(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-583(133)]TJ + [-584(135)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -61.47 -21.917 Td [(10)-350(Preconditioner)-383(routi)-1(n)1(es)]TJ + -40.936 -12.653 Td [(mm)]TJ +ET +q +1 0 0 1 132.042 244.832 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 135.03 244.633 Td [(arra)28(y)]TJ +ET +q +1 0 0 1 158.376 244.832 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 161.365 244.633 Td [(read)]TJ 0 g 0 G - [-19367(134)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.956 Td [(prec%init)]TJ -0 g 0 G - [-803(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(135)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -11.955 Td [(prec%build)]TJ -0 g 0 G - [-858(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-744(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 [-584(136)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - 0 -11.955 Td [(prec%apply)]TJ + -46.526 -12.653 Td [(mm)]TJ +ET +q +1 0 0 1 132.042 232.179 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 135.03 231.98 Td [(mat)]TJ +ET +q +1 0 0 1 152.786 232.179 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 155.775 231.98 Td [(write)]TJ 0 g 0 G - [-664(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-972(.)-499(.)-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 - [-584(138)]TJ + [-583(137)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - 0 -11.955 Td [(prec%descr)]TJ + -40.936 -12.653 Td [(mm)]TJ +ET +q +1 0 0 1 132.042 219.526 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 135.03 219.327 Td [(arra)28(y)]TJ +ET +q +1 0 0 1 158.376 219.526 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 161.365 219.327 Td [(write)]TJ 0 g 0 G - [-850(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ + [-410(.)-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 - [-584(139)]TJ + [-583(138)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - 0 -11.955 Td [(clone)]TJ +/F27 9.9626 Tf -61.47 -23.082 Td [(10)-350(Preconditioner)-383(routi)-1(n)1(es)]TJ 0 g 0 G - [-417(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-19367(139)]TJ +0 0 1 rg 0 0 1 RG +/F8 9.9626 Tf 14.944 -12.653 Td [(prec%init)]TJ +0 g 0 G + [-803(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 [-583(140)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG - 0 -11.956 Td [(prec%free)]TJ + 0 -12.653 Td [(prec%build)]TJ +0 g 0 G + [-858(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(141)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + 0 -12.654 Td [(prec%apply)]TJ +0 g 0 G + [-664(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-584(143)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + 0 -12.653 Td [(prec%descr)]TJ +0 g 0 G + [-850(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ +0 g 0 G + [-584(144)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + 0 -12.653 Td [(clone)]TJ +0 g 0 G + [-417(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-583(145)]TJ +0 g 0 G +0 0 1 rg 0 0 1 RG + 0 -12.653 Td [(prec%free)]TJ 0 g 0 G [-717(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(141)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -14.944 -21.917 Td [(11)-350(Iterativ)32(e)-384(Metho)-31(ds)]TJ -0 g 0 G - [-22176(142)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.956 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 154.398 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 154.199 Td [(krylo)28(v)]TJ -0 g 0 G - [-382(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(143)]TJ + [-583(146)]TJ 0 g 0 G 0 g 0 G - 134.175 -63.761 Td [(iii)]TJ + 152.761 -29.888 Td [(iii)]TJ 0 g 0 G ET endstream endobj -619 0 obj +631 0 obj << /Type /ObjStm /N 100 /First 924 -/Length 16089 +/Length 16094 >> stream -583 0 584 148 585 296 586 445 587 594 588 751 589 903 590 1059 591 1208 592 1357 -593 1506 594 1654 595 1803 596 1952 597 2101 598 2250 599 2399 600 2548 601 2697 602 2846 -603 2995 604 3144 605 3293 606 3441 607 3590 608 3747 609 3899 610 4055 611 4204 612 4352 -617 4501 618 4557 614 4613 668 4705 613 5207 620 5356 621 5505 622 5657 623 5809 624 5956 -625 6105 626 6253 627 6400 628 6548 629 6697 630 6846 631 6995 632 7144 633 7292 634 7441 -635 7590 636 7737 637 7886 638 8033 639 8181 640 8329 641 8477 642 8626 643 8772 644 8920 -645 9069 646 9218 647 9367 648 9516 649 9665 650 9814 651 9963 652 10112 653 10261 654 10410 -655 10559 656 10708 657 10857 658 11005 659 11153 660 11301 661 11450 662 11599 663 11747 664 11894 -665 12042 670 12189 667 12246 714 12325 666 12795 671 12944 672 13092 673 13237 674 13385 675 13530 -676 13679 677 13827 678 13976 679 14123 680 14272 681 14421 682 14570 683 14719 684 14868 685 15016 -% 583 0 obj +589 0 590 147 591 294 592 442 593 590 594 737 595 885 596 1033 597 1181 598 1330 +599 1479 600 1636 601 1788 602 1944 603 2093 604 2242 605 2391 606 2539 607 2688 608 2837 +609 2986 610 3135 611 3284 612 3433 613 3582 614 3731 615 3880 616 4029 617 4178 618 4326 +619 4475 620 4632 621 4784 622 4940 623 5089 624 5237 629 5386 630 5442 626 5498 680 5590 +625 6092 632 6241 633 6390 634 6542 635 6694 636 6841 637 6990 638 7138 639 7285 640 7433 +641 7582 642 7731 643 7880 644 8029 645 8177 646 8326 647 8475 648 8622 649 8771 650 8920 +651 9067 652 9216 653 9363 654 9512 655 9661 656 9810 657 9958 658 10104 659 10252 660 10401 +661 10550 662 10699 663 10848 664 10997 665 11146 666 11295 667 11444 668 11593 669 11742 670 11890 +671 12038 672 12186 673 12335 674 12484 675 12632 676 12779 677 12927 682 13075 679 13132 729 13211 +678 13689 683 13838 684 13986 685 14134 686 14283 687 14432 688 14577 689 14726 690 14872 691 15021 +% 589 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 540.182 231.021 551.03] +/A << /S /GoTo /D (section*.2) >> +>> +% 590 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 528.102 227.395 538.95] +/A << /S /GoTo /D (section*.3) >> +>> +% 591 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 516.022 236.832 526.871] +/A << /S /GoTo /D (section*.4) >> +>> +% 592 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 503.943 233.207 514.791] +/A << /S /GoTo /D (section*.5) >> +>> +% 593 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 491.863 246.49 502.711] +/A << /S /GoTo /D (section*.6) >> +>> +% 594 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [168.638 479.783 219.602 490.133] +/A << /S /GoTo /D (section*.7) >> +>> +% 595 0 obj << /Type /Annot /Subtype /Link @@ -2729,7 +2765,7 @@ stream /Rect [168.638 469.641 195.537 478.552] /A << /S /GoTo /D (section*.8) >> >> -% 584 0 obj +% 596 0 obj << /Type /Annot /Subtype /Link @@ -2737,7 +2773,7 @@ stream /Rect [168.638 457.561 192.769 466.361] /A << /S /GoTo /D (section*.9) >> >> -% 585 0 obj +% 597 0 obj << /Type /Annot /Subtype /Link @@ -2745,7 +2781,7 @@ stream /Rect [168.638 443.544 284.769 454.392] /A << /S /GoTo /D (section*.10) >> >> -% 586 0 obj +% 598 0 obj << /Type /Annot /Subtype /Link @@ -2753,7 +2789,7 @@ stream /Rect [168.638 431.464 283.717 442.313] /A << /S /GoTo /D (section*.11) >> >> -% 587 0 obj +% 599 0 obj << /Type /Annot /Subtype /Link @@ -2761,7 +2797,7 @@ stream /Rect [136.757 421.322 248.228 430.233] /A << /S /GoTo /D (subsubsection.3.1.2) >> >> -% 588 0 obj +% 600 0 obj << /Type /Annot /Subtype /Link @@ -2769,7 +2805,7 @@ stream /Rect [113.843 407.305 223.654 418.153] /A << /S /GoTo /D (subsection.3.2) >> >> -% 589 0 obj +% 601 0 obj << /Type /Annot /Subtype /Link @@ -2777,7 +2813,7 @@ stream /Rect [136.757 395.225 273.19 406.074] /A << /S /GoTo /D (subsubsection.3.2.1) >> >> -% 590 0 obj +% 602 0 obj << /Type /Annot /Subtype /Link @@ -2785,7 +2821,7 @@ stream /Rect [168.638 383.146 212.767 393.496] /A << /S /GoTo /D (section*.12) >> >> -% 591 0 obj +% 603 0 obj << /Type /Annot /Subtype /Link @@ -2793,7 +2829,7 @@ stream /Rect [168.638 371.066 209.141 381.914] /A << /S /GoTo /D (section*.13) >> >> -% 592 0 obj +% 604 0 obj << /Type /Annot /Subtype /Link @@ -2801,7 +2837,7 @@ stream /Rect [168.638 358.986 220.239 369.336] /A << /S /GoTo /D (section*.14) >> >> -% 593 0 obj +% 605 0 obj << /Type /Annot /Subtype /Link @@ -2809,7 +2845,7 @@ stream /Rect [168.638 346.906 206.374 357.49] /A << /S /GoTo /D (section*.15) >> >> -% 594 0 obj +% 606 0 obj << /Type /Annot /Subtype /Link @@ -2817,7 +2853,7 @@ stream /Rect [168.638 336.764 197.529 345.675] /A << /S /GoTo /D (section*.16) >> >> -% 595 0 obj +% 607 0 obj << /Type /Annot /Subtype /Link @@ -2825,7 +2861,7 @@ stream /Rect [168.638 322.747 205.765 333.595] /A << /S /GoTo /D (section*.17) >> >> -% 596 0 obj +% 608 0 obj << /Type /Annot /Subtype /Link @@ -2833,7 +2869,7 @@ stream /Rect [168.638 310.667 262.143 321.516] /A << /S /GoTo /D (section*.18) >> >> -% 597 0 obj +% 609 0 obj << /Type /Annot /Subtype /Link @@ -2841,7 +2877,7 @@ stream /Rect [168.638 298.588 328.909 309.436] /A << /S /GoTo /D (section*.19) >> >> -% 598 0 obj +% 610 0 obj << /Type /Annot /Subtype /Link @@ -2849,7 +2885,7 @@ stream /Rect [168.638 288.445 193.932 296.858] /A << /S /GoTo /D (section*.20) >> >> -% 599 0 obj +% 611 0 obj << /Type /Annot /Subtype /Link @@ -2857,7 +2893,7 @@ stream /Rect [168.638 274.428 194.485 285.276] /A << /S /GoTo /D (section*.21) >> >> -% 600 0 obj +% 612 0 obj << /Type /Annot /Subtype /Link @@ -2865,7 +2901,7 @@ stream /Rect [168.638 264.286 218.025 273.197] /A << /S /GoTo /D (section*.22) >> >> -% 601 0 obj +% 613 0 obj << /Type /Annot /Subtype /Link @@ -2873,7 +2909,7 @@ stream /Rect [168.638 250.269 205.765 261.117] /A << /S /GoTo /D (section*.23) >> >> -% 602 0 obj +% 614 0 obj << /Type /Annot /Subtype /Link @@ -2881,7 +2917,7 @@ stream /Rect [168.638 238.189 207.979 249.037] /A << /S /GoTo /D (section*.24) >> >> -% 603 0 obj +% 615 0 obj << /Type /Annot /Subtype /Link @@ -2889,7 +2925,7 @@ stream /Rect [168.638 228.047 183.941 236.958] /A << /S /GoTo /D (section*.25) >> >> -% 604 0 obj +% 616 0 obj << /Type /Annot /Subtype /Link @@ -2897,7 +2933,7 @@ stream /Rect [168.638 215.967 186.709 224.613] /A << /S /GoTo /D (section*.26) >> >> -% 605 0 obj +% 617 0 obj << /Type /Annot /Subtype /Link @@ -2905,7 +2941,7 @@ stream /Rect [168.638 201.95 255.944 212.798] /A << /S /GoTo /D (section*.27) >> >> -% 606 0 obj +% 618 0 obj << /Type /Annot /Subtype /Link @@ -2913,7 +2949,7 @@ stream /Rect [168.638 191.808 192.769 200.719] /A << /S /GoTo /D (section*.28) >> >> -% 607 0 obj +% 619 0 obj << /Type /Annot /Subtype /Link @@ -2921,7 +2957,7 @@ stream /Rect [136.757 179.728 248.228 188.639] /A << /S /GoTo /D (subsubsection.3.2.2) >> >> -% 608 0 obj +% 620 0 obj << /Type /Annot /Subtype /Link @@ -2929,7 +2965,7 @@ stream /Rect [113.843 167.648 265.358 176.448] /A << /S /GoTo /D (subsection.3.3) >> >> -% 609 0 obj +% 621 0 obj << /Type /Annot /Subtype /Link @@ -2937,7 +2973,7 @@ stream /Rect [136.757 155.568 239.898 164.48] /A << /S /GoTo /D (subsubsection.3.3.1) >> >> -% 610 0 obj +% 622 0 obj << /Type /Annot /Subtype /Link @@ -2945,7 +2981,7 @@ stream /Rect [168.638 141.552 212.767 151.902] /A << /S /GoTo /D (section*.29) >> >> -% 611 0 obj +% 623 0 obj << /Type /Annot /Subtype /Link @@ -2953,7 +2989,7 @@ stream /Rect [168.638 131.409 197.529 140.32] /A << /S /GoTo /D (section*.30) >> >> -% 612 0 obj +% 624 0 obj << /Type /Annot /Subtype /Link @@ -2961,29 +2997,29 @@ stream /Rect [168.638 119.329 186.183 127.742] /A << /S /GoTo /D (section*.31) >> >> -% 617 0 obj +% 629 0 obj << -/D [615 0 R /XYZ 98.895 753.953 null] +/D [627 0 R /XYZ 98.895 753.953 null] >> -% 618 0 obj +% 630 0 obj << -/D [615 0 R /XYZ 99.895 724.062 null] +/D [627 0 R /XYZ 99.895 724.062 null] >> -% 614 0 obj +% 626 0 obj << -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R >> +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> /ProcSet [ /PDF /Text ] >> -% 668 0 obj +% 680 0 obj << /Type /Page -/Contents 669 0 R -/Resources 667 0 R +/Contents 681 0 R +/Resources 679 0 R /MediaBox [0 0 595.276 841.89] -/Parent 562 0 R -/Annots [ 613 0 R 620 0 R 621 0 R 622 0 R 623 0 R 624 0 R 625 0 R 626 0 R 627 0 R 628 0 R 629 0 R 630 0 R 631 0 R 632 0 R 633 0 R 634 0 R 635 0 R 636 0 R 637 0 R 638 0 R 639 0 R 640 0 R 641 0 R 642 0 R 643 0 R 644 0 R 645 0 R 646 0 R 647 0 R 648 0 R 649 0 R 650 0 R 651 0 R 652 0 R 653 0 R 654 0 R 655 0 R 656 0 R 657 0 R 658 0 R 659 0 R 660 0 R 661 0 R 662 0 R 663 0 R 664 0 R 665 0 R ] +/Parent 574 0 R +/Annots [ 625 0 R 632 0 R 633 0 R 634 0 R 635 0 R 636 0 R 637 0 R 638 0 R 639 0 R 640 0 R 641 0 R 642 0 R 643 0 R 644 0 R 645 0 R 646 0 R 647 0 R 648 0 R 649 0 R 650 0 R 651 0 R 652 0 R 653 0 R 654 0 R 655 0 R 656 0 R 657 0 R 658 0 R 659 0 R 660 0 R 661 0 R 662 0 R 663 0 R 664 0 R 665 0 R 666 0 R 667 0 R 668 0 R 669 0 R 670 0 R 671 0 R 672 0 R 673 0 R 674 0 R 675 0 R 676 0 R 677 0 R ] >> -% 613 0 obj +% 625 0 obj << /Type /Annot /Subtype /Link @@ -2991,7 +3027,7 @@ stream /Rect [219.447 703.195 259.342 713.546] /A << /S /GoTo /D (section*.32) >> >> -% 620 0 obj +% 632 0 obj << /Type /Annot /Subtype /Link @@ -2999,7 +3035,7 @@ stream /Rect [219.447 693.053 243.579 701.964] /A << /S /GoTo /D (section*.33) >> >> -% 621 0 obj +% 633 0 obj << /Type /Annot /Subtype /Link @@ -3007,7 +3043,7 @@ stream /Rect [164.653 680.973 318.825 689.884] /A << /S /GoTo /D (subsection.3.4) >> >> -% 622 0 obj +% 634 0 obj << /Type /Annot /Subtype /Link @@ -3015,7 +3051,7 @@ stream /Rect [164.653 666.956 277.397 677.805] /A << /S /GoTo /D (subsection.3.5) >> >> -% 623 0 obj +% 635 0 obj << /Type /Annot /Subtype /Link @@ -3023,7 +3059,7 @@ stream /Rect [149.709 644.831 285.838 655.679] /A << /S /GoTo /D (section.4) >> >> -% 624 0 obj +% 636 0 obj << /Type /Annot /Subtype /Link @@ -3031,7 +3067,7 @@ stream /Rect [164.653 632.751 220.931 643.599] /A << /S /GoTo /D (section*.34) >> >> -% 625 0 obj +% 637 0 obj << /Type /Annot /Subtype /Link @@ -3039,7 +3075,7 @@ stream /Rect [164.653 620.672 209.031 631.52] /A << /S /GoTo /D (section*.35) >> >> -% 626 0 obj +% 638 0 obj << /Type /Annot /Subtype /Link @@ -3047,7 +3083,7 @@ stream /Rect [164.653 608.592 212.96 619.44] /A << /S /GoTo /D (section*.36) >> >> -% 627 0 obj +% 639 0 obj << /Type /Annot /Subtype /Link @@ -3055,7 +3091,7 @@ stream /Rect [164.653 596.512 210.719 607.36] /A << /S /GoTo /D (section*.37) >> >> -% 628 0 obj +% 640 0 obj << /Type /Annot /Subtype /Link @@ -3063,7 +3099,7 @@ stream /Rect [164.653 584.432 222.093 595.281] /A << /S /GoTo /D (section*.38) >> >> -% 629 0 obj +% 641 0 obj << /Type /Annot /Subtype /Link @@ -3071,7 +3107,7 @@ stream /Rect [164.653 572.353 212.933 583.201] /A << /S /GoTo /D (section*.39) >> >> -% 630 0 obj +% 642 0 obj << /Type /Annot /Subtype /Link @@ -3079,7 +3115,7 @@ stream /Rect [164.653 560.273 221.318 571.121] /A << /S /GoTo /D (section*.40) >> >> -% 631 0 obj +% 643 0 obj << /Type /Annot /Subtype /Link @@ -3087,7 +3123,7 @@ stream /Rect [164.653 548.193 212.933 559.042] /A << /S /GoTo /D (section*.41) >> >> -% 632 0 obj +% 644 0 obj << /Type /Annot /Subtype /Link @@ -3095,7 +3131,7 @@ stream /Rect [164.653 536.114 221.29 546.962] /A << /S /GoTo /D (section*.42) >> >> -% 633 0 obj +% 645 0 obj << /Type /Annot /Subtype /Link @@ -3103,7 +3139,7 @@ stream /Rect [164.653 524.034 212.933 534.882] /A << /S /GoTo /D (section*.43) >> >> -% 634 0 obj +% 646 0 obj << /Type /Annot /Subtype /Link @@ -3111,7 +3147,7 @@ stream /Rect [164.653 511.954 210.719 522.802] /A << /S /GoTo /D (section*.44) >> >> -% 635 0 obj +% 647 0 obj << /Type /Annot /Subtype /Link @@ -3119,7 +3155,7 @@ stream /Rect [164.653 499.875 211.3 510.723] /A << /S /GoTo /D (section*.45) >> >> -% 636 0 obj +% 648 0 obj << /Type /Annot /Subtype /Link @@ -3127,403 +3163,373 @@ stream /Rect [164.653 487.795 206.927 498.643] /A << /S /GoTo /D (section*.46) >> >> -% 637 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [149.709 467.607 290.134 476.518] -/A << /S /GoTo /D (section.5) >> ->> -% 638 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 453.59 203.496 464.438] -/A << /S /GoTo /D (section*.47) >> ->> -% 639 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 441.51 201.863 452.358] -/A << /S /GoTo /D (section*.48) >> ->> -% 640 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 429.43 212.933 440.279] -/A << /S /GoTo /D (section*.49) >> ->> -% 641 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 417.351 214.648 428.199] -/A << /S /GoTo /D (section*.50) >> ->> -% 642 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [149.709 395.225 302.58 406.074] -/A << /S /GoTo /D (section.6) >> ->> -% 643 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 383.146 205.71 393.994] -/A << /S /GoTo /D (section*.51) >> ->> -% 644 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 371.066 207.426 381.914] -/A << /S /GoTo /D (section*.52) >> ->> -% 645 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 358.986 209.639 369.834] -/A << /S /GoTo /D (section*.53) >> ->> -% 646 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 346.906 210.138 357.755] -/A << /S /GoTo /D (section*.54) >> ->> -% 647 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 334.827 210.996 345.675] -/A << /S /GoTo /D (section*.55) >> ->> -% 648 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 322.747 222.591 333.595] -/A << /S /GoTo /D (section*.56) >> ->> % 649 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 310.667 205.212 321.516] -/A << /S /GoTo /D (section*.57) >> +/Rect [164.653 475.715 209.584 486.563] +/A << /S /GoTo /D (section*.47) >> >> % 650 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 298.588 206.927 309.436] -/A << /S /GoTo /D (section*.58) >> +/Rect [164.653 463.635 208.2 474.484] +/A << /S /GoTo /D (section*.48) >> >> % 651 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 286.508 209.141 297.356] -/A << /S /GoTo /D (section*.59) >> +/Rect [164.653 451.556 207.924 462.404] +/A << /S /GoTo /D (section*.49) >> >> % 652 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 274.428 210.497 285.276] -/A << /S /GoTo /D (section*.60) >> +/Rect [149.709 431.368 290.134 440.279] +/A << /S /GoTo /D (section.5) >> >> % 653 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 262.349 204.132 273.197] -/A << /S /GoTo /D (section*.61) >> +/Rect [164.653 417.351 203.496 428.199] +/A << /S /GoTo /D (section*.50) >> >> % 654 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 250.269 205.156 261.117] -/A << /S /GoTo /D (section*.62) >> +/Rect [164.653 405.271 201.863 416.119] +/A << /S /GoTo /D (section*.51) >> >> % 655 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 238.189 206.872 249.037] -/A << /S /GoTo /D (section*.63) >> +/Rect [164.653 393.191 212.933 404.039] +/A << /S /GoTo /D (section*.52) >> >> % 656 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 226.109 209.086 236.958] -/A << /S /GoTo /D (section*.64) >> +/Rect [164.653 381.112 214.648 391.96] +/A << /S /GoTo /D (section*.53) >> >> % 657 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 214.03 210.442 224.878] -/A << /S /GoTo /D (section*.65) >> +/Rect [149.709 358.986 302.58 369.834] +/A << /S /GoTo /D (section.6) >> >> % 658 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 201.95 202.942 212.798] -/A << /S /GoTo /D (section*.66) >> +/Rect [164.653 346.906 205.71 357.755] +/A << /S /GoTo /D (section*.54) >> >> % 659 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 189.87 231.978 200.719] -/A << /S /GoTo /D (section*.67) >> +/Rect [164.653 334.827 207.426 345.675] +/A << /S /GoTo /D (section*.55) >> >> % 660 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 177.791 231.978 188.639] -/A << /S /GoTo /D (section*.68) >> +/Rect [164.653 322.747 209.639 333.595] +/A << /S /GoTo /D (section*.56) >> >> % 661 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 165.711 226.233 176.559] -/A << /S /GoTo /D (section*.69) >> +/Rect [164.653 310.667 210.138 321.516] +/A << /S /GoTo /D (section*.57) >> >> % 662 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 153.631 243.059 164.48] -/A << /S /GoTo /D (section*.70) >> +/Rect [164.653 298.588 210.996 309.436] +/A << /S /GoTo /D (section*.58) >> >> % 663 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 141.552 219.038 152.4] -/A << /S /GoTo /D (section*.71) >> +/Rect [164.653 286.508 222.591 297.356] +/A << /S /GoTo /D (section*.59) >> >> % 664 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 129.472 235.863 140.32] -/A << /S /GoTo /D (section*.72) >> +/Rect [164.653 274.428 205.212 285.276] +/A << /S /GoTo /D (section*.60) >> >> % 665 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 117.392 243.64 128.24] -/A << /S /GoTo /D (section*.73) >> ->> -% 670 0 obj -<< -/D [668 0 R /XYZ 149.705 753.953 null] ->> -% 667 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 714 0 obj -<< -/Type /Page -/Contents 715 0 R -/Resources 713 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 562 0 R -/Annots [ 666 0 R 671 0 R 672 0 R 673 0 R 674 0 R 675 0 R 676 0 R 677 0 R 678 0 R 679 0 R 680 0 R 681 0 R 682 0 R 683 0 R 684 0 R 685 0 R 686 0 R 687 0 R 688 0 R 689 0 R 690 0 R 691 0 R 692 0 R 693 0 R 694 0 R 695 0 R 696 0 R 697 0 R 698 0 R 699 0 R 700 0 R 701 0 R 702 0 R 703 0 R 704 0 R 705 0 R 706 0 R 707 0 R 708 0 R 709 0 R 710 0 R 711 0 R 712 0 R ] +/Rect [164.653 262.349 206.927 273.197] +/A << /S /GoTo /D (section*.61) >> >> % 666 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 703.195 182.591 714.044] -/A << /S /GoTo /D (section*.74) >> +/Rect [164.653 250.269 209.141 261.117] +/A << /S /GoTo /D (section*.62) >> +>> +% 667 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 238.189 210.497 249.037] +/A << /S /GoTo /D (section*.63) >> +>> +% 668 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 226.109 204.132 236.958] +/A << /S /GoTo /D (section*.64) >> +>> +% 669 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 214.03 205.156 224.878] +/A << /S /GoTo /D (section*.65) >> +>> +% 670 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 201.95 206.872 212.798] +/A << /S /GoTo /D (section*.66) >> >> % 671 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 691.24 176.558 702.088] -/A << /S /GoTo /D (section*.75) >> +/Rect [164.653 189.87 209.086 200.719] +/A << /S /GoTo /D (section*.67) >> >> % 672 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 679.285 158 690.133] -/A << /S /GoTo /D (section*.76) >> +/Rect [164.653 177.791 210.442 188.639] +/A << /S /GoTo /D (section*.68) >> >> % 673 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 667.33 183.443 678.178] -/A << /S /GoTo /D (section*.77) >> +/Rect [164.653 165.711 202.942 176.559] +/A << /S /GoTo /D (section*.69) >> >> % 674 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 647.349 264.868 656.26] -/A << /S /GoTo /D (section.7) >> +/Rect [164.653 153.631 231.978 164.48] +/A << /S /GoTo /D (section*.70) >> >> % 675 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 633.457 149.366 644.305] -/A << /S /GoTo /D (section*.78) >> +/Rect [164.653 141.552 231.978 152.4] +/A << /S /GoTo /D (section*.71) >> >> % 676 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 621.502 150.749 632.35] -/A << /S /GoTo /D (section*.79) >> +/Rect [164.653 129.472 226.233 140.32] +/A << /S /GoTo /D (section*.72) >> >> % 677 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 609.547 150.749 620.395] -/A << /S /GoTo /D (section*.80) >> +/Rect [164.653 117.392 243.059 128.24] +/A << /S /GoTo /D (section*.73) >> +>> +% 682 0 obj +<< +/D [680 0 R /XYZ 149.705 753.953 null] +>> +% 679 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 729 0 obj +<< +/Type /Page +/Contents 730 0 R +/Resources 728 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 574 0 R +/Annots [ 678 0 R 683 0 R 684 0 R 685 0 R 686 0 R 687 0 R 688 0 R 689 0 R 690 0 R 691 0 R 692 0 R 693 0 R 694 0 R 695 0 R 696 0 R 697 0 R 698 0 R 699 0 R 700 0 R 701 0 R 702 0 R 703 0 R 704 0 R 705 0 R 706 0 R 707 0 R 708 0 R 709 0 R 710 0 R 711 0 R 712 0 R 713 0 R 714 0 R 715 0 R 716 0 R 717 0 R 718 0 R 719 0 R 720 0 R 721 0 R 722 0 R 723 0 R 724 0 R 725 0 R ] >> % 678 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 597.591 193.91 608.44] -/A << /S /GoTo /D (section*.81) >> ->> -% 679 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 585.636 170.968 596.484] -/A << /S /GoTo /D (section*.82) >> ->> -% 680 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 573.681 160.989 584.529] -/A << /S /GoTo /D (section*.83) >> ->> -% 681 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 561.726 163.839 572.574] -/A << /S /GoTo /D (section*.84) >> ->> -% 682 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 549.771 157.972 560.619] -/A << /S /GoTo /D (section*.85) >> +/Rect [113.843 703.195 168.228 714.044] +/A << /S /GoTo /D (section*.74) >> >> % 683 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 537.816 157.446 548.664] -/A << /S /GoTo /D (section*.86) >> +/Rect [113.843 690.542 185.054 701.39] +/A << /S /GoTo /D (section*.75) >> >> % 684 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 525.86 152.188 536.709] -/A << /S /GoTo /D (section*.87) >> +/Rect [113.843 677.889 192.83 688.737] +/A << /S /GoTo /D (section*.76) >> >> % 685 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 513.905 152.963 524.753] -/A << /S /GoTo /D (section*.88) >> +/Rect [113.843 665.236 182.591 676.084] +/A << /S /GoTo /D (section*.77) >> +>> +% 686 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 652.582 176.558 663.431] +/A << /S /GoTo /D (section*.78) >> +>> +% 687 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 639.929 158 650.777] +/A << /S /GoTo /D (section*.79) >> +>> +% 688 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 627.276 183.443 638.124] +/A << /S /GoTo /D (section*.80) >> +>> +% 689 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [98.899 606.132 264.868 615.043] +/A << /S /GoTo /D (section.7) >> +>> +% 690 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 591.541 149.366 602.389] +/A << /S /GoTo /D (section*.81) >> +>> +% 691 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 578.888 150.749 589.736] +/A << /S /GoTo /D (section*.82) >> >> endstream endobj -720 0 obj +735 0 obj << -/Length 79 +/Length 660 >> stream 0 g 0 G 0 g 0 G -0 g 0 G +0 0 1 rg 0 0 1 RG BT -/F8 9.9626 Tf 318.548 90.438 Td [(iv)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(11)-350(Iterativ)32(e)-384(M)1(etho)-32(ds)]TJ +0 g 0 G + [-22176(147)]TJ +0 0 1 rg 0 0 1 RG +/F8 9.9626 Tf 14.944 -11.955 Td [(psb)]TJ +ET +q +1 0 0 1 181.246 694.373 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 184.235 694.174 Td [(krylo)28(v)]TJ +0 g 0 G + [-382(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 + [-583(148)]TJ +0 g 0 G +0 g 0 G + 134.313 -603.736 Td [(iv)]TJ 0 g 0 G ET endstream endobj -734 0 obj +749 0 obj << /Length 8518 >> @@ -3579,7 +3585,7 @@ ET endstream endobj -754 0 obj +769 0 obj << /Length 5579 >> @@ -3626,20 +3632,20 @@ ET endstream endobj -750 0 obj +765 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/psblas.pdf) /PTEX.PageNumber 1 -/PTEX.InfoDict 757 0 R +/PTEX.InfoDict 772 0 R /BBox [0 0 197 215] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -/R7 758 0 R ->>/Font << /R8 759 0 R>> +/R7 773 0 R +>>/Font << /R8 774 0 R>> >> /Length 898 /Filter /FlateDecode @@ -3660,7 +3666,7 @@ x «Ͻ'ƒÇ›ÇÇùaÚ>=|9Êh±Büuæ¹£$îËLËàq·–ÑÃÊŸ5×k^Þ½;>íN÷Ûi™ZŠ\V+9D£­8îNËLÓG™÷×»~0+¾’”àŠ'¢ˆ±íúmw>o÷;{·=ŸŽûEý—»a¥ÃѲîîÝâ8SË4Â%ÕÇ¥_¾œžNÛ#OαéƒùüÐ endstream endobj -761 0 obj +776 0 obj << /Filter /FlateDecode /Subtype /Type1C @@ -3680,7 +3686,7 @@ p IZ¹t4¤w!}^€gì½—ú€h9@±^è Ò…s2•=3B2H>ÉçynÞÌû7ŠC‰#ˆþhñÚï-whèÇGtBŒV²Õºø`uÞ1èFæ3ÑvðøçÓ÷à´ÛoÝ34\z"ž“,P&+š´®¿Ú»oB03¼å㣶xsÉÝä!FáŽ/†m'~¼êŒn?àßvaÝDëÑ÷ì+°¥¸5ïšôt0Ü ¶æ+ÉÔ·ÆsRz…t¥J–xFzëþƒöÁQîè`û¼/dŠº2›åž™j@7GÛú.º?Üwyc$O‘œÀI‘(S¥ME®ƒßŒô| Áõ^`‚2!-›’"VîIN™"Ì‚B-ÌÎe³/uV9:Î6:.Ç°ÿMɪH endstream endobj -767 0 obj +782 0 obj << /Length 8854 >> @@ -3729,7 +3735,7 @@ ET endstream endobj -783 0 obj +798 0 obj << /Length 5346 >> @@ -3806,20 +3812,20 @@ ET endstream endobj -780 0 obj +795 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/points.pdf) /PTEX.PageNumber 1 -/PTEX.InfoDict 786 0 R +/PTEX.InfoDict 801 0 R /BBox [0 0 274 308] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -/R7 787 0 R ->>/Font << /R8 788 0 R>> +/R7 802 0 R +>>/Font << /R8 803 0 R>> >> /Length 1397 /Filter /FlateDecode @@ -3829,7 +3835,7 @@ x – 󣄠¹3ÊBü=®§«æ±bA‡HŒ}Ï©c·í²»?­é”ׄÿäïÍeùö]_?ü¾¤Ó©d êwßGüðaù´d"®òçæ²¾¾ä}ÍíëÕûe4­ß ,äýÔ×sÿ»º,_ýx÷Ç/w×·¯®~[¾»ZÞ.ø›Œ1¸ð™âuóâ¯ïÿ¼ûùúáoO*žþx/þÃõí½Î22Tø<ᜇd†&Âoî/×ïV˜âÿõèCê1V^õd¨æõãR ¬Û9ŸÎç¶^–ºµÓ¾ÍšÚýÝz¦zõ¯7‹!€S®ûj짔êJÚR¿–ðWZSöN•m˜´ ide«3çûfyÿõROÛú×|J_F¿~]~z2ò–}×òVÐÕämë¦Î€sQ<I<³¦uiüd¸r͵9.Ö¤¢ÆR’ÉÑãY~ОÐCÑÝ¥Ÿ}öçÙ^â<3LA ‰c‹YÒ¶®ôçY¯qž&mCÙØâÌû懣ç—Ñ#|H–_rƧšÇÒ³,wš0s>}yüÇ5ÒNóË p%U¤ –ðW@E’§$§•|¡pxõE`&ÆøåU ™¤ó«›%AÝIUÍ0Gš]ý‘&ûÖM’ î Jšx÷¬…T.ù)~¼C²8˜}~‚­ÛÍWÛ¢íÁvKÑö¶K,8ÛÍ—&†`[C*—ü¨ONÔÇs­ƒ ½m‚ê ò9؆Áu¶!×`{P9¦m‚êKI7oÛB*—ü¨O샹~ñ̳·Ç'­¡Á^ÝIaÏvRy!œzw'ó¤`Íx"0.Ѥb'…iÄù|ùÌs¼žP:-%X/[´^º“#Àa°há…dÞPÓY/)Z‡Ýqˆ&-VŠÖ½ON¬Çtnƒ®G±À¹ÍY–& é›Ë’וB¿Ìœ¤¡¹M…ÁnngäŽ%¤Ò#ØœÃÉÙÇ‚"d;’Àô)ùÃ(˜\X‹³Ž¥²£0}Z¡pø#`Ó†Sò‹%Hvt§Ð̧f£`ú`-Î+”ÐŽQ4ó9ƒ…Ç,x›O/,îf,z»âißn«ªÝìv«$½úæ-ÜŒå`?›“禩™|,ˆ7cïó™;Ìñº@!osõé]Š¦?ݲta0€yýÒ¥¤Zdy›«OïRÜ<%9­äƒ€[}拇ú6m8uõIPžþhǃf>m))…YÞæê“ Ò<%9­äƒ€[}ækçÿÜæ“WO’rõ= A} £ Ñ0'Ë 9‘S,irêÕ÷+\_ã­uâÝ¿›ÑÆE?æóé{¦ƒÙÇá'È‹ÎB#4_²$&†`[–’qq‘‘&/> Mõ5^_'†`[Bý˜OõºÖÁ–%©¡ ª/]07o[šqq ’&/M Íõ5^_'nÞ¶†4.ú1Ÿ6ØsýÜ¥%]Š!ƒCÞgVe@Ù–‹’…$)š5-ƒÃØ5}‡ä²?ÖLg+‡ |>{é>hO‘jøX5~,ê>–0àxÕ},1’š¬ác ”ø±ŠûX€5‹ûXb$3òø³ Ú…t¡í¡=Å>tpº8Õ‡’Ô$iÎ>´-ö¡Ç%ÀšTÔXJR#ÞgL¼í“-J/0®jãȶw.Þâªick£Z,”Ô¤š^”Ñk·ì«éUÝ ‹¯WjÇ‚µÛçƒ.ÁºUE³zÉgýãPˆ,é"›Ñe±ûÌ‹:t˜!*%~ Ö *«QÊÒ@emPMÓ1:¾Þ’àX¼÷(˜®4æ ¤Nƒ¾]þÎJ¦' endstream endobj -795 0 obj +810 0 obj << /Length 5462 >> @@ -3919,7 +3925,7 @@ ET endstream endobj -800 0 obj +815 0 obj << /Length 8659 >> @@ -3967,7 +3973,725 @@ ET endstream endobj -814 0 obj +732 0 obj +<< +/Type /ObjStm +/N 100 +/First 915 +/Length 13601 +>> +stream +692 0 693 149 694 296 695 445 696 594 697 742 698 891 699 1040 700 1188 701 1337 +702 1486 703 1634 704 1782 705 1931 706 2079 707 2228 708 2374 709 2523 710 2672 711 2822 +712 2972 713 3117 714 3267 715 3417 716 3566 717 3714 718 3863 719 4013 720 4159 721 4308 +722 4457 723 4607 724 4755 725 4905 731 5055 728 5111 734 5190 726 5332 727 5480 736 5629 +733 5686 748 5765 737 5971 738 6120 739 6271 740 6423 741 6577 742 6728 743 6877 744 7026 +745 7174 746 7322 7 7470 747 7524 768 7616 772 7766 773 8007 774 8049 775 8435 762 8735 +763 8880 764 9028 11 9175 771 9231 767 9286 781 9406 766 9556 778 9702 779 9851 783 9999 +15 10055 789 10110 791 10167 780 10224 797 10419 801 10561 802 10675 803 10717 793 10786 794 10934 +799 11082 800 11139 19 11196 796 11252 809 11411 806 11553 807 11699 811 11846 808 11902 814 12007 +816 12121 23 12178 818 12234 819 12291 820 12348 821 12404 822 12461 823 12517 824 12572 825 12629 +% 692 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 566.235 150.749 577.083] +/A << /S /GoTo /D (section*.83) >> +>> +% 693 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 553.581 193.91 564.43] +/A << /S /GoTo /D (section*.84) >> +>> +% 694 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 540.928 170.968 551.776] +/A << /S /GoTo /D (section*.85) >> +>> +% 695 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 528.275 160.989 539.123] +/A << /S /GoTo /D (section*.86) >> +>> +% 696 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 515.621 163.839 526.47] +/A << /S /GoTo /D (section*.87) >> +>> +% 697 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 502.968 157.972 513.816] +/A << /S /GoTo /D (section*.88) >> +>> +% 698 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 490.315 157.446 501.163] +/A << /S /GoTo /D (section*.89) >> +>> +% 699 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 477.662 152.188 488.51] +/A << /S /GoTo /D (section*.90) >> +>> +% 700 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 465.008 152.963 475.857] +/A << /S /GoTo /D (section*.91) >> +>> +% 701 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 452.355 151.026 463.203] +/A << /S /GoTo /D (section*.92) >> +>> +% 702 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 439.702 152.963 450.55] +/A << /S /GoTo /D (section*.93) >> +>> +% 703 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 427.049 153.24 437.897] +/A << /S /GoTo /D (section*.94) >> +>> +% 704 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 414.395 157.142 425.243] +/A << /S /GoTo /D (section*.95) >> +>> +% 705 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 401.742 149.421 412.59] +/A << /S /GoTo /D (section*.96) >> +>> +% 706 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 389.089 148.009 399.937] +/A << /S /GoTo /D (section*.97) >> +>> +% 707 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [98.899 366.007 190.188 376.856] +/A << /S /GoTo /D (section.8) >> +>> +% 708 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 353.354 167.188 364.202] +/A << /S /GoTo /D (section*.98) >> +>> +% 709 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 340.701 155.537 351.549] +/A << /S /GoTo /D (section*.99) >> +>> +% 710 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 328.048 202.129 338.896] +/A << /S /GoTo /D (section*.100) >> +>> +% 711 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 315.394 189.039 326.242] +/A << /S /GoTo /D (section*.101) >> +>> +% 712 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [98.899 294.25 156.061 303.161] +/A << /S /GoTo /D (section.9) >> +>> +% 713 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 281.597 149.061 290.508] +/A << /S /GoTo /D (section*.102) >> +>> +% 714 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 268.944 152.382 277.855] +/A << /S /GoTo /D (section*.103) >> +>> +% 715 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 256.29 175.617 265.201] +/A << /S /GoTo /D (section*.104) >> +>> +% 716 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 241.7 181.207 252.548] +/A << /S /GoTo /D (section*.105) >> +>> +% 717 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 230.984 178.938 239.63] +/A << /S /GoTo /D (section*.106) >> +>> +% 718 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 216.393 184.528 226.977] +/A << /S /GoTo /D (section*.107) >> +>> +% 719 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [98.899 195.249 234.475 204.16] +/A << /S /GoTo /D (section.10) >> +>> +% 720 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 180.659 157.374 192.06] +/A << /S /GoTo /D (section*.108) >> +>> +% 721 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 168.005 164.57 179.407] +/A << /S /GoTo /D (section*.109) >> +>> +% 722 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 155.352 166.507 166.754] +/A << /S /GoTo /D (section*.110) >> +>> +% 723 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 142.699 164.653 154.1] +/A << /S /GoTo /D (section*.111) >> +>> +% 724 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 131.983 137.975 140.894] +/A << /S /GoTo /D (section*.112) >> +>> +% 725 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [113.843 117.392 158.232 128.794] +/A << /S /GoTo /D (section*.113) >> +>> +% 731 0 obj +<< +/D [729 0 R /XYZ 98.895 753.953 null] +>> +% 728 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 734 0 obj +<< +/Type /Page +/Contents 735 0 R +/Resources 733 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 574 0 R +/Annots [ 726 0 R 727 0 R ] +>> +% 726 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [149.709 705.133 257.299 714.044] +/A << /S /GoTo /D (section.11) >> +>> +% 727 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 691.24 212.379 702.088] +/A << /S /GoTo /D (section*.114) >> +>> +% 736 0 obj +<< +/D [734 0 R /XYZ 149.705 753.953 null] +>> +% 733 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 748 0 obj +<< +/Type /Page +/Contents 749 0 R +/Resources 747 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +/Annots [ 737 0 R 738 0 R 739 0 R 740 0 R 741 0 R 742 0 R 743 0 R 744 0 R 745 0 R 746 0 R ] +>> +% 737 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [408.982 586.91 420.937 595.323] +/A << /S /GoTo /D (cite.metcalf) >> +>> +% 738 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [277.684 514.913 289.639 523.326] +/A << /S /GoTo /D (cite.Sparse03) >> +>> +% 739 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [265.763 502.958 272.737 511.371] +/A << /S /GoTo /D (cite.DesPat:11) >> +>> +% 740 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [276.283 502.958 288.238 511.371] +/A << /S /GoTo /D (cite.RouXiaXu:11) >> +>> +% 741 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [210.166 442.916 222.121 451.329] +/A << /S /GoTo /D (cite.machiels) >> +>> +% 742 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [241.566 370.919 248.54 379.332] +/A << /S /GoTo /D (cite.sblas97) >> +>> +% 743 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [252.056 370.919 259.03 379.332] +/A << /S /GoTo /D (cite.sblas02) >> +>> +% 744 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [227.473 358.964 239.428 367.377] +/A << /S /GoTo /D (cite.BLAS1) >> +>> +% 745 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [243.524 358.964 250.498 367.377] +/A << /S /GoTo /D (cite.BLAS2) >> +>> +% 746 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [254.593 358.964 261.567 367.377] +/A << /S /GoTo /D (cite.BLAS3) >> +>> +% 7 0 obj +<< +/D [748 0 R /XYZ 99.895 716.092 null] +>> +% 747 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F17 750 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 768 0 obj +<< +/Type /Page +/Contents 769 0 R +/Resources 767 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +/Annots [ 762 0 R 763 0 R 764 0 R ] +>> +% 772 0 obj +<< +/Producer (GPL Ghostscript 9.04) +/CreationDate (D:20111215145523+01'00') +/ModDate (D:20111215145523+01'00') +/Title (psblas.fig) +/Creator (fig2dev Version 3.2 Patchlevel 5d) +/Author (sfilippo@donald \(Salvatore Filippone\)) +>> +% 773 0 obj +<< +/Type /ExtGState +/OPM 1 +>> +% 774 0 obj +<< +/BaseFont /JEJNJE+Times-Roman +/FontDescriptor 775 0 R +/Type /Font +/FirstChar 32 +/LastChar 116 +/Widths [ 250 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 500 0 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 722 667 0 0 0 556 0 0 333 0 0 611 889 0 0 556 0 0 556 0 0 0 0 0 0 0 0 0 0 0 0 0 444 0 444 0 444 333 500 0 278 0 0 278 0 500 500 500 0 333 389 278] +/Encoding /WinAnsiEncoding +/Subtype /Type1 +>> +% 775 0 obj +<< +/Type /FontDescriptor +/FontName /JEJNJE+Times-Roman +/FontBBox [ 0 -218 863 683] +/Flags 32 +/Ascent 683 +/CapHeight 676 +/Descent -218 +/ItalicAngle 0 +/StemV 129 +/MissingWidth 500 +/XHeight 460 +/CharSet (/A/B/F/I/L/M/P/S/a/c/e/f/g/i/l/n/o/p/r/s/space/t/three/two/zero) +/FontFile3 776 0 R +>> +% 762 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.543 541.042 317.517 551.89] +/A << /S /GoTo /D (figure.1) >> +>> +% 763 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [446.018 471.248 452.992 479.661] +/A << /S /GoTo /D (cite.BLACS) >> +>> +% 764 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [210.398 433.445 217.372 444.294] +/A << /S /GoTo /D (section.7) >> +>> +% 11 0 obj +<< +/D [768 0 R /XYZ 150.705 677.433 null] +>> +% 771 0 obj +<< +/D [768 0 R /XYZ 258.703 263.3 null] +>> +% 767 0 obj +<< +/Font << /F8 573 0 R /F16 570 0 R /F11 770 0 R >> +/XObject << /Im1 765 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 781 0 obj +<< +/Type /Page +/Contents 782 0 R +/Resources 780 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +/Annots [ 766 0 R 778 0 R 779 0 R ] +>> +% 766 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [219.5 609.491 231.455 617.904] +/A << /S /GoTo /D (cite.METIS) >> +>> +% 778 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [210.854 546.467 217.316 558.506] +/A << /S /GoTo /D (Hfootnote.1) >> +>> +% 779 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [155.908 188.124 162.37 200.163] +/A << /S /GoTo /D (Hfootnote.2) >> +>> +% 783 0 obj +<< +/D [781 0 R /XYZ 98.895 753.953 null] +>> +% 15 0 obj +<< +/D [781 0 R /XYZ 99.895 515.919 null] +>> +% 789 0 obj +<< +/D [781 0 R /XYZ 115.138 167.688 null] +>> +% 791 0 obj +<< +/D [781 0 R /XYZ 115.138 158.184 null] +>> +% 780 0 obj +<< +/Font << /F8 573 0 R /F17 750 0 R /F30 784 0 R /F7 785 0 R /F16 570 0 R /F11 770 0 R /F10 786 0 R /F14 787 0 R /F27 572 0 R /F32 788 0 R /F31 790 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 797 0 obj +<< +/Type /Page +/Contents 798 0 R +/Resources 796 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +/Annots [ 793 0 R 794 0 R ] +>> +% 801 0 obj +<< +/Producer (ESP Ghostscript 815.03) +/CreationDate (D:20070123225315) +/ModDate (D:20070123225315) +>> +% 802 0 obj +<< +/Type /ExtGState +/OPM 1 +>> +% 803 0 obj +<< +/BaseFont /Times-Roman +/Type /Font +/Subtype /Type1 +>> +% 793 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [294.665 637.885 301.639 646.297] +/A << /S /GoTo /D (cite.2007c) >> +>> +% 794 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [305.735 637.885 312.709 646.297] +/A << /S /GoTo /D (cite.2007d) >> +>> +% 799 0 obj +<< +/D [797 0 R /XYZ 149.705 753.953 null] +>> +% 800 0 obj +<< +/D [797 0 R /XYZ 303.562 347.015 null] +>> +% 19 0 obj +<< +/D [797 0 R /XYZ 150.705 272.271 null] +>> +% 796 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R /F16 570 0 R >> +/XObject << /Im2 795 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 809 0 obj +<< +/Type /Page +/Contents 810 0 R +/Resources 808 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +/Annots [ 806 0 R 807 0 R ] +>> +% 806 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [406.358 354.515 413.331 366.47] +/A << /S /GoTo /D (section.3) >> +>> +% 807 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [173.863 318.352 180.837 330.307] +/A << /S /GoTo /D (section.6) >> +>> +% 811 0 obj +<< +/D [809 0 R /XYZ 98.895 753.953 null] +>> +% 808 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F14 787 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 814 0 obj +<< +/Type /Page +/Contents 815 0 R +/Resources 813 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 751 0 R +>> +% 816 0 obj +<< +/D [814 0 R /XYZ 149.705 753.953 null] +>> +% 23 0 obj +<< +/D [814 0 R /XYZ 150.705 716.092 null] +>> +% 818 0 obj +<< +/D [814 0 R /XYZ 150.705 284.758 null] +>> +% 819 0 obj +<< +/D [814 0 R /XYZ 150.705 263.953 null] +>> +% 820 0 obj +<< +/D [814 0 R /XYZ 150.705 242.87 null] +>> +% 821 0 obj +<< +/D [814 0 R /XYZ 150.705 221.788 null] +>> +% 822 0 obj +<< +/D [814 0 R /XYZ 150.705 188.75 null] +>> +% 823 0 obj +<< +/D [814 0 R /XYZ 150.705 167.6 null] +>> +% 824 0 obj +<< +/D [814 0 R /XYZ 150.705 148.591 null] +>> +% 825 0 obj +<< +/D [814 0 R /XYZ 150.705 132.072 null] +>> + +endstream +endobj +830 0 obj << /Length 7719 >> @@ -4061,698 +4785,7 @@ ET endstream endobj -717 0 obj -<< -/Type /ObjStm -/N 100 -/First 910 -/Length 12961 ->> -stream -686 0 687 148 688 297 689 444 690 593 691 742 692 891 693 1037 694 1186 695 1335 -696 1484 697 1633 698 1779 699 1926 700 2076 701 2225 702 2375 703 2525 704 2674 705 2821 -706 2971 707 3119 708 3269 709 3418 710 3567 711 3716 712 3862 716 4011 713 4067 719 4146 -721 4260 718 4317 733 4383 722 4589 723 4738 724 4889 725 5041 726 5195 727 5346 728 5495 -729 5644 730 5792 731 5940 7 6088 732 6142 753 6234 757 6384 758 6625 759 6667 760 7053 -747 7353 748 7498 749 7646 11 7793 756 7849 752 7904 766 8024 751 8174 763 8320 764 8469 -768 8617 15 8673 774 8728 776 8785 765 8842 782 9037 786 9179 787 9293 788 9335 778 9404 -779 9552 784 9700 785 9757 19 9814 781 9870 794 10029 791 10171 792 10317 796 10464 793 10520 -799 10625 801 10739 23 10796 803 10852 804 10909 805 10966 806 11022 807 11079 808 11135 809 11190 -810 11247 798 11304 813 11434 797 11568 815 11716 816 11772 817 11828 818 11884 819 11939 820 11995 -% 686 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 501.95 151.026 512.798] -/A << /S /GoTo /D (section*.89) >> ->> -% 687 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 489.995 152.963 500.843] -/A << /S /GoTo /D (section*.90) >> ->> -% 688 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 478.04 153.24 488.888] -/A << /S /GoTo /D (section*.91) >> ->> -% 689 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 466.085 157.142 476.933] -/A << /S /GoTo /D (section*.92) >> ->> -% 690 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 454.129 149.421 464.978] -/A << /S /GoTo /D (section*.93) >> ->> -% 691 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 442.174 148.009 453.022] -/A << /S /GoTo /D (section*.94) >> ->> -% 692 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 420.256 190.188 431.105] -/A << /S /GoTo /D (section.8) >> ->> -% 693 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 408.301 167.188 419.149] -/A << /S /GoTo /D (section*.95) >> ->> -% 694 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 396.346 155.537 407.194] -/A << /S /GoTo /D (section*.96) >> ->> -% 695 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 384.391 202.129 395.239] -/A << /S /GoTo /D (section*.97) >> ->> -% 696 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 372.436 189.039 383.284] -/A << /S /GoTo /D (section*.98) >> ->> -% 697 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 352.455 156.061 361.366] -/A << /S /GoTo /D (section.9) >> ->> -% 698 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 340.5 149.061 349.411] -/A << /S /GoTo /D (section*.99) >> ->> -% 699 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 328.545 152.382 337.456] -/A << /S /GoTo /D (section*.100) >> ->> -% 700 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 316.59 175.617 325.501] -/A << /S /GoTo /D (section*.101) >> ->> -% 701 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 302.697 181.207 313.545] -/A << /S /GoTo /D (section*.102) >> ->> -% 702 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 292.679 178.938 301.325] -/A << /S /GoTo /D (section*.103) >> ->> -% 703 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 278.787 184.528 289.37] -/A << /S /GoTo /D (section*.104) >> ->> -% 704 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 258.806 234.475 267.717] -/A << /S /GoTo /D (section.10) >> ->> -% 705 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 244.914 157.374 256.316] -/A << /S /GoTo /D (section*.105) >> ->> -% 706 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 232.959 164.57 244.36] -/A << /S /GoTo /D (section*.106) >> ->> -% 707 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 221.004 166.507 232.405] -/A << /S /GoTo /D (section*.107) >> ->> -% 708 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 209.048 164.653 220.45] -/A << /S /GoTo /D (section*.108) >> ->> -% 709 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 199.03 137.975 207.941] -/A << /S /GoTo /D (section*.109) >> ->> -% 710 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 185.138 158.232 196.54] -/A << /S /GoTo /D (section*.110) >> ->> -% 711 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 165.157 206.49 174.068] -/A << /S /GoTo /D (section.11) >> ->> -% 712 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 151.265 161.57 162.113] -/A << /S /GoTo /D (section*.111) >> ->> -% 716 0 obj -<< -/D [714 0 R /XYZ 98.895 753.953 null] ->> -% 713 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 719 0 obj -<< -/Type /Page -/Contents 720 0 R -/Resources 718 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 562 0 R ->> -% 721 0 obj -<< -/D [719 0 R /XYZ 149.705 753.953 null] ->> -% 718 0 obj -<< -/Font << /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 733 0 obj -<< -/Type /Page -/Contents 734 0 R -/Resources 732 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R -/Annots [ 722 0 R 723 0 R 724 0 R 725 0 R 726 0 R 727 0 R 728 0 R 729 0 R 730 0 R 731 0 R ] ->> -% 722 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [408.982 586.91 420.937 595.323] -/A << /S /GoTo /D (cite.metcalf) >> ->> -% 723 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [277.684 514.913 289.639 523.326] -/A << /S /GoTo /D (cite.Sparse03) >> ->> -% 724 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [265.763 502.958 272.737 511.371] -/A << /S /GoTo /D (cite.DesPat:11) >> ->> -% 725 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [276.283 502.958 288.238 511.371] -/A << /S /GoTo /D (cite.RouXiaXu:11) >> ->> -% 726 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [210.166 442.916 222.121 451.329] -/A << /S /GoTo /D (cite.machiels) >> ->> -% 727 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [241.566 370.919 248.54 379.332] -/A << /S /GoTo /D (cite.sblas97) >> ->> -% 728 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [252.056 370.919 259.03 379.332] -/A << /S /GoTo /D (cite.sblas02) >> ->> -% 729 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [227.473 358.964 239.428 367.377] -/A << /S /GoTo /D (cite.BLAS1) >> ->> -% 730 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [243.524 358.964 250.498 367.377] -/A << /S /GoTo /D (cite.BLAS2) >> ->> -% 731 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [254.593 358.964 261.567 367.377] -/A << /S /GoTo /D (cite.BLAS3) >> ->> -% 7 0 obj -<< -/D [733 0 R /XYZ 99.895 716.092 null] ->> -% 732 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F17 735 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 753 0 obj -<< -/Type /Page -/Contents 754 0 R -/Resources 752 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R -/Annots [ 747 0 R 748 0 R 749 0 R ] ->> -% 757 0 obj -<< -/Producer (GPL Ghostscript 9.04) -/CreationDate (D:20111215145523+01'00') -/ModDate (D:20111215145523+01'00') -/Title (psblas.fig) -/Creator (fig2dev Version 3.2 Patchlevel 5d) -/Author (sfilippo@donald \(Salvatore Filippone\)) ->> -% 758 0 obj -<< -/Type /ExtGState -/OPM 1 ->> -% 759 0 obj -<< -/BaseFont /JEJNJE+Times-Roman -/FontDescriptor 760 0 R -/Type /Font -/FirstChar 32 -/LastChar 116 -/Widths [ 250 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 500 0 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 722 667 0 0 0 556 0 0 333 0 0 611 889 0 0 556 0 0 556 0 0 0 0 0 0 0 0 0 0 0 0 0 444 0 444 0 444 333 500 0 278 0 0 278 0 500 500 500 0 333 389 278] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 760 0 obj -<< -/Type /FontDescriptor -/FontName /JEJNJE+Times-Roman -/FontBBox [ 0 -218 863 683] -/Flags 32 -/Ascent 683 -/CapHeight 676 -/Descent -218 -/ItalicAngle 0 -/StemV 129 -/MissingWidth 500 -/XHeight 460 -/CharSet (/A/B/F/I/L/M/P/S/a/c/e/f/g/i/l/n/o/p/r/s/space/t/three/two/zero) -/FontFile3 761 0 R ->> -% 747 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.543 541.042 317.517 551.89] -/A << /S /GoTo /D (figure.1) >> ->> -% 748 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [446.018 471.248 452.992 479.661] -/A << /S /GoTo /D (cite.BLACS) >> ->> -% 749 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [210.398 433.445 217.372 444.294] -/A << /S /GoTo /D (section.7) >> ->> -% 11 0 obj -<< -/D [753 0 R /XYZ 150.705 677.433 null] ->> -% 756 0 obj -<< -/D [753 0 R /XYZ 258.703 263.3 null] ->> -% 752 0 obj -<< -/Font << /F8 561 0 R /F16 558 0 R /F11 755 0 R >> -/XObject << /Im1 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 766 0 obj -<< -/Type /Page -/Contents 767 0 R -/Resources 765 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R -/Annots [ 751 0 R 763 0 R 764 0 R ] ->> -% 751 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [219.5 609.491 231.455 617.904] -/A << /S /GoTo /D (cite.METIS) >> ->> -% 763 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [210.854 546.467 217.316 558.506] -/A << /S /GoTo /D (Hfootnote.1) >> ->> -% 764 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [155.908 188.124 162.37 200.163] -/A << /S /GoTo /D (Hfootnote.2) >> ->> -% 768 0 obj -<< -/D [766 0 R /XYZ 98.895 753.953 null] ->> -% 15 0 obj -<< -/D [766 0 R /XYZ 99.895 515.919 null] ->> -% 774 0 obj -<< -/D [766 0 R /XYZ 115.138 167.688 null] ->> -% 776 0 obj -<< -/D [766 0 R /XYZ 115.138 158.184 null] ->> -% 765 0 obj -<< -/Font << /F8 561 0 R /F17 735 0 R /F30 769 0 R /F7 770 0 R /F16 558 0 R /F11 755 0 R /F10 771 0 R /F14 772 0 R /F27 560 0 R /F32 773 0 R /F31 775 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 782 0 obj -<< -/Type /Page -/Contents 783 0 R -/Resources 781 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R -/Annots [ 778 0 R 779 0 R ] ->> -% 786 0 obj -<< -/Producer (ESP Ghostscript 815.03) -/CreationDate (D:20070123225315) -/ModDate (D:20070123225315) ->> -% 787 0 obj -<< -/Type /ExtGState -/OPM 1 ->> -% 788 0 obj -<< -/BaseFont /Times-Roman -/Type /Font -/Subtype /Type1 ->> -% 778 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [294.665 637.885 301.639 646.297] -/A << /S /GoTo /D (cite.2007c) >> ->> -% 779 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [305.735 637.885 312.709 646.297] -/A << /S /GoTo /D (cite.2007d) >> ->> -% 784 0 obj -<< -/D [782 0 R /XYZ 149.705 753.953 null] ->> -% 785 0 obj -<< -/D [782 0 R /XYZ 303.562 347.015 null] ->> -% 19 0 obj -<< -/D [782 0 R /XYZ 150.705 272.271 null] ->> -% 781 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F14 772 0 R /F11 755 0 R /F10 771 0 R /F16 558 0 R >> -/XObject << /Im2 780 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 794 0 obj -<< -/Type /Page -/Contents 795 0 R -/Resources 793 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R -/Annots [ 791 0 R 792 0 R ] ->> -% 791 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [406.358 354.515 413.331 366.47] -/A << /S /GoTo /D (section.3) >> ->> -% 792 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [173.863 318.352 180.837 330.307] -/A << /S /GoTo /D (section.6) >> ->> -% 796 0 obj -<< -/D [794 0 R /XYZ 98.895 753.953 null] ->> -% 793 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F14 772 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 799 0 obj -<< -/Type /Page -/Contents 800 0 R -/Resources 798 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 736 0 R ->> -% 801 0 obj -<< -/D [799 0 R /XYZ 149.705 753.953 null] ->> -% 23 0 obj -<< -/D [799 0 R /XYZ 150.705 716.092 null] ->> -% 803 0 obj -<< -/D [799 0 R /XYZ 150.705 284.758 null] ->> -% 804 0 obj -<< -/D [799 0 R /XYZ 150.705 263.953 null] ->> -% 805 0 obj -<< -/D [799 0 R /XYZ 150.705 242.87 null] ->> -% 806 0 obj -<< -/D [799 0 R /XYZ 150.705 221.788 null] ->> -% 807 0 obj -<< -/D [799 0 R /XYZ 150.705 188.75 null] ->> -% 808 0 obj -<< -/D [799 0 R /XYZ 150.705 167.6 null] ->> -% 809 0 obj -<< -/D [799 0 R /XYZ 150.705 148.591 null] ->> -% 810 0 obj -<< -/D [799 0 R /XYZ 150.705 132.072 null] ->> -% 798 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F30 769 0 R /F9 802 0 R /F17 735 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 813 0 obj -<< -/Type /Page -/Contents 814 0 R -/Resources 812 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 797 0 R ] ->> -% 797 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [176.109 690.964 182.571 703.28] -/A << /S /GoTo /D (Hfootnote.3) >> ->> -% 815 0 obj -<< -/D [813 0 R /XYZ 98.895 753.953 null] ->> -% 816 0 obj -<< -/D [813 0 R /XYZ 99.895 716.092 null] ->> -% 817 0 obj -<< -/D [813 0 R /XYZ 99.895 686.739 null] ->> -% 818 0 obj -<< -/D [813 0 R /XYZ 99.895 618.93 null] ->> -% 819 0 obj -<< -/D [813 0 R /XYZ 99.895 596.257 null] ->> -% 820 0 obj -<< -/D [813 0 R /XYZ 99.895 573.861 null] ->> - -endstream -endobj -836 0 obj +851 0 obj << /Length 7473 >> @@ -4808,7 +4841,7 @@ ET endstream endobj -847 0 obj +862 0 obj << /Length 8464 >> @@ -4948,7 +4981,7 @@ ET endstream endobj -855 0 obj +870 0 obj << /Length 6827 >> @@ -5075,7 +5108,7 @@ ET endstream endobj -866 0 obj +881 0 obj << /Length 5178 >> @@ -5186,7 +5219,7 @@ ET endstream endobj -881 0 obj +896 0 obj << /Length 5199 >> @@ -5315,7 +5348,7 @@ ET endstream endobj -885 0 obj +900 0 obj << /Length 4312 >> @@ -5433,7 +5466,7 @@ ET endstream endobj -890 0 obj +905 0 obj << /Length 4851 >> @@ -5600,7 +5633,7 @@ ET endstream endobj -898 0 obj +913 0 obj << /Length 9583 >> @@ -5919,7 +5952,7 @@ ET endstream endobj -906 0 obj +921 0 obj << /Length 5360 >> @@ -6065,7 +6098,541 @@ ET endstream endobj -910 0 obj +826 0 obj +<< +/Type /ObjStm +/N 100 +/First 867 +/Length 9119 +>> +stream +813 0 829 130 812 264 831 412 832 468 833 524 834 580 835 635 836 691 837 747 +838 803 839 859 840 915 841 971 842 1027 843 1083 844 1139 845 1195 828 1252 850 1382 +827 1524 848 1676 852 1823 27 1880 853 1936 854 1993 855 2050 856 2107 857 2164 858 2221 +31 2278 849 2334 861 2477 859 2611 863 2758 35 2814 39 2869 864 2924 860 2981 869 3099 +865 3249 866 3396 867 3548 871 3700 872 3757 873 3814 874 3871 875 3928 876 3985 868 4042 +880 4134 877 4276 878 4428 882 4580 883 4636 884 4692 885 4748 886 4803 887 4859 888 4915 +889 4971 890 5027 891 5083 879 5140 895 5232 892 5374 893 5520 897 5666 43 5723 47 5779 +51 5835 55 5891 894 5947 899 6065 901 6179 59 6235 63 6290 67 6345 898 6400 904 6492 +906 6606 71 6663 75 6719 907 6775 79 6832 83 6888 903 6944 912 7036 908 7186 909 7343 +910 7493 914 7639 87 7695 91 7750 915 7805 916 7862 911 7919 920 8024 922 8138 918 8195 +% 813 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F9 817 0 R /F17 750 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 829 0 obj +<< +/Type /Page +/Contents 830 0 R +/Resources 828 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 812 0 R ] +>> +% 812 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [176.109 690.964 182.571 703.28] +/A << /S /GoTo /D (Hfootnote.3) >> +>> +% 831 0 obj +<< +/D [829 0 R /XYZ 98.895 753.953 null] +>> +% 832 0 obj +<< +/D [829 0 R /XYZ 99.895 716.092 null] +>> +% 833 0 obj +<< +/D [829 0 R /XYZ 99.895 686.739 null] +>> +% 834 0 obj +<< +/D [829 0 R /XYZ 99.895 618.93 null] +>> +% 835 0 obj +<< +/D [829 0 R /XYZ 99.895 596.257 null] +>> +% 836 0 obj +<< +/D [829 0 R /XYZ 99.895 573.861 null] +>> +% 837 0 obj +<< +/D [829 0 R /XYZ 99.895 539.509 null] +>> +% 838 0 obj +<< +/D [829 0 R /XYZ 99.895 517.113 null] +>> +% 839 0 obj +<< +/D [829 0 R /XYZ 99.895 494.716 null] +>> +% 840 0 obj +<< +/D [829 0 R /XYZ 99.895 469.986 null] +>> +% 841 0 obj +<< +/D [829 0 R /XYZ 99.895 440.855 null] +>> +% 842 0 obj +<< +/D [829 0 R /XYZ 99.895 411.448 null] +>> +% 843 0 obj +<< +/D [829 0 R /XYZ 99.895 393.995 null] +>> +% 844 0 obj +<< +/D [829 0 R /XYZ 99.895 376.819 null] +>> +% 845 0 obj +<< +/D [829 0 R /XYZ 115.138 139.255 null] +>> +% 828 0 obj +<< +/Font << /F8 573 0 R /F30 784 0 R /F7 785 0 R /F32 788 0 R /F31 790 0 R /F45 846 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 850 0 obj +<< +/Type /Page +/Contents 851 0 R +/Resources 849 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 827 0 R 848 0 R ] +>> +% 827 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [269.731 674.788 284.454 683.699] +/A << /S /GoTo /D (subsection.2.3) >> +>> +% 848 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [169.998 271.903 176.972 282.751] +/A << /S /GoTo /D (section.3) >> +>> +% 852 0 obj +<< +/D [850 0 R /XYZ 149.705 753.953 null] +>> +% 27 0 obj +<< +/D [850 0 R /XYZ 150.705 716.092 null] +>> +% 853 0 obj +<< +/D [850 0 R /XYZ 150.705 671.799 null] +>> +% 854 0 obj +<< +/D [850 0 R /XYZ 150.705 649.383 null] +>> +% 855 0 obj +<< +/D [850 0 R /XYZ 150.705 576.158 null] +>> +% 856 0 obj +<< +/D [850 0 R /XYZ 150.705 530.385 null] +>> +% 857 0 obj +<< +/D [850 0 R /XYZ 150.705 497.951 null] +>> +% 858 0 obj +<< +/D [850 0 R /XYZ 150.705 478.303 null] +>> +% 31 0 obj +<< +/D [850 0 R /XYZ 150.705 424.511 null] +>> +% 849 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F9 817 0 R /F30 784 0 R /F16 570 0 R /F17 750 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 861 0 obj +<< +/Type /Page +/Contents 862 0 R +/Resources 860 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 859 0 R ] +>> +% 859 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [269.318 174.287 276.292 185.135] +/A << /S /GoTo /D (section.6) >> +>> +% 863 0 obj +<< +/D [861 0 R /XYZ 98.895 753.953 null] +>> +% 35 0 obj +<< +/D [861 0 R /XYZ 99.895 716.092 null] +>> +% 39 0 obj +<< +/D [861 0 R /XYZ 99.895 280.417 null] +>> +% 864 0 obj +<< +/D [861 0 R /XYZ 342.427 237.273 null] +>> +% 860 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R /F27 572 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 869 0 obj +<< +/Type /Page +/Contents 870 0 R +/Resources 868 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 865 0 R 866 0 R 867 0 R ] +>> +% 865 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [452.103 399.657 459.077 411.612] +/A << /S /GoTo /D (section.6) >> +>> +% 866 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [356.323 194.074 371.046 204.923] +/A << /S /GoTo /D (subsection.3.3) >> +>> +% 867 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [356.323 149.756 371.046 160.604] +/A << /S /GoTo /D (subsection.3.3) >> +>> +% 871 0 obj +<< +/D [869 0 R /XYZ 149.705 753.953 null] +>> +% 872 0 obj +<< +/D [869 0 R /XYZ 150.705 294.274 null] +>> +% 873 0 obj +<< +/D [869 0 R /XYZ 150.705 278.093 null] +>> +% 874 0 obj +<< +/D [869 0 R /XYZ 150.705 261.911 null] +>> +% 875 0 obj +<< +/D [869 0 R /XYZ 150.705 245.729 null] +>> +% 876 0 obj +<< +/D [869 0 R /XYZ 150.705 229.547 null] +>> +% 868 0 obj +<< +/Font << /F14 787 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 880 0 obj +<< +/Type /Page +/Contents 881 0 R +/Resources 879 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 877 0 R 878 0 R ] +>> +% 877 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [305.513 611.433 320.236 622.281] +/A << /S /GoTo /D (subsection.3.3) >> +>> +% 878 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [305.513 564.905 320.236 575.753] +/A << /S /GoTo /D (subsection.3.3) >> +>> +% 882 0 obj +<< +/D [880 0 R /XYZ 98.895 753.953 null] +>> +% 883 0 obj +<< +/D [880 0 R /XYZ 99.895 716.092 null] +>> +% 884 0 obj +<< +/D [880 0 R /XYZ 99.895 701.526 null] +>> +% 885 0 obj +<< +/D [880 0 R /XYZ 99.895 684.24 null] +>> +% 886 0 obj +<< +/D [880 0 R /XYZ 99.895 666.954 null] +>> +% 887 0 obj +<< +/D [880 0 R /XYZ 99.895 649.667 null] +>> +% 888 0 obj +<< +/D [880 0 R /XYZ 99.895 535.287 null] +>> +% 889 0 obj +<< +/D [880 0 R /XYZ 99.895 518.001 null] +>> +% 890 0 obj +<< +/D [880 0 R /XYZ 99.895 500.715 null] +>> +% 891 0 obj +<< +/D [880 0 R /XYZ 147.412 273.553 null] +>> +% 879 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 895 0 obj +<< +/Type /Page +/Contents 896 0 R +/Resources 894 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 847 0 R +/Annots [ 892 0 R 893 0 R ] +>> +% 892 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [351.231 524.53 358.204 536.485] +/A << /S /GoTo /D (section.1) >> +>> +% 893 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [186.34 314.707 193.314 326.662] +/A << /S /GoTo /D (section.1) >> +>> +% 897 0 obj +<< +/D [895 0 R /XYZ 149.705 753.953 null] +>> +% 43 0 obj +<< +/D [895 0 R /XYZ 150.705 716.092 null] +>> +% 47 0 obj +<< +/D [895 0 R /XYZ 150.705 699.536 null] +>> +% 51 0 obj +<< +/D [895 0 R /XYZ 150.705 501.668 null] +>> +% 55 0 obj +<< +/D [895 0 R /XYZ 150.705 291.844 null] +>> +% 894 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F14 787 0 R /F10 786 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 899 0 obj +<< +/Type /Page +/Contents 900 0 R +/Resources 898 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +>> +% 901 0 obj +<< +/D [899 0 R /XYZ 98.895 753.953 null] +>> +% 59 0 obj +<< +/D [899 0 R /XYZ 99.895 718.084 null] +>> +% 63 0 obj +<< +/D [899 0 R /XYZ 99.895 532.754 null] +>> +% 67 0 obj +<< +/D [899 0 R /XYZ 99.895 279.429 null] +>> +% 898 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 904 0 obj +<< +/Type /Page +/Contents 905 0 R +/Resources 903 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +>> +% 906 0 obj +<< +/D [904 0 R /XYZ 149.705 753.953 null] +>> +% 71 0 obj +<< +/D [904 0 R /XYZ 150.705 718.084 null] +>> +% 75 0 obj +<< +/D [904 0 R /XYZ 150.705 519.229 null] +>> +% 907 0 obj +<< +/D [904 0 R /XYZ 395.482 355.253 null] +>> +% 79 0 obj +<< +/D [904 0 R /XYZ 150.705 305.167 null] +>> +% 83 0 obj +<< +/D [904 0 R /XYZ 150.705 194.677 null] +>> +% 903 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 912 0 obj +<< +/Type /Page +/Contents 913 0 R +/Resources 911 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +/Annots [ 908 0 R 909 0 R 910 0 R ] +>> +% 908 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [137.251 300.628 149.206 309.041] +/A << /S /GoTo /D (cite.DesignPatterns) >> +>> +% 909 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[0 1 0] +/Rect [218.095 300.628 230.05 309.041] +/A << /S /GoTo /D (cite.Sparse03) >> +>> +% 910 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [408.687 298.137 415.661 310.092] +/A << /S /GoTo /D (figure.4) >> +>> +% 914 0 obj +<< +/D [912 0 R /XYZ 98.895 753.953 null] +>> +% 87 0 obj +<< +/D [912 0 R /XYZ 99.895 583.867 null] +>> +% 91 0 obj +<< +/D [912 0 R /XYZ 99.895 356.203 null] +>> +% 915 0 obj +<< +/D [912 0 R /XYZ 120.548 325.535 null] +>> +% 916 0 obj +<< +/D [912 0 R /XYZ 404.863 188.353 null] +>> +% 911 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 920 0 obj +<< +/Type /Page +/Contents 921 0 R +/Resources 919 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +>> +% 922 0 obj +<< +/D [920 0 R /XYZ 149.705 753.953 null] +>> +% 918 0 obj +<< +/D [920 0 R /XYZ 205.817 667.994 null] +>> + +endstream +endobj +926 0 obj << /Length 3499 >> @@ -6151,536 +6718,7 @@ ET endstream endobj -832 0 obj -<< -/Type /ObjStm -/N 100 -/First 865 -/Length 8969 ->> -stream -821 0 822 56 823 112 824 168 825 224 826 280 827 336 828 392 829 448 812 505 -835 635 811 777 833 929 837 1076 27 1133 838 1189 839 1246 840 1303 841 1360 842 1417 -843 1474 31 1531 834 1587 846 1730 844 1864 848 2011 35 2067 39 2122 849 2177 845 2234 -854 2352 850 2502 851 2649 852 2801 856 2953 857 3010 858 3067 859 3124 860 3181 861 3238 -853 3295 865 3387 862 3529 863 3681 867 3833 868 3889 869 3945 870 4001 871 4056 872 4112 -873 4168 874 4224 875 4280 876 4336 864 4393 880 4485 877 4627 878 4773 882 4919 43 4976 -47 5032 51 5088 55 5144 879 5200 884 5318 886 5432 59 5488 63 5543 67 5598 883 5653 -889 5745 891 5859 71 5916 75 5972 892 6028 79 6085 83 6141 888 6197 897 6289 893 6439 -894 6596 895 6746 899 6892 87 6948 91 7003 900 7058 901 7115 896 7172 905 7277 907 7391 -903 7448 95 7505 99 7561 103 7617 904 7674 909 7766 911 7880 107 7936 912 7992 111 8048 -% 821 0 obj -<< -/D [813 0 R /XYZ 99.895 539.509 null] ->> -% 822 0 obj -<< -/D [813 0 R /XYZ 99.895 517.113 null] ->> -% 823 0 obj -<< -/D [813 0 R /XYZ 99.895 494.716 null] ->> -% 824 0 obj -<< -/D [813 0 R /XYZ 99.895 469.986 null] ->> -% 825 0 obj -<< -/D [813 0 R /XYZ 99.895 440.855 null] ->> -% 826 0 obj -<< -/D [813 0 R /XYZ 99.895 411.448 null] ->> -% 827 0 obj -<< -/D [813 0 R /XYZ 99.895 393.995 null] ->> -% 828 0 obj -<< -/D [813 0 R /XYZ 99.895 376.819 null] ->> -% 829 0 obj -<< -/D [813 0 R /XYZ 115.138 139.255 null] ->> -% 812 0 obj -<< -/Font << /F8 561 0 R /F30 769 0 R /F7 770 0 R /F32 773 0 R /F31 775 0 R /F45 830 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 835 0 obj -<< -/Type /Page -/Contents 836 0 R -/Resources 834 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 811 0 R 833 0 R ] ->> -% 811 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [269.731 674.788 284.454 683.699] -/A << /S /GoTo /D (subsection.2.3) >> ->> -% 833 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [169.998 271.903 176.972 282.751] -/A << /S /GoTo /D (section.3) >> ->> -% 837 0 obj -<< -/D [835 0 R /XYZ 149.705 753.953 null] ->> -% 27 0 obj -<< -/D [835 0 R /XYZ 150.705 716.092 null] ->> -% 838 0 obj -<< -/D [835 0 R /XYZ 150.705 671.799 null] ->> -% 839 0 obj -<< -/D [835 0 R /XYZ 150.705 649.383 null] ->> -% 840 0 obj -<< -/D [835 0 R /XYZ 150.705 576.158 null] ->> -% 841 0 obj -<< -/D [835 0 R /XYZ 150.705 530.385 null] ->> -% 842 0 obj -<< -/D [835 0 R /XYZ 150.705 497.951 null] ->> -% 843 0 obj -<< -/D [835 0 R /XYZ 150.705 478.303 null] ->> -% 31 0 obj -<< -/D [835 0 R /XYZ 150.705 424.511 null] ->> -% 834 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F9 802 0 R /F30 769 0 R /F16 558 0 R /F17 735 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 846 0 obj -<< -/Type /Page -/Contents 847 0 R -/Resources 845 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 844 0 R ] ->> -% 844 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [269.318 174.287 276.292 185.135] -/A << /S /GoTo /D (section.6) >> ->> -% 848 0 obj -<< -/D [846 0 R /XYZ 98.895 753.953 null] ->> -% 35 0 obj -<< -/D [846 0 R /XYZ 99.895 716.092 null] ->> -% 39 0 obj -<< -/D [846 0 R /XYZ 99.895 280.417 null] ->> -% 849 0 obj -<< -/D [846 0 R /XYZ 342.427 237.273 null] ->> -% 845 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F30 769 0 R /F27 560 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 854 0 obj -<< -/Type /Page -/Contents 855 0 R -/Resources 853 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 850 0 R 851 0 R 852 0 R ] ->> -% 850 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [452.103 399.657 459.077 411.612] -/A << /S /GoTo /D (section.6) >> ->> -% 851 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [356.323 194.074 371.046 204.923] -/A << /S /GoTo /D (subsection.3.3) >> ->> -% 852 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [356.323 149.756 371.046 160.604] -/A << /S /GoTo /D (subsection.3.3) >> ->> -% 856 0 obj -<< -/D [854 0 R /XYZ 149.705 753.953 null] ->> -% 857 0 obj -<< -/D [854 0 R /XYZ 150.705 294.274 null] ->> -% 858 0 obj -<< -/D [854 0 R /XYZ 150.705 278.093 null] ->> -% 859 0 obj -<< -/D [854 0 R /XYZ 150.705 261.911 null] ->> -% 860 0 obj -<< -/D [854 0 R /XYZ 150.705 245.729 null] ->> -% 861 0 obj -<< -/D [854 0 R /XYZ 150.705 229.547 null] ->> -% 853 0 obj -<< -/Font << /F14 772 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 865 0 obj -<< -/Type /Page -/Contents 866 0 R -/Resources 864 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 862 0 R 863 0 R ] ->> -% 862 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [305.513 611.433 320.236 622.281] -/A << /S /GoTo /D (subsection.3.3) >> ->> -% 863 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [305.513 564.905 320.236 575.753] -/A << /S /GoTo /D (subsection.3.3) >> ->> -% 867 0 obj -<< -/D [865 0 R /XYZ 98.895 753.953 null] ->> -% 868 0 obj -<< -/D [865 0 R /XYZ 99.895 716.092 null] ->> -% 869 0 obj -<< -/D [865 0 R /XYZ 99.895 701.526 null] ->> -% 870 0 obj -<< -/D [865 0 R /XYZ 99.895 684.24 null] ->> -% 871 0 obj -<< -/D [865 0 R /XYZ 99.895 666.954 null] ->> -% 872 0 obj -<< -/D [865 0 R /XYZ 99.895 649.667 null] ->> -% 873 0 obj -<< -/D [865 0 R /XYZ 99.895 535.287 null] ->> -% 874 0 obj -<< -/D [865 0 R /XYZ 99.895 518.001 null] ->> -% 875 0 obj -<< -/D [865 0 R /XYZ 99.895 500.715 null] ->> -% 876 0 obj -<< -/D [865 0 R /XYZ 147.412 273.553 null] ->> -% 864 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 880 0 obj -<< -/Type /Page -/Contents 881 0 R -/Resources 879 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 831 0 R -/Annots [ 877 0 R 878 0 R ] ->> -% 877 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [351.231 524.53 358.204 536.485] -/A << /S /GoTo /D (section.1) >> ->> -% 878 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [186.34 314.707 193.314 326.662] -/A << /S /GoTo /D (section.1) >> ->> -% 882 0 obj -<< -/D [880 0 R /XYZ 149.705 753.953 null] ->> -% 43 0 obj -<< -/D [880 0 R /XYZ 150.705 716.092 null] ->> -% 47 0 obj -<< -/D [880 0 R /XYZ 150.705 699.536 null] ->> -% 51 0 obj -<< -/D [880 0 R /XYZ 150.705 501.668 null] ->> -% 55 0 obj -<< -/D [880 0 R /XYZ 150.705 291.844 null] ->> -% 879 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R /F14 772 0 R /F10 771 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 884 0 obj -<< -/Type /Page -/Contents 885 0 R -/Resources 883 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R ->> -% 886 0 obj -<< -/D [884 0 R /XYZ 98.895 753.953 null] ->> -% 59 0 obj -<< -/D [884 0 R /XYZ 99.895 718.084 null] ->> -% 63 0 obj -<< -/D [884 0 R /XYZ 99.895 532.754 null] ->> -% 67 0 obj -<< -/D [884 0 R /XYZ 99.895 279.429 null] ->> -% 883 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 889 0 obj -<< -/Type /Page -/Contents 890 0 R -/Resources 888 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R ->> -% 891 0 obj -<< -/D [889 0 R /XYZ 149.705 753.953 null] ->> -% 71 0 obj -<< -/D [889 0 R /XYZ 150.705 718.084 null] ->> -% 75 0 obj -<< -/D [889 0 R /XYZ 150.705 519.229 null] ->> -% 892 0 obj -<< -/D [889 0 R /XYZ 395.482 355.253 null] ->> -% 79 0 obj -<< -/D [889 0 R /XYZ 150.705 305.167 null] ->> -% 83 0 obj -<< -/D [889 0 R /XYZ 150.705 194.677 null] ->> -% 888 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 897 0 obj -<< -/Type /Page -/Contents 898 0 R -/Resources 896 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R -/Annots [ 893 0 R 894 0 R 895 0 R ] ->> -% 893 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [137.251 300.628 149.206 309.041] -/A << /S /GoTo /D (cite.DesignPatterns) >> ->> -% 894 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [218.095 300.628 230.05 309.041] -/A << /S /GoTo /D (cite.Sparse03) >> ->> -% 895 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [408.687 298.137 415.661 310.092] -/A << /S /GoTo /D (figure.4) >> ->> -% 899 0 obj -<< -/D [897 0 R /XYZ 98.895 753.953 null] ->> -% 87 0 obj -<< -/D [897 0 R /XYZ 99.895 583.867 null] ->> -% 91 0 obj -<< -/D [897 0 R /XYZ 99.895 356.203 null] ->> -% 900 0 obj -<< -/D [897 0 R /XYZ 120.548 325.535 null] ->> -% 901 0 obj -<< -/D [897 0 R /XYZ 404.863 188.353 null] ->> -% 896 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 905 0 obj -<< -/Type /Page -/Contents 906 0 R -/Resources 904 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R ->> -% 907 0 obj -<< -/D [905 0 R /XYZ 149.705 753.953 null] ->> -% 903 0 obj -<< -/D [905 0 R /XYZ 205.817 667.994 null] ->> -% 95 0 obj -<< -/D [905 0 R /XYZ 150.705 394.197 null] ->> -% 99 0 obj -<< -/D [905 0 R /XYZ 150.705 377.215 null] ->> -% 103 0 obj -<< -/D [905 0 R /XYZ 150.705 195.871 null] ->> -% 904 0 obj -<< -/Font << /F30 769 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 909 0 obj -<< -/Type /Page -/Contents 910 0 R -/Resources 908 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R ->> -% 911 0 obj -<< -/D [909 0 R /XYZ 98.895 753.953 null] ->> -% 107 0 obj -<< -/D [909 0 R /XYZ 99.895 609.837 null] ->> -% 912 0 obj -<< -/D [909 0 R /XYZ 99.895 392.536 null] ->> -% 111 0 obj -<< -/D [909 0 R /XYZ 99.895 328.891 null] ->> - -endstream -endobj -916 0 obj +931 0 obj << /Length 3707 >> @@ -6787,7 +6825,7 @@ ET endstream endobj -920 0 obj +935 0 obj << /Length 4601 >> @@ -6889,7 +6927,7 @@ ET endstream endobj -925 0 obj +940 0 obj << /Length 4076 >> @@ -6970,7 +7008,7 @@ ET endstream endobj -929 0 obj +944 0 obj << /Length 4032 >> @@ -7060,7 +7098,7 @@ ET endstream endobj -933 0 obj +948 0 obj << /Length 5513 >> @@ -7147,7 +7185,7 @@ ET endstream endobj -939 0 obj +954 0 obj << /Length 7706 >> @@ -7424,7 +7462,7 @@ ET endstream endobj -945 0 obj +960 0 obj << /Length 3700 >> @@ -7508,7 +7546,7 @@ ET endstream endobj -951 0 obj +966 0 obj << /Length 3837 >> @@ -7575,7 +7613,7 @@ ET endstream endobj -959 0 obj +974 0 obj << /Length 4652 >> @@ -7666,7 +7704,7 @@ ET endstream endobj -965 0 obj +980 0 obj << /Length 3656 >> @@ -7770,7 +7808,7 @@ ET endstream endobj -970 0 obj +985 0 obj << /Length 158 >> @@ -7786,7 +7824,7 @@ ET endstream endobj -981 0 obj +996 0 obj << /Length 7361 >> @@ -7967,7 +8005,7 @@ ET endstream endobj -987 0 obj +1002 0 obj << /Length 2655 >> @@ -8041,7 +8079,7 @@ ET endstream endobj -996 0 obj +1011 0 obj << /Length 7700 >> @@ -8228,7 +8266,590 @@ ET endstream endobj -1003 0 obj +923 0 obj +<< +/Type /ObjStm +/N 100 +/First 889 +/Length 10064 +>> +stream +95 0 99 56 103 112 919 169 925 261 927 375 107 431 928 487 111 543 924 599 +930 691 932 805 115 862 119 919 123 976 929 1033 934 1125 936 1239 127 1295 131 1351 +933 1407 939 1499 941 1613 135 1670 139 1727 938 1783 943 1875 945 1989 143 2045 147 2101 +151 2157 942 2213 947 2305 949 2419 155 2476 946 2533 953 2625 950 2767 951 2914 955 3060 +159 3116 163 3172 167 3228 171 3284 956 3340 952 3397 959 3502 961 3616 957 3673 175 3730 +179 3787 183 3844 958 3901 965 3993 962 4135 963 4280 967 4425 187 4481 964 4537 973 4629 +970 4763 975 4909 191 4966 195 5023 199 5080 976 5137 972 5194 979 5312 971 5446 981 5593 +977 5649 204 5706 978 5762 984 5880 986 5994 208 6051 983 6108 995 6187 987 6361 988 6506 +989 6649 990 6794 991 6939 992 7082 997 7227 212 7283 969 7339 994 7395 1001 7526 993 7679 +998 7825 999 7967 1003 8112 1000 8171 1010 8277 1004 8452 1005 8595 1006 8741 1007 8884 1008 9029 +% 95 0 obj +<< +/D [920 0 R /XYZ 150.705 394.197 null] +>> +% 99 0 obj +<< +/D [920 0 R /XYZ 150.705 377.215 null] +>> +% 103 0 obj +<< +/D [920 0 R /XYZ 150.705 195.871 null] +>> +% 919 0 obj +<< +/Font << /F30 784 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 925 0 obj +<< +/Type /Page +/Contents 926 0 R +/Resources 924 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +>> +% 927 0 obj +<< +/D [925 0 R /XYZ 98.895 753.953 null] +>> +% 107 0 obj +<< +/D [925 0 R /XYZ 99.895 609.837 null] +>> +% 928 0 obj +<< +/D [925 0 R /XYZ 99.895 392.536 null] +>> +% 111 0 obj +<< +/D [925 0 R /XYZ 99.895 328.891 null] +>> +% 924 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 930 0 obj +<< +/Type /Page +/Contents 931 0 R +/Resources 929 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 902 0 R +>> +% 932 0 obj +<< +/D [930 0 R /XYZ 149.705 753.953 null] +>> +% 115 0 obj +<< +/D [930 0 R /XYZ 150.705 718.084 null] +>> +% 119 0 obj +<< +/D [930 0 R /XYZ 150.705 528.904 null] +>> +% 123 0 obj +<< +/D [930 0 R /XYZ 150.705 327.768 null] +>> +% 929 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 934 0 obj +<< +/Type /Page +/Contents 935 0 R +/Resources 933 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +>> +% 936 0 obj +<< +/D [934 0 R /XYZ 98.895 753.953 null] +>> +% 127 0 obj +<< +/D [934 0 R /XYZ 99.895 718.084 null] +>> +% 131 0 obj +<< +/D [934 0 R /XYZ 99.895 477.598 null] +>> +% 933 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 939 0 obj +<< +/Type /Page +/Contents 940 0 R +/Resources 938 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +>> +% 941 0 obj +<< +/D [939 0 R /XYZ 149.705 753.953 null] +>> +% 135 0 obj +<< +/D [939 0 R /XYZ 150.705 718.084 null] +>> +% 139 0 obj +<< +/D [939 0 R /XYZ 150.705 383.68 null] +>> +% 938 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 943 0 obj +<< +/Type /Page +/Contents 944 0 R +/Resources 942 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +>> +% 945 0 obj +<< +/D [943 0 R /XYZ 98.895 753.953 null] +>> +% 143 0 obj +<< +/D [943 0 R /XYZ 99.895 718.084 null] +>> +% 147 0 obj +<< +/D [943 0 R /XYZ 99.895 483.063 null] +>> +% 151 0 obj +<< +/D [943 0 R /XYZ 99.895 248.041 null] +>> +% 942 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 947 0 obj +<< +/Type /Page +/Contents 948 0 R +/Resources 946 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +>> +% 949 0 obj +<< +/D [947 0 R /XYZ 149.705 753.953 null] +>> +% 155 0 obj +<< +/D [947 0 R /XYZ 150.705 476.867 null] +>> +% 946 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 953 0 obj +<< +/Type /Page +/Contents 954 0 R +/Resources 952 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +/Annots [ 950 0 R 951 0 R ] +>> +% 950 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [199.382 165.213 206.356 176.061] +/A << /S /GoTo /D (section.6) >> +>> +% 951 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [292.368 129.347 299.342 140.196] +/A << /S /GoTo /D (figure.5) >> +>> +% 955 0 obj +<< +/D [953 0 R /XYZ 98.895 753.953 null] +>> +% 159 0 obj +<< +/D [953 0 R /XYZ 99.895 718.084 null] +>> +% 163 0 obj +<< +/D [953 0 R /XYZ 99.895 590.059 null] +>> +% 167 0 obj +<< +/D [953 0 R /XYZ 99.895 402.035 null] +>> +% 171 0 obj +<< +/D [953 0 R /XYZ 99.895 233.858 null] +>> +% 956 0 obj +<< +/D [953 0 R /XYZ 121.151 204.012 null] +>> +% 952 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 959 0 obj +<< +/Type /Page +/Contents 960 0 R +/Resources 958 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 937 0 R +>> +% 961 0 obj +<< +/D [959 0 R /XYZ 149.705 753.953 null] +>> +% 957 0 obj +<< +/D [959 0 R /XYZ 208.488 433.055 null] +>> +% 175 0 obj +<< +/D [959 0 R /XYZ 150.705 391.443 null] +>> +% 179 0 obj +<< +/D [959 0 R /XYZ 150.705 374.163 null] +>> +% 183 0 obj +<< +/D [959 0 R /XYZ 150.705 195.076 null] +>> +% 958 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 965 0 obj +<< +/Type /Page +/Contents 966 0 R +/Resources 964 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +/Annots [ 962 0 R 963 0 R ] +>> +% 962 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 385.356 389.062 396.204] +/A << /S /GoTo /D (table.1) >> +>> +% 963 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 241.508 389.062 252.356] +/A << /S /GoTo /D (table.1) >> +>> +% 967 0 obj +<< +/D [965 0 R /XYZ 98.895 753.953 null] +>> +% 187 0 obj +<< +/D [965 0 R /XYZ 99.895 613.581 null] +>> +% 964 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 973 0 obj +<< +/Type /Page +/Contents 974 0 R +/Resources 972 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +/Annots [ 970 0 R ] +>> +% 970 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [177.685 152.981 184.659 164.106] +/A << /S /GoTo /D (figure.6) >> +>> +% 975 0 obj +<< +/D [973 0 R /XYZ 149.705 753.953 null] +>> +% 191 0 obj +<< +/D [973 0 R /XYZ 150.705 718.084 null] +>> +% 195 0 obj +<< +/D [973 0 R /XYZ 150.705 430.016 null] +>> +% 199 0 obj +<< +/D [973 0 R /XYZ 150.705 226.068 null] +>> +% 976 0 obj +<< +/D [973 0 R /XYZ 308.372 168.146 null] +>> +% 972 0 obj +<< +/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 979 0 obj +<< +/Type /Page +/Contents 980 0 R +/Resources 978 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +/Annots [ 971 0 R ] +>> +% 971 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [246.843 591.268 253.817 602.116] +/A << /S /GoTo /D (section.6) >> +>> +% 981 0 obj +<< +/D [979 0 R /XYZ 98.895 753.953 null] +>> +% 977 0 obj +<< +/D [979 0 R /XYZ 155.478 656.371 null] +>> +% 204 0 obj +<< +/D [979 0 R /XYZ 99.895 622.553 null] +>> +% 978 0 obj +<< +/Font << /F47 982 0 R /F8 573 0 R /F16 570 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 984 0 obj +<< +/Type /Page +/Contents 985 0 R +/Resources 983 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +>> +% 986 0 obj +<< +/D [984 0 R /XYZ 149.705 753.953 null] +>> +% 208 0 obj +<< +/D [984 0 R /XYZ 150.705 716.092 null] +>> +% 983 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 995 0 obj +<< +/Type /Page +/Contents 996 0 R +/Resources 994 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +/Annots [ 987 0 R 988 0 R 989 0 R 990 0 R 991 0 R 992 0 R ] +>> +% 987 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 401.949 389.062 412.798] +/A << /S /GoTo /D (table.1) >> +>> +% 988 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 333.522 444.603 344.647] +/A << /S /GoTo /D (vdata) >> +>> +% 989 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [328.333 321.844 335.307 332.692] +/A << /S /GoTo /D (table.1) >> +>> +% 990 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 241.738 389.062 252.586] +/A << /S /GoTo /D (table.1) >> +>> +% 991 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 173.311 444.603 184.436] +/A << /S /GoTo /D (vdata) >> +>> +% 992 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.625 161.632 352.599 172.481] +/A << /S /GoTo /D (table.1) >> +>> +% 997 0 obj +<< +/D [995 0 R /XYZ 98.895 753.953 null] +>> +% 212 0 obj +<< +/D [995 0 R /XYZ 99.895 720.077 null] +>> +% 969 0 obj +<< +/D [995 0 R /XYZ 267.641 539.42 null] +>> +% 994 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1001 0 obj +<< +/Type /Page +/Contents 1002 0 R +/Resources 1000 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 968 0 R +/Annots [ 993 0 R 998 0 R 999 0 R ] +>> +% 993 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 679.008 377.331 690.133] +/A << /S /GoTo /D (descdata) >> +>> +% 998 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 589.345 495.412 600.47] +/A << /S /GoTo /D (vdata) >> +>> +% 999 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [396.367 577.666 403.341 588.514] +/A << /S /GoTo /D (table.1) >> +>> +% 1003 0 obj +<< +/D [1001 0 R /XYZ 149.705 753.953 null] +>> +% 1000 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1010 0 obj +<< +/Type /Page +/Contents 1011 0 R +/Resources 1009 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +/Annots [ 1004 0 R 1005 0 R 1006 0 R 1007 0 R 1008 0 R ] +>> +% 1004 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 355.465 444.603 366.59] +/A << /S /GoTo /D (vdata) >> +>> +% 1005 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [328.333 343.787 335.307 354.635] +/A << /S /GoTo /D (table.2) >> +>> +% 1006 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 264.06 444.603 275.185] +/A << /S /GoTo /D (vdata) >> +>> +% 1007 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [328.544 252.382 335.518 263.23] +/A << /S /GoTo /D (table.2) >> +>> +% 1008 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 172.655 326.522 183.78] +/A << /S /GoTo /D (descdata) >> +>> + +endstream +endobj +1019 0 obj << /Length 5114 >> @@ -8315,595 +8936,7 @@ ET endstream endobj -913 0 obj -<< -/Type /ObjStm -/N 100 -/First 889 -/Length 10219 ->> -stream -908 0 915 92 917 206 115 263 119 320 123 377 914 434 919 526 921 640 127 696 -131 752 918 808 924 900 926 1014 135 1071 139 1128 923 1184 928 1276 930 1390 143 1446 -147 1502 151 1558 927 1614 932 1706 934 1820 155 1877 931 1934 938 2026 935 2168 936 2315 -940 2461 159 2517 163 2573 167 2629 171 2685 941 2741 937 2798 944 2903 946 3017 942 3074 -175 3131 179 3188 183 3245 943 3302 950 3394 947 3536 948 3681 952 3826 187 3882 949 3938 -958 4030 955 4164 960 4310 191 4367 195 4424 199 4481 961 4538 957 4595 964 4713 956 4847 -966 4994 962 5050 204 5107 963 5163 969 5281 971 5395 208 5452 968 5509 980 5588 972 5762 -973 5907 974 6050 975 6195 976 6340 977 6483 982 6628 212 6684 954 6740 979 6796 986 6927 -978 7077 983 7223 984 7365 988 7510 985 7567 995 7672 989 7838 990 7980 991 8125 992 8267 -993 8411 997 8556 216 8612 998 8668 994 8725 1002 8869 1000 9007 1004 9153 1005 9212 1006 9271 -% 908 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 915 0 obj -<< -/Type /Page -/Contents 916 0 R -/Resources 914 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 887 0 R ->> -% 917 0 obj -<< -/D [915 0 R /XYZ 149.705 753.953 null] ->> -% 115 0 obj -<< -/D [915 0 R /XYZ 150.705 718.084 null] ->> -% 119 0 obj -<< -/D [915 0 R /XYZ 150.705 528.904 null] ->> -% 123 0 obj -<< -/D [915 0 R /XYZ 150.705 327.768 null] ->> -% 914 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 919 0 obj -<< -/Type /Page -/Contents 920 0 R -/Resources 918 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R ->> -% 921 0 obj -<< -/D [919 0 R /XYZ 98.895 753.953 null] ->> -% 127 0 obj -<< -/D [919 0 R /XYZ 99.895 718.084 null] ->> -% 131 0 obj -<< -/D [919 0 R /XYZ 99.895 477.598 null] ->> -% 918 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 924 0 obj -<< -/Type /Page -/Contents 925 0 R -/Resources 923 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R ->> -% 926 0 obj -<< -/D [924 0 R /XYZ 149.705 753.953 null] ->> -% 135 0 obj -<< -/D [924 0 R /XYZ 150.705 718.084 null] ->> -% 139 0 obj -<< -/D [924 0 R /XYZ 150.705 383.68 null] ->> -% 923 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 928 0 obj -<< -/Type /Page -/Contents 929 0 R -/Resources 927 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R ->> -% 930 0 obj -<< -/D [928 0 R /XYZ 98.895 753.953 null] ->> -% 143 0 obj -<< -/D [928 0 R /XYZ 99.895 718.084 null] ->> -% 147 0 obj -<< -/D [928 0 R /XYZ 99.895 483.063 null] ->> -% 151 0 obj -<< -/D [928 0 R /XYZ 99.895 248.041 null] ->> -% 927 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 932 0 obj -<< -/Type /Page -/Contents 933 0 R -/Resources 931 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R ->> -% 934 0 obj -<< -/D [932 0 R /XYZ 149.705 753.953 null] ->> -% 155 0 obj -<< -/D [932 0 R /XYZ 150.705 476.867 null] ->> -% 931 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 938 0 obj -<< -/Type /Page -/Contents 939 0 R -/Resources 937 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R -/Annots [ 935 0 R 936 0 R ] ->> -% 935 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [199.382 165.213 206.356 176.061] -/A << /S /GoTo /D (section.6) >> ->> -% 936 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [292.368 129.347 299.342 140.196] -/A << /S /GoTo /D (figure.5) >> ->> -% 940 0 obj -<< -/D [938 0 R /XYZ 98.895 753.953 null] ->> -% 159 0 obj -<< -/D [938 0 R /XYZ 99.895 718.084 null] ->> -% 163 0 obj -<< -/D [938 0 R /XYZ 99.895 590.059 null] ->> -% 167 0 obj -<< -/D [938 0 R /XYZ 99.895 402.035 null] ->> -% 171 0 obj -<< -/D [938 0 R /XYZ 99.895 233.858 null] ->> -% 941 0 obj -<< -/D [938 0 R /XYZ 121.151 204.012 null] ->> -% 937 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 944 0 obj -<< -/Type /Page -/Contents 945 0 R -/Resources 943 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 922 0 R ->> -% 946 0 obj -<< -/D [944 0 R /XYZ 149.705 753.953 null] ->> -% 942 0 obj -<< -/D [944 0 R /XYZ 208.488 433.055 null] ->> -% 175 0 obj -<< -/D [944 0 R /XYZ 150.705 391.443 null] ->> -% 179 0 obj -<< -/D [944 0 R /XYZ 150.705 374.163 null] ->> -% 183 0 obj -<< -/D [944 0 R /XYZ 150.705 195.076 null] ->> -% 943 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 950 0 obj -<< -/Type /Page -/Contents 951 0 R -/Resources 949 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R -/Annots [ 947 0 R 948 0 R ] ->> -% 947 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 385.356 389.062 396.204] -/A << /S /GoTo /D (table.1) >> ->> -% 948 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 241.508 389.062 252.356] -/A << /S /GoTo /D (table.1) >> ->> -% 952 0 obj -<< -/D [950 0 R /XYZ 98.895 753.953 null] ->> -% 187 0 obj -<< -/D [950 0 R /XYZ 99.895 613.581 null] ->> -% 949 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 958 0 obj -<< -/Type /Page -/Contents 959 0 R -/Resources 957 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R -/Annots [ 955 0 R ] ->> -% 955 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [177.685 152.981 184.659 164.106] -/A << /S /GoTo /D (figure.6) >> ->> -% 960 0 obj -<< -/D [958 0 R /XYZ 149.705 753.953 null] ->> -% 191 0 obj -<< -/D [958 0 R /XYZ 150.705 718.084 null] ->> -% 195 0 obj -<< -/D [958 0 R /XYZ 150.705 430.016 null] ->> -% 199 0 obj -<< -/D [958 0 R /XYZ 150.705 226.068 null] ->> -% 961 0 obj -<< -/D [958 0 R /XYZ 308.372 168.146 null] ->> -% 957 0 obj -<< -/Font << /F27 560 0 R /F30 769 0 R /F8 561 0 R /F11 755 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 964 0 obj -<< -/Type /Page -/Contents 965 0 R -/Resources 963 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R -/Annots [ 956 0 R ] ->> -% 956 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [246.843 591.268 253.817 602.116] -/A << /S /GoTo /D (section.6) >> ->> -% 966 0 obj -<< -/D [964 0 R /XYZ 98.895 753.953 null] ->> -% 962 0 obj -<< -/D [964 0 R /XYZ 155.478 656.371 null] ->> -% 204 0 obj -<< -/D [964 0 R /XYZ 99.895 622.553 null] ->> -% 963 0 obj -<< -/Font << /F47 967 0 R /F8 561 0 R /F16 558 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 969 0 obj -<< -/Type /Page -/Contents 970 0 R -/Resources 968 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R ->> -% 971 0 obj -<< -/D [969 0 R /XYZ 149.705 753.953 null] ->> -% 208 0 obj -<< -/D [969 0 R /XYZ 150.705 716.092 null] ->> -% 968 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 980 0 obj -<< -/Type /Page -/Contents 981 0 R -/Resources 979 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R -/Annots [ 972 0 R 973 0 R 974 0 R 975 0 R 976 0 R 977 0 R ] ->> -% 972 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 401.949 389.062 412.798] -/A << /S /GoTo /D (table.1) >> ->> -% 973 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 333.522 444.603 344.647] -/A << /S /GoTo /D (vdata) >> ->> -% 974 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.333 321.844 335.307 332.692] -/A << /S /GoTo /D (table.1) >> ->> -% 975 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 241.738 389.062 252.586] -/A << /S /GoTo /D (table.1) >> ->> -% 976 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 173.311 444.603 184.436] -/A << /S /GoTo /D (vdata) >> ->> -% 977 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.625 161.632 352.599 172.481] -/A << /S /GoTo /D (table.1) >> ->> -% 982 0 obj -<< -/D [980 0 R /XYZ 98.895 753.953 null] ->> -% 212 0 obj -<< -/D [980 0 R /XYZ 99.895 720.077 null] ->> -% 954 0 obj -<< -/D [980 0 R /XYZ 267.641 539.42 null] ->> -% 979 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 986 0 obj -<< -/Type /Page -/Contents 987 0 R -/Resources 985 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 953 0 R -/Annots [ 978 0 R 983 0 R 984 0 R ] ->> -% 978 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 679.008 377.331 690.133] -/A << /S /GoTo /D (descdata) >> ->> -% 983 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 589.345 495.412 600.47] -/A << /S /GoTo /D (vdata) >> ->> -% 984 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [396.367 577.666 403.341 588.514] -/A << /S /GoTo /D (table.1) >> ->> -% 988 0 obj -<< -/D [986 0 R /XYZ 149.705 753.953 null] ->> -% 985 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R /F30 769 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 995 0 obj -<< -/Type /Page -/Contents 996 0 R -/Resources 994 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R -/Annots [ 989 0 R 990 0 R 991 0 R 992 0 R 993 0 R ] ->> -% 989 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 355.465 444.603 366.59] -/A << /S /GoTo /D (vdata) >> ->> -% 990 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.333 343.787 335.307 354.635] -/A << /S /GoTo /D (table.2) >> ->> -% 991 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 264.06 444.603 275.185] -/A << /S /GoTo /D (vdata) >> ->> -% 992 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.544 252.382 335.518 263.23] -/A << /S /GoTo /D (table.2) >> ->> -% 993 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 172.655 326.522 183.78] -/A << /S /GoTo /D (descdata) >> ->> -% 997 0 obj -<< -/D [995 0 R /XYZ 98.895 753.953 null] ->> -% 216 0 obj -<< -/D [995 0 R /XYZ 99.895 720.077 null] ->> -% 998 0 obj -<< -/D [995 0 R /XYZ 267.641 490.516 null] ->> -% 994 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1002 0 obj -<< -/Type /Page -/Contents 1003 0 R -/Resources 1001 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R -/Annots [ 1000 0 R ] ->> -% 1000 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [432.897 603.569 439.871 614.417] -/A << /S /GoTo /D (table.2) >> ->> -% 1004 0 obj -<< -/D [1002 0 R /XYZ 149.705 753.953 null] ->> -% 1005 0 obj -<< -/D [1002 0 R /XYZ 150.705 512.854 null] ->> -% 1006 0 obj -<< -/D [1002 0 R /XYZ 150.705 453.133 null] ->> - -endstream -endobj -1020 0 obj +1035 0 obj << /Length 8462 >> @@ -9097,7 +9130,7 @@ ET endstream endobj -1025 0 obj +1040 0 obj << /Length 625 >> @@ -9116,7 +9149,7 @@ ET endstream endobj -1032 0 obj +1047 0 obj << /Length 6858 >> @@ -9273,7 +9306,7 @@ ET endstream endobj -1037 0 obj +1052 0 obj << /Length 4563 >> @@ -9352,7 +9385,7 @@ ET endstream endobj -1050 0 obj +1065 0 obj << /Length 6326 >> @@ -9513,7 +9546,7 @@ ET endstream endobj -1059 0 obj +1074 0 obj << /Length 7148 >> @@ -9674,7 +9707,7 @@ ET endstream endobj -1064 0 obj +1079 0 obj << /Length 3878 >> @@ -9749,7 +9782,7 @@ ET endstream endobj -1077 0 obj +1092 0 obj << /Length 7351 >> @@ -9906,7 +9939,7 @@ ET endstream endobj -1082 0 obj +1097 0 obj << /Length 624 >> @@ -9925,7 +9958,7 @@ ET endstream endobj -1089 0 obj +1104 0 obj << /Length 6462 >> @@ -10096,7 +10129,7 @@ ET endstream endobj -1094 0 obj +1109 0 obj << /Length 4633 >> @@ -10175,7 +10208,7 @@ ET endstream endobj -1108 0 obj +1123 0 obj << /Length 6162 >> @@ -10336,7 +10369,593 @@ ET endstream endobj -1115 0 obj +1015 0 obj +<< +/Type /ObjStm +/N 100 +/First 977 +/Length 10805 +>> +stream +1012 0 216 58 1013 115 1009 174 1018 319 1016 458 1020 604 1021 663 1022 722 1023 781 +1024 839 1025 898 1026 956 1017 1015 1034 1134 1027 1318 1028 1462 1029 1607 1030 1751 1031 1897 +1032 2044 1036 2189 220 2247 1037 2304 1033 2363 1039 2508 1041 2626 1038 2685 1046 2765 1042 2922 +1043 3065 1044 3210 1048 3357 224 3415 1049 3472 1045 3530 1051 3675 1053 3793 1054 3852 1055 3911 +1056 3970 1057 4029 1058 4088 1059 4147 1050 4206 1064 4325 1060 4482 1061 4626 1062 4772 1066 4918 +228 4976 1067 5033 1063 5092 1073 5237 1069 5394 1070 5538 1071 5684 1075 5831 232 5890 1076 5948 +1072 6007 1078 6164 1080 6282 1081 6340 1082 6398 1083 6456 1084 6515 1085 6574 1086 6633 1077 6692 +1091 6785 1087 6942 1088 7085 1089 7230 1093 7376 236 7435 1094 7493 1090 7552 1096 7709 1098 7827 +1095 7885 1103 7965 1099 8122 1100 8266 1101 8412 1105 8559 240 8618 1106 8676 1102 8735 1108 8880 +1110 8998 1111 9056 1112 9114 1113 9172 1114 9231 1115 9290 1116 9349 1107 9408 1122 9527 1118 9684 +% 1012 0 obj +<< +/D [1010 0 R /XYZ 98.895 753.953 null] +>> +% 216 0 obj +<< +/D [1010 0 R /XYZ 99.895 720.077 null] +>> +% 1013 0 obj +<< +/D [1010 0 R /XYZ 267.641 490.516 null] +>> +% 1009 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1018 0 obj +<< +/Type /Page +/Contents 1019 0 R +/Resources 1017 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +/Annots [ 1016 0 R ] +>> +% 1016 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [432.897 603.569 439.871 614.417] +/A << /S /GoTo /D (table.2) >> +>> +% 1020 0 obj +<< +/D [1018 0 R /XYZ 149.705 753.953 null] +>> +% 1021 0 obj +<< +/D [1018 0 R /XYZ 150.705 512.854 null] +>> +% 1022 0 obj +<< +/D [1018 0 R /XYZ 150.705 453.133 null] +>> +% 1023 0 obj +<< +/D [1018 0 R /XYZ 175.611 455.07 null] +>> +% 1024 0 obj +<< +/D [1018 0 R /XYZ 175.611 443.115 null] +>> +% 1025 0 obj +<< +/D [1018 0 R /XYZ 175.611 431.16 null] +>> +% 1026 0 obj +<< +/D [1018 0 R /XYZ 175.611 419.205 null] +>> +% 1017 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R /F11 770 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1034 0 obj +<< +/Type /Page +/Contents 1035 0 R +/Resources 1033 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +/Annots [ 1027 0 R 1028 0 R 1029 0 R 1030 0 R 1031 0 R 1032 0 R ] +>> +% 1027 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 382.111 444.603 393.236] +/A << /S /GoTo /D (vdata) >> +>> +% 1028 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [328.333 370.432 335.307 381.28] +/A << /S /GoTo /D (table.3) >> +>> +% 1029 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 291.951 444.603 303.076] +/A << /S /GoTo /D (vdata) >> +>> +% 1030 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [328.544 280.273 335.518 291.121] +/A << /S /GoTo /D (table.3) >> +>> +% 1031 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 201.792 326.522 212.917] +/A << /S /GoTo /D (descdata) >> +>> +% 1032 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [151.203 119.329 158.177 128.24] +/A << /S /GoTo /D (table.2) >> +>> +% 1036 0 obj +<< +/D [1034 0 R /XYZ 98.895 753.953 null] +>> +% 220 0 obj +<< +/D [1034 0 R /XYZ 99.895 720.077 null] +>> +% 1037 0 obj +<< +/D [1034 0 R /XYZ 267.641 510.309 null] +>> +% 1033 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1039 0 obj +<< +/Type /Page +/Contents 1040 0 R +/Resources 1038 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +>> +% 1041 0 obj +<< +/D [1039 0 R /XYZ 149.705 753.953 null] +>> +% 1038 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1046 0 obj +<< +/Type /Page +/Contents 1047 0 R +/Resources 1045 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +/Annots [ 1042 0 R 1043 0 R 1044 0 R ] +>> +% 1042 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 315.41 444.603 326.535] +/A << /S /GoTo /D (vdata) >> +>> +% 1043 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [325.411 303.732 332.385 314.58] +/A << /S /GoTo /D (table.4) >> +>> +% 1044 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 233.372 326.522 244.497] +/A << /S /GoTo /D (descdata) >> +>> +% 1048 0 obj +<< +/D [1046 0 R /XYZ 98.895 753.953 null] +>> +% 224 0 obj +<< +/D [1046 0 R /XYZ 99.895 720.077 null] +>> +% 1049 0 obj +<< +/D [1046 0 R /XYZ 267.641 459.44 null] +>> +% 1045 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1051 0 obj +<< +/Type /Page +/Contents 1052 0 R +/Resources 1050 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1014 0 R +>> +% 1053 0 obj +<< +/D [1051 0 R /XYZ 149.705 753.953 null] +>> +% 1054 0 obj +<< +/D [1051 0 R /XYZ 150.705 576.615 null] +>> +% 1055 0 obj +<< +/D [1051 0 R /XYZ 150.705 516.894 null] +>> +% 1056 0 obj +<< +/D [1051 0 R /XYZ 175.611 518.831 null] +>> +% 1057 0 obj +<< +/D [1051 0 R /XYZ 175.611 506.876 null] +>> +% 1058 0 obj +<< +/D [1051 0 R /XYZ 175.611 494.921 null] +>> +% 1059 0 obj +<< +/D [1051 0 R /XYZ 175.611 482.966 null] +>> +% 1050 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1064 0 obj +<< +/Type /Page +/Contents 1065 0 R +/Resources 1063 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +/Annots [ 1060 0 R 1061 0 R 1062 0 R ] +>> +% 1060 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 401.031 444.603 412.156] +/A << /S /GoTo /D (vdata) >> +>> +% 1061 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [325.411 389.353 332.385 400.201] +/A << /S /GoTo /D (table.5) >> +>> +% 1062 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 321.33 326.522 332.455] +/A << /S /GoTo /D (descdata) >> +>> +% 1066 0 obj +<< +/D [1064 0 R /XYZ 98.895 753.953 null] +>> +% 228 0 obj +<< +/D [1064 0 R /XYZ 99.895 720.077 null] +>> +% 1067 0 obj +<< +/D [1064 0 R /XYZ 267.641 537.464 null] +>> +% 1063 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1073 0 obj +<< +/Type /Page +/Contents 1074 0 R +/Resources 1072 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +/Annots [ 1069 0 R 1070 0 R 1071 0 R ] +>> +% 1069 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 359.763 495.412 370.887] +/A << /S /GoTo /D (vdata) >> +>> +% 1070 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.221 348.084 383.195 358.932] +/A << /S /GoTo /D (table.6) >> +>> +% 1071 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 281.168 377.331 292.293] +/A << /S /GoTo /D (descdata) >> +>> +% 1075 0 obj +<< +/D [1073 0 R /XYZ 149.705 753.953 null] +>> +% 232 0 obj +<< +/D [1073 0 R /XYZ 150.705 720.077 null] +>> +% 1076 0 obj +<< +/D [1073 0 R /XYZ 318.451 490.109 null] +>> +% 1072 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1078 0 obj +<< +/Type /Page +/Contents 1079 0 R +/Resources 1077 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +>> +% 1080 0 obj +<< +/D [1078 0 R /XYZ 98.895 753.953 null] +>> +% 1081 0 obj +<< +/D [1078 0 R /XYZ 99.895 632.405 null] +>> +% 1082 0 obj +<< +/D [1078 0 R /XYZ 99.895 572.685 null] +>> +% 1083 0 obj +<< +/D [1078 0 R /XYZ 124.802 574.622 null] +>> +% 1084 0 obj +<< +/D [1078 0 R /XYZ 124.802 562.667 null] +>> +% 1085 0 obj +<< +/D [1078 0 R /XYZ 124.802 550.712 null] +>> +% 1086 0 obj +<< +/D [1078 0 R /XYZ 124.802 538.757 null] +>> +% 1077 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1091 0 obj +<< +/Type /Page +/Contents 1092 0 R +/Resources 1090 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +/Annots [ 1087 0 R 1088 0 R 1089 0 R ] +>> +% 1087 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 289.84 495.412 300.965] +/A << /S /GoTo /D (vdata) >> +>> +% 1088 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.221 278.162 383.195 289.01] +/A << /S /GoTo /D (table.7) >> +>> +% 1089 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 208.355 377.331 219.48] +/A << /S /GoTo /D (descdata) >> +>> +% 1093 0 obj +<< +/D [1091 0 R /XYZ 149.705 753.953 null] +>> +% 236 0 obj +<< +/D [1091 0 R /XYZ 150.705 720.077 null] +>> +% 1094 0 obj +<< +/D [1091 0 R /XYZ 318.451 432.072 null] +>> +% 1090 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1096 0 obj +<< +/Type /Page +/Contents 1097 0 R +/Resources 1095 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +>> +% 1098 0 obj +<< +/D [1096 0 R /XYZ 98.895 753.953 null] +>> +% 1095 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1103 0 obj +<< +/Type /Page +/Contents 1104 0 R +/Resources 1102 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1068 0 R +/Annots [ 1099 0 R 1100 0 R 1101 0 R ] +>> +% 1099 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 316.653 495.412 327.778] +/A << /S /GoTo /D (vdata) >> +>> +% 1100 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.221 304.975 383.195 315.823] +/A << /S /GoTo /D (table.8) >> +>> +% 1101 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 234.201 377.331 245.325] +/A << /S /GoTo /D (descdata) >> +>> +% 1105 0 obj +<< +/D [1103 0 R /XYZ 149.705 753.953 null] +>> +% 240 0 obj +<< +/D [1103 0 R /XYZ 150.705 720.077 null] +>> +% 1106 0 obj +<< +/D [1103 0 R /XYZ 318.451 500.643 null] +>> +% 1102 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1108 0 obj +<< +/Type /Page +/Contents 1109 0 R +/Resources 1107 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +>> +% 1110 0 obj +<< +/D [1108 0 R /XYZ 98.895 753.953 null] +>> +% 1111 0 obj +<< +/D [1108 0 R /XYZ 99.895 564.659 null] +>> +% 1112 0 obj +<< +/D [1108 0 R /XYZ 99.895 504.939 null] +>> +% 1113 0 obj +<< +/D [1108 0 R /XYZ 124.802 506.876 null] +>> +% 1114 0 obj +<< +/D [1108 0 R /XYZ 124.802 494.921 null] +>> +% 1115 0 obj +<< +/D [1108 0 R /XYZ 124.802 482.966 null] +>> +% 1116 0 obj +<< +/D [1108 0 R /XYZ 124.802 471.011 null] +>> +% 1107 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1122 0 obj +<< +/Type /Page +/Contents 1123 0 R +/Resources 1121 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +/Annots [ 1118 0 R 1119 0 R 1120 0 R ] +>> +% 1118 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 404.491 495.412 415.616] +/A << /S /GoTo /D (vdata) >> +>> + +endstream +endobj +1131 0 obj << /Length 5516 >> @@ -10490,605 +11109,7 @@ ET endstream endobj -1011 0 obj -<< -/Type /ObjStm -/N 100 -/First 980 -/Length 11075 ->> -stream -1007 0 1008 58 1009 117 1010 175 1001 234 1019 353 1012 536 1013 680 1014 825 1015 969 -1016 1115 1017 1262 1021 1407 220 1465 1022 1522 1018 1581 1024 1726 1026 1843 1023 1902 1031 1982 -1027 2138 1028 2281 1029 2426 1033 2573 224 2631 1034 2688 1030 2746 1036 2891 1038 3008 1039 3067 -1040 3126 1041 3185 1042 3244 1043 3303 1044 3362 1035 3421 1049 3540 1045 3697 1046 3841 1047 3987 -1051 4133 228 4191 1052 4248 1048 4307 1058 4452 1054 4609 1055 4753 1056 4899 1060 5046 232 5105 -1061 5163 1057 5222 1063 5379 1065 5497 1066 5555 1067 5613 1068 5671 1069 5730 1070 5789 1071 5848 -1062 5907 1076 6000 1072 6157 1073 6300 1074 6445 1078 6591 236 6650 1079 6708 1075 6767 1081 6924 -1083 7042 1080 7100 1088 7180 1084 7337 1085 7481 1086 7627 1090 7774 240 7833 1091 7891 1087 7950 -1093 8095 1095 8213 1096 8271 1097 8329 1098 8387 1099 8446 1100 8505 1101 8564 1092 8623 1107 8742 -1103 8899 1104 9043 1105 9188 1109 9335 244 9394 1110 9452 1106 9511 1114 9655 1111 9803 1112 9948 -% 1007 0 obj -<< -/D [1002 0 R /XYZ 175.611 455.07 null] ->> -% 1008 0 obj -<< -/D [1002 0 R /XYZ 175.611 443.115 null] ->> -% 1009 0 obj -<< -/D [1002 0 R /XYZ 175.611 431.16 null] ->> -% 1010 0 obj -<< -/D [1002 0 R /XYZ 175.611 419.205 null] ->> -% 1001 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R /F30 769 0 R /F11 755 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1019 0 obj -<< -/Type /Page -/Contents 1020 0 R -/Resources 1018 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R -/Annots [ 1012 0 R 1013 0 R 1014 0 R 1015 0 R 1016 0 R 1017 0 R ] ->> -% 1012 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 382.111 444.603 393.236] -/A << /S /GoTo /D (vdata) >> ->> -% 1013 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.333 370.432 335.307 381.28] -/A << /S /GoTo /D (table.3) >> ->> -% 1014 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 291.951 444.603 303.076] -/A << /S /GoTo /D (vdata) >> ->> -% 1015 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.544 280.273 335.518 291.121] -/A << /S /GoTo /D (table.3) >> ->> -% 1016 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 201.792 326.522 212.917] -/A << /S /GoTo /D (descdata) >> ->> -% 1017 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [151.203 119.329 158.177 128.24] -/A << /S /GoTo /D (table.2) >> ->> -% 1021 0 obj -<< -/D [1019 0 R /XYZ 98.895 753.953 null] ->> -% 220 0 obj -<< -/D [1019 0 R /XYZ 99.895 720.077 null] ->> -% 1022 0 obj -<< -/D [1019 0 R /XYZ 267.641 510.309 null] ->> -% 1018 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1024 0 obj -<< -/Type /Page -/Contents 1025 0 R -/Resources 1023 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R ->> -% 1026 0 obj -<< -/D [1024 0 R /XYZ 149.705 753.953 null] ->> -% 1023 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1031 0 obj -<< -/Type /Page -/Contents 1032 0 R -/Resources 1030 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R -/Annots [ 1027 0 R 1028 0 R 1029 0 R ] ->> -% 1027 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 315.41 444.603 326.535] -/A << /S /GoTo /D (vdata) >> ->> -% 1028 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [325.411 303.732 332.385 314.58] -/A << /S /GoTo /D (table.4) >> ->> -% 1029 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 233.372 326.522 244.497] -/A << /S /GoTo /D (descdata) >> ->> -% 1033 0 obj -<< -/D [1031 0 R /XYZ 98.895 753.953 null] ->> -% 224 0 obj -<< -/D [1031 0 R /XYZ 99.895 720.077 null] ->> -% 1034 0 obj -<< -/D [1031 0 R /XYZ 267.641 459.44 null] ->> -% 1030 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1036 0 obj -<< -/Type /Page -/Contents 1037 0 R -/Resources 1035 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 999 0 R ->> -% 1038 0 obj -<< -/D [1036 0 R /XYZ 149.705 753.953 null] ->> -% 1039 0 obj -<< -/D [1036 0 R /XYZ 150.705 576.615 null] ->> -% 1040 0 obj -<< -/D [1036 0 R /XYZ 150.705 516.894 null] ->> -% 1041 0 obj -<< -/D [1036 0 R /XYZ 175.611 518.831 null] ->> -% 1042 0 obj -<< -/D [1036 0 R /XYZ 175.611 506.876 null] ->> -% 1043 0 obj -<< -/D [1036 0 R /XYZ 175.611 494.921 null] ->> -% 1044 0 obj -<< -/D [1036 0 R /XYZ 175.611 482.966 null] ->> -% 1035 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F30 769 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1049 0 obj -<< -/Type /Page -/Contents 1050 0 R -/Resources 1048 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R -/Annots [ 1045 0 R 1046 0 R 1047 0 R ] ->> -% 1045 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 401.031 444.603 412.156] -/A << /S /GoTo /D (vdata) >> ->> -% 1046 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [325.411 389.353 332.385 400.201] -/A << /S /GoTo /D (table.5) >> ->> -% 1047 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 321.33 326.522 332.455] -/A << /S /GoTo /D (descdata) >> ->> -% 1051 0 obj -<< -/D [1049 0 R /XYZ 98.895 753.953 null] ->> -% 228 0 obj -<< -/D [1049 0 R /XYZ 99.895 720.077 null] ->> -% 1052 0 obj -<< -/D [1049 0 R /XYZ 267.641 537.464 null] ->> -% 1048 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1058 0 obj -<< -/Type /Page -/Contents 1059 0 R -/Resources 1057 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R -/Annots [ 1054 0 R 1055 0 R 1056 0 R ] ->> -% 1054 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 359.763 495.412 370.887] -/A << /S /GoTo /D (vdata) >> ->> -% 1055 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 348.084 383.195 358.932] -/A << /S /GoTo /D (table.6) >> ->> -% 1056 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 281.168 377.331 292.293] -/A << /S /GoTo /D (descdata) >> ->> -% 1060 0 obj -<< -/D [1058 0 R /XYZ 149.705 753.953 null] ->> -% 232 0 obj -<< -/D [1058 0 R /XYZ 150.705 720.077 null] ->> -% 1061 0 obj -<< -/D [1058 0 R /XYZ 318.451 490.109 null] ->> -% 1057 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F7 770 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1063 0 obj -<< -/Type /Page -/Contents 1064 0 R -/Resources 1062 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R ->> -% 1065 0 obj -<< -/D [1063 0 R /XYZ 98.895 753.953 null] ->> -% 1066 0 obj -<< -/D [1063 0 R /XYZ 99.895 632.405 null] ->> -% 1067 0 obj -<< -/D [1063 0 R /XYZ 99.895 572.685 null] ->> -% 1068 0 obj -<< -/D [1063 0 R /XYZ 124.802 574.622 null] ->> -% 1069 0 obj -<< -/D [1063 0 R /XYZ 124.802 562.667 null] ->> -% 1070 0 obj -<< -/D [1063 0 R /XYZ 124.802 550.712 null] ->> -% 1071 0 obj -<< -/D [1063 0 R /XYZ 124.802 538.757 null] ->> -% 1062 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1076 0 obj -<< -/Type /Page -/Contents 1077 0 R -/Resources 1075 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R -/Annots [ 1072 0 R 1073 0 R 1074 0 R ] ->> -% 1072 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 289.84 495.412 300.965] -/A << /S /GoTo /D (vdata) >> ->> -% 1073 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 278.162 383.195 289.01] -/A << /S /GoTo /D (table.7) >> ->> -% 1074 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 208.355 377.331 219.48] -/A << /S /GoTo /D (descdata) >> ->> -% 1078 0 obj -<< -/D [1076 0 R /XYZ 149.705 753.953 null] ->> -% 236 0 obj -<< -/D [1076 0 R /XYZ 150.705 720.077 null] ->> -% 1079 0 obj -<< -/D [1076 0 R /XYZ 318.451 432.072 null] ->> -% 1075 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F7 770 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1081 0 obj -<< -/Type /Page -/Contents 1082 0 R -/Resources 1080 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R ->> -% 1083 0 obj -<< -/D [1081 0 R /XYZ 98.895 753.953 null] ->> -% 1080 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1088 0 obj -<< -/Type /Page -/Contents 1089 0 R -/Resources 1087 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1053 0 R -/Annots [ 1084 0 R 1085 0 R 1086 0 R ] ->> -% 1084 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 316.653 495.412 327.778] -/A << /S /GoTo /D (vdata) >> ->> -% 1085 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 304.975 383.195 315.823] -/A << /S /GoTo /D (table.8) >> ->> -% 1086 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 234.201 377.331 245.325] -/A << /S /GoTo /D (descdata) >> ->> -% 1090 0 obj -<< -/D [1088 0 R /XYZ 149.705 753.953 null] ->> -% 240 0 obj -<< -/D [1088 0 R /XYZ 150.705 720.077 null] ->> -% 1091 0 obj -<< -/D [1088 0 R /XYZ 318.451 500.643 null] ->> -% 1087 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1093 0 obj -<< -/Type /Page -/Contents 1094 0 R -/Resources 1092 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R ->> -% 1095 0 obj -<< -/D [1093 0 R /XYZ 98.895 753.953 null] ->> -% 1096 0 obj -<< -/D [1093 0 R /XYZ 99.895 564.659 null] ->> -% 1097 0 obj -<< -/D [1093 0 R /XYZ 99.895 504.939 null] ->> -% 1098 0 obj -<< -/D [1093 0 R /XYZ 124.802 506.876 null] ->> -% 1099 0 obj -<< -/D [1093 0 R /XYZ 124.802 494.921 null] ->> -% 1100 0 obj -<< -/D [1093 0 R /XYZ 124.802 482.966 null] ->> -% 1101 0 obj -<< -/D [1093 0 R /XYZ 124.802 471.011 null] ->> -% 1092 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F30 769 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1107 0 obj -<< -/Type /Page -/Contents 1108 0 R -/Resources 1106 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R -/Annots [ 1103 0 R 1104 0 R 1105 0 R ] ->> -% 1103 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 404.491 495.412 415.616] -/A << /S /GoTo /D (vdata) >> ->> -% 1104 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 392.812 383.195 403.66] -/A << /S /GoTo /D (table.9) >> ->> -% 1105 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 324.789 377.331 335.914] -/A << /S /GoTo /D (descdata) >> ->> -% 1109 0 obj -<< -/D [1107 0 R /XYZ 149.705 753.953 null] ->> -% 244 0 obj -<< -/D [1107 0 R /XYZ 150.705 720.077 null] ->> -% 1110 0 obj -<< -/D [1107 0 R /XYZ 318.451 540.923 null] ->> -% 1106 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F7 770 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1114 0 obj -<< -/Type /Page -/Contents 1115 0 R -/Resources 1113 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R -/Annots [ 1111 0 R 1112 0 R ] ->> -% 1111 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 342.722 336.983 353.847] -/A << /S /GoTo /D (spdata) >> ->> -% 1112 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 274.976 326.522 286.101] -/A << /S /GoTo /D (descdata) >> ->> - -endstream -endobj -1123 0 obj +1138 0 obj << /Length 5523 >> @@ -11242,7 +11263,7 @@ ET endstream endobj -1134 0 obj +1149 0 obj << /Length 7328 >> @@ -11417,9 +11438,9 @@ ET endstream endobj -1149 0 obj +1164 0 obj << -/Length 6975 +/Length 6976 >> stream 0 g 0 G @@ -11434,120 +11455,120 @@ BT 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -18.453 Td [(y)]TJ +/F27 9.9626 Tf -24.906 -18.597 Td [(y)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -167.482 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-56(j)1(e)-1(ct)-254(of)-255(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -167.482 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-56(j)1(e)-1(ct)-254(of)-255(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -1 0 0 1 436.673 592.233 cm +1 0 0 1 436.673 592.09 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 439.811 592.034 Td [(T)]TJ +/F30 9.9626 Tf 439.811 591.891 Td [(T)]TJ ET q -1 0 0 1 445.669 592.233 cm +1 0 0 1 445.669 592.09 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 448.807 592.034 Td [(vect)]TJ +/F30 9.9626 Tf 448.807 591.891 Td [(vect)]TJ ET q -1 0 0 1 470.356 592.233 cm +1 0 0 1 470.356 592.09 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 473.495 592.034 Td [(type)]TJ +/F30 9.9626 Tf 473.495 591.891 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf -297.884 -11.955 Td [(con)28(taining)-345(n)28(um)28(b)-28(ers)-345(of)-345(t)28(yp)-28(e)-345(sp)-28(eci\014ed)-345(in)-345(T)84(able)]TJ +/F8 9.9626 Tf -297.884 -11.956 Td [(con)28(taining)-345(n)28(um)28(b)-28(ers)-345(of)-345(t)28(yp)-28(e)-345(sp)-28(eci\014ed)-345(in)-345(T)84(able)]TJ 0 0 1 rg 0 0 1 RG [-345(12)]TJ 0 g 0 G [(.)-479(The)-345(rank)-345(of)]TJ/F11 9.9626 Tf 275.087 0 Td [(y)]TJ/F8 9.9626 Tf 8.678 0 Td [(m)28(ust)-345(b)-28(e)]TJ -283.765 -11.955 Td [(the)-333(same)-334(of)]TJ/F11 9.9626 Tf 53.467 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -84.067 -18.454 Td [(desc)]TJ +/F27 9.9626 Tf -84.067 -18.597 Td [(desc)]TJ ET q -1 0 0 1 172.619 549.87 cm +1 0 0 1 172.619 549.583 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 549.67 Td [(a)]TJ +/F27 9.9626 Tf 176.057 549.383 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 135.659 0 Td [(psb)]TJ ET q -1 0 0 1 327.588 502.049 cm +1 0 0 1 327.588 501.762 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 330.727 501.85 Td [(desc)]TJ +/F30 9.9626 Tf 330.727 501.563 Td [(desc)]TJ ET q -1 0 0 1 352.275 502.049 cm +1 0 0 1 352.275 501.762 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 355.414 501.85 Td [(type)]TJ +/F30 9.9626 Tf 355.414 501.563 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -225.63 -18.454 Td [(trans)]TJ +/F27 9.9626 Tf -225.63 -18.597 Td [(trans)]TJ 0 g 0 G /F8 9.9626 Tf 30.609 0 Td [(indicates)-333(what)-334(kind)-333(of)-333(op)-28(eration)-333(to)-333(p)-28(erform.)]TJ 0 g 0 G -/F27 9.9626 Tf -5.703 -18.453 Td [(trans)-383(=)-384(N)]TJ +/F27 9.9626 Tf -5.703 -18.597 Td [(trans)-383(=)-384(N)]TJ 0 g 0 G /F8 9.9626 Tf 56.124 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-28(eci\014ed)-333(b)28(y)-333(equation)]TJ 0 0 1 rg 0 0 1 RG [-334(1)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -56.124 -14.469 Td [(trans)-383(=)-384(T)]TJ +/F27 9.9626 Tf -56.124 -14.612 Td [(trans)-383(=)-384(T)]TJ 0 g 0 G /F8 9.9626 Tf 55.128 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-28(eci\014ed)-333(b)28(y)-333(equation)]TJ 0 0 1 rg 0 0 1 RG [-334(2)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -55.128 -14.468 Td [(trans)-383(=)-384(C)]TJ +/F27 9.9626 Tf -55.128 -14.612 Td [(trans)-383(=)-384(C)]TJ 0 g 0 G /F8 9.9626 Tf 55.433 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-27(ec)-1(i\014)1(e)-1(d)-333(b)28(y)-333(equation)]TJ 0 0 1 rg 0 0 1 RG [-334(3)]TJ 0 g 0 G - -55.433 -18.453 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(tr)-28(ans)]TJ/F8 9.9626 Tf 27.052 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(N)]TJ/F8 9.9626 Tf -77.005 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(c)28(haracter)-334(v)56(ariable.)]TJ + -55.433 -18.597 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(tr)-28(ans)]TJ/F8 9.9626 Tf 27.052 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(N)]TJ/F8 9.9626 Tf -77.005 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(c)28(haracter)-334(v)56(ariable.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -18.454 Td [(w)32(ork)]TJ +/F27 9.9626 Tf -24.906 -18.596 Td [(w)32(ork)]TJ 0 g 0 G -/F8 9.9626 Tf 29.431 0 Td [(w)28(ork)-334(arr)1(a)27(y)84(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-487(as:)-753(a)-487(rank)-488(one)-487(arra)28(y)-488(of)-487(the)-488(same)-487(t)27(yp)-27(e)-488(of)]TJ/F11 9.9626 Tf 239.183 0 Td [(x)]TJ/F8 9.9626 Tf 10.551 0 Td [(and)]TJ/F11 9.9626 Tf 20.907 0 Td [(y)]TJ/F8 9.9626 Tf 10.099 0 Td [(with)-487(the)]TJ -280.74 -11.955 Td [(T)83(AR)28(GET)-333(attribute.)]TJ +/F8 9.9626 Tf 29.431 0 Td [(w)28(ork)-334(arr)1(a)27(y)84(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-487(as:)-753(a)-487(rank)-488(one)-487(arra)28(y)-488(of)-487(the)-488(same)-487(t)27(yp)-27(e)-488(of)]TJ/F11 9.9626 Tf 239.183 0 Td [(x)]TJ/F8 9.9626 Tf 10.551 0 Td [(and)]TJ/F11 9.9626 Tf 20.907 0 Td [(y)]TJ/F8 9.9626 Tf 10.099 0 Td [(with)-487(the)]TJ -280.74 -11.955 Td [(T)83(AR)28(GET)-333(attribute.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -18.454 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -24.906 -18.597 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -18.453 Td [(y)]TJ + 0 -18.597 Td [(y)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 147.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -138.728 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-475(of)-474(rank)-475(one)-474(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(um)28(b)-28(ers)-474(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 147.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -138.728 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-475(of)-474(rank)-475(one)-474(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(um)28(b)-28(ers)-474(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG [-333(12)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -18.454 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -18.597 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ 0 g 0 G - 141.968 -38.108 Td [(48)]TJ + 141.968 -36.529 Td [(48)]TJ 0 g 0 G ET endstream endobj -1155 0 obj +1170 0 obj << /Length 6787 >> @@ -11659,7 +11680,7 @@ ET endstream endobj -1167 0 obj +1182 0 obj << /Length 7789 >> @@ -11817,7 +11838,7 @@ ET endstream endobj -1173 0 obj +1188 0 obj << /Length 4663 >> @@ -11876,137 +11897,1492 @@ ET endstream endobj -1178 0 obj +1199 0 obj << -/Length 651 +/Length 7422 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 150.705 706.129 Td [(5)-1125(Comm)31(unication)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-283(routines)-283(in)-283(this)-283(c)28(hapter)-283(implemen)28(t)-283(v)55(arious)-283(global)-283(comm)28(unication)-283(op)-28(erators)]TJ 0 -11.955 Td [(on)-344(v)28(ectors)-344(asso)-27(c)-1(iated)-343(with)-344(a)-344(d)1(is)-1(cretization)-343(mesh.)-476(F)84(or)-344(auxiliary)-344(comm)28(unication)]TJ 0 -11.955 Td [(routines)-333(not)-334(tied)-333(to)-333(a)-334(d)1(is)-1(cretization)-333(space)-333(see)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(gemlt)-375(|)-375(En)31(trywise)-375(Pro)-31(duct)]TJ/F8 9.9626 Tf -25.091 -19.771 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(pro)-28(duct)-333(b)-28(et)28(w)28(een)-334(t)28(w)28(o)-333(v)27(ectors)]TJ/F11 9.9626 Tf 296.14 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)]TJ/F11 9.9626 Tf 19.371 0 Td [(y)]TJ -185.258 -23.403 Td [(dot)]TJ/F14 9.9626 Tf 16.38 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(:)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -201.675 -24.145 Td [(psb_gemlt\050x,)-525(y,)-525(desc_a,)-525(info\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +ET +q +1 0 0 1 234.474 610.766 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F11 9.9626 Tf 240.452 602.198 Td [(dot)]TJ/F8 9.9626 Tf 13.612 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 88.927 0 Td [(F)96(unction)]TJ +ET +q +1 0 0 1 234.474 598.412 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F8 9.9626 Tf 240.452 589.845 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +ET +q +1 0 0 1 376.459 590.044 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 589.845 Td [(gemlt)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ +ET +q +1 0 0 1 376.459 578.089 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 577.889 Td [(gemlt)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +ET +q +1 0 0 1 376.459 566.134 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 565.934 Td [(gemlt)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +ET +q +1 0 0 1 376.459 554.178 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 553.979 Td [(gemlt)]TJ +ET +q +1 0 0 1 234.474 550.193 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +0 g 0 G +BT +/F8 9.9626 Tf 276.386 522.154 Td [(T)83(able)-333(14:)-444(Data)-334(t)28(yp)-28(es)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -125.681 -37.309 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -22.895 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -22.895 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG - [-334(6)]TJ +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 391.433 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 391.234 Td [(T)]TJ +ET +q +1 0 0 1 342.953 391.433 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 391.234 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 391.433 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 391.234 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ +0 0 1 rg 0 0 1 RG + [-334(2)]TJ 0 g 0 G [(.)]TJ 0 g 0 G - 166.874 -569.96 Td [(52)]TJ +/F27 9.9626 Tf -24.906 -22.895 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -164.99 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 308.762 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 308.563 Td [(T)]TJ +ET +q +1 0 0 1 342.953 308.762 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 308.563 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 308.762 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 308.563 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ +0 0 1 rg 0 0 1 RG + [-334(2)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -22.895 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 273.912 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 273.713 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ +ET +q +1 0 0 1 327.588 226.091 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 330.727 225.892 Td [(desc)]TJ +ET +q +1 0 0 1 352.275 226.091 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 355.414 225.892 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -225.63 -22.895 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -22.896 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -153.727 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 132.48 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 132.281 Td [(T)]TJ +ET +q +1 0 0 1 342.953 132.48 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 132.281 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 132.48 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 132.281 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ +0 0 1 rg 0 0 1 RG + [-333(14)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G + 141.968 -29.888 Td [(52)]TJ 0 g 0 G ET endstream endobj -1186 0 obj +1204 0 obj << -/Length 7259 +/Length 624 +>> +stream +0 g 0 G +0 g 0 G +0 g 0 G +BT +/F27 9.9626 Tf 99.895 706.129 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 141.968 -567.87 Td [(53)]TJ +0 g 0 G +ET + +endstream +endobj +1215 0 obj +<< +/Length 7410 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(halo)-375(|)-375(Halo)-375(Data)-375(Comm)31(unication)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(s)-1(u)1(broutines)-334(gathers)-333(the)-333(v)55(alues)-333(of)-334(th)1(e)-334(halo)-333(elemen)28(ts:)]TJ/F11 9.9626 Tf 158.413 -23.188 Td [(x)]TJ/F14 9.9626 Tf 8.462 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf -179.605 -21.251 Td [(where:)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(gediv)-375(|)-375(En)31(trywise)-375(Division)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(division)-333(b)-28(et)28(w)28(een)-334(t)28(w)28(o)-334(v)28(ectors)]TJ/F11 9.9626 Tf 295.614 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(y)]TJ -182.908 -21.715 Td [(=)]TJ/F14 9.9626 Tf 7.748 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(=y)]TJ/F8 9.9626 Tf 10.224 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(:)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -199.851 -21.715 Td [(psb_gediv\050x,)-525(y,)-525(desc_a,)-525(info,)-525([flag\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +ET +q +1 0 0 1 234.474 620.263 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F11 9.9626 Tf 240.452 611.695 Td [(=)]TJ/F8 9.9626 Tf 4.981 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 97.558 0 Td [(F)96(unction)]TJ +ET +q +1 0 0 1 234.474 607.909 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F8 9.9626 Tf 240.452 599.341 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +ET +q +1 0 0 1 376.459 599.54 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 599.341 Td [(gediv)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ +ET +q +1 0 0 1 376.459 587.585 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 587.386 Td [(gediv)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +ET +q +1 0 0 1 376.459 575.63 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 575.431 Td [(gediv)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +ET +q +1 0 0 1 376.459 563.675 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 563.475 Td [(gediv)]TJ +ET +q +1 0 0 1 234.474 559.69 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +0 g 0 G +BT +/F8 9.9626 Tf 276.386 531.65 Td [(T)83(able)-333(15:)-444(Data)-334(t)28(yp)-28(es)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -125.681 -33.312 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.844 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.844 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 411.028 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 410.829 Td [(T)]TJ +ET +q +1 0 0 1 342.953 411.028 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 410.829 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 411.028 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 410.829 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ +0 0 1 rg 0 0 1 RG + [-334(2)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -19.844 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -164.99 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 331.408 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 331.209 Td [(T)]TJ +ET +q +1 0 0 1 342.953 331.408 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 331.209 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 331.408 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 331.209 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ +0 0 1 rg 0 0 1 RG + [-334(2)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -19.844 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 299.609 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 299.41 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ +ET +q +1 0 0 1 327.588 251.788 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 330.727 251.589 Td [(desc)]TJ +ET +q +1 0 0 1 352.275 251.788 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 355.414 251.589 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -225.63 -19.844 Td [(\015ag)]TJ +0 g 0 G +/F8 9.9626 Tf 22.644 0 Td [(c)28(hec)27(k)-351(if)-352(an)28(y)-352(of)-351(the)]TJ/F11 9.9626 Tf 84.211 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-308(=)-309(0,)-356(and)-351(in)-352(case)-352(returns)-351(error)-352(halting)-351(the)-352(compu-)]TJ -94.497 -11.955 Td [(tation.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 43.897 0 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 -116.542 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(flag=.true.)]TJ +0 g 0 G +/F27 9.9626 Tf -156.69 -19.844 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.844 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(.)]TJ -154.179 -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.612 0 Td [(required)]TJ +0 g 0 G +/F8 9.9626 Tf 112.356 -29.888 Td [(54)]TJ +0 g 0 G +ET + +endstream +endobj +1220 0 obj +<< +/Length 1487 +>> +stream +0 g 0 G +0 g 0 G +BT +/F8 9.9626 Tf 124.802 706.129 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 283.148 694.373 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 286.286 694.174 Td [(T)]TJ +ET +q +1 0 0 1 292.144 694.373 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 295.282 694.174 Td [(vect)]TJ +ET +q +1 0 0 1 316.831 694.373 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 319.969 694.174 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.319 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ +0 0 1 rg 0 0 1 RG + [-333(14)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 141.968 -524.035 Td [(55)]TJ +0 g 0 G +ET + +endstream +endobj +1230 0 obj +<< +/Length 7473 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(gein)31(v)-375(|)-375(En)31(trywise)-375(In)32(v)31(ersion)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(in)28(v)28(erse)-334(of)-333(a)-333(v)27(ector)]TJ/F11 9.9626 Tf 250.201 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)-333(puts)-334(i)1(t)-334(in)28(to)]TJ/F11 9.9626 Tf 71.731 0 Td [(y)]TJ -184.133 -17.8 Td [(=)]TJ/F14 9.9626 Tf 7.748 0 Td [(\040)]TJ/F8 9.9626 Tf 12.73 0 Td [(1)]TJ/F11 9.9626 Tf 4.982 0 Td [(=x)]TJ/F8 9.9626 Tf 10.675 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(:)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -194.13 -17.8 Td [(psb_geinv\050x,)-525(y,)-525(desc_a,)-525(info,)-525([flag\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +ET +q +1 0 0 1 234.474 633.574 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F11 9.9626 Tf 240.452 625.006 Td [(=)]TJ/F8 9.9626 Tf 4.981 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 97.558 0 Td [(F)96(unction)]TJ +ET +q +1 0 0 1 234.474 621.22 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +BT +/F8 9.9626 Tf 240.452 612.652 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +ET +q +1 0 0 1 376.459 612.852 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 612.652 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ +ET +q +1 0 0 1 376.459 600.897 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 600.697 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +ET +q +1 0 0 1 376.459 588.941 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 588.742 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +ET +q +1 0 0 1 376.459 576.986 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 379.447 576.787 Td [(gein)28(v)]TJ +ET +q +1 0 0 1 234.474 573.001 cm +[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S +Q +0 g 0 G +BT +/F8 9.9626 Tf 276.386 544.962 Td [(T)83(able)-333(16:)-444(Data)-334(t)28(yp)-28(es)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -125.681 -27.831 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -18.278 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -18.278 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 432.953 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 432.754 Td [(T)]TJ +ET +q +1 0 0 1 342.953 432.953 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 432.754 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 432.953 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 432.754 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ +0 0 1 rg 0 0 1 RG + [-334(2)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -18.278 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 402.72 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 402.521 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ +ET +q +1 0 0 1 327.588 354.899 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 330.727 354.7 Td [(desc)]TJ +ET +q +1 0 0 1 352.275 354.899 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 355.414 354.7 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -225.63 -18.278 Td [(\015ag)]TJ +0 g 0 G +/F8 9.9626 Tf 22.644 0 Td [(c)28(hec)27(k)-348(if)-349(an)28(y)-349(of)-349(the)]TJ/F11 9.9626 Tf 84.075 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-304(=)-303(0,)-353(and)-349(in)-349(case)-349(returns)-349(error)-349(halting)-348(the)-349(compu-)]TJ -94.813 -11.955 Td [(tation.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 43.897 0 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 -116.542 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(flag=.true.)]TJ +0 g 0 G +/F27 9.9626 Tf -156.69 -18.278 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -18.278 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(.)]TJ -154.179 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +ET +q +1 0 0 1 333.957 204.424 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 337.095 204.224 Td [(T)]TJ +ET +q +1 0 0 1 342.953 204.424 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 346.092 204.224 Td [(vect)]TJ +ET +q +1 0 0 1 367.64 204.424 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.779 204.224 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ +0 0 1 rg 0 0 1 RG + [-333(16)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -18.278 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ +0 g 0 G + 141.968 -35.732 Td [(56)]TJ +0 g 0 G +ET + +endstream +endobj +1126 0 obj +<< +/Type /ObjStm +/N 100 +/First 998 +/Length 13051 +>> +stream +1119 0 1120 145 1124 292 244 351 1125 409 1121 468 1130 612 1127 760 1128 905 1132 1052 +248 1110 1133 1167 1129 1226 1137 1370 1134 1518 1135 1663 1139 1810 252 1869 1141 1927 1136 1986 +1148 2132 1142 2298 1143 2445 1144 2590 1145 2734 1150 2881 256 2939 1151 2996 1152 3055 1153 3114 +1154 3173 1147 3232 1163 3389 1146 3591 1155 3738 1156 3881 1157 4027 1158 4174 1159 4325 1160 4476 +1161 4626 1165 4771 1162 4830 1169 4936 1166 5075 1171 5221 260 5279 1172 5336 1168 5395 1181 5566 +1167 5759 1174 5907 1175 6051 1176 6198 1177 6345 1178 6489 1179 6636 1183 6782 1180 6841 1187 6973 +1184 7121 1185 7268 1189 7415 1186 7473 1198 7579 1190 7772 1191 7916 1192 8062 1193 8206 1194 8352 +1195 8499 1196 8643 1200 8789 264 8848 1201 8906 1197 8965 1203 9097 1205 9215 1202 9273 1214 9353 +1206 9528 1207 9672 1208 9817 1209 9961 1210 10106 1216 10253 268 10312 1217 10370 1213 10429 1219 10561 +1211 10709 1212 10853 1221 11000 1218 11058 1229 11151 1223 11326 1224 11470 1225 11616 1226 11762 1227 11906 +% 1119 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.221 392.812 383.195 403.66] +/A << /S /GoTo /D (table.9) >> +>> +% 1120 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 324.789 377.331 335.914] +/A << /S /GoTo /D (descdata) >> +>> +% 1124 0 obj +<< +/D [1122 0 R /XYZ 149.705 753.953 null] +>> +% 244 0 obj +<< +/D [1122 0 R /XYZ 150.705 720.077 null] +>> +% 1125 0 obj +<< +/D [1122 0 R /XYZ 318.451 540.923 null] +>> +% 1121 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1130 0 obj +<< +/Type /Page +/Contents 1131 0 R +/Resources 1129 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +/Annots [ 1127 0 R 1128 0 R ] +>> +% 1127 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 342.722 336.983 353.847] +/A << /S /GoTo /D (spdata) >> +>> +% 1128 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 274.976 326.522 286.101] +/A << /S /GoTo /D (descdata) >> +>> +% 1132 0 obj +<< +/D [1130 0 R /XYZ 98.895 753.953 null] +>> +% 248 0 obj +<< +/D [1130 0 R /XYZ 99.895 720.077 null] +>> +% 1133 0 obj +<< +/D [1130 0 R /XYZ 270.132 513.305 null] +>> +% 1129 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1137 0 obj +<< +/Type /Page +/Contents 1138 0 R +/Resources 1136 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +/Annots [ 1134 0 R 1135 0 R ] +>> +% 1134 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 342.722 387.792 353.847] +/A << /S /GoTo /D (spdata) >> +>> +% 1135 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 274.976 377.331 286.101] +/A << /S /GoTo /D (descdata) >> +>> +% 1139 0 obj +<< +/D [1137 0 R /XYZ 149.705 753.953 null] +>> +% 252 0 obj +<< +/D [1137 0 R /XYZ 150.705 720.077 null] +>> +% 1141 0 obj +<< +/D [1137 0 R /XYZ 320.941 513.305 null] +>> +% 1136 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F13 1140 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1148 0 obj +<< +/Type /Page +/Contents 1149 0 R +/Resources 1147 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +/Annots [ 1142 0 R 1143 0 R 1144 0 R 1145 0 R ] +>> +% 1142 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 276.095 394.043 286.943] +/A << /S /GoTo /D (table.12) >> +>> +% 1143 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [259.464 208.422 336.983 219.547] +/A << /S /GoTo /D (spdata) >> +>> +% 1144 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 141.026 444.603 152.151] +/A << /S /GoTo /D (vdata) >> +>> +% 1145 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [326.008 129.347 337.963 140.196] +/A << /S /GoTo /D (table.12) >> +>> +% 1150 0 obj +<< +/D [1148 0 R /XYZ 98.895 753.953 null] +>> +% 256 0 obj +<< +/D [1148 0 R /XYZ 99.895 720.077 null] +>> +% 1151 0 obj +<< +/D [1148 0 R /XYZ 239.804 675.784 null] +>> +% 1152 0 obj +<< +/D [1148 0 R /XYZ 236.666 658.376 null] +>> +% 1153 0 obj +<< +/D [1148 0 R /XYZ 236.025 640.968 null] +>> +% 1154 0 obj +<< +/D [1148 0 R /XYZ 270.132 455.558 null] +>> +% 1147 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1163 0 obj +<< +/Type /Page +/Contents 1164 0 R +/Resources 1162 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1117 0 R +/Annots [ 1146 0 R 1155 0 R 1156 0 R 1157 0 R 1158 0 R 1159 0 R 1160 0 R 1161 0 R ] +>> +% 1146 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [432.897 655.375 444.852 666.223] +/A << /S /GoTo /D (table.12) >> +>> +% 1155 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 588.68 495.412 599.805] +/A << /S /GoTo /D (vdata) >> +>> +% 1156 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [377.029 577.002 388.984 587.85] +/A << /S /GoTo /D (table.12) >> +>> +% 1157 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 498.352 377.331 509.477] +/A << /S /GoTo /D (descdata) >> +>> +% 1158 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [397.199 461.435 404.172 472.284] +/A << /S /GoTo /D (equation.4.1) >> +>> +% 1159 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [396.202 446.823 403.176 457.672] +/A << /S /GoTo /D (equation.4.2) >> +>> +% 1160 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [396.507 432.212 403.481 443.06] +/A << /S /GoTo /D (equation.4.3) >> +>> +% 1161 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [253.818 190.452 265.774 201.3] +/A << /S /GoTo /D (table.12) >> +>> +% 1165 0 obj +<< +/D [1163 0 R /XYZ 149.705 753.953 null] +>> +% 1162 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1169 0 obj +<< +/Type /Page +/Contents 1170 0 R +/Resources 1168 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +/Annots [ 1166 0 R ] +>> +% 1166 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [382.088 117.392 394.043 128.24] +/A << /S /GoTo /D (table.13) >> +>> +% 1171 0 obj +<< +/D [1169 0 R /XYZ 98.895 753.953 null] +>> +% 260 0 obj +<< +/D [1169 0 R /XYZ 99.895 720.077 null] +>> +% 1172 0 obj +<< +/D [1169 0 R /XYZ 270.132 258.477 null] +>> +% 1168 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F13 1140 0 R /F7 785 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1181 0 obj +<< +/Type /Page +/Contents 1182 0 R +/Resources 1180 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +/Annots [ 1167 0 R 1174 0 R 1175 0 R 1176 0 R 1177 0 R 1178 0 R 1179 0 R ] +>> +% 1167 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [358.482 655.375 365.455 666.223] +/A << /S /GoTo /D (section.3) >> +>> +% 1174 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 586.627 495.412 597.752] +/A << /S /GoTo /D (vdata) >> +>> +% 1175 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.818 574.949 388.773 585.797] +/A << /S /GoTo /D (table.13) >> +>> +% 1176 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [432.897 494.523 444.852 505.372] +/A << /S /GoTo /D (table.13) >> +>> +% 1177 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 425.776 495.412 436.901] +/A << /S /GoTo /D (vdata) >> +>> +% 1178 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [377.029 414.098 388.984 424.946] +/A << /S /GoTo /D (table.13) >> +>> +% 1179 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 333.395 377.331 344.52] +/A << /S /GoTo /D (descdata) >> +>> +% 1183 0 obj +<< +/D [1181 0 R /XYZ 149.705 753.953 null] +>> +% 1180 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F17 750 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1187 0 obj +<< +/Type /Page +/Contents 1188 0 R +/Resources 1186 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +/Annots [ 1184 0 R 1185 0 R ] +>> +% 1184 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [162.826 410.238 174.781 419.149] +/A << /S /GoTo /D (table.13) >> +>> +% 1185 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [203.009 228.974 214.964 239.822] +/A << /S /GoTo /D (table.13) >> +>> +% 1189 0 obj +<< +/D [1187 0 R /XYZ 98.895 753.953 null] +>> +% 1186 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R /F11 770 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1198 0 obj +<< +/Type /Page +/Contents 1199 0 R +/Resources 1197 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +/Annots [ 1190 0 R 1191 0 R 1192 0 R 1193 0 R 1194 0 R 1195 0 R 1196 0 R ] +>> +% 1190 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 388.024 392.696 399.149] +/A << /S /GoTo /D (vdata) >> +>> +% 1191 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [276.234 376.346 283.208 387.194] +/A << /S /GoTo /D (table.2) >> +>> +% 1192 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 305.353 392.696 316.478] +/A << /S /GoTo /D (vdata) >> +>> +% 1193 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [276.234 293.674 283.208 304.523] +/A << /S /GoTo /D (table.2) >> +>> +% 1194 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 222.682 377.331 233.807] +/A << /S /GoTo /D (descdata) >> +>> +% 1195 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 129.071 392.696 140.196] +/A << /S /GoTo /D (vdata) >> +>> +% 1196 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [296.381 117.392 308.336 128.24] +/A << /S /GoTo /D (table.14) >> +>> +% 1200 0 obj +<< +/D [1198 0 R /XYZ 149.705 753.953 null] +>> +% 264 0 obj +<< +/D [1198 0 R /XYZ 150.705 720.077 null] +>> +% 1201 0 obj +<< +/D [1198 0 R /XYZ 320.941 534.109 null] +>> +% 1197 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1203 0 obj +<< +/Type /Page +/Contents 1204 0 R +/Resources 1202 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +>> +% 1205 0 obj +<< +/D [1203 0 R /XYZ 98.895 753.953 null] +>> +% 1202 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1214 0 obj +<< +/Type /Page +/Contents 1215 0 R +/Resources 1213 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1173 0 R +/Annots [ 1206 0 R 1207 0 R 1208 0 R 1209 0 R 1210 0 R ] +>> +% 1206 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 407.619 392.696 418.744] +/A << /S /GoTo /D (vdata) >> +>> +% 1207 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [276.234 395.94 283.208 406.789] +/A << /S /GoTo /D (table.2) >> +>> +% 1208 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 327.999 392.696 339.124] +/A << /S /GoTo /D (vdata) >> +>> +% 1209 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [276.234 316.32 283.208 327.169] +/A << /S /GoTo /D (table.2) >> +>> +% 1210 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 248.379 377.331 259.504] +/A << /S /GoTo /D (descdata) >> +>> +% 1216 0 obj +<< +/D [1214 0 R /XYZ 149.705 753.953 null] +>> +% 268 0 obj +<< +/D [1214 0 R /XYZ 150.705 720.077 null] +>> +% 1217 0 obj +<< +/D [1214 0 R /XYZ 320.941 543.606 null] +>> +% 1213 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1219 0 obj +<< +/Type /Page +/Contents 1220 0 R +/Resources 1218 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +/Annots [ 1211 0 R 1212 0 R ] +>> +% 1211 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [265.833 690.964 341.887 702.088] +/A << /S /GoTo /D (vdata) >> +>> +% 1212 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [245.572 679.285 257.527 690.133] +/A << /S /GoTo /D (table.14) >> +>> +% 1221 0 obj +<< +/D [1219 0 R /XYZ 98.895 753.953 null] +>> +% 1218 0 obj +<< +/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1229 0 obj +<< +/Type /Page +/Contents 1230 0 R +/Resources 1228 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +/Annots [ 1223 0 R 1224 0 R 1225 0 R 1226 0 R 1227 0 R ] +>> +% 1223 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 429.544 392.696 440.669] +/A << /S /GoTo /D (vdata) >> +>> +% 1224 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [276.234 417.865 283.208 428.713] +/A << /S /GoTo /D (table.2) >> +>> +% 1225 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [310.273 351.49 377.331 362.615] +/A << /S /GoTo /D (descdata) >> +>> +% 1226 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [316.642 201.014 392.696 212.139] +/A << /S /GoTo /D (vdata) >> +>> +% 1227 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [296.381 189.336 308.336 200.184] +/A << /S /GoTo /D (table.16) >> +>> + +endstream +endobj +1237 0 obj +<< +/Length 632 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 14.3462 Tf 99.895 706.129 Td [(5)-1125(Comm)31(unication)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-283(routines)-283(in)-283(this)-283(c)28(hapter)-283(implemen)28(t)-283(v)55(arious)-283(global)-283(comm)28(unication)-283(op)-28(erators)]TJ 0 -11.955 Td [(on)-344(v)28(ectors)-344(asso)-28(ciated)-343(with)-344(a)-344(discretization)-343(mesh.)-476(F)84(or)-344(auxiliary)-344(comm)28(unication)]TJ 0 -11.955 Td [(routines)-333(not)-334(tied)-333(to)-333(a)-334(discretization)-333(space)-333(see)]TJ +0 0 1 rg 0 0 1 RG + [-334(6)]TJ +0 g 0 G + [(.)]TJ +0 g 0 G + 166.875 -569.96 Td [(57)]TJ +0 g 0 G +ET + +endstream +endobj +1245 0 obj +<< +/Length 7227 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(halo)-375(|)-375(Halo)-375(Data)-375(Comm)31(unication)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(subroutines)-334(gathers)-333(the)-333(v)55(alues)-333(of)-333(the)-334(halo)-333(elemen)28(ts:)]TJ/F11 9.9626 Tf 158.413 -23.188 Td [(x)]TJ/F14 9.9626 Tf 8.461 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf -179.604 -21.251 Td [(where:)]TJ 0 g 0 G /F11 9.9626 Tf 0 -19.391 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 10.676 0 Td [(is)-333(a)-334(global)-333(dense)-333(submatrix.)]TJ +/F8 9.9626 Tf 10.675 0 Td [(is)-333(a)-334(global)-333(dense)-333(submatrix.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G ET q -1 0 0 1 177.988 602.649 cm +1 0 0 1 228.797 602.649 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F11 9.9626 Tf 183.966 594.081 Td [(\013)]TJ/F8 9.9626 Tf 6.41 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F27 9.9626 Tf 107.911 0 Td [(Subroutine)]TJ +/F11 9.9626 Tf 234.775 594.081 Td [(\013)]TJ/F8 9.9626 Tf 6.41 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F27 9.9626 Tf 107.912 0 Td [(Subroutine)]TJ ET q -1 0 0 1 177.988 590.295 cm +1 0 0 1 228.797 590.295 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F8 9.9626 Tf 183.966 581.727 Td [(In)28(teger)-9028(psb)]TJ +/F8 9.9626 Tf 234.775 581.727 Td [(In)28(teger)-9028(psb)]TJ ET q -1 0 0 1 319.972 581.926 cm +1 0 0 1 370.782 581.926 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.961 581.727 Td [(halo)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ +/F8 9.9626 Tf 373.771 581.727 Td [(halo)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ ET q -1 0 0 1 319.972 569.971 cm +1 0 0 1 370.782 569.971 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.961 569.772 Td [(halo)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ +/F8 9.9626 Tf 373.771 569.772 Td [(halo)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ ET q -1 0 0 1 319.972 558.016 cm +1 0 0 1 370.782 558.016 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.961 557.817 Td [(halo)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ +/F8 9.9626 Tf 373.771 557.817 Td [(halo)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ ET q -1 0 0 1 319.972 546.061 cm +1 0 0 1 370.782 546.061 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.961 545.862 Td [(halo)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +/F8 9.9626 Tf 373.771 545.862 Td [(halo)]TJ -138.996 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ ET q -1 0 0 1 319.972 534.106 cm +1 0 0 1 370.782 534.106 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.961 533.906 Td [(halo)]TJ +/F8 9.9626 Tf 373.771 533.906 Td [(halo)]TJ ET q -1 0 0 1 177.988 530.121 cm +1 0 0 1 228.797 530.121 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 225.577 502.081 Td [(T)83(able)-333(14:)-444(Data)-334(t)28(yp)-28(es)]TJ +/F8 9.9626 Tf 276.386 502.081 Td [(T)83(able)-333(17:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -124.305 -29.354 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.731 0 Td [(p)-122(s)-123(b)]TJ +/F27 9.9626 Tf -124.304 -29.354 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.73 0 Td [(p)-122(s)-123(b)]TJ ET q -1 0 0 1 150.256 472.926 cm +1 0 0 1 201.066 472.926 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 154.464 472.727 Td [(h)-122(a)-123(l)-122(o)-228(\050)-130(x)-209(,)-874(d)-112(e)-113(s)-113(c)]TJ +/F8 9.9626 Tf 205.274 472.727 Td [(h)-122(a)-123(l)-122(o)-228(\050)-129(x)-210(,)-873(d)-113(e)-113(s)-112(c)]TJ ET q -1 0 0 1 226.044 472.926 cm +1 0 0 1 276.854 472.926 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 230.155 472.727 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.731 0 Td [(p)-122(s)-123(b)]TJ +/F8 9.9626 Tf 280.965 472.727 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.73 0 Td [(p)-122(s)-123(b)]TJ ET q -1 0 0 1 150.256 460.971 cm +1 0 0 1 201.066 460.971 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 154.464 460.772 Td [(h)-122(a)-123(l)-122(o)-228(\050)-130(x)-209(,)-874(d)-112(e)-113(s)-113(c)]TJ +/F8 9.9626 Tf 205.274 460.772 Td [(h)-122(a)-123(l)-122(o)-228(\050)-129(x)-210(,)-873(d)-113(e)-113(s)-112(c)]TJ ET q -1 0 0 1 226.044 460.971 cm +1 0 0 1 276.854 460.971 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 230.155 460.772 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-804(w)-43(o)-43(r)-43(k)-247(,)]TJ/F27 9.9626 Tf 91.304 0 Td [(d)-39(a)-39(t)-40(a)]TJ/F8 9.9626 Tf 24.571 0 Td [(\051)]TJ +/F8 9.9626 Tf 280.965 460.772 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-804(w)-43(o)-43(r)-43(k)-247(,)]TJ/F27 9.9626 Tf 91.303 0 Td [(d)-39(a)-39(t)-40(a)]TJ/F8 9.9626 Tf 24.572 0 Td [(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -12019,108 +13395,108 @@ BT 0 g 0 G 0 -19.658 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)28(o)-255(arra)28(y)-255(or)-255(an)-255(ob)-55(ject)-255(of)-255(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 244.743 0 Td [(psb)]TJ +/F30 9.9626 Tf 244.742 0 Td [(psb)]TJ ET q -1 0 0 1 385.864 346.872 cm +1 0 0 1 436.673 346.872 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 389.002 346.673 Td [(T)]TJ +/F30 9.9626 Tf 439.811 346.673 Td [(T)]TJ ET q -1 0 0 1 394.86 346.872 cm +1 0 0 1 445.669 346.872 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 397.998 346.673 Td [(vect)]TJ +/F30 9.9626 Tf 448.807 346.673 Td [(vect)]TJ ET q -1 0 0 1 419.547 346.872 cm +1 0 0 1 470.356 346.872 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 422.685 346.673 Td [(type)]TJ +/F30 9.9626 Tf 473.495 346.673 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)28(yp)-28(e)-334(sp)-27(eci\014ed)-334(in)-333(T)83(able)]TJ +/F8 9.9626 Tf -297.884 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)27(yp)-27(e)-334(sp)-27(ec)-1(i)1(\014ed)-334(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG - [-333(14)]TJ + [-333(17)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.658 Td [(desc)]TJ +/F27 9.9626 Tf -24.906 -19.658 Td [(desc)]TJ ET q -1 0 0 1 121.81 315.259 cm +1 0 0 1 172.619 315.259 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 315.06 Td [(a)]TJ +/F27 9.9626 Tf 176.057 315.06 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 267.438 cm +1 0 0 1 362.845 267.438 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 267.239 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 267.239 Td [(desc)]TJ ET q -1 0 0 1 336.723 267.438 cm +1 0 0 1 387.532 267.438 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 267.239 Td [(type)]TJ +/F30 9.9626 Tf 390.67 267.239 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.658 Td [(w)32(ork)]TJ 0 g 0 G -/F8 9.9626 Tf 29.432 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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 [(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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 220.756 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ +/F8 9.9626 Tf 29.431 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 220.756 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -251.357 -19.659 Td [(data)]TJ +/F27 9.9626 Tf -251.356 -19.659 Td [(data)]TJ 0 g 0 G -/F8 9.9626 Tf 26.941 0 Td [(index)-333(list)-334(selector.)]TJ -2.034 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger.)-408(V)84(alues:)]TJ/F30 9.9626 Tf 136.479 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.225 0 Td [(,)]TJ/F30 9.9626 Tf 2.767 0 Td [(psb_comm_mov_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.202 0 Td [(psb_comm_ext_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ -353.663 -11.955 Td [(default:)]TJ/F30 9.9626 Tf 39.089 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.224 0 Td [(.)-705(Cho)-27(os)-1(es)-420(the)-420(index)-420(list)-420(on)-420(whic)28(h)-420(to)-420(base)-420(the)]TJ -112.313 -11.955 Td [(data)-333(exc)27(hange.)]TJ +/F8 9.9626 Tf 26.94 0 Td [(index)-333(list)-334(selector.)]TJ -2.034 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger.)-408(V)84(alues:)]TJ/F30 9.9626 Tf 136.48 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.224 0 Td [(,)]TJ/F30 9.9626 Tf 2.768 0 Td [(psb_comm_mov_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_comm_ext_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ -353.663 -11.955 Td [(default:)]TJ/F30 9.9626 Tf 39.089 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.225 0 Td [(.)-705(Cho)-27(ose)-1(s)-420(the)-420(index)-420(list)-420(on)-420(whic)28(h)-420(to)-420(base)-420(the)]TJ -112.314 -11.955 Td [(data)-333(exc)27(hange.)]TJ 0 g 0 G - 141.968 -29.888 Td [(53)]TJ + 141.968 -29.888 Td [(58)]TJ 0 g 0 G ET endstream endobj -1196 0 obj +1255 0 obj << -/Length 3196 +/Length 3199 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 150.705 706.129 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf 99.895 706.129 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.49 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Returned)-271(as:)-414(a)-271(rank)-271(one)-271(or)-272(t)28(w)28(o)-271(arra)28(y)-272(con)28(taining)-271(n)28(um)28(b)-28(ers)-271(of)-272(t)28(yp)-28(e)-271(sp)-28(eci\014ed)]TJ 0 -11.955 Td [(in)-333(T)83(able)]TJ +/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.489 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Returned)-271(as:)-414(a)-271(rank)-271(one)-271(or)-272(t)28(w)28(o)-271(arra)28(y)-272(con)28(taining)-271(n)28(um)28(b)-28(ers)-271(of)-272(t)28(yp)-28(e)-271(sp)-28(eci\014ed)]TJ 0 -11.955 Td [(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG - [-333(14)]TJ + [-333(17)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ +/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.241 0 Td [(.)]TJ -166.457 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue)-334(that)-333(con)28(tains)-333(an)-334(error)-333(co)-28(de.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -166.457 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue)-334(that)-333(con)28(tains)-333(an)-334(error)-333(co)-28(de.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G ET -1 0 0 1 210.511 337.279 cm +1 0 0 1 159.702 337.279 cm q .45 0 0 .45 0 0 cm q @@ -12129,37 +13505,37 @@ q Q Q 0 g 0 G -1 0 0 1 -210.511 -337.279 cm +1 0 0 1 -159.702 -337.279 cm BT -/F8 9.9626 Tf 240.078 305.398 Td [(Figure)-333(7:)-445(Sample)-333(discretization)-333(mesh.)]TJ +/F8 9.9626 Tf 189.268 305.398 Td [(Figure)-333(7:)-445(Sample)-333(discretization)-333(mes)-1(h)1(.)]TJ 0 g 0 G 0 g 0 G -/F16 11.9552 Tf -89.373 -23.91 Td [(Usage)-381(Example)]TJ/F8 9.9626 Tf 93.98 0 Td [(Consider)-338(the)-339(discretization)-338(mesh)-339(depicted)-338(in)-338(\014g.)]TJ +/F16 11.9552 Tf -89.373 -23.91 Td [(Usage)-381(Example)]TJ/F8 9.9626 Tf 93.981 0 Td [(Consider)-338(the)-339(discretization)-338(mesh)-339(depicted)-338(in)-338(\014g.)]TJ 0 0 1 rg 0 0 1 RG [-339(7)]TJ 0 g 0 G - [(,)-339(parti-)]TJ -93.98 -11.955 Td [(tioned)-334(among)-334(t)27(w)28(o)-334(pro)-28(cesses)-334(as)-335(sho)28(wn)-334(b)28(y)-334(the)-335(dashed)-334(line;)-334(the)-335(data)-334(distribution)]TJ 0 -11.955 Td [(is)-422(suc)28(h)-422(that)-422(eac)28(h)-422(pro)-28(cess)-422(will)-421(o)27(wn)-422(32)-421(en)27(tries)-421(in)-422(the)-422(index)-422(space,)-444(with)-422(a)-422(halo)]TJ 0 -11.956 Td [(made)-340(of)-341(8)-340(en)28(tries)-341(placed)-340(at)-340(lo)-28(cal)-341(in)1(dices)-341(33)-340(through)-340(40.)-466(If)-340(pro)-28(cess)-341(0)-340(assigns)-340(an)]TJ 0 -11.955 Td [(initial)-423(v)55(alue)-423(of)-424(1)-423(to)-424(its)-423(en)28(tries)-424(in)-423(the)]TJ/F11 9.9626 Tf 169.005 0 Td [(x)]TJ/F8 9.9626 Tf 9.913 0 Td [(v)28(ector,)-446(and)-424(pro)-27(cess)-424(1)-423(ass)-1(i)1(g)-1(n)1(s)-424(a)-423(v)55(alue)]TJ -178.918 -11.955 Td [(of)-349(2,)-353(then)-349(after)-349(a)-349(call)-349(to)]TJ/F30 9.9626 Tf 108.539 0 Td [(psb_halo)]TJ/F8 9.9626 Tf 45.32 0 Td [(the)-349(con)28(ten)27(t)1(s)-350(of)-349(the)-349(lo)-27(cal)-350(v)28(ectors)-349(will)-349(b)-28(e)-349(the)]TJ -153.859 -11.955 Td [(follo)28(wing:)]TJ + [(,)-339(parti-)]TJ -93.981 -11.955 Td [(tioned)-334(among)-334(t)27(w)28(o)-334(pro)-28(cesses)-334(as)-335(sho)28(wn)-334(b)28(y)-334(the)-335(dashed)-334(line;)-334(the)-335(data)-334(distribution)]TJ 0 -11.955 Td [(is)-422(suc)28(h)-422(that)-422(eac)28(h)-422(pro)-28(cess)-422(will)-421(o)27(wn)-422(32)-421(en)27(tries)-422(in)-421(the)-422(index)-422(space,)-444(with)-422(a)-422(halo)]TJ 0 -11.956 Td [(made)-340(of)-341(8)-340(en)28(tries)-341(placed)-340(at)-340(lo)-28(cal)-341(ind)1(ice)-1(s)-340(33)-340(through)-341(40.)-465(If)-340(pro)-28(cess)-341(0)-340(assigns)-340(an)]TJ 0 -11.955 Td [(initial)-423(v)55(alue)-423(of)-424(1)-423(to)-424(its)-423(en)28(tries)-424(in)-423(the)]TJ/F11 9.9626 Tf 169.006 0 Td [(x)]TJ/F8 9.9626 Tf 9.913 0 Td [(v)28(ector,)-446(and)-424(pr)1(o)-28(cess)-424(1)-423(assigns)-424(a)-423(v)55(alue)]TJ -178.919 -11.955 Td [(of)-349(2,)-353(then)-349(after)-349(a)-349(call)-349(to)]TJ/F30 9.9626 Tf 108.539 0 Td [(psb_halo)]TJ/F8 9.9626 Tf 45.32 0 Td [(the)-349(con)28(ten)27(ts)-349(of)-349(the)-349(lo)-27(c)-1(al)-349(v)28(ectors)-349(will)-349(b)-28(e)-349(the)]TJ -153.859 -11.955 Td [(follo)28(wing:)]TJ 0 g 0 G - 166.874 -119.319 Td [(54)]TJ + 166.875 -119.319 Td [(59)]TJ 0 g 0 G ET endstream endobj -1192 0 obj +1251 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/try8x8.pdf) /PTEX.PageNumber 1 -/PTEX.InfoDict 1199 0 R +/PTEX.InfoDict 1258 0 R /BBox [0 0 498 439] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -/R7 1200 0 R ->>/Font << /R8 1201 0 R/R10 1202 0 R>> +/R7 1259 0 R +>>/Font << /R8 1260 0 R/R10 1261 0 R>> >> /Length 3349 /Filter /FlateDecode @@ -12171,7 +13547,7 @@ U1 †¸úµ6ÔÉ–O¹¬ÌWbàzSE 0¬àË®—Ψxܳ>P…Uƒ|úˆò¬Öhˆ³>ÜÝâð^ðyÿÔŽX<‰ï’<ÂÇfÔ1â@aÐMŠC5Ú¢"mZ½!qVÖÆ¢4"{^›ëéŠÏúÜÐZÌÈ&ŒÐÅLh=ébnh#ü©n¶BUÌ„&×]Õ ÝÅFS5Cg_QUÍðӂȯZ£!ö²{U5'"ýÈCS5 žßÛæzÖæI¿®+®÷ó'MÕ <Ïû«Ö†:%>A©ªfè\dðy׎X<™§úºv¬¸Þ¡4U3ð<ï¯ZêD ùp¥ªš¡â³þ®±xOðuíXÉ×9/<ŠRUÍÀ‰¿|p+q¥ªš¡³¨Áçý];bñ$>žÖëÚ±âz?ŽÒTÍÀó¼¿jm¨“~/žú[™¯Ä<¸ë‘Ïú»vÄâÉ|Cú€‹‘¯s^x(¥ªšá]ú€[!ÎúðS)MÕ ÞPÌïms=k_’} ×ONËÌê˜Gd×X¥YgSjT3âÔr°-J#²{Ë®ç_ŤŒ¹¡µ˜‘M¡‹™ÐzÒÅÜÐFøSÝl…ª˜ M®÷Ó[ÎÏŸŸåùËãý¤†¿õ8šÇ÷‰<ÿÓ”ÿüúøýQ=Æ×oÏ?~}üøåzÖöüúχÿeK}ŽãýÜò±ž_{üôCýô¹Ï£üÐ>}¥”:~ü<ðóÄωŸ×§Ÿ¿þåíÝíýŸšÇóë/Îñé뿟ߟvñvÿ®Ý¾k×ïÚeoë»öõ]{Þí·¯??·~¢ûCÞŸ#²ÚaYïá÷…–aXŽí)Ãüã—÷'W¯û³êíãýŸ¼žkà®3Ô{οþõÝ*ŸþðøÓ×Çßßÿþ{Ü endstream endobj -1205 0 obj +1264 0 obj << /Filter /FlateDecode /Subtype /Type1C @@ -12230,7 +13606,7 @@ r §¶¦^<ÜÛrc¨¯@vŒñ6@ì>Ƀ¿]Wž$Ÿ’‚Žòg]Qõïæ¡ yú½%N»©”Ô­®¡ÿ U…··OÀû›ÄëC’¿ð\uƒÏÏnÞ_~å¶ÏCðÀ ›*¤é%™4€Éó¾÷vÜýÉÜ¢%‰كœ‹l0^2”«›ÃFŒ~ 996®=¹¯§­½§/¹ ¼`ðÍ/üvà Ípć0µ´e4:GÕ*ð­Ùîó,ÕÈ-¥%¥|€ 4×TtÐuuúü$5¥”…Û‡+ëJ\Þf§o´Ë[q¼æÁ¯ñ€ˆC +ðÓE€Ï'Ãl>Ž„hà,@Ñ[hZßBÁAñ¾ÿ¸Mrïë òeJ}­×xsi@ŒB¿`Ð_ ðö‡„³À£‚)×y`mq»GÜÚÚúz’Û½bøáÙòMà‚æ| Ët„Zû€®ˆ)Њ ùÙŽ›èuµNÒÁŽc°©pÊM”SWáo3„©°r#€«½å] a×5ÄéÊÍ¿+Wy{ê?q*>;^›Z9ëÚÕ —ºyÞƇŒ¬pºˆ‹€'óÑ‚ó\©h"Õ²¿k¶px”’¦ÑتTŒÛÛRà)ú§°oǤ°„p!ÈUK¹ÍQìÿ,…KŸ endstream endobj -1206 0 obj +1265 0 obj << /Filter /FlateDecode /Subtype /Type1C @@ -12303,9 +13679,9 @@ k ÒOWk'T²_Ž–Pài³ì¤®¦$1R¸(Ïlç?Àÿñå¼£ endstream endobj -1209 0 obj +1268 0 obj << -/Length 3050 +/Length 3057 >> stream 0 g 0 G @@ -12314,134 +13690,134 @@ stream 0 g 0 G 0 g 0 G BT -/F46 8.9664 Tf 205.966 645.656 Td [(Pro)-29(cess)-342(0)-8224(Pro)-28(cess)-343(1)]TJ -33.967 -10.959 Td [(I)-1333(GLOB\050I\051)-1334(X\050I\051)-4656(I)-1334(GLOB\050I\051)-1333(X\050I\051)]TJ -1.281 -10.959 Td [(1)-4966(1)-1961(1.0)-4514(1)-4452(33)-1961(2.0)]TJ 0 -10.959 Td [(2)-4966(2)-1961(1.0)-4514(2)-4452(34)-1961(2.0)]TJ 0 -10.959 Td [(3)-4966(3)-1961(1.0)-4514(3)-4452(35)-1961(2.0)]TJ 0 -10.959 Td [(4)-4966(4)-1961(1.0)-4514(4)-4452(36)-1961(2.0)]TJ 0 -10.959 Td [(5)-4966(5)-1961(1.0)-4514(5)-4452(37)-1961(2.0)]TJ 0 -10.959 Td [(6)-4966(6)-1961(1.0)-4514(6)-4452(38)-1961(2.0)]TJ 0 -10.959 Td [(7)-4966(7)-1961(1.0)-4514(7)-4452(39)-1961(2.0)]TJ 0 -10.958 Td [(8)-4966(8)-1961(1.0)-4514(8)-4452(40)-1961(2.0)]TJ 0 -10.959 Td [(9)-4966(9)-1961(1.0)-4514(9)-4452(41)-1961(2.0)]TJ -4.608 -10.959 Td [(10)-4452(10)-1961(1.0)-4000(10)-4452(42)-1961(2.0)]TJ 0 -10.959 Td [(11)-4452(11)-1961(1.0)-4000(11)-4452(43)-1961(2.0)]TJ 0 -10.959 Td [(12)-4452(12)-1961(1.0)-4000(12)-4452(44)-1961(2.0)]TJ 0 -10.959 Td [(13)-4452(13)-1961(1.0)-4000(13)-4452(45)-1961(2.0)]TJ 0 -10.959 Td [(14)-4452(14)-1961(1.0)-4000(14)-4452(46)-1961(2.0)]TJ 0 -10.959 Td [(15)-4452(15)-1961(1.0)-4000(15)-4452(47)-1961(2.0)]TJ 0 -10.959 Td [(16)-4452(16)-1961(1.0)-4000(16)-4452(48)-1961(2.0)]TJ 0 -10.959 Td [(17)-4452(17)-1961(1.0)-4000(17)-4452(49)-1961(2.0)]TJ 0 -10.958 Td [(18)-4452(18)-1961(1.0)-4000(18)-4452(50)-1961(2.0)]TJ 0 -10.959 Td [(19)-4452(19)-1961(1.0)-4000(19)-4452(51)-1961(2.0)]TJ 0 -10.959 Td [(20)-4452(20)-1961(1.0)-4000(20)-4452(52)-1961(2.0)]TJ 0 -10.959 Td [(21)-4452(21)-1961(1.0)-4000(21)-4452(53)-1961(2.0)]TJ 0 -10.959 Td [(22)-4452(22)-1961(1.0)-4000(22)-4452(54)-1961(2.0)]TJ 0 -10.959 Td [(23)-4452(23)-1961(1.0)-4000(23)-4452(55)-1961(2.0)]TJ 0 -10.959 Td [(24)-4452(24)-1961(1.0)-4000(24)-4452(56)-1961(2.0)]TJ 0 -10.959 Td [(25)-4452(25)-1961(1.0)-4000(25)-4452(57)-1961(2.0)]TJ 0 -10.959 Td [(26)-4452(26)-1961(1.0)-4000(26)-4452(58)-1961(2.0)]TJ 0 -10.959 Td [(27)-4452(27)-1961(1.0)-4000(27)-4452(59)-1961(2.0)]TJ 0 -10.958 Td [(28)-4452(28)-1961(1.0)-4000(28)-4452(60)-1961(2.0)]TJ 0 -10.959 Td [(29)-4452(29)-1961(1.0)-4000(29)-4452(61)-1961(2.0)]TJ 0 -10.959 Td [(30)-4452(30)-1961(1.0)-4000(30)-4452(62)-1961(2.0)]TJ 0 -10.959 Td [(31)-4452(31)-1961(1.0)-4000(31)-4452(63)-1961(2.0)]TJ 0 -10.959 Td [(32)-4452(32)-1961(1.0)-4000(32)-4452(64)-1961(2.0)]TJ 0 -10.959 Td [(33)-4452(33)-1961(2.0)-4000(33)-4452(25)-1961(1.0)]TJ 0 -10.959 Td [(34)-4452(34)-1961(2.0)-4000(34)-4452(26)-1961(1.0)]TJ 0 -10.959 Td [(35)-4452(35)-1961(2.0)-4000(35)-4452(27)-1961(1.0)]TJ 0 -10.959 Td [(36)-4452(36)-1961(2.0)-4000(36)-4452(28)-1961(1.0)]TJ 0 -10.959 Td [(37)-4452(37)-1961(2.0)-4000(37)-4452(29)-1961(1.0)]TJ 0 -10.958 Td [(38)-4452(38)-1961(2.0)-4000(38)-4452(30)-1961(1.0)]TJ 0 -10.959 Td [(39)-4452(39)-1961(2.0)-4000(39)-4452(31)-1961(1.0)]TJ 0 -10.959 Td [(40)-4452(40)-1961(2.0)-4000(40)-4452(32)-1961(1.0)]TJ +/F46 8.9664 Tf 256.776 645.656 Td [(Pro)-28(cess)-343(0)-8224(Pro)-28(cess)-343(1)]TJ -33.967 -10.959 Td [(I)-1333(GLOB\050I\051)-1334(X)1(\050I\051)-4657(I)-1334(GL)1(OB\050I\051)-1334(X\050I\051)]TJ -1.282 -10.959 Td [(1)-4966(1)-1961(1.0)-4514(1)-4452(33)-1961(2.0)]TJ 0 -10.959 Td [(2)-4966(2)-1961(1.0)-4514(2)-4452(34)-1961(2.0)]TJ 0 -10.959 Td [(3)-4966(3)-1961(1.0)-4514(3)-4452(35)-1961(2.0)]TJ 0 -10.959 Td [(4)-4966(4)-1961(1.0)-4514(4)-4452(36)-1961(2.0)]TJ 0 -10.959 Td [(5)-4966(5)-1961(1.0)-4514(5)-4452(37)-1961(2.0)]TJ 0 -10.959 Td [(6)-4966(6)-1961(1.0)-4514(6)-4452(38)-1961(2.0)]TJ 0 -10.959 Td [(7)-4966(7)-1961(1.0)-4514(7)-4452(39)-1961(2.0)]TJ 0 -10.958 Td [(8)-4966(8)-1961(1.0)-4514(8)-4452(40)-1961(2.0)]TJ 0 -10.959 Td [(9)-4966(9)-1961(1.0)-4514(9)-4452(41)-1961(2.0)]TJ -4.607 -10.959 Td [(10)-4452(10)-1961(1.0)-4000(10)-4452(42)-1961(2.0)]TJ 0 -10.959 Td [(11)-4452(11)-1961(1.0)-4000(11)-4452(43)-1961(2.0)]TJ 0 -10.959 Td [(12)-4452(12)-1961(1.0)-4000(12)-4452(44)-1961(2.0)]TJ 0 -10.959 Td [(13)-4452(13)-1961(1.0)-4000(13)-4452(45)-1961(2.0)]TJ 0 -10.959 Td [(14)-4452(14)-1961(1.0)-4000(14)-4452(46)-1961(2.0)]TJ 0 -10.959 Td [(15)-4452(15)-1961(1.0)-4000(15)-4452(47)-1961(2.0)]TJ 0 -10.959 Td [(16)-4452(16)-1961(1.0)-4000(16)-4452(48)-1961(2.0)]TJ 0 -10.959 Td [(17)-4452(17)-1961(1.0)-4000(17)-4452(49)-1961(2.0)]TJ 0 -10.958 Td [(18)-4452(18)-1961(1.0)-4000(18)-4452(50)-1961(2.0)]TJ 0 -10.959 Td [(19)-4452(19)-1961(1.0)-4000(19)-4452(51)-1961(2.0)]TJ 0 -10.959 Td [(20)-4452(20)-1961(1.0)-4000(20)-4452(52)-1961(2.0)]TJ 0 -10.959 Td [(21)-4452(21)-1961(1.0)-4000(21)-4452(53)-1961(2.0)]TJ 0 -10.959 Td [(22)-4452(22)-1961(1.0)-4000(22)-4452(54)-1961(2.0)]TJ 0 -10.959 Td [(23)-4452(23)-1961(1.0)-4000(23)-4452(55)-1961(2.0)]TJ 0 -10.959 Td [(24)-4452(24)-1961(1.0)-4000(24)-4452(56)-1961(2.0)]TJ 0 -10.959 Td [(25)-4452(25)-1961(1.0)-4000(25)-4452(57)-1961(2.0)]TJ 0 -10.959 Td [(26)-4452(26)-1961(1.0)-4000(26)-4452(58)-1961(2.0)]TJ 0 -10.959 Td [(27)-4452(27)-1961(1.0)-4000(27)-4452(59)-1961(2.0)]TJ 0 -10.958 Td [(28)-4452(28)-1961(1.0)-4000(28)-4452(60)-1961(2.0)]TJ 0 -10.959 Td [(29)-4452(29)-1961(1.0)-4000(29)-4452(61)-1961(2.0)]TJ 0 -10.959 Td [(30)-4452(30)-1961(1.0)-4000(30)-4452(62)-1961(2.0)]TJ 0 -10.959 Td [(31)-4452(31)-1961(1.0)-4000(31)-4452(63)-1961(2.0)]TJ 0 -10.959 Td [(32)-4452(32)-1961(1.0)-4000(32)-4452(64)-1961(2.0)]TJ 0 -10.959 Td [(33)-4452(33)-1961(2.0)-4000(33)-4452(25)-1961(1.0)]TJ 0 -10.959 Td [(34)-4452(34)-1961(2.0)-4000(34)-4452(26)-1961(1.0)]TJ 0 -10.959 Td [(35)-4452(35)-1961(2.0)-4000(35)-4452(27)-1961(1.0)]TJ 0 -10.959 Td [(36)-4452(36)-1961(2.0)-4000(36)-4452(28)-1961(1.0)]TJ 0 -10.959 Td [(37)-4452(37)-1961(2.0)-4000(37)-4452(29)-1961(1.0)]TJ 0 -10.958 Td [(38)-4452(38)-1961(2.0)-4000(38)-4452(30)-1961(1.0)]TJ 0 -10.959 Td [(39)-4452(39)-1961(2.0)-4000(39)-4452(31)-1961(1.0)]TJ 0 -10.959 Td [(40)-4452(40)-1961(2.0)-4000(40)-4452(32)-1961(1.0)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf 100.66 -105.903 Td [(55)]TJ +/F8 9.9626 Tf 100.659 -105.903 Td [(60)]TJ 0 g 0 G ET endstream endobj -1218 0 obj +1276 0 obj << -/Length 8482 +/Length 8516 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(o)31(vrl)-375(|)-375(Ov)31(erlap)-375(Up)-31(date)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(subroutines)-334(applies)-333(an)-333(o)27(v)28(erlap)-333(op)-28(erator)-333(to)-333(the)-334(input)-333(v)28(ector:)]TJ/F11 9.9626 Tf 154.475 -22.077 Td [(x)]TJ/F14 9.9626 Tf 8.461 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(Qx)]TJ/F8 9.9626 Tf -175.666 -20.14 Td [(where:)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(o)31(vrl)-375(|)-375(Ov)31(erlap)-375(Up)-31(date)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(s)-1(u)1(broutines)-334(applies)-333(an)-333(o)27(v)28(erlap)-333(op)-28(erator)-333(to)-333(the)-334(input)-333(v)28(ector:)]TJ/F11 9.9626 Tf 154.475 -22.077 Td [(x)]TJ/F14 9.9626 Tf 8.462 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(Qx)]TJ/F8 9.9626 Tf -175.667 -20.14 Td [(where:)]TJ 0 g 0 G /F11 9.9626 Tf 0 -18.503 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(dense)-333(submatrix)]TJ/F11 9.9626 Tf 131.092 0 Td [(x)]TJ +/F8 9.9626 Tf 10.676 0 Td [(is)-333(the)-334(global)-333(dense)-333(submatrix)]TJ/F11 9.9626 Tf 131.092 0 Td [(x)]TJ 0 g 0 G - -141.767 -19.214 Td [(Q)]TJ + -141.768 -19.214 Td [(Q)]TJ 0 g 0 G -/F8 9.9626 Tf 12.857 0 Td [(is)-333(the)-334(o)28(v)28(erlap)-333(op)-28(erator;)-333(it)-334(is)-333(the)-333(co)-1(mp)-27(osition)-334(of)-333(t)28(w)28(o)-334(op)-27(erators)]TJ/F11 9.9626 Tf 271.842 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.494 Td [(a)]TJ/F8 9.9626 Tf 8.141 1.494 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ +/F8 9.9626 Tf 12.858 0 Td [(is)-333(the)-334(o)28(v)28(erlap)-333(op)-28(erator;)-333(it)-334(is)-333(the)-333(comp)-28(osition)-334(of)-333(t)28(w)28(o)-334(op)-27(erators)]TJ/F11 9.9626 Tf 271.842 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.494 Td [(a)]TJ/F8 9.9626 Tf 8.14 1.494 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G ET q -1 0 0 1 228.797 587.879 cm +1 0 0 1 177.988 587.879 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F11 9.9626 Tf 234.775 579.311 Td [(x)]TJ/F27 9.9626 Tf 120.41 0 Td [(Subroutine)]TJ +/F11 9.9626 Tf 183.966 579.311 Td [(x)]TJ/F27 9.9626 Tf 120.409 0 Td [(Subroutine)]TJ ET q -1 0 0 1 228.797 575.525 cm +1 0 0 1 177.988 575.525 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F8 9.9626 Tf 234.775 566.957 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +/F8 9.9626 Tf 183.966 566.957 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ ET q -1 0 0 1 370.782 567.156 cm +1 0 0 1 319.972 567.156 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 566.957 Td [(o)28(vrl)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ +/F8 9.9626 Tf 322.961 566.957 Td [(o)28(vrl)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 555.201 cm +1 0 0 1 319.972 555.201 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 555.002 Td [(o)28(vrl)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +/F8 9.9626 Tf 322.961 555.002 Td [(o)28(vrl)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 543.246 cm +1 0 0 1 319.972 543.246 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 543.047 Td [(o)28(vrl)]TJ -138.996 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +/F8 9.9626 Tf 322.961 543.047 Td [(o)28(vrl)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ ET q -1 0 0 1 370.782 531.291 cm +1 0 0 1 319.972 531.291 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 531.091 Td [(o)28(vrl)]TJ +/F8 9.9626 Tf 322.961 531.091 Td [(o)28(vrl)]TJ ET q -1 0 0 1 228.797 527.306 cm +1 0 0 1 177.988 527.306 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 276.386 499.266 Td [(T)83(able)-333(15:)-444(Data)-334(t)28(yp)-28(es)]TJ +/F8 9.9626 Tf 225.577 499.266 Td [(T)83(able)-333(18:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -124.304 -28.465 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ +/F27 9.9626 Tf -124.305 -28.465 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ ET q -1 0 0 1 201.669 471 cm +1 0 0 1 150.859 471 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 206.027 470.801 Td [(o)-137(v)-138(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 155.217 470.801 Td [(o)-138(v)-137(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 276.854 471 cm +1 0 0 1 226.044 471 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 280.965 470.801 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ +/F8 9.9626 Tf 230.155 470.801 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ ET q -1 0 0 1 201.669 459.045 cm +1 0 0 1 150.859 459.045 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 206.027 458.846 Td [(o)-137(v)-138(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 155.217 458.846 Td [(o)-138(v)-137(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 276.854 459.045 cm +1 0 0 1 226.044 459.045 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 280.965 458.846 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-846(u)-86(p)-86(d)-86(a)-85(t)-86(e)3(=)-13(u)-101(p)-102(d)-102(a)-102(t)-102(e)]TJ +/F8 9.9626 Tf 230.155 458.846 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-847(u)-85(p)-86(d)-86(a)-85(t)-86(e)3(=)-13(u)-102(p)-101(d)-102(a)-102(t)-102(e)]TJ ET q -1 0 0 1 415.44 459.045 cm +1 0 0 1 364.631 459.045 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 419.443 458.846 Td [(t)-102(y)-102(p)-101(e)-365(,)-813(w)-52(o)-51(r)-52(k)37(=)38(w)-52(o)-52(r)-51(k)-158(\051)]TJ +/F8 9.9626 Tf 368.634 458.846 Td [(t)-102(y)-102(p)-101(e)-365(,)-813(w)-52(o)-51(r)-52(k)37(=)38(w)-52(o)-52(r)-51(k)-158(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -268.738 -25.406 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf -268.739 -25.406 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G @@ -12450,877 +13826,205 @@ BT 0 g 0 G 0 -19.214 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)28(o)-255(arra)28(y)-255(or)-255(an)-255(ob)-55(ject)-255(of)-255(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 244.742 0 Td [(psb)]TJ +/F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -1 0 0 1 436.673 347.39 cm +1 0 0 1 385.864 347.39 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 439.811 347.191 Td [(T)]TJ +/F30 9.9626 Tf 389.002 347.191 Td [(T)]TJ ET q -1 0 0 1 445.669 347.39 cm +1 0 0 1 394.86 347.39 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 448.807 347.191 Td [(vect)]TJ +/F30 9.9626 Tf 397.998 347.191 Td [(vect)]TJ ET q -1 0 0 1 470.356 347.39 cm +1 0 0 1 419.547 347.39 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 473.495 347.191 Td [(type)]TJ +/F30 9.9626 Tf 422.685 347.191 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf -297.884 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)27(yp)-27(e)-334(sp)-27(ec)-1(i)1(\014ed)-334(in)-333(T)83(able)]TJ +/F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)28(yp)-28(e)-334(sp)-27(eci\014ed)-334(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG - [-333(15)]TJ + [-333(18)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -19.214 Td [(desc)]TJ +/F27 9.9626 Tf -24.907 -19.214 Td [(desc)]TJ ET q -1 0 0 1 172.619 316.221 cm +1 0 0 1 121.81 316.221 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 316.022 Td [(a)]TJ +/F27 9.9626 Tf 125.247 316.022 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 268.401 cm +1 0 0 1 312.036 268.401 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 268.201 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 268.201 Td [(desc)]TJ ET q -1 0 0 1 387.532 268.401 cm +1 0 0 1 336.723 268.401 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 268.201 Td [(type)]TJ +/F30 9.9626 Tf 339.861 268.201 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.214 Td [(up)-32(date)]TJ 0 g 0 G -/F8 9.9626 Tf 39.67 0 Td [(Up)-28(date)-333(op)-28(erator.)]TJ +/F8 9.9626 Tf 39.671 0 Td [(Up)-28(date)-333(op)-28(erator.)]TJ 0 g 0 G /F27 9.9626 Tf -14.764 -31.169 Td [(up)-32(date)-383(=)-384(psb)]TJ ET q -1 0 0 1 244.786 218.017 cm +1 0 0 1 193.977 218.017 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 248.223 217.818 Td [(none)]TJ +/F27 9.9626 Tf 197.414 217.818 Td [(none)]TJ ET q -1 0 0 1 272.62 218.017 cm +1 0 0 1 221.811 218.017 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 281.039 217.818 Td [(Do)-333(nothing;)]TJ +/F8 9.9626 Tf 230.229 217.818 Td [(Do)-333(nothing;)]TJ 0 g 0 G -/F27 9.9626 Tf -105.428 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ +/F27 9.9626 Tf -105.427 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ ET q -1 0 0 1 244.786 202.789 cm +1 0 0 1 193.977 202.789 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 248.223 202.589 Td [(add)]TJ +/F27 9.9626 Tf 197.414 202.589 Td [(add)]TJ ET q -1 0 0 1 267.21 202.789 cm +1 0 0 1 216.4 202.789 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 275.628 202.589 Td [(Sum)-333(o)27(v)28(erlap)-333(en)28(tries,)-334(i.e.)-444(apply)]TJ/F11 9.9626 Tf 136.544 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ +/F8 9.9626 Tf 224.819 202.589 Td [(Sum)-333(o)27(v)28(erlap)-333(en)28(tries,)-334(i.e.)-444(apply)]TJ/F11 9.9626 Tf 136.544 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ 0 g 0 G /F27 9.9626 Tf -250.617 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ ET q -1 0 0 1 244.786 187.56 cm +1 0 0 1 193.977 187.56 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 248.223 187.36 Td [(a)32(vg)]TJ +/F27 9.9626 Tf 197.414 187.36 Td [(a)32(vg)]TJ ET q -1 0 0 1 265.937 187.56 cm +1 0 0 1 215.127 187.56 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 274.355 187.36 Td [(Av)28(erage)-334(o)28(v)28(erlap)-333(en)27(tries,)-333(i.e.)-444(apply)]TJ/F11 9.9626 Tf 152.346 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.494 Td [(a)]TJ/F11 9.9626 Tf 4.82 1.494 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ -276.362 -19.214 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(update)]TJ +/F8 9.9626 Tf 223.546 187.36 Td [(Av)28(erage)-334(o)28(v)28(erlap)-333(en)27(tri)1(e)-1(s,)-333(i.e.)-444(apply)]TJ/F11 9.9626 Tf 152.345 0 Td [(P)]TJ/F10 6.9738 Tf 6.397 -1.494 Td [(a)]TJ/F11 9.9626 Tf 4.819 1.494 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ -276.361 -19.214 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(update)]TJ ET q -1 0 0 1 245.048 144.435 cm +1 0 0 1 194.239 144.435 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 248.037 144.236 Td [(ty)-36(pe)]TJ/F8 9.9626 Tf 21.258 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(psb)]TJ +/F11 9.9626 Tf 197.228 144.236 Td [(ty)-36(pe)]TJ/F8 9.9626 Tf 21.258 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(psb)]TJ ET q -1 0 0 1 294.367 144.435 cm +1 0 0 1 243.558 144.435 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 297.356 144.236 Td [(av)-36(g)]TJ +/F11 9.9626 Tf 246.547 144.236 Td [(av)-36(g)]TJ ET q -1 0 0 1 313.516 144.435 cm +1 0 0 1 262.706 144.435 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 175.611 132.281 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(in)28(teger)-333(v)55(ariable.)]TJ +/F8 9.9626 Tf 124.802 132.281 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G - 141.968 -29.888 Td [(56)]TJ + 141.968 -29.888 Td [(61)]TJ 0 g 0 G ET endstream endobj -1230 0 obj +1289 0 obj << -/Length 5866 +/Length 5872 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(w)32(ork)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(w)32(ork)]TJ 0 g 0 G -/F8 9.9626 Tf 29.432 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(dimensional)-334(ar)1(ra)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 252.609 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ +/F8 9.9626 Tf 29.431 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(dimensional)-334(arr)1(a)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 252.609 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -283.21 -19.925 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -283.209 -19.925 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.489 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-474(of)-475(rank)-475(on)1(e)-475(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(u)1(m)27(b)-27(e)-1(r)1(s)-475(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ +/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.49 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-475(of)-474(rank)-475(one)-474(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(um)28(b)-28(ers)-474(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG - [-333(15)]TJ + [-333(18)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ 0 g 0 G - [-500(If)-316(there)-316(is)-317(no)-316(o)28(v)28(erlap)-316(in)-316(the)-317(data)-316(distribution)-316(asso)-28(ciated)-316(with)-316(the)-316(descrip-)]TJ 12.73 -11.955 Td [(tor,)-333(no)-334(op)-27(erations)-334(are)-333(p)-28(erformed;)]TJ + [-500(If)-316(there)-316(is)-317(no)-316(o)28(v)28(erlap)-316(in)-317(t)1(he)-317(data)-316(distribution)-316(asso)-28(ciated)-316(with)-316(the)-316(descrip-)]TJ 12.73 -11.955 Td [(tor,)-333(no)-334(op)-27(erations)-334(are)-333(p)-28(erformed;)]TJ 0 g 0 G -12.73 -19.926 Td [(2.)]TJ 0 g 0 G - [-500(The)-351(op)-27(erator)]TJ/F11 9.9626 Tf 73.737 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 9.77 -3.616 Td [(p)-28(erforms)-350(the)-351(reduction)-351(sum)-350(of)-351(o)28(v)27(erlap)-350(elemen)28(ts)-1(;)-359(it)-351(i)1(s)-351(a)]TJ -78.557 -11.955 Td [(\134prolongation")-365(op)-28(erator)]TJ/F11 9.9626 Tf 108.923 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.615 Td [(T)]TJ/F8 9.9626 Tf 9.914 -3.615 Td [(that)-365(replicates)-365(o)27(v)28(erlap)-365(elemen)28(ts,)-373(accoun)27(tin)1(g)]TJ -126.617 -11.955 Td [(for)-333(the)-334(ph)28(ysical)-333(replication)-333(of)-334(data;)]TJ + [-500(The)-351(op)-27(e)-1(r)1(ator)]TJ/F11 9.9626 Tf 73.738 0 Td [(P)]TJ/F10 6.9738 Tf 7.779 3.616 Td [(T)]TJ/F8 9.9626 Tf 9.77 -3.616 Td [(p)-28(erforms)-350(the)-351(reduction)-351(sum)-350(of)-351(o)28(v)27(erlap)-350(elemen)27(ts;)-359(it)-351(is)-350(a)]TJ -78.557 -11.955 Td [(\134prolongation")-365(op)-28(erator)]TJ/F11 9.9626 Tf 108.923 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.615 Td [(T)]TJ/F8 9.9626 Tf 9.914 -3.615 Td [(that)-365(replicates)-365(o)27(v)28(erlap)-365(elemen)28(ts,)-373(accoun)27(ting)]TJ -126.617 -11.955 Td [(for)-333(the)-334(ph)28(ysical)-333(replication)-333(of)-334(data;)]TJ 0 g 0 G -12.73 -19.925 Td [(3.)]TJ 0 g 0 G - [-500(The)-255(op)-28(erator)]TJ/F11 9.9626 Tf 71.84 0 Td [(P)]TJ/F10 6.9738 Tf 6.397 -1.495 Td [(a)]TJ/F8 9.9626 Tf 7.364 1.495 Td [(p)-28(erforms)-255(a)-256(scaling)-255(on)-256(the)-255(o)28(v)27(erlap)-255(elemen)28(ts)-256(b)28(y)-256(the)-255(amoun)28(t)]TJ -72.871 -11.956 Td [(of)-290(r)1(e)-1(pl)1(ic)-1(ati)1(on;)-305(th)28(us,)-298(when)-290(com)28(bined)-289(with)-290(the)-289(reduction)-290(op)-28(erator,)-298(it)-289(im)-1(p)1(le-)]TJ 0 -11.955 Td [(men)28(ts)-334(the)-333(a)28(v)28(erage)-334(of)-333(replicated)-333(elem)-1(en)28(ts)-333(o)28(v)27(er)-333(all)-333(of)-333(their)-334(instances.)]TJ/F16 11.9552 Tf -24.907 -19.925 Td [(Example)-388(of)-388(use)]TJ/F8 9.9626 Tf 93.469 0 Td [(Consider)-345(the)-344(discretization)-345(mesh)-345(d)1(e)-1(p)1(icte)-1(d)-344(in)-345(\014g.)]TJ + [-500(The)-256(op)-27(erator)]TJ/F11 9.9626 Tf 71.841 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.495 Td [(a)]TJ/F8 9.9626 Tf 7.365 1.495 Td [(p)-28(erforms)-255(a)-256(scaling)-255(on)-256(the)-255(o)28(v)27(erlap)-255(elemen)28(ts)-256(b)28(y)-256(th)1(e)-256(amoun)28(t)]TJ -72.872 -11.956 Td [(of)-290(repli)1(c)-1(ation)1(;)-305(th)28(us,)-298(when)-290(com)28(bined)-289(with)-290(the)-289(re)-1(d)1(uction)-290(op)-28(erator,)-298(it)-290(impl)1(e)-1(-)]TJ 0 -11.955 Td [(men)28(ts)-334(the)-333(a)28(v)28(erage)-334(of)-333(replicated)-333(ele)-1(men)28(ts)-333(o)28(v)27(er)-333(all)-333(of)-334(t)1(he)-1(i)1(r)-334(instances.)]TJ/F16 11.9552 Tf -24.906 -19.925 Td [(Example)-388(of)-387(us)-1(e)]TJ/F8 9.9626 Tf 93.468 0 Td [(Consider)-345(the)-344(discretization)-345(mesh)-345(d)1(e)-1(p)1(ic)-1(ted)-344(in)-345(\014g.)]TJ 0 0 1 rg 0 0 1 RG [-344(8)]TJ 0 g 0 G - [(,)-348(parti-)]TJ -93.469 -11.955 Td [(tioned)-330(among)-330(t)28(w)27(o)-330(pro)-27(c)-1(esses)-330(as)-330(sho)28(wn)-330(b)27(y)-330(the)-330(dashed)-330(lines,)-331(with)-330(an)-330(o)28(v)28(erlap)-330(of)-330(1)]TJ 0 -11.955 Td [(extra)-360(la)28(y)28(er)-360(with)-359(resp)-28(ect)-360(to)-359(the)-360(partition)-359(of)-360(\014g.)]TJ + [(,)-348(parti-)]TJ -93.468 -11.955 Td [(tioned)-330(among)-330(t)28(w)27(o)-330(pro)-27(ce)-1(sses)-330(as)-330(sho)28(wn)-330(b)28(y)-331(th)1(e)-331(dashed)-330(lines,)-330(w)-1(i)1(th)-331(an)-330(o)28(v)28(erlap)-330(of)-330(1)]TJ 0 -11.955 Td [(extra)-360(la)28(y)28(er)-360(with)-359(resp)-28(ect)-360(to)-359(the)-360(partition)-359(of)-360(\014g.)]TJ 0 0 1 rg 0 0 1 RG [-359(7)]TJ 0 g 0 G - [(;)-373(the)-359(data)-360(distribution)-359(is)-360(suc)28(h)]TJ 0 -11.956 Td [(that)-351(eac)27(h)-351(pro)-28(cess)-351(will)-352(o)28(wn)-351(40)-352(en)28(tries)-351(in)-351(the)-352(index)-351(space,)-356(with)-351(an)-352(o)28(v)28(erlap)-351(of)-352(16)]TJ 0 -11.955 Td [(en)28(tries)-326(placed)-325(a)-1(t)-325(lo)-28(cal)-325(indices)-326(25)-326(through)-325(40;)-328(the)-326(halo)-325(w)-1(il)1(l)-326(run)-326(fr)1(om)-326(lo)-28(cal)-326(in)1(dex)]TJ 0 -11.955 Td [(41)-290(through)-291(lo)-27(cal)-291(index)-290(48..)-430(If)-291(pro)-27(cess)-291(0)-290(assigns)-291(an)-290(initial)-290(v)55(alue)-290(of)-291(1)-290(to)-290(its)-291(en)28(tries)]TJ 0 -11.955 Td [(in)-298(the)]TJ/F11 9.9626 Tf 28.079 0 Td [(x)]TJ/F8 9.9626 Tf 8.663 0 Td [(v)28(ector,)-305(and)-298(pro)-28(cess)-298(1)-298(assigns)-299(a)-298(v)56(alue)-298(of)-298(2,)-305(then)-298(after)-298(a)-298(call)-298(to)]TJ/F30 9.9626 Tf 265.127 0 Td [(psb_ovrl)]TJ/F8 9.9626 Tf -301.869 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.401 0 Td [(psb_avg_)]TJ/F8 9.9626 Tf 44.871 0 Td [(and)-304(a)-304(call)-304(to)]TJ/F30 9.9626 Tf 56.945 0 Td [(psb_halo_)]TJ/F8 9.9626 Tf 50.101 0 Td [(the)-304(con)28(ten)28(ts)-304(of)-304(the)-304(lo)-28(cal)-304(v)28(ectors)-304(will)-304(b)-28(e)]TJ -174.318 -11.955 Td [(the)-333(follo)27(win)1(g)-334(\050sho)28(wing)-333(a)-334(transition)-333(among)-333(the)-334(t)28(w)28(o)-333(sub)-28(domains\051)]TJ + [(;)-373(the)-359(data)-360(distribution)-359(is)-360(suc)28(h)]TJ 0 -11.956 Td [(that)-351(eac)27(h)-351(pro)-28(cess)-351(will)-351(o)27(wn)-351(40)-351(en)27(tries)-351(in)-351(the)-352(index)-351(space,)-356(with)-351(an)-352(o)28(v)28(erlap)-351(of)-352(16)]TJ 0 -11.955 Td [(en)28(tries)-326(placed)-325(at)-326(lo)-28(cal)-325(indices)-326(25)-326(through)-325(40;)-328(the)-326(halo)-325(will)-326(run)-325(from)-326(lo)-28(cal)-325(index)]TJ 0 -11.955 Td [(41)-290(through)-291(lo)-27(cal)-291(index)-290(48..)-430(If)-291(pro)-27(cess)-291(0)-290(assigns)-291(an)-290(initial)-290(v)55(alue)-290(of)-291(1)-290(to)-290(its)-291(en)28(tries)]TJ 0 -11.955 Td [(in)-298(the)]TJ/F11 9.9626 Tf 28.078 0 Td [(x)]TJ/F8 9.9626 Tf 8.663 0 Td [(v)28(ector,)-305(and)-298(pro)-28(cess)-298(1)-298(ass)-1(i)1(gns)-299(a)-298(v)56(alue)-298(of)-298(2,)-305(then)-298(after)-298(a)-298(call)-298(to)]TJ/F30 9.9626 Tf 265.127 0 Td [(psb_ovrl)]TJ/F8 9.9626 Tf -301.868 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.4 0 Td [(psb_avg_)]TJ/F8 9.9626 Tf 44.871 0 Td [(and)-304(a)-304(call)-304(to)]TJ/F30 9.9626 Tf 56.945 0 Td [(psb_halo_)]TJ/F8 9.9626 Tf 50.102 0 Td [(the)-304(con)28(ten)28(ts)-304(of)-304(the)-304(lo)-28(cal)-304(v)28(ectors)-304(will)-304(b)-28(e)]TJ -174.318 -11.955 Td [(the)-333(follo)28(wing)-334(\050sho)28(wing)-333(a)-334(transition)-333(among)-333(the)-334(t)28(w)28(o)-333(sub)-28(domains\051)]TJ 0 g 0 G - 166.875 -143.462 Td [(57)]TJ + 166.874 -143.462 Td [(62)]TJ 0 g 0 G ET endstream endobj -1118 0 obj +1297 0 obj << -/Type /ObjStm -/N 100 -/First 995 -/Length 12718 ->> -stream -1116 0 248 58 1117 115 1113 174 1122 318 1119 466 1120 611 1124 758 252 817 1126 875 -1121 934 1133 1080 1127 1246 1128 1393 1129 1538 1130 1682 1135 1829 256 1887 1136 1944 1137 2003 -1138 2062 1139 2121 1132 2180 1148 2337 1131 2539 1140 2686 1141 2830 1142 2977 1143 3124 1144 3275 -1145 3426 1146 3577 1150 3724 1147 3783 1154 3889 1151 4028 1156 4174 260 4232 1157 4289 1153 4348 -1166 4519 1152 4712 1159 4860 1160 5004 1161 5151 1162 5298 1163 5442 1164 5589 1168 5735 1165 5794 -1172 5926 1169 6074 1170 6221 1174 6368 1171 6426 1177 6532 1175 6671 1179 6819 264 6878 1176 6936 -1185 7016 1180 7173 1181 7317 1182 7464 1187 7611 268 7669 1188 7726 1189 7785 1190 7843 1191 7901 -1184 7959 1195 8091 1199 8239 1200 8366 1201 8409 1202 8616 1203 8854 1204 9130 1183 9366 1193 9513 -1197 9659 1198 9718 1194 9777 1208 9925 1210 10043 1207 10101 1217 10182 1213 10339 1214 10483 1215 10630 -1219 10776 272 10835 1220 10893 1221 10952 1222 11011 1223 11070 1216 11129 1229 11274 1224 11431 1226 11578 -% 1116 0 obj -<< -/D [1114 0 R /XYZ 98.895 753.953 null] ->> -% 248 0 obj -<< -/D [1114 0 R /XYZ 99.895 720.077 null] ->> -% 1117 0 obj -<< -/D [1114 0 R /XYZ 270.132 513.305 null] ->> -% 1113 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F7 770 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1122 0 obj -<< -/Type /Page -/Contents 1123 0 R -/Resources 1121 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R -/Annots [ 1119 0 R 1120 0 R ] ->> -% 1119 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 342.722 387.792 353.847] -/A << /S /GoTo /D (spdata) >> ->> -% 1120 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 274.976 377.331 286.101] -/A << /S /GoTo /D (descdata) >> ->> -% 1124 0 obj -<< -/D [1122 0 R /XYZ 149.705 753.953 null] ->> -% 252 0 obj -<< -/D [1122 0 R /XYZ 150.705 720.077 null] ->> -% 1126 0 obj -<< -/D [1122 0 R /XYZ 320.941 513.305 null] ->> -% 1121 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F13 1125 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1133 0 obj -<< -/Type /Page -/Contents 1134 0 R -/Resources 1132 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R -/Annots [ 1127 0 R 1128 0 R 1129 0 R 1130 0 R ] ->> -% 1127 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 276.095 394.043 286.943] -/A << /S /GoTo /D (table.12) >> ->> -% 1128 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 208.422 336.983 219.547] -/A << /S /GoTo /D (spdata) >> ->> -% 1129 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 141.026 444.603 152.151] -/A << /S /GoTo /D (vdata) >> ->> -% 1130 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [326.008 129.347 337.963 140.196] -/A << /S /GoTo /D (table.12) >> ->> -% 1135 0 obj -<< -/D [1133 0 R /XYZ 98.895 753.953 null] ->> -% 256 0 obj -<< -/D [1133 0 R /XYZ 99.895 720.077 null] ->> -% 1136 0 obj -<< -/D [1133 0 R /XYZ 239.804 675.784 null] ->> -% 1137 0 obj -<< -/D [1133 0 R /XYZ 236.666 658.376 null] ->> -% 1138 0 obj -<< -/D [1133 0 R /XYZ 236.025 640.968 null] ->> -% 1139 0 obj -<< -/D [1133 0 R /XYZ 270.132 455.558 null] ->> -% 1132 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F7 770 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1148 0 obj -<< -/Type /Page -/Contents 1149 0 R -/Resources 1147 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1102 0 R -/Annots [ 1131 0 R 1140 0 R 1141 0 R 1142 0 R 1143 0 R 1144 0 R 1145 0 R 1146 0 R ] ->> -% 1131 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [432.897 655.375 444.852 666.223] -/A << /S /GoTo /D (table.12) >> ->> -% 1140 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 588.824 495.412 599.949] -/A << /S /GoTo /D (vdata) >> ->> -% 1141 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [377.029 577.145 388.984 587.994] -/A << /S /GoTo /D (table.12) >> ->> -% 1142 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 498.639 377.331 509.764] -/A << /S /GoTo /D (descdata) >> ->> -% 1143 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [397.199 462.009 404.172 472.858] -/A << /S /GoTo /D (equation.4.1) >> ->> -% 1144 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [396.202 447.541 403.176 458.389] -/A << /S /GoTo /D (equation.4.2) >> ->> -% 1145 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [396.507 433.073 403.481 443.921] -/A << /S /GoTo /D (equation.4.3) >> ->> -% 1146 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [253.818 191.887 265.774 202.735] -/A << /S /GoTo /D (table.12) >> ->> -% 1150 0 obj -<< -/D [1148 0 R /XYZ 149.705 753.953 null] ->> -% 1147 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1154 0 obj -<< -/Type /Page -/Contents 1155 0 R -/Resources 1153 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1151 0 R ] ->> -% 1151 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 117.392 394.043 128.24] -/A << /S /GoTo /D (table.13) >> ->> -% 1156 0 obj -<< -/D [1154 0 R /XYZ 98.895 753.953 null] ->> -% 260 0 obj -<< -/D [1154 0 R /XYZ 99.895 720.077 null] ->> -% 1157 0 obj -<< -/D [1154 0 R /XYZ 270.132 258.477 null] ->> -% 1153 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F13 1125 0 R /F7 770 0 R /F10 771 0 R /F30 769 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1166 0 obj -<< -/Type /Page -/Contents 1167 0 R -/Resources 1165 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1152 0 R 1159 0 R 1160 0 R 1161 0 R 1162 0 R 1163 0 R 1164 0 R ] ->> -% 1152 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [358.482 655.375 365.455 666.223] -/A << /S /GoTo /D (section.3) >> ->> -% 1159 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 586.627 495.412 597.752] -/A << /S /GoTo /D (vdata) >> ->> -% 1160 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.818 574.949 388.773 585.797] -/A << /S /GoTo /D (table.13) >> ->> -% 1161 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [432.897 494.523 444.852 505.372] -/A << /S /GoTo /D (table.13) >> ->> -% 1162 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 425.776 495.412 436.901] -/A << /S /GoTo /D (vdata) >> ->> -% 1163 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [377.029 414.098 388.984 424.946] -/A << /S /GoTo /D (table.13) >> ->> -% 1164 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 333.395 377.331 344.52] -/A << /S /GoTo /D (descdata) >> ->> -% 1168 0 obj -<< -/D [1166 0 R /XYZ 149.705 753.953 null] ->> -% 1165 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F30 769 0 R /F17 735 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1172 0 obj -<< -/Type /Page -/Contents 1173 0 R -/Resources 1171 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1169 0 R 1170 0 R ] ->> -% 1169 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [162.826 410.238 174.781 419.149] -/A << /S /GoTo /D (table.13) >> ->> -% 1170 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [203.009 228.974 214.964 239.822] -/A << /S /GoTo /D (table.13) >> ->> -% 1174 0 obj -<< -/D [1172 0 R /XYZ 98.895 753.953 null] ->> -% 1171 0 obj -<< -/Font << /F8 561 0 R /F27 560 0 R /F11 755 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1177 0 obj -<< -/Type /Page -/Contents 1178 0 R -/Resources 1176 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1175 0 R ] ->> -% 1175 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [350.345 657.464 357.319 668.312] -/A << /S /GoTo /D (section.6) >> ->> -% 1179 0 obj -<< -/D [1177 0 R /XYZ 149.705 753.953 null] ->> -% 264 0 obj -<< -/D [1177 0 R /XYZ 150.705 716.092 null] ->> -% 1176 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1185 0 obj -<< -/Type /Page -/Contents 1186 0 R -/Resources 1184 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1180 0 R 1181 0 R 1182 0 R ] ->> -% 1180 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 343.463 444.603 354.588] -/A << /S /GoTo /D (vdata) >> ->> -% 1181 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [325.411 331.785 337.366 342.633] -/A << /S /GoTo /D (table.14) >> ->> -% 1182 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 264.029 361.779 275.154] -/A << /S /GoTo /D (descdata) >> ->> -% 1187 0 obj -<< -/D [1185 0 R /XYZ 98.895 753.953 null] ->> -% 268 0 obj -<< -/D [1185 0 R /XYZ 99.895 720.077 null] ->> -% 1188 0 obj -<< -/D [1185 0 R /XYZ 270.132 514.036 null] ->> -% 1189 0 obj -<< -/D [1185 0 R /XYZ 99.895 482.745 null] ->> -% 1190 0 obj -<< -/D [1185 0 R /XYZ 99.895 484.682 null] ->> -% 1191 0 obj -<< -/D [1185 0 R /XYZ 99.895 472.727 null] ->> -% 1184 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1195 0 obj -<< -/Type /Page -/Contents 1196 0 R -/Resources 1194 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1158 0 R -/Annots [ 1183 0 R 1193 0 R ] ->> -% 1199 0 obj -<< -/Producer (GPL Ghostscript 9.22) -/CreationDate (D:20180323100645Z00'00') -/ModDate (D:20180323100645Z00'00') ->> -% 1200 0 obj -<< -/Type /ExtGState -/OPM 1 ->> -% 1201 0 obj -<< -/BaseFont /XYUGDR+Times-Roman -/FontDescriptor 1203 0 R -/Type /Font -/FirstChar 48 -/LastChar 57 -/Widths [ 500 500 500 500 500 500 500 500 500 500] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1202 0 obj -<< -/BaseFont /XISTAL+Times-Bold -/FontDescriptor 1204 0 R -/Type /Font -/FirstChar 48 -/LastChar 80 -/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1203 0 obj -<< -/Type /FontDescriptor -/FontName /XYUGDR+Times-Roman -/FontBBox [ 0 -14 476 688] -/Flags 65568 -/Ascent 688 -/CapHeight 688 -/Descent -14 -/ItalicAngle 0 -/StemV 71 -/MissingWidth 250 -/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) -/FontFile3 1205 0 R ->> -% 1204 0 obj -<< -/Type /FontDescriptor -/FontName /XISTAL+Times-Bold -/FontBBox [ 0 -13 600 688] -/Flags 65568 -/Ascent 688 -/CapHeight 676 -/Descent -13 -/ItalicAngle 0 -/StemV 90 -/MissingWidth 250 -/CharSet (/P/one/zero) -/FontFile3 1206 0 R ->> -% 1183 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [213.636 625.431 225.591 634.343] -/A << /S /GoTo /D (table.14) >> ->> -% 1193 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [457.906 278.167 464.88 290.786] -/A << /S /GoTo /D (figure.7) >> ->> -% 1197 0 obj -<< -/D [1195 0 R /XYZ 149.705 753.953 null] ->> -% 1198 0 obj -<< -/D [1195 0 R /XYZ 283.692 317.353 null] ->> -% 1194 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F16 558 0 R /F30 769 0 R >> -/XObject << /Im3 1192 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1208 0 obj -<< -/Type /Page -/Contents 1209 0 R -/Resources 1207 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R ->> -% 1210 0 obj -<< -/D [1208 0 R /XYZ 98.895 753.953 null] ->> -% 1207 0 obj -<< -/Font << /F46 1211 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1217 0 obj -<< -/Type /Page -/Contents 1218 0 R -/Resources 1216 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R -/Annots [ 1213 0 R 1214 0 R 1215 0 R ] ->> -% 1213 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 343.981 495.412 355.106] -/A << /S /GoTo /D (vdata) >> ->> -% 1214 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 332.303 388.176 343.151] -/A << /S /GoTo /D (table.15) >> ->> -% 1215 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 264.991 412.588 276.116] -/A << /S /GoTo /D (descdata) >> ->> -% 1219 0 obj -<< -/D [1217 0 R /XYZ 149.705 753.953 null] ->> -% 272 0 obj -<< -/D [1217 0 R /XYZ 150.705 720.077 null] ->> -% 1220 0 obj -<< -/D [1217 0 R /XYZ 320.941 511.222 null] ->> -% 1221 0 obj -<< -/D [1217 0 R /XYZ 150.705 480.819 null] ->> -% 1222 0 obj -<< -/D [1217 0 R /XYZ 150.705 482.756 null] ->> -% 1223 0 obj -<< -/D [1217 0 R /XYZ 150.705 470.801 null] ->> -% 1216 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1229 0 obj -<< -/Type /Page -/Contents 1230 0 R -/Resources 1228 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R -/Annots [ 1224 0 R 1226 0 R 1227 0 R ] ->> -% 1224 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [203.009 555.748 214.964 566.597] -/A << /S /GoTo /D (table.15) >> ->> -% 1226 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [407.019 326.22 413.993 338.84] -/A << /S /GoTo /D (figure.8) >> ->> - -endstream -endobj -1239 0 obj -<< -/Length 3619 +/Length 3552 >> stream 0 g 0 G @@ -13329,18 +14033,18 @@ stream 0 g 0 G 0 g 0 G BT -/F31 7.9701 Tf 260.921 653.177 Td [(Pro)-29(ce)-1(ss)-354(0)-8986(Pro)-30(cess)-354(1)]TJ -33.381 -9.464 Td [(I)-1500(GLOB\050I\051)-1500(X\050I\051)-5180(I)-1500(GLOB\050I\051)-1500(X\050I\051)]TJ -1.185 -9.465 Td [(1)-5253(1)-2148(1)1(.)-1(0)-5031(1)-4722(33)-2147(1.5)]TJ 0 -9.464 Td [(2)-5253(2)-2148(1)1(.)-1(0)-5031(2)-4722(34)-2147(1.5)]TJ 0 -9.465 Td [(3)-5253(3)-2148(1)1(.)-1(0)-5031(3)-4722(35)-2147(1.5)]TJ 0 -9.464 Td [(4)-5253(4)-2148(1)1(.)-1(0)-5031(4)-4722(36)-2147(1.5)]TJ 0 -9.465 Td [(5)-5253(5)-2148(1)1(.)-1(0)-5031(5)-4722(37)-2147(1.5)]TJ 0 -9.464 Td [(6)-5253(6)-2148(1)1(.)-1(0)-5031(6)-4722(38)-2147(1.5)]TJ 0 -9.465 Td [(7)-5253(7)-2148(1)1(.)-1(0)-5031(7)-4722(39)-2147(1.5)]TJ 0 -9.464 Td [(8)-5253(8)-2148(1)1(.)-1(0)-5031(8)-4722(40)-2147(1.5)]TJ 0 -9.465 Td [(9)-5253(9)-2148(1)1(.)-1(0)-5031(9)-4722(41)-2147(2.0)]TJ -4.234 -9.464 Td [(10)-4722(10)-2147(1.0)-4500(10)-4722(42)-2147(2.0)]TJ 0 -9.465 Td [(11)-4722(11)-2147(1.0)-4500(11)-4722(43)-2147(2.0)]TJ 0 -9.464 Td [(12)-4722(12)-2147(1.0)-4500(12)-4722(44)-2147(2.0)]TJ 0 -9.465 Td [(13)-4722(13)-2147(1.0)-4500(13)-4722(45)-2147(2.0)]TJ 0 -9.464 Td [(14)-4722(14)-2147(1.0)-4500(14)-4722(46)-2147(2.0)]TJ 0 -9.465 Td [(15)-4722(15)-2147(1.0)-4500(15)-4722(47)-2147(2.0)]TJ 0 -9.464 Td [(16)-4722(16)-2147(1.0)-4500(16)-4722(48)-2147(2.0)]TJ 0 -9.465 Td [(17)-4722(17)-2147(1.0)-4500(17)-4722(49)-2147(2.0)]TJ 0 -9.464 Td [(18)-4722(18)-2147(1.0)-4500(18)-4722(50)-2147(2.0)]TJ 0 -9.465 Td [(19)-4722(19)-2147(1.0)-4500(19)-4722(51)-2147(2.0)]TJ 0 -9.464 Td [(20)-4722(20)-2147(1.0)-4500(20)-4722(52)-2147(2.0)]TJ 0 -9.465 Td [(21)-4722(21)-2147(1.0)-4500(21)-4722(53)-2147(2.0)]TJ 0 -9.464 Td [(22)-4722(22)-2147(1.0)-4500(22)-4722(54)-2147(2.0)]TJ 0 -9.465 Td [(23)-4722(23)-2147(1.0)-4500(23)-4722(55)-2147(2.0)]TJ 0 -9.464 Td [(24)-4722(24)-2147(1.0)-4500(24)-4722(56)-2147(2.0)]TJ 0 -9.465 Td [(25)-4722(25)-2147(1.5)-4500(25)-4722(57)-2147(2.0)]TJ 0 -9.464 Td [(26)-4722(26)-2147(1.5)-4500(26)-4722(58)-2147(2.0)]TJ 0 -9.465 Td [(27)-4722(27)-2147(1.5)-4500(27)-4722(59)-2147(2.0)]TJ 0 -9.464 Td [(28)-4722(28)-2147(1.5)-4500(28)-4722(60)-2147(2.0)]TJ 0 -9.465 Td [(29)-4722(29)-2147(1.5)-4500(29)-4722(61)-2147(2.0)]TJ 0 -9.464 Td [(30)-4722(30)-2147(1.5)-4500(30)-4722(62)-2147(2.0)]TJ 0 -9.465 Td [(31)-4722(31)-2147(1.5)-4500(31)-4722(63)-2147(2.0)]TJ 0 -9.464 Td [(32)-4722(32)-2147(1.5)-4500(32)-4722(64)-2147(2.0)]TJ 0 -9.465 Td [(33)-4722(33)-2147(1.5)-4500(33)-4722(25)-2147(1.5)]TJ 0 -9.464 Td [(34)-4722(34)-2147(1.5)-4500(34)-4722(26)-2147(1.5)]TJ 0 -9.465 Td [(35)-4722(35)-2147(1.5)-4500(35)-4722(27)-2147(1.5)]TJ 0 -9.464 Td [(36)-4722(36)-2147(1.5)-4500(36)-4722(28)-2147(1.5)]TJ 0 -9.465 Td [(37)-4722(37)-2147(1.5)-4500(37)-4722(29)-2147(1.5)]TJ 0 -9.464 Td [(38)-4722(38)-2147(1.5)-4500(38)-4722(30)-2147(1.5)]TJ 0 -9.465 Td [(39)-4722(39)-2147(1.5)-4500(39)-4722(31)-2147(1.5)]TJ 0 -9.464 Td [(40)-4722(40)-2147(1.5)-4500(40)-4722(32)-2147(1.5)]TJ 0 -9.465 Td [(41)-4722(41)-2147(2.0)-4500(41)-4722(17)-2147(1.0)]TJ 0 -9.464 Td [(42)-4722(42)-2147(2.0)-4500(42)-4722(18)-2147(1.0)]TJ 0 -9.465 Td [(43)-4722(43)-2147(2.0)-4500(43)-4722(19)-2147(1.0)]TJ 0 -9.464 Td [(44)-4722(44)-2147(2.0)-4500(44)-4722(20)-2147(1.0)]TJ 0 -9.465 Td [(45)-4722(45)-2147(2.0)-4500(45)-4722(21)-2147(1.0)]TJ 0 -9.464 Td [(46)-4722(46)-2147(2.0)-4500(46)-4722(22)-2147(1.0)]TJ 0 -9.465 Td [(47)-4722(47)-2147(2.0)-4500(47)-4722(23)-2147(1.0)]TJ 0 -9.464 Td [(48)-4722(48)-2147(2.0)-4500(48)-4722(24)-2147(1.0)]TJ +/F31 7.9701 Tf 210.112 653.177 Td [(Pro)-29(cess)-355(0)-8986(Pro)-30(cess)-354(1)]TJ -33.382 -9.464 Td [(I)-1500(GLOB\050I\051)-1500(X\050I\051)-5180(I)-1500(GLOB\050I\051)-1500(X\050I\051)]TJ -1.184 -9.465 Td [(1)-5253(1)-2147(1.0)-5032(1)-4722(33)-2147(1.5)]TJ 0 -9.464 Td [(2)-5253(2)-2147(1.0)-5032(2)-4722(34)-2147(1.5)]TJ 0 -9.465 Td [(3)-5253(3)-2147(1.0)-5032(3)-4722(35)-2147(1.5)]TJ 0 -9.464 Td [(4)-5253(4)-2147(1.0)-5032(4)-4722(36)-2147(1.5)]TJ 0 -9.465 Td [(5)-5253(5)-2147(1.0)-5032(5)-4722(37)-2147(1.5)]TJ 0 -9.464 Td [(6)-5253(6)-2147(1.0)-5032(6)-4722(38)-2147(1.5)]TJ 0 -9.465 Td [(7)-5253(7)-2147(1.0)-5032(7)-4722(39)-2147(1.5)]TJ 0 -9.464 Td [(8)-5253(8)-2147(1.0)-5032(8)-4722(40)-2147(1.5)]TJ 0 -9.465 Td [(9)-5253(9)-2147(1.0)-5032(9)-4722(41)-2147(2.0)]TJ -4.235 -9.464 Td [(10)-4722(10)-2147(1.0)-4500(10)-4722(42)-2147(2.0)]TJ 0 -9.465 Td [(11)-4722(11)-2147(1.0)-4500(11)-4722(43)-2147(2.0)]TJ 0 -9.464 Td [(12)-4722(12)-2147(1.0)-4500(12)-4722(44)-2147(2.0)]TJ 0 -9.465 Td [(13)-4722(13)-2147(1.0)-4500(13)-4722(45)-2147(2.0)]TJ 0 -9.464 Td [(14)-4722(14)-2147(1.0)-4500(14)-4722(46)-2147(2.0)]TJ 0 -9.465 Td [(15)-4722(15)-2147(1.0)-4500(15)-4722(47)-2147(2.0)]TJ 0 -9.464 Td [(16)-4722(16)-2147(1.0)-4500(16)-4722(48)-2147(2.0)]TJ 0 -9.465 Td [(17)-4722(17)-2147(1.0)-4500(17)-4722(49)-2147(2.0)]TJ 0 -9.464 Td [(18)-4722(18)-2147(1.0)-4500(18)-4722(50)-2147(2.0)]TJ 0 -9.465 Td [(19)-4722(19)-2147(1.0)-4500(19)-4722(51)-2147(2.0)]TJ 0 -9.464 Td [(20)-4722(20)-2147(1.0)-4500(20)-4722(52)-2147(2.0)]TJ 0 -9.465 Td [(21)-4722(21)-2147(1.0)-4500(21)-4722(53)-2147(2.0)]TJ 0 -9.464 Td [(22)-4722(22)-2147(1.0)-4500(22)-4722(54)-2147(2.0)]TJ 0 -9.465 Td [(23)-4722(23)-2147(1.0)-4500(23)-4722(55)-2147(2.0)]TJ 0 -9.464 Td [(24)-4722(24)-2147(1.0)-4500(24)-4722(56)-2147(2.0)]TJ 0 -9.465 Td [(25)-4722(25)-2147(1.5)-4500(25)-4722(57)-2147(2.0)]TJ 0 -9.464 Td [(26)-4722(26)-2147(1.5)-4500(26)-4722(58)-2147(2.0)]TJ 0 -9.465 Td [(27)-4722(27)-2147(1.5)-4500(27)-4722(59)-2147(2.0)]TJ 0 -9.464 Td [(28)-4722(28)-2147(1.5)-4500(28)-4722(60)-2147(2.0)]TJ 0 -9.465 Td [(29)-4722(29)-2147(1.5)-4500(29)-4722(61)-2147(2.0)]TJ 0 -9.464 Td [(30)-4722(30)-2147(1.5)-4500(30)-4722(62)-2147(2.0)]TJ 0 -9.465 Td [(31)-4722(31)-2147(1.5)-4500(31)-4722(63)-2147(2.0)]TJ 0 -9.464 Td [(32)-4722(32)-2147(1.5)-4500(32)-4722(64)-2147(2.0)]TJ 0 -9.465 Td [(33)-4722(33)-2147(1.5)-4500(33)-4722(25)-2147(1.5)]TJ 0 -9.464 Td [(34)-4722(34)-2147(1.5)-4500(34)-4722(26)-2147(1.5)]TJ 0 -9.465 Td [(35)-4722(35)-2147(1.5)-4500(35)-4722(27)-2147(1.5)]TJ 0 -9.464 Td [(36)-4722(36)-2147(1.5)-4500(36)-4722(28)-2147(1.5)]TJ 0 -9.465 Td [(37)-4722(37)-2147(1.5)-4500(37)-4722(29)-2147(1.5)]TJ 0 -9.464 Td [(38)-4722(38)-2147(1.5)-4500(38)-4722(30)-2147(1.5)]TJ 0 -9.465 Td [(39)-4722(39)-2147(1.5)-4500(39)-4722(31)-2147(1.5)]TJ 0 -9.464 Td [(40)-4722(40)-2147(1.5)-4500(40)-4722(32)-2147(1.5)]TJ 0 -9.465 Td [(41)-4722(41)-2147(2.0)-4500(41)-4722(17)-2147(1.0)]TJ 0 -9.464 Td [(42)-4722(42)-2147(2.0)-4500(42)-4722(18)-2147(1.0)]TJ 0 -9.465 Td [(43)-4722(43)-2147(2.0)-4500(43)-4722(19)-2147(1.0)]TJ 0 -9.464 Td [(44)-4722(44)-2147(2.0)-4500(44)-4722(20)-2147(1.0)]TJ 0 -9.465 Td [(45)-4722(45)-2147(2.0)-4500(45)-4722(21)-2147(1.0)]TJ 0 -9.464 Td [(46)-4722(46)-2147(2.0)-4500(46)-4722(22)-2147(1.0)]TJ 0 -9.465 Td [(47)-4722(47)-2147(2.0)-4500(47)-4722(23)-2147(1.0)]TJ 0 -9.464 Td [(48)-4722(48)-2147(2.0)-4500(48)-4722(24)-2147(1.0)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf 95.458 -98.979 Td [(58)]TJ +/F8 9.9626 Tf 95.459 -98.979 Td [(63)]TJ 0 g 0 G ET endstream endobj -1243 0 obj +1301 0 obj << -/Length 325 +/Length 318 >> stream 0 g 0 G @@ -13348,7 +14052,7 @@ stream 0 g 0 G 0 g 0 G 0 g 0 G -1 0 0 1 104.053 292.444 cm +1 0 0 1 154.862 292.444 cm q .65 0 0 .65 0 0 cm q @@ -13357,32 +14061,32 @@ q Q Q 0 g 0 G -1 0 0 1 -104.053 -292.444 cm +1 0 0 1 -154.862 -292.444 cm BT -/F8 9.9626 Tf 189.268 260.564 Td [(Figure)-333(8:)-445(Sample)-333(discretization)-333(mes)-1(h)1(.)]TJ +/F8 9.9626 Tf 240.078 260.564 Td [(Figure)-333(8:)-445(Sample)-333(discretization)-333(mesh.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G - 77.502 -170.126 Td [(59)]TJ + 77.501 -170.126 Td [(64)]TJ 0 g 0 G ET endstream endobj -1225 0 obj +1284 0 obj << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/try8x8_ov.pdf) /PTEX.PageNumber 1 -/PTEX.InfoDict 1245 0 R +/PTEX.InfoDict 1303 0 R /BBox [0 0 516 439] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -/R7 1246 0 R ->>/Font << /R8 1247 0 R/R10 1248 0 R>> +/R7 1304 0 R +>>/Font << /R8 1305 0 R/R10 1306 0 R>> >> /Length 3413 /Filter /FlateDecode @@ -13396,7 +14100,7 @@ x >÷­ õïÅ7z3óm‘W=ò™¿ªOækª¨ù*óÕ#_e}0¾h;ׇ©›öÄ‚ÏýUm°xßPyPÇp}gZz®ŽÎâˆè«43©cˆŸLÂ̵1Y][V½üέ¦†5½xò–Ï]Oh5ÕE_ÐZèSYd…UÑZR½´â6Tl4©^lÉ]·íMª×µ6ÔNÉ‹»&ž%Ä›ºõ)ÕÃýÍ?Ô‹'ñQõ†:V\ïꛉÁ¿Ö†ÚU ñ¦n±Ý|îêˆÅ“ù zC+®wu‹mÐàƒ_kCí*¾Â\Ýb[=øÜ?Ô‹'ñ •Gè˜_ß™–ž«£³8"ºÇ*ÍÌÐ1ŸLÂ̵1Y=Æ¢zÚð¬÷mŒ,…uÑZMuÑ´úTYaUô„&Õ[ö…›:ÖZG¨žvõ_ºP=ß-Fü®5lËãouÃYË*ïoþ¦ŽX<‰½M+®7uÓy„àsÿ®µ¡6‰Ácü­n:±|îoêˆÅ“ù°§ÛÔ±âzS7¤>÷ïZj?˜|®bä+ÌT|æoêˆÅ“ø¸}ÛÔ±’¯2/P=ò™×ÚP[¿àƒŠ1þ` z¼¿ù›:bñ$>îÔ6u¬¸ÞÔM§W‚Ïý»Ö†Úå}qÇwf¾-òàªG>ó7uÄâÉ|Mõ#_e^ z䫬ÆïZ£ÁÎõaꦓ9Áçþ¦ŽX<‰o¨<¨c¸¾3-=WGgqDô«43©cˆŸLÂ̵1YÝö¬zy?¶¥ž5½xò–Ï]Oh5ÕE_ÐZèSYd…UÑZR½tNÆm¨ØÔn†]·ÚÍðÓ3ˆïZ£Áö, ífณguj7 ?ÏUõÒ‘Ø%ñ¹º ífàóÜßµ6Ô¡ðQņv3tè)øÜ?Õ‹'óAõ¦:V\ïê6´›Ïs×ÚPçcÈÚÍÐq-ñ™ª#Oâ£êMu¬ä«Ì Uoh7Ç_jðQõºÖnŒ?˜ªÞÔn†.â繪^:Óâ6Tlj7Cà‚Ïý]kCzyñÌÌ|[äª7µ›†|YõÒñ·k®W·¡Ý òUÖã»Öh°s}¸º ífðþõÁøy®ª§“*nRÇfìfÄàë,Žˆî±J33tlÄnFI ¶ÉÒˆèy.ª§Ó)žõ¾ í‘‘¥0¢.zB«©.ú‚ÖBŸÊ"+¬ŠžÐ¤zíÐn†Û®b­i7Cg _Vµ›á§ _µFƒmYbü­n81iYåýͨ#OâãAÀC+®7uÓ©ÈàsÕÚP‡Ácü­n:7|î?Ô‹'óáÌß¡Ž×›ºé®?Œ÷Æå‡ñ¶ŽùÃxü0î÷øúz~ÙëDõ¹žDí‡E]Ó×…aXŽí!Í>øïŸ×düoõ–‘¿Ö«\¯ç­ÜýÌ•çë»ýô—w-ÿ/Iÿõv×ï!o'ÈŸÿ`[G. endstream endobj -1251 0 obj +1309 0 obj << /Filter /FlateDecode /Subtype /Type1C @@ -13455,7 +14159,7 @@ r §¶¦^<ÜÛrc¨¯@vŒñ6@ì>Ƀ¿]Wž$Ÿ’‚Žòg]Qõïæ¡ yú½%N»©”Ô­®¡ÿ U…··OÀû›ÄëC’¿ð\uƒÏÏnÞ_~å¶ÏCðÀ ›*¤é%™4€Éó¾÷vÜýÉÜ¢%‰كœ‹l0^2”«›ÃFŒ~ 996®=¹¯§­½§/¹ ¼`ðÍ/üvà Ípć0µ´e4:GÕ*ð­Ùîó,ÕÈ-¥%¥|€ 4×TtÐuuúü$5¥”…Û‡+ëJ\Þf§o´Ë[q¼æÁ¯ñ€ˆC +ðÓE€Ï'Ãl>Ž„hà,@Ñ[hZßBÁAñ¾ÿ¸Mrïë òeJ}­×xsi@ŒB¿`Ð_ ðö‡„³À£‚)×y`mq»GÜÚÚúz’Û½bøáÙòMà‚æ| Ët„Zû€®ˆ)Њ ùÙŽ›èuµNÒÁŽc°©pÊM”SWáo3„©°r#€«½å] a×5ÄéÊÍ¿+Wy{ê?q*>;^›Z9ëÚÕ —ºyÞƇŒ¬pºˆ‹€'óÑ‚ó\©h"Õ²¿k¶px”’¦ÑتTŒÛÛRà)ú§°oǤ°„p!ÈUK¹ÍQìÿ,…KŸ endstream endobj -1252 0 obj +1310 0 obj << /Filter /FlateDecode /Subtype /Type1C @@ -13528,65 +14232,65 @@ k ÒOWk'T²_Ž–Pài³ì¤®¦$1R¸(Ïlç?Àÿñå¼£ endstream endobj -1258 0 obj +1316 0 obj << -/Length 9366 +/Length 9388 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(gather)-375(|)-375(Gather)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-384(subroutines)-384(collect)-385(the)-384(p)-27(ortions)-385(of)-384(global)-384(dense)-384(matrix)-384(distributed)-384(o)28(v)27(er)]TJ 0 -11.956 Td [(all)-333(pro)-28(cess)-334(i)1(n)27(to)-333(one)-333(single)-334(arra)28(y)-333(stored)-334(on)-333(one)-333(pro)-28(cess.)]TJ/F11 9.9626 Tf 120.435 -22.804 Td [(g)-36(l)-19(ob)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(gather)-375(|)-375(Gather)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-384(subroutines)-384(collect)-385(the)-384(p)-28(orti)1(ons)-385(of)-384(global)-384(dense)-384(matrix)-384(distributed)-384(o)28(v)27(er)]TJ 0 -11.956 Td [(all)-333(pro)-28(cess)-334(in)28(to)-333(one)-333(single)-334(arra)28(y)-333(stored)-334(on)-333(one)-333(pro)-28(cess.)]TJ/F11 9.9626 Tf 120.435 -22.804 Td [(g)-36(l)-20(ob)]TJ ET q -1 0 0 1 289.12 653.179 cm +1 0 0 1 238.311 653.179 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 292.109 652.98 Td [(x)]TJ/F14 9.9626 Tf 8.461 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(col)-20(l)-19(ect)]TJ/F8 9.9626 Tf 28.026 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(l)-20(oc)]TJ +/F11 9.9626 Tf 241.299 652.98 Td [(x)]TJ/F14 9.9626 Tf 8.462 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(col)-20(l)-19(ect)]TJ/F8 9.9626 Tf 28.025 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(l)-20(oc)]TJ ET q -1 0 0 1 358.107 653.179 cm +1 0 0 1 307.298 653.179 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 361.096 652.98 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F8 9.9626 Tf 3.317 1.494 Td [(\051)]TJ -219.402 -20.867 Td [(where:)]TJ +/F11 9.9626 Tf 310.287 652.98 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F8 9.9626 Tf 3.316 1.494 Td [(\051)]TJ -219.402 -20.867 Td [(where:)]TJ 0 g 0 G -/F11 9.9626 Tf 0 -19.085 Td [(g)-36(l)-19(o)-1(b)]TJ +/F11 9.9626 Tf 0 -19.085 Td [(g)-36(l)-20(ob)]TJ ET q -1 0 0 1 168.775 613.227 cm +1 0 0 1 117.965 613.227 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F11 9.9626 Tf 172.212 613.028 Td [(x)]TJ +/F11 9.9626 Tf 121.403 613.028 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(submatrix)]TJ/F11 9.9626 Tf 103.916 0 Td [(g)-36(l)-20(ob)]TJ ET q -1 0 0 1 304.784 613.227 cm +1 0 0 1 253.974 613.227 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 307.773 613.028 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.226 0 Td [(m;)]TJ/F7 6.9738 Tf 9.436 0 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(n)]TJ +/F11 9.9626 Tf 256.963 613.028 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(m;)]TJ/F7 6.9738 Tf 9.436 0 Td [(1:)]TJ/F10 6.9738 Tf 6.226 0 Td [(n)]TJ 0 g 0 G /F11 9.9626 Tf -184.651 -18.011 Td [(l)-20(oc)]TJ ET q -1 0 0 1 163.701 593.722 cm +1 0 0 1 112.892 593.722 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F11 9.9626 Tf 167.139 593.523 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ +/F11 9.9626 Tf 116.329 593.523 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ 0 g 0 G -/F8 9.9626 Tf 8.299 1.494 Td [(is)-333(the)-334(lo)-27(cal)-334(p)-28(or)1(tion)-334(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.703 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(.)]TJ +/F8 9.9626 Tf 8.298 1.494 Td [(is)-333(the)-334(lo)-27(c)-1(al)-333(p)-28(ortion)-333(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.704 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(.)]TJ 0 g 0 G /F11 9.9626 Tf -268.562 -19.505 Td [(col)-20(l)-19(ect)]TJ 0 g 0 G @@ -13596,120 +14300,120 @@ BT 0 g 0 G ET q -1 0 0 1 228.797 555.154 cm +1 0 0 1 177.988 555.154 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F11 9.9626 Tf 234.775 546.587 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.495 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.495 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ +/F11 9.9626 Tf 183.966 546.587 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.495 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.495 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ ET q -1 0 0 1 228.797 542.801 cm +1 0 0 1 177.988 542.801 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F8 9.9626 Tf 234.775 534.233 Td [(In)28(teger)-9028(psb)]TJ +/F8 9.9626 Tf 183.966 534.233 Td [(In)28(teger)-9028(psb)]TJ ET q -1 0 0 1 370.782 534.432 cm +1 0 0 1 319.972 534.432 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 534.233 Td [(gather)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +/F8 9.9626 Tf 322.961 534.233 Td [(gather)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ ET q -1 0 0 1 370.782 522.477 cm +1 0 0 1 319.972 522.477 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 522.278 Td [(gather)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ +/F8 9.9626 Tf 322.961 522.278 Td [(gather)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 510.522 cm +1 0 0 1 319.972 510.522 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 510.323 Td [(gather)]TJ -138.996 -11.956 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +/F8 9.9626 Tf 322.961 510.323 Td [(gather)]TJ -138.995 -11.956 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 498.567 cm +1 0 0 1 319.972 498.567 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 498.367 Td [(gather)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +/F8 9.9626 Tf 322.961 498.367 Td [(gather)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ ET q -1 0 0 1 370.782 486.612 cm +1 0 0 1 319.972 486.612 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 486.412 Td [(gather)]TJ +/F8 9.9626 Tf 322.961 486.412 Td [(gather)]TJ ET q -1 0 0 1 228.797 482.626 cm +1 0 0 1 177.988 482.626 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 276.386 454.587 Td [(T)83(able)-333(16:)-444(Data)-334(t)28(yp)-28(es)]TJ +/F8 9.9626 Tf 225.577 454.587 Td [(T)83(able)-333(19:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -124.304 -30.984 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.737 0 Td [(p)-123(s)-123(b)]TJ +/F27 9.9626 Tf -124.305 -30.984 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.738 0 Td [(p)-123(s)-123(b)]TJ ET q -1 0 0 1 201.095 423.802 cm +1 0 0 1 150.286 423.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 205.31 423.603 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ +/F8 9.9626 Tf 154.501 423.603 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ ET q -1 0 0 1 270.682 423.802 cm +1 0 0 1 219.873 423.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 274.766 423.603 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ +/F8 9.9626 Tf 223.956 423.603 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ ET q -1 0 0 1 312.009 423.802 cm +1 0 0 1 261.2 423.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 316.265 423.603 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 265.456 423.603 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 360.541 423.802 cm +1 0 0 1 309.731 423.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 364.652 423.603 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ/F27 9.9626 Tf -212.57 -11.956 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.737 0 Td [(p)-123(s)-123(b)]TJ +/F8 9.9626 Tf 313.842 423.603 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ/F27 9.9626 Tf -212.57 -11.956 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.738 0 Td [(p)-123(s)-123(b)]TJ ET q -1 0 0 1 201.095 411.847 cm +1 0 0 1 150.286 411.847 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 205.31 411.647 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ +/F8 9.9626 Tf 154.501 411.647 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ ET q -1 0 0 1 270.682 411.847 cm +1 0 0 1 219.873 411.847 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 274.766 411.647 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ +/F8 9.9626 Tf 223.956 411.647 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ ET q -1 0 0 1 312.009 411.847 cm +1 0 0 1 261.2 411.847 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 316.265 411.647 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 265.456 411.647 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 360.541 411.847 cm +1 0 0 1 309.731 411.847 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 364.652 411.647 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ +/F8 9.9626 Tf 313.842 411.647 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -13723,276 +14427,276 @@ BT 0 -19.505 Td [(lo)-32(c)]TJ ET q -1 0 0 1 165.713 346.412 cm +1 0 0 1 114.904 346.412 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 169.151 346.213 Td [(x)]TJ +/F27 9.9626 Tf 118.341 346.213 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.117 0 Td [(g)-36(l)-20(ob)]TJ +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(g)-36(l)-19(o)-1(b)]TJ ET q -1 0 0 1 374.277 346.412 cm +1 0 0 1 323.467 346.412 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 377.266 346.213 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.349 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-56(j)1(e)-1(ct)-254(of)-255(t)28(yp)-28(e)]TJ +/F11 9.9626 Tf 326.456 346.213 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.348 -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.956 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)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -1 0 0 1 436.673 298.592 cm +1 0 0 1 385.864 298.592 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 439.811 298.392 Td [(T)]TJ +/F30 9.9626 Tf 389.002 298.392 Td [(T)]TJ ET q -1 0 0 1 445.669 298.592 cm +1 0 0 1 394.86 298.592 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 448.807 298.392 Td [(vect)]TJ +/F30 9.9626 Tf 397.998 298.392 Td [(vect)]TJ ET q -1 0 0 1 470.356 298.592 cm +1 0 0 1 419.547 298.592 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 473.495 298.392 Td [(type)]TJ +/F30 9.9626 Tf 422.685 298.392 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf -297.884 -11.955 Td [(indicated)-333(in)-334(T)84(able)]TJ +/F8 9.9626 Tf -297.883 -11.955 Td [(indicated)-333(in)-334(T)84(able)]TJ 0 0 1 rg 0 0 1 RG - [-334(16)]TJ + [-334(19)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -19.505 Td [(desc)]TJ +/F27 9.9626 Tf -24.907 -19.505 Td [(desc)]TJ ET q -1 0 0 1 172.619 267.131 cm +1 0 0 1 121.81 267.131 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 266.932 Td [(a)]TJ +/F27 9.9626 Tf 125.247 266.932 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 219.311 cm +1 0 0 1 312.036 219.311 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 219.111 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 219.111 Td [(desc)]TJ ET q -1 0 0 1 387.532 219.311 cm +1 0 0 1 336.723 219.311 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 219.111 Td [(type)]TJ +/F30 9.9626 Tf 339.861 219.111 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.505 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(The)-291(pro)-28(cess)-291(that)-291(holds)-291(the)-291(global)-291(cop)28(y)83(.)-430(If)]TJ/F11 9.9626 Tf 182.523 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 20.794 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-291(all)-291(the)-291(pro)-28(cesses)-291(will)]TJ -222.606 -11.955 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F14 9.9626 Tf 142.079 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.748 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.795 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)]TJ/F14 9.9626 Tf 44.555 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1.)]TJ +/F8 9.9626 Tf 25.931 0 Td [(The)-291(pro)-28(cess)-291(that)-291(holds)-291(the)-291(global)-291(cop)28(y)83(.)-430(If)]TJ/F11 9.9626 Tf 182.522 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 20.795 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-291(all)-291(the)-291(pro)-28(cesses)-291(will)]TJ -222.606 -11.955 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F14 9.9626 Tf 142.079 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.795 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)]TJ/F14 9.9626 Tf 44.555 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1.)]TJ 0 g 0 G -/F27 9.9626 Tf -299.782 -19.505 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -299.783 -19.505 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf 166.874 -29.888 Td [(60)]TJ +/F8 9.9626 Tf 166.875 -29.888 Td [(65)]TJ 0 g 0 G ET endstream endobj -1266 0 obj +1324 0 obj << -/Length 1455 +/Length 1459 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(glob)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(glob)]TJ ET q -1 0 0 1 121.587 706.328 cm +1 0 0 1 172.397 706.328 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.024 706.129 Td [(x)]TJ +/F27 9.9626 Tf 175.834 706.129 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(where)-333(the)-334(lo)-27(cal)-334(parts)-333(m)28(ust)-334(b)-27(e)-334(gathered.)]TJ -11.25 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(or)-334(t)28(w)28(o)-334(arra)28(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 204.4 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(where)-333(the)-334(lo)-27(cal)-334(parts)-333(m)28(ust)-334(b)-27(e)-334(gathered.)]TJ -11.251 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(or)-333(t)28(w)28(o)-334(arra)28(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 204.401 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ 0 g 0 G /F27 9.9626 Tf -290.162 -19.925 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -500.124 Td [(61)]TJ + 141.968 -500.124 Td [(66)]TJ 0 g 0 G ET endstream endobj -1273 0 obj +1330 0 obj << -/Length 7803 +/Length 7828 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(scatter)-375(|)-375(Scatter)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -19.28 Td [(These)-315(subroutines)-315(scatters)-315(the)-315(p)-28(ortions)-315(of)-315(global)-315(dense)-315(matrix)-315(o)28(wned)-315(b)27(y)-315(a)-315(pro-)]TJ 0 -11.955 Td [(cess)-333(to)-334(all)-333(the)-333(pro)-28(cesses)-334(in)-333(the)-333(pro)-28(cesses)-334(grid.)]TJ/F11 9.9626 Tf 119.021 -25.291 Td [(l)-20(oc)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(scatter)-375(|)-375(Scatter)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -19.28 Td [(These)-315(subroutines)-315(scatters)-315(the)-315(p)-28(ortions)-315(of)-315(global)-315(dense)-315(matrix)-315(o)28(wned)-315(b)27(y)-315(a)-315(pro-)]TJ 0 -11.955 Td [(cess)-334(to)-333(all)-333(the)-334(p)1(ro)-28(cesses)-334(in)-333(the)-333(pro)-28(cesses)-334(grid.)]TJ/F11 9.9626 Tf 119.021 -25.291 Td [(l)-20(oc)]TJ ET q -1 0 0 1 282.633 649.802 cm +1 0 0 1 231.823 649.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 285.622 649.603 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F14 9.9626 Tf 6.084 1.494 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(scatter)]TJ/F8 9.9626 Tf 30.853 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(g)-36(l)-20(ob)]TJ +/F11 9.9626 Tf 234.812 649.603 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F14 9.9626 Tf 6.084 1.494 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(scatter)]TJ/F8 9.9626 Tf 30.853 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(g)-36(l)-19(o)-1(b)]TJ ET q -1 0 0 1 362.838 649.802 cm +1 0 0 1 312.028 649.802 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 365.827 649.603 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(\051)]TJ -220.815 -22.875 Td [(where:)]TJ +/F11 9.9626 Tf 315.017 649.603 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\051)]TJ -220.816 -22.875 Td [(where:)]TJ 0 g 0 G -/F11 9.9626 Tf 0 -21.361 Td [(g)-36(l)-19(o)-1(b)]TJ +/F11 9.9626 Tf 0 -21.361 Td [(g)-36(l)-20(ob)]TJ ET q -1 0 0 1 168.775 605.567 cm +1 0 0 1 117.965 605.567 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F11 9.9626 Tf 172.212 605.367 Td [(x)]TJ +/F11 9.9626 Tf 121.403 605.367 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(g)-36(l)-20(ob)]TJ +/F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(g)-36(l)-19(ob)]TJ ET q -1 0 0 1 289.785 605.567 cm +1 0 0 1 238.975 605.567 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 292.773 605.367 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(m;)]TJ/F7 6.9738 Tf 9.436 0 Td [(1:)]TJ/F10 6.9738 Tf 6.226 0 Td [(n)]TJ +/F11 9.9626 Tf 241.964 605.367 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(m;)]TJ/F7 6.9738 Tf 9.435 0 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(n)]TJ 0 g 0 G -/F11 9.9626 Tf -169.651 -20.345 Td [(l)-20(oc)]TJ +/F11 9.9626 Tf -169.652 -20.345 Td [(l)-20(oc)]TJ ET q -1 0 0 1 163.701 583.727 cm +1 0 0 1 112.892 583.727 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F11 9.9626 Tf 167.139 583.528 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ +/F11 9.9626 Tf 116.329 583.528 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ 0 g 0 G -/F8 9.9626 Tf 8.299 1.494 Td [(is)-333(the)-334(lo)-27(cal)-334(p)-28(or)1(tion)-334(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.703 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(.)]TJ +/F8 9.9626 Tf 8.298 1.494 Td [(is)-333(the)-334(lo)-27(c)-1(al)-333(p)-28(ortion)-333(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.704 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(.)]TJ 0 g 0 G /F11 9.9626 Tf -268.562 -21.839 Td [(scatter)]TJ 0 g 0 G -/F8 9.9626 Tf 35.834 0 Td [(is)-333(the)-334(scatter)-333(function.)]TJ +/F8 9.9626 Tf 35.835 0 Td [(is)-333(the)-334(scatter)-333(function.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G ET q -1 0 0 1 228.797 539.65 cm +1 0 0 1 177.988 539.65 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F11 9.9626 Tf 234.775 531.082 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.494 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ +/F11 9.9626 Tf 183.966 531.082 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.494 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ ET q -1 0 0 1 228.797 527.296 cm +1 0 0 1 177.988 527.296 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q BT -/F8 9.9626 Tf 234.775 518.729 Td [(In)28(teger)-9028(psb)]TJ +/F8 9.9626 Tf 183.966 518.729 Td [(In)28(teger)-9028(psb)]TJ ET q -1 0 0 1 370.782 518.928 cm +1 0 0 1 319.972 518.928 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 518.729 Td [(scatter)]TJ -138.996 -11.956 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ +/F8 9.9626 Tf 322.961 518.729 Td [(scatter)]TJ -138.995 -11.956 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ ET q -1 0 0 1 370.782 506.973 cm +1 0 0 1 319.972 506.973 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 506.773 Td [(scatter)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ +/F8 9.9626 Tf 322.961 506.773 Td [(scatter)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 495.017 cm +1 0 0 1 319.972 495.017 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 494.818 Td [(scatter)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ +/F8 9.9626 Tf 322.961 494.818 Td [(scatter)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ ET q -1 0 0 1 370.782 483.062 cm +1 0 0 1 319.972 483.062 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 482.863 Td [(scatter)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ +/F8 9.9626 Tf 322.961 482.863 Td [(scatter)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ ET q -1 0 0 1 370.782 471.107 cm +1 0 0 1 319.972 471.107 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 373.771 470.908 Td [(scatter)]TJ +/F8 9.9626 Tf 322.961 470.908 Td [(scatter)]TJ ET q -1 0 0 1 228.797 467.122 cm +1 0 0 1 177.988 467.122 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q 0 g 0 G BT -/F8 9.9626 Tf 276.386 439.083 Td [(T)83(able)-333(17:)-444(Data)-334(t)28(yp)-28(es)]TJ +/F8 9.9626 Tf 225.577 439.083 Td [(T)83(able)-333(20:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -124.304 -33.261 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.99 0 Td [(p)-148(s)-149(b)]TJ +/F27 9.9626 Tf -124.305 -33.261 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.991 0 Td [(p)-148(s)-149(b)]TJ ET q -1 0 0 1 202.107 406.021 cm +1 0 0 1 151.298 406.021 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 206.575 405.822 Td [(s)-149(c)-148(a)-149(t)-148(t)-148(e)-149(r)-254(\050)-215(g)-110(l)-110(o)-110(b)]TJ +/F8 9.9626 Tf 155.766 405.822 Td [(s)-148(c)-149(a)-148(t)-149(t)-148(e)-149(r)-254(\050)-215(g)-110(l)-110(o)-110(b)]TJ ET q -1 0 0 1 276.66 406.021 cm +1 0 0 1 225.851 406.021 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 280.744 405.822 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ +/F8 9.9626 Tf 229.934 405.822 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ ET q -1 0 0 1 317.987 406.021 cm +1 0 0 1 267.178 406.021 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 322.243 405.822 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 271.433 405.822 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 366.519 406.021 cm +1 0 0 1 315.709 406.021 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 370.63 405.822 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-864(r)-103(o)-103(o)-104(t)-367(,)-808(m)-47(o)-46(l)-47(d)-152(\051)]TJ +/F8 9.9626 Tf 319.82 405.822 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-864(r)-103(o)-103(o)-104(t)-367(,)-808(m)-47(o)-46(l)-47(d)-152(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -14006,54 +14710,54 @@ BT 0 -21.839 Td [(glob)]TJ ET q -1 0 0 1 172.397 331.576 cm +1 0 0 1 121.587 331.576 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 175.834 331.377 Td [(x)]TJ +/F27 9.9626 Tf 125.024 331.377 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(that)-333(m)28(ust)-334(b)-27(e)-334(scattered)-333(in)28(to)-334(lo)-28(cal)-333(pieces.)]TJ -11.251 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(or)-333(t)28(w)28(o)-334(arra)28(y)84(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(that)-333(m)28(ust)-334(b)-27(e)-334(scattered)-333(in)28(to)-334(lo)-28(cal)-333(pieces.)]TJ -11.25 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 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(rank)-333(one)-333(or)-334(t)28(w)28(o)-334(arra)28(y)84(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -21.839 Td [(desc)]TJ +/F27 9.9626 Tf -24.907 -21.839 Td [(desc)]TJ ET q -1 0 0 1 172.619 261.916 cm +1 0 0 1 121.81 261.916 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 261.717 Td [(a)]TJ +/F27 9.9626 Tf 125.247 261.717 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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 [(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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 214.095 cm +1 0 0 1 312.036 214.095 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 213.896 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 213.896 Td [(desc)]TJ ET q -1 0 0 1 387.532 214.095 cm +1 0 0 1 336.723 214.095 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 213.896 Td [(type)]TJ +/F30 9.9626 Tf 339.861 213.896 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -21.839 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(The)-420(pro)-27(ce)-1(ss)-419(that)-420(holds)-419(the)-420(global)-420(cop)28(y)83(.)-703(If)]TJ/F11 9.9626 Tf 194.21 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 22.228 0 Td [(=)]TJ/F14 9.9626 Tf 11.949 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-420(all)-419(the)-420(pro)-28(cesses)]TJ -237.16 -11.956 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-344(as)-1(:)-467(an)-344(in)28(tege)-1(r)-344(v)55(ariabl)1(e)]TJ/F14 9.9626 Tf 142.757 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.937 0 Td [(\024)]TJ/F11 9.9626 Tf 10.705 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.983 0 Td [(\024)]TJ/F11 9.9626 Tf 10.704 0 Td [(np)]TJ/F14 9.9626 Tf 13.282 0 Td [(\000)]TJ/F8 9.9626 Tf 10.038 0 Td [(1,)-347(default)]TJ/F30 9.9626 Tf 44.809 0 Td [(psb_root_)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)]TJ -316.037 -11.955 Td [(i.e.)-444(pro)-28(cess)-334(0.)]TJ +/F8 9.9626 Tf 25.931 0 Td [(The)-420(pro)-27(ces)-1(s)-419(that)-420(holds)-419(the)-420(global)-420(cop)28(y)83(.)-703(If)]TJ/F11 9.9626 Tf 194.21 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 22.228 0 Td [(=)]TJ/F14 9.9626 Tf 11.949 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-420(all)-419(the)-420(pro)-28(cesses)]TJ -237.16 -11.956 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-344(as:)-468(an)-344(in)28(teger)-345(v)55(ariab)1(le)]TJ/F14 9.9626 Tf 142.757 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.937 0 Td [(\024)]TJ/F11 9.9626 Tf 10.704 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.983 0 Td [(\024)]TJ/F11 9.9626 Tf 10.705 0 Td [(np)]TJ/F14 9.9626 Tf 13.281 0 Td [(\000)]TJ/F8 9.9626 Tf 10.038 0 Td [(1,)-348(defau)1(lt)]TJ/F30 9.9626 Tf 44.81 0 Td [(psb_root_)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)]TJ -316.037 -11.955 Td [(i.e.)-444(pro)-28(cess)-334(0.)]TJ 0 g 0 G - 141.968 -29.888 Td [(62)]TJ + 141.968 -29.888 Td [(67)]TJ 0 g 0 G ET endstream endobj -1282 0 obj +1340 0 obj << /Length 4181 >> @@ -14062,149 +14766,149 @@ stream 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(mold)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(mold)]TJ 0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -11.956 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)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.26 0 Td [(psb)]TJ +/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.899 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.261 0 Td [(psb)]TJ ET q -1 0 0 1 339.381 658.507 cm +1 0 0 1 390.19 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 342.519 658.308 Td [(T)]TJ +/F30 9.9626 Tf 393.329 658.308 Td [(T)]TJ ET q -1 0 0 1 348.377 658.507 cm +1 0 0 1 399.186 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 351.515 658.308 Td [(base)]TJ +/F30 9.9626 Tf 402.325 658.308 Td [(base)]TJ ET q -1 0 0 1 373.064 658.507 cm +1 0 0 1 423.874 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 376.202 658.308 Td [(vect)]TJ +/F30 9.9626 Tf 427.012 658.308 Td [(vect)]TJ ET q -1 0 0 1 397.751 658.507 cm +1 0 0 1 448.561 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 400.89 658.308 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)-334(lo)-27(c)]TJ +/F30 9.9626 Tf 451.699 658.308 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)-334(lo)-28(c)]TJ ET q -1 0 0 1 231.17 646.552 cm +1 0 0 1 281.979 646.552 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 234.159 646.353 Td [(x)-333(is)-334(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 284.968 646.353 Td [(x)-333(is)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 52.359 0 Td [(psb)]TJ +/F30 9.9626 Tf 52.36 0 Td [(psb)]TJ ET q -1 0 0 1 302.837 646.552 cm +1 0 0 1 353.646 646.552 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 305.975 646.353 Td [(T)]TJ +/F30 9.9626 Tf 356.784 646.353 Td [(T)]TJ ET q -1 0 0 1 311.833 646.552 cm +1 0 0 1 362.642 646.552 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 314.971 646.353 Td [(vect)]TJ +/F30 9.9626 Tf 365.781 646.353 Td [(vect)]TJ ET q -1 0 0 1 336.52 646.552 cm +1 0 0 1 387.33 646.552 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.658 646.353 Td [(type)]TJ +/F30 9.9626 Tf 390.468 646.353 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -260.685 -19.925 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -260.684 -19.925 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(lo)-32(c)]TJ ET q -1 0 0 1 114.904 606.702 cm +1 0 0 1 165.713 606.702 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 118.341 606.502 Td [(x)]TJ +/F27 9.9626 Tf 169.151 606.502 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(g)-36(l)-19(o)-1(b)]TJ +/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.117 0 Td [(g)-36(l)-20(ob)]TJ ET q -1 0 0 1 323.467 606.702 cm +1 0 0 1 374.277 606.702 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 326.456 606.502 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.348 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-244(as:)-400(a)-244(ran)1(k)-244(one)-244(or)-244(t)27(w)28(o)-244(ALLOCA)83(T)84(ABLE)-244(arra)28(y)-244(or)-244(an)-244(ob)-56(ject)-244(of)-244(t)28(yp)-28(e)]TJ +/F11 9.9626 Tf 377.266 606.502 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.349 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-244(as:)-400(a)-244(rank)-244(on)1(e)-245(or)-243(t)27(w)28(o)-244(ALLOCA)83(T)84(ABLE)-244(arra)28(y)-244(or)-244(an)-244(ob)-56(ject)-244(of)-244(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 0 -11.955 Td [(psb)]TJ ET q -1 0 0 1 141.121 546.926 cm +1 0 0 1 191.93 546.926 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 144.259 546.727 Td [(T)]TJ +/F30 9.9626 Tf 195.068 546.727 Td [(T)]TJ ET q -1 0 0 1 150.117 546.926 cm +1 0 0 1 200.926 546.926 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 153.255 546.727 Td [(vect)]TJ +/F30 9.9626 Tf 204.065 546.727 Td [(vect)]TJ ET q -1 0 0 1 174.804 546.926 cm +1 0 0 1 225.613 546.926 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 177.942 546.727 Td [(type)]TJ +/F30 9.9626 Tf 228.752 546.727 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 24.242 0 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(the)-334(t)28(yp)-28(e)-333(indicated)-333(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG - [-334(17)]TJ + [-333(20)]TJ 0 g 0 G [(.)]TJ 0 g 0 G /F27 9.9626 Tf -102.289 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -388.543 Td [(63)]TJ + 141.968 -388.543 Td [(68)]TJ 0 g 0 G ET endstream endobj -1286 0 obj +1344 0 obj << -/Length 6540 +/Length 6538 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 150.705 706.129 Td [(6)-1125(Data)-375(managemen)31(t)-375(routines)]TJ/F16 11.9552 Tf 0 -23.814 Td [(psb)]TJ +/F16 14.3462 Tf 99.895 706.129 Td [(6)-1125(Data)-375(managemen)31(t)-375(routines)]TJ/F16 11.9552 Tf 0 -23.814 Td [(psb)]TJ ET q -1 0 0 1 171.761 682.515 cm +1 0 0 1 120.951 682.515 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 682.315 Td [(cdall)-375(|)-375(Allo)-31(cates)-375(a)-375(comm)31(unication)-375(descriptor)]TJ +/F16 11.9552 Tf 124.986 682.315 Td [(cdall)-375(|)-375(Allo)-31(cates)-375(a)-375(comm)31(unication)-375(descriptor)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,parts=parts\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vg=vg,[mg=mg,flag=flag]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,nl=nl\051)]TJ 0 -11.956 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,repl=.true.\051)]TJ/F8 9.9626 Tf 14.944 -20.107 Td [(This)-314(subroutine)-314(initializes)-315(th)1(e)-315(comm)28(unication)-314(descriptor)-314(ass)-1(o)-27(ciated)-315(with)-314(an)]TJ -14.944 -11.955 Td [(index)-326(space.)-442(One)-326(of)-326(the)-327(op)1(tional)-327(argu)1(m)-1(en)28(ts)]TJ/F30 9.9626 Tf 193.679 0 Td [(parts)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vl)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(nl)]TJ/F8 9.9626 Tf 13.71 0 Td [(or)]TJ/F30 9.9626 Tf 12.133 0 Td [(repl)]TJ/F8 9.9626 Tf 24.17 0 Td [(m)28(ust)-326(b)-28(e)]TJ -308.858 -11.955 Td [(sp)-28(eci\014ed,)-333(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(sp)-28(eci\014c)-333(initialization)-334(strategy)84(.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,parts=parts\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vg=vg,[mg=mg,flag=flag]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,nl=nl\051)]TJ 0 -11.956 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,repl=.true.\051)]TJ/F8 9.9626 Tf 14.944 -20.107 Td [(This)-314(subroutine)-314(initializes)-315(the)-314(comm)28(unication)-314(descriptor)-314(as)-1(so)-27(ciated)-315(with)-314(an)]TJ -14.944 -11.955 Td [(index)-326(space.)-442(One)-326(of)-326(the)-327(option)1(al)-327(argumen)28(ts)]TJ/F30 9.9626 Tf 193.68 0 Td [(parts)]TJ/F8 9.9626 Tf 26.151 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(nl)]TJ/F8 9.9626 Tf 13.709 0 Td [(or)]TJ/F30 9.9626 Tf 12.133 0 Td [(repl)]TJ/F8 9.9626 Tf 24.171 0 Td [(m)28(ust)-326(b)-28(e)]TJ -308.859 -11.955 Td [(sp)-28(eci\014ed,)-333(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(sp)-28(eci\014c)-334(in)1(itialization)-334(strategy)84(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -18.477 Td [(On)-383(En)32(try)]TJ 0 g 0 G @@ -14215,156 +14919,806 @@ BT 0 g 0 G /F27 9.9626 Tf -33.797 -19.201 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(v)55(alue.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.201 Td [(vg)]TJ 0 g 0 G -/F8 9.9626 Tf 16.757 0 Td [(Data)-333(allo)-28(cation:)-444(eac)27(h)-333(index)]TJ/F11 9.9626 Tf 123.564 0 Td [(i)]TJ/F14 9.9626 Tf 6.2 0 Td [(2)-278(f)]TJ/F8 9.9626 Tf 14.39 0 Td [(1)]TJ/F11 9.9626 Tf 6.642 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 8.302 0 Td [(is)-333(allo)-28(cated)-334(t)1(o)-334(pro)-28(cess)]TJ/F11 9.9626 Tf 99.267 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051.)]TJ -294.958 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ +/F8 9.9626 Tf 16.757 0 Td [(Data)-333(allo)-28(cation:)-444(e)-1(ac)28(h)-333(index)]TJ/F11 9.9626 Tf 123.565 0 Td [(i)]TJ/F14 9.9626 Tf 6.199 0 Td [(2)-278(f)]TJ/F8 9.9626 Tf 14.391 0 Td [(1)]TJ/F11 9.9626 Tf 6.641 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 8.303 0 Td [(is)-333(allo)-28(cated)-333(to)-334(pro)-27(c)-1(ess)]TJ/F11 9.9626 Tf 99.266 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051.)]TJ -294.958 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.201 Td [(\015ag)]TJ 0 g 0 G -/F8 9.9626 Tf 22.644 0 Td [(Sp)-28(eci\014es)-333(whether)-333(e)-1(n)28(tries)-333(in)]TJ/F11 9.9626 Tf 121.932 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 13.617 0 Td [(are)-333(zero-)-334(or)-333(one-based.)]TJ -133.286 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 135.409 0 Td [(;)]TJ/F8 9.9626 Tf 4.428 0 Td [(1,)-333(default)-334(0.)]TJ +/F8 9.9626 Tf 22.644 0 Td [(Sp)-28(eci\014es)-333(whether)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 121.932 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 13.617 0 Td [(are)-333(zero-)-334(or)-333(one-based.)]TJ -133.286 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 135.409 0 Td [(;)]TJ/F8 9.9626 Tf 4.428 0 Td [(1,)-333(default)-334(0.)]TJ 0 g 0 G /F27 9.9626 Tf -164.744 -19.2 Td [(mg)]TJ 0 g 0 G -/F8 9.9626 Tf 20.257 0 Td [(the)-333(\050global\051)-334(n)28(um)28(b)-28(er)-333(of)-333(ro)27(ws)-333(of)-333(the)-334(probl)1(e)-1(m.)]TJ 4.65 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-332(as:)-444(an)-333(in)28(teger)-333(v)56(alue.)-444(I)-1(t)-332(is)-333(required)-332(if)]TJ/F30 9.9626 Tf 203.266 0 Td [(parts)]TJ/F8 9.9626 Tf 29.465 0 Td [(or)]TJ/F30 9.9626 Tf 12.198 0 Td [(repl)]TJ/F8 9.9626 Tf 24.235 0 Td [(is)-333(sp)-27(ec)-1(i)1(\014e)-1(d)1(,)]TJ -269.164 -11.955 Td [(it)-333(is)-334(optional)-333(if)]TJ/F30 9.9626 Tf 67.856 0 Td [(vg)]TJ/F8 9.9626 Tf 13.782 0 Td [(is)-333(sp)-28(eci\014ed.)]TJ +/F8 9.9626 Tf 20.258 0 Td [(the)-333(\050global\051)-334(n)28(um)28(b)-28(er)-333(of)-333(ro)27(ws)-333(of)-333(the)-334(pr)1(oblem)-1(.)]TJ 4.649 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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)-332(as:)-444(an)-333(in)28(teger)-333(v)56(alue.)-445(It)-332(is)-333(required)-332(if)]TJ/F30 9.9626 Tf 203.266 0 Td [(parts)]TJ/F8 9.9626 Tf 29.466 0 Td [(or)]TJ/F30 9.9626 Tf 12.197 0 Td [(repl)]TJ/F8 9.9626 Tf 24.235 0 Td [(is)-333(sp)-27(e)-1(ci\014)1(e)-1(d)1(,)]TJ -269.164 -11.955 Td [(it)-333(is)-334(optional)-333(if)]TJ/F30 9.9626 Tf 67.857 0 Td [(vg)]TJ/F8 9.9626 Tf 13.781 0 Td [(is)-333(sp)-28(eci\014ed.)]TJ 0 g 0 G /F27 9.9626 Tf -106.545 -19.201 Td [(parts)]TJ 0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(the)-333(subroutine)-334(th)1(at)-334(de\014nes)-333(the)-333(partitioning)-334(sc)28(heme.)]TJ -5.702 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(subroutine.)]TJ +/F8 9.9626 Tf 30.609 0 Td [(the)-333(subroutine)-334(th)1(at)-334(de\014nes)-333(the)-334(p)1(artitioning)-334(sc)28(heme.)]TJ -5.702 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(subroutine.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.201 Td [(vl)]TJ 0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(Data)-363(allo)-28(cation:)-504(the)-363(set)-364(of)-363(global)-363(indices)]TJ/F11 9.9626 Tf 182.789 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(\0501)-328(:)]TJ/F11 9.9626 Tf 18.15 0 Td [(nl)]TJ/F8 9.9626 Tf 9.149 0 Td [(\051)-363(b)-28(elonging)-363(to)-363(the)-364(callin)1(g)]TJ -207.747 -11.955 Td [(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.074 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ +/F8 9.9626 Tf 14.211 0 Td [(Data)-363(allo)-28(cation:)-504(the)-363(set)-364(of)-363(global)-363(indices)]TJ/F11 9.9626 Tf 182.789 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(\0501)-328(:)]TJ/F11 9.9626 Tf 18.151 0 Td [(nl)]TJ/F8 9.9626 Tf 9.148 0 Td [(\051)-363(b)-28(elonging)-363(to)-363(the)-364(calling)]TJ -207.747 -11.955 Td [(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ 0 g 0 G - 141.967 -29.888 Td [(64)]TJ + 141.968 -29.888 Td [(69)]TJ 0 g 0 G ET endstream endobj -1291 0 obj +1233 0 obj << -/Length 6638 +/Type /ObjStm +/N 100 +/First 986 +/Length 11861 +>> +stream +1231 0 272 59 1232 117 1228 176 1236 308 1234 447 1238 594 276 652 1235 709 1244 789 +1239 946 1240 1090 1241 1237 1246 1383 280 1442 1247 1500 1248 1559 1249 1618 1250 1677 1243 1736 +1254 1868 1258 2016 1259 2143 1260 2186 1261 2393 1262 2631 1263 2907 1242 3143 1252 3290 1256 3437 +1257 3495 1253 3554 1267 3702 1269 3820 1266 3879 1275 3960 1271 4117 1272 4261 1273 4408 1277 4555 +284 4613 1278 4670 1279 4729 1280 4787 1281 4845 1274 4903 1288 5048 1283 5205 1285 5352 1286 5497 +1290 5644 1291 5703 1292 5762 1293 5821 1287 5879 1296 6011 1298 6129 1295 6187 1300 6267 1303 6385 +1304 6512 1305 6555 1306 6762 1307 7000 1308 7276 1302 7512 1294 7571 1299 7630 1315 7726 1311 7883 +1312 8027 1313 8174 1317 8321 288 8379 1318 8436 1319 8495 1320 8553 1321 8611 1314 8669 1323 8826 +1325 8944 1322 9003 1329 9096 1326 9235 1331 9382 292 9440 1332 9497 1333 9556 1334 9614 1328 9672 +1339 9829 1327 9986 1336 10130 1337 10274 1341 10420 1338 10479 1343 10585 1345 10703 296 10761 300 10818 +% 1231 0 obj +<< +/D [1229 0 R /XYZ 149.705 753.953 null] +>> +% 272 0 obj +<< +/D [1229 0 R /XYZ 150.705 720.077 null] +>> +% 1232 0 obj +<< +/D [1229 0 R /XYZ 320.941 556.917 null] +>> +% 1228 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1236 0 obj +<< +/Type /Page +/Contents 1237 0 R +/Resources 1235 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +/Annots [ 1234 0 R ] +>> +% 1234 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [299.536 657.464 306.51 668.312] +/A << /S /GoTo /D (section.6) >> +>> +% 1238 0 obj +<< +/D [1236 0 R /XYZ 98.895 753.953 null] +>> +% 276 0 obj +<< +/D [1236 0 R /XYZ 99.895 716.092 null] +>> +% 1235 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1244 0 obj +<< +/Type /Page +/Contents 1245 0 R +/Resources 1243 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +/Annots [ 1239 0 R 1240 0 R 1241 0 R ] +>> +% 1239 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [419.358 343.463 495.412 354.588] +/A << /S /GoTo /D (vdata) >> +>> +% 1240 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [376.221 331.785 388.176 342.633] +/A << /S /GoTo /D (table.17) >> +>> +% 1241 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 264.029 412.588 275.154] +/A << /S /GoTo /D (descdata) >> +>> +% 1246 0 obj +<< +/D [1244 0 R /XYZ 149.705 753.953 null] +>> +% 280 0 obj +<< +/D [1244 0 R /XYZ 150.705 720.077 null] +>> +% 1247 0 obj +<< +/D [1244 0 R /XYZ 320.941 514.036 null] +>> +% 1248 0 obj +<< +/D [1244 0 R /XYZ 150.705 482.745 null] +>> +% 1249 0 obj +<< +/D [1244 0 R /XYZ 150.705 484.682 null] +>> +% 1250 0 obj +<< +/D [1244 0 R /XYZ 150.705 472.727 null] +>> +% 1243 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1254 0 obj +<< +/Type /Page +/Contents 1255 0 R +/Resources 1253 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +/Annots [ 1242 0 R 1252 0 R ] +>> +% 1258 0 obj +<< +/Producer (GPL Ghostscript 9.22) +/CreationDate (D:20180323100645Z00'00') +/ModDate (D:20180323100645Z00'00') +>> +% 1259 0 obj +<< +/Type /ExtGState +/OPM 1 +>> +% 1260 0 obj +<< +/BaseFont /XYUGDR+Times-Roman +/FontDescriptor 1262 0 R +/Type /Font +/FirstChar 48 +/LastChar 57 +/Widths [ 500 500 500 500 500 500 500 500 500 500] +/Encoding /WinAnsiEncoding +/Subtype /Type1 +>> +% 1261 0 obj +<< +/BaseFont /XISTAL+Times-Bold +/FontDescriptor 1263 0 R +/Type /Font +/FirstChar 48 +/LastChar 80 +/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] +/Encoding /WinAnsiEncoding +/Subtype /Type1 +>> +% 1262 0 obj +<< +/Type /FontDescriptor +/FontName /XYUGDR+Times-Roman +/FontBBox [ 0 -14 476 688] +/Flags 65568 +/Ascent 688 +/CapHeight 688 +/Descent -14 +/ItalicAngle 0 +/StemV 71 +/MissingWidth 250 +/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) +/FontFile3 1264 0 R +>> +% 1263 0 obj +<< +/Type /FontDescriptor +/FontName /XISTAL+Times-Bold +/FontBBox [ 0 -13 600 688] +/Flags 65568 +/Ascent 688 +/CapHeight 676 +/Descent -13 +/ItalicAngle 0 +/StemV 90 +/MissingWidth 250 +/CharSet (/P/one/zero) +/FontFile3 1265 0 R +>> +% 1242 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [162.826 625.431 174.781 634.343] +/A << /S /GoTo /D (table.17) >> +>> +% 1252 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [407.097 278.167 414.071 290.786] +/A << /S /GoTo /D (figure.7) >> +>> +% 1256 0 obj +<< +/D [1254 0 R /XYZ 98.895 753.953 null] +>> +% 1257 0 obj +<< +/D [1254 0 R /XYZ 232.883 317.353 null] +>> +% 1253 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R /F30 784 0 R >> +/XObject << /Im3 1251 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1267 0 obj +<< +/Type /Page +/Contents 1268 0 R +/Resources 1266 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1222 0 R +>> +% 1269 0 obj +<< +/D [1267 0 R /XYZ 149.705 753.953 null] +>> +% 1266 0 obj +<< +/Font << /F46 1270 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1275 0 obj +<< +/Type /Page +/Contents 1276 0 R +/Resources 1274 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +/Annots [ 1271 0 R 1272 0 R 1273 0 R ] +>> +% 1271 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 343.981 444.603 355.106] +/A << /S /GoTo /D (vdata) >> +>> +% 1272 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [325.411 332.303 337.366 343.151] +/A << /S /GoTo /D (table.18) >> +>> +% 1273 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 264.991 361.779 276.116] +/A << /S /GoTo /D (descdata) >> +>> +% 1277 0 obj +<< +/D [1275 0 R /XYZ 98.895 753.953 null] +>> +% 284 0 obj +<< +/D [1275 0 R /XYZ 99.895 720.077 null] +>> +% 1278 0 obj +<< +/D [1275 0 R /XYZ 270.132 511.222 null] +>> +% 1279 0 obj +<< +/D [1275 0 R /XYZ 99.895 480.819 null] +>> +% 1280 0 obj +<< +/D [1275 0 R /XYZ 99.895 482.756 null] +>> +% 1281 0 obj +<< +/D [1275 0 R /XYZ 99.895 470.801 null] +>> +% 1274 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1288 0 obj +<< +/Type /Page +/Contents 1289 0 R +/Resources 1287 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +/Annots [ 1283 0 R 1285 0 R 1286 0 R ] +>> +% 1283 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [253.818 555.748 265.774 566.597] +/A << /S /GoTo /D (table.18) >> +>> +% 1285 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [457.829 326.22 464.803 338.84] +/A << /S /GoTo /D (figure.8) >> +>> +% 1286 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [357.569 302.697 364.543 313.546] +/A << /S /GoTo /D (figure.7) >> +>> +% 1290 0 obj +<< +/D [1288 0 R /XYZ 149.705 753.953 null] +>> +% 1291 0 obj +<< +/D [1288 0 R /XYZ 150.705 465.033 null] +>> +% 1292 0 obj +<< +/D [1288 0 R /XYZ 150.705 431.215 null] +>> +% 1293 0 obj +<< +/D [1288 0 R /XYZ 150.705 387.38 null] +>> +% 1287 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R /F10 786 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1296 0 obj +<< +/Type /Page +/Contents 1297 0 R +/Resources 1295 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +>> +% 1298 0 obj +<< +/D [1296 0 R /XYZ 98.895 753.953 null] +>> +% 1295 0 obj +<< +/Font << /F31 790 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1300 0 obj +<< +/Type /Page +/Contents 1301 0 R +/Resources 1299 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +>> +% 1303 0 obj +<< +/Producer (GPL Ghostscript 9.22) +/CreationDate (D:20180323100658Z00'00') +/ModDate (D:20180323100658Z00'00') +>> +% 1304 0 obj +<< +/Type /ExtGState +/OPM 1 +>> +% 1305 0 obj +<< +/BaseFont /XYUGDR+Times-Roman +/FontDescriptor 1307 0 R +/Type /Font +/FirstChar 48 +/LastChar 57 +/Widths [ 500 500 500 500 500 500 500 500 500 500] +/Encoding /WinAnsiEncoding +/Subtype /Type1 +>> +% 1306 0 obj +<< +/BaseFont /XISTAL+Times-Bold +/FontDescriptor 1308 0 R +/Type /Font +/FirstChar 48 +/LastChar 80 +/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] +/Encoding /WinAnsiEncoding +/Subtype /Type1 +>> +% 1307 0 obj +<< +/Type /FontDescriptor +/FontName /XYUGDR+Times-Roman +/FontBBox [ 0 -14 476 688] +/Flags 65568 +/Ascent 688 +/CapHeight 688 +/Descent -14 +/ItalicAngle 0 +/StemV 71 +/MissingWidth 250 +/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) +/FontFile3 1309 0 R +>> +% 1308 0 obj +<< +/Type /FontDescriptor +/FontName /XISTAL+Times-Bold +/FontBBox [ 0 -13 600 688] +/Flags 65568 +/Ascent 688 +/CapHeight 676 +/Descent -13 +/ItalicAngle 0 +/StemV 90 +/MissingWidth 250 +/CharSet (/P/one/zero) +/FontFile3 1310 0 R +>> +% 1302 0 obj +<< +/D [1300 0 R /XYZ 149.705 753.953 null] +>> +% 1294 0 obj +<< +/D [1300 0 R /XYZ 283.692 272.519 null] +>> +% 1299 0 obj +<< +/Font << /F8 573 0 R >> +/XObject << /Im4 1284 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1315 0 obj +<< +/Type /Page +/Contents 1316 0 R +/Resources 1314 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +/Annots [ 1311 0 R 1312 0 R 1313 0 R ] +>> +% 1311 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [368.549 295.182 444.603 306.307] +/A << /S /GoTo /D (vdata) >> +>> +% 1312 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [205.998 285.441 217.953 294.352] +/A << /S /GoTo /D (table.19) >> +>> +% 1313 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 215.901 361.779 227.026] +/A << /S /GoTo /D (descdata) >> +>> +% 1317 0 obj +<< +/D [1315 0 R /XYZ 98.895 753.953 null] +>> +% 288 0 obj +<< +/D [1315 0 R /XYZ 99.895 720.077 null] +>> +% 1318 0 obj +<< +/D [1315 0 R /XYZ 270.132 466.542 null] +>> +% 1319 0 obj +<< +/D [1315 0 R /XYZ 99.895 435.558 null] +>> +% 1320 0 obj +<< +/D [1315 0 R /XYZ 99.895 435.558 null] +>> +% 1321 0 obj +<< +/D [1315 0 R /XYZ 99.895 423.603 null] +>> +% 1314 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1323 0 obj +<< +/Type /Page +/Contents 1324 0 R +/Resources 1322 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1282 0 R +>> +% 1325 0 obj +<< +/D [1323 0 R /XYZ 149.705 753.953 null] +>> +% 1322 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1329 0 obj +<< +/Type /Page +/Contents 1330 0 R +/Resources 1328 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +/Annots [ 1326 0 R ] +>> +% 1326 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 210.686 361.779 221.811] +/A << /S /GoTo /D (descdata) >> +>> +% 1331 0 obj +<< +/D [1329 0 R /XYZ 98.895 753.953 null] +>> +% 292 0 obj +<< +/D [1329 0 R /XYZ 99.895 720.077 null] +>> +% 1332 0 obj +<< +/D [1329 0 R /XYZ 270.132 451.038 null] +>> +% 1333 0 obj +<< +/D [1329 0 R /XYZ 99.895 417.777 null] +>> +% 1334 0 obj +<< +/D [1329 0 R /XYZ 99.895 417.777 null] +>> +% 1328 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F10 786 0 R /F14 787 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1339 0 obj +<< +/Type /Page +/Contents 1340 0 R +/Resources 1338 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +/Annots [ 1327 0 R 1336 0 R 1337 0 R ] +>> +% 1327 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [336.331 643.143 412.385 654.268] +/A << /S /GoTo /D (vdata) >> +>> +% 1336 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [174.615 543.516 250.669 554.641] +/A << /S /GoTo /D (vdata) >> +>> +% 1337 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [473.75 543.516 485.705 554.641] +/A << /S /GoTo /D (table.20) >> +>> +% 1341 0 obj +<< +/D [1339 0 R /XYZ 149.705 753.953 null] +>> +% 1338 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1343 0 obj +<< +/Type /Page +/Contents 1344 0 R +/Resources 1342 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +>> +% 1345 0 obj +<< +/D [1343 0 R /XYZ 98.895 753.953 null] +>> +% 296 0 obj +<< +/D [1343 0 R /XYZ 99.895 716.092 null] +>> +% 300 0 obj +<< +/D [1343 0 R /XYZ 99.895 696.263 null] +>> + +endstream +endobj +1350 0 obj +<< +/Length 6631 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(nl)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(nl)]TJ 0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Data)-223(allo)-28(cation:)-389(in)-222(a)-223(generalized)-223(blo)-28(c)28(k-ro)28(w)-223(distribution)-223(the)-222(n)27(um)28(b)-28(er)-222(of)-223(indices)]TJ 10.378 -11.955 Td [(b)-28(elonging)-333(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(v)55(alue.)-444(Ma)28(y)-334(b)-27(e)-334(sp)-28(eci\014ed)-333(together)-333(with)]TJ/F30 9.9626 Tf 272.479 0 Td [(vl)]TJ/F8 9.9626 Tf 10.46 0 Td [(.)]TJ +/F8 9.9626 Tf 14.529 0 Td [(Data)-223(allo)-28(cation)1(:)-390(in)-222(a)-223(generalized)-223(blo)-28(c)28(k-ro)28(w)-223(distribution)-223(the)-222(n)27(um)28(b)-28(er)-222(of)-223(indices)]TJ 10.377 -11.955 Td [(b)-28(elonging)-333(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Ma)28(y)-334(b)-28(e)-333(sp)-28(eci\014ed)-333(together)-333(with)]TJ/F30 9.9626 Tf 272.479 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -307.846 -20.135 Td [(repl)]TJ 0 g 0 G -/F8 9.9626 Tf 24.499 0 Td [(Data)-351(allo)-28(cation:)-480(build)-351(a)-351(replicated)-351(index)-351(space)-351(\050i.e.)-498(all)-351(pro)-28(cesses)-351(o)27(wn)-351(all)]TJ 0.408 -11.955 Td [(indices\051.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(th)1(e)-334(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(.true.)]TJ +/F8 9.9626 Tf 24.498 0 Td [(Data)-351(allo)-28(cation:)-480(build)-351(a)-351(replicated)-351(index)-351(space)-351(\050i.e.)-498(all)-351(pro)-28(cesses)-351(o)27(wn)-351(all)]TJ 0.408 -11.955 Td [(indices\051.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(.true.)]TJ 0 g 0 G -/F27 9.9626 Tf -156.691 -20.135 Td [(globalc)32(hec)32(k)]TJ +/F27 9.9626 Tf -156.69 -20.135 Td [(globalc)32(hec)32(k)]TJ 0 g 0 G -/F8 9.9626 Tf 61.948 0 Td [(Data)-333(allo)-28(cation:)-445(d)1(o)-334(global)-333(c)28(hec)27(ks)-333(on)-333(the)-334(lo)-27(cal)-334(index)-333(lists)]TJ/F30 9.9626 Tf 250.201 0 Td [(vl)]TJ/F8 9.9626 Tf -287.242 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(logical)-333(v)55(alue,)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ +/F8 9.9626 Tf 61.948 0 Td [(Data)-333(allo)-28(cation:)-444(do)-334(global)-333(c)28(hec)27(ks)-333(on)-333(the)-334(lo)-27(cal)-334(index)-333(lists)]TJ/F30 9.9626 Tf 250.201 0 Td [(vl)]TJ/F8 9.9626 Tf -287.243 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue,)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ 0 g 0 G -/F27 9.9626 Tf -187.963 -20.135 Td [(lidx)]TJ +/F27 9.9626 Tf -187.962 -20.135 Td [(lidx)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Data)-353(allo)-28(cation:)-484(the)-353(set)-353(of)-353(lo)-28(cal)-353(indices)]TJ/F11 9.9626 Tf 176.172 0 Td [(l)-20(idx)]TJ/F8 9.9626 Tf 17.48 0 Td [(\0501)-311(:)]TJ/F11 9.9626 Tf 17.814 0 Td [(nl)]TJ/F8 9.9626 Tf 9.149 0 Td [(\051)-353(to)-353(b)-28(e)-353(assigned)-353(to)-353(the)]TJ -219.466 -11.955 Td [(global)-333(indices)]TJ/F11 9.9626 Tf 62.045 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(.)]TJ -70.4 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Data)-353(allo)-28(cation:)-484(the)-353(set)-353(of)-353(lo)-28(cal)-353(indices)]TJ/F11 9.9626 Tf 176.171 0 Td [(l)-20(idx)]TJ/F8 9.9626 Tf 17.481 0 Td [(\0501)-311(:)]TJ/F11 9.9626 Tf 17.814 0 Td [(nl)]TJ/F8 9.9626 Tf 9.149 0 Td [(\051)-353(to)-353(b)-28(e)-353(assigned)-353(to)-353(the)]TJ -219.467 -11.955 Td [(global)-333(indices)]TJ/F11 9.9626 Tf 62.046 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(.)]TJ -70.401 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -22.127 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -24.906 -22.127 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -20.135 Td [(desc)]TJ ET q -1 0 0 1 121.81 376.512 cm +1 0 0 1 172.619 376.512 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 376.313 Td [(a)]TJ +/F27 9.9626 Tf 176.057 376.313 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 328.692 cm +1 0 0 1 362.845 328.692 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 328.492 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 328.492 Td [(desc)]TJ ET q -1 0 0 1 336.723 328.692 cm +1 0 0 1 387.532 328.692 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 328.492 Td [(type)]TJ +/F30 9.9626 Tf 390.67 328.492 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -20.135 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -22.128 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -22.128 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -20.082 Td [(1.)]TJ +/F8 9.9626 Tf 12.176 -20.082 Td [(1.)]TJ 0 g 0 G - [-500(One)-241(of)-241(the)-240(optional)-241(argumen)28(ts)]TJ/F30 9.9626 Tf 144.914 0 Td [(parts)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vl)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(nl)]TJ/F8 9.9626 Tf 12.86 0 Td [(or)]TJ/F30 9.9626 Tf 11.283 0 Td [(repl)]TJ/F8 9.9626 Tf 23.32 0 Td [(m)28(ust)-241(b)-28(e)-241(sp)-27(e)-1(ci\014)1(e)-1(d)1(,)]TJ -242.773 -11.956 Td [(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(initialization)-333(strategy)-334(as)-333(follo)28(ws:)]TJ + [-500(One)-241(of)-241(the)-240(optional)-241(argumen)28(ts)]TJ/F30 9.9626 Tf 144.915 0 Td [(parts)]TJ/F8 9.9626 Tf 26.151 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(nl)]TJ/F8 9.9626 Tf 12.859 0 Td [(or)]TJ/F30 9.9626 Tf 11.283 0 Td [(repl)]TJ/F8 9.9626 Tf 23.321 0 Td [(m)28(ust)-241(b)-28(e)-241(sp)-27(eci\014ed,)]TJ -242.774 -11.956 Td [(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(initialization)-333(strategy)-334(as)-333(follo)28(ws:)]TJ 0 g 0 G /F27 9.9626 Tf 0 -20.135 Td [(parts)]TJ 0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(In)-337(this)-338(case)-338(w)28(e)-337(ha)28(v)27(e)-337(a)-338(subroutine)-337(sp)-28(ecifying)-337(the)-338(mapping)-337(b)-28(et)28(w)28(een)]TJ -8.691 -11.955 Td [(global)-225(indices)-225(and)-225(pro)-28(cess/lo)-27(c)-1(al)-225(i)1(ndex)-225(pairs.)-409(If)-225(this)-225(optional)-225(ar)1(gume)-1(n)28(t)]TJ 0 -11.955 Td [(is)-316(sp)-28(eci\014ed,)-320(then)-316(it)-317(is)-316(mandatory)-316(to)-317(sp)-28(ecify)-316(the)-316(argumen)28(t)]TJ/F30 9.9626 Tf 251.562 0 Td [(mg)]TJ/F8 9.9626 Tf 13.613 0 Td [(as)-316(w)27(ell.)]TJ -265.175 -11.955 Td [(The)-333(subroutine)-334(m)28(ust)-333(conform)-333(to)-334(the)-333(follo)28(wing)-334(in)28(terface:)]TJ +/F8 9.9626 Tf 30.609 0 Td [(In)-337(this)-338(case)-338(w)28(e)-337(ha)27(v)28(e)-337(a)-338(subroutine)-337(sp)-28(ecifying)-337(the)-338(mapping)-337(b)-28(et)28(w)28(ee)-1(n)]TJ -8.691 -11.955 Td [(global)-225(indices)-225(and)-225(pro)-28(cess/lo)-28(cal)-225(in)1(dex)-225(pairs.)-409(If)-225(this)-225(optional)-225(argu)1(m)-1(en)28(t)]TJ 0 -11.955 Td [(is)-316(sp)-28(eci\014ed,)-320(then)-316(it)-317(is)-316(mandatory)-316(to)-317(sp)-28(ecify)-316(the)-316(argumen)27(t)]TJ/F30 9.9626 Tf 251.563 0 Td [(mg)]TJ/F8 9.9626 Tf 13.612 0 Td [(as)-316(w)27(ell.)]TJ -265.175 -11.955 Td [(The)-333(subroutine)-334(m)28(ust)-333(conform)-333(to)-334(the)-333(follo)28(wing)-334(in)28(terface:)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 10.461 -18.09 Td [(interface)]TJ 15.691 -11.955 Td [(subroutine)-525(psb_parts\050glob_index,mg,np,pv,nv\051)]TJ 0 g 0 G -/F8 9.9626 Tf 93.898 -29.888 Td [(65)]TJ +/F8 9.9626 Tf 93.898 -29.888 Td [(70)]TJ 0 g 0 G ET endstream endobj -1297 0 obj +1356 0 obj << -/Length 10049 +/Length 10081 >> stream 0 g 0 G 0 g 0 G BT -/F30 9.9626 Tf 234.142 706.129 Td [(integer,)-525(intent)-525(\050in\051)-1050(::)-525(glob_index,np,mg)]TJ 0 -11.955 Td [(integer,)-525(intent)-525(\050out\051)-525(::)-525(nv,)-525(pv\050*\051)]TJ -10.461 -11.955 Td [(end)-525(subroutine)-525(psb_parts)]TJ -15.691 -11.956 Td [(end)-525(interface)]TJ/F8 9.9626 Tf -10.461 -17.586 Td [(The)-333(input)-334(argumen)28(ts)-333(are:)]TJ +/F30 9.9626 Tf 183.332 706.129 Td [(integer,)-525(intent)-525(\050in\051)-1050(::)-525(glob_index,np,mg)]TJ 0 -11.955 Td [(integer,)-525(intent)-525(\050out\051)-525(::)-525(nv,)-525(pv\050*\051)]TJ -10.46 -11.955 Td [(end)-525(subroutine)-525(psb_parts)]TJ -15.691 -11.956 Td [(end)-525(interface)]TJ/F8 9.9626 Tf -10.461 -17.586 Td [(The)-333(input)-334(argu)1(m)-1(en)28(ts)-333(are:)]TJ 0 g 0 G /F27 9.9626 Tf 0 -15.594 Td [(glob)]TJ ET q -1 0 0 1 219.221 637.283 cm +1 0 0 1 168.412 637.283 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 222.658 637.083 Td [(index)]TJ +/F27 9.9626 Tf 171.849 637.083 Td [(index)]TJ 0 g 0 G -/F8 9.9626 Tf 32.192 0 Td [(The)-333(global)-334(index)-333(to)-333(b)-28(e)-333(mapp)-28(ed;)]TJ +/F8 9.9626 Tf 32.191 0 Td [(The)-333(global)-334(index)-333(to)-333(b)-28(e)-333(mapp)-28(ed;)]TJ 0 g 0 G -/F27 9.9626 Tf -57.321 -13.774 Td [(np)]TJ +/F27 9.9626 Tf -57.32 -13.774 Td [(np)]TJ 0 g 0 G -/F8 9.9626 Tf 17.712 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(pro)-28(cesses)-333(in)-334(the)-333(mapping;)]TJ +/F8 9.9626 Tf 17.711 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(pro)-28(cesses)-333(in)-334(the)-333(mapping;)]TJ 0 g 0 G -/F27 9.9626 Tf -17.712 -13.774 Td [(mg)]TJ +/F27 9.9626 Tf -17.711 -13.774 Td [(mg)]TJ 0 g 0 G -/F8 9.9626 Tf 20.258 0 Td [(The)-333(total)-334(n)28(um)28(b)-28(er)-333(of)-333(global)-334(ro)28(ws)-333(in)-334(th)1(e)-334(mapping;)]TJ -20.258 -15.594 Td [(The)-333(output)-334(argumen)28(ts)-333(are:)]TJ +/F8 9.9626 Tf 20.257 0 Td [(The)-333(total)-334(n)28(um)28(b)-28(er)-333(of)-333(global)-334(ro)28(ws)-333(in)-334(the)-333(mapping;)]TJ -20.257 -15.594 Td [(The)-333(output)-334(argu)1(m)-1(en)28(ts)-333(are:)]TJ 0 g 0 G /F27 9.9626 Tf 0 -15.594 Td [(n)32(v)]TJ 0 g 0 G -/F8 9.9626 Tf 17.075 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(en)28(tries)-334(in)]TJ/F30 9.9626 Tf 111.637 0 Td [(pv)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)]TJ +/F8 9.9626 Tf 17.075 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(en)28(tries)-334(in)]TJ/F30 9.9626 Tf 111.637 0 Td [(pv)]TJ/F8 9.9626 Tf 10.46 0 Td [(;)]TJ 0 g 0 G -/F27 9.9626 Tf -139.173 -13.774 Td [(p)32(v)]TJ +/F27 9.9626 Tf -139.172 -13.774 Td [(p)32(v)]TJ 0 g 0 G -/F8 9.9626 Tf 17.075 0 Td [(A)-481(v)28(ector)-481(con)28(taining)-481(the)-481(indi)1(c)-1(es)-480(of)-481(the)-481(pro)-28(cesses)-481(to)-481(whic)28(h)-481(the)]TJ 1.555 -11.955 Td [(global)-468(index)-468(should)-468(b)-28(e)-468(assigend;)-536(eac)28(h)-468(en)28(try)-468(m)28(ust)-469(satisfy)-468(0)]TJ/F14 9.9626 Tf 270.508 0 Td [(\024)]TJ/F11 9.9626 Tf -270.508 -11.956 Td [(pv)]TJ/F8 9.9626 Tf 10.199 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 8.603 0 Td [(<)-475(np)]TJ/F8 9.9626 Tf 23.47 0 Td [(;)-511(i)1(f)]TJ/F11 9.9626 Tf 18.163 0 Td [(nv)-511(>)]TJ/F8 9.9626 Tf 28.373 0 Td [(1)-451(w)27(e)-451(ha)28(v)27(e)-451(an)-452(in)1(dex)-452(assigned)-451(to)-452(m)28(ultiple)]TJ -96.115 -11.955 Td [(pro)-28(cesses,)-333(i.e.)-445(w)28(e)-333(ha)27(v)28(e)-333(an)-333(o)27(v)28(erlap)-333(among)-334(t)1(he)-334(sub)-28(domains.)]TJ +/F8 9.9626 Tf 17.075 0 Td [(A)-481(v)28(ector)-481(con)28(taining)-481(the)-481(ind)1(ice)-1(s)-480(of)-481(the)-481(pro)-28(cesses)-481(to)-481(whic)28(h)-481(the)]TJ 1.555 -11.955 Td [(global)-468(index)-468(should)-468(b)-28(e)-468(assigend;)-535(e)-1(ac)28(h)-468(en)28(try)-468(m)28(ust)-469(satisfy)-468(0)]TJ/F14 9.9626 Tf 270.508 0 Td [(\024)]TJ/F11 9.9626 Tf -270.508 -11.956 Td [(pv)]TJ/F8 9.9626 Tf 10.199 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 8.603 0 Td [(<)-475(np)]TJ/F8 9.9626 Tf 23.47 0 Td [(;)-510(if)]TJ/F11 9.9626 Tf 18.163 0 Td [(nv)-511(>)]TJ/F8 9.9626 Tf 28.373 0 Td [(1)-451(w)27(e)-451(ha)28(v)27(e)-451(an)-452(i)1(ndex)-452(assigned)-451(to)-452(m)28(ultiple)]TJ -96.115 -11.955 Td [(pro)-28(cesses,)-333(i.e.)-445(w)28(e)-333(ha)27(v)28(e)-333(an)-333(o)27(v)28(erlap)-333(among)-333(the)-334(sub)-28(domain)1(s)-1(.)]TJ 0 g 0 G /F27 9.9626 Tf -40.548 -15.594 Td [(vg)]TJ 0 g 0 G -/F8 9.9626 Tf 16.757 0 Td [(In)-398(th)1(is)-398(case)-398(the)-397(asso)-28(ciation)-398(b)-27(e)-1(t)28(w)28(een)-398(an)-397(index)-398(and)-397(a)-398(pro)-27(ces)-1(s)-397(is)-398(sp)-28(ec-)]TJ 5.161 -11.955 Td [(i\014ed)-456(via)-456(an)-456(in)28(tege)-1(r)-456(v)28(ector)]TJ/F30 9.9626 Tf 120.743 0 Td [(vg\0501:mg\051)]TJ/F8 9.9626 Tf 41.842 0 Td [(;)-518(eac)28(h)-456(index)]TJ/F11 9.9626 Tf 59.63 0 Td [(i)]TJ/F14 9.9626 Tf 8.238 0 Td [(2)-482(f)]TJ/F8 9.9626 Tf 16.429 0 Td [(1)]TJ/F11 9.9626 Tf 6.642 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 9.526 0 Td [(is)]TJ -290.19 -11.955 Td [(assigned)-449(to)-449(pro)-28(cess)]TJ/F11 9.9626 Tf 89.776 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051.)-792(The)-449(v)28(ector)]TJ/F30 9.9626 Tf 67.232 0 Td [(vg)]TJ/F8 9.9626 Tf 14.935 0 Td [(m)28(ust)-449(b)-28(e)-449(iden)28(tica)-1(l)-449(on)-449(all)]TJ -189.546 -11.955 Td [(calling)-452(pro)-28(cesses;)-513(it)1(s)-453(en)28(tries)-453(ma)28(y)-453(ha)28(v)28(e)-453(th)1(e)-453(ranges)-453(\0500)]TJ/F11 9.9626 Tf 236.604 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 27.281 0 Td [(\000)]TJ/F8 9.9626 Tf 10.754 0 Td [(1\051)-453(or)]TJ -274.639 -11.955 Td [(\0501)]TJ/F11 9.9626 Tf 10.516 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F8 9.9626 Tf 24.276 0 Td [(\051)-347(according)-347(to)-347(the)-347(v)55(alu)1(e)-348(of)]TJ/F30 9.9626 Tf 119.292 0 Td [(flag)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)-486(The)-347(size)]TJ/F11 9.9626 Tf 47.231 0 Td [(mg)]TJ/F8 9.9626 Tf 17.314 0 Td [(ma)28(y)-347(b)-28(e)-347(sp)-28(ec-)]TJ -239.55 -11.955 Td [(i\014ed)-414(via)-414(the)-415(option)1(al)-415(argumen)28(t)]TJ/F30 9.9626 Tf 142.427 0 Td [(mg)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-455(the)-414(default)-414(is)-414(to)-414(use)-415(the)-414(en)28(tire)]TJ -152.888 -11.956 Td [(v)28(ector)]TJ/F30 9.9626 Tf 29.916 0 Td [(vg)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)-333(th)27(u)1(s)-334(ha)28(ving)]TJ/F30 9.9626 Tf 60.108 0 Td [(mg=size\050vg\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)]TJ +/F8 9.9626 Tf 16.757 0 Td [(In)-398(t)1(his)-398(case)-398(the)-397(asso)-28(ciation)-398(b)-27(e)-1(t)28(w)28(een)-398(an)-397(index)-398(and)-397(a)-398(pro)-27(ces)-1(s)-397(is)-398(sp)-27(e)-1(c-)]TJ 5.161 -11.955 Td [(i\014ed)-456(via)-456(an)-456(in)28(teger)-457(v)28(ector)]TJ/F30 9.9626 Tf 120.742 0 Td [(vg\0501:mg\051)]TJ/F8 9.9626 Tf 41.843 0 Td [(;)-517(e)-1(ac)28(h)-456(index)]TJ/F11 9.9626 Tf 59.63 0 Td [(i)]TJ/F14 9.9626 Tf 8.238 0 Td [(2)-482(f)]TJ/F8 9.9626 Tf 16.429 0 Td [(1)]TJ/F11 9.9626 Tf 6.642 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 9.525 0 Td [(is)]TJ -290.189 -11.955 Td [(assigned)-449(to)-449(pro)-28(cess)]TJ/F11 9.9626 Tf 89.776 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051.)-792(The)-449(v)28(ector)]TJ/F30 9.9626 Tf 67.232 0 Td [(vg)]TJ/F8 9.9626 Tf 14.935 0 Td [(m)28(ust)-449(b)-28(e)-449(iden)28(tical)-450(on)-449(all)]TJ -189.546 -11.955 Td [(calling)-452(pro)-28(cesses;)-513(i)1(ts)-453(en)28(tries)-453(ma)28(y)-453(ha)28(v)28(e)-453(t)1(he)-453(ranges)-453(\0500)]TJ/F11 9.9626 Tf 236.604 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 27.281 0 Td [(\000)]TJ/F8 9.9626 Tf 10.754 0 Td [(1\051)-453(or)]TJ -274.639 -11.955 Td [(\0501)]TJ/F11 9.9626 Tf 10.516 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F8 9.9626 Tf 24.276 0 Td [(\051)-347(according)-347(to)-347(the)-347(v)55(alu)1(e)-348(of)]TJ/F30 9.9626 Tf 119.292 0 Td [(flag)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)-486(The)-347(size)]TJ/F11 9.9626 Tf 47.231 0 Td [(mg)]TJ/F8 9.9626 Tf 17.314 0 Td [(ma)28(y)-347(b)-28(e)-347(sp)-28(ec-)]TJ -239.55 -11.955 Td [(i\014ed)-414(via)-414(the)-415(opti)1(onal)-415(argumen)28(t)]TJ/F30 9.9626 Tf 142.427 0 Td [(mg)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-455(the)-414(default)-414(is)-414(to)-414(use)-415(the)-414(en)28(tire)]TJ -152.888 -11.956 Td [(v)28(ector)]TJ/F30 9.9626 Tf 29.916 0 Td [(vg)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)-333(th)27(u)1(s)-334(ha)28(ving)]TJ/F30 9.9626 Tf 60.108 0 Td [(mg=size\050vg\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -179.936 -15.593 Td [(vl)]TJ 0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(In)-356(this)-357(case)-356(w)28(e)-357(are)-356(sp)-28(ecifying)-356(the)-357(list)-356(of)-356(indices)]TJ/F30 9.9626 Tf 210.708 0 Td [(vl\0501:nl\051)]TJ/F8 9.9626 Tf 45.393 0 Td [(assigned)-356(to)]TJ -248.394 -11.955 Td [(the)-462(curren)28(t)-462(pro)-27(ce)-1(ss;)-526(th)28(us,)-494(the)-461(global)-462(problem)-462(size)]TJ/F11 9.9626 Tf 229.323 0 Td [(mg)]TJ/F8 9.9626 Tf 18.457 0 Td [(is)-462(giv)28(en)-462(b)28(y)]TJ -247.78 -11.956 Td [(the)-405(range)-405(of)-404(the)-405(aggregate)-405(of)-405(the)-405(in)1(dividual)-405(v)28(ectors)]TJ/F30 9.9626 Tf 233.196 0 Td [(vl)]TJ/F8 9.9626 Tf 14.494 0 Td [(sp)-28(eci\014ed)-405(in)]TJ -247.69 -11.955 Td [(the)-481(calling)-481(p)1(ro)-28(cesses.)-887(The)-481(size)-481(ma)28(y)-481(b)-28(e)-481(sp)-27(eci\014ed)-481(via)-481(the)-481(optional)]TJ 0 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.85 0 Td [(nl)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-373(the)-361(default)-360(is)-360(to)-360(use)-360(the)-360(en)28(tire)-361(v)28(ector)]TJ/F30 9.9626 Tf 173.727 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-367(th)28(us)-360(ha)28(ving)]TJ/F30 9.9626 Tf -239.499 -11.955 Td [(nl=size\050vl\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)-419(If)]TJ/F30 9.9626 Tf 16.133 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 96.698 0 Td [(the)-256(subroutine)-256(will)-256(c)27(hec)28(k)-256(ho)28(w)]TJ -170.365 -11.955 Td [(man)28(y)-255(times)-255(eac)28(h)-254(en)27(try)-254(in)-255(the)-254(global)-255(index)-254(s)-1(p)1(ac)-1(e)-254(\0501)]TJ/F11 9.9626 Tf 217.24 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F8 9.9626 Tf 27.14 0 Td [(\051)-255(is)-254(sp)-28(eci\014ed)]TJ -244.38 -11.955 Td [(in)-331(the)-331(input)-331(lists)]TJ/F30 9.9626 Tf 75.842 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-331(th)27(us)-331(all)1(o)27(wing)-331(for)-331(t)1(he)-331(prese)-1(n)1(c)-1(e)-331(of)-330(o)27(v)28(erlap)-331(in)-331(the)]TJ -86.303 -11.956 Td [(input,)-338(and)-337(c)28(hec)27(king)-337(for)-337(\134orphan")-337(indices.)-456(If)]TJ/F30 9.9626 Tf 194.743 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.376 0 Td [(,)]TJ -294.119 -11.955 Td [(the)-409(s)-1(u)1(broutine)-410(will)-409(not)-410(c)28(hec)28(k)-410(for)-409(o)28(v)27(erlap,)-428(and)-409(ma)27(y)-409(b)-28(e)-409(signi\014can)27(tly)]TJ 0 -11.955 Td [(faster,)-362(but)-357(the)-357(user)-356(is)-357(implicitly)-357(gu)1(aran)27(teeing)-356(that)-357(there)-357(ar)1(e)-357(neither)]TJ 0 -11.955 Td [(orphan)-333(nor)-333(o)27(v)28(erlap)-333(indices.)]TJ +/F8 9.9626 Tf 14.211 0 Td [(In)-356(this)-357(case)-356(w)28(e)-357(are)-356(sp)-28(ecifying)-356(the)-357(list)-356(of)-356(indices)]TJ/F30 9.9626 Tf 210.707 0 Td [(vl\0501:nl\051)]TJ/F8 9.9626 Tf 45.394 0 Td [(assigned)-356(to)]TJ -248.394 -11.955 Td [(the)-462(curren)28(t)-462(pro)-27(ces)-1(s;)-526(th)28(us,)-494(the)-461(global)-462(problem)-462(size)]TJ/F11 9.9626 Tf 229.323 0 Td [(mg)]TJ/F8 9.9626 Tf 18.457 0 Td [(is)-462(giv)28(en)-462(b)28(y)]TJ -247.78 -11.956 Td [(the)-405(range)-405(of)-404(the)-405(aggregate)-405(of)-405(the)-405(in)1(dividual)-405(v)28(ectors)]TJ/F30 9.9626 Tf 233.196 0 Td [(vl)]TJ/F8 9.9626 Tf 14.494 0 Td [(sp)-28(eci\014ed)-405(in)]TJ -247.69 -11.955 Td [(the)-481(calling)-481(p)1(ro)-28(cesses.)-887(The)-481(size)-481(ma)28(y)-481(b)-28(e)-481(sp)-27(eci\014ed)-481(via)-481(the)-481(optional)]TJ 0 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.85 0 Td [(nl)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-373(the)-361(defaul)1(t)-361(is)-360(to)-360(use)-360(the)-360(en)28(tire)-361(v)28(ector)]TJ/F30 9.9626 Tf 173.727 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-367(th)28(us)-360(ha)28(ving)]TJ/F30 9.9626 Tf -239.499 -11.955 Td [(nl=size\050vl\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)-419(If)]TJ/F30 9.9626 Tf 16.132 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 96.699 0 Td [(the)-256(subroutine)-256(will)-256(c)27(h)1(e)-1(c)28(k)-256(ho)28(w)]TJ -170.365 -11.955 Td [(man)28(y)-255(times)-255(eac)28(h)-254(en)27(try)-254(in)-255(the)-254(global)-255(index)-254(s)-1(p)1(ac)-1(e)-254(\0501)]TJ/F11 9.9626 Tf 217.24 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F8 9.9626 Tf 27.14 0 Td [(\051)-255(is)-254(sp)-28(eci\014ed)]TJ -244.38 -11.955 Td [(in)-331(the)-331(input)-331(lists)]TJ/F30 9.9626 Tf 75.842 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-331(th)27(us)-331(all)1(o)27(wing)-331(for)-330(the)-331(prese)-1(n)1(c)-1(e)-330(of)-331(o)27(v)28(erlap)-331(in)-331(the)]TJ -86.303 -11.956 Td [(input,)-338(and)-337(c)28(hec)27(king)-337(for)-337(\134orphan")-337(indices.)-456(If)]TJ/F30 9.9626 Tf 194.743 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.376 0 Td [(,)]TJ -294.119 -11.955 Td [(the)-409(s)-1(u)1(broutine)-410(will)-409(not)-410(c)28(hec)28(k)-410(for)-409(o)28(v)27(erlap,)-428(and)-409(ma)27(y)-409(b)-28(e)-409(signi\014can)27(tly)]TJ 0 -11.955 Td [(faster,)-362(but)-357(the)-357(user)-356(is)-357(implicitly)-356(g)-1(u)1(aran)27(teeing)-356(that)-357(there)-357(ar)1(e)-357(neither)]TJ 0 -11.955 Td [(orphan)-333(nor)-333(o)27(v)28(erlap)-333(indices.)]TJ 0 g 0 G /F27 9.9626 Tf -21.918 -15.594 Td [(lidx)]TJ 0 g 0 G @@ -14376,7 +15730,7 @@ BT 0 g 0 G /F27 9.9626 Tf -173.128 -15.593 Td [(nl)]TJ 0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(If)-307(this)-308(argumen)28(t)-307(is)-308(sp)-28(eci\014ed)-307(alone)-308(\050i.e.)-435(without)]TJ/F30 9.9626 Tf 206.41 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(\051)-307(the)-308(result)-307(is)-308(a)-307(gen-)]TJ -209.482 -11.956 Td [(eralized)-313(ro)27(w-blo)-27(c)27(k)-313(distribution)-313(in)-314(whic)28(h)-313(eac)27(h)-313(pro)-28(cess)]TJ/F11 9.9626 Tf 232.18 0 Td [(I)]TJ/F8 9.9626 Tf 8.284 0 Td [(gets)-313(as)-1(signed)]TJ -240.464 -11.955 Td [(a)-333(consecutiv)27(e)-333(c)28(h)28(unk)-334(of)]TJ/F11 9.9626 Tf 101.342 0 Td [(N)]TJ/F10 6.9738 Tf 8.005 -1.494 Td [(I)]TJ/F8 9.9626 Tf 7.338 1.494 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(nl)]TJ/F8 9.9626 Tf 12.47 0 Td [(global)-333(indices.)]TJ +/F8 9.9626 Tf 14.529 0 Td [(If)-307(this)-308(argumen)28(t)-307(is)-308(sp)-28(eci\014ed)-307(alone)-308(\050i.)1(e)-1(.)-435(without)]TJ/F30 9.9626 Tf 206.41 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(\051)-307(the)-308(result)-307(is)-308(a)-307(gen-)]TJ -209.482 -11.956 Td [(eralized)-313(ro)27(w-blo)-27(c)27(k)-313(distribution)-313(in)-314(whic)28(h)-313(eac)27(h)-313(pro)-28(cess)]TJ/F11 9.9626 Tf 232.18 0 Td [(I)]TJ/F8 9.9626 Tf 8.284 0 Td [(gets)-313(as)-1(signed)]TJ -240.464 -11.955 Td [(a)-333(consecutiv)27(e)-333(c)28(h)28(unk)-334(of)]TJ/F11 9.9626 Tf 101.342 0 Td [(N)]TJ/F10 6.9738 Tf 8.005 -1.494 Td [(I)]TJ/F8 9.9626 Tf 7.338 1.494 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(nl)]TJ/F8 9.9626 Tf 12.47 0 Td [(global)-333(indices.)]TJ 0 g 0 G /F27 9.9626 Tf -161.589 -15.593 Td [(repl)]TJ 0 g 0 G @@ -14386,68 +15740,68 @@ BT 0 g 0 G [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(descriptor)-333(is)-333(in)-334(the)-333(build)-333(state.)]TJ 0 g 0 G - 154.698 -29.888 Td [(66)]TJ + 154.698 -29.888 Td [(71)]TJ 0 g 0 G ET endstream endobj -1302 0 obj +1361 0 obj << -/Length 2660 +/Length 2667 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F8 9.9626 Tf 112.072 706.129 Td [(3.)]TJ +/F8 9.9626 Tf 162.881 706.129 Td [(3.)]TJ 0 g 0 G - [-500(Calling)-339(the)-339(routine)-339(with)]TJ/F30 9.9626 Tf 121.471 0 Td [(vg)]TJ/F8 9.9626 Tf 13.839 0 Td [(or)]TJ/F30 9.9626 Tf 12.262 0 Td [(parts)]TJ/F8 9.9626 Tf 29.53 0 Td [(implies)-339(that)-339(ev)28(ery)-340(pr)1(o)-28(cess)-340(will)-339(scan)]TJ -164.372 -11.955 Td [(the)-333(en)27(tire)-333(index)-333(space)-334(to)-333(\014gure)-333(out)-333(the)-334(lo)-28(cal)-333(indices.)]TJ + [-500(Calling)-339(the)-339(routine)-339(with)]TJ/F30 9.9626 Tf 121.471 0 Td [(vg)]TJ/F8 9.9626 Tf 13.839 0 Td [(or)]TJ/F30 9.9626 Tf 12.262 0 Td [(parts)]TJ/F8 9.9626 Tf 29.53 0 Td [(implies)-339(that)-339(ev)28(e)-1(ry)-339(pro)-27(cess)-340(will)-339(scan)]TJ -164.372 -11.955 Td [(the)-333(en)27(tire)-333(index)-333(space)-334(to)-333(\014gure)-333(out)-334(t)1(he)-334(lo)-28(cal)-333(indices.)]TJ 0 g 0 G -12.73 -19.926 Td [(4.)]TJ 0 g 0 G - [-500(Ov)28(erlapp)-28(ed)-333(indices)-334(are)-333(p)-28(ossible)-333(with)-333(b)-28(oth)]TJ/F30 9.9626 Tf 199.198 0 Td [(parts)]TJ/F8 9.9626 Tf 29.472 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(vl)]TJ/F8 9.9626 Tf 13.782 0 Td [(in)28(v)28(o)-28(cations.)]TJ + [-500(Ov)28(erlapp)-28(ed)-333(indices)-334(are)-333(p)-28(ossible)-333(with)-333(b)-28(oth)]TJ/F30 9.9626 Tf 199.198 0 Td [(parts)]TJ/F8 9.9626 Tf 29.473 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(vl)]TJ/F8 9.9626 Tf 13.781 0 Td [(in)28(v)28(o)-28(cations.)]TJ 0 g 0 G -261.824 -19.925 Td [(5.)]TJ 0 g 0 G - [-500(When)-222(the)-222(subroutine)-222(is)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.61 0 Td [(vl)]TJ/F8 9.9626 Tf 12.675 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.959 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 94.147 0 Td [(,)]TJ -349.661 -11.955 Td [(it)-368(will)-369(p)-28(erform)-368(a)-368(s)-1(can)-368(of)-368(the)-369(index)-368(space)-369(to)-368(searc)27(h)-368(for)-368(o)27(v)28(erlap)-368(or)-369(orp)1(han)]TJ 0 -11.955 Td [(indices.)]TJ + [-500(When)-222(the)-222(subroutine)-223(i)1(s)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.611 0 Td [(vl)]TJ/F8 9.9626 Tf 12.674 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.96 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 94.146 0 Td [(,)]TJ -349.661 -11.955 Td [(it)-368(will)-369(p)-28(erform)-368(a)-369(scan)-368(of)-368(the)-369(index)-368(space)-369(to)-368(searc)27(h)-368(for)-368(o)27(v)28(erlap)-368(or)-369(orph)1(an)]TJ 0 -11.955 Td [(indices.)]TJ 0 g 0 G -12.73 -19.925 Td [(6.)]TJ 0 g 0 G - [-500(When)-222(the)-222(subroutine)-222(is)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.61 0 Td [(vl)]TJ/F8 9.9626 Tf 12.675 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.959 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.377 0 Td [(,)]TJ -354.891 -11.956 Td [(no)-405(index)-405(space)-405(scan)-405(will)-405(tak)28(e)-405(place.)-660(Th)28(us)-405(it)-405(is)-405(the)-405(resp)-28(onsibilit)28(y)-405(of)-405(the)]TJ 0 -11.955 Td [(user)-419(to)-418(mak)28(e)-419(sure)-418(that)-419(the)-418(indices)-419(sp)-28(eci\014ed)-418(in)]TJ/F30 9.9626 Tf 211.319 0 Td [(vl)]TJ/F8 9.9626 Tf 14.63 0 Td [(ha)28(v)28(e)-419(neither)-418(orphans)]TJ -225.949 -11.955 Td [(nor)-333(o)28(v)27(erlaps;)-333(if)-333(this)-334(assumption)-333(fails,)-333(results)-334(will)-333(b)-28(e)-333(unpredictable.)]TJ + [-500(When)-222(the)-222(subroutine)-223(i)1(s)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.611 0 Td [(vl)]TJ/F8 9.9626 Tf 12.674 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.96 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.376 0 Td [(,)]TJ -354.891 -11.956 Td [(no)-405(index)-405(space)-405(scan)-405(will)-405(tak)28(e)-405(place.)-660(Th)28(us)-405(it)-405(is)-405(the)-405(resp)-28(onsibilit)28(y)-405(of)-405(the)]TJ 0 -11.955 Td [(user)-419(to)-418(mak)28(e)-419(sure)-418(that)-419(the)-418(indices)-419(sp)-28(eci\014ed)-418(in)]TJ/F30 9.9626 Tf 211.319 0 Td [(vl)]TJ/F8 9.9626 Tf 14.63 0 Td [(ha)28(v)28(e)-419(neither)-418(orphans)]TJ -225.949 -11.955 Td [(nor)-333(o)27(v)28(erlaps;)-333(if)-333(this)-334(assumption)-333(fails,)-333(results)-334(will)-333(b)-28(e)-333(unpredictable.)]TJ 0 g 0 G -12.73 -19.925 Td [(7.)]TJ 0 g 0 G - [-500(Orphan)-313(and)-312(o)27(v)28(erlap)-312(indices)-313(are)-313(imp)-28(ossible)-313(b)28(y)-313(construction)-312(when)-313(the)-313(sub-)]TJ 12.73 -11.955 Td [(routine)-333(is)-334(in)28(v)28(ok)28(ed)-334(with)]TJ/F30 9.9626 Tf 103.307 0 Td [(nl)]TJ/F8 9.9626 Tf 13.782 0 Td [(\050alone\051,)-333(or)]TJ/F30 9.9626 Tf 48.734 0 Td [(vg)]TJ/F8 9.9626 Tf 10.46 0 Td [(.)]TJ + [-500(Orphan)-313(and)-312(o)27(v)28(erlap)-312(indices)-313(are)-313(imp)-28(ossible)-313(b)28(y)-313(construction)-312(when)-313(the)-313(sub-)]TJ 12.73 -11.955 Td [(routine)-333(is)-334(in)28(v)28(ok)28(ed)-334(with)]TJ/F30 9.9626 Tf 103.308 0 Td [(nl)]TJ/F8 9.9626 Tf 13.781 0 Td [(\050alone\051,)-333(or)]TJ/F30 9.9626 Tf 48.734 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(.)]TJ 0 g 0 G - -34.315 -452.304 Td [(67)]TJ + -34.316 -452.304 Td [(72)]TJ 0 g 0 G ET endstream endobj -1313 0 obj +1371 0 obj << -/Length 7171 +/Length 7172 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(cdins)-375(|)-375(Comm)31(unication)-375(descriptor)-375(insert)-375(routine)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(cdins)-375(|)-375(Comm)31(unication)-375(descriptor)-375(insert)-375(routine)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdins\050nz,)-525(ia,)-525(ja,)-525(desc_a,)-525(info)-525([,ila,jla]\051)]TJ 0 -11.956 Td [(call)-525(psb_cdins\050nz,ja,desc,info[,jla,mask,lidx]\051)]TJ/F8 9.9626 Tf 14.944 -20.465 Td [(This)-428(subroutine)-427(examines)-428(the)-428(edges)-428(of)-428(the)-427(graph)-428(asso)-28(ciated)-428(with)-428(t)1(he)-428(dis-)]TJ -14.944 -11.955 Td [(cretization)-481(mesh)-480(\050and)-481(isomorphic)-480(to)-481(the)-480(sparsit)27(y)-480(pattern)-481(of)-480(a)-481(lin)1(e)-1(ar)-480(system)]TJ 0 -11.955 Td [(co)-28(e\016cien)28(t)-359(matrix\051,)-366(storing)-359(them)-359(as)-359(necess)-1(ar)1(y)-360(in)28(to)-359(the)-359(comm)28(unication)-359(des)-1(crip)1(-)]TJ 0 -11.955 Td [(tor.)-506(In)-353(the)-354(\014rst)-354(form)-354(the)-354(edges)-353(are)-354(sp)-28(eci\014ed)-354(as)-354(pairs)-353(of)-354(indices)]TJ/F11 9.9626 Tf 278.053 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051;)-364(the)]TJ -319.606 -11.955 Td [(starting)-394(index)]TJ/F11 9.9626 Tf 65.222 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-394(should)-394(b)-28(elong)-394(to)-394(the)-395(cur)1(re)-1(n)28(t)-394(pro)-28(cess.)-627(In)-394(the)-394(second)-394(form)]TJ -81.227 -11.955 Td [(only)-333(the)-334(remote)-333(indices)]TJ/F11 9.9626 Tf 104.968 0 Td [(j)-57(a)]TJ/F8 9.9626 Tf 9.939 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(are)-334(sp)-27(e)-1(ci\014ed.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdins\050nz,)-525(ia,)-525(ja,)-525(desc_a,)-525(info)-525([,ila,jla]\051)]TJ 0 -11.956 Td [(call)-525(psb_cdins\050nz,ja,desc,info[,jla,mask,lidx]\051)]TJ/F8 9.9626 Tf 14.944 -20.465 Td [(This)-428(subroutine)-427(e)-1(x)1(am)-1(in)1(e)-1(s)-427(the)-428(edges)-428(of)-428(the)-427(graph)-428(asso)-28(ciated)-428(with)-428(the)-427(dis-)]TJ -14.944 -11.955 Td [(cretization)-481(mesh)-480(\050and)-481(isomorphic)-480(to)-481(the)-480(sparsit)27(y)-480(pattern)-481(of)-480(a)-481(linear)-480(system)]TJ 0 -11.955 Td [(co)-28(e\016cien)28(t)-359(matrix\051,)-366(storing)-359(them)-359(as)-359(neces)-1(sary)-359(in)28(to)-359(the)-359(comm)28(unication)-360(d)1(e)-1(scrip-)]TJ 0 -11.955 Td [(tor.)-506(In)-354(th)1(e)-354(\014rst)-354(form)-354(the)-354(edges)-353(are)-354(sp)-28(eci\014ed)-354(as)-354(pairs)-353(of)-354(indices)]TJ/F11 9.9626 Tf 278.053 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051;)-364(the)]TJ -319.606 -11.955 Td [(starting)-394(index)]TJ/F11 9.9626 Tf 65.223 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)-394(should)-394(b)-28(elong)-394(to)-394(the)-394(c)-1(u)1(rren)27(t)-394(pro)-28(cess.)-627(In)-394(the)-394(second)-394(form)]TJ -81.228 -11.955 Td [(only)-333(the)-334(remote)-333(indices)]TJ/F11 9.9626 Tf 104.968 0 Td [(j)-57(a)]TJ/F8 9.9626 Tf 9.939 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)-333(are)-334(sp)-27(ec)-1(i\014)1(e)-1(d)1(.)]TJ 0 g 0 G -/F27 9.9626 Tf -122.213 -20.465 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf -122.214 -20.465 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 @@ -14456,23 +15810,23 @@ BT 0 g 0 G 0 -19.344 Td [(nz)]TJ 0 g 0 G -/F8 9.9626 Tf 16.438 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(p)-28(oin)28(ts)-333(b)-28(eing)-333(inserte)-1(d)1(.)]TJ 8.469 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)]TJ +/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(p)-28(oin)28(ts)-333(b)-28(eing)-333(inserted.)]TJ 8.468 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.344 Td [(ia)]TJ 0 g 0 G -/F8 9.9626 Tf 13.733 0 Td [(the)-333(indices)-334(of)-333(the)-333(starting)-334(v)28(ertex)-333(of)-333(the)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 11.174 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.547 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ +/F8 9.9626 Tf 13.734 0 Td [(the)-333(indices)-334(of)-333(the)-333(starting)-334(v)28(ertex)-333(of)-333(the)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 11.173 -11.956 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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -208.505 -19.344 Td [(ja)]TJ +/F27 9.9626 Tf -208.506 -19.344 Td [(ja)]TJ 0 g 0 G -/F8 9.9626 Tf 14.051 0 Td [(the)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-334(t)1(he)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 10.856 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.547 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ +/F8 9.9626 Tf 14.052 0 Td [(the)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-333(the)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 10.855 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -208.505 -19.344 Td [(mask)]TJ +/F27 9.9626 Tf -208.506 -19.344 Td [(mask)]TJ 0 g 0 G -/F8 9.9626 Tf 30.664 0 Td [(Mask)-329(e)-1(n)28(tries)-329(in)]TJ/F30 9.9626 Tf 70.038 0 Td [(ja)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-330(they)-330(are)-329(inserted)-330(only)-329(when)-329(the)-330(corresp)-28(onding)]TJ/F30 9.9626 Tf 211.627 0 Td [(mask)]TJ/F8 9.9626 Tf -297.883 -11.955 Td [(en)28(tries)-334(are)]TJ/F30 9.9626 Tf 48.54 0 Td [(.true.)]TJ/F8 9.9626 Tf -48.54 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(arra)28(y)-334(of)-333(length)]TJ/F11 9.9626 Tf 165.048 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-333(default)]TJ/F30 9.9626 Tf 39.574 0 Td [(.true.)]TJ/F8 9.9626 Tf 31.382 0 Td [(.)]TJ +/F8 9.9626 Tf 30.664 0 Td [(Mask)-330(en)28(tries)-329(in)]TJ/F30 9.9626 Tf 70.038 0 Td [(ja)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-330(they)-330(are)-329(inserted)-330(only)-329(when)-329(the)-330(corresp)-28(onding)]TJ/F30 9.9626 Tf 211.627 0 Td [(mask)]TJ/F8 9.9626 Tf -297.883 -11.955 Td [(en)28(tries)-334(are)]TJ/F30 9.9626 Tf 48.54 0 Td [(.true.)]TJ/F8 9.9626 Tf -48.54 -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.956 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 [(.)]TJ -70.188 -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(logical)-333(arra)28(y)-334(of)-333(length)]TJ/F11 9.9626 Tf 165.048 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-333(default)]TJ/F30 9.9626 Tf 39.574 0 Td [(.true.)]TJ/F8 9.9626 Tf 31.382 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -271.962 -19.344 Td [(lidx)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(User)-333(de\014ned)-334(lo)-27(cal)-334(indices)-333(for)]TJ/F30 9.9626 Tf 128.85 0 Td [(ja)]TJ/F8 9.9626 Tf 10.461 0 Td [(.)]TJ -138.162 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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 [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.547 0 Td [(nz)]TJ/F8 9.9626 Tf 11.052 0 Td [(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(User)-333(de\014ned)-334(lo)-27(ca)-1(l)-333(indices)-333(for)]TJ/F30 9.9626 Tf 128.851 0 Td [(ja)]TJ/F8 9.9626 Tf 10.46 0 Td [(.)]TJ -138.162 -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 [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -208.506 -20.465 Td [(On)-383(Return)]TJ 0 g 0 G @@ -14480,97 +15834,97 @@ BT 0 -19.344 Td [(desc)]TJ ET q -1 0 0 1 172.619 168.346 cm +1 0 0 1 121.81 168.346 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 168.146 Td [(a)]TJ +/F27 9.9626 Tf 125.247 168.146 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(up)-28(dated)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(up)-28(dated)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 120.525 cm +1 0 0 1 312.036 120.525 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 120.326 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 120.326 Td [(desc)]TJ ET q -1 0 0 1 387.532 120.525 cm +1 0 0 1 336.723 120.525 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 120.326 Td [(type)]TJ +/F30 9.9626 Tf 339.861 120.326 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G - -94.013 -29.888 Td [(68)]TJ + -94.012 -29.888 Td [(73)]TJ 0 g 0 G ET endstream endobj -1318 0 obj +1377 0 obj << -/Length 3156 +/Length 3163 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(info)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(ila)]TJ +/F27 9.9626 Tf -24.906 -19.925 Td [(ila)]TJ 0 g 0 G -/F8 9.9626 Tf 16.916 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(starting)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.991 -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 [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ +/F8 9.9626 Tf 16.915 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(s)-1(tar)1(ting)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.991 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -208.506 -19.925 Td [(jla)]TJ +/F27 9.9626 Tf -208.505 -19.925 Td [(jla)]TJ 0 g 0 G -/F8 9.9626 Tf 17.234 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.673 -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 [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ/F16 11.9552 Tf -208.506 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 17.234 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.672 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ/F16 11.9552 Tf -208.505 -21.918 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ 0 g 0 G - [-500(This)-333(routine)-334(ma)28(y)-333(only)-333(b)-28(e)-334(called)-333(if)-333(the)-333(des)-1(crip)1(tor)-334(is)-333(in)-333(the)-334(build)-333(state;)]TJ + [-500(This)-333(routine)-334(ma)28(y)-333(only)-333(b)-28(e)-334(called)-333(if)-333(the)-334(d)1(e)-1(scriptor)-333(is)-333(in)-333(the)-334(build)-333(state;)]TJ 0 g 0 G 0 -19.925 Td [(2.)]TJ 0 g 0 G - [-500(This)-305(r)1(o)-1(u)1(tine)-305(automatically)-304(ignores)-305(edges)-305(that)-304(do)-305(not)-304(insist)-305(on)-304(the)-305(curren)28(t)]TJ 12.73 -11.955 Td [(pro)-28(cess,)-284(i.e)-1(.)-424(edges)-272(for)-273(whic)28(h)-272(neither)-273(the)-272(starting)-272(nor)-273(the)-272(end)-273(v)28(ertex)-272(b)-28(elong)]TJ 0 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ + [-500(This)-305(rou)1(tine)-305(automatically)-305(i)1(gnores)-305(edges)-305(that)-304(do)-305(not)-304(insist)-305(on)-304(the)-305(curren)28(t)]TJ 12.73 -11.955 Td [(pro)-28(cess,)-285(i.)1(e)-1(.)-424(edges)-272(for)-273(whic)28(h)-272(neither)-273(the)-272(starting)-272(nor)-273(the)-272(end)-273(v)28(ertex)-272(b)-28(elong)]TJ 0 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ 0 g 0 G -12.73 -19.926 Td [(3.)]TJ 0 g 0 G - [-500(The)-437(second)-438(form)-437(of)-437(this)-437(routine)-437(will)-438(b)-27(e)-438(useful)-437(when)-437(dealing)-437(with)-438(user-)]TJ 12.73 -11.955 Td [(sp)-28(eci\014ed)-333(index)-333(mappings;)-334(see)-333(also)]TJ + [-500(The)-437(second)-438(form)-437(of)-437(this)-437(routine)-438(wil)1(l)-438(b)-27(e)-438(useful)-437(when)-437(dealing)-437(with)-438(user-)]TJ 12.73 -11.955 Td [(sp)-28(eci\014ed)-333(index)-333(mappings;)-334(see)-333(also)]TJ 0 0 1 rg 0 0 1 RG - [-334(2.)1(3.1)]TJ + [-334(2.3.1)]TJ 0 g 0 G [(.)]TJ 0 g 0 G - 141.968 -314.819 Td [(69)]TJ + 141.968 -314.819 Td [(74)]TJ 0 g 0 G ET endstream endobj -1327 0 obj +1386 0 obj << -/Length 4747 +/Length 4740 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(cdasb)-375(|)-375(Comm)31(unication)-375(descriptor)-375(assem)31(bly)-375(routine)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(cdasb)-375(|)-375(Comm)31(unication)-375(descriptor)-375(assem)31(bly)-375(routine)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdasb\050desc_a,)-525(info)-525([,)-525(mold]\051)]TJ @@ -14585,63 +15939,63 @@ BT 0 -19.925 Td [(desc)]TJ ET q -1 0 0 1 172.619 626.17 cm +1 0 0 1 121.81 626.17 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 625.971 Td [(a)]TJ +/F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 578.35 cm +1 0 0 1 312.036 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 578.15 Td [(desc)]TJ ET q -1 0 0 1 387.532 578.35 cm +1 0 0 1 336.723 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ +/F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.925 Td [(mold)]TJ 0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(index)-334(storage.)]TJ -4.899 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(a)-222(ob)-56(ject)-222(of)-222(t)28(yp)-28(e)-222(deriv)28(e)-1(d)-222(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 219.871 0 Td [(psb)]TJ +/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(index)-334(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -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)-222(as:)-389(a)-222(ob)-56(ject)-222(of)-222(t)28(yp)-28(e)-222(deriv)28(ed)-223(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 219.87 0 Td [(psb)]TJ ET q -1 0 0 1 411.8 510.604 cm +1 0 0 1 360.991 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 414.939 510.405 Td [(T)]TJ +/F30 9.9626 Tf 364.129 510.405 Td [(T)]TJ ET q -1 0 0 1 420.797 510.604 cm +1 0 0 1 369.987 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 423.935 510.405 Td [(base)]TJ +/F30 9.9626 Tf 373.125 510.405 Td [(base)]TJ ET q -1 0 0 1 445.484 510.604 cm +1 0 0 1 394.674 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 448.622 510.405 Td [(vect)]TJ +/F30 9.9626 Tf 397.813 510.405 Td [(vect)]TJ ET q -1 0 0 1 470.171 510.604 cm +1 0 0 1 419.361 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 473.309 510.405 Td [(type)]TJ/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F30 9.9626 Tf 422.5 510.405 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -343.526 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G @@ -14649,62 +16003,62 @@ BT 0 -19.926 Td [(desc)]TJ ET q -1 0 0 1 172.619 468.761 cm +1 0 0 1 121.81 468.761 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 468.561 Td [(a)]TJ +/F27 9.9626 Tf 125.247 468.561 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 420.94 cm +1 0 0 1 312.036 420.94 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 420.741 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 420.741 Td [(desc)]TJ ET q -1 0 0 1 387.532 420.94 cm +1 0 0 1 336.723 420.94 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 420.741 Td [(type)]TJ +/F30 9.9626 Tf 339.861 420.741 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ +/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(descriptor)-333(is)-333(in)-334(the)-333(assem)28(bled)-334(state.)]TJ 0 g 0 G - 154.698 -220.714 Td [(70)]TJ + 154.698 -220.714 Td [(75)]TJ 0 g 0 G ET endstream endobj -1334 0 obj +1393 0 obj << -/Length 3277 +/Length 3278 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(cdcp)31(y)-375(|)-375(Copies)-375(a)-375(comm)31(unication)-375(descriptor)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(cdcp)31(y)-375(|)-375(Copies)-375(a)-375(comm)31(unication)-375(descriptor)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdcpy\050desc_in,)-525(desc_out,)-525(info\051)]TJ @@ -14719,111 +16073,13 @@ BT 0 -19.925 Td [(desc)]TJ ET q -1 0 0 1 121.81 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 625.971 Td [(in)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -14.974 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 536.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 536.307 Td [(out)]TJ -0 g 0 G -/F8 9.9626 Tf 21.53 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(cop)28(y)83(.)]TJ -21.975 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 488.686 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 488.487 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 488.686 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 488.487 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -330.303 Td [(71)]TJ -0 g 0 G -ET - -endstream -endobj -1339 0 obj -<< -/Length 2243 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(cdfree)-375(|)-375(F)94(rees)-375(a)-375(comm)31(unication)-375(descriptor)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdfree\050desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(desc)]TJ -ET -q 1 0 0 1 172.619 626.17 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 625.971 Td [(a)]TJ +/F27 9.9626 Tf 176.057 625.971 Td [(in)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(to)-334(b)-27(e)-334(freed.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 14.528 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -14.974 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET @@ -14846,634 +16102,48 @@ BT /F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(info)]TJ + 0 -19.926 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 536.507 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 536.307 Td [(out)]TJ +0 g 0 G +/F8 9.9626 Tf 21.53 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(cop)28(y)83(.)]TJ -21.976 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 488.686 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 488.487 Td [(desc)]TJ +ET +q +1 0 0 1 387.532 488.686 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 390.67 488.487 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -19.926 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -398.049 Td [(72)]TJ + 141.968 -330.303 Td [(76)]TJ 0 g 0 G ET endstream endobj -1236 0 obj +1398 0 obj << -/Type /ObjStm -/N 100 -/First 981 -/Length 11151 ->> -stream -1227 0 1231 147 1232 205 1233 263 1234 321 1228 378 1238 510 1240 628 1237 687 1242 767 -1245 885 1246 1012 1247 1055 1248 1262 1249 1500 1250 1776 1244 2012 1235 2070 1241 2129 1257 2225 -1253 2382 1254 2526 1255 2673 1259 2819 276 2878 1260 2936 1261 2995 1262 3054 1263 3113 1256 3172 -1265 3329 1267 3447 1264 3505 1272 3598 1269 3737 1274 3883 280 3942 1275 4000 1276 4059 1277 4118 -1271 4177 1281 4334 1270 4491 1278 4635 1279 4778 1283 4924 1280 4982 1285 5088 1287 5206 284 5265 -288 5323 1284 5381 1290 5513 1288 5652 1292 5799 1293 5857 1289 5915 1296 6034 1294 6173 1298 6331 -1299 6390 1295 6449 1301 6581 1303 6699 1304 6757 1305 6815 1306 6873 1307 6931 1308 6989 1300 7045 -1312 7125 1310 7264 1314 7409 292 7468 1311 7526 1317 7645 1315 7784 1319 7942 1320 8000 1321 8058 -1322 8116 1316 8174 1326 8280 1323 8428 1324 8573 1328 8719 296 8778 1329 8836 1325 8895 1333 9001 -1330 9149 1331 9295 1335 9442 300 9500 1332 9557 1338 9663 1336 9802 1340 9947 304 10006 1337 10064 -% 1227 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [306.759 302.697 313.733 313.546] -/A << /S /GoTo /D (figure.7) >> ->> -% 1231 0 obj -<< -/D [1229 0 R /XYZ 98.895 753.953 null] ->> -% 1232 0 obj -<< -/D [1229 0 R /XYZ 99.895 465.033 null] ->> -% 1233 0 obj -<< -/D [1229 0 R /XYZ 99.895 431.215 null] ->> -% 1234 0 obj -<< -/D [1229 0 R /XYZ 99.895 387.38 null] ->> -% 1228 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F16 558 0 R /F10 771 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1238 0 obj -<< -/Type /Page -/Contents 1239 0 R -/Resources 1237 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R ->> -% 1240 0 obj -<< -/D [1238 0 R /XYZ 149.705 753.953 null] ->> -% 1237 0 obj -<< -/Font << /F31 775 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1242 0 obj -<< -/Type /Page -/Contents 1243 0 R -/Resources 1241 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R ->> -% 1245 0 obj -<< -/Producer (GPL Ghostscript 9.22) -/CreationDate (D:20180323100658Z00'00') -/ModDate (D:20180323100658Z00'00') ->> -% 1246 0 obj -<< -/Type /ExtGState -/OPM 1 ->> -% 1247 0 obj -<< -/BaseFont /XYUGDR+Times-Roman -/FontDescriptor 1249 0 R -/Type /Font -/FirstChar 48 -/LastChar 57 -/Widths [ 500 500 500 500 500 500 500 500 500 500] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1248 0 obj -<< -/BaseFont /XISTAL+Times-Bold -/FontDescriptor 1250 0 R -/Type /Font -/FirstChar 48 -/LastChar 80 -/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1249 0 obj -<< -/Type /FontDescriptor -/FontName /XYUGDR+Times-Roman -/FontBBox [ 0 -14 476 688] -/Flags 65568 -/Ascent 688 -/CapHeight 688 -/Descent -14 -/ItalicAngle 0 -/StemV 71 -/MissingWidth 250 -/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) -/FontFile3 1251 0 R ->> -% 1250 0 obj -<< -/Type /FontDescriptor -/FontName /XISTAL+Times-Bold -/FontBBox [ 0 -13 600 688] -/Flags 65568 -/Ascent 688 -/CapHeight 676 -/Descent -13 -/ItalicAngle 0 -/StemV 90 -/MissingWidth 250 -/CharSet (/P/one/zero) -/FontFile3 1252 0 R ->> -% 1244 0 obj -<< -/D [1242 0 R /XYZ 98.895 753.953 null] ->> -% 1235 0 obj -<< -/D [1242 0 R /XYZ 232.883 272.519 null] ->> -% 1241 0 obj -<< -/Font << /F8 561 0 R >> -/XObject << /Im4 1225 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1257 0 obj -<< -/Type /Page -/Contents 1258 0 R -/Resources 1256 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1212 0 R -/Annots [ 1253 0 R 1254 0 R 1255 0 R ] ->> -% 1253 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 295.182 495.412 306.307] -/A << /S /GoTo /D (vdata) >> ->> -% 1254 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [256.807 285.441 268.762 294.352] -/A << /S /GoTo /D (table.16) >> ->> -% 1255 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 215.901 412.588 227.026] -/A << /S /GoTo /D (descdata) >> ->> -% 1259 0 obj -<< -/D [1257 0 R /XYZ 149.705 753.953 null] ->> -% 276 0 obj -<< -/D [1257 0 R /XYZ 150.705 720.077 null] ->> -% 1260 0 obj -<< -/D [1257 0 R /XYZ 320.941 466.542 null] ->> -% 1261 0 obj -<< -/D [1257 0 R /XYZ 150.705 435.558 null] ->> -% 1262 0 obj -<< -/D [1257 0 R /XYZ 150.705 435.558 null] ->> -% 1263 0 obj -<< -/D [1257 0 R /XYZ 150.705 423.603 null] ->> -% 1256 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F7 770 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1265 0 obj -<< -/Type /Page -/Contents 1266 0 R -/Resources 1264 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R ->> -% 1267 0 obj -<< -/D [1265 0 R /XYZ 98.895 753.953 null] ->> -% 1264 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1272 0 obj -<< -/Type /Page -/Contents 1273 0 R -/Resources 1271 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R -/Annots [ 1269 0 R ] ->> -% 1269 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 210.686 412.588 221.811] -/A << /S /GoTo /D (descdata) >> ->> -% 1274 0 obj -<< -/D [1272 0 R /XYZ 149.705 753.953 null] ->> -% 280 0 obj -<< -/D [1272 0 R /XYZ 150.705 720.077 null] ->> -% 1275 0 obj -<< -/D [1272 0 R /XYZ 320.941 451.038 null] ->> -% 1276 0 obj -<< -/D [1272 0 R /XYZ 150.705 417.777 null] ->> -% 1277 0 obj -<< -/D [1272 0 R /XYZ 150.705 417.777 null] ->> -% 1271 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F10 771 0 R /F14 772 0 R /F7 770 0 R /F27 560 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1281 0 obj -<< -/Type /Page -/Contents 1282 0 R -/Resources 1280 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R -/Annots [ 1270 0 R 1278 0 R 1279 0 R ] ->> -% 1270 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [285.522 643.143 361.576 654.268] -/A << /S /GoTo /D (vdata) >> ->> -% 1278 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [123.806 543.516 199.86 554.641] -/A << /S /GoTo /D (vdata) >> ->> -% 1279 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [422.94 543.516 434.896 554.641] -/A << /S /GoTo /D (table.17) >> ->> -% 1283 0 obj -<< -/D [1281 0 R /XYZ 98.895 753.953 null] ->> -% 1280 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1285 0 obj -<< -/Type /Page -/Contents 1286 0 R -/Resources 1284 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R ->> -% 1287 0 obj -<< -/D [1285 0 R /XYZ 149.705 753.953 null] ->> -% 284 0 obj -<< -/D [1285 0 R /XYZ 150.705 716.092 null] ->> -% 288 0 obj -<< -/D [1285 0 R /XYZ 150.705 696.263 null] ->> -% 1284 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1290 0 obj -<< -/Type /Page -/Contents 1291 0 R -/Resources 1289 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R -/Annots [ 1288 0 R ] ->> -% 1288 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 325.282 361.779 336.407] -/A << /S /GoTo /D (descdata) >> ->> -% 1292 0 obj -<< -/D [1290 0 R /XYZ 98.895 753.953 null] ->> -% 1293 0 obj -<< -/D [1290 0 R /XYZ 99.895 234.372 null] ->> -% 1289 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F11 755 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1296 0 obj -<< -/Type /Page -/Contents 1297 0 R -/Resources 1295 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1268 0 R -/Annots [ 1294 0 R ] ->> -% 1294 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [408.792 215.702 431.263 226.827] -/A << /S /GoTo /D (subsubsection.2.3.1) >> ->> -% 1298 0 obj -<< -/D [1296 0 R /XYZ 149.705 753.953 null] ->> -% 1299 0 obj -<< -/D [1296 0 R /XYZ 150.705 134.155 null] ->> -% 1295 0 obj -<< -/Font << /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R /F10 771 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1301 0 obj -<< -/Type /Page -/Contents 1302 0 R -/Resources 1300 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R ->> -% 1303 0 obj -<< -/D [1301 0 R /XYZ 98.895 753.953 null] ->> -% 1304 0 obj -<< -/D [1301 0 R /XYZ 99.895 716.092 null] ->> -% 1305 0 obj -<< -/D [1301 0 R /XYZ 99.895 688.251 null] ->> -% 1306 0 obj -<< -/D [1301 0 R /XYZ 99.895 668.049 null] ->> -% 1307 0 obj -<< -/D [1301 0 R /XYZ 99.895 626.428 null] ->> -% 1308 0 obj -<< -/D [1301 0 R /XYZ 99.895 568.7 null] ->> -% 1300 0 obj -<< -/Font << /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1312 0 obj -<< -/Type /Page -/Contents 1313 0 R -/Resources 1311 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R -/Annots [ 1310 0 R ] ->> -% 1310 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 117.115 412.588 128.24] -/A << /S /GoTo /D (descdata) >> ->> -% 1314 0 obj -<< -/D [1312 0 R /XYZ 149.705 753.953 null] ->> -% 292 0 obj -<< -/D [1312 0 R /XYZ 150.705 720.077 null] ->> -% 1311 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F11 755 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1317 0 obj -<< -/Type /Page -/Contents 1318 0 R -/Resources 1316 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R -/Annots [ 1315 0 R ] ->> -% 1315 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [274.574 402.324 297.045 413.172] -/A << /S /GoTo /D (subsubsection.2.3.1) >> ->> -% 1319 0 obj -<< -/D [1317 0 R /XYZ 98.895 753.953 null] ->> -% 1320 0 obj -<< -/D [1317 0 R /XYZ 99.895 496.913 null] ->> -% 1321 0 obj -<< -/D [1317 0 R /XYZ 99.895 475.051 null] ->> -% 1322 0 obj -<< -/D [1317 0 R /XYZ 99.895 431.215 null] ->> -% 1316 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F11 755 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1326 0 obj -<< -/Type /Page -/Contents 1327 0 R -/Resources 1325 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R -/Annots [ 1323 0 R 1324 0 R ] ->> -% 1323 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 574.94 412.588 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1324 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 417.531 412.588 428.656] -/A << /S /GoTo /D (descdata) >> ->> -% 1328 0 obj -<< -/D [1326 0 R /XYZ 149.705 753.953 null] ->> -% 296 0 obj -<< -/D [1326 0 R /XYZ 150.705 720.077 null] ->> -% 1329 0 obj -<< -/D [1326 0 R /XYZ 150.705 327.092 null] ->> -% 1325 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1333 0 obj -<< -/Type /Page -/Contents 1334 0 R -/Resources 1332 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R -/Annots [ 1330 0 R 1331 0 R ] ->> -% 1330 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1331 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 485.277 361.779 496.401] -/A << /S /GoTo /D (descdata) >> ->> -% 1335 0 obj -<< -/D [1333 0 R /XYZ 98.895 753.953 null] ->> -% 300 0 obj -<< -/D [1333 0 R /XYZ 99.895 720.077 null] ->> -% 1332 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1338 0 obj -<< -/Type /Page -/Contents 1339 0 R -/Resources 1337 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1309 0 R -/Annots [ 1336 0 R ] ->> -% 1336 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 574.94 412.588 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1340 0 obj -<< -/D [1338 0 R /XYZ 149.705 753.953 null] ->> -% 304 0 obj -<< -/D [1338 0 R /XYZ 150.705 720.077 null] ->> -% 1337 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> - -endstream -endobj -1345 0 obj -<< -/Length 5927 +/Length 2243 >> stream 0 g 0 G @@ -15486,143 +16156,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(cdbldext)-282(|)-283(Build)-282(an)-282(ex)-1(tended)-282(comm)31(unication)-282(descrip-)]TJ -25.091 -13.948 Td [(tor)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(cdfree)-375(|)-375(F)94(rees)-375(a)-375(comm)31(unication)-375(descriptor)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf 0 -19.114 Td [(call)-525(psb_cdbldext\050a,desc_a,nl,desc_out,)-525(info,)-525(extype\051)]TJ/F8 9.9626 Tf 14.944 -23.476 Td [(This)-298(subroutine)-297(builds)-298(an)-297(extended)-298(comm)28(unication)-298(descriptor,)-305(based)-297(on)-298(the)]TJ -14.944 -11.955 Td [(input)-389(descriptor)]TJ/F30 9.9626 Tf 74.288 0 Td [(desc_a)]TJ/F8 9.9626 Tf 35.261 0 Td [(and)-389(on)-390(the)-389(stencil)-389(s)-1(p)-27(eci\014ed)-390(through)-389(the)-389(input)-390(sparse)]TJ -109.549 -11.956 Td [(matrix)]TJ/F30 9.9626 Tf 32.407 0 Td [(a)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -37.637 -21.094 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -21.483 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -21.484 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 101.176 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -109.893 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(t)27(yp)-27(e.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.484 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 504.47 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 504.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 456.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 456.45 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 456.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 456.45 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -21.484 Td [(nl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(additional)-333(la)28(y)27(ers)-333(desired.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F11 9.9626 Tf 130.428 0 Td [(nl)]TJ/F14 9.9626 Tf 11.916 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(0.)]TJ -0 g 0 G -/F27 9.9626 Tf -177.767 -21.483 Td [(ext)32(yp)-32(e)]TJ -0 g 0 G -/F8 9.9626 Tf 38.398 0 Td [(the)-333(kind)-334(of)-333(estension)-333(required.)]TJ -13.491 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 44.396 0 Td [(.)]TJ -69.579 -11.956 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)-419(as:)-616(an)-420(in)28(teger)-419(v)55(alue)]TJ/F30 9.9626 Tf 135.566 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 7.159 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)-441(default:)]TJ/F30 9.9626 Tf -278.714 -11.955 Td [(psb_ovt_xhal_)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -23.476 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -21.484 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 261.126 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 260.927 Td [(out)]TJ -0 g 0 G -/F8 9.9626 Tf 21.53 0 Td [(the)-333(extended)-334(comm)28(unication)-333(descriptor.)]TJ -21.975 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 213.305 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 213.106 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 213.305 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 213.106 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.484 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -23.476 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 166.875 -29.888 Td [(73)]TJ -0 g 0 G -ET - -endstream -endobj -1351 0 obj -<< -/Length 1587 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 162.881 706.129 Td [(1.)]TJ -0 g 0 G - [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.092 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 70.801 0 Td [(for)-282(the)]TJ/F30 9.9626 Tf 31.376 0 Td [(extype)]TJ/F8 9.9626 Tf 34.189 0 Td [(argumen)28(t)-282(the)-282(u)1(s)-1(er)-281(will)-282(obtain)-281(a)]TJ -183.728 -11.955 Td [(descriptor)-258(for)-257(a)-258(domain)-257(partition)-258(in)-257(whic)28(h)-258(the)-257(additional)-258(la)28(y)28(ers)-258(are)-257(fetc)27(hed)]TJ 0 -11.955 Td [(as)-415(part)-415(of)-415(an)-415(\050extended\051)-415(halo;)-456(ho)28(w)27(ev)28(er)-415(the)-415(index-to-pro)-28(cess)-415(mapping)-415(is)]TJ 0 -11.956 Td [(iden)28(tical)-334(to)-333(that)-333(of)-333(the)-334(base)-333(descriptor;)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.957 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 71.666 0 Td [(for)-368(the)]TJ/F30 9.9626 Tf 33.108 0 Td [(extype)]TJ/F8 9.9626 Tf 35.053 0 Td [(argumen)28(t)-369(the)-368(user)-369(will)-368(obtain)]TJ -188.054 -11.955 Td [(a)-458(descriptor)-459(with)-458(an)-458(o)28(v)27(erlapp)-27(ed)-459(decomp)-28(osition:)-694(the)-458(additional)-458(la)27(y)28(er)-458(is)]TJ 0 -11.955 Td [(aggregated)-413(to)-413(the)-414(l)1(o)-28(cal)-413(sub)-28(domain)-413(\050and)-413(th)27(u)1(s)-414(is)-413(an)-413(o)28(v)28(erlap\051,)-433(and)-413(a)-414(new)]TJ 0 -11.955 Td [(halo)-333(extending)-334(b)-27(ey)27(ond)-333(the)-333(last)-334(ad)1(ditional)-334(la)28(y)28(er)-333(is)-334(formed.)]TJ -0 g 0 G - 141.968 -524.035 Td [(74)]TJ -0 g 0 G -ET - -endstream -endobj -1359 0 obj -<< -/Length 4887 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(spall)-375(|)-375(Allo)-31(cates)-375(a)-375(sparse)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdfree\050desc_a,)-525(info\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -15640,7 +16177,7 @@ Q BT /F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(to)-333(b)-28(e)-334(freed.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET @@ -15660,60 +16197,22 @@ BT 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(nnz)]TJ -0 g 0 G -/F8 9.9626 Tf 22.804 0 Td [(An)-309(estimate)-309(of)-308(the)-309(n)28(um)28(b)-28(er)-309(of)-309(nonzero)-27(es)-309(in)-309(the)-309(lo)-28(cal)-308(part)-309(of)-309(the)-308(as)-1(sem)28(bled)]TJ 2.103 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(a)]TJ + 0 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(allo)-28(cated.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 408.786 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 408.786 Td [(type)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-333(is)-334(in)-333(the)-333(build)-334(state.)]TJ -0 g 0 G - 0 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(The)-333(descriptor)-334(ma)28(y)-333(b)-28(e)-333(in)-334(either)-333(the)-333(build)-333(or)-334(assem)28(bled)-333(state.)]TJ -0 g 0 G - 0 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(Pro)28(viding)-307(a)-308(go)-27(o)-28(d)-307(es)-1(timate)-307(for)-307(the)-307(n)27(um)28(b)-28(er)-307(of)-307(nonzero)-28(es)]TJ/F11 9.9626 Tf 254.288 0 Td [(nnz)]TJ/F8 9.9626 Tf 20.092 0 Td [(in)-307(the)-308(assem-)]TJ -261.65 -11.955 Td [(bled)-401(m)-1(atr)1(ix)-402(ma)28(y)-402(substan)28(tially)-401(impro)27(v)28(e)-401(p)-28(erformance)-402(in)-401(the)-402(matrix)-401(build)]TJ 0 -11.955 Td [(phase,)-458(as)-433(it)-432(will)-433(reduce)-433(or)-433(eliminate)-433(the)-433(need)-432(for)-433(\050p)-28(oten)28(tially)-433(m)28(ultiple\051)]TJ 0 -11.956 Td [(data)-333(reallo)-28(cations.)]TJ -0 g 0 G - 141.968 -133.042 Td [(75)]TJ + 141.968 -398.049 Td [(77)]TJ 0 g 0 G ET endstream endobj -1367 0 obj +1404 0 obj << -/Length 5725 +/Length 5916 >> stream 0 g 0 G @@ -15726,7 +16225,247 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(spins)-321(|)-322(Insert)-321(a)-321(set)-321(of)-322(co)-31(e\016cien)31(ts)-321(in)31(to)-321(a)-321(sparse)-321(matrix)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(cdbldext)-282(|)-283(Build)-282(an)-282(extended)-283(comm)31(unication)-282(descrip-)]TJ -25.091 -13.948 Td [(tor)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf 0 -19.114 Td [(call)-525(psb_cdbldext\050a,desc_a,nl,desc_out,)-525(info,)-525(extype\051)]TJ/F8 9.9626 Tf 14.944 -23.476 Td [(This)-298(subroutin)1(e)-298(builds)-298(an)-297(extended)-298(comm)28(unication)-298(descriptor,)-305(based)-297(on)-298(the)]TJ -14.944 -11.955 Td [(input)-389(descriptor)]TJ/F30 9.9626 Tf 74.287 0 Td [(desc_a)]TJ/F8 9.9626 Tf 35.261 0 Td [(and)-389(on)-390(the)-389(stencil)-390(sp)-27(eci\014ed)-390(through)-389(the)-389(input)-390(sparse)]TJ -109.548 -11.956 Td [(matrix)]TJ/F30 9.9626 Tf 32.406 0 Td [(a)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -37.637 -21.094 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -21.483 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -21.484 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 101.176 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -109.893 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(t)27(yp)-27(e.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.484 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 504.47 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 504.27 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 456.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 456.45 Td [(Tspmat)]TJ +ET +q +1 0 0 1 397.993 456.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 401.131 456.45 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.347 -21.484 Td [(nl)]TJ +0 g 0 G +/F8 9.9626 Tf 14.529 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(additional)-333(la)28(y)27(ers)-333(desired.)]TJ 10.377 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)]TJ/F11 9.9626 Tf 130.428 0 Td [(nl)]TJ/F14 9.9626 Tf 11.916 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(0.)]TJ +0 g 0 G +/F27 9.9626 Tf -177.766 -21.483 Td [(ext)32(yp)-32(e)]TJ +0 g 0 G +/F8 9.9626 Tf 38.397 0 Td [(the)-333(kind)-334(of)-333(estension)-333(required.)]TJ -13.491 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 44.396 0 Td [(.)]TJ -69.58 -11.956 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)-419(as:)-616(an)-420(in)28(teger)-419(v)55(alue)]TJ/F30 9.9626 Tf 135.566 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 7.159 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-441(default:)]TJ/F30 9.9626 Tf -278.714 -11.955 Td [(psb_ovt_xhal_)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -23.476 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -21.484 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 261.126 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 260.927 Td [(out)]TJ +0 g 0 G +/F8 9.9626 Tf 21.53 0 Td [(the)-333(extended)-334(comm)28(unication)-333(descriptor.)]TJ -21.976 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 213.305 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 213.106 Td [(desc)]TJ +ET +q +1 0 0 1 387.532 213.305 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 390.67 213.106 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -21.484 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -23.476 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 166.874 -29.888 Td [(78)]TJ +0 g 0 G +ET + +endstream +endobj +1408 0 obj +<< +/Length 1591 +>> +stream +0 g 0 G +0 g 0 G +0 g 0 G +BT +/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ +0 g 0 G + [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.091 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 70.801 0 Td [(for)-282(the)]TJ/F30 9.9626 Tf 31.377 0 Td [(extype)]TJ/F8 9.9626 Tf 34.188 0 Td [(argumen)28(t)-282(the)-282(user)-281(will)-282(obtain)-281(a)]TJ -183.727 -11.955 Td [(descriptor)-258(f)1(o)-1(r)-257(a)-258(domain)-257(partition)-258(in)-257(whic)28(h)-258(the)-257(additional)-258(la)28(y)28(ers)-258(are)-257(fetc)27(hed)]TJ 0 -11.955 Td [(as)-415(part)-415(of)-415(an)-415(\050extended\051)-415(halo;)-456(ho)28(w)27(ev)28(er)-415(the)-415(index-to-pro)-28(cess)-415(mapping)-415(is)]TJ 0 -11.956 Td [(iden)28(tical)-334(t)1(o)-334(that)-333(of)-333(the)-334(base)-333(descriptor;)]TJ +0 g 0 G + -12.73 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.957 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 71.666 0 Td [(for)-368(the)]TJ/F30 9.9626 Tf 33.107 0 Td [(extype)]TJ/F8 9.9626 Tf 35.054 0 Td [(argumen)28(t)-369(the)-368(user)-369(will)-368(obtain)]TJ -188.054 -11.955 Td [(a)-458(descriptor)-459(with)-458(an)-458(o)28(v)27(erlapp)-27(ed)-459(decomp)-27(os)-1(iti)1(on:)-695(the)-458(additional)-458(la)27(y)28(er)-458(is)]TJ 0 -11.955 Td [(aggregated)-413(to)-413(the)-413(lo)-28(cal)-413(sub)-28(domain)-413(\050and)-413(th)28(us)-414(is)-413(an)-413(o)28(v)28(erlap\051,)-433(and)-413(a)-414(new)]TJ 0 -11.955 Td [(halo)-333(extending)-334(b)-27(ey)27(on)1(d)-334(the)-333(last)-333(additional)-334(la)28(y)28(er)-333(is)-334(formed.)]TJ +0 g 0 G + 141.968 -524.035 Td [(79)]TJ +0 g 0 G +ET + +endstream +endobj +1417 0 obj +<< +/Length 4890 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(spall)-375(|)-375(Allo)-31(cates)-375(a)-375(sparse)-375(matrix)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 626.17 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 625.971 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ +ET +q +1 0 0 1 387.532 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -19.925 Td [(nnz)]TJ +0 g 0 G +/F8 9.9626 Tf 22.803 0 Td [(An)-309(estimate)-309(of)-308(the)-309(n)28(um)27(b)-27(er)-309(of)-309(nonzero)-28(es)-308(in)-309(the)-309(lo)-28(cal)-308(part)-309(of)-309(the)-309(assem)28(bled)]TJ 2.103 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(allo)-28(cated.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 408.985 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 408.786 Td [(Tspmat)]TJ +ET +q +1 0 0 1 397.993 408.985 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 401.131 408.786 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.347 -19.926 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-334(i)1(s)-334(in)-333(the)-333(build)-334(state.)]TJ +0 g 0 G + 0 -19.926 Td [(2.)]TJ +0 g 0 G + [-500(The)-333(descriptor)-334(ma)28(y)-333(b)-28(e)-333(in)-334(either)-333(the)-333(build)-333(or)-334(assem)28(bled)-333(s)-1(tat)1(e)-1(.)]TJ +0 g 0 G + 0 -19.925 Td [(3.)]TJ +0 g 0 G + [-500(Pro)28(viding)-307(a)-308(go)-27(o)-28(d)-307(e)-1(stimate)-307(for)-307(the)-307(n)27(um)28(b)-28(er)-307(of)-307(nonzero)-28(es)]TJ/F11 9.9626 Tf 254.288 0 Td [(nnz)]TJ/F8 9.9626 Tf 20.093 0 Td [(in)-307(the)-308(assem-)]TJ -261.651 -11.955 Td [(bled)-402(matrix)-401(ma)28(y)-402(substan)28(tially)-401(impro)27(v)28(e)-401(p)-28(erformance)-402(in)-401(the)-402(matrix)-401(build)]TJ 0 -11.955 Td [(phase,)-458(as)-433(it)-432(will)-433(reduce)-433(or)-433(eliminate)-433(the)-433(need)-432(for)-433(\050p)-28(oten)28(tially)-433(m)28(ultiple\051)]TJ 0 -11.956 Td [(data)-333(reallo)-28(cations.)]TJ +0 g 0 G + 141.968 -133.042 Td [(80)]TJ +0 g 0 G +ET + +endstream +endobj +1425 0 obj +<< +/Length 5704 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(spins)-321(|)-322(Insert)-321(a)-321(set)-321(of)-322(co)-31(e\016cien)31(ts)-321(in)31(to)-321(a)-321(sparse)-321(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -19.775 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.955 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 @@ -15740,188 +16479,188 @@ BT 0 g 0 G 0 -22.903 Td [(nz)]TJ 0 g 0 G -/F8 9.9626 Tf 16.438 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.469 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(sc)-1(alar)1(.)]TJ +/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.468 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(scalar.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -22.903 Td [(nr)]TJ +/F27 9.9626 Tf -24.907 -22.903 Td [(nr)]TJ 0 g 0 G -/F8 9.9626 Tf 16.065 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(ro)28(ws)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.841 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(sc)-1(alar)1(.)]TJ +/F8 9.9626 Tf 16.065 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(ro)28(ws)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.842 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(an)-333(in)28(teger)-333(scalar.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -22.903 Td [(irw)]TJ +/F27 9.9626 Tf -24.907 -22.903 Td [(irw)]TJ 0 g 0 G -/F8 9.9626 Tf 21.157 0 Td [(the)-333(\014rst)-334(ro)28(w)-333(to)-333(b)-28(e)-334(inserted.)]TJ 3.749 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(sc)-1(alar)1(.)]TJ +/F8 9.9626 Tf 21.157 0 Td [(the)-333(\014rst)-334(ro)28(w)-333(to)-334(b)-27(e)-334(inserted.)]TJ 3.75 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(scalar.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -22.903 Td [(ia)]TJ +/F27 9.9626 Tf -24.907 -22.903 Td [(ia)]TJ 0 g 0 G -/F8 9.9626 Tf 13.733 0 Td [(the)-333(ro)27(w)-333(indices)-333(of)-334(th)1(e)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.052 0 Td [(.)]TJ +/F8 9.9626 Tf 13.734 0 Td [(the)-333(ro)28(w)-334(indices)-333(of)-333(the)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -196.938 -22.903 Td [(irp)]TJ 0 g 0 G -/F8 9.9626 Tf 19.247 0 Td [(the)-333(ro)27(w)-333(p)-28(oin)28(ters)-333(of)-333(the)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 5.659 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nr)]TJ/F8 9.9626 Tf 12.966 0 Td [(+)-222(1.)]TJ +/F8 9.9626 Tf 19.248 0 Td [(the)-333(ro)28(w)-334(p)-28(oin)28(ters)-333(of)-333(the)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 5.659 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nr)]TJ/F8 9.9626 Tf 12.965 0 Td [(+)-222(1.)]TJ 0 g 0 G /F27 9.9626 Tf -198.852 -22.903 Td [(ja)]TJ 0 g 0 G -/F8 9.9626 Tf 14.051 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(co)-27(e)-1(\016cien)28(ts)-333(to)-333(b)-28(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ +/F8 9.9626 Tf 14.052 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(co)-27(e\016)-1(cien)28(ts)-333(to)-333(b)-28(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -196.937 -22.903 Td [(v)64(al)]TJ +/F27 9.9626 Tf -196.938 -22.903 Td [(v)64(al)]TJ 0 g 0 G -/F8 9.9626 Tf 19.143 0 Td [(the)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -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)-375(as:)-528(an)-375(arra)28(y)-375(of)-375(size)]TJ/F11 9.9626 Tf 130.933 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)-570(Must)-375(b)-28(e)-375(of)-375(the)-375(same)-375(t)28(yp)-28(e)-375(and)-375(kind)-375(of)]TJ -141.984 -11.956 Td [(the)-333(co)-28(e\016cien)27(ts)-333(of)-333(the)-334(spar)1(s)-1(e)-333(matrix)]TJ/F11 9.9626 Tf 158.517 0 Td [(a)]TJ/F8 9.9626 Tf 5.266 0 Td [(.)]TJ +/F8 9.9626 Tf 19.144 0 Td [(the)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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)-375(as:)-528(an)-375(arra)28(y)-375(of)-375(size)]TJ/F11 9.9626 Tf 130.933 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)-570(Must)-375(b)-28(e)-375(of)-375(the)-375(same)-375(t)28(yp)-28(e)-375(and)-375(kind)-375(of)]TJ -141.984 -11.956 Td [(the)-333(co)-28(e\016cien)28(ts)-334(of)-333(the)-333(s)-1(p)1(ars)-1(e)-333(matrix)]TJ/F11 9.9626 Tf 158.517 0 Td [(a)]TJ/F8 9.9626 Tf 5.266 0 Td [(.)]TJ 0 g 0 G - -21.815 -29.887 Td [(76)]TJ + -21.815 -29.887 Td [(81)]TJ 0 g 0 G ET endstream endobj -1373 0 obj +1431 0 obj << -/Length 7378 +/Length 7364 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(desc)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(desc)]TJ ET q -1 0 0 1 121.81 706.328 cm +1 0 0 1 172.619 706.328 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 706.129 Td [(a)]TJ +/F27 9.9626 Tf 176.057 706.129 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.346 0 Td [(psb)]TJ +/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ ET q -1 0 0 1 278.467 658.507 cm +1 0 0 1 329.276 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 281.605 658.308 Td [(desc)]TJ +/F30 9.9626 Tf 332.415 658.308 Td [(desc)]TJ ET q -1 0 0 1 303.154 658.507 cm +1 0 0 1 353.964 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 306.292 658.308 Td [(type)]TJ +/F30 9.9626 Tf 357.102 658.308 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -227.319 -31.349 Td [(lo)-32(cal)]TJ +/F27 9.9626 Tf -227.318 -31.349 Td [(lo)-32(cal)]TJ 0 g 0 G -/F8 9.9626 Tf 28.055 0 Td [(Whether)-465(the)-464(en)27(tr)1(ie)-1(s)-464(in)-465(the)-465(in)1(dice)-1(s)-464(v)28(ec)-1(tor)1(s)]TJ/F30 9.9626 Tf 194.825 0 Td [(ia)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 7.724 0 Td [(ja)]TJ/F8 9.9626 Tf 15.09 0 Td [(are)-465(already)-464(in)-465(lo)-28(cal)]TJ -231.248 -11.955 Td [(n)28(um)28(b)-28(ering.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ +/F8 9.9626 Tf 28.054 0 Td [(Whether)-465(the)-464(en)27(tries)-464(in)-465(the)-465(ind)1(ic)-1(es)-464(v)28(e)-1(ctors)]TJ/F30 9.9626 Tf 194.825 0 Td [(ia)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 7.724 0 Td [(ja)]TJ/F8 9.9626 Tf 15.09 0 Td [(are)-465(already)-464(in)-465(lo)-28(cal)]TJ -231.248 -11.955 Td [(n)28(um)28(b)-28(ering.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -224.575 -20.589 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -224.574 -20.589 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.394 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(in)28(to)-333(whic)28(h)-334(co)-27(e)-1(\016cien)28(ts)-333(will)-333(b)-28(e)-334(inserted.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(matrix)-334(in)28(to)-333(whic)28(h)-334(co)-28(e\016cien)28(ts)-333(will)-334(b)-27(e)-334(inserted.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 491.534 cm +1 0 0 1 362.845 491.534 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 491.334 Td [(Tspmat)]TJ +/F30 9.9626 Tf 365.983 491.334 Td [(Tspmat)]TJ ET q -1 0 0 1 347.183 491.534 cm +1 0 0 1 397.993 491.534 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 350.322 491.334 Td [(type)]TJ +/F30 9.9626 Tf 401.131 491.334 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -271.348 -19.394 Td [(desc)]TJ +/F27 9.9626 Tf -271.347 -19.394 Td [(desc)]TJ ET q -1 0 0 1 121.81 472.14 cm +1 0 0 1 172.619 472.14 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 471.94 Td [(a)]TJ +/F27 9.9626 Tf 176.057 471.94 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.346 0 Td [(psb)]TJ +/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ ET q -1 0 0 1 278.467 424.319 cm +1 0 0 1 329.276 424.319 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 281.605 424.12 Td [(desc)]TJ +/F30 9.9626 Tf 332.415 424.12 Td [(desc)]TJ ET q -1 0 0 1 303.154 424.319 cm +1 0 0 1 353.964 424.319 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 306.292 424.12 Td [(type)]TJ +/F30 9.9626 Tf 357.102 424.12 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -227.319 -31.349 Td [(info)]TJ +/F27 9.9626 Tf -227.318 -31.349 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -20.59 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -20.59 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -18.862 Td [(1.)]TJ +/F8 9.9626 Tf 12.176 -18.862 Td [(1.)]TJ 0 g 0 G [-500(On)-487(en)28(try)-487(to)-488(this)-487(routine)-487(the)-487(descriptor)-487(ma)28(y)-488(b)-27(e)-488(in)-487(either)-487(the)-487(build)-487(or)]TJ 12.73 -11.955 Td [(assem)28(bled)-334(state.)]TJ 0 g 0 G -12.73 -19.394 Td [(2.)]TJ 0 g 0 G - [-500(On)-363(en)28(try)-362(to)-363(this)-363(routine)-362(the)-363(sparse)-363(matrix)-363(ma)28(y)-363(b)-27(e)-363(in)-363(either)-362(the)-363(build)-363(or)]TJ 12.73 -11.955 Td [(up)-28(date)-333(state.)]TJ + [-500(On)-363(en)28(try)-363(to)-362(this)-363(routine)-362(the)-363(sparse)-363(matrix)-363(ma)28(y)-363(b)-27(e)-363(in)-363(either)-362(the)-363(build)-363(or)]TJ 12.73 -11.955 Td [(up)-28(date)-333(state.)]TJ 0 g 0 G -12.73 -19.394 Td [(3.)]TJ 0 g 0 G - [-500(If)-230(the)-231(descriptor)-230(is)-231(in)-230(the)-231(build)-230(state,)-251(then)-231(the)-230(sparse)-231(matrix)-230(m)28(ust)-231(also)-230(b)-28(e)-231(in)]TJ 12.73 -11.955 Td [(the)-327(build)-327(state;)-329(the)-328(action)-327(of)-327(the)-327(routine)-327(is)-327(to)-327(\050implicitly\051)-327(call)]TJ/F30 9.9626 Tf 271.731 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf -271.731 -11.956 Td [(to)-419(add)-419(en)28(tries)-419(to)-419(th)1(e)-419(sparsit)27(y)-418(pattern;)-462(eac)28(h)-419(sparse)-419(matrix)-419(en)28(try)-419(implic-)]TJ 0 -11.955 Td [(itly)-359(de\014nes)-360(a)-360(grap)1(h)-360(edge,)-366(that)-360(is)-359(passed)-360(to)-359(the)-360(descriptor)-359(routine)-360(for)-359(the)]TJ 0 -11.955 Td [(appropriate)-333(pro)-28(cessing;)]TJ + [-500(If)-230(the)-231(descriptor)-230(is)-231(in)-230(the)-231(build)-230(state,)-251(then)-231(the)-230(sparse)-231(matrix)-230(m)28(ust)-231(also)-230(b)-28(e)-231(in)]TJ 12.73 -11.955 Td [(the)-327(build)-327(state;)-329(the)-328(action)-327(of)-327(the)-327(routine)-327(is)-327(to)-327(\050implicitly\051)-327(call)]TJ/F30 9.9626 Tf 271.732 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf -271.732 -11.956 Td [(to)-419(add)-419(en)28(tries)-419(to)-419(the)-418(sparsit)27(y)-418(pattern;)-462(eac)28(h)-419(sparse)-419(matrix)-419(en)28(try)-419(implic-)]TJ 0 -11.955 Td [(itly)-360(d)1(e)-1(\014)1(nes)-360(a)-360(graph)-359(edge,)-366(that)-360(is)-359(passed)-360(to)-359(the)-360(descriptor)-359(routine)-360(for)-359(the)]TJ 0 -11.955 Td [(appropriate)-333(pro)-28(cessing;)]TJ 0 g 0 G -12.73 -19.394 Td [(4.)]TJ 0 g 0 G - [-500(The)-333(input)-334(d)1(ata)-334(can)-333(b)-28(e)-333(passed)-334(in)-333(either)-333(COO)-334(or)-333(CSR)-333(formats;)]TJ + [-500(The)-333(input)-334(data)-333(can)-333(b)-28(e)-333(passed)-334(in)-333(either)-333(COO)-334(or)-333(CSR)-333(formats;)]TJ 0 g 0 G 0 -19.394 Td [(5.)]TJ 0 g 0 G - [-500(In)-368(COO)-367(format)-368(the)-367(co)-28(e\016cien)28(ts)-368(to)-368(b)-27(e)-368(inserted)-368(are)-367(represen)28(ted)-368(b)28(y)-368(the)-367(or-)]TJ 12.73 -11.955 Td [(dered)-358(triples)]TJ/F11 9.9626 Tf 58.162 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(v)-36(a)1(l)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051,)-364(for)]TJ/F11 9.9626 Tf 25.762 0 Td [(i)]TJ/F8 9.9626 Tf 6.608 0 Td [(=)-319(1)]TJ/F11 9.9626 Tf 15.905 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(nz)]TJ/F8 9.9626 Tf 33.191 0 Td [(;)-370(these)-358(triples)-358(should)-358(b)-28(e-)]TJ -210.411 -11.955 Td [(long)-384(to)-385(the)-384(curren)28(t)-385(pro)-28(cess,)-397(i.e.)]TJ/F11 9.9626 Tf 144.426 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-384(should)-385(b)-28(e)-384(one)-384(of)-385(the)-384(lo)-28(cal)-385(ind)1(ic)-1(es,)]TJ -160.431 -11.955 Td [(but)-333(are)-334(otherwise)-333(arbitrary;)]TJ + [-500(In)-368(COO)-367(format)-368(the)-367(co)-28(e\016cien)28(ts)-368(to)-368(b)-27(e)-368(inserted)-368(are)-367(represen)28(te)-1(d)-367(b)28(y)-368(the)-367(or-)]TJ 12.73 -11.955 Td [(dered)-358(triples)]TJ/F11 9.9626 Tf 58.163 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051,)-364(for)]TJ/F11 9.9626 Tf 25.762 0 Td [(i)]TJ/F8 9.9626 Tf 6.607 0 Td [(=)-319(1)]TJ/F11 9.9626 Tf 15.906 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(nz)]TJ/F8 9.9626 Tf 33.19 0 Td [(;)-370(these)-358(triples)-358(should)-358(b)-28(e-)]TJ -210.411 -11.955 Td [(long)-384(to)-385(the)-384(curren)27(t)-384(pro)-28(cess,)-397(i.e.)]TJ/F11 9.9626 Tf 144.426 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-384(s)-1(h)1(ould)-385(b)-28(e)-384(one)-385(of)-384(the)-384(lo)-28(cal)-385(indices,)]TJ -160.431 -11.955 Td [(but)-333(are)-334(otherwise)-333(arbitrary;)]TJ 0 g 0 G - 141.968 -29.888 Td [(77)]TJ + 141.968 -29.888 Td [(82)]TJ 0 g 0 G ET endstream endobj -1382 0 obj +1440 0 obj << -/Length 3810 +/Length 3795 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F8 9.9626 Tf 162.881 706.129 Td [(6.)]TJ +/F8 9.9626 Tf 112.072 706.129 Td [(6.)]TJ 0 g 0 G - [-500(In)-497(CSR)-496(format)-496(the)-497(co)-28(e\016cien)28(ts)-497(to)-496(b)-28(e)-497(inserted)-496(for)-497(eac)28(h)-496(input)-497(ro)28(w)]TJ/F11 9.9626 Tf 314.877 0 Td [(i)]TJ/F8 9.9626 Tf 8.909 0 Td [(=)]TJ -311.056 -11.955 Td [(1)]TJ/F11 9.9626 Tf 4.982 0 Td [(;)-167(nr)]TJ/F8 9.9626 Tf 18.296 0 Td [(are)-313(represen)28(ted)-313(b)28(y)-313(the)-313(ordered)-313(triples)-312(\050)]TJ/F11 9.9626 Tf 169.802 0 Td [(i)]TJ/F8 9.9626 Tf 5.238 0 Td [(+)]TJ/F11 9.9626 Tf 9.554 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 17.41 0 Td [(\000)]TJ/F8 9.9626 Tf 9.555 0 Td [(1\051)]TJ/F11 9.9626 Tf 8.856 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.05 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051,)-317(for)]TJ/F11 9.9626 Tf -297.078 -11.955 Td [(j)]TJ/F8 9.9626 Tf 8.599 0 Td [(=)]TJ/F11 9.9626 Tf 11.674 0 Td [(ir)-28(p)]TJ/F8 9.9626 Tf 13.216 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(ir)-28(p)]TJ/F8 9.9626 Tf 35.355 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 6.109 0 Td [(+)-269(1\051)]TJ/F14 9.9626 Tf 21.959 0 Td [(\000)]TJ/F8 9.9626 Tf 10.426 0 Td [(1;)-438(these)-403(triples)-403(should)-403(b)-28(elong)-403(to)-403(the)-403(curren)28(t)]TJ -122.394 -11.956 Td [(pro)-28(cess,)-272(i.e.)]TJ/F11 9.9626 Tf 53.794 0 Td [(i)]TJ/F8 9.9626 Tf 4.123 0 Td [(+)]TJ/F11 9.9626 Tf 8.44 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 16.295 0 Td [(\000)]TJ/F8 9.9626 Tf 8.44 0 Td [(1)-257(should)-257(b)-28(e)-256(one)-257(of)-257(the)-257(lo)-28(cal)-257(indices,)-272(but)-257(are)-257(otherwise)]TJ -91.092 -11.955 Td [(arbitrary;)]TJ + [-500(In)-497(CS)1(R)-497(format)-496(the)-497(co)-28(e\016cien)28(ts)-497(to)-496(b)-28(e)-497(inserted)-496(for)-497(eac)28(h)-496(input)-497(ro)28(w)]TJ/F11 9.9626 Tf 314.876 0 Td [(i)]TJ/F8 9.9626 Tf 8.91 0 Td [(=)]TJ -311.056 -11.955 Td [(1)]TJ/F11 9.9626 Tf 4.981 0 Td [(;)-167(nr)]TJ/F8 9.9626 Tf 18.296 0 Td [(are)-313(represen)28(ted)-313(b)28(y)-313(the)-313(ordered)-313(triples)-313(\050)]TJ/F11 9.9626 Tf 169.802 0 Td [(i)]TJ/F8 9.9626 Tf 5.238 0 Td [(+)]TJ/F11 9.9626 Tf 9.555 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 17.41 0 Td [(\000)]TJ/F8 9.9626 Tf 9.555 0 Td [(1\051)]TJ/F11 9.9626 Tf 8.855 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(j)]TJ/F8 9.9626 Tf 4.672 0 Td [(\051,)-317(for)]TJ/F11 9.9626 Tf -297.077 -11.955 Td [(j)]TJ/F8 9.9626 Tf 8.598 0 Td [(=)]TJ/F11 9.9626 Tf 11.674 0 Td [(ir)-28(p)]TJ/F8 9.9626 Tf 13.217 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(ir)-28(p)]TJ/F8 9.9626 Tf 35.355 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 6.11 0 Td [(+)-269(1\051)]TJ/F14 9.9626 Tf 21.958 0 Td [(\000)]TJ/F8 9.9626 Tf 10.426 0 Td [(1;)-438(these)-403(triples)-403(should)-403(b)-28(elong)-403(to)-403(the)-403(curren)28(t)]TJ -122.393 -11.956 Td [(pro)-28(cess,)-272(i.e.)]TJ/F11 9.9626 Tf 53.793 0 Td [(i)]TJ/F8 9.9626 Tf 4.124 0 Td [(+)]TJ/F11 9.9626 Tf 8.44 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 16.295 0 Td [(\000)]TJ/F8 9.9626 Tf 8.44 0 Td [(1)-257(should)-257(b)-27(e)-257(one)-257(of)-257(the)-257(lo)-28(cal)-257(indices,)-272(but)-257(are)-257(otherwise)]TJ -91.092 -11.955 Td [(arbitrary;)]TJ 0 g 0 G -12.73 -19.925 Td [(7.)]TJ 0 g 0 G - [-500(There)-386(is)-385(no)-386(requiremen)28(t)-386(that)-386(a)-385(giv)28(e)-1(n)-385(ro)28(w)-386(m)28(ust)-386(b)-28(e)-385(pass)-1(ed)-385(in)-386(its)-386(en)28(tiret)28(y)]TJ 12.73 -11.955 Td [(to)-355(a)-354(single)-355(call)-354(to)-355(this)-354(routine:)-487(the)-355(buildup)-354(of)-355(a)-354(ro)28(w)-355(ma)28(y)-355(b)-28(e)-354(split)-355(in)28(to)-355(as)]TJ 0 -11.955 Td [(man)28(y)-334(calls)-333(as)-333(desired)-334(\050ev)28(en)-333(in)-334(th)1(e)-334(CSR)-333(format\051;)]TJ + [-500(There)-386(is)-385(no)-386(requiremen)28(t)-386(that)-386(a)-385(giv)28(en)-386(ro)28(w)-386(m)28(ust)-386(b)-28(e)-385(passe)-1(d)-385(in)-386(its)-385(e)-1(n)28(tiret)28(y)]TJ 12.73 -11.955 Td [(to)-355(a)-354(single)-355(call)-354(to)-355(this)-354(routine:)-487(the)-355(buildup)-354(of)-355(a)-354(ro)28(w)-355(ma)28(y)-355(b)-28(e)-354(split)-355(in)28(to)-354(as)]TJ 0 -11.955 Td [(man)28(y)-334(calls)-333(as)-333(desired)-334(\050ev)28(en)-333(in)-333(the)-334(CSR)-333(format\051;)]TJ 0 g 0 G -12.73 -19.926 Td [(8.)]TJ 0 g 0 G - [-500(Co)-28(e\016cien)28(ts)-409(from)-410(di\013eren)28(t)-409(ro)28(ws)-410(ma)28(y)-409(also)-409(b)-28(e)-409(m)-1(ix)1(e)-1(d)-409(up)-409(freely)-409(in)-409(a)-410(single)]TJ 12.73 -11.955 Td [(call,)-333(according)-334(to)-333(the)-333(application)-334(n)1(e)-1(eds;)]TJ + [-500(Co)-28(e\016cien)28(ts)-409(from)-410(di\013eren)28(t)-409(ro)28(ws)-410(ma)28(y)-409(also)-409(b)-28(e)-409(mixed)-410(up)-409(freely)-409(in)-409(a)-410(single)]TJ 12.73 -11.955 Td [(call,)-333(according)-334(to)-333(the)-333(application)-333(nee)-1(d)1(s)-1(;)]TJ 0 g 0 G -12.73 -19.925 Td [(9.)]TJ 0 g 0 G - [-500(An)28(y)-416(co)-28(e\016cien)28(ts)-416(from)-416(matrix)-416(ro)28(ws)-416(not)-416(o)28(wned)-416(b)28(y)-416(the)-416(calling)-416(pro)-28(cess)-416(are)]TJ 12.73 -11.955 Td [(silen)28(tly)-334(ignor)1(e)-1(d)1(;)]TJ + [-500(An)28(y)-416(co)-28(e\016cien)28(ts)-416(from)-416(matrix)-416(ro)28(ws)-416(not)-416(o)28(wned)-416(b)28(y)-416(the)-416(calling)-416(pro)-28(cess)-416(are)]TJ 12.73 -11.955 Td [(silen)28(tly)-334(ign)1(ored;)]TJ 0 g 0 G -17.711 -19.926 Td [(10.)]TJ 0 g 0 G @@ -15929,30 +16668,30 @@ BT 0 g 0 G -17.711 -19.925 Td [(11.)]TJ 0 g 0 G - [-500(If)-309(th)1(e)-309(matrix)-309(is)-308(in)-309(the)-308(up)-28(date)-309(state,)-313(an)28(y)-309(en)28(tries)-309(in)-308(p)-28(ositions)-309(that)-308(w)28(ere)-309(not)]TJ 17.711 -11.955 Td [(presen)28(t)-334(in)-333(the)-333(original)-333(matrix)-334(are)-333(ignored.)]TJ + [-500(If)-308(the)-309(matrix)-309(is)-308(in)-309(the)-308(up)-28(date)-309(state,)-313(an)28(y)-309(en)28(tries)-309(in)-308(p)-28(ositions)-309(th)1(at)-309(w)28(ere)-309(not)]TJ 17.711 -11.955 Td [(presen)28(t)-334(in)-333(the)-333(original)-333(matrix)-334(are)-333(ignored.)]TJ 0 g 0 G - 141.968 -384.558 Td [(78)]TJ + 141.968 -384.558 Td [(83)]TJ 0 g 0 G ET endstream endobj -1394 0 obj +1452 0 obj << -/Length 6641 +/Length 6648 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(spasb)-375(|)-375(Sparse)-375(matrix)-375(assem)31(bly)-375(routine)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(spasb)-375(|)-375(Sparse)-375(matrix)-375(assem)31(bly)-375(routine)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info,)-525(afmt,)-525(upd,)-525(dupl,)-525(mold\051)]TJ @@ -15967,123 +16706,123 @@ BT 0 -19.638 Td [(desc)]TJ ET q -1 0 0 1 121.81 627.46 cm +1 0 0 1 172.619 627.46 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 627.261 Td [(a)]TJ +/F27 9.9626 Tf 176.057 627.261 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 579.639 cm +1 0 0 1 362.845 579.639 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 579.44 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 579.44 Td [(desc)]TJ ET q -1 0 0 1 336.723 579.639 cm +1 0 0 1 387.532 579.639 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 579.44 Td [(type)]TJ +/F30 9.9626 Tf 390.67 579.44 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.639 Td [(afm)32(t)]TJ 0 g 0 G -/F8 9.9626 Tf 27.737 0 Td [(the)-333(storage)-334(format)-333(for)-333(the)-334(sparse)-333(matrix.)]TJ -2.83 -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 [(.)]TJ -70.188 -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(an)-333(arra)28(y)-333(of)-334(c)28(haracters.)-444(Defalt:)-445('CSR'.)]TJ +/F8 9.9626 Tf 27.736 0 Td [(the)-333(storage)-334(format)-333(for)-333(the)-334(sparse)-333(matrix.)]TJ -2.829 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(arra)28(y)-333(of)-334(c)28(haracters.)-444(Defalt:)-445('CSR'.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.639 Td [(up)-32(d)]TJ 0 g 0 G -/F8 9.9626 Tf 24.395 0 Td [(Pro)28(vide)-333(for)-334(up)-27(dates)-334(to)-333(the)-333(matrix)-334(co)-28(e\016cien)28(ts.)]TJ 0.512 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.956 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(teger,)-333(p)-28(ossible)-333(v)55(alues:)]TJ/F30 9.9626 Tf 164.633 0 Td [(psb_upd_srch_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 6.089 0 Td [(psb_upd_perm_)]TJ +/F8 9.9626 Tf 24.394 0 Td [(Pro)28(vide)-334(f)1(or)-334(up)-27(dates)-334(to)-333(the)-334(matri)1(x)-334(co)-28(e\016cien)28(ts.)]TJ 0.513 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(in)27(teger,)-333(p)-28(ossible)-333(v)55(alues:)]TJ/F30 9.9626 Tf 164.632 0 Td [(psb_upd_srch_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 6.088 0 Td [(psb_upd_perm_)]TJ 0 g 0 G -/F27 9.9626 Tf -263.623 -19.639 Td [(dupl)]TJ +/F27 9.9626 Tf -263.622 -19.639 Td [(dupl)]TJ 0 g 0 G -/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.456 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf -316.037 -11.955 Td [(psb_dupl_err_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ +/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf -316.037 -11.955 Td [(psb_dupl_err_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -92.901 -19.639 Td [(mold)]TJ 0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -4.898 -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.956 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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ +/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -4.898 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ ET q -1 0 0 1 344.47 297.847 cm +1 0 0 1 395.279 297.847 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 347.608 297.647 Td [(T)]TJ +/F30 9.9626 Tf 398.417 297.647 Td [(T)]TJ ET q -1 0 0 1 353.466 297.847 cm +1 0 0 1 404.275 297.847 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 356.604 297.647 Td [(base)]TJ +/F30 9.9626 Tf 407.413 297.647 Td [(base)]TJ ET q -1 0 0 1 378.153 297.847 cm +1 0 0 1 428.962 297.847 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 381.291 297.647 Td [(sparse)]TJ +/F30 9.9626 Tf 432.101 297.647 Td [(sparse)]TJ ET q -1 0 0 1 413.301 297.847 cm +1 0 0 1 464.11 297.847 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 416.439 297.647 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ +/F30 9.9626 Tf 467.248 297.647 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -332.235 -21.201 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -332.234 -21.201 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.639 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(assem)28(bled.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(assem)28(bled.)]TJ 14.355 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 209.186 cm +1 0 0 1 362.845 209.186 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 208.986 Td [(Tspmat)]TJ +/F30 9.9626 Tf 365.983 208.986 Td [(Tspmat)]TJ ET q -1 0 0 1 347.183 209.186 cm +1 0 0 1 397.993 209.186 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 350.322 208.986 Td [(type)]TJ +/F30 9.9626 Tf 401.131 208.986 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -271.348 -19.638 Td [(info)]TJ +/F27 9.9626 Tf -271.347 -19.638 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.201 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.201 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 166.875 -29.888 Td [(79)]TJ +/F8 9.9626 Tf 166.874 -29.888 Td [(84)]TJ 0 g 0 G ET endstream endobj -1399 0 obj +1456 0 obj << -/Length 2255 +/Length 2248 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F8 9.9626 Tf 162.881 706.129 Td [(1.)]TJ +/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ 0 g 0 G - [-500(On)-406(en)28(try)-406(to)-406(this)-406(routine)-406(the)-406(descriptor)-406(m)28(ust)-406(b)-28(e)-406(in)-406(the)-406(assem)27(b)1(led)-406(s)-1(tate,)]TJ 12.73 -11.955 Td [(i.e.)]TJ/F30 9.9626 Tf 17.158 0 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(m)28(ust)-334(already)-333(ha)28(v)28(e)-334(b)-27(een)-334(called.)]TJ + [-500(On)-406(en)28(try)-406(to)-406(this)-406(routine)-406(the)-406(descriptor)-406(m)28(ust)-406(b)-28(e)-406(in)-406(the)-406(assem)28(bled)-406(state)-1(,)]TJ 12.73 -11.955 Td [(i.e.)]TJ/F30 9.9626 Tf 17.158 0 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(m)28(ust)-334(already)-333(ha)28(v)28(e)-334(b)-27(een)-334(called.)]TJ 0 g 0 G -80.282 -19.926 Td [(2.)]TJ 0 g 0 G @@ -16091,11 +16830,11 @@ BT 0 g 0 G 0 -19.925 Td [(3.)]TJ 0 g 0 G - [-500(Duplicate)-250(en)28(tries)-250(are)-249(dete)-1(cted)-249(and)-250(handled)-250(in)-249(b)-28(oth)-250(build)-249(and)-250(up)-28(date)-249(state,)]TJ 12.73 -11.955 Td [(with)-282(the)-283(exception)-282(of)-282(the)-283(error)-282(action)-282(that)-283(is)-282(only)-282(tak)28(en)-283(in)-282(the)-282(build)-283(state,)]TJ 0 -11.955 Td [(i.e.)-444(on)-334(the)-333(\014rst)-333(asse)-1(m)28(bly;)]TJ + [-500(Duplicate)-250(en)28(tries)-250(are)-249(detec)-1(ted)-249(and)-250(handled)-250(in)-249(b)-28(oth)-250(build)-249(and)-250(up)-28(date)-249(state,)]TJ 12.73 -11.955 Td [(with)-282(the)-283(exception)-282(of)-282(the)-283(error)-282(action)-282(that)-283(i)1(s)-283(only)-282(tak)28(en)-283(in)-282(the)-282(build)-282(s)-1(tate,)]TJ 0 -11.955 Td [(i.e.)-444(on)-334(the)-333(\014rst)-333(assem)27(bly;)]TJ 0 g 0 G -12.73 -19.925 Td [(4.)]TJ 0 g 0 G - [-500(If)-224(the)-224(up)-28(date)-223(c)27(hoice)-224(is)]TJ/F30 9.9626 Tf 107.516 0 Td [(psb_upd_perm_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-246(then)-224(subsequen)28(t)-224(calls)-224(to)]TJ/F30 9.9626 Tf 108.952 0 Td [(psb_spins)]TJ/F8 9.9626 Tf -271.732 -11.956 Td [(to)-246(up)-28(date)-246(the)-246(matrix)-246(m)28(ust)-246(b)-28(e)-246(arranged)-246(in)-246(suc)28(h)-246(a)-246(w)28(a)27(y)-246(as)-246(to)-246(pro)-27(duce)-246(exactly)]TJ 0 -11.955 Td [(the)-228(same)-229(sequence)-228(of)-228(co)-28(e\016cien)27(t)-228(v)56(alues)-229(as)-228(encoun)28(tered)-228(at)-229(the)-228(\014rst)-228(assem)27(b)1(ly;)]TJ + [-500(If)-224(the)-224(up)-28(d)1(ate)-224(c)27(hoice)-224(is)]TJ/F30 9.9626 Tf 107.516 0 Td [(psb_upd_perm_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-246(then)-224(subsequen)28(t)-224(calls)-224(to)]TJ/F30 9.9626 Tf 108.951 0 Td [(psb_spins)]TJ/F8 9.9626 Tf -271.731 -11.956 Td [(to)-246(up)-28(date)-246(the)-246(matrix)-246(m)28(ust)-246(b)-28(e)-246(arranged)-246(in)-246(suc)28(h)-246(a)-246(w)28(a)27(y)-246(as)-246(to)-246(pro)-27(duce)-246(exactly)]TJ 0 -11.955 Td [(the)-228(same)-229(sequence)-228(of)-228(co)-28(e\016cien)28(t)-229(v)56(alues)-228(as)-229(encoun)28(tered)-228(at)-229(the)-228(\014rst)-228(assem)28(bly;)]TJ 0 g 0 G -12.73 -19.925 Td [(5.)]TJ 0 g 0 G @@ -16103,30 +16842,614 @@ BT 0 g 0 G 0 -19.925 Td [(6.)]TJ 0 g 0 G - [-500(On)-370(exit)-370(from)-370(this)-370(routine)-370(the)-370(matrix)-370(is)-370(in)-370(the)-370(assem)28(bled)-370(state,)-380(an)1(d)-370(th)27(us)]TJ 12.73 -11.956 Td [(is)-333(suitable)-334(for)-333(the)-333(computational)-334(rou)1(tines)-1(.)]TJ + [-500(On)-370(exit)-370(from)-370(this)-370(routine)-370(the)-370(matrix)-370(is)-370(in)-370(the)-370(assem)28(bled)-370(state,)-379(and)-370(th)27(us)]TJ 12.73 -11.956 Td [(is)-333(suitable)-334(for)-333(the)-333(computational)-334(r)1(outines.)]TJ 0 g 0 G - 141.968 -444.333 Td [(80)]TJ + 141.968 -444.333 Td [(85)]TJ 0 g 0 G ET endstream endobj -1411 0 obj +1346 0 obj << -/Length 3086 +/Type /ObjStm +/N 100 +/First 981 +/Length 10495 +>> +stream +1342 0 1349 132 1347 271 1351 417 1352 476 1348 535 1355 654 1353 793 1357 951 1358 1009 +1354 1067 1360 1199 1362 1317 1363 1376 1364 1435 1365 1494 1366 1553 1367 1612 1359 1669 1370 1749 +1368 1888 1372 2034 304 2092 1369 2149 1376 2268 1374 2407 1378 2565 1379 2624 1380 2683 1381 2742 +1375 2801 1385 2907 1382 3055 1383 3201 1387 3348 308 3406 1388 3463 1384 3521 1392 3627 1389 3775 +1390 3920 1394 4066 312 4125 1391 4183 1397 4289 1395 4428 1399 4574 316 4632 1396 4689 1403 4795 +1400 4943 1401 5086 1405 5232 320 5291 1402 5349 1407 5481 1409 5599 1410 5657 1411 5715 1406 5773 +1416 5853 1413 6001 1414 6146 1418 6288 324 6347 1419 6405 1420 6464 1421 6523 1415 6582 1424 6701 +1426 6819 328 6877 1423 6934 1430 7053 1422 7210 1427 7357 1428 7501 1432 7647 1433 7706 1434 7765 +1435 7824 1436 7883 1437 7942 1429 8001 1439 8120 1441 8238 1442 8296 1443 8354 1444 8412 1445 8470 +1446 8527 1447 8585 1438 8643 1451 8736 1448 8884 1449 9029 1453 9173 332 9232 1450 9290 1455 9396 +% 1342 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1349 0 obj +<< +/Type /Page +/Contents 1350 0 R +/Resources 1348 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +/Annots [ 1347 0 R ] +>> +% 1347 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 325.282 412.588 336.407] +/A << /S /GoTo /D (descdata) >> +>> +% 1351 0 obj +<< +/D [1349 0 R /XYZ 149.705 753.953 null] +>> +% 1352 0 obj +<< +/D [1349 0 R /XYZ 150.705 234.372 null] +>> +% 1348 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1355 0 obj +<< +/Type /Page +/Contents 1356 0 R +/Resources 1354 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +/Annots [ 1353 0 R ] +>> +% 1353 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [357.982 215.702 380.454 226.827] +/A << /S /GoTo /D (subsubsection.2.3.1) >> +>> +% 1357 0 obj +<< +/D [1355 0 R /XYZ 98.895 753.953 null] +>> +% 1358 0 obj +<< +/D [1355 0 R /XYZ 99.895 134.155 null] +>> +% 1354 0 obj +<< +/Font << /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1360 0 obj +<< +/Type /Page +/Contents 1361 0 R +/Resources 1359 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1335 0 R +>> +% 1362 0 obj +<< +/D [1360 0 R /XYZ 149.705 753.953 null] +>> +% 1363 0 obj +<< +/D [1360 0 R /XYZ 150.705 716.092 null] +>> +% 1364 0 obj +<< +/D [1360 0 R /XYZ 150.705 688.251 null] +>> +% 1365 0 obj +<< +/D [1360 0 R /XYZ 150.705 668.049 null] +>> +% 1366 0 obj +<< +/D [1360 0 R /XYZ 150.705 626.428 null] +>> +% 1367 0 obj +<< +/D [1360 0 R /XYZ 150.705 568.7 null] +>> +% 1359 0 obj +<< +/Font << /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1370 0 obj +<< +/Type /Page +/Contents 1371 0 R +/Resources 1369 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1368 0 R ] +>> +% 1368 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 117.115 361.779 128.24] +/A << /S /GoTo /D (descdata) >> +>> +% 1372 0 obj +<< +/D [1370 0 R /XYZ 98.895 753.953 null] +>> +% 304 0 obj +<< +/D [1370 0 R /XYZ 99.895 720.077 null] +>> +% 1369 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1376 0 obj +<< +/Type /Page +/Contents 1377 0 R +/Resources 1375 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1374 0 R ] +>> +% 1374 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [325.383 402.324 347.855 413.172] +/A << /S /GoTo /D (subsubsection.2.3.1) >> +>> +% 1378 0 obj +<< +/D [1376 0 R /XYZ 149.705 753.953 null] +>> +% 1379 0 obj +<< +/D [1376 0 R /XYZ 150.705 496.913 null] +>> +% 1380 0 obj +<< +/D [1376 0 R /XYZ 150.705 475.051 null] +>> +% 1381 0 obj +<< +/D [1376 0 R /XYZ 150.705 431.215 null] +>> +% 1375 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1385 0 obj +<< +/Type /Page +/Contents 1386 0 R +/Resources 1384 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1382 0 R 1383 0 R ] +>> +% 1382 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 574.94 361.779 586.065] +/A << /S /GoTo /D (descdata) >> +>> +% 1383 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 417.531 361.779 428.656] +/A << /S /GoTo /D (descdata) >> +>> +% 1387 0 obj +<< +/D [1385 0 R /XYZ 98.895 753.953 null] +>> +% 308 0 obj +<< +/D [1385 0 R /XYZ 99.895 720.077 null] +>> +% 1388 0 obj +<< +/D [1385 0 R /XYZ 99.895 327.092 null] +>> +% 1384 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1392 0 obj +<< +/Type /Page +/Contents 1393 0 R +/Resources 1391 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1389 0 R 1390 0 R ] +>> +% 1389 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 574.94 412.588 586.065] +/A << /S /GoTo /D (descdata) >> +>> +% 1390 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 485.277 412.588 496.401] +/A << /S /GoTo /D (descdata) >> +>> +% 1394 0 obj +<< +/D [1392 0 R /XYZ 149.705 753.953 null] +>> +% 312 0 obj +<< +/D [1392 0 R /XYZ 150.705 720.077 null] +>> +% 1391 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1397 0 obj +<< +/Type /Page +/Contents 1398 0 R +/Resources 1396 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1395 0 R ] +>> +% 1395 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 574.94 361.779 586.065] +/A << /S /GoTo /D (descdata) >> +>> +% 1399 0 obj +<< +/D [1397 0 R /XYZ 98.895 753.953 null] +>> +% 316 0 obj +<< +/D [1397 0 R /XYZ 99.895 720.077 null] +>> +% 1396 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1403 0 obj +<< +/Type /Page +/Contents 1404 0 R +/Resources 1402 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1373 0 R +/Annots [ 1400 0 R 1401 0 R ] +>> +% 1400 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 453.24 423.049 464.364] +/A << /S /GoTo /D (spdata) >> +>> +% 1401 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 209.896 412.588 221.021] +/A << /S /GoTo /D (descdata) >> +>> +% 1405 0 obj +<< +/D [1403 0 R /XYZ 149.705 753.953 null] +>> +% 320 0 obj +<< +/D [1403 0 R /XYZ 150.705 720.077 null] +>> +% 1402 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1407 0 obj +<< +/Type /Page +/Contents 1408 0 R +/Resources 1406 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +>> +% 1409 0 obj +<< +/D [1407 0 R /XYZ 98.895 753.953 null] +>> +% 1410 0 obj +<< +/D [1407 0 R /XYZ 99.895 716.092 null] +>> +% 1411 0 obj +<< +/D [1407 0 R /XYZ 99.895 664.341 null] +>> +% 1406 0 obj +<< +/Font << /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1416 0 obj +<< +/Type /Page +/Contents 1417 0 R +/Resources 1415 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +/Annots [ 1413 0 R 1414 0 R ] +>> +% 1413 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 574.94 412.588 586.065] +/A << /S /GoTo /D (descdata) >> +>> +% 1414 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 405.575 423.049 416.7] +/A << /S /GoTo /D (spdata) >> +>> +% 1418 0 obj +<< +/D [1416 0 R /XYZ 149.705 753.953 null] +>> +% 324 0 obj +<< +/D [1416 0 R /XYZ 150.705 720.077 null] +>> +% 1419 0 obj +<< +/D [1416 0 R /XYZ 150.705 315.137 null] +>> +% 1420 0 obj +<< +/D [1416 0 R /XYZ 150.705 293.274 null] +>> +% 1421 0 obj +<< +/D [1416 0 R /XYZ 150.705 273.349 null] +>> +% 1415 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1424 0 obj +<< +/Type /Page +/Contents 1425 0 R +/Resources 1423 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +>> +% 1426 0 obj +<< +/D [1424 0 R /XYZ 98.895 753.953 null] +>> +% 328 0 obj +<< +/D [1424 0 R /XYZ 99.895 720.077 null] +>> +% 1423 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1430 0 obj +<< +/Type /Page +/Contents 1431 0 R +/Resources 1429 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +/Annots [ 1422 0 R 1427 0 R 1428 0 R ] +>> +% 1422 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [311.962 655.098 379.019 666.223] +/A << /S /GoTo /D (descdata) >> +>> +% 1427 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 488.124 423.049 499.249] +/A << /S /GoTo /D (spdata) >> +>> +% 1428 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [311.962 420.91 379.019 432.035] +/A << /S /GoTo /D (descdata) >> +>> +% 1432 0 obj +<< +/D [1430 0 R /XYZ 149.705 753.953 null] +>> +% 1433 0 obj +<< +/D [1430 0 R /XYZ 150.705 321.172 null] +>> +% 1434 0 obj +<< +/D [1430 0 R /XYZ 150.705 289.823 null] +>> +% 1435 0 obj +<< +/D [1430 0 R /XYZ 150.705 256.537 null] +>> +% 1436 0 obj +<< +/D [1430 0 R /XYZ 150.705 189.322 null] +>> +% 1437 0 obj +<< +/D [1430 0 R /XYZ 150.705 169.929 null] +>> +% 1429 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1439 0 obj +<< +/Type /Page +/Contents 1440 0 R +/Resources 1438 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +>> +% 1441 0 obj +<< +/D [1439 0 R /XYZ 98.895 753.953 null] +>> +% 1442 0 obj +<< +/D [1439 0 R /XYZ 99.895 716.092 null] +>> +% 1443 0 obj +<< +/D [1439 0 R /XYZ 99.895 652.386 null] +>> +% 1444 0 obj +<< +/D [1439 0 R /XYZ 99.895 607.997 null] +>> +% 1445 0 obj +<< +/D [1439 0 R /XYZ 99.895 576.67 null] +>> +% 1446 0 obj +<< +/D [1439 0 R /XYZ 99.895 544.789 null] +>> +% 1447 0 obj +<< +/D [1439 0 R /XYZ 99.895 500.954 null] +>> +% 1438 0 obj +<< +/Font << /F8 573 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1451 0 obj +<< +/Type /Page +/Contents 1452 0 R +/Resources 1450 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1412 0 R +/Annots [ 1448 0 R 1449 0 R ] +>> +% 1448 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 576.23 412.588 587.355] +/A << /S /GoTo /D (descdata) >> +>> +% 1449 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 205.776 423.049 216.901] +/A << /S /GoTo /D (spdata) >> +>> +% 1453 0 obj +<< +/D [1451 0 R /XYZ 149.705 753.953 null] +>> +% 332 0 obj +<< +/D [1451 0 R /XYZ 150.705 720.077 null] +>> +% 1450 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1455 0 obj +<< +/Type /Page +/Contents 1456 0 R +/Resources 1454 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1464 0 R +>> + +endstream +endobj +1470 0 obj +<< +/Length 3084 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(spfree)-375(|)-375(F)94(rees)-375(a)-375(sparse)-375(matrix)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(spfree)-375(|)-375(F)94(rees)-375(a)-375(sparse)-375(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spfree\050a,)-525(desc_a,)-525(info\051)]TJ @@ -16140,84 +17463,84 @@ BT 0 g 0 G 0 -19.925 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(freed.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(freed.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +/F30 9.9626 Tf 170.914 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 578.35 cm +1 0 0 1 362.845 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 578.15 Td [(Tspmat)]TJ +/F30 9.9626 Tf 365.983 578.15 Td [(Tspmat)]TJ ET q -1 0 0 1 347.183 578.35 cm +1 0 0 1 397.993 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 350.322 578.15 Td [(type)]TJ +/F30 9.9626 Tf 401.131 578.15 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -271.348 -19.925 Td [(desc)]TJ +/F27 9.9626 Tf -271.347 -19.925 Td [(desc)]TJ ET q -1 0 0 1 121.81 558.424 cm +1 0 0 1 172.619 558.424 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 558.225 Td [(a)]TJ +/F27 9.9626 Tf 176.057 558.225 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 510.604 cm +1 0 0 1 362.845 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 510.405 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 510.405 Td [(desc)]TJ ET q -1 0 0 1 336.723 510.604 cm +1 0 0 1 387.532 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 510.405 Td [(type)]TJ +/F30 9.9626 Tf 390.67 510.405 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -330.303 Td [(81)]TJ + 141.968 -330.303 Td [(86)]TJ 0 g 0 G ET endstream endobj -1417 0 obj +1476 0 obj << -/Length 3976 +/Length 3991 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(sprn)-391(|)-391(Reinit)-391(sparse)-391(matrix)-391(structure)-391(for)-391(psblas)-391(rou-)]TJ -25.091 -13.948 Td [(tines.)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(sprn)-391(|)-391(Reinit)-391(sparse)-391(matrix)-391(structure)-391(for)-391(psblas)-391(rou-)]TJ -25.091 -13.948 Td [(tines.)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-525(psb_sprn\050a,)-525(decsc_a,)-525(info,)-525(clear\051)]TJ @@ -16231,326 +17554,79 @@ BT 0 g 0 G 0 -19.926 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(reinitialized.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.914 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 564.402 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 564.203 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 564.402 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 564.203 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 544.477 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 544.278 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(reinitialized.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 496.656 cm +1 0 0 1 312.036 564.402 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 496.457 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 564.203 Td [(Tspmat)]TJ ET q -1 0 0 1 387.532 496.656 cm +1 0 0 1 347.183 564.402 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 496.457 Td [(type)]TJ +/F30 9.9626 Tf 350.322 564.203 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.348 -19.925 Td [(desc)]TJ +ET +q +1 0 0 1 121.81 544.477 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 125.247 544.278 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 496.656 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 496.457 Td [(desc)]TJ +ET +q +1 0 0 1 336.723 496.656 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 339.861 496.457 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.925 Td [(clear)]TJ 0 g 0 G -/F8 9.9626 Tf 28.795 0 Td [(Cho)-28(ose)-333(whether)-333(to)-334(zero)-333(out)-333(m)-1(atr)1(ix)-334(co)-28(e\016cien)28(ts)]TJ -3.888 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Default:)-444(true.)]TJ +/F8 9.9626 Tf 28.795 0 Td [(Cho)-28(ose)-333(whether)-334(to)-333(zero)-333(out)-334(matrix)-333(co)-28(e\016cien)28(ts)]TJ -3.888 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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 [(Default:)-444(true.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(An)-333(in)28(teger)-334(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-334(t)1(he)-334(sparse)-333(matrix)-334(is)-333(in)-333(the)-333(up)-28(date)-334(state.)]TJ -0 g 0 G - 154.698 -206.766 Td [(82)]TJ -0 g 0 G -ET - -endstream -endobj -1424 0 obj -<< -/Length 5107 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(geall)-375(|)-375(Allo)-31(cates)-375(a)-375(dense)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.346 0 Td [(psb)]TJ -ET -q -1 0 0 1 278.467 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 281.605 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 303.154 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 306.292 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -227.319 -31.88 Td [(n)]TJ -0 g 0 G -/F8 9.9626 Tf 11.347 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(columns)-333(of)-334(the)-333(dense)-333(m)-1(atr)1(ix)-334(to)-333(b)-28(e)-333(allo)-28(cated.)]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 -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)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)28(t)-343(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.11 0 Td [(is)-343(a)]TJ -303.709 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(lb)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(The)-489(lo)28(w)27(er)-489(b)-27(ound)-489(for)-489(the)-490(column)-489(index)-489(range)-489(of)-489(the)-489(dense)-489(matrix)-489(to)-489(b)-28(e)]TJ 10.378 -11.955 Td [(allo)-28(cated.)]TJ 0 -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)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)28(t)-343(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.11 0 Td [(is)-343(a)]TJ -303.709 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(all)1(o)-28(cated.)]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 -32.379 -11.956 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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-303(as:)-430(a)-304(rank)-303(one)-304(or)-304(t)28(w)28(o)-304(arra)28(y)-304(with)-303(the)-304(ALLOCA)83(T)83(ABLE)-303(attribute)]TJ 0 -11.955 Td [(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 89.968 0 Td [(psb)]TJ -ET -q -1 0 0 1 231.089 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 234.227 293.219 Td [(T)]TJ -ET -q -1 0 0 1 240.085 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 243.223 293.219 Td [(vect)]TJ -ET -q -1 0 0 1 264.772 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 267.911 293.219 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -188.937 -31.88 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -123.08 Td [(83)]TJ -0 g 0 G -ET - -endstream -endobj -1430 0 obj -<< -/Length 6841 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(geins)-375(|)-375(Dense)-375(matrix)-375(insertion)-375(routine)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,dupl,local]\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -20.681 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 -19.43 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.431 Td [(m)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws)-333(in)]TJ/F11 9.9626 Tf 84.516 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 16.942 0 Td [(to)-333(b)-28(e)-333(inse)-1(r)1(te)-1(d)1(.)]TJ -91.081 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.431 Td [(irw)]TJ -0 g 0 G -/F8 9.9626 Tf 21.157 0 Td [(Indices)-444(of)-445(the)-444(ro)27(ws)-444(to)-445(b)-27(e)-445(inserted.)-778(Sp)-28(eci\014cally)84(,)-472(ro)27(w)]TJ/F11 9.9626 Tf 237.973 0 Td [(i)]TJ/F8 9.9626 Tf 7.861 0 Td [(of)]TJ/F11 9.9626 Tf 12.454 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 18.049 0 Td [(will)-444(b)-28(e)-445(in-)]TJ -272.588 -11.955 Td [(serted)-435(in)28(to)-436(th)1(e)-436(lo)-27(cal)-436(ro)28(w)-435(corresp)-28(onding)-435(to)-435(the)-435(global)-435(ro)28(w)-435(index)]TJ/F11 9.9626 Tf 289.252 0 Td [(ir)-28(w)]TJ/F8 9.9626 Tf 15.605 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051.)]TJ -312.163 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.43 Td [(v)64(al)]TJ -0 g 0 G -/F8 9.9626 Tf 19.143 0 Td [(the)-333(dense)-334(submatrix)-333(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -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(rank)-333(1)-333(o)-1(r)-333(2)-333(arra)28(y)83(.)-444(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-334(v)56(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.43 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 414.689 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 414.49 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 366.869 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 366.669 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 366.869 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 366.669 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.43 Td [(dupl)]TJ -0 g 0 G -/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.697 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -340.944 -19.43 Td [(lo)-32(cal)]TJ -0 g 0 G -/F8 9.9626 Tf 28.054 0 Td [(Whether)-289(the)-289(en)28(tries)-289(in)-289(the)-289(index)-288(v)27(ector)]TJ/F30 9.9626 Tf 172.77 0 Td [(irw)]TJ/F8 9.9626 Tf 15.691 0 Td [(,)-298(are)-289(already)-289(in)-288(lo)-28(cal)-289(n)28(um)28(b)-28(er-)]TJ -191.608 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.055 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -224.574 -20.68 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.43 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(output)-334(d)1(e)-1(n)1(s)-1(e)-333(matrix.)]TJ 13.879 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-232(as:)-394(a)-233(rank)-233(one)-232(or)-233(t)28(w)28(o)-233(arra)28(y)-233(or)-232(an)-233(ob)-55(ject)-233(of)-233(t)28(yp)-27(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 241.975 0 Td [(psb)]TJ -ET -q -1 0 0 1 433.906 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 437.044 144.236 Td [(T)]TJ -ET -q -1 0 0 1 442.902 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 446.04 144.236 Td [(vect)]TJ -ET -q -1 0 0 1 467.589 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 470.727 144.236 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(,)]TJ -316.038 -11.955 Td [(of)-333(t)27(yp)-27(e)-334(real,)-333(complex)-333(or)-334(in)28(teger.)]TJ -0 g 0 G - 141.968 -41.843 Td [(84)]TJ -0 g 0 G -ET - -endstream -endobj -1434 0 obj -<< -/Length 1111 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G - [-500(Dense)-333(v)27(ectors/matrices)-333(do)-333(not)-334(ha)28(v)28(e)-334(an)-333(asso)-28(ciated)-333(state;)]TJ + [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-333(is)-334(in)-333(the)-333(up)-28(date)-333(s)-1(tat)1(e)-1(.)]TJ 0 g 0 G - 0 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Duplicate)-292(en)28(tries)-293(are)-292(either)-292(o)28(v)28(erwritten)-292(or)-293(added,)-300(there)-292(is)-292(no)-292(pro)27(vision)-292(for)]TJ 12.73 -11.955 Td [(raising)-333(an)-334(error)-333(condition.)]TJ -0 g 0 G - 141.968 -494.147 Td [(85)]TJ + 154.698 -206.766 Td [(87)]TJ 0 g 0 G ET endstream endobj -1444 0 obj +1483 0 obj << -/Length 5215 +/Length 5111 >> stream 0 g 0 G @@ -16563,10 +17639,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(geasb)-375(|)-375(Assem)31(bly)-375(a)-375(dense)-375(matrix)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(geall)-375(|)-375(Allo)-31(cates)-375(a)-375(dense)-375(matrix)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geasb\050x,)-525(desc_a,)-525(info,)-525(mold\051)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -16604,108 +17680,59 @@ BT 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -227.318 -31.88 Td [(mold)]TJ +/F27 9.9626 Tf -227.318 -31.88 Td [(n)]TJ 0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.899 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.261 0 Td [(psb)]TJ -ET -q -1 0 0 1 390.19 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 393.329 498.449 Td [(T)]TJ -ET -q -1 0 0 1 399.186 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 402.325 498.449 Td [(base)]TJ -ET -q -1 0 0 1 423.874 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 427.012 498.449 Td [(vect)]TJ -ET -q -1 0 0 1 448.561 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 451.699 498.449 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)]TJ/F11 9.9626 Tf 93.317 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 43.78 0 Td [(psb)]TJ -ET -q -1 0 0 1 338.042 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 341.18 486.494 Td [(T)]TJ -ET -q -1 0 0 1 347.038 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.177 486.494 Td [(vect)]TJ -ET -q -1 0 0 1 371.725 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 374.864 486.494 Td [(type)]TJ +/F8 9.9626 Tf 11.346 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(columns)-334(of)-333(the)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(allo)-28(cated.)]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 -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)27(t)-342(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.111 0 Td [(is)-343(a)]TJ -303.71 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F27 9.9626 Tf -24.906 -19.925 Td [(lb)]TJ 0 g 0 G -/F27 9.9626 Tf -245.08 -21.918 Td [(On)-383(Return)]TJ +/F8 9.9626 Tf 14.529 0 Td [(The)-489(lo)28(w)27(er)-489(b)-27(ound)-489(for)-489(the)-490(colu)1(m)-1(n)-489(ind)1(e)-1(x)-489(range)-489(of)-489(the)-489(dense)-489(matrix)-489(to)-489(b)-28(e)]TJ 10.377 -11.955 Td [(allo)-28(cated.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)27(t)-342(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.111 0 Td [(is)-343(a)]TJ -303.71 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(as)-1(sem)28(bled.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-434(or)-433(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(ject)-333(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(allo)-28(cated.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-303(as)-1(:)-429(a)-304(rank)-303(one)-304(or)-304(t)28(w)28(o)-304(arra)28(y)-304(with)-304(th)1(e)-304(ALLOCA)83(T)83(ABLE)-303(attribute)]TJ 0 -11.955 Td [(or)-333(an)-334(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 63.927 0 Td [(psb)]TJ +/F30 9.9626 Tf 89.969 0 Td [(psb)]TJ ET q -1 0 0 1 255.857 385.075 cm +1 0 0 1 281.898 293.418 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 258.995 384.875 Td [(T)]TJ +/F30 9.9626 Tf 285.037 293.219 Td [(T)]TJ ET q -1 0 0 1 264.853 385.075 cm +1 0 0 1 290.895 293.418 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 267.992 384.875 Td [(vect)]TJ +/F30 9.9626 Tf 294.033 293.219 Td [(vect)]TJ ET q -1 0 0 1 289.541 385.075 cm +1 0 0 1 315.582 293.418 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 292.679 384.875 Td [(type)]TJ +/F30 9.9626 Tf 318.72 293.219 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ 0 g 0 G -/F27 9.9626 Tf -162.895 -31.88 Td [(info)]TJ +/F27 9.9626 Tf -188.936 -31.88 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -214.736 Td [(86)]TJ + 141.968 -123.08 Td [(88)]TJ 0 g 0 G ET endstream endobj -1450 0 obj +1489 0 obj << -/Length 3378 +/Length 6817 >> stream 0 g 0 G @@ -16718,7 +17745,303 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(gefree)-375(|)-375(F)94(rees)-375(a)-375(dense)-375(matrix)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(geins)-375(|)-375(Dense)-375(matrix)-375(insertion)-375(routine)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,dupl,local]\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -20.681 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 -19.43 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.431 Td [(m)]TJ +0 g 0 G +/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws)-333(in)]TJ/F11 9.9626 Tf 84.517 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 16.942 0 Td [(to)-333(b)-28(e)-333(inserted.)]TJ -91.081 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.431 Td [(irw)]TJ +0 g 0 G +/F8 9.9626 Tf 21.157 0 Td [(Indices)-445(of)-444(the)-444(ro)27(ws)-444(to)-445(b)-27(e)-445(inserted.)-778(Sp)-28(eci\014cally)84(,)-473(r)1(o)27(w)]TJ/F11 9.9626 Tf 237.974 0 Td [(i)]TJ/F8 9.9626 Tf 7.861 0 Td [(of)]TJ/F11 9.9626 Tf 12.453 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 18.05 0 Td [(will)-444(b)-28(e)-445(in-)]TJ -272.588 -11.955 Td [(serted)-435(in)28(to)-435(the)-436(lo)-27(cal)-436(r)1(o)27(w)-435(corresp)-28(onding)-435(to)-435(the)-435(global)-435(ro)28(w)-435(index)]TJ/F11 9.9626 Tf 289.252 0 Td [(ir)-28(w)]TJ/F8 9.9626 Tf 15.604 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051.)]TJ -312.163 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.43 Td [(v)64(al)]TJ +0 g 0 G +/F8 9.9626 Tf 19.144 0 Td [(the)-333(dense)-334(submatrix)-333(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(rank)-333(1)-333(or)-334(2)-333(arra)28(y)83(.)-444(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-334(v)56(alue.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.43 Td [(desc)]TJ +ET +q +1 0 0 1 121.81 414.689 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 125.247 414.49 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 366.869 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 366.669 Td [(desc)]TJ +ET +q +1 0 0 1 336.723 366.869 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 339.861 366.669 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -19.43 Td [(dupl)]TJ +0 g 0 G +/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.456 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -340.944 -19.43 Td [(lo)-32(cal)]TJ +0 g 0 G +/F8 9.9626 Tf 28.055 0 Td [(Whether)-289(the)-289(en)28(tries)-289(in)-289(the)-289(index)-288(v)27(ector)]TJ/F30 9.9626 Tf 172.769 0 Td [(irw)]TJ/F8 9.9626 Tf 15.692 0 Td [(,)-298(are)-289(already)-288(in)-289(lo)-28(cal)-289(n)28(um)28(b)-28(er-)]TJ -191.609 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -224.575 -20.68 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.43 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(output)-334(dense)-333(matrix.)]TJ 13.879 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-232(as:)-394(a)-233(rank)-233(one)-232(or)-233(t)28(w)28(o)-233(arra)28(y)-233(or)-232(an)-233(ob)-55(ject)-233(of)-233(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 241.975 0 Td [(psb)]TJ +ET +q +1 0 0 1 383.096 144.435 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 386.234 144.236 Td [(T)]TJ +ET +q +1 0 0 1 392.092 144.435 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 395.231 144.236 Td [(vect)]TJ +ET +q +1 0 0 1 416.779 144.435 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 419.918 144.236 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(,)]TJ -316.037 -11.955 Td [(of)-333(t)27(y)1(p)-28(e)-334(real,)-333(complex)-333(or)-334(in)28(teger.)]TJ +0 g 0 G + 141.968 -41.843 Td [(89)]TJ +0 g 0 G +ET + +endstream +endobj +1493 0 obj +<< +/Length 1115 +>> +stream +0 g 0 G +0 g 0 G +0 g 0 G +BT +/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(Dense)-333(v)27(ectors/matrices)-333(do)-333(not)-334(ha)28(v)28(e)-334(an)-333(asso)-28(ciated)-333(state;)]TJ +0 g 0 G + 0 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(Duplicate)-292(en)28(tries)-293(are)-292(either)-292(o)28(v)28(erwritten)-293(or)-292(added,)-300(there)-292(is)-292(no)-293(p)1(ro)27(vision)-292(for)]TJ 12.73 -11.955 Td [(raising)-333(an)-334(error)-333(condition.)]TJ +0 g 0 G + 141.968 -494.147 Td [(90)]TJ +0 g 0 G +ET + +endstream +endobj +1502 0 obj +<< +/Length 5215 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(geasb)-375(|)-375(Assem)31(bly)-375(a)-375(dense)-375(matrix)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geasb\050x,)-525(desc_a,)-525(info,)-525(mold\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(desc)]TJ +ET +q +1 0 0 1 121.81 626.17 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 137.346 0 Td [(psb)]TJ +ET +q +1 0 0 1 278.467 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 281.605 578.15 Td [(desc)]TJ +ET +q +1 0 0 1 303.154 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 306.292 578.15 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -227.319 -31.88 Td [(mold)]TJ +0 g 0 G +/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -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)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.26 0 Td [(psb)]TJ +ET +q +1 0 0 1 339.381 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 342.519 498.449 Td [(T)]TJ +ET +q +1 0 0 1 348.377 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 351.515 498.449 Td [(base)]TJ +ET +q +1 0 0 1 373.064 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 376.202 498.449 Td [(vect)]TJ +ET +q +1 0 0 1 397.751 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 400.89 498.449 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)]TJ/F11 9.9626 Tf 93.317 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 43.78 0 Td [(psb)]TJ +ET +q +1 0 0 1 287.233 486.693 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 290.371 486.494 Td [(T)]TJ +ET +q +1 0 0 1 296.229 486.693 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 299.367 486.494 Td [(vect)]TJ +ET +q +1 0 0 1 320.916 486.693 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 324.054 486.494 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -245.081 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(assem)28(bled.)]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 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(j)1(e)-1(ct)-333(of)-333(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 63.927 0 Td [(psb)]TJ +ET +q +1 0 0 1 205.048 385.075 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 208.186 384.875 Td [(T)]TJ +ET +q +1 0 0 1 214.044 385.075 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 217.182 384.875 Td [(vect)]TJ +ET +q +1 0 0 1 238.731 385.075 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 241.869 384.875 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ +0 g 0 G +/F27 9.9626 Tf -162.896 -31.88 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 141.968 -214.736 Td [(91)]TJ +0 g 0 G +ET + +endstream +endobj +1509 0 obj +<< +/Length 3379 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(gefree)-375(|)-375(F)94(rees)-375(a)-375(dense)-375(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_gefree\050x,)-525(desc_a,)-525(info\051)]TJ @@ -16732,684 +18055,91 @@ BT 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(f)1(re)-1(ed.)]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 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(j)1(e)-1(ct)-333(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(free)-1(d)1(.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arr)1(a)27(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-55(jec)-1(t)-333(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 63.927 0 Td [(psb)]TJ ET q -1 0 0 1 205.048 566.395 cm +1 0 0 1 255.857 566.395 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 208.186 566.195 Td [(T)]TJ +/F30 9.9626 Tf 258.995 566.195 Td [(T)]TJ ET q -1 0 0 1 214.044 566.395 cm +1 0 0 1 264.853 566.395 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 217.182 566.195 Td [(vect)]TJ +/F30 9.9626 Tf 267.992 566.195 Td [(vect)]TJ ET q -1 0 0 1 238.731 566.395 cm +1 0 0 1 289.541 566.395 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 241.869 566.195 Td [(type)]TJ +/F30 9.9626 Tf 292.679 566.195 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ 0 g 0 G -/F27 9.9626 Tf -162.896 -31.88 Td [(desc)]TJ +/F27 9.9626 Tf -162.895 -31.88 Td [(desc)]TJ ET q -1 0 0 1 121.81 534.514 cm +1 0 0 1 172.619 534.514 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 534.315 Td [(a)]TJ +/F27 9.9626 Tf 176.057 534.315 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.956 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(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.346 0 Td [(psb)]TJ +/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ ET q -1 0 0 1 278.467 486.693 cm +1 0 0 1 329.276 486.693 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 281.605 486.494 Td [(desc)]TJ +/F30 9.9626 Tf 332.415 486.494 Td [(desc)]TJ ET q -1 0 0 1 303.154 486.693 cm +1 0 0 1 353.964 486.693 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 306.292 486.494 Td [(type)]TJ +/F30 9.9626 Tf 357.102 486.494 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -227.319 -33.873 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -227.318 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 141.968 -294.437 Td [(87)]TJ + 141.968 -294.437 Td [(92)]TJ 0 g 0 G ET endstream endobj -1347 0 obj +1513 0 obj << -/Type /ObjStm -/N 100 -/First 978 -/Length 10622 ->> -stream -1344 0 1341 148 1342 292 1346 439 308 497 1343 554 1350 686 1352 804 1353 863 1354 922 -1349 981 1358 1061 1355 1209 1356 1355 1360 1498 312 1556 1361 1613 1362 1671 1363 1729 1357 1787 -1366 1906 1368 2024 316 2083 1365 2141 1372 2260 1364 2417 1369 2563 1370 2708 1374 2853 1375 2911 -1376 2969 1377 3027 1378 3085 1379 3143 1371 3201 1381 3320 1383 3438 1384 3497 1385 3556 1386 3615 -1387 3674 1388 3732 1389 3791 1380 3850 1393 3943 1390 4091 1391 4237 1395 4382 320 4440 1392 4497 -1398 4603 1400 4721 1401 4780 1402 4839 1403 4898 1404 4957 1405 5016 1406 5075 1397 5133 1410 5213 -1407 5361 1408 5505 1412 5652 324 5710 1409 5767 1416 5873 1413 6021 1414 6165 1418 6311 328 6370 -1419 6428 1415 6487 1423 6593 1420 6741 1421 6886 1425 7030 332 7088 1422 7145 1429 7264 1426 7412 -1427 7558 1431 7702 336 7761 1428 7819 1433 7938 1435 8056 1436 8114 1437 8172 1432 8230 1443 8323 -1439 8480 1440 8626 1441 8770 1445 8913 340 8972 1442 9030 1449 9149 1446 9297 1447 9440 1451 9586 -% 1344 0 obj -<< -/Type /Page -/Contents 1345 0 R -/Resources 1343 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R -/Annots [ 1341 0 R 1342 0 R ] ->> -% 1341 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 453.24 372.239 464.364] -/A << /S /GoTo /D (spdata) >> ->> -% 1342 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 209.896 361.779 221.021] -/A << /S /GoTo /D (descdata) >> ->> -% 1346 0 obj -<< -/D [1344 0 R /XYZ 98.895 753.953 null] ->> -% 308 0 obj -<< -/D [1344 0 R /XYZ 99.895 720.077 null] ->> -% 1343 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1350 0 obj -<< -/Type /Page -/Contents 1351 0 R -/Resources 1349 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R ->> -% 1352 0 obj -<< -/D [1350 0 R /XYZ 149.705 753.953 null] ->> -% 1353 0 obj -<< -/D [1350 0 R /XYZ 150.705 716.092 null] ->> -% 1354 0 obj -<< -/D [1350 0 R /XYZ 150.705 664.341 null] ->> -% 1349 0 obj -<< -/Font << /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1358 0 obj -<< -/Type /Page -/Contents 1359 0 R -/Resources 1357 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R -/Annots [ 1355 0 R 1356 0 R ] ->> -% 1355 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1356 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 405.575 372.239 416.7] -/A << /S /GoTo /D (spdata) >> ->> -% 1360 0 obj -<< -/D [1358 0 R /XYZ 98.895 753.953 null] ->> -% 312 0 obj -<< -/D [1358 0 R /XYZ 99.895 720.077 null] ->> -% 1361 0 obj -<< -/D [1358 0 R /XYZ 99.895 315.137 null] ->> -% 1362 0 obj -<< -/D [1358 0 R /XYZ 99.895 293.274 null] ->> -% 1363 0 obj -<< -/D [1358 0 R /XYZ 99.895 273.349 null] ->> -% 1357 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1366 0 obj -<< -/Type /Page -/Contents 1367 0 R -/Resources 1365 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R ->> -% 1368 0 obj -<< -/D [1366 0 R /XYZ 149.705 753.953 null] ->> -% 316 0 obj -<< -/D [1366 0 R /XYZ 150.705 720.077 null] ->> -% 1365 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1372 0 obj -<< -/Type /Page -/Contents 1373 0 R -/Resources 1371 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R -/Annots [ 1364 0 R 1369 0 R 1370 0 R ] ->> -% 1364 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [261.152 655.098 328.21 666.223] -/A << /S /GoTo /D (descdata) >> ->> -% 1369 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 488.124 372.239 499.249] -/A << /S /GoTo /D (spdata) >> ->> -% 1370 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [261.152 420.91 328.21 432.035] -/A << /S /GoTo /D (descdata) >> ->> -% 1374 0 obj -<< -/D [1372 0 R /XYZ 98.895 753.953 null] ->> -% 1375 0 obj -<< -/D [1372 0 R /XYZ 99.895 321.172 null] ->> -% 1376 0 obj -<< -/D [1372 0 R /XYZ 99.895 289.823 null] ->> -% 1377 0 obj -<< -/D [1372 0 R /XYZ 99.895 256.537 null] ->> -% 1378 0 obj -<< -/D [1372 0 R /XYZ 99.895 189.322 null] ->> -% 1379 0 obj -<< -/D [1372 0 R /XYZ 99.895 169.929 null] ->> -% 1371 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F16 558 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1381 0 obj -<< -/Type /Page -/Contents 1382 0 R -/Resources 1380 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1348 0 R ->> -% 1383 0 obj -<< -/D [1381 0 R /XYZ 149.705 753.953 null] ->> -% 1384 0 obj -<< -/D [1381 0 R /XYZ 150.705 716.092 null] ->> -% 1385 0 obj -<< -/D [1381 0 R /XYZ 150.705 652.386 null] ->> -% 1386 0 obj -<< -/D [1381 0 R /XYZ 150.705 607.997 null] ->> -% 1387 0 obj -<< -/D [1381 0 R /XYZ 150.705 576.67 null] ->> -% 1388 0 obj -<< -/D [1381 0 R /XYZ 150.705 544.789 null] ->> -% 1389 0 obj -<< -/D [1381 0 R /XYZ 150.705 500.954 null] ->> -% 1380 0 obj -<< -/Font << /F8 561 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1393 0 obj -<< -/Type /Page -/Contents 1394 0 R -/Resources 1392 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R -/Annots [ 1390 0 R 1391 0 R ] ->> -% 1390 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 576.23 361.779 587.355] -/A << /S /GoTo /D (descdata) >> ->> -% 1391 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 205.776 372.239 216.901] -/A << /S /GoTo /D (spdata) >> ->> -% 1395 0 obj -<< -/D [1393 0 R /XYZ 98.895 753.953 null] ->> -% 320 0 obj -<< -/D [1393 0 R /XYZ 99.895 720.077 null] ->> -% 1392 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1398 0 obj -<< -/Type /Page -/Contents 1399 0 R -/Resources 1397 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R ->> -% 1400 0 obj -<< -/D [1398 0 R /XYZ 149.705 753.953 null] ->> -% 1401 0 obj -<< -/D [1398 0 R /XYZ 150.705 716.092 null] ->> -% 1402 0 obj -<< -/D [1398 0 R /XYZ 150.705 687.975 null] ->> -% 1403 0 obj -<< -/D [1398 0 R /XYZ 150.705 668.326 null] ->> -% 1404 0 obj -<< -/D [1398 0 R /XYZ 150.705 624.491 null] ->> -% 1405 0 obj -<< -/D [1398 0 R /XYZ 150.705 580.655 null] ->> -% 1406 0 obj -<< -/D [1398 0 R /XYZ 150.705 560.73 null] ->> -% 1397 0 obj -<< -/Font << /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1410 0 obj -<< -/Type /Page -/Contents 1411 0 R -/Resources 1409 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R -/Annots [ 1407 0 R 1408 0 R ] ->> -% 1407 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 372.239 586.065] -/A << /S /GoTo /D (spdata) >> ->> -% 1408 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 507.194 361.779 518.319] -/A << /S /GoTo /D (descdata) >> ->> -% 1412 0 obj -<< -/D [1410 0 R /XYZ 98.895 753.953 null] ->> -% 324 0 obj -<< -/D [1410 0 R /XYZ 99.895 720.077 null] ->> -% 1409 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1416 0 obj -<< -/Type /Page -/Contents 1417 0 R -/Resources 1415 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R -/Annots [ 1413 0 R 1414 0 R ] ->> -% 1413 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 560.993 423.049 572.118] -/A << /S /GoTo /D (spdata) >> ->> -% 1414 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 493.247 412.588 504.372] -/A << /S /GoTo /D (descdata) >> ->> -% 1418 0 obj -<< -/D [1416 0 R /XYZ 149.705 753.953 null] ->> -% 328 0 obj -<< -/D [1416 0 R /XYZ 150.705 720.077 null] ->> -% 1419 0 obj -<< -/D [1416 0 R /XYZ 150.705 313.144 null] ->> -% 1415 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1423 0 obj -<< -/Type /Page -/Contents 1424 0 R -/Resources 1422 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R -/Annots [ 1420 0 R 1421 0 R ] ->> -% 1420 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [261.152 574.94 328.21 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1421 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [213.774 290.009 289.828 301.134] -/A << /S /GoTo /D (vdata) >> ->> -% 1425 0 obj -<< -/D [1423 0 R /XYZ 98.895 753.953 null] ->> -% 332 0 obj -<< -/D [1423 0 R /XYZ 99.895 720.077 null] ->> -% 1422 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1429 0 obj -<< -/Type /Page -/Contents 1430 0 R -/Resources 1428 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1396 0 R -/Annots [ 1426 0 R 1427 0 R ] ->> -% 1426 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 363.459 412.588 374.584] -/A << /S /GoTo /D (descdata) >> ->> -% 1427 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [416.591 141.026 492.645 152.151] -/A << /S /GoTo /D (vdata) >> ->> -% 1431 0 obj -<< -/D [1429 0 R /XYZ 149.705 753.953 null] ->> -% 336 0 obj -<< -/D [1429 0 R /XYZ 150.705 720.077 null] ->> -% 1428 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1433 0 obj -<< -/Type /Page -/Contents 1434 0 R -/Resources 1432 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R ->> -% 1435 0 obj -<< -/D [1433 0 R /XYZ 98.895 753.953 null] ->> -% 1436 0 obj -<< -/D [1433 0 R /XYZ 99.895 632.405 null] ->> -% 1437 0 obj -<< -/D [1433 0 R /XYZ 99.895 609.989 null] ->> -% 1432 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F16 558 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1443 0 obj -<< -/Type /Page -/Contents 1444 0 R -/Resources 1442 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R -/Annots [ 1439 0 R 1440 0 R 1441 0 R ] ->> -% 1439 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [311.962 574.94 379.019 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1440 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [320.727 483.284 396.781 494.409] -/A << /S /GoTo /D (vdata) >> ->> -% 1441 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [238.542 381.665 314.596 392.79] -/A << /S /GoTo /D (vdata) >> ->> -% 1445 0 obj -<< -/D [1443 0 R /XYZ 149.705 753.953 null] ->> -% 340 0 obj -<< -/D [1443 0 R /XYZ 150.705 720.077 null] ->> -% 1442 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1449 0 obj -<< -/Type /Page -/Contents 1450 0 R -/Resources 1448 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R -/Annots [ 1446 0 R 1447 0 R ] ->> -% 1446 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [187.733 562.985 263.787 574.11] -/A << /S /GoTo /D (vdata) >> ->> -% 1447 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [261.152 483.284 328.21 494.409] -/A << /S /GoTo /D (descdata) >> ->> -% 1451 0 obj -<< -/D [1449 0 R /XYZ 98.895 753.953 null] ->> - -endstream -endobj -1455 0 obj -<< -/Length 3438 +/Length 3437 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(gelp)-375(|)-375(Applies)-375(a)-375(left)-375(p)-31(erm)31(utation)-375(to)-375(a)-375(dense)-375(matrix)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(gelp)-375(|)-375(Applies)-375(a)-375(left)-375(p)-31(erm)31(utation)-375(to)-375(a)-375(dense)-375(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_gelp\050trans,)-525(iperm,)-525(x,)-525(info\051)]TJ @@ -17423,62 +18153,62 @@ BT 0 g 0 G 0 -19.925 Td [(trans)]TJ 0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(A)-333(c)27(har)1(ac)-1(ter)-333(that)-333(sp)-28(eci\014es)-333(whether)-334(to)-333(p)-28(erm)28(ute)]TJ/F11 9.9626 Tf 204.179 0 Td [(A)]TJ/F8 9.9626 Tf 10.793 0 Td [(or)]TJ/F11 9.9626 Tf 12.204 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ -246.626 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(single)-333(c)28(haracter)-334(with)-333(v)56(alue)-334('N')-333(for)]TJ/F11 9.9626 Tf 217.435 0 Td [(A)]TJ/F8 9.9626 Tf 10.792 0 Td [(or)-333('T')-334(for)]TJ/F11 9.9626 Tf 43.504 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ +/F8 9.9626 Tf 30.609 0 Td [(A)-333(c)27(haracter)-333(that)-333(sp)-28(eci\014es)-333(whether)-334(to)-333(p)-28(erm)28(ute)]TJ/F11 9.9626 Tf 204.179 0 Td [(A)]TJ/F8 9.9626 Tf 10.793 0 Td [(or)]TJ/F11 9.9626 Tf 12.204 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ -246.626 -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(single)-333(c)28(haracte)-1(r)-333(with)-333(v)55(alu)1(e)-334('N')-333(for)]TJ/F11 9.9626 Tf 217.435 0 Td [(A)]TJ/F8 9.9626 Tf 10.793 0 Td [(or)-333('T')-334(for)]TJ/F11 9.9626 Tf 43.503 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.277 -3.616 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -310.386 -31.88 Td [(ip)-32(erm)]TJ +/F27 9.9626 Tf -310.387 -31.88 Td [(ip)-32(erm)]TJ 0 g 0 G -/F8 9.9626 Tf 34.364 0 Td [(An)-333(in)28(tege)-1(r)-333(arra)28(y)-333(con)27(tain)1(ing)-334(p)-28(erm)28(utation)-333(information.)]TJ -9.457 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(one-dimensional)-334(arra)28(y)84(.)]TJ +/F8 9.9626 Tf 34.364 0 Td [(An)-333(in)28(te)-1(ger)-333(arra)28(y)-333(con)27(tainin)1(g)-334(p)-28(erm)28(utation)-333(information.)]TJ -9.457 -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(an)-333(in)28(teger)-333(one-dimensional)-334(arra)28(y)83(.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -31.88 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(p)-28(erm)27(u)1(te)-1(d)1(.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(or)-333(t)27(w)28(o)-333(dimensional)-334(arra)28(y)84(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(p)-27(erm)27(ut)1(e)-1(d.)]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 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(or)-334(t)28(w)28(o)-333(dimensional)-334(arra)28(y)84(.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G - 141.967 -226.691 Td [(88)]TJ + 141.968 -226.691 Td [(93)]TJ 0 g 0 G ET endstream endobj -1460 0 obj +1518 0 obj << -/Length 6540 +/Length 6547 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(glob)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(glob)]TJ ET q -1 0 0 1 150.451 706.328 cm +1 0 0 1 201.26 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 154.486 706.129 Td [(to)]TJ +/F16 11.9552 Tf 205.295 706.129 Td [(to)]TJ ET q -1 0 0 1 167.248 706.328 cm +1 0 0 1 218.057 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 171.283 706.129 Td [(lo)-31(c)-375(|)-375(Global)-375(to)-375(lo)-31(cal)-375(indices)-375(con)31(v)31(ertion)]TJ +/F16 11.9552 Tf 222.092 706.129 Td [(lo)-31(c)-375(|)-375(Global)-375(to)-375(lo)-31(cal)-375(indices)-375(con)31(v)31(ertion)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -71.388 -18.389 Td [(call)-525(psb_glob_to_loc\050x,)-525(y,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ 0 -11.956 Td [(call)-525(psb_glob_to_loc\050x,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ +/F30 9.9626 Tf -71.387 -18.389 Td [(call)-525(psb_glob_to_loc\050x,)-525(y,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ 0 -11.956 Td [(call)-525(psb_glob_to_loc\050x,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.201 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -17489,119 +18219,119 @@ BT 0 g 0 G 0 -19.639 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(te)-1(ger)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]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 -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,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(tege)-1(r)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -31.594 Td [(desc)]TJ +/F27 9.9626 Tf -24.906 -31.594 Td [(desc)]TJ ET q -1 0 0 1 121.81 536.09 cm +1 0 0 1 172.619 536.09 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 535.891 Td [(a)]TJ +/F27 9.9626 Tf 176.057 535.891 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 488.27 cm +1 0 0 1 362.845 488.27 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 488.07 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 488.07 Td [(desc)]TJ ET q -1 0 0 1 336.723 488.27 cm +1 0 0 1 387.532 488.27 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 488.07 Td [(type)]TJ +/F30 9.9626 Tf 390.67 488.07 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.638 Td [(iact)]TJ 0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.147 0 Td [(global)]TJ/F8 9.9626 Tf -255.521 -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)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.231 0 Td [(b)-28(ort,)-270(default)]TJ/F30 9.9626 Tf 56.741 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore.)]TJ +/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ 0 g 0 G -/F27 9.9626 Tf -317.117 -19.639 Td [(o)32(wned)]TJ +/F27 9.9626 Tf -317.116 -19.639 Td [(o)32(wned)]TJ 0 g 0 G -/F8 9.9626 Tf 36.647 0 Td [(Sp)-28(ec\014es)-333(v)55(alid)-333(range)-333(of)-334(i)1(nput)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 158.933 0 Td [(global)]TJ/F8 9.9626 Tf -170.673 -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.955 Td [(If)-294(true,)-302(then)-294(only)-295(indices)-294(strictly)-294(o)28(wned)-295(b)28(y)-294(the)-294(curren)28(t)-295(pro)-27(ces)-1(s)-294(are)-294(consid-)]TJ 0 -11.955 Td [(ered)-333(v)55(alid,)-333(if)-333(false)-334(then)-333(halo)-333(indices)-334(are)-333(also)-333(accepted.)-445(Default:)-444(false.)]TJ +/F8 9.9626 Tf 36.647 0 Td [(Sp)-28(ec\014es)-333(v)55(alid)-333(range)-333(of)-333(input)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 158.932 0 Td [(global)]TJ/F8 9.9626 Tf -170.673 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(If)-294(true,)-302(then)-294(only)-295(indices)-294(strictly)-294(o)28(wned)-295(b)28(y)-294(the)-294(curren)28(t)-295(pro)-27(ce)-1(ss)-294(are)-294(consid-)]TJ 0 -11.955 Td [(ered)-333(v)55(alid,)-333(if)-333(false)-334(then)-333(halo)-333(indices)-334(are)-333(also)-333(accepted.)-445(Default:)-444(false.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -21.202 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -24.906 -21.202 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.639 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.133 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.586 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-351(th)1(e)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.758 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.132 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.587 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-350(the)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.759 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.639 Td [(y)]TJ +/F27 9.9626 Tf -24.906 -19.639 Td [(y)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.04 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(presen)28(t,)-343(then)]TJ/F11 9.9626 Tf 70.405 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(o)28(v)27(erwri)1(tte)-1(n)-341(with)-341(the)-341(translated)-341(in)28(teger)-341(indices,)-343(and)]TJ/F11 9.9626 Tf -83.846 -11.955 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -122.257 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.04 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(presen)28(t,)-343(then)]TJ/F11 9.9626 Tf 70.404 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(o)28(v)27(erwritten)-341(with)-341(the)-341(translated)-341(in)28(teger)-341(indices,)-343(and)]TJ/F11 9.9626 Tf -83.846 -11.955 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -122.257 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.638 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -19.638 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.202 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.202 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 166.875 -29.887 Td [(89)]TJ +/F8 9.9626 Tf 166.874 -29.887 Td [(94)]TJ 0 g 0 G ET endstream endobj -1464 0 obj +1522 0 obj << -/Length 705 +/Length 692 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F8 9.9626 Tf 162.881 706.129 Td [(1.)]TJ +/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ 0 g 0 G - [-500(If)-352(an)-353(input)-352(index)-352(is)-353(out)-352(of)-353(r)1(ange)-1(,)-357(then)-352(the)-352(corres)-1(p)-27(onding)-353(ou)1(tput)-353(index)-352(is)]TJ 12.73 -11.955 Td [(set)-333(to)-334(a)-333(negativ)28(e)-334(n)28(um)28(b)-28(er;)]TJ + [-500(If)-352(an)-353(input)-352(index)-352(is)-353(out)-352(of)-352(range,)-358(then)-352(the)-352(corresp)-28(onding)-352(output)-353(index)-352(is)]TJ 12.73 -11.955 Td [(set)-333(to)-334(a)-333(negativ)28(e)-334(n)28(um)28(b)-28(er;)]TJ 0 g 0 G -12.73 -19.926 Td [(2.)]TJ 0 g 0 G - [-500(The)-476(default)]TJ/F30 9.9626 Tf 69.543 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore)-476(means)-477(that)-476(the)-476(negativ)28(e)-477(out)1(put)-477(is)-476(the)-476(only)-476(action)]TJ -62.043 -11.955 Td [(tak)28(en)-334(on)-333(an)-333(out-of-range)-333(input.)]TJ + [-500(The)-476(default)]TJ/F30 9.9626 Tf 69.542 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore)-476(means)-477(th)1(at)-477(the)-476(negativ)28(e)-476(output)-477(is)-476(the)-476(only)-476(action)]TJ -62.043 -11.955 Td [(tak)28(en)-334(on)-333(an)-333(out-of-range)-333(input.)]TJ 0 g 0 G - 141.968 -571.855 Td [(90)]TJ + 141.968 -571.855 Td [(95)]TJ 0 g 0 G ET endstream endobj -1471 0 obj +1529 0 obj << -/Length 5721 +/Length 5736 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(lo)-31(c)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(lo)-31(c)]TJ ET q -1 0 0 1 142.605 706.328 cm +1 0 0 1 193.415 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 146.64 706.129 Td [(to)]TJ +/F16 11.9552 Tf 197.45 706.129 Td [(to)]TJ ET q -1 0 0 1 159.402 706.328 cm +1 0 0 1 210.212 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 163.437 706.129 Td [(glob)-375(|)-375(Lo)-31(cal)-375(to)-375(global)-375(indices)-375(con)31(v)31(ersion)]TJ +/F16 11.9552 Tf 214.247 706.129 Td [(glob)-375(|)-375(Lo)-31(cal)-375(to)-375(global)-375(indices)-375(con)31(v)31(ersion)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -63.542 -18.389 Td [(call)-525(psb_loc_to_glob\050x,)-525(y,)-525(desc_a,)-525(info,)-525(iact\051)]TJ 0 -11.956 Td [(call)-525(psb_loc_to_glob\050x,)-525(desc_a,)-525(info,)-525(iact\051)]TJ @@ -17615,85 +18345,85 @@ BT 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(te)-1(ger)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]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 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(tege)-1(r)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.646 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ ET q -1 0 0 1 121.81 534.514 cm +1 0 0 1 172.619 534.514 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 125.247 534.315 Td [(a)]TJ +/F27 9.9626 Tf 176.057 534.315 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 486.693 cm +1 0 0 1 362.845 486.693 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 486.494 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 486.494 Td [(desc)]TJ ET q -1 0 0 1 336.723 486.693 cm +1 0 0 1 387.532 486.693 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 339.861 486.494 Td [(type)]TJ +/F30 9.9626 Tf 390.67 486.494 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ 0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.147 0 Td [(global)]TJ/F8 9.9626 Tf -255.521 -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)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.231 0 Td [(b)-28(ort,)-270(default)]TJ/F30 9.9626 Tf 56.741 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore.)]TJ +/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ 0 g 0 G -/F27 9.9626 Tf -317.117 -21.917 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -317.116 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.133 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.586 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-351(th)1(e)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.758 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.132 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.587 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-350(the)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.759 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(y)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(y)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.167 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(not)-354(presen)28(t,)-359(then)]TJ/F11 9.9626 Tf 88.732 0 Td [(y)]TJ/F8 9.9626 Tf 8.766 0 Td [(is)-354(o)28(v)28(erwritten)-354(with)-354(the)-354(translated)-353(in)27(teger)-353(indices,)]TJ -102.553 -11.955 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -141.629 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.166 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(not)-354(presen)28(t,)-359(then)]TJ/F11 9.9626 Tf 88.732 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(o)28(v)28(erwritten)-354(with)-354(the)-354(translated)-353(in)27(teger)-353(indices,)]TJ -102.554 -11.955 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -141.629 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ 0 g 0 G - 141.968 -115.11 Td [(91)]TJ + 141.968 -115.11 Td [(96)]TJ 0 g 0 G ET endstream endobj -1477 0 obj +1534 0 obj << -/Length 3279 +/Length 3271 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ ET q -1 0 0 1 171.761 706.328 cm +1 0 0 1 120.951 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(is)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(is)]TJ ET q -1 0 0 1 185.644 706.328 cm +1 0 0 1 134.834 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 189.679 706.129 Td [(o)31(wned)-375(|)]TJ +/F16 11.9552 Tf 138.869 706.129 Td [(o)31(wned)-375(|)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -38.974 -18.389 Td [(call)-525(psb_is_owned\050x,)-525(desc_a\051)]TJ @@ -17707,91 +18437,7 @@ BT 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(e)-1(x.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(A)-302(logical)-301(mask)-302(whic)28(h)-302(is)-302(tru)1(e)-302(if)]TJ/F11 9.9626 Tf 134.085 0 Td [(x)]TJ/F8 9.9626 Tf 8.7 0 Td [(is)-302(o)28(wned)-302(b)28(y)-301(the)-302(curren)28(t)-302(pro-)]TJ -196.265 -11.955 Td [(cess)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 52.415 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -52.415 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.941 -33.873 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-300(routine)-300(r)1(e)-1(tu)1(rns)-300(a)]TJ/F30 9.9626 Tf 111.214 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.368 0 Td [(v)56(alue)-300(for)-300(an)-300(index)-299(that)-300(is)-300(strictly)-300(o)28(wned)-300(b)28(y)]TJ -132.852 -11.955 Td [(the)-333(curren)27(t)-333(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.968 -264.549 Td [(92)]TJ -0 g 0 G -ET - -endstream -endobj -1483 0 obj -<< -/Length 4979 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(o)31(wned)]TJ -ET -q -1 0 0 1 162.939 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 166.974 706.129 Td [(index)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -67.079 -18.389 Td [(call)-525(psb_owned_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(indices.)]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 -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,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(index.)]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 -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(scalar)-333(in)28(teger.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ ET @@ -17822,34 +18468,26 @@ BT 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.147 0 Td [(global)]TJ/F8 9.9626 Tf -255.521 -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.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.231 0 Td [(b)-28(ort,)-270(default)]TJ/F30 9.9626 Tf 56.741 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.117 -21.918 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(y)]TJ + 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(A)-294(logical)-294(mask)-294(whic)28(h)-294(is)-294(true)-294(for)-294(all)-294(corresp)-28(onding)-294(en)28(tries)-294(of)]TJ/F11 9.9626 Tf 259.229 0 Td [(x)]TJ/F8 9.9626 Tf 8.623 0 Td [(that)-294(are)-294(o)28(wned)]TJ -253.973 -11.955 Td [(b)28(y)-333(the)-334(curren)28(t)-333(pro)-28(cess)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 132.752 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -132.752 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(ran)1(k)-334(one)-333(logical)-333(arra)27(y)84(.)]TJ +/F8 9.9626 Tf 78.387 0 Td [(A)-302(logical)-301(mask)-302(whic)28(h)-302(is)-302(t)1(rue)-302(if)]TJ/F11 9.9626 Tf 134.085 0 Td [(x)]TJ/F8 9.9626 Tf 8.699 0 Td [(is)-302(o)28(wned)-302(b)28(y)-301(the)-302(curren)28(t)-302(pro-)]TJ -196.264 -11.955 Td [(cess)-334(S)1(c)-1(op)-27(e:)]TJ/F27 9.9626 Tf 52.415 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -52.415 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.942 -33.873 Td [(Notes)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ + [-500(This)-300(routine)-299(returns)-300(a)]TJ/F30 9.9626 Tf 111.213 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.369 0 Td [(v)56(alue)-300(for)-300(an)-300(index)-299(that)-300(is)-300(strictly)-300(o)28(wned)-300(b)28(y)]TJ -132.852 -11.955 Td [(the)-333(curren)28(t)-334(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-475(routine)-474(returns)-475(a)]TJ/F30 9.9626 Tf 118.186 0 Td [(.true.)]TJ/F8 9.9626 Tf 36.111 0 Td [(v)56(alue)-475(for)-475(those)-475(indices)-474(that)-475(are)-475(strictly)]TJ -141.567 -11.955 Td [(o)28(wned)-334(b)28(y)-333(the)-333(curren)27(t)-333(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.968 -141.013 Td [(93)]TJ + 141.968 -264.549 Td [(97)]TJ 0 g 0 G ET endstream endobj -1489 0 obj +1541 0 obj << -/Length 3247 +/Length 4983 >> stream 0 g 0 G @@ -17862,14 +18500,106 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(is)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(o)31(wned)]TJ ET q -1 0 0 1 185.644 706.328 cm +1 0 0 1 213.748 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 189.679 706.129 Td [(lo)-31(cal)-375(|)]TJ +/F16 11.9552 Tf 217.783 706.129 Td [(index)-375(|)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -67.078 -18.389 Td [(call)-525(psb_owned_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(ice)-1(s.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(a)-333(rank)-333(one)-334(in)28(teger)-333(arra)28(y)83(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -31.88 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 546.469 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ +ET +q +1 0 0 1 387.532 498.649 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ +0 g 0 G +/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ +0 g 0 G +/F27 9.9626 Tf -317.116 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.926 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(A)-294(logical)-294(mask)-294(whic)28(h)-294(is)-294(true)-294(for)-294(all)-294(corresp)-28(onding)-294(en)28(tries)-294(of)]TJ/F11 9.9626 Tf 259.229 0 Td [(x)]TJ/F8 9.9626 Tf 8.623 0 Td [(that)-294(are)-294(o)28(wned)]TJ -253.974 -11.955 Td [(b)28(y)-334(the)-333(curren)28(t)-333(pro)-28(cess)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 132.753 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -132.752 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(or)-334(r)1(ank)-334(one)-333(logical)-333(arra)27(y)84(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(An)-333(in)28(teger)-334(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(This)-475(routine)-474(returns)-475(a)]TJ/F30 9.9626 Tf 118.186 0 Td [(.true.)]TJ/F8 9.9626 Tf 36.112 0 Td [(v)56(alue)-475(for)-475(those)-475(indices)-474(that)-475(are)-475(strictly)]TJ -141.567 -11.955 Td [(o)28(wned)-334(b)28(y)-333(the)-333(curren)27(t)-333(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ +0 g 0 G + 141.967 -141.013 Td [(98)]TJ +0 g 0 G +ET + +endstream +endobj +1547 0 obj +<< +/Length 3240 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(is)]TJ +ET +q +1 0 0 1 134.834 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 138.869 706.129 Td [(lo)-31(cal)-375(|)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -38.974 -18.389 Td [(call)-525(psb_is_local\050x,)-525(desc_a\051)]TJ @@ -17883,91 +18613,7 @@ BT 0 g 0 G 0 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(e)-1(x.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(A)-264(logical)-265(mask)-264(whic)27(h)-264(is)-265(true)-264(if)]TJ/F11 9.9626 Tf 131.492 0 Td [(x)]TJ/F8 9.9626 Tf 8.329 0 Td [(is)-265(lo)-27(cal)-265(to)-264(the)-265(curren)28(t)-264(pro)-28(cess)]TJ -193.301 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.941 -33.873 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-239(routine)-239(returns)-239(a)]TJ/F30 9.9626 Tf 108.787 0 Td [(.true.)]TJ/F8 9.9626 Tf 33.762 0 Td [(v)56(alue)-239(for)-239(an)-239(index)-239(that)-239(is)-239(lo)-27(cal)-239(to)-239(the)-239(curren)28(t)]TJ -129.819 -11.955 Td [(pro)-28(cess,)-333(including)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.968 -264.549 Td [(94)]TJ -0 g 0 G -ET - -endstream -endobj -1495 0 obj -<< -/Length 4963 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(lo)-31(cal)]TJ -ET -q -1 0 0 1 152.879 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 156.914 706.129 Td [(index)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -57.019 -18.389 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(indices.)]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 -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,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(index.)]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 -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(scalar)-333(in)28(teger.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ ET @@ -17998,34 +18644,26 @@ BT 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.147 0 Td [(global)]TJ/F8 9.9626 Tf -255.521 -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.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.231 0 Td [(b)-28(ort,)-270(default)]TJ/F30 9.9626 Tf 56.741 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.117 -21.918 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(y)]TJ + 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(A)-346(logical)-345(mask)-346(whic)28(h)-346(is)-345(true)-346(for)-345(all)-346(corresp)-28(onding)-345(en)28(tries)-346(of)]TJ/F11 9.9626 Tf 264.883 0 Td [(x)]TJ/F8 9.9626 Tf 9.136 0 Td [(that)-346(are)-345(lo)-28(cal)]TJ -260.14 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 131.092 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -131.092 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(ran)1(k)-334(one)-333(logical)-333(arra)27(y)84(.)]TJ +/F8 9.9626 Tf 78.387 0 Td [(A)-264(logical)-265(mask)-264(whic)27(h)-264(is)-265(true)-264(if)]TJ/F11 9.9626 Tf 131.492 0 Td [(x)]TJ/F8 9.9626 Tf 8.329 0 Td [(is)-264(lo)-28(cal)-265(to)-264(the)-265(curren)28(t)-264(pro)-28(cess)]TJ -193.301 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.942 -33.873 Td [(Notes)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ + [-500(This)-239(routine)-239(returns)-239(a)]TJ/F30 9.9626 Tf 108.787 0 Td [(.true.)]TJ/F8 9.9626 Tf 33.762 0 Td [(v)56(alue)-239(for)-239(an)-239(index)-239(that)-239(is)-238(lo)-28(cal)-239(to)-239(the)-239(curren)28(t)]TJ -129.819 -11.955 Td [(pro)-28(cess,)-333(including)-333(the)-334(halo)-333(indices)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-308(routine)-309(retur)1(ns)-309(a)]TJ/F30 9.9626 Tf 111.554 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.454 0 Td [(v)56(alue)-309(for)-308(those)-308(indices)-309(that)-308(are)-308(lo)-28(cal)-308(to)-309(the)]TJ -133.278 -11.955 Td [(curren)28(t)-333(pro)-28(cess,)-334(including)-333(the)-333(halo)-333(indices.)]TJ -0 g 0 G - 141.968 -141.013 Td [(95)]TJ + 141.968 -264.549 Td [(99)]TJ 0 g 0 G ET endstream endobj -1501 0 obj +1553 0 obj << -/Length 3804 +/Length 4993 >> stream 0 g 0 G @@ -18038,17 +18676,17 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(get)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(lo)-31(cal)]TJ ET q -1 0 0 1 194.695 706.328 cm +1 0 0 1 203.689 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 198.729 706.129 Td [(b)-31(oundary)-375(|)-375(Extract)-375(list)-375(of)-375(b)-32(oundary)-375(elemen)32(ts)]TJ +/F16 11.9552 Tf 207.724 706.129 Td [(index)-375(|)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ +/F30 9.9626 Tf -57.019 -18.389 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -18057,56 +18695,67 @@ BT /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]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 -/F8 9.9626 Tf 26.208 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(ic)-1(es.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.646 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(or)-334(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ +ET +q +1 0 0 1 172.619 546.469 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 578.35 cm +1 0 0 1 362.845 498.649 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ +/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ ET q -1 0 0 1 387.532 578.35 cm +1 0 0 1 387.532 498.649 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ +/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ +0 g 0 G +/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ +0 g 0 G +/F27 9.9626 Tf -317.116 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(bndel)]TJ + 0 -19.926 Td [(y)]TJ 0 g 0 G -/F8 9.9626 Tf 32.51 0 Td [(The)-268(list)-267(of)-268(b)-27(oundary)-268(elemen)28(ts)-268(on)-267(the)-268(calling)-267(pro)-28(cess,)-281(in)-267(lo)-28(cal)-268(n)28(um)28(b)-28(ering.)]TJ -7.604 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-457(with)-456(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)27(teger.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(A)-346(logical)-345(mask)-346(whic)28(h)-346(is)-345(true)-346(for)-345(all)-346(corresp)-28(ondin)1(g)-346(en)28(tries)-346(of)]TJ/F11 9.9626 Tf 264.882 0 Td [(x)]TJ/F8 9.9626 Tf 9.137 0 Td [(that)-346(ar)1(e)-346(lo)-28(cal)]TJ -260.141 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 131.092 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -131.092 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(rank)-333(one)-333(logical)-334(ar)1(ra)27(y)84(.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -31.881 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ 0 g 0 G - [-500(If)-269(there)-269(are)-269(no)-269(b)-28(oundary)-269(elemen)28(ts)-269(\050i.e.,)-282(if)-269(the)-269(lo)-28(cal)-269(part)-269(of)-269(the)-270(connectivit)28(y)]TJ 12.73 -11.955 Td [(graph)-449(is)-450(self-con)28(tained\051)-450(the)-449(output)-450(v)28(ector)-449(is)-450(set)-449(to)-450(the)-449(\134not)-450(allo)-28(cated")]TJ 0 -11.955 Td [(state.)]TJ + [-500(This)-308(routine)-309(return)1(s)-309(a)]TJ/F30 9.9626 Tf 111.554 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.454 0 Td [(v)56(alue)-309(for)-308(those)-308(indices)-309(that)-308(are)-308(lo)-28(cal)-308(to)-309(the)]TJ -133.278 -11.955 Td [(curren)28(t)-334(p)1(ro)-28(cess,)-334(including)-333(the)-333(halo)-334(i)1(ndices)-1(.)]TJ 0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Otherwise)-288(the)-289(size)-288(of)]TJ/F30 9.9626 Tf 105.44 0 Td [(bndel)]TJ/F8 9.9626 Tf 29.024 0 Td [(will)-288(b)-28(e)-288(exactly)-288(e)-1(qu)1(al)-289(to)-288(the)-288(n)28(um)27(b)-27(er)-289(of)-288(b)-28(oun)1(d-)]TJ -121.734 -11.956 Td [(ary)-333(elemen)27(ts.)]TJ -0 g 0 G - 141.968 -208.758 Td [(96)]TJ + 139.477 -141.013 Td [(100)]TJ 0 g 0 G ET endstream endobj -1508 0 obj +1559 0 obj << -/Length 3654 +/Length 3822 >> stream 0 g 0 G @@ -18126,10 +18775,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 147.92 706.129 Td [(o)31(v)31(erlap)-375(|)-375(Extract)-375(list)-375(of)-375(o)32(v)31(erlap)-375(elemen)31(ts)]TJ +/F16 11.9552 Tf 147.92 706.129 Td [(b)-31(oundary)-375(|)-375(Extract)-375(list)-375(of)-375(b)-32(oundary)-375(elemen)32(ts)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ +/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -18163,9 +18812,9 @@ BT /F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(o)32(vrel)]TJ + 0 -19.926 Td [(bndel)]TJ 0 g 0 G -/F8 9.9626 Tf 29.591 0 Td [(The)-333(list)-334(of)-333(o)28(v)28(erlap)-334(elemen)28(ts)-333(on)-334(the)-333(calling)-333(pro)-28(cess,)-333(in)-334(lo)-28(cal)-333(n)28(um)28(b)-28(ering.)]TJ -4.684 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-456(with)-457(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)28(te)-1(ger.)]TJ +/F8 9.9626 Tf 32.51 0 Td [(The)-268(list)-267(of)-268(b)-27(oundary)-268(elemen)28(ts)-268(on)-267(the)-268(calling)-267(pro)-28(cess,)-281(in)-267(lo)-28(cal)-268(n)28(um)28(b)-28(ering.)]TJ -7.603 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-456(with)-457(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)28(te)-1(ger.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -31.881 Td [(info)]TJ 0 g 0 G @@ -18173,704 +18822,147 @@ BT 0 g 0 G /F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G - [-500(If)-343(there)-343(are)-344(no)-343(o)28(v)28(erlap)-344(elemen)28(ts)-343(the)-343(output)-344(v)28(ector)-343(is)-343(set)-344(to)-343(the)-343(\134not)-343(allo-)]TJ 12.73 -11.955 Td [(cated")-333(state.)]TJ + [-500(If)-269(there)-269(are)-269(no)-269(b)-28(oundary)-269(elemen)28(ts)-269(\050i.e.,)-282(if)-269(the)-269(lo)-28(cal)-269(part)-269(of)-269(the)-269(c)-1(onn)1(e)-1(ctivi)1(t)27(y)]TJ 12.73 -11.955 Td [(graph)-449(is)-450(self-con)28(tained\051)-450(the)-449(output)-449(v)27(ector)-449(is)-450(set)-449(to)-450(the)-449(\134not)-450(allo)-27(c)-1(ated")]TJ 0 -11.955 Td [(state.)]TJ 0 g 0 G -12.73 -19.925 Td [(2.)]TJ 0 g 0 G - [-500(Otherwise)-284(the)-284(size)-283(of)]TJ/F30 9.9626 Tf 105.261 0 Td [(ovrel)]TJ/F8 9.9626 Tf 28.979 0 Td [(will)-284(b)-27(e)-284(exactly)-284(equal)-284(to)-284(th)1(e)-284(n)28(um)27(b)-27(er)-284(of)-284(o)28(v)28(erlap)]TJ -121.51 -11.955 Td [(elemen)28(ts.)]TJ + [-500(Otherwise)-288(the)-289(size)-288(of)]TJ/F30 9.9626 Tf 105.44 0 Td [(bndel)]TJ/F8 9.9626 Tf 29.023 0 Td [(will)-288(b)-28(e)-288(exactly)-289(equal)-288(to)-288(the)-288(n)28(um)27(b)-27(er)-289(of)-288(b)-28(ound)1(-)]TJ -121.733 -11.956 Td [(ary)-333(elemen)27(ts.)]TJ 0 g 0 G - 141.968 -220.714 Td [(97)]TJ + 139.477 -208.758 Td [(101)]TJ 0 g 0 G ET endstream endobj -1516 0 obj -<< -/Length 5790 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(sp)]TJ -ET -q -1 0 0 1 189.38 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 193.415 706.129 Td [(getro)31(w)-375(|)-375(Extract)-375(ro)32(w\050s)-1(\051)-375(from)-375(a)-375(sparse)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -42.71 -18.647 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 -/F27 9.9626 Tf -73.225 -22.334 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 -20.479 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -20.479 Td [(ro)32(w)]TJ -0 g 0 G -/F8 9.9626 Tf 23.384 0 Td [(The)-333(\050\014rst\051)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 1.523 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)]TJ/F11 9.9626 Tf 104.69 0 Td [(>)]TJ/F8 9.9626 Tf 10.517 0 Td [(0.)]TJ -0 g 0 G -/F27 9.9626 Tf -140.114 -20.479 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(from)-333(whic)28(h)-333(to)-334(get)-333(ro)28(ws.)]TJ 14.356 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 496.313 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 496.114 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 496.313 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 496.114 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -20.479 Td [(app)-32(end)]TJ -0 g 0 G -/F8 9.9626 Tf 41.58 0 Td [(Whether)-333(to)-334(app)-27(end)-334(or)-333(o)28(v)28(erwrite)-334(existing)-333(output.)]TJ -16.674 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue)-333(default:)-444(false)-334(\050o)28(v)28(erwrite\051.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -20.479 Td [(nzin)]TJ -0 g 0 G -/F8 9.9626 Tf 25.986 0 Td [(Input)-333(size)-334(to)-333(b)-28(e)-333(app)-28(ended)-333(to.)]TJ -1.08 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf -25.184 -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)-398(as:)-573(an)-398(in)28(teger)]TJ/F11 9.9626 Tf 107.908 0 Td [(>)]TJ/F8 9.9626 Tf 11.588 0 Td [(0.)-638(When)-398(app)-28(end)-398(is)-397(true,)-414(s)-1(p)-27(eci\014es)-398(ho)28(w)-398(man)27(y)]TJ -119.496 -11.955 Td [(en)28(tries)-334(in)-333(the)-333(output)-333(v)27(ectors)-333(are)-333(already)-334(\014lled.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -20.479 Td [(lrw)]TJ -0 g 0 G -/F8 9.9626 Tf 21.156 0 Td [(The)-333(last)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 3.75 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf -25.184 -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(an)-333(in)28(teger)]TJ/F11 9.9626 Tf 104.691 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0,)-333(default:)]TJ/F11 9.9626 Tf 48.43 0 Td [(r)-28(ow)]TJ/F8 9.9626 Tf 17.001 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -205.544 -22.334 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -20.479 Td [(nz)]TJ -0 g 0 G -/F8 9.9626 Tf 16.438 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(elemen)28(ts)-334(returned)-333(b)28(y)-334(thi)1(s)-334(call.)]TJ 8.468 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -20.479 Td [(ia)]TJ -0 g 0 G -/F8 9.9626 Tf 13.733 0 Td [(the)-333(ro)27(w)-333(indices.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.611 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.854 0 Td [(attribute.)]TJ -0 g 0 G - -89.497 -29.887 Td [(98)]TJ -0 g 0 G -ET - -endstream -endobj -1520 0 obj -<< -/Length 3701 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(ja)]TJ -0 g 0 G -/F8 9.9626 Tf 14.052 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(elemen)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.61 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -256.372 -19.925 Td [(v)64(al)]TJ -0 g 0 G -/F8 9.9626 Tf 19.144 0 Td [(the)-333(elemen)27(ts)-333(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(arra)28(y)-334(with)-333(the)]TJ/F30 9.9626 Tf 151.515 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -237.277 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)-368(output)]TJ/F11 9.9626 Tf 66.552 0 Td [(nz)]TJ/F8 9.9626 Tf 14.717 0 Td [(is)-368(alw)28(a)28(ys)-368(the)-368(size)-368(of)-368(the)-368(output)-368(generated)-367(b)27(y)-367(the)-368(curren)28(t)]TJ -68.539 -11.955 Td [(call;)-314(th)28(us,)-309(if)]TJ/F30 9.9626 Tf 54.123 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)-310(the)-303(total)-304(output)-304(size)-304(will)-303(b)-28(e)]TJ/F11 9.9626 Tf 128.95 0 Td [(nz)-44(in)]TJ/F8 9.9626 Tf 22.088 0 Td [(+)]TJ/F11 9.9626 Tf 9.373 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-310(with)]TJ -293.58 -11.955 Td [(the)-372(newly)-372(extracted)-372(co)-28(e\016cien)28(ts)-372(stored)-372(in)-372(en)28(tries)]TJ/F30 9.9626 Tf 216.307 0 Td [(nzin+1:nzin+nz)]TJ/F8 9.9626 Tf 76.93 0 Td [(of)-372(the)]TJ -293.237 -11.955 Td [(arra)28(y)-333(argume)-1(n)28(ts;)]TJ -0 g 0 G - -12.73 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(When)]TJ/F30 9.9626 Tf 41.788 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 71.315 0 Td [(the)-333(output)-334(arr)1(a)27(ys)-333(are)-333(reallo)-28(cated)-334(as)-333(necessary;)]TJ -0 g 0 G - -113.103 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(The)-253(ro)28(w)-252(and)-253(column)-253(ind)1(ic)-1(es)-252(are)-253(returned)-252(in)-253(the)-253(lo)-27(cal)-253(n)28(um)28(b)-28(ering)-253(sc)28(heme;)-280(if)]TJ 12.73 -11.955 Td [(the)-222(global)-222(n)27(um)28(b)-28(erin)1(g)-223(is)-222(desired,)-244(the)-223(user)-222(ma)28(y)-222(emplo)27(y)-222(the)]TJ/F30 9.9626 Tf 243.172 0 Td [(psb_loc_to_glob)]TJ/F8 9.9626 Tf -243.172 -11.955 Td [(routine)-333(on)-334(th)1(e)-334(output.)]TJ -0 g 0 G - 141.968 -290.909 Td [(99)]TJ -0 g 0 G -ET - -endstream -endobj -1530 0 obj -<< -/Length 4127 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(sizeof)-375(|)-375(Memory)-375(o)-31(ccupation)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(memory)-334(o)-27(c)-1(cup)1(ation)-334(of)-333(a)-333(PSBLAS)-334(ob)-55(ject.)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -21.918 Td [(isz)-525(=)-525(psb_sizeof\050a\051)]TJ 0 -11.955 Td [(isz)-525(=)-525(psb_sizeof\050desc_a\051)]TJ 0 -11.956 Td [(isz)-525(=)-525(psb_sizeof\050prec\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)]TJ/F11 9.9626 Tf 73.225 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -66.342 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 532.522 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 532.322 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 532.522 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 532.322 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 512.596 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 512.397 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(Comm)28(unication)-334(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 464.776 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 464.576 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 464.776 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 464.576 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.879 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ -ET -q -1 0 0 1 389.467 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 408.786 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 408.786 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.509 -19.926 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(The)-332(memory)-331(o)-28(ccupation)-332(of)-331(the)-332(ob)-55(jec)-1(t)-331(sp)-28(eci\014ed)-332(in)-331(the)-332(calling)]TJ -53.48 -11.955 Td [(sequence,)-333(in)-334(b)28(ytes.)]TJ 0 -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 [(Returned)-333(as:)-445(an)]TJ/F30 9.9626 Tf 73.835 0 Td [(integer\050psb_long_int_k_\051)]TJ/F8 9.9626 Tf 128.849 0 Td [(n)28(um)28(b)-28(er.)]TJ -0 g 0 G - -63.207 -242.632 Td [(100)]TJ -0 g 0 G -ET - -endstream -endobj -1534 0 obj -<< -/Length 5762 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(Sorting)-375(utilities)-375(|)]TJ 0 -19.593 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 686.736 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 686.536 Td [(msort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Merge-sort)-375(algorithm)]TJ -25.091 -12.601 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 674.134 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 673.935 Td [(qsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Quic)31(ksort)-375(algorithm)]TJ -25.091 -12.602 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 661.532 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 661.333 Td [(hsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Heapsort)-375(algorithm)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -22.511 Td [(call)-525(psb_msort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_qsort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_hsort\050x,ix,dir,flag\051)]TJ/F8 9.9626 Tf 14.944 -21.865 Td [(These)-332(serial)-332(rou)1(tines)-332(sort)-332(a)-332(sequence)]TJ/F11 9.9626 Tf 162.708 0 Td [(X)]TJ/F8 9.9626 Tf 12.34 0 Td [(in)28(to)-332(ascending)-332(or)-331(descending)-332(order.)]TJ -189.992 -11.955 Td [(The)-320(argumen)28(t)-321(meaning)-320(is)-320(iden)28(tical)-320(for)-320(the)-321(thr)1(e)-1(e)-320(calls;)-324(the)-321(on)1(ly)-321(di\013erence)-320(is)-320(the)]TJ 0 -11.955 Td [(algorithm)-333(used)-334(to)-333(accomplish)-333(the)-334(task)-333(\050see)-334(Usage)-333(Notes)-333(b)-28(elo)28(w\051.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.865 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 -22.511 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -22.511 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(to)-333(b)-28(e)-333(sorted.)]TJ 13.879 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ -0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(A)-333(v)27(ector)-333(of)-333(indices.)]TJ 10.696 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(\050at)-333(le)-1(ast\051)-333(the)-333(same)-334(size)-333(as)]TJ/F11 9.9626 Tf 258.559 0 Td [(X)]TJ/F8 9.9626 Tf 9.035 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -292.501 -22.511 Td [(dir)]TJ -0 g 0 G -/F8 9.9626 Tf 19.248 0 Td [(The)-333(desired)-334(ordering.)]TJ 5.659 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -22.511 Td [(In)32(teger)-383(and)-384(real)-383(data:)]TJ -0 g 0 G -/F30 9.9626 Tf 114.397 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_sort_down_)]TJ/F8 9.9626 Tf 73.224 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf -306.867 -11.955 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(;)-333(default)]TJ/F30 9.9626 Tf 39.574 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -202.711 -17.233 Td [(Complex)-383(data:)]TJ -0 g 0 G -/F30 9.9626 Tf 78.338 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_lsort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(;)]TJ -364.927 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.485 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -148.305 -22.511 Td [(\015ag)]TJ -0 g 0 G -/F8 9.9626 Tf 22.645 0 Td [(Whether)-333(to)-334(k)28(eep)-333(the)-333(original)-334(v)56(alues)-333(in)]TJ/F11 9.9626 Tf 170.582 0 Td [(I)-78(X)]TJ/F8 9.9626 Tf 14.197 0 Td [(.)]TJ -182.517 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger)-222(v)55(alue)]TJ/F30 9.9626 Tf 125.446 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 91.13 0 Td [(or)]TJ/F30 9.9626 Tf 11.097 0 Td [(psb_sort_keep_idx_)]TJ/F8 9.9626 Tf 94.147 0 Td [(;)]TJ -321.82 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.486 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 88.915 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -147.308 -24.503 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -22.511 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(of)-333(v)55(alues,)-333(in)-333(the)-334(c)28(hosen)-333(ordering.)]TJ 13.879 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ -0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(A)-333(v)27(ector)-333(of)-333(indices.)]TJ 10.696 -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 [(An)-332(in)27(teger)-332(arra)28(y)-333(of)-332(rank)-333(1,)-332(whose)-333(en)28(tries)-332(are)-333(mo)28(v)28(ed)-333(to)-332(the)-333(same)-332(p)-28(osition)]TJ 0 -11.955 Td [(as)-333(the)-334(corresp)-28(on)1(ding)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 136.959 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -0 g 0 G - -3.176 -43.727 Td [(101)]TJ -0 g 0 G -ET - -endstream -endobj -1538 0 obj -<< -/Length 6992 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(F)83(or)-466(in)28(te)-1(ger)-466(or)-467(real)-466(data)-467(the)-467(sorting)-466(can)-467(b)-28(e)-466(p)-28(erformed)-467(in)-466(the)-467(up/do)28(wn)]TJ 12.73 -11.956 Td [(direction,)-333(on)-334(the)-333(natural)-333(or)-333(absolute)-334(v)56(alues;)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(F)83(or)-397(complex)-398(data)-398(the)-397(sorting)-398(can)-398(b)-27(e)-398(done)-398(in)-397(a)-398(lexicographic)-398(order)-397(\050i.e.:)]TJ 12.73 -11.955 Td [(sort)-316(on)-316(the)-315(real)-316(part)-316(with)-316(ties)-316(brok)28(en)-316(according)-315(to)-316(the)-316(imaginary)-316(part\051)-315(or)]TJ 0 -11.955 Td [(on)-333(the)-334(absolute)-333(v)56(alues;)]TJ -0 g 0 G - -12.73 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(The)-257(routines)-258(return)-257(the)-257(items)-257(in)-258(the)-257(c)28(hosen)-258(or)1(dering;)-283(the)-257(output)-257(di\013erence)]TJ 12.73 -11.956 Td [(is)-259(the)-259(handling)-259(of)-259(ties)-259(\050i.e.)-419(items)-259(with)-259(an)-259(equal)-259(v)55(alu)1(e)-1(\051)-258(in)-259(the)-259(original)-259(input.)]TJ 0 -11.955 Td [(With)-493(the)-493(merge-sort)-493(algorithm)-493(ties)-493(are)-493(preserv)27(ed)-493(in)-493(the)-493(same)-493(relativ)28(e)]TJ 0 -11.955 Td [(order)-405(as)-406(they)-405(had)-406(in)-405(the)-406(or)1(iginal)-406(sequence,)-423(while)-406(this)-405(is)-406(not)-405(guaran)28(teed)]TJ 0 -11.955 Td [(for)-333(quic)28(ks)-1(or)1(t)-334(or)-333(heapsort;)]TJ -0 g 0 G - -12.73 -19.925 Td [(4.)]TJ -0 g 0 G - [-500(If)]TJ/F11 9.9626 Tf 21.89 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 22.261 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(psb)]TJ -ET -q -1 0 0 1 232.104 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 235.093 542.742 Td [(sor)-28(t)]TJ -ET -q -1 0 0 1 253.559 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 256.548 542.742 Td [(ov)-36(w)]TJ -ET -q -1 0 0 1 274.562 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 277.55 542.742 Td [(idx)]TJ -ET -q -1 0 0 1 292.46 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 297.966 542.742 Td [(then)-253(the)-252(en)27(tries)-252(in)]TJ/F11 9.9626 Tf 80.169 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\0501)-278(:)]TJ/F11 9.9626 Tf 17.158 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)-253(where)]TJ/F11 9.9626 Tf 34.397 0 Td [(n)]TJ/F8 9.9626 Tf 8.498 0 Td [(is)-253(the)-252(size)]TJ -277.683 -11.956 Td [(of)]TJ/F11 9.9626 Tf 11.911 0 Td [(x)]TJ/F8 9.9626 Tf 9.579 0 Td [(are)-390(initialized)-390(to)]TJ/F11 9.9626 Tf 76.439 0 Td [(ix)]TJ/F8 9.9626 Tf 9.127 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F14 9.9626 Tf 7.582 0 Td [(\040)]TJ/F11 9.9626 Tf 13.67 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(;)-418(th)28(us,)-405(u)1(p)-28(on)-390(return)-390(from)-390(the)-390(subroutine,)]TJ -139.046 -11.955 Td [(for)-333(eac)27(h)-333(index)]TJ/F11 9.9626 Tf 64.505 0 Td [(i)]TJ/F8 9.9626 Tf 6.752 0 Td [(w)28(e)-333(ha)27(v)28(e)-333(in)]TJ/F11 9.9626 Tf 49.256 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(the)-333(p)-28(osition)-333(that)-333(the)-334(item)]TJ/F11 9.9626 Tf 123.751 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(o)-28(ccupied)]TJ -273.697 -11.955 Td [(in)-333(the)-334(original)-333(data)-333(sequence;)]TJ -0 g 0 G - -12.73 -19.925 Td [(5.)]TJ -0 g 0 G - [-500(If)]TJ/F11 9.9626 Tf 23.404 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 23.446 0 Td [(=)]TJ/F11 9.9626 Tf 11.701 0 Td [(psb)]TJ -ET -q -1 0 0 1 235.988 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 238.977 486.951 Td [(sor)-28(t)]TJ -ET -q -1 0 0 1 257.443 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 260.432 486.951 Td [(k)-31(ee)-1(p)]TJ -ET -q -1 0 0 1 280.82 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 283.809 486.951 Td [(idx)]TJ -ET -q -1 0 0 1 298.718 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 305.739 486.951 Td [(the)-405(routine)-404(will)-405(assume)-405(that)-404(the)-405(en)28(tries)-405(in)]TJ/F11 9.9626 Tf -130.128 -11.955 Td [(ix)]TJ/F8 9.9626 Tf 9.127 0 Td [(\050:\051)-333(ha)28(v)27(e)-333(already)-333(b)-28(een)-333(initialized)-334(b)28(y)-333(the)-333(use)-1(r;)]TJ -0 g 0 G - -21.857 -19.926 Td [(6.)]TJ -0 g 0 G - [-500(The)-376(three)-375(sorting)-376(algorithms)-376(ha)28(v)28(e)-376(a)-376(similar)]TJ/F11 9.9626 Tf 208.295 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(n)]TJ/F8 9.9626 Tf 7.64 0 Td [(log)]TJ/F11 9.9626 Tf 14.529 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)-376(exp)-27(ec)-1(t)1(e)-1(d)-375(running)]TJ -235.465 -11.955 Td [(time;)-349(in)-343(the)-344(a)28(v)28(erage)-344(case)-344(qu)1(ic)27(ksort)-343(will)-344(b)-28(e)-343(the)-344(fastest)-343(and)-344(merge-sort)-343(the)]TJ 0 -11.955 Td [(slo)28(w)27(est.)-444(Ho)28(w)27(ev)28(er)-333(note)-333(that:)]TJ -0 g 0 G - 4.207 -19.925 Td [(\050a\051)]TJ -0 g 0 G - [-500(The)-419(w)28(orst)-419(case)-419(run)1(ning)-419(time)-419(for)-419(qui)1(c)27(ksort)-418(is)]TJ/F11 9.9626 Tf 221.058 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(n)]TJ/F7 6.9738 Tf 5.98 3.615 Td [(2)]TJ/F8 9.9626 Tf 4.469 -3.615 Td [(\051;)-461(the)-419(algorithm)]TJ -225.547 -11.955 Td [(implemen)28(ted)-319(here)-319(follo)28(ws)-319(the)-319(w)27(ell-kno)28(wn)-319(median-of-three)-319(heuristics,)]TJ 0 -11.956 Td [(but)-333(the)-334(w)28(orst)-333(case)-334(ma)28(y)-333(still)-334(app)1(ly;)]TJ -0 g 0 G - -18.265 -15.94 Td [(\050b\051)]TJ -0 g 0 G - [-500(The)-222(w)28(orst)-223(case)-222(running)-222(time)-222(for)-223(merge-sort)-222(and)-222(heap-sort)-222(is)]TJ/F11 9.9626 Tf 273.309 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(n)]TJ/F8 9.9626 Tf 7.64 0 Td [(log)]TJ/F11 9.9626 Tf 14.529 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)]TJ -294.944 -11.955 Td [(as)-333(the)-334(a)28(v)28(erage)-334(case;)]TJ -0 g 0 G - -17.158 -15.94 Td [(\050c\051)]TJ -0 g 0 G - [-500(The)-358(merge-sort)-358(algorithm)-357(is)-358(implemen)28(ted)-358(to)-358(tak)28(e)-358(adv)56(an)28(tage)-358(of)-358(sub-)]TJ 17.158 -11.955 Td [(sequences)-401(that)-400(ma)28(y)-401(b)-28(e)-400(already)-401(in)-400(the)-401(desired)-400(ordering)-400(prior)-401(to)-400(the)]TJ 0 -11.956 Td [(subroutine)-246(call;)-275(this)-246(situation)-246(is)-247(relativ)28(ely)-246(common)-246(when)-246(dealing)-246(with)]TJ 0 -11.955 Td [(groups)-301(of)-301(indices)-301(of)-302(sparse)-301(matrix)-301(en)28(tries,)-308(th)28(us)-301(merge-sort)-302(is)-301(the)-301(pre-)]TJ 0 -11.955 Td [(ferred)-249(c)28(hoice)-249(when)-249(a)-249(sorting)-248(is)-249(needed)-249(b)28(y)-249(other)-249(routines)-249(in)-249(t)1(he)-249(library)83(.)]TJ -0 g 0 G - 117.559 -205.23 Td [(102)]TJ -0 g 0 G -ET - -endstream -endobj -1551 0 obj -<< -/Length 182 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 706.129 Td [(7)-1125(P)31(arallel)-375(en)31(vironmen)32(t)-375(routines)]TJ -0 g 0 G -/F8 9.9626 Tf 164.384 -615.691 Td [(103)]TJ -0 g 0 G -ET - -endstream -endobj -1556 0 obj -<< -/Length 5574 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(init)-375(|)-375(Initializes)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_init\050icontxt,)-525(np,)-525(basectxt,)-525(ids\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-294(subroutine)-294(initial)1(iz)-1(es)-293(the)-294(PSBLAS)-294(parallel)-294(en)28(vironmen)28(t,)-302(de\014ning)-294(a)-294(vir-)]TJ -14.944 -11.955 Td [(tual)-333(parallel)-334(mac)28(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(np)]TJ -0 g 0 G -/F8 9.9626 Tf 17.711 0 Td [(Num)28(b)-28(er)-333(of)-334(pro)-27(cess)-1(es)-333(in)-333(the)-334(P)1(SBLA)-1(S)-333(virtual)-333(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 7.196 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-778(Defau)1(lt:)-445(use)-333(all)-334(a)28(v)56(ailable)-333(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(basectxt)]TJ -0 g 0 G -/F8 9.9626 Tf 46.736 0 Td [(the)-356(initial)-357(comm)28(unication)-356(con)28(text.)-514(The)-356(new)-357(con)28(text)-356(will)-357(b)-27(e)-357(de\014ned)]TJ -21.829 -11.955 Td [(from)-333(the)-334(pro)-27(cesse)-1(s)-333(participating)-333(in)-333(the)-334(initial)-333(one.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-778(Defau)1(lt:)-445(use)-333(MPI)]TJ -ET -q -1 0 0 1 389.991 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 392.98 466.569 Td [(COMM)]TJ -ET -q -1 0 0 1 426.787 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 429.775 466.569 Td [(W)28(ORLD.)]TJ -0 g 0 G -/F27 9.9626 Tf -279.07 -19.925 Td [(ids)]TJ -0 g 0 G -/F8 9.9626 Tf 19.048 0 Td [(Iden)28(tities)-497(of)-497(the)-497(pro)-28(cesses)-497(to)-497(use)-497(for)-497(the)-497(new)-498(con)28(text;)-579(the)-497(argumen)28(t)-497(is)]TJ 5.858 -11.956 Td [(ignored)-428(when)]TJ/F30 9.9626 Tf 63.346 0 Td [(np)]TJ/F8 9.9626 Tf 14.723 0 Td [(is)-428(not)-428(sp)-27(eci\014ed.)-728(This)-428(allo)28(ws)-428(the)-428(pro)-27(ces)-1(ses)-427(in)-428(the)-428(new)]TJ -78.069 -11.955 Td [(en)28(vironmen)28(t)-334(to)-333(b)-28(e)-333(in)-333(an)-334(order)-333(di\013eren)28(t)-334(from)-333(the)-333(original)-333(one.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)-778(Default:)-444(use)-334(the)-333(indices)-333(\0500)]TJ/F11 9.9626 Tf 254.159 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 26.489 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1\051.)]TJ -0 g 0 G -/F27 9.9626 Tf -315.517 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-457(c)-1(omm)28(unication)-457(con)28(te)-1(x)1(t)-458(iden)28(tifying)-458(the)-457(virtual)-458(p)1(arallel)-458(mac)28(hine.)]TJ -15.083 -11.956 Td [(Note)-335(that)-335(this)-335(is)-336(alw)28(a)28(ys)-335(a)-335(duplicate)-335(of)]TJ/F30 9.9626 Tf 169.953 0 Td [(basectxt)]TJ/F8 9.9626 Tf 41.843 0 Td [(,)-336(so)-335(that)-335(library)-335(comm)28(u-)]TJ -211.796 -11.955 Td [(nications)-305(are)-305(completely)-306(separated)-305(from)-305(other)-305(comm)28(unication)-305(op)-28(erations.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(A)-333(call)-334(to)-333(this)-333(routine)-334(m)28(ust)-333(precede)-334(an)28(y)-333(other)-333(PSBLAS)-334(call.)]TJ -0 g 0 G - 0 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(It)-262(is)-262(an)-262(error)-262(to)-262(sp)-28(ecify)-262(a)-262(v)56(alue)-262(for)]TJ/F11 9.9626 Tf 159.87 0 Td [(np)]TJ/F8 9.9626 Tf 13.602 0 Td [(greater)-262(than)-262(the)-262(n)28(um)28(b)-28(er)-262(of)-262(pro)-28(cesses)]TJ -160.742 -11.955 Td [(a)28(v)55(ailable)-333(in)-333(the)-334(und)1(e)-1(r)1(lying)-334(base)-333(parallel)-333(en)27(viron)1(m)-1(en)28(t.)]TJ -0 g 0 G - 139.477 -97.177 Td [(104)]TJ -0 g 0 G -ET - -endstream -endobj -1452 0 obj +1465 0 obj << /Type /ObjStm /N 100 -/First 971 -/Length 10019 +/First 970 +/Length 10663 >> stream -344 0 1448 57 1454 163 1456 281 348 340 1453 398 1459 530 1457 669 1461 815 352 873 -1458 930 1463 1049 1465 1167 1466 1226 1467 1285 1462 1344 1470 1424 1468 1563 1472 1710 356 1768 -1469 1825 1476 1944 1474 2083 1478 2229 360 2288 1479 2346 1475 2405 1482 2524 1480 2663 1484 2810 -364 2868 1485 2925 1481 2983 1488 3102 1486 3241 1490 3387 368 3446 1491 3504 1487 3563 1494 3682 -1492 3821 1496 3968 372 4026 1497 4083 1493 4141 1500 4260 1498 4399 1502 4544 376 4603 1503 4661 -1504 4720 1499 4779 1507 4885 1505 5024 1509 5170 380 5228 1510 5285 1511 5343 1506 5401 1515 5507 -1513 5646 1517 5790 384 5849 1514 5907 1519 6026 1521 6144 1522 6202 1523 6260 1524 6318 1518 6376 -1529 6495 1525 6652 1526 6796 1527 6942 1531 7087 388 7146 1528 7204 1533 7323 1535 7441 392 7499 -1532 7556 1537 7675 1539 7793 1540 7852 1541 7911 1542 7970 1543 8029 1544 8088 1545 8147 1546 8205 -1547 8264 1548 8323 1536 8382 1550 8500 1552 8618 396 8676 1549 8733 1555 8813 1557 8931 400 8990 -% 344 0 obj -<< -/D [1449 0 R /XYZ 99.895 720.077 null] ->> -% 1448 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1454 0 obj -<< -/Type /Page -/Contents 1455 0 R -/Resources 1453 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R ->> -% 1456 0 obj -<< -/D [1454 0 R /XYZ 149.705 753.953 null] ->> -% 348 0 obj -<< -/D [1454 0 R /XYZ 150.705 720.077 null] ->> -% 1453 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R /F10 771 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1459 0 obj -<< -/Type /Page -/Contents 1460 0 R -/Resources 1458 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R -/Annots [ 1457 0 R ] ->> +1457 0 1458 58 1459 116 1460 174 1461 232 1462 290 1463 348 1454 405 1469 485 1466 633 +1467 776 1471 922 336 981 1468 1039 1475 1145 1472 1293 1473 1438 1477 1585 340 1643 1478 1700 +1474 1758 1482 1864 1479 2012 1480 2158 1484 2302 344 2361 1481 2419 1488 2538 1485 2686 1486 2833 +1490 2977 348 3035 1487 3092 1492 3211 1494 3329 1495 3388 1496 3447 1491 3506 1501 3599 1497 3756 +1498 3901 1499 4045 1503 4188 352 4246 1500 4303 1508 4422 1505 4570 1506 4713 1510 4860 356 4919 +1507 4977 1512 5083 1514 5201 360 5259 1511 5316 1517 5448 1515 5587 1519 5732 364 5791 1516 5849 +1521 5968 1523 6086 1524 6144 1525 6202 1520 6260 1528 6340 1526 6479 1530 6625 368 6684 1527 6742 +1533 6861 1531 7000 1535 7147 372 7205 1536 7262 1532 7320 1540 7439 1538 7578 1542 7724 376 7783 +1543 7841 1539 7900 1546 8019 1544 8158 1548 8305 380 8363 1549 8420 1545 8478 1552 8597 1550 8736 +1554 8882 384 8941 1555 8999 1551 9058 1558 9177 1556 9316 1560 9462 388 9520 1561 9577 1562 9635 % 1457 0 obj << -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 484.86 361.779 495.985] -/A << /S /GoTo /D (descdata) >> ->> -% 1461 0 obj -<< -/D [1459 0 R /XYZ 98.895 753.953 null] ->> -% 352 0 obj -<< -/D [1459 0 R /XYZ 99.895 720.077 null] +/D [1455 0 R /XYZ 98.895 753.953 null] >> % 1458 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] +/D [1455 0 R /XYZ 99.895 716.092 null] >> -% 1463 0 obj +% 1459 0 obj << -/Type /Page -/Contents 1464 0 R -/Resources 1462 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1438 0 R +/D [1455 0 R /XYZ 99.895 687.975 null] >> -% 1465 0 obj +% 1460 0 obj << -/D [1463 0 R /XYZ 149.705 753.953 null] +/D [1455 0 R /XYZ 99.895 668.326 null] >> -% 1466 0 obj +% 1461 0 obj << -/D [1463 0 R /XYZ 150.705 716.092 null] ->> -% 1467 0 obj -<< -/D [1463 0 R /XYZ 150.705 688.251 null] +/D [1455 0 R /XYZ 99.895 624.491 null] >> % 1462 0 obj << -/Font << /F8 561 0 R /F30 769 0 R >> +/D [1455 0 R /XYZ 99.895 580.655 null] +>> +% 1463 0 obj +<< +/D [1455 0 R /XYZ 99.895 560.73 null] +>> +% 1454 0 obj +<< +/Font << /F8 573 0 R /F30 784 0 R >> /ProcSet [ /PDF /Text ] >> -% 1470 0 obj -<< -/Type /Page -/Contents 1471 0 R -/Resources 1469 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1468 0 R ] ->> -% 1468 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 483.284 361.779 494.409] -/A << /S /GoTo /D (descdata) >> ->> -% 1472 0 obj -<< -/D [1470 0 R /XYZ 98.895 753.953 null] ->> -% 356 0 obj -<< -/D [1470 0 R /XYZ 99.895 720.077 null] ->> % 1469 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1476 0 obj -<< /Type /Page -/Contents 1477 0 R -/Resources 1475 0 R +/Contents 1470 0 R +/Resources 1468 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1474 0 R ] +/Parent 1464 0 R +/Annots [ 1466 0 R 1467 0 R ] >> -% 1474 0 obj +% 1466 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 495.239 412.588 506.364] +/Rect [345.53 574.94 423.049 586.065] +/A << /S /GoTo /D (spdata) >> +>> +% 1467 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 507.194 412.588 518.319] /A << /S /GoTo /D (descdata) >> >> -% 1478 0 obj +% 1471 0 obj << -/D [1476 0 R /XYZ 149.705 753.953 null] +/D [1469 0 R /XYZ 149.705 753.953 null] >> -% 360 0 obj +% 336 0 obj << -/D [1476 0 R /XYZ 150.705 720.077 null] +/D [1469 0 R /XYZ 150.705 720.077 null] >> -% 1479 0 obj +% 1468 0 obj << -/D [1476 0 R /XYZ 150.705 382.883 null] +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] >> % 1475 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> +/Type /Page +/Contents 1476 0 R +/Resources 1474 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1464 0 R +/Annots [ 1472 0 R 1473 0 R ] +>> +% 1472 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 560.993 372.239 572.118] +/A << /S /GoTo /D (spdata) >> +>> +% 1473 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 493.247 361.779 504.372] +/A << /S /GoTo /D (descdata) >> +>> +% 1477 0 obj +<< +/D [1475 0 R /XYZ 98.895 753.953 null] +>> +% 340 0 obj +<< +/D [1475 0 R /XYZ 99.895 720.077 null] +>> +% 1478 0 obj +<< +/D [1475 0 R /XYZ 99.895 313.144 null] +>> +% 1474 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> /ProcSet [ /PDF /Text ] >> % 1482 0 obj @@ -18879,32 +18971,36 @@ stream /Contents 1483 0 R /Resources 1481 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1480 0 R ] +/Parent 1464 0 R +/Annots [ 1479 0 R 1480 0 R ] +>> +% 1479 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [311.962 574.94 379.019 586.065] +/A << /S /GoTo /D (descdata) >> >> % 1480 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 495.239 361.779 506.364] -/A << /S /GoTo /D (descdata) >> +/Rect [264.584 290.009 340.638 301.134] +/A << /S /GoTo /D (vdata) >> >> % 1484 0 obj << -/D [1482 0 R /XYZ 98.895 753.953 null] +/D [1482 0 R /XYZ 149.705 753.953 null] >> -% 364 0 obj +% 344 0 obj << -/D [1482 0 R /XYZ 99.895 720.077 null] ->> -% 1485 0 obj -<< -/D [1482 0 R /XYZ 99.895 259.346 null] +/D [1482 0 R /XYZ 150.705 720.077 null] >> % 1481 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> % 1488 0 obj @@ -18913,247 +19009,251 @@ stream /Contents 1489 0 R /Resources 1487 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1486 0 R ] +/Parent 1464 0 R +/Annots [ 1485 0 R 1486 0 R ] +>> +% 1485 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 363.459 361.779 374.584] +/A << /S /GoTo /D (descdata) >> >> % 1486 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 495.239 412.588 506.364] -/A << /S /GoTo /D (descdata) >> +/Rect [365.781 141.026 441.835 152.151] +/A << /S /GoTo /D (vdata) >> >> % 1490 0 obj << -/D [1488 0 R /XYZ 149.705 753.953 null] +/D [1488 0 R /XYZ 98.895 753.953 null] >> -% 368 0 obj +% 348 0 obj << -/D [1488 0 R /XYZ 150.705 720.077 null] ->> -% 1491 0 obj -<< -/D [1488 0 R /XYZ 150.705 382.883 null] +/D [1488 0 R /XYZ 99.895 720.077 null] >> % 1487 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> +% 1492 0 obj +<< +/Type /Page +/Contents 1493 0 R +/Resources 1491 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1464 0 R +>> % 1494 0 obj << -/Type /Page -/Contents 1495 0 R -/Resources 1493 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1492 0 R ] +/D [1492 0 R /XYZ 149.705 753.953 null] >> -% 1492 0 obj +% 1495 0 obj +<< +/D [1492 0 R /XYZ 150.705 632.405 null] +>> +% 1496 0 obj +<< +/D [1492 0 R /XYZ 150.705 609.989 null] +>> +% 1491 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F16 570 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1501 0 obj +<< +/Type /Page +/Contents 1502 0 R +/Resources 1500 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1504 0 R +/Annots [ 1497 0 R 1498 0 R 1499 0 R ] +>> +% 1497 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 495.239 361.779 506.364] +/Rect [261.152 574.94 328.21 586.065] /A << /S /GoTo /D (descdata) >> >> -% 1496 0 obj -<< -/D [1494 0 R /XYZ 98.895 753.953 null] ->> -% 372 0 obj -<< -/D [1494 0 R /XYZ 99.895 720.077 null] ->> -% 1497 0 obj -<< -/D [1494 0 R /XYZ 99.895 259.346 null] ->> -% 1493 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1500 0 obj -<< -/Type /Page -/Contents 1501 0 R -/Resources 1499 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1473 0 R -/Annots [ 1498 0 R ] ->> % 1498 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 574.94 412.588 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1502 0 obj -<< -/D [1500 0 R /XYZ 149.705 753.953 null] ->> -% 376 0 obj -<< -/D [1500 0 R /XYZ 150.705 720.077 null] ->> -% 1503 0 obj -<< -/D [1500 0 R /XYZ 150.705 370.928 null] ->> -% 1504 0 obj -<< -/D [1500 0 R /XYZ 150.705 327.092 null] +/Rect [269.918 483.284 345.972 494.409] +/A << /S /GoTo /D (vdata) >> >> % 1499 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.733 381.665 263.787 392.79] +/A << /S /GoTo /D (vdata) >> +>> +% 1503 0 obj +<< +/D [1501 0 R /XYZ 98.895 753.953 null] +>> +% 352 0 obj +<< +/D [1501 0 R /XYZ 99.895 720.077 null] +>> +% 1500 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> -% 1507 0 obj +% 1508 0 obj << /Type /Page -/Contents 1508 0 R -/Resources 1506 0 R +/Contents 1509 0 R +/Resources 1507 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R -/Annots [ 1505 0 R ] +/Parent 1504 0 R +/Annots [ 1505 0 R 1506 0 R ] >> % 1505 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1509 0 obj -<< -/D [1507 0 R /XYZ 98.895 753.953 null] ->> -% 380 0 obj -<< -/D [1507 0 R /XYZ 99.895 720.077 null] ->> -% 1510 0 obj -<< -/D [1507 0 R /XYZ 99.895 370.928 null] ->> -% 1511 0 obj -<< -/D [1507 0 R /XYZ 99.895 339.047 null] +/Rect [238.542 562.985 314.596 574.11] +/A << /S /GoTo /D (vdata) >> >> % 1506 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1515 0 obj -<< -/Type /Page -/Contents 1516 0 R -/Resources 1514 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R -/Annots [ 1513 0 R ] ->> -% 1513 0 obj -<< /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 492.904 423.049 504.029] -/A << /S /GoTo /D (spdata) >> +/Rect [311.962 483.284 379.019 494.409] +/A << /S /GoTo /D (descdata) >> >> -% 1517 0 obj +% 1510 0 obj << -/D [1515 0 R /XYZ 149.705 753.953 null] +/D [1508 0 R /XYZ 149.705 753.953 null] >> -% 384 0 obj +% 356 0 obj << -/D [1515 0 R /XYZ 150.705 720.077 null] +/D [1508 0 R /XYZ 150.705 720.077 null] +>> +% 1507 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1512 0 obj +<< +/Type /Page +/Contents 1513 0 R +/Resources 1511 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1504 0 R >> % 1514 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R >> +/D [1512 0 R /XYZ 98.895 753.953 null] +>> +% 360 0 obj +<< +/D [1512 0 R /XYZ 99.895 720.077 null] +>> +% 1511 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F10 786 0 R >> /ProcSet [ /PDF /Text ] >> -% 1519 0 obj +% 1517 0 obj << /Type /Page -/Contents 1520 0 R -/Resources 1518 0 R +/Contents 1518 0 R +/Resources 1516 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R +/Parent 1504 0 R +/Annots [ 1515 0 R ] >> -% 1521 0 obj -<< -/D [1519 0 R /XYZ 98.895 753.953 null] ->> -% 1522 0 obj -<< -/D [1519 0 R /XYZ 99.895 496.913 null] ->> -% 1523 0 obj -<< -/D [1519 0 R /XYZ 99.895 439.185 null] ->> -% 1524 0 obj -<< -/D [1519 0 R /XYZ 99.895 418.983 null] ->> -% 1518 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F16 558 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1529 0 obj -<< -/Type /Page -/Contents 1530 0 R -/Resources 1528 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R -/Annots [ 1525 0 R 1526 0 R 1527 0 R ] ->> -% 1525 0 obj +% 1515 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 529.112 423.049 540.237] -/A << /S /GoTo /D (spdata) >> +/Rect [345.53 484.86 412.588 495.985] +/A << /S /GoTo /D (descdata) >> +>> +% 1519 0 obj +<< +/D [1517 0 R /XYZ 149.705 753.953 null] +>> +% 364 0 obj +<< +/D [1517 0 R /XYZ 150.705 720.077 null] +>> +% 1516 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1521 0 obj +<< +/Type /Page +/Contents 1522 0 R +/Resources 1520 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1504 0 R +>> +% 1523 0 obj +<< +/D [1521 0 R /XYZ 98.895 753.953 null] +>> +% 1524 0 obj +<< +/D [1521 0 R /XYZ 99.895 716.092 null] +>> +% 1525 0 obj +<< +/D [1521 0 R /XYZ 99.895 688.251 null] +>> +% 1520 0 obj +<< +/Font << /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1528 0 obj +<< +/Type /Page +/Contents 1529 0 R +/Resources 1527 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1504 0 R +/Annots [ 1526 0 R ] >> % 1526 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 461.366 412.588 472.491] +/Rect [345.53 483.284 412.588 494.409] /A << /S /GoTo /D (descdata) >> >> +% 1530 0 obj +<< +/D [1528 0 R /XYZ 149.705 753.953 null] +>> +% 368 0 obj +<< +/D [1528 0 R /XYZ 150.705 720.077 null] +>> % 1527 0 obj << -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 405.575 439.211 416.7] -/A << /S /GoTo /D (precdata) >> ->> -% 1531 0 obj -<< -/D [1529 0 R /XYZ 149.705 753.953 null] ->> -% 388 0 obj -<< -/D [1529 0 R /XYZ 150.705 720.077 null] ->> -% 1528 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F30 769 0 R /F27 560 0 R /F11 755 0 R >> +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> % 1533 0 obj @@ -19162,277 +19262,175 @@ stream /Contents 1534 0 R /Resources 1532 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R +/Parent 1537 0 R +/Annots [ 1531 0 R ] +>> +% 1531 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 495.239 361.779 506.364] +/A << /S /GoTo /D (descdata) >> >> % 1535 0 obj << /D [1533 0 R /XYZ 98.895 753.953 null] >> -% 392 0 obj +% 372 0 obj << /D [1533 0 R /XYZ 99.895 720.077 null] >> +% 1536 0 obj +<< +/D [1533 0 R /XYZ 99.895 382.883 null] +>> % 1532 0 obj << -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F11 755 0 R /F27 560 0 R >> +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> -% 1537 0 obj -<< -/Type /Page -/Contents 1538 0 R -/Resources 1536 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1512 0 R ->> -% 1539 0 obj -<< -/D [1537 0 R /XYZ 149.705 753.953 null] ->> % 1540 0 obj << -/D [1537 0 R /XYZ 150.705 702.144 null] +/Type /Page +/Contents 1541 0 R +/Resources 1539 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1537 0 R +/Annots [ 1538 0 R ] >> -% 1541 0 obj +% 1538 0 obj << -/D [1537 0 R /XYZ 150.705 668.326 null] +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 495.239 412.588 506.364] +/A << /S /GoTo /D (descdata) >> >> % 1542 0 obj << -/D [1537 0 R /XYZ 150.705 624.491 null] +/D [1540 0 R /XYZ 149.705 753.953 null] +>> +% 376 0 obj +<< +/D [1540 0 R /XYZ 150.705 720.077 null] >> % 1543 0 obj << -/D [1537 0 R /XYZ 150.705 556.745 null] +/D [1540 0 R /XYZ 150.705 259.346 null] >> -% 1544 0 obj +% 1539 0 obj << -/D [1537 0 R /XYZ 150.705 500.954 null] ->> -% 1545 0 obj -<< -/D [1537 0 R /XYZ 150.705 468.52 null] +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] >> % 1546 0 obj << -/D [1537 0 R /XYZ 150.705 425.182 null] +/Type /Page +/Contents 1547 0 R +/Resources 1545 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1537 0 R +/Annots [ 1544 0 R ] >> -% 1547 0 obj +% 1544 0 obj << -/D [1537 0 R /XYZ 150.705 383.395 null] +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 495.239 361.779 506.364] +/A << /S /GoTo /D (descdata) >> >> % 1548 0 obj << -/D [1537 0 R /XYZ 150.705 355.499 null] +/D [1546 0 R /XYZ 98.895 753.953 null] >> -% 1536 0 obj +% 380 0 obj << -/Font << /F16 558 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R /F7 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1550 0 obj -<< -/Type /Page -/Contents 1551 0 R -/Resources 1549 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R ->> -% 1552 0 obj -<< -/D [1550 0 R /XYZ 98.895 753.953 null] ->> -% 396 0 obj -<< -/D [1550 0 R /XYZ 99.895 716.092 null] +/D [1546 0 R /XYZ 99.895 720.077 null] >> % 1549 0 obj << -/Font << /F16 558 0 R /F8 561 0 R >> +/D [1546 0 R /XYZ 99.895 382.883 null] +>> +% 1545 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> /ProcSet [ /PDF /Text ] >> +% 1552 0 obj +<< +/Type /Page +/Contents 1553 0 R +/Resources 1551 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1537 0 R +/Annots [ 1550 0 R ] +>> +% 1550 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 495.239 412.588 506.364] +/A << /S /GoTo /D (descdata) >> +>> +% 1554 0 obj +<< +/D [1552 0 R /XYZ 149.705 753.953 null] +>> +% 384 0 obj +<< +/D [1552 0 R /XYZ 150.705 720.077 null] +>> % 1555 0 obj << +/D [1552 0 R /XYZ 150.705 259.346 null] +>> +% 1551 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1558 0 obj +<< /Type /Page -/Contents 1556 0 R -/Resources 1554 0 R +/Contents 1559 0 R +/Resources 1557 0 R /MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R +/Parent 1537 0 R +/Annots [ 1556 0 R ] >> -% 1557 0 obj +% 1556 0 obj << -/D [1555 0 R /XYZ 149.705 753.953 null] +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 574.94 361.779 586.065] +/A << /S /GoTo /D (descdata) >> >> -% 400 0 obj +% 1560 0 obj << -/D [1555 0 R /XYZ 150.705 720.077 null] +/D [1558 0 R /XYZ 98.895 753.953 null] +>> +% 388 0 obj +<< +/D [1558 0 R /XYZ 99.895 720.077 null] +>> +% 1561 0 obj +<< +/D [1558 0 R /XYZ 99.895 370.928 null] +>> +% 1562 0 obj +<< +/D [1558 0 R /XYZ 99.895 327.092 null] >> endstream endobj -1563 0 obj +1567 0 obj << -/Length 4647 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(info)-306(|)-307(Return)-306(information)-306(ab)-31(out)-307(PSBLAS)-306(parallel)-306(en-)]TJ -25.091 -13.948 Td [(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(psb_info\050icontxt,)-525(iam,)-525(np\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-456(subroutine)-456(returns)-456(inf)1(orma)-1(t)1(ion)-456(ab)-28(out)-456(the)-456(PSBLAS)-456(paral)1(le)-1(l)-455(en)27(viron-)]TJ -14.944 -11.955 Td [(men)28(t,)-334(de\014nin)1(g)-334(a)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.925 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(iam)]TJ -0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(Iden)28(ti\014er)-333(of)-334(curren)28(t)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-334(par)1(allel)-334(mac)28(hine.)]TJ 1.626 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)]TJ/F14 9.9626 Tf 134.302 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1)]TJ -0 g 0 G -/F27 9.9626 Tf -239.121 -19.926 Td [(np)]TJ -0 g 0 G -/F8 9.9626 Tf 17.712 0 Td [(Num)28(b)-28(er)-333(of)-334(pro)-27(cesse)-1(s)-333(in)-333(the)-333(PSBLAS)-334(virtual)-333(parallel)-333(mac)27(h)1(ine.)]TJ 7.195 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(F)83(or)-500(pro)-27(cesse)-1(s)-500(in)-500(th)1(e)-501(v)1(irtual)-500(parallel)-500(mac)27(hin)1(e)-501(th)1(e)-501(id)1(e)-1(n)28(ti\014er)-500(will)-500(satisfy)]TJ 12.73 -11.955 Td [(0)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1;)]TJ -0 g 0 G - -84.893 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(If)-432(the)-433(user)-432(has)-433(requested)-432(on)]TJ/F30 9.9626 Tf 143.13 0 Td [(psb_init)]TJ/F8 9.9626 Tf 46.151 0 Td [(a)-432(n)27(um)28(b)-28(er)-432(of)-432(pro)-28(cesses)-433(less)-432(than)]TJ -176.551 -11.955 Td [(the)-417(total)-416(a)28(v)55(ailable)-416(in)-417(the)-416(parallel)-417(execution)-416(en)28(vironmen)28(t,)-438(the)-416(remaining)]TJ 0 -11.955 Td [(pro)-28(cesses)-359(will)-359(ha)28(v)28(e)-359(on)-359(return)]TJ/F11 9.9626 Tf 130.486 0 Td [(iam)]TJ/F8 9.9626 Tf 20.639 0 Td [(=)]TJ/F14 9.9626 Tf 10.941 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-372(the)-359(only)-359(call)-359(in)28(v)28(olving)]TJ/F30 9.9626 Tf 112.377 0 Td [(icontxt)]TJ/F8 9.9626 Tf -282.192 -11.956 Td [(that)-333(an)28(y)-334(suc)28(h)-333(pro)-28(cess)-334(ma)28(y)-333(execute)-334(is)-333(to)]TJ/F30 9.9626 Tf 177.086 0 Td [(psb_exit)]TJ/F8 9.9626 Tf 41.843 0 Td [(.)]TJ -0 g 0 G - -79.452 -174.885 Td [(105)]TJ -0 g 0 G -ET - -endstream -endobj -1569 0 obj -<< -/Length 4355 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(exit)-375(|)-375(Exit)-375(from)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_exit\050icontxt\051)]TJ 0 -11.956 Td [(call)-525(psb_exit\050icontxt,close\051)]TJ/F8 9.9626 Tf 14.944 -21.917 Td [(This)-333(subroutine)-334(exits)-333(from)-333(the)-334(PS)1(B)-1(LAS)-333(parallel)-333(virtual)-333(mac)27(hin)1(e)-1(.)]TJ -0 g 0 G -/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(close)]TJ -0 g 0 G -/F8 9.9626 Tf 28.754 0 Td [(Whether)-401(to)-401(c)-1(lose)-401(all)-401(data)-401(structures)-402(related)-401(to)-401(the)-401(virtual)-401(parallel)-402(ma-)]TJ -3.847 -11.955 Td [(c)28(hine,)-333(b)-28(esides)-334(those)-333(asso)-28(ciated)-333(with)-334(icon)28(txt.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(logical)-333(v)55(ariabl)1(e)-1(,)-333(default)-333(v)55(al)1(ue:)-445(true.)]TJ/F16 11.9552 Tf -24.907 -19.925 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-241(routine)-241(ma)28(y)-241(b)-28(e)-241(called)-241(ev)28(en)-241(if)-241(a)-241(previous)-241(call)-241(to)]TJ/F30 9.9626 Tf 233.304 0 Td [(psb_info)]TJ/F8 9.9626 Tf 44.244 0 Td [(has)-241(returned)]TJ -264.818 -11.955 Td [(with)]TJ/F11 9.9626 Tf 22.962 0 Td [(iam)]TJ/F8 9.9626 Tf 20.663 0 Td [(=)]TJ/F14 9.9626 Tf 10.966 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-374(indeed,)-367(it)-360(it)-361(is)-360(the)-361(only)-360(routine)-360(that)-361(ma)28(y)-360(b)-28(e)-361(called)-360(with)]TJ -62.34 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.583 0 Td [(icontxt)]TJ/F8 9.9626 Tf 39.933 0 Td [(in)-333(this)-334(situation)1(.)]TJ -0 g 0 G - -97.246 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(A)-305(call)-306(to)-305(this)-305(routine)-305(with)]TJ/F30 9.9626 Tf 128.752 0 Td [(close=.true.)]TJ/F8 9.9626 Tf 65.806 0 Td [(implies)-305(a)-306(call)-305(to)]TJ/F30 9.9626 Tf 71.445 0 Td [(MPI_Finalize)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ -316.037 -11.956 Td [(after)-333(whic)28(h)-334(no)-333(parallel)-333(routine)-334(ma)28(y)-333(b)-28(e)-333(called.)]TJ -0 g 0 G - -12.73 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(If)-391(the)-390(user)-391(whishes)-391(to)-390(use)-391(m)28(ultiple)-391(comm)28(unication)-391(con)28(texts)-391(in)-390(the)-391(same)]TJ 12.73 -11.955 Td [(program,)-485(or)-455(to)-455(en)28(ter)-455(and)-454(exit)-455(m)27(u)1(ltiple)-455(times)-455(in)28(to)-455(the)-455(parallel)-455(en)28(viron-)]TJ 0 -11.955 Td [(men)28(t,)-494(this)-462(routine)-462(ma)28(y)-462(b)-28(e)-462(called)-462(to)-462(selectiv)28(ely)-462(close)-462(the)-462(con)27(texts)-462(with)]TJ/F30 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-244(while)-223(on)-222(the)-222(last)-222(call)-223(it)-222(should)-222(b)-28(e)-222(called)-222(with)]TJ/F30 9.9626 Tf 194.327 0 Td [(close=.true.)]TJ/F8 9.9626 Tf -262.321 -11.955 Td [(to)-333(sh)27(u)1(tdo)27(wn)-333(in)-333(a)-334(clean)-333(w)28(a)28(y)-334(the)-333(en)28(tire)-334(parallel)-333(en)28(vironmen)28(t.)]TJ -0 g 0 G - 139.477 -212.744 Td [(106)]TJ -0 g 0 G -ET - -endstream -endobj -1576 0 obj -<< -/Length 2161 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(get)]TJ -ET -q -1 0 0 1 143.885 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 147.92 706.129 Td [(mpicomm)-375(|)-375(Get)-375(the)-375(MPI)-375(comm)31(unicator)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_mpicomm\050icontxt,)-525(icomm\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-335(subroutine)-335(returns)-335(the)-336(MPI)-335(comm)28(unicator)-335(asso)-28(ciated)-335(with)-335(a)-336(P)1(SBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icomm)]TJ -0 g 0 G -/F8 9.9626 Tf 38.08 0 Td [(The)-377(MPI)-378(comm)28(unicator)-377(as)-1(so)-27(ciated)-378(with)-377(the)-378(PSBLAS)-377(virtual)-377(parallel)]TJ -13.173 -11.955 Td [(mac)28(hine.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -0 g 0 G - 89.442 -366.168 Td [(107)]TJ -0 g 0 G -ET - -endstream -endobj -1580 0 obj -<< -/Length 3025 +/Length 3655 >> stream 0 g 0 G @@ -19452,10 +19450,772 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 198.729 706.129 Td [(rank)-375(|)-375(Get)-375(the)-375(MPI)-375(rank)]TJ +/F16 11.9552 Tf 198.729 706.129 Td [(o)31(v)31(erlap)-375(|)-375(Extract)-375(list)-375(of)-375(o)32(v)31(erlap)-375(elemen)31(ts)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_rank\050rank,)-525(icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(retu)1(rns)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(pr)1(o)-28(cess)]TJ/F11 9.9626 Tf 274.665 0 Td [(id)]TJ +/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(desc)]TJ +0 g 0 G +/F8 9.9626 Tf 26.208 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ +ET +q +1 0 0 1 387.532 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.926 Td [(o)32(vrel)]TJ +0 g 0 G +/F8 9.9626 Tf 29.59 0 Td [(The)-333(list)-334(of)-333(o)28(v)28(erlap)-334(elemen)28(ts)-333(on)-334(the)-333(calling)-333(pro)-28(cess,)-334(in)-333(lo)-28(cal)-333(n)28(um)28(b)-28(ering.)]TJ -4.684 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-457(with)-456(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)27(teger.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -31.881 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ +0 g 0 G + [-500(If)-343(there)-344(ar)1(e)-344(no)-343(o)28(v)28(erlap)-344(elemen)28(ts)-343(the)-343(output)-344(v)28(ector)-343(is)-343(set)-344(to)-343(the)-343(\134not)-343(allo-)]TJ 12.73 -11.955 Td [(cated")-333(state.)]TJ +0 g 0 G + -12.73 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(Otherwise)-284(the)-284(size)-283(of)]TJ/F30 9.9626 Tf 105.262 0 Td [(ovrel)]TJ/F8 9.9626 Tf 28.978 0 Td [(will)-284(b)-27(e)-284(exactly)-284(equal)-284(to)-284(the)-283(n)27(u)1(m)27(b)-27(e)-1(r)-283(of)-284(o)28(v)28(erlap)]TJ -121.51 -11.955 Td [(elemen)28(ts.)]TJ +0 g 0 G + 139.477 -220.714 Td [(102)]TJ +0 g 0 G +ET + +endstream +endobj +1574 0 obj +<< +/Length 5784 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(sp)]TJ +ET +q +1 0 0 1 138.57 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 142.605 706.129 Td [(getro)31(w)-375(|)-375(Extract)-375(ro)31(w\050s\051)-375(from)-375(a)-375(sparse)-375(matrix)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -42.71 -18.647 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 +/F27 9.9626 Tf -73.225 -22.334 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 -20.479 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -20.479 Td [(ro)32(w)]TJ +0 g 0 G +/F8 9.9626 Tf 23.385 0 Td [(The)-333(\050\014rst\051)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 1.522 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -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(an)-333(in)28(teger)]TJ/F11 9.9626 Tf 104.691 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0.)]TJ +0 g 0 G +/F27 9.9626 Tf -140.114 -20.479 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(from)-333(whic)28(h)-333(to)-334(get)-333(ro)28(ws.)]TJ 14.356 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 496.313 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 496.114 Td [(Tspmat)]TJ +ET +q +1 0 0 1 347.183 496.313 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 350.322 496.114 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.348 -20.479 Td [(app)-32(end)]TJ +0 g 0 G +/F8 9.9626 Tf 41.58 0 Td [(Whether)-333(to)-334(app)-27(end)-334(or)-333(o)28(v)28(erwrite)-334(existing)-333(output.)]TJ -16.673 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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(logical)-333(v)55(alue)-333(default:)-444(false)-334(\050o)28(v)28(erwrite\051.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -20.479 Td [(nzin)]TJ +0 g 0 G +/F8 9.9626 Tf 25.986 0 Td [(Input)-333(size)-334(to)-333(b)-28(e)-333(app)-28(ended)-333(to.)]TJ -1.079 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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)-398(as:)-573(an)-398(in)28(teger)]TJ/F11 9.9626 Tf 107.907 0 Td [(>)]TJ/F8 9.9626 Tf 11.589 0 Td [(0.)-638(When)-398(app)-28(end)-398(i)1(s)-398(true,)-414(sp)-28(eci\014es)-398(ho)28(w)-398(man)27(y)]TJ -119.496 -11.955 Td [(en)28(tries)-334(in)-333(the)-333(output)-333(v)27(ectors)-333(are)-333(already)-334(\014lled.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -20.479 Td [(lrw)]TJ +0 g 0 G +/F8 9.9626 Tf 21.157 0 Td [(The)-333(last)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 3.75 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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(an)-333(in)28(teger)]TJ/F11 9.9626 Tf 104.691 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0,)-333(default:)]TJ/F11 9.9626 Tf 48.43 0 Td [(r)-28(ow)]TJ/F8 9.9626 Tf 17.001 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -205.545 -22.334 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -20.479 Td [(nz)]TJ +0 g 0 G +/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(elemen)28(ts)-334(returned)-333(b)28(y)-334(th)1(is)-334(call.)]TJ 8.468 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(scalar.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -20.479 Td [(ia)]TJ +0 g 0 G +/F8 9.9626 Tf 13.734 0 Td [(the)-333(ro)28(w)-334(indices.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.611 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.854 0 Td [(attribute.)]TJ +0 g 0 G + -91.988 -29.887 Td [(103)]TJ +0 g 0 G +ET + +endstream +endobj +1579 0 obj +<< +/Length 3712 +>> +stream +0 g 0 G +0 g 0 G +0 g 0 G +BT +/F27 9.9626 Tf 150.705 706.129 Td [(ja)]TJ +0 g 0 G +/F8 9.9626 Tf 14.051 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(elemen)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.611 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ +0 g 0 G +/F27 9.9626 Tf -256.372 -19.925 Td [(v)64(al)]TJ +0 g 0 G +/F8 9.9626 Tf 19.143 0 Td [(the)-333(elemen)27(ts)-333(to)-333(b)-28(e)-333(inse)-1(r)1(te)-1(d)1(.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(arra)28(y)-334(with)-333(the)]TJ/F30 9.9626 Tf 151.516 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.854 0 Td [(attribute.)]TJ +0 g 0 G +/F27 9.9626 Tf -237.276 -19.925 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(The)-368(output)]TJ/F11 9.9626 Tf 66.553 0 Td [(nz)]TJ/F8 9.9626 Tf 14.716 0 Td [(is)-368(alw)28(a)28(ys)-368(the)-368(size)-368(of)-368(the)-368(output)-368(generated)-367(b)27(y)-367(the)-368(curren)27(t)]TJ -68.539 -11.955 Td [(call;)-314(th)28(us,)-309(if)]TJ/F30 9.9626 Tf 54.124 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-310(the)-303(total)-304(output)-304(size)-304(will)-303(b)-28(e)]TJ/F11 9.9626 Tf 128.95 0 Td [(nz)-44(in)]TJ/F8 9.9626 Tf 22.088 0 Td [(+)]TJ/F11 9.9626 Tf 9.373 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-310(with)]TJ -293.58 -11.955 Td [(the)-372(newly)-372(extracted)-372(co)-28(e\016cien)28(ts)-372(stored)-372(in)-372(en)28(tries)]TJ/F30 9.9626 Tf 216.307 0 Td [(nzin+1:nzin+nz)]TJ/F8 9.9626 Tf 76.93 0 Td [(of)-372(the)]TJ -293.237 -11.955 Td [(arra)28(y)-334(ar)1(gume)-1(n)28(ts;)]TJ +0 g 0 G + -12.73 -19.926 Td [(2.)]TJ +0 g 0 G + [-500(When)]TJ/F30 9.9626 Tf 41.788 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 71.315 0 Td [(the)-333(output)-334(arra)28(ys)-333(are)-333(reallo)-28(cated)-334(as)-333(necessary;)]TJ +0 g 0 G + -113.103 -19.925 Td [(3.)]TJ +0 g 0 G + [-500(The)-253(ro)28(w)-252(and)-253(column)-253(indices)-252(are)-253(returned)-252(in)-253(the)-253(lo)-27(cal)-253(n)28(um)28(b)-28(ering)-253(sc)28(heme;)-280(if)]TJ 12.73 -11.955 Td [(the)-222(global)-222(n)27(um)28(b)-28(erin)1(g)-223(is)-222(desired,)-244(the)-223(user)-222(ma)28(y)-222(emplo)27(y)-222(the)]TJ/F30 9.9626 Tf 243.172 0 Td [(psb_loc_to_glob)]TJ/F8 9.9626 Tf -243.172 -11.955 Td [(routine)-333(on)-334(the)-333(output.)]TJ +0 g 0 G + 139.477 -290.909 Td [(104)]TJ +0 g 0 G +ET + +endstream +endobj +1589 0 obj +<< +/Length 4124 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(sizeof)-375(|)-375(Memory)-375(o)-31(ccupation)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(memory)-334(o)-28(ccupation)-333(of)-333(a)-333(PSBLAS)-334(ob)-55(ject.)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf 0 -21.918 Td [(isz)-525(=)-525(psb_sizeof\050a\051)]TJ 0 -11.955 Td [(isz)-525(=)-525(psb_sizeof\050desc_a\051)]TJ 0 -11.956 Td [(isz)-525(=)-525(psb_sizeof\050prec\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)]TJ/F11 9.9626 Tf 73.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -66.342 -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.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 532.522 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 532.322 Td [(Tspmat)]TJ +ET +q +1 0 0 1 347.183 532.522 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 350.322 532.322 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.348 -19.925 Td [(desc)]TJ +ET +q +1 0 0 1 121.81 512.596 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 125.247 512.397 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(Comm)28(unication)-334(d)1(e)-1(scriptor)1(.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 464.776 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 464.576 Td [(desc)]TJ +ET +q +1 0 0 1 336.723 464.776 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 339.861 464.576 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -260.887 -19.925 Td [(prec)]TJ +0 g 0 G +/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.88 -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(preconditioner)-333(data)-333(structure)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ +ET +q +1 0 0 1 338.658 408.985 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 341.796 408.786 Td [(prec)]TJ +ET +q +1 0 0 1 363.345 408.985 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 366.483 408.786 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -287.51 -19.926 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ +0 g 0 G +/F8 9.9626 Tf 78.387 0 Td [(The)-332(memory)-331(o)-28(ccupation)-332(of)-331(the)-332(ob)-55(ject)-332(sp)-28(eci\014ed)-332(in)-331(the)-332(calling)]TJ -53.48 -11.955 Td [(sequence,)-333(in)-334(b)28(ytes.)]TJ 0 -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 [(Returned)-333(as:)-445(an)]TJ/F30 9.9626 Tf 73.834 0 Td [(integer\050psb_long_int_k_\051)]TJ/F8 9.9626 Tf 128.849 0 Td [(n)28(um)28(b)-28(er.)]TJ +0 g 0 G + -63.206 -242.632 Td [(105)]TJ +0 g 0 G +ET + +endstream +endobj +1593 0 obj +<< +/Length 5774 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(Sorting)-375(utilities)-375(|)]TJ 0 -19.593 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 686.736 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 686.536 Td [(msort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Merge-sort)-375(algorithm)]TJ -25.091 -12.601 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 674.134 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 673.935 Td [(qsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Quic)31(ksort)-375(algorithm)]TJ -25.091 -12.602 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 661.532 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 661.333 Td [(hsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Heapsort)-375(algorithm)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -22.511 Td [(call)-525(psb_msort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_qsort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_hsort\050x,ix,dir,flag\051)]TJ/F8 9.9626 Tf 14.944 -21.865 Td [(These)-332(serial)-332(r)1(outines)-332(sort)-332(a)-332(sequence)]TJ/F11 9.9626 Tf 162.708 0 Td [(X)]TJ/F8 9.9626 Tf 12.34 0 Td [(in)28(to)-332(ascending)-332(or)-331(descending)-332(order.)]TJ -189.992 -11.955 Td [(The)-320(argumen)28(t)-321(meaning)-320(is)-320(iden)28(tical)-320(for)-320(the)-321(th)1(ree)-321(calls;)-324(the)-320(only)-321(di\013erence)-320(is)-320(the)]TJ 0 -11.955 Td [(algorithm)-333(used)-334(to)-333(accomplish)-333(the)-334(task)-333(\050see)-333(Us)-1(age)-333(Notes)-333(b)-28(elo)28(w\051.)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.865 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 -22.511 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -22.511 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(to)-333(b)-28(e)-333(sorted.)]TJ 13.879 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ +0 g 0 G +/F8 9.9626 Tf 14.21 0 Td [(A)-333(v)27(ector)-333(of)-333(indices.)]TJ 10.697 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(arra)27(y)-333(of)-333(\050at)-333(leas)-1(t\051)-333(the)-333(same)-334(size)-333(as)]TJ/F11 9.9626 Tf 258.558 0 Td [(X)]TJ/F8 9.9626 Tf 9.036 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -292.501 -22.511 Td [(dir)]TJ +0 g 0 G +/F8 9.9626 Tf 19.247 0 Td [(The)-333(desired)-334(ordering.)]TJ 5.66 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue:)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -22.511 Td [(In)32(teger)-383(and)-384(real)-383(data:)]TJ +0 g 0 G +/F30 9.9626 Tf 114.396 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_sort_down_)]TJ/F8 9.9626 Tf 73.225 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf -306.868 -11.955 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.456 0 Td [(;)-333(default)]TJ/F30 9.9626 Tf 39.573 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.765 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -202.711 -17.233 Td [(Complex)-383(data:)]TJ +0 g 0 G +/F30 9.9626 Tf 78.337 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_lsort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.202 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(;)]TJ -364.928 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.486 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -148.305 -22.511 Td [(\015ag)]TJ +0 g 0 G +/F8 9.9626 Tf 22.644 0 Td [(Whether)-333(to)-334(k)28(eep)-333(the)-334(origi)1(nal)-334(v)56(alues)-334(in)]TJ/F11 9.9626 Tf 170.583 0 Td [(I)-78(X)]TJ/F8 9.9626 Tf 14.197 0 Td [(.)]TJ -182.517 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger)-222(v)55(alue)]TJ/F30 9.9626 Tf 125.446 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 91.13 0 Td [(or)]TJ/F30 9.9626 Tf 11.097 0 Td [(psb_sort_keep_idx_)]TJ/F8 9.9626 Tf 94.146 0 Td [(;)]TJ -321.819 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.485 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 88.916 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -147.308 -24.503 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -22.511 Td [(x)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(of)-333(v)55(alu)1(e)-1(s,)-333(in)-333(the)-334(c)28(hosen)-333(ordering.)]TJ 13.879 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ +0 g 0 G +/F8 9.9626 Tf 14.211 0 Td [(A)-333(v)28(e)-1(ctor)-333(of)-333(indices.)]TJ 10.696 -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 [(An)-332(in)27(teger)-332(arra)28(y)-333(of)-332(rank)-332(1,)-333(whose)-333(en)28(tries)-332(are)-333(mo)28(v)28(ed)-333(to)-332(the)-333(same)-332(p)-28(osition)]TJ 0 -11.955 Td [(as)-333(the)-334(corresp)-27(onding)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 136.958 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ +0 g 0 G + -3.175 -43.727 Td [(106)]TJ +0 g 0 G +ET + +endstream +endobj +1597 0 obj +<< +/Length 6995 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(F)83(or)-466(in)28(tege)-1(r)-466(or)-467(real)-466(data)-467(the)-467(sorting)-466(can)-467(b)-28(e)-466(p)-28(erformed)-467(in)-466(the)-467(up/do)28(wn)]TJ 12.73 -11.956 Td [(direction,)-333(on)-334(th)1(e)-334(natural)-333(or)-333(absolute)-334(v)56(alues;)]TJ +0 g 0 G + -12.73 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(F)83(or)-397(complex)-398(data)-398(the)-397(sorting)-398(can)-398(b)-27(e)-398(done)-398(in)-397(a)-398(lexicographic)-398(order)-397(\050i.e.:)]TJ 12.73 -11.955 Td [(sort)-316(on)-316(the)-315(real)-316(part)-316(with)-316(ties)-316(br)1(ok)27(en)-316(accordin)1(g)-316(to)-316(the)-316(imaginary)-316(part\051)-315(or)]TJ 0 -11.955 Td [(on)-333(the)-334(absolute)-333(v)56(alues;)]TJ +0 g 0 G + -12.73 -19.925 Td [(3.)]TJ +0 g 0 G + [-500(The)-257(routines)-258(retur)1(n)-258(the)-257(items)-257(in)-258(the)-257(c)28(hosen)-257(ordering;)-283(the)-257(output)-257(di\013erence)]TJ 12.73 -11.956 Td [(is)-259(the)-259(handling)-259(of)-259(ties)-259(\050i.e.)-419(items)-259(with)-259(an)-259(equal)-259(v)56(alue\051)-259(in)-259(the)-259(original)-259(input.)]TJ 0 -11.955 Td [(With)-493(the)-493(merge-sort)-493(algorithm)-493(ties)-493(are)-493(preserv)27(ed)-493(in)-493(the)-493(same)-493(relativ)28(e)]TJ 0 -11.955 Td [(order)-405(as)-406(they)-405(had)-406(in)-405(the)-405(original)-406(sequence,)-423(while)-406(this)-405(is)-406(not)-405(guaran)28(teed)]TJ 0 -11.955 Td [(for)-333(quic)28(ksort)-334(or)-333(heapsort;)]TJ +0 g 0 G + -12.73 -19.925 Td [(4.)]TJ +0 g 0 G + [-500(If)]TJ/F11 9.9626 Tf 21.889 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 22.262 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(psb)]TJ +ET +q +1 0 0 1 181.295 542.941 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 184.284 542.742 Td [(sor)-28(t)]TJ +ET +q +1 0 0 1 202.749 542.941 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 205.738 542.742 Td [(ov)-36(w)]TJ +ET +q +1 0 0 1 223.752 542.941 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 226.741 542.742 Td [(idx)]TJ +ET +q +1 0 0 1 241.65 542.941 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 247.157 542.742 Td [(then)-253(the)-252(en)27(tries)-252(in)]TJ/F11 9.9626 Tf 80.169 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\0501)-278(:)]TJ/F11 9.9626 Tf 17.158 0 Td [(n)]TJ/F8 9.9626 Tf 5.979 0 Td [(\051)-253(where)]TJ/F11 9.9626 Tf 34.398 0 Td [(n)]TJ/F8 9.9626 Tf 8.497 0 Td [(is)-253(the)-252(s)-1(i)1(z)-1(e)]TJ -277.682 -11.956 Td [(of)]TJ/F11 9.9626 Tf 11.91 0 Td [(x)]TJ/F8 9.9626 Tf 9.579 0 Td [(are)-390(initialized)-390(to)]TJ/F11 9.9626 Tf 76.44 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F14 9.9626 Tf 7.581 0 Td [(\040)]TJ/F11 9.9626 Tf 13.67 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(;)-418(th)28(us,)-404(up)-28(on)-390(return)-390(from)-390(the)-390(subroutine,)]TJ -139.046 -11.955 Td [(for)-333(eac)28(h)-334(index)]TJ/F11 9.9626 Tf 64.505 0 Td [(i)]TJ/F8 9.9626 Tf 6.751 0 Td [(w)28(e)-334(ha)28(v)28(e)-333(in)]TJ/F11 9.9626 Tf 49.257 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(the)-333(p)-28(osition)-333(that)-334(th)1(e)-334(item)]TJ/F11 9.9626 Tf 123.751 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(o)-28(ccupied)]TJ -273.697 -11.955 Td [(in)-333(the)-334(original)-333(data)-333(sequence;)]TJ +0 g 0 G + -12.73 -19.925 Td [(5.)]TJ +0 g 0 G + [-500(If)]TJ/F11 9.9626 Tf 23.404 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 23.446 0 Td [(=)]TJ/F11 9.9626 Tf 11.701 0 Td [(psb)]TJ +ET +q +1 0 0 1 185.179 487.15 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 188.168 486.951 Td [(sor)-28(t)]TJ +ET +q +1 0 0 1 206.634 487.15 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 209.622 486.951 Td [(k)-32(eep)]TJ +ET +q +1 0 0 1 230.011 487.15 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F11 9.9626 Tf 232.999 486.951 Td [(idx)]TJ +ET +q +1 0 0 1 247.909 487.15 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 254.929 486.951 Td [(the)-405(routine)-404(will)-405(assume)-405(that)-404(the)-405(en)28(tries)-405(in)]TJ/F11 9.9626 Tf -130.127 -11.955 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050:\051)-333(ha)28(v)27(e)-333(already)-333(b)-28(een)-333(initialized)-334(b)28(y)-333(the)-334(user;)]TJ +0 g 0 G + -21.856 -19.926 Td [(6.)]TJ +0 g 0 G + [-500(The)-376(three)-375(sorting)-376(algorithms)-376(ha)28(v)28(e)-376(a)-375(s)-1(imilar)]TJ/F11 9.9626 Tf 208.295 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F8 9.9626 Tf 7.641 0 Td [(log)]TJ/F11 9.9626 Tf 14.528 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)-376(exp)-27(e)-1(cted)-375(running)]TJ -235.464 -11.955 Td [(time;)-349(in)-343(the)-344(a)28(v)28(erage)-344(case)-343(quic)27(ksort)-343(will)-344(b)-27(e)-344(the)-344(fastest)-343(and)-344(merge-sort)-343(the)]TJ 0 -11.955 Td [(slo)28(w)28(e)-1(st.)-444(Ho)28(w)28(e)-1(v)28(er)-333(note)-333(that:)]TJ +0 g 0 G + 4.206 -19.925 Td [(\050a\051)]TJ +0 g 0 G + [-500(The)-419(w)28(orst)-419(case)-419(runn)1(ing)-419(time)-419(for)-419(quic)28(ksort)-419(is)]TJ/F11 9.9626 Tf 221.059 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F7 6.9738 Tf 5.98 3.615 Td [(2)]TJ/F8 9.9626 Tf 4.47 -3.615 Td [(\051;)-461(the)-419(algorithm)]TJ -225.547 -11.955 Td [(implemen)28(ted)-319(here)-319(follo)28(ws)-319(the)-319(w)27(ell-kno)28(wn)-319(median-of-three)-319(heuristics,)]TJ 0 -11.956 Td [(but)-333(the)-334(w)28(orst)-333(case)-334(ma)28(y)-333(still)-334(ap)1(ply;)]TJ +0 g 0 G + -18.265 -15.94 Td [(\050b\051)]TJ +0 g 0 G + [-500(The)-222(w)28(orst)-223(case)-222(running)-222(time)-222(for)-222(m)-1(erge-sort)-222(and)-222(heap-sort)-222(is)]TJ/F11 9.9626 Tf 273.309 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F8 9.9626 Tf 7.64 0 Td [(log)]TJ/F11 9.9626 Tf 14.529 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)]TJ -294.943 -11.955 Td [(as)-333(the)-334(a)28(v)28(erage)-334(case;)]TJ +0 g 0 G + -17.158 -15.94 Td [(\050c\051)]TJ +0 g 0 G + [-500(The)-358(merge-sort)-358(algorithm)-357(is)-358(implemen)28(ted)-358(to)-358(tak)28(e)-358(adv)56(an)28(tage)-358(of)-358(sub-)]TJ 17.158 -11.955 Td [(sequences)-401(that)-400(ma)28(y)-401(b)-28(e)-400(already)-401(in)-400(the)-401(d)1(e)-1(sired)-400(ordering)-400(prior)-401(to)-400(the)]TJ 0 -11.956 Td [(subroutine)-246(call;)-275(this)-246(situation)-246(is)-247(relativ)28(ely)-246(common)-246(when)-246(dealing)-246(with)]TJ 0 -11.955 Td [(groups)-301(of)-301(indices)-301(of)-302(sparse)-301(matrix)-301(en)28(tries,)-308(th)28(us)-301(merge-sort)-301(is)-302(the)-301(pre-)]TJ 0 -11.955 Td [(ferred)-249(c)28(hoice)-249(when)-249(a)-249(sorting)-248(is)-249(needed)-249(b)28(y)-249(other)-249(routines)-249(in)-248(the)-249(library)83(.)]TJ +0 g 0 G + 117.559 -205.23 Td [(107)]TJ +0 g 0 G +ET + +endstream +endobj +1610 0 obj +<< +/Length 187 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 14.3462 Tf 150.705 706.129 Td [(7)-1125(P)31(arallel)-375(en)32(v)-1(ironmen)32(t)-375(routines)]TJ +0 g 0 G +/F8 9.9626 Tf 164.383 -615.691 Td [(108)]TJ +0 g 0 G +ET + +endstream +endobj +1614 0 obj +<< +/Length 5567 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(init)-375(|)-375(Initializes)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_init\050icontxt,)-525(np,)-525(basectxt,)-525(ids\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-294(subroutine)-294(initializes)-294(th)1(e)-294(PSBLAS)-294(parallel)-294(en)28(vironmen)28(t,)-302(de\014ning)-294(a)-294(vir-)]TJ -14.944 -11.955 Td [(tual)-333(parallel)-334(mac)28(hine.)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(np)]TJ +0 g 0 G +/F8 9.9626 Tf 17.712 0 Td [(Num)28(b)-28(er)-333(of)-334(pr)1(o)-28(cesses)-334(in)-333(the)-333(PSBLAS)-334(virtual)-333(parallel)-333(mac)27(h)1(ine.)]TJ 7.195 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue.)-778(Default)1(:)-445(use)-333(all)-334(a)28(v)56(ailable)-334(p)1(ro)-28(cesses)-1(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(basectxt)]TJ +0 g 0 G +/F8 9.9626 Tf 46.736 0 Td [(the)-356(initial)-357(comm)28(unication)-356(con)28(text.)-514(The)-356(new)-357(con)28(text)-356(will)-357(b)-27(e)-357(de\014ned)]TJ -21.829 -11.955 Td [(from)-333(the)-334(pro)-27(cess)-1(es)-333(participating)-333(in)-333(the)-334(initial)-333(one.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue.)-778(Default)1(:)-445(use)-333(MPI)]TJ +ET +q +1 0 0 1 339.182 466.768 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 342.171 466.569 Td [(COMM)]TJ +ET +q +1 0 0 1 375.977 466.768 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 378.966 466.569 Td [(W)28(ORLD.)]TJ +0 g 0 G +/F27 9.9626 Tf -279.071 -19.925 Td [(ids)]TJ +0 g 0 G +/F8 9.9626 Tf 19.048 0 Td [(Iden)28(tities)-497(of)-497(the)-497(pro)-28(cesses)-497(to)-497(use)-497(for)-497(the)-498(n)1(e)-1(w)-497(con)28(text;)-579(the)-497(argumen)28(t)-497(is)]TJ 5.859 -11.956 Td [(ignored)-428(when)]TJ/F30 9.9626 Tf 63.346 0 Td [(np)]TJ/F8 9.9626 Tf 14.722 0 Td [(is)-428(not)-428(sp)-27(eci\014ed.)-728(This)-428(allo)28(ws)-428(the)-428(pro)-27(ce)-1(sses)-427(in)-428(the)-428(new)]TJ -78.068 -11.955 Td [(en)28(vironmen)28(t)-334(to)-333(b)-28(e)-333(in)-333(an)-334(order)-333(di\013eren)28(t)-334(fr)1(om)-334(the)-333(original)-333(one.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)-778(Default:)-444(use)-334(the)-333(indices)-333(\0500)]TJ/F11 9.9626 Tf 254.158 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 26.49 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1\051.)]TJ +0 g 0 G +/F27 9.9626 Tf -315.518 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-458(comm)28(unication)-457(con)27(text)-457(iden)28(tifying)-458(the)-457(virtual)-458(paral)1(le)-1(l)-457(mac)28(hine.)]TJ -15.082 -11.956 Td [(Note)-335(that)-335(this)-335(is)-336(alw)28(a)28(ys)-335(a)-335(duplicate)-335(of)]TJ/F30 9.9626 Tf 169.952 0 Td [(basectxt)]TJ/F8 9.9626 Tf 41.843 0 Td [(,)-336(so)-335(that)-335(library)-335(comm)28(u-)]TJ -211.795 -11.955 Td [(nications)-305(are)-305(completely)-305(s)-1(eparated)-305(from)-305(other)-305(comm)28(unication)-305(op)-28(erations.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ +0 g 0 G + [-500(A)-333(call)-334(to)-333(this)-333(routine)-334(m)28(ust)-333(precede)-334(an)28(y)-333(other)-333(PSBLAS)-334(call.)]TJ +0 g 0 G + 0 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(It)-262(is)-262(an)-262(error)-262(to)-262(sp)-28(ecify)-262(a)-262(v)56(alue)-262(for)]TJ/F11 9.9626 Tf 159.869 0 Td [(np)]TJ/F8 9.9626 Tf 13.603 0 Td [(greater)-262(than)-262(the)-262(n)28(um)28(b)-28(er)-262(of)-262(pro)-28(cesses)]TJ -160.742 -11.955 Td [(a)28(v)55(ailable)-333(in)-333(the)-334(un)1(derlying)-334(base)-333(parallel)-333(en)27(vir)1(onme)-1(n)28(t.)]TJ +0 g 0 G + 139.477 -97.177 Td [(109)]TJ +0 g 0 G +ET + +endstream +endobj +1621 0 obj +<< +/Length 4639 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(info)-306(|)-307(Return)-306(information)-306(ab)-31(out)-307(PSBLAS)-306(parallel)-306(en-)]TJ -25.091 -13.948 Td [(vironmen)31(t)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf 0 -18.389 Td [(call)-525(psb_info\050icontxt,)-525(iam,)-525(np\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-456(subroutine)-456(returns)-456(in)1(formation)-456(ab)-28(out)-456(the)-456(PSBLAS)-456(p)1(arallel)-456(en)27(viron)1(-)]TJ -14.944 -11.955 Td [(men)28(t,)-334(de\014n)1(ing)-334(a)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -19.925 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 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(iam)]TJ +0 g 0 G +/F8 9.9626 Tf 23.281 0 Td [(Iden)28(ti\014er)-333(of)-334(curren)28(t)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-334(p)1(arallel)-334(mac)28(hine.)]TJ 1.626 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)]TJ/F14 9.9626 Tf 134.302 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1)]TJ +0 g 0 G +/F27 9.9626 Tf -239.12 -19.926 Td [(np)]TJ +0 g 0 G +/F8 9.9626 Tf 17.711 0 Td [(Num)28(b)-28(er)-333(of)-334(pro)-27(cess)-1(es)-333(in)-333(the)-334(PS)1(BL)-1(AS)-333(virtual)-333(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 7.196 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ +0 g 0 G + [-500(F)83(or)-500(pro)-27(cess)-1(es)-500(in)-500(the)-500(vir)1(tual)-500(parallel)-500(mac)27(hine)-500(the)-500(iden)28(ti\014er)-500(will)-500(satisfy)]TJ 12.731 -11.955 Td [(0)]TJ/F14 9.9626 Tf 7.748 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1;)]TJ +0 g 0 G + -84.893 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(If)-432(the)-433(user)-432(has)-433(requested)-432(on)]TJ/F30 9.9626 Tf 143.131 0 Td [(psb_init)]TJ/F8 9.9626 Tf 46.15 0 Td [(a)-432(n)27(um)28(b)-28(er)-432(of)-432(pro)-28(cesses)-433(less)-432(than)]TJ -176.551 -11.955 Td [(the)-417(total)-416(a)28(v)55(ailable)-416(in)-417(the)-416(parallel)-417(execution)-416(en)28(vironmen)28(t,)-438(the)-416(remaining)]TJ 0 -11.955 Td [(pro)-28(cesses)-359(will)-359(ha)28(v)28(e)-359(on)-359(return)]TJ/F11 9.9626 Tf 130.487 0 Td [(iam)]TJ/F8 9.9626 Tf 20.638 0 Td [(=)]TJ/F14 9.9626 Tf 10.942 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-372(the)-359(only)-359(call)-359(i)1(n)27(v)28(olving)]TJ/F30 9.9626 Tf 112.377 0 Td [(icontxt)]TJ/F8 9.9626 Tf -282.192 -11.956 Td [(that)-333(an)28(y)-334(suc)28(h)-333(pro)-28(cess)-334(ma)28(y)-333(execute)-334(is)-333(to)]TJ/F30 9.9626 Tf 177.086 0 Td [(psb_exit)]TJ/F8 9.9626 Tf 41.842 0 Td [(.)]TJ +0 g 0 G + -79.452 -174.885 Td [(110)]TJ +0 g 0 G +ET + +endstream +endobj +1627 0 obj +<< +/Length 4356 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(exit)-375(|)-375(Exit)-375(from)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_exit\050icontxt\051)]TJ 0 -11.956 Td [(call)-525(psb_exit\050icontxt,close\051)]TJ/F8 9.9626 Tf 14.944 -21.917 Td [(This)-333(subroutine)-334(exits)-333(from)-333(the)-334(PSBLAS)-333(parallel)-333(virtual)-333(mac)27(hine.)]TJ +0 g 0 G +/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(close)]TJ +0 g 0 G +/F8 9.9626 Tf 28.755 0 Td [(Whether)-401(to)-401(clos)-1(e)-401(all)-401(data)-401(structures)-401(relate)-1(d)-401(to)-401(the)-401(virtual)-401(parallel)-401(m)-1(a-)]TJ -3.848 -11.955 Td [(c)28(hine,)-334(b)-27(esides)-334(those)-333(asso)-28(ciated)-333(with)-334(icon)28(txt.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(logical)-333(v)55(ariable,)-333(default)-333(v)55(alu)1(e)-1(:)-444(true.)]TJ/F16 11.9552 Tf -24.907 -19.925 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ +0 g 0 G + [-500(This)-241(routine)-241(ma)28(y)-241(b)-28(e)-241(called)-241(ev)28(en)-241(if)-241(a)-241(previous)-241(call)-241(to)]TJ/F30 9.9626 Tf 233.305 0 Td [(psb_info)]TJ/F8 9.9626 Tf 44.244 0 Td [(has)-241(returned)]TJ -264.819 -11.955 Td [(with)]TJ/F11 9.9626 Tf 22.963 0 Td [(iam)]TJ/F8 9.9626 Tf 20.662 0 Td [(=)]TJ/F14 9.9626 Tf 10.966 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-374(indeed,)-367(it)-360(it)-361(is)-360(the)-361(only)-360(routine)-360(that)-361(ma)28(y)-360(b)-28(e)-361(called)-360(with)]TJ -62.34 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.583 0 Td [(icontxt)]TJ/F8 9.9626 Tf 39.933 0 Td [(in)-333(this)-334(situation.)]TJ +0 g 0 G + -97.246 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(A)-305(call)-306(to)-305(this)-305(routine)-305(with)]TJ/F30 9.9626 Tf 128.752 0 Td [(close=.true.)]TJ/F8 9.9626 Tf 65.806 0 Td [(implies)-305(a)-306(call)-305(to)]TJ/F30 9.9626 Tf 71.445 0 Td [(MPI_Finalize)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ -316.037 -11.956 Td [(after)-333(whic)27(h)-333(no)-333(parallel)-333(routine)-334(ma)28(y)-333(b)-28(e)-333(called.)]TJ +0 g 0 G + -12.73 -19.925 Td [(3.)]TJ +0 g 0 G + [-500(If)-391(the)-390(user)-391(whishes)-391(to)-390(use)-391(m)28(ultiple)-391(comm)28(unication)-391(con)28(texts)-391(in)-390(the)-391(same)]TJ 12.73 -11.955 Td [(program,)-485(or)-455(to)-455(en)28(ter)-455(and)-454(e)-1(xi)1(t)-455(m)27(ul)1(tiple)-455(times)-455(in)28(to)-455(the)-455(parallel)-455(en)28(viron-)]TJ 0 -11.955 Td [(men)28(t,)-494(this)-462(routine)-462(ma)28(y)-462(b)-28(e)-462(called)-462(to)-462(selectiv)28(ely)-462(close)-463(th)1(e)-462(c)-1(on)28(texts)-462(with)]TJ/F30 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-244(while)-223(on)-222(the)-222(last)-222(call)-223(it)-222(should)-222(b)-28(e)-222(called)-222(with)]TJ/F30 9.9626 Tf 194.328 0 Td [(close=.true.)]TJ/F8 9.9626 Tf -262.322 -11.955 Td [(to)-333(sh)27(utd)1(o)27(wn)-333(in)-333(a)-334(clean)-333(w)28(a)28(y)-334(the)-333(en)28(tire)-334(parallel)-333(en)28(vironmen)28(t.)]TJ +0 g 0 G + 139.477 -212.744 Td [(111)]TJ +0 g 0 G +ET + +endstream +endobj +1634 0 obj +<< +/Length 2160 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(get)]TJ +ET +q +1 0 0 1 194.695 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 198.729 706.129 Td [(mpicomm)-375(|)-375(Get)-375(the)-375(MPI)-375(comm)31(unicator)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_mpicomm\050icontxt,)-525(icomm\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-335(subroutine)-335(returns)-335(the)-336(M)1(PI)-336(comm)28(unicator)-335(asso)-28(ciated)-335(with)-335(a)-335(PSBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -19.926 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icomm)]TJ +0 g 0 G +/F8 9.9626 Tf 38.079 0 Td [(The)-377(MPI)-378(comm)28(unicator)-378(asso)-27(ciated)-378(with)-377(the)-378(PSBLAS)-377(virtual)-377(parallel)]TJ -13.172 -11.955 Td [(mac)28(hine.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ +0 g 0 G + 89.442 -366.168 Td [(112)]TJ +0 g 0 G +ET + +endstream +endobj +1638 0 obj +<< +/Length 3020 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(get)]TJ +ET +q +1 0 0 1 143.885 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 147.92 706.129 Td [(rank)-375(|)-375(Get)-375(the)-375(MPI)-375(rank)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_rank\050rank,)-525(icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(return)1(s)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(pro)-27(cess)]TJ/F11 9.9626 Tf 274.665 0 Td [(id)]TJ 0 g 0 G /F27 9.9626 Tf -289.609 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19466,44 +20226,44 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(id)]TJ 0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Iden)28(ti\014er)-333(of)-334(a)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-444(0)]TJ/F14 9.9626 Tf 142.05 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(id)]TJ/F14 9.9626 Tf 11.385 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1)]TJ +/F8 9.9626 Tf 14.529 0 Td [(Iden)28(ti\014er)-333(of)-334(a)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ 10.378 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)-444(0)]TJ/F14 9.9626 Tf 142.051 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(id)]TJ/F14 9.9626 Tf 11.385 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1)]TJ 0 g 0 G -/F27 9.9626 Tf -222.543 -21.918 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -222.544 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(rank)]TJ 0 g 0 G -/F8 9.9626 Tf 27.681 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.617 0 Td [(.)]TJ -241.639 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ +/F8 9.9626 Tf 27.681 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.618 0 Td [(.)]TJ -241.64 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ 0 g 0 G - 89.442 -322.333 Td [(108)]TJ + 89.442 -322.333 Td [(113)]TJ 0 g 0 G ET endstream endobj -1584 0 obj +1642 0 obj << -/Length 1181 +/Length 1202 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(wtime)-375(|)-375(W)94(all)-375(clo)-32(c)32(k)-375(timing)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(wtime)-375(|)-375(W)94(all)-375(clo)-31(c)31(k)-375(timing)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(time)-525(=)-525(psb_wtime\050\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-474(function)-473(returns)-474(a)-473(w)27(all)-473(clo)-28(c)28(k)-474(timer.)-865(The)-474(resolution)-473(of)-474(the)-473(timer)-474(is)]TJ -14.944 -11.955 Td [(dep)-28(enden)28(t)-333(on)-334(the)-333(underlying)-333(parallel)-333(en)27(vir)1(onme)-1(n)28(t)-333(implemen)28(tation.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(time)-525(=)-525(psb_wtime\050\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-474(fun)1(c)-1(ti)1(o)-1(n)-473(returns)-474(a)-473(w)28(all)-474(clo)-28(c)28(k)-474(timer.)-865(The)-474(resolution)-473(of)-474(the)-473(timer)-474(is)]TJ -14.944 -11.955 Td [(dep)-28(enden)28(t)-333(on)-334(th)1(e)-334(underlying)-333(parallel)-333(en)28(vironmen)27(t)-333(implemen)28(tation.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19514,54 +20274,17 @@ BT 0 g 0 G 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ 0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(the)-333(elapsed)-334(time)-333(in)-333(seconds.)]TJ -53.48 -11.955 Td [(Returned)-333(as:)-445(a)]TJ/F30 9.9626 Tf 68.3 0 Td [(real\050psb_dpk_\051)]TJ/F8 9.9626 Tf 76.545 0 Td [(v)56(ariable.)]TJ +/F8 9.9626 Tf 78.386 0 Td [(the)-333(elapsed)-334(time)-333(in)-333(sec)-1(on)1(ds.)]TJ -53.479 -11.955 Td [(Returned)-333(as:)-445(a)]TJ/F30 9.9626 Tf 68.299 0 Td [(real\050psb_dpk_\051)]TJ/F8 9.9626 Tf 76.546 0 Td [(v)56(ariable.)]TJ 0 g 0 G - -5.368 -491.698 Td [(109)]TJ + -5.369 -491.698 Td [(114)]TJ 0 g 0 G ET endstream endobj -1589 0 obj +1646 0 obj << -/Length 1474 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(barrier)-375(|)-375(Sinc)31(hronization)-375(p)-31(oin)31(t)-375(parallel)-375(en)32(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_barrier\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-398(subroutine)-397(acts)-398(as)-398(an)-398(explicit)-398(sync)28(hronization)-397(p)-28(oin)28(t)-398(for)-398(the)-398(PSBLAS)]TJ -14.944 -11.955 Td [(parallel)-333(virtual)-333(mac)27(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G - 139.476 -455.832 Td [(110)]TJ -0 g 0 G -ET - -endstream -endobj -1593 0 obj -<< -/Length 1360 +/Length 1484 >> stream 0 g 0 G @@ -19574,10 +20297,47 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(ab)-31(ort)-375(|)-375(Ab)-32(ort)-375(a)-374(computation)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(barrier)-375(|)-375(Sinc)31(hronization)-375(p)-31(oin)31(t)-375(parallel)-375(en)32(vironmen)31(t)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_abort\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(ab)-27(orts)-334(computation)-333(on)-333(the)-334(paral)1(le)-1(l)-333(virtual)-333(mac)28(hine.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_barrier\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-398(subroutine)-397(ac)-1(t)1(s)-398(as)-398(an)-398(explicit)-398(sync)28(hronization)-397(p)-28(oin)28(t)-398(for)-398(the)-398(PSBLAS)]TJ -14.944 -11.955 Td [(parallel)-333(virtual)-333(m)-1(ac)28(hine.)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G + 139.477 -455.832 Td [(115)]TJ +0 g 0 G +ET + +endstream +endobj +1651 0 obj +<< +/Length 1357 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 171.761 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 175.796 706.129 Td [(ab)-31(ort)-375(|)-375(Ab)-31(ort)-375(a)-375(computation)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_abort\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(ab)-27(orts)-334(computation)-333(on)-333(the)-334(p)1(arallel)-334(virtual)-333(mac)28(hine.)]TJ 0 g 0 G /F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19588,69 +20348,17 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G - 139.477 -467.787 Td [(111)]TJ + 139.476 -467.787 Td [(116)]TJ 0 g 0 G ET endstream endobj -1597 0 obj +1655 0 obj << -/Length 4533 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(b)-31(cast)-375(|)-375(Broadcast)-375(data)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_bcast\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-338(subroutine)-338(implemen)27(ts)-338(a)-338(broadcast)-338(op)-28(eration)-338(based)-339(on)-338(the)-338(underlying)]TJ -14.944 -11.955 Td [(comm)28(unication)-334(lib)1(rary)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(the)-334(ro)-27(ot)-334(pro)-27(ces)-1(s,)-333(the)-333(data)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-403(a)-403(rank)-404(1)-403(or)-403(2)-403(arra)28(y)83(,)-421(or)-403(a)-403(c)28(haracter)-404(or)-403(logical)-403(v)56(ariable,)-421(whic)28(h)-403(ma)27(y)-403(b)-28(e)]TJ 0 -11.955 Td [(a)-426(s)-1(calar)-426(or)-426(rank)-427(1)-426(arra)27(y)84(.)-1151(T)28(yp)-28(e,)-449(kind,)-450(rank)-427(and)-426(size)-427(m)28(ust)-426(agree)-427(on)-426(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Ro)-28(ot)-333(pro)-28(cess)-333(holding)-334(data)-333(to)-333(b)-28(e)-333(broadcast.)]TJ -1.023 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(0)]TJ -0 g 0 G -/F27 9.9626 Tf -243.576 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(pro)-28(cesses)-334(other)-333(than)-333(ro)-28(ot,)-333(the)-334(dat)1(a)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-346(a)-346(rank)-347(1)-346(or)-346(2)-346(arra)28(y)83(,)-349(or)-347(a)-346(c)28(haracter)-346(or)-346(logical)-347(scalar.)-829(T)28(yp)-28(e,)-349(kind,)-350(rank)]TJ 0 -11.956 Td [(and)-333(size)-334(m)28(ust)-333(agree)-334(on)-333(all)-333(pro)-28(cesses.)]TJ -0 g 0 G - 139.477 -170.9 Td [(112)]TJ -0 g 0 G -ET - -endstream -endobj -1601 0 obj -<< -/Length 5146 +/Length 4552 >> stream 0 g 0 G @@ -19663,10 +20371,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(sum)-375(|)-375(Global)-375(sum)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(b)-31(cast)-375(|)-375(Broadcast)-375(data)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_sum\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-318(subroutine)-319(implemen)28(ts)-318(a)-319(sum)-318(reduction)-318(op)-28(eration)-318(based)-319(on)-318(the)-318(under-)]TJ -14.944 -11.955 Td [(lying)-333(comm)27(unication)-333(library)84(.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_bcast\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-338(subroutine)-338(impleme)-1(n)28(ts)-338(a)-338(broadcast)-339(op)-27(eration)-338(base)-1(d)-338(on)-338(the)-338(underlying)]TJ -14.944 -11.955 Td [(comm)28(unication)-334(libr)1(ary)83(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19681,36 +20389,28 @@ BT 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(sum.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(On)-333(the)-334(ro)-27(ot)-334(pro)-27(ce)-1(ss,)-333(the)-333(data)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-403(a)-403(rank)-404(1)-403(or)-403(2)-403(arra)28(y)83(,)-421(or)-403(a)-403(c)28(haracter)-404(or)-403(logical)-403(v)56(ariable,)-421(whic)28(h)-403(ma)27(y)-403(b)-28(e)]TJ 0 -11.955 Td [(a)-427(scalar)-426(or)-427(ran)1(k)-427(1)-426(arra)27(y)84(.)-1151(T)28(yp)-28(e,)-450(ki)1(nd,)-450(rank)-427(and)-426(size)-427(m)28(ust)-426(agree)-427(on)-426(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-310(to)-309(hold)-310(the)-310(\014nal)-310(sum,)-314(or)]TJ/F14 9.9626 Tf 144.053 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1)-310(to)-310(mak)28(e)-310(it)-309(a)27(v)56(ailable)-310(on)-310(all)-309(pro)-28(cesses.)]TJ -152.825 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ +/F8 9.9626 Tf 25.931 0 Td [(Ro)-28(ot)-333(pro)-28(cess)-333(holding)-334(d)1(ata)-334(to)-333(b)-28(e)-333(broadcast.)]TJ -1.024 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.544 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(0)]TJ 0 g 0 G -/F27 9.9626 Tf -251.325 -21.918 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -243.577 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(dat)]TJ + 0 -19.926 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(sum)-333(op)-28(eration.)]TJ 3.535 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-334(2)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-334(r)1(ank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 21.372 0 Td [(On)-333(pro)-28(cesses)-334(oth)1(e)-1(r)-333(than)-333(ro)-28(ot,)-333(the)-333(data)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-346(a)-346(rank)-347(1)-346(or)-346(2)-346(arra)28(y)83(,)-349(or)-347(a)-346(c)28(haracter)-346(or)-347(l)1(ogic)-1(al)-346(scalar.)-829(T)28(yp)-28(e,)-350(k)1(ind,)-350(rank)]TJ 0 -11.956 Td [(and)-333(size)-334(m)28(ust)-333(agree)-334(on)-333(all)-333(pro)-28(cesses.)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G - 99.986 -109.132 Td [(113)]TJ + 139.477 -170.9 Td [(117)]TJ 0 g 0 G ET endstream endobj -1607 0 obj +1659 0 obj << -/Length 5185 +/Length 5199 >> stream 0 g 0 G @@ -19723,10 +20423,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(max)-375(|)-375(Global)-375(maxim)31(um)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(sum)-375(|)-375(Global)-375(sum)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_max\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-326(subroutine)-326(implemen)28(ts)-326(a)-326(maxim)27(um)-326(v)56(aluereduction)-326(op)-28(eration)-326(based)-326(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_sum\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-318(subroutine)-319(impl)1(e)-1(men)28(ts)-318(a)-318(s)-1(u)1(m)-319(reduction)-318(op)-28(eration)-318(based)-318(on)-319(the)-318(under-)]TJ -14.944 -11.955 Td [(lying)-333(comm)27(un)1(ic)-1(ati)1(on)-334(library)84(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19741,18 +20441,18 @@ BT 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(maxim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as:)-442(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-27(e)-1(,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cesse)-1(s.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(sum.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(ro)-32(ot)]TJ +/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-305(to)-306(hold)-305(the)-305(\014nal)-305(m)-1(ax)1(im)27(um,)-311(or)]TJ/F14 9.9626 Tf 169.158 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-305(to)-306(mak)28(e)-305(it)-306(a)28(v)56(ailable)-306(on)-305(all)-305(pro-)]TJ -177.93 -11.956 Td [(cesses.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ +/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-310(to)-309(hold)-310(the)-310(\014nal)-310(sum,)-314(or)]TJ/F14 9.9626 Tf 144.053 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-310(to)-310(mak)28(e)-310(it)-309(a)27(v)56(ailable)-310(on)-310(al)1(l)-310(pro)-28(cesses.)]TJ -152.825 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ 0 g 0 G -/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -251.325 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(dat)]TJ + 0 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(pr)1(o)-28(cess\050es)-1(\051,)-333(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-27(e)-1(,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cesse)-1(s.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(pr)1(o)-28(cess\050es)-1(\051,)-333(the)-333(result)-333(of)-334(the)-333(sum)-333(op)-28(eration.)]TJ 3.536 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(o)-1(r)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-333(2)-334(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G @@ -19762,15 +20462,15 @@ BT 0 g 0 G [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G - 99.987 -109.132 Td [(114)]TJ + 99.987 -109.132 Td [(118)]TJ 0 g 0 G ET endstream endobj -1613 0 obj +1665 0 obj << -/Length 5160 +/Length 5151 >> stream 0 g 0 G @@ -19783,10 +20483,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(min)-375(|)-375(Global)-375(minim)31(um)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(max)-375(|)-375(Global)-375(maxim)31(um)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_min\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-311(subroutine)-312(implemen)28(ts)-311(a)-312(minim)28(um)-312(v)56(alue)-311(reduction)-312(op)-27(eration)-312(based)-311(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_max\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-326(subroutine)-326(implemen)28(ts)-326(a)-326(maxim)27(um)-326(v)56(aluereduction)-326(op)-28(eration)-326(based)-326(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -19801,18 +20501,18 @@ BT 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(minim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-28(e,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cess)-1(es.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(maxim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-28(e,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cess)-1(es.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-275(v)55(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(p)1(ro)-28(cesses.)]TJ -155.184 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ +/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-305(to)-306(hold)-305(the)-305(\014nal)-305(maxim)27(um,)-311(or)]TJ/F14 9.9626 Tf 169.157 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-305(to)-306(mak)28(e)-305(it)-306(a)28(v)56(ailable)-306(on)-305(all)-305(pro-)]TJ -177.93 -11.956 Td [(cesses.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ 0 g 0 G /F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(dat)]TJ + 0 -19.926 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-334(r)1(ank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -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)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-28(e,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cess)-1(es.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G @@ -19822,15 +20522,549 @@ BT 0 g 0 G [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G - 99.986 -109.132 Td [(115)]TJ + 99.986 -109.132 Td [(119)]TJ 0 g 0 G ET endstream endobj -1620 0 obj +1563 0 obj << -/Length 5277 +/Type /ObjStm +/N 100 +/First 972 +/Length 9436 +>> +stream +1557 0 1566 106 1564 245 1568 390 392 449 1569 507 1570 566 1565 625 1573 731 1571 870 +1575 1015 396 1073 1572 1130 1578 1249 1580 1367 1581 1426 1582 1485 1583 1544 1577 1603 1588 1722 +1584 1879 1585 2024 1586 2171 1590 2316 400 2374 1587 2431 1592 2550 1594 2668 405 2727 1591 2785 +1596 2904 1598 3022 1599 3080 1600 3138 1601 3196 1602 3254 1603 3312 1604 3370 1605 3427 1606 3485 +1607 3543 1595 3601 1609 3719 1611 3837 409 3896 1608 3954 1613 4034 1615 4152 413 4210 1616 4267 +1617 4325 1612 4383 1620 4515 1622 4633 417 4692 1623 4750 1624 4808 1619 4867 1626 4999 1628 5117 +421 5175 1629 5232 1630 5290 1631 5348 1625 5406 1633 5538 1635 5656 425 5715 1632 5773 1637 5879 +1639 5997 429 6055 1636 6112 1641 6244 1643 6362 433 6421 1640 6479 1645 6585 1647 6703 437 6761 +1644 6818 1650 6924 1652 7042 441 7101 1649 7159 1654 7265 1656 7383 445 7441 1653 7498 1658 7630 +1660 7748 449 7807 1661 7865 1662 7924 1657 7983 1664 8115 1666 8233 453 8291 1667 8348 1668 8406 +% 1557 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1566 0 obj +<< +/Type /Page +/Contents 1567 0 R +/Resources 1565 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1537 0 R +/Annots [ 1564 0 R ] +>> +% 1564 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 574.94 412.588 586.065] +/A << /S /GoTo /D (descdata) >> +>> +% 1568 0 obj +<< +/D [1566 0 R /XYZ 149.705 753.953 null] +>> +% 392 0 obj +<< +/D [1566 0 R /XYZ 150.705 720.077 null] +>> +% 1569 0 obj +<< +/D [1566 0 R /XYZ 150.705 370.928 null] +>> +% 1570 0 obj +<< +/D [1566 0 R /XYZ 150.705 339.047 null] +>> +% 1565 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1573 0 obj +<< +/Type /Page +/Contents 1574 0 R +/Resources 1572 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +/Annots [ 1571 0 R ] +>> +% 1571 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 492.904 372.239 504.029] +/A << /S /GoTo /D (spdata) >> +>> +% 1575 0 obj +<< +/D [1573 0 R /XYZ 98.895 753.953 null] +>> +% 396 0 obj +<< +/D [1573 0 R /XYZ 99.895 720.077 null] +>> +% 1572 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1578 0 obj +<< +/Type /Page +/Contents 1579 0 R +/Resources 1577 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +>> +% 1580 0 obj +<< +/D [1578 0 R /XYZ 149.705 753.953 null] +>> +% 1581 0 obj +<< +/D [1578 0 R /XYZ 150.705 496.913 null] +>> +% 1582 0 obj +<< +/D [1578 0 R /XYZ 150.705 439.185 null] +>> +% 1583 0 obj +<< +/D [1578 0 R /XYZ 150.705 418.983 null] +>> +% 1577 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1588 0 obj +<< +/Type /Page +/Contents 1589 0 R +/Resources 1587 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +/Annots [ 1584 0 R 1585 0 R 1586 0 R ] +>> +% 1584 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 529.112 372.239 540.237] +/A << /S /GoTo /D (spdata) >> +>> +% 1585 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 461.366 361.779 472.491] +/A << /S /GoTo /D (descdata) >> +>> +% 1586 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [321.343 405.575 388.401 416.7] +/A << /S /GoTo /D (precdata) >> +>> +% 1590 0 obj +<< +/D [1588 0 R /XYZ 98.895 753.953 null] +>> +% 400 0 obj +<< +/D [1588 0 R /XYZ 99.895 720.077 null] +>> +% 1587 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R /F27 572 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1592 0 obj +<< +/Type /Page +/Contents 1593 0 R +/Resources 1591 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +>> +% 1594 0 obj +<< +/D [1592 0 R /XYZ 149.705 753.953 null] +>> +% 405 0 obj +<< +/D [1592 0 R /XYZ 150.705 720.077 null] +>> +% 1591 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1596 0 obj +<< +/Type /Page +/Contents 1597 0 R +/Resources 1595 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +>> +% 1598 0 obj +<< +/D [1596 0 R /XYZ 98.895 753.953 null] +>> +% 1599 0 obj +<< +/D [1596 0 R /XYZ 99.895 702.144 null] +>> +% 1600 0 obj +<< +/D [1596 0 R /XYZ 99.895 668.326 null] +>> +% 1601 0 obj +<< +/D [1596 0 R /XYZ 99.895 624.491 null] +>> +% 1602 0 obj +<< +/D [1596 0 R /XYZ 99.895 556.745 null] +>> +% 1603 0 obj +<< +/D [1596 0 R /XYZ 99.895 500.954 null] +>> +% 1604 0 obj +<< +/D [1596 0 R /XYZ 99.895 468.52 null] +>> +% 1605 0 obj +<< +/D [1596 0 R /XYZ 99.895 425.182 null] +>> +% 1606 0 obj +<< +/D [1596 0 R /XYZ 99.895 383.395 null] +>> +% 1607 0 obj +<< +/D [1596 0 R /XYZ 99.895 355.499 null] +>> +% 1595 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1609 0 obj +<< +/Type /Page +/Contents 1610 0 R +/Resources 1608 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1576 0 R +>> +% 1611 0 obj +<< +/D [1609 0 R /XYZ 149.705 753.953 null] +>> +% 409 0 obj +<< +/D [1609 0 R /XYZ 150.705 716.092 null] +>> +% 1608 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1613 0 obj +<< +/Type /Page +/Contents 1614 0 R +/Resources 1612 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1615 0 obj +<< +/D [1613 0 R /XYZ 98.895 753.953 null] +>> +% 413 0 obj +<< +/D [1613 0 R /XYZ 99.895 720.077 null] +>> +% 1616 0 obj +<< +/D [1613 0 R /XYZ 99.895 235.436 null] +>> +% 1617 0 obj +<< +/D [1613 0 R /XYZ 99.895 213.573 null] +>> +% 1612 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1620 0 obj +<< +/Type /Page +/Contents 1621 0 R +/Resources 1619 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1622 0 obj +<< +/D [1620 0 R /XYZ 149.705 753.953 null] +>> +% 417 0 obj +<< +/D [1620 0 R /XYZ 150.705 720.077 null] +>> +% 1623 0 obj +<< +/D [1620 0 R /XYZ 150.705 349.01 null] +>> +% 1624 0 obj +<< +/D [1620 0 R /XYZ 150.705 315.192 null] +>> +% 1619 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1626 0 obj +<< +/Type /Page +/Contents 1627 0 R +/Resources 1625 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1628 0 obj +<< +/D [1626 0 R /XYZ 98.895 753.953 null] +>> +% 421 0 obj +<< +/D [1626 0 R /XYZ 99.895 720.077 null] +>> +% 1629 0 obj +<< +/D [1626 0 R /XYZ 99.895 442.659 null] +>> +% 1630 0 obj +<< +/D [1626 0 R /XYZ 99.895 396.886 null] +>> +% 1631 0 obj +<< +/D [1626 0 R /XYZ 99.895 365.005 null] +>> +% 1625 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1633 0 obj +<< +/Type /Page +/Contents 1634 0 R +/Resources 1632 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1635 0 obj +<< +/D [1633 0 R /XYZ 149.705 753.953 null] +>> +% 425 0 obj +<< +/D [1633 0 R /XYZ 150.705 720.077 null] +>> +% 1632 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1637 0 obj +<< +/Type /Page +/Contents 1638 0 R +/Resources 1636 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1639 0 obj +<< +/D [1637 0 R /XYZ 98.895 753.953 null] +>> +% 429 0 obj +<< +/D [1637 0 R /XYZ 99.895 720.077 null] +>> +% 1636 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1641 0 obj +<< +/Type /Page +/Contents 1642 0 R +/Resources 1640 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1618 0 R +>> +% 1643 0 obj +<< +/D [1641 0 R /XYZ 149.705 753.953 null] +>> +% 433 0 obj +<< +/D [1641 0 R /XYZ 150.705 720.077 null] +>> +% 1640 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1645 0 obj +<< +/Type /Page +/Contents 1646 0 R +/Resources 1644 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1647 0 obj +<< +/D [1645 0 R /XYZ 98.895 753.953 null] +>> +% 437 0 obj +<< +/D [1645 0 R /XYZ 99.895 720.077 null] +>> +% 1644 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1650 0 obj +<< +/Type /Page +/Contents 1651 0 R +/Resources 1649 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1652 0 obj +<< +/D [1650 0 R /XYZ 149.705 753.953 null] +>> +% 441 0 obj +<< +/D [1650 0 R /XYZ 150.705 720.077 null] +>> +% 1649 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1654 0 obj +<< +/Type /Page +/Contents 1655 0 R +/Resources 1653 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1656 0 obj +<< +/D [1654 0 R /XYZ 98.895 753.953 null] +>> +% 445 0 obj +<< +/D [1654 0 R /XYZ 99.895 720.077 null] +>> +% 1653 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1658 0 obj +<< +/Type /Page +/Contents 1659 0 R +/Resources 1657 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1660 0 obj +<< +/D [1658 0 R /XYZ 149.705 753.953 null] +>> +% 449 0 obj +<< +/D [1658 0 R /XYZ 150.705 720.077 null] +>> +% 1661 0 obj +<< +/D [1658 0 R /XYZ 150.705 247.391 null] +>> +% 1662 0 obj +<< +/D [1658 0 R /XYZ 150.705 213.573 null] +>> +% 1657 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1664 0 obj +<< +/Type /Page +/Contents 1665 0 R +/Resources 1663 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1666 0 obj +<< +/D [1664 0 R /XYZ 98.895 753.953 null] +>> +% 453 0 obj +<< +/D [1664 0 R /XYZ 99.895 720.077 null] +>> +% 1667 0 obj +<< +/D [1664 0 R /XYZ 99.895 247.391 null] +>> +% 1668 0 obj +<< +/D [1664 0 R /XYZ 99.895 213.573 null] +>> + +endstream +endobj +1672 0 obj +<< +/Length 5183 >> stream 0 g 0 G @@ -19843,7 +21077,67 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(amx)-375(|)-375(Global)-375(maxim)31(um)-375(absolute)-375(v)63(alue)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(min)-375(|)-375(Global)-375(minim)31(um)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_min\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-311(subroutine)-312(implemen)28(ts)-311(a)-312(minim)28(um)-311(v)55(alue)-311(reduction)-312(op)-27(eration)-312(based)-311(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ +0 g 0 G +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(minim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as:)-442(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-27(e)-1(,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cesse)-1(s.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(ro)-32(ot)]TJ +0 g 0 G +/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-276(v)56(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(pr)1(o)-28(cesses)-1(.)]TJ -155.183 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.748 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ +0 g 0 G +/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(dat)]TJ +0 g 0 G +/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as:)-442(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.011 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ +0 g 0 G + -12.73 -19.925 Td [(2.)]TJ +0 g 0 G + [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ +0 g 0 G + 99.987 -109.132 Td [(120)]TJ +0 g 0 G +ET + +endstream +endobj +1678 0 obj +<< +/Length 5239 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(amx)-375(|)-375(Global)-375(maxim)31(um)-375(absolute)-375(v)63(alue)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_amx\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-312(subroutine)-312(implemen)28(ts)-313(a)-312(maxim)28(um)-312(absolute)-312(v)55(alue)-312(reduction)-312(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ @@ -19857,71 +21151,11 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(maxim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-276(v)56(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(pr)1(o)-28(cesses)-1(.)]TJ -155.183 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.748 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.956 Td [(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.011 -11.955 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G - 99.987 -97.177 Td [(116)]TJ -0 g 0 G -ET - -endstream -endobj -1626 0 obj -<< -/Length 5248 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(amn)-375(|)-375(Global)-375(minim)31(um)-375(absolute)-375(v)63(alue)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_amn\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-336(s)-1(u)1(broutine)-337(implemen)28(ts)-337(a)-336(minim)28(um)-337(absolute)-336(v)55(alue)-336(reduction)-336(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(minim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(maxim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ 0 g 0 G @@ -19932,7 +21166,7 @@ BT 0 g 0 G 0 -19.926 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-334(2)-333(arra)28(y)83(.)]TJ 0 -11.956 Td [(T)28(yp)-28(e,)-333(kind,)-334(r)1(ank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ +/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.956 Td [(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G @@ -19942,15 +21176,15 @@ BT 0 g 0 G [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G - 99.986 -97.177 Td [(117)]TJ + 99.986 -97.177 Td [(121)]TJ 0 g 0 G ET endstream endobj -1632 0 obj +1685 0 obj << -/Length 6223 +/Length 5273 >> stream 0 g 0 G @@ -19963,65 +21197,54 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(nrm2)-375(|)-375(Global)-375(2-norm)-375(reduction)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(amn)-375(|)-375(Global)-375(minim)31(um)-375(absolute)-375(v)63(alue)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_nrm2\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -19.604 Td [(This)-425(subroutine)-425(implem)-1(en)28(ts)-425(a)-425(2-norm)-426(v)56(alue)-425(reduction)-426(op)-27(eration)-426(based)-425(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_amn\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-336(subroutine)-337(implemen)28(ts)-337(a)-336(minim)28(um)-337(absolute)-336(v)55(al)1(ue)-337(reduction)-336(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ 0 g 0 G -/F27 9.9626 Tf 0 -18.074 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -/F27 9.9626 Tf -33.797 -19 Td [(On)-383(En)32(try)]TJ +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19 Td [(icon)32(txt)]TJ + 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19 Td [(dat)]TJ +/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(minim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-421(as:)-619(a)-421(real)-421(v)55(ariable,)-443(whic)28(h)-421(ma)28(y)-421(b)-28(e)-421(a)-421(scalar,)-443(or)-420(a)-421(rank)-421(1)-421(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ces)-1(ses.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(minim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19 Td [(ro)-32(ot)]TJ +/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ 0 g 0 G /F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-276(v)56(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(pr)1(o)-28(cesses)-1(.)]TJ -155.183 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.748 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ 0 g 0 G -/F27 9.9626 Tf -251.325 -31.559 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19 Td [(dat)]TJ + 0 -19.926 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(2-norm)-333(reduction.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(real)-333(v)55(ariabl)1(e)-1(,)-333(whic)28(h)-333(ma)27(y)-333(b)-28(e)-333(a)-333(scalar,)-334(or)-333(a)-333(rank)-334(1)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ces)-1(ses.)]TJ/F16 11.9552 Tf -24.907 -19.603 Td [(Notes)]TJ +/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-333(2)-334(arra)28(y)83(.)]TJ 0 -11.956 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -18.075 Td [(1.)]TJ +/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G - [-500(This)-416(reduction)-416(is)-416(appropriate)-416(to)-416(compute)-416(the)-417(r)1(e)-1(sult)1(s)-417(of)-416(m)28(ultiple)-416(\050lo)-28(cal\051)]TJ 12.73 -11.955 Td [(NRM2)-333(op)-28(erations)-333(at)-334(the)-333(same)-333(time)-1(.)]TJ + [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.011 -11.955 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ 0 g 0 G - -12.73 -18.999 Td [(2.)]TJ + -12.73 -19.925 Td [(2.)]TJ 0 g 0 G - [-500(Denoting)-283(b)28(y)]TJ/F11 9.9626 Tf 68.601 0 Td [(dat)]TJ/F10 6.9738 Tf 14.049 -1.495 Td [(i)]TJ/F8 9.9626 Tf 6.139 1.495 Td [(the)-283(v)55(alue)-283(of)-283(the)-283(v)55(ariabl)1(e)]TJ/F11 9.9626 Tf 106.289 0 Td [(dat)]TJ/F8 9.9626 Tf 16.871 0 Td [(on)-283(pro)-28(cess)]TJ/F11 9.9626 Tf 47.569 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(,)-293(the)-283(output)]TJ/F11 9.9626 Tf 54.504 0 Td [(r)-28(es)]TJ/F8 9.9626 Tf -304.724 -11.956 Td [(is)-333(equiv)55(alen)28(t)-333(to)-334(the)-333(computation)-333(of)]TJ/F11 9.9626 Tf 122.07 -25.714 Td [(r)-28(es)]TJ/F8 9.9626 Tf 16.848 0 Td [(=)]TJ/F1 9.9626 Tf 10.516 14.335 Td [(s)]TJ -ET -q -1 0 0 1 335.008 204.589 cm -[]0 d 0 J 0.398 w 0 0 m 34.569 0 l S -Q -BT -/F1 9.9626 Tf 335.008 199.519 Td [(X)]TJ/F10 6.9738 Tf 5.786 -21.219 Td [(i)]TJ/F11 9.9626 Tf 10.265 11.754 Td [(dat)]TJ/F7 6.9738 Tf 14.05 3.432 Td [(2)]TJ/F10 6.9738 Tf 0 -6.209 Td [(i)]TJ/F11 9.9626 Tf 4.469 2.777 Td [(;)]TJ/F8 9.9626 Tf -193.967 -30.717 Td [(with)-333(care)-334(tak)28(en)-333(to)-334(a)28(v)28(oid)-333(unnecessary)-334(o)28(v)28(er\015o)28(w.)]TJ + [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G - -12.73 -19 Td [(3.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.47 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.955 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - 139.477 -37.944 Td [(118)]TJ + 99.987 -97.177 Td [(122)]TJ 0 g 0 G ET endstream endobj -1640 0 obj +1691 0 obj << -/Length 5346 +/Length 6213 >> stream 0 g 0 G @@ -20034,51 +21257,65 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(snd)-375(|)-375(Send)-375(data)]TJ +/F16 11.9552 Tf 124.986 706.129 Td [(nrm2)-375(|)-375(Global)-375(2-norm)-375(reduction)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_snd\050icontxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(sends)-333(a)-333(pac)27(k)28(et)-333(of)-333(data)-334(to)-333(a)-333(destination.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_nrm2\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -19.794 Td [(This)-425(subroutine)-426(imp)1(le)-1(men)28(ts)-425(a)-425(2-norm)-426(v)56(alue)-425(reduction)-426(op)-27(eration)-426(based)-425(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ 0 g 0 G -/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -18.226 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous:)-445(see)-333(usage)-333(notes.)]TJ +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +/F27 9.9626 Tf -33.797 -19.076 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ + 0 -19.076 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ +/F27 9.9626 Tf -24.907 -19.076 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(sen)28(t.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)27(y)84(,)-393(or)-381(a)-381(c)27(har)1(ac)-1(ter)-381(or)-381(logical)-381(scalar.)-969(T)28(yp)-27(e)-1(,)-393(ki)1(nd)-381(and)]TJ 0 -11.955 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)27(er)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(not)-327(sp)-28(eci\014ed,)-329(size)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(minim)28(um.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-421(as:)-619(a)-421(real)-421(v)55(ariable,)-443(whic)28(h)-421(ma)28(y)-421(b)-28(e)-421(a)-421(scalar,)-443(or)-421(a)-420(rank)-421(1)-421(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ce)-1(sses.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(dst)]TJ +/F27 9.9626 Tf -24.907 -19.075 Td [(ro)-32(ot)]TJ 0 g 0 G -/F8 9.9626 Tf 20.321 0 Td [(Destination)-333(pro)-28(cess.)]TJ 4.586 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(dst)-278(<)]TJ/F8 9.9626 Tf 23.969 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1.)]TJ +/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-275(v)55(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(p)1(ro)-28(cesses.)]TJ -155.184 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ 0 g 0 G -/F27 9.9626 Tf -239.002 -31.881 Td [(m)]TJ +/F27 9.9626 Tf -251.325 -31.749 Td [(On)-383(Return)]TJ 0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.264 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.956 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leading)-285(dimension)]TJ/F11 9.9626 Tf 153.742 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(ust)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(alu)1(e)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ + 0 -19.076 Td [(dat)]TJ 0 g 0 G -/F16 11.9552 Tf 0 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(2-norm)-333(reduction.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(v)55(ariable,)-333(whic)28(h)-333(ma)27(y)-333(b)-28(e)-333(a)-333(sc)-1(alar)1(,)-334(or)-333(a)-333(rank)-334(1)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ce)-1(sses.)]TJ/F16 11.9552 Tf -24.907 -19.794 Td [(Notes)]TJ 0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +/F8 9.9626 Tf 12.177 -18.226 Td [(1.)]TJ 0 g 0 G - [-500(This)-402(subroutine)-403(implies)-402(a)-402(s)-1(yn)1(c)27(hronization,)-419(but)-403(on)1(ly)-403(b)-28(et)28(w)28(een)-403(the)-402(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(destination)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 157.521 0 Td [(dst)]TJ/F8 9.9626 Tf 13.453 0 Td [(.)]TJ + [-500(This)-416(reduction)-416(is)-416(appropriate)-416(to)-416(compute)-416(the)-417(results)-416(of)-416(m)28(ultiple)-416(\050lo)-28(cal\051)]TJ 12.73 -11.955 Td [(NRM2)-333(op)-28(erations)-333(at)-334(the)-333(same)-334(ti)1(m)-1(e.)]TJ 0 g 0 G - -31.497 -105.147 Td [(119)]TJ + -12.73 -19.076 Td [(2.)]TJ +0 g 0 G + [-500(Denoting)-283(b)28(y)]TJ/F11 9.9626 Tf 68.601 0 Td [(dat)]TJ/F10 6.9738 Tf 14.05 -1.494 Td [(i)]TJ/F8 9.9626 Tf 6.138 1.494 Td [(the)-283(v)55(alue)-283(of)-283(the)-283(v)55(ariable)]TJ/F11 9.9626 Tf 106.29 0 Td [(dat)]TJ/F8 9.9626 Tf 16.87 0 Td [(on)-283(pro)-28(cess)]TJ/F11 9.9626 Tf 47.57 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(,)-293(the)-283(output)]TJ/F11 9.9626 Tf 54.503 0 Td [(r)-28(es)]TJ/F8 9.9626 Tf -304.724 -11.955 Td [(is)-333(equiv)55(alen)28(t)-333(to)-334(the)-333(computation)-333(of)]TJ/F11 9.9626 Tf 122.071 -25.904 Td [(r)-28(es)]TJ/F8 9.9626 Tf 16.847 0 Td [(=)]TJ/F1 9.9626 Tf 10.516 14.335 Td [(s)]TJ +ET +q +1 0 0 1 284.199 203.069 cm +[]0 d 0 J 0.398 w 0 0 m 34.569 0 l S +Q +BT +/F1 9.9626 Tf 284.199 197.999 Td [(X)]TJ/F10 6.9738 Tf 5.786 -21.219 Td [(i)]TJ/F11 9.9626 Tf 10.265 11.755 Td [(dat)]TJ/F7 6.9738 Tf 14.049 3.431 Td [(2)]TJ/F10 6.9738 Tf 0 -6.208 Td [(i)]TJ/F11 9.9626 Tf 4.469 2.777 Td [(;)]TJ/F8 9.9626 Tf -193.966 -30.908 Td [(with)-333(care)-334(tak)28(en)-333(to)-334(a)28(v)28(oid)-333(unnecessary)-334(o)28(v)28(er\015o)28(w.)]TJ +0 g 0 G + -12.73 -19.075 Td [(3.)]TJ +0 g 0 G + [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ +0 g 0 G + 139.477 -36.158 Td [(123)]TJ 0 g 0 G ET endstream endobj -1645 0 obj +1699 0 obj << -/Length 5364 +/Length 5369 >> stream 0 g 0 G @@ -20091,10 +21328,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 175.796 706.129 Td [(rcv)-375(|)-375(Receiv)31(e)-375(data)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(snd)-375(|)-375(Send)-375(data)]TJ 0 g 0 G 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_rcv\050icontxt,)-525(dat,)-525(src,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(receiv)28(es)-333(a)-334(pac)28(k)28(et)-333(of)-334(data)-333(to)-333(a)-334(destination.)]TJ +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_snd\050icontxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(sends)-333(a)-333(pac)28(k)27(et)-333(of)-333(data)-334(to)-333(a)-333(destination.)]TJ 0 g 0 G /F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -20107,58 +21344,115 @@ BT 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ +0 g 0 G +/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(sen)28(t.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)28(y)83(,)-393(or)-381(a)-381(c)28(haracte)-1(r)-381(or)-381(logical)-381(scalar.)-968(T)27(yp)-27(e,)-393(kind)-381(and)]TJ 0 -11.955 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)28(e)-1(r)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(n)1(o)-1(t)-327(sp)-28(eci\014ed,)-328(s)-1(ize)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.926 Td [(dst)]TJ +0 g 0 G +/F8 9.9626 Tf 20.321 0 Td [(Destination)-333(pro)-28(cess.)]TJ 4.586 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(dst)-278(<)]TJ/F8 9.9626 Tf 23.969 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1.)]TJ +0 g 0 G +/F27 9.9626 Tf -239.002 -31.881 Td [(m)]TJ +0 g 0 G +/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.263 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.956 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leadin)1(g)-286(dimension)]TJ/F11 9.9626 Tf 153.741 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(u)1(s)-1(t)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(al)1(ue)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +/F16 11.9552 Tf 0 -21.918 Td [(Notes)]TJ +0 g 0 G +/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ +0 g 0 G + [-500(This)-402(subroutine)-403(implies)-402(a)-402(sync)27(hronization,)-419(but)-403(on)1(ly)-403(b)-28(et)28(w)28(een)-403(th)1(e)-403(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(destination)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 157.52 0 Td [(dst)]TJ/F8 9.9626 Tf 13.453 0 Td [(.)]TJ +0 g 0 G + -31.496 -105.147 Td [(124)]TJ +0 g 0 G +ET + +endstream +endobj +1704 0 obj +<< +/Length 5352 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +ET +q +1 0 0 1 120.951 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 124.986 706.129 Td [(rcv)-375(|)-375(Receiv)31(e)-375(data)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_rcv\050icontxt,)-525(dat,)-525(src,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(receiv)28(es)-333(a)-334(pac)28(k)28(et)-333(of)-334(data)-333(to)-333(a)-334(destination.)]TJ +0 g 0 G +/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ +0 g 0 G +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous:)-445(see)-333(usage)-333(notes.)]TJ +0 g 0 G +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(icon)32(txt)]TJ +0 g 0 G +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ +0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(src)]TJ 0 g 0 G -/F8 9.9626 Tf 19.311 0 Td [(Source)-333(pro)-28(cess.)]TJ 5.596 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(sr)-28(c)-277(<)]TJ/F8 9.9626 Tf 24.269 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1.)]TJ +/F8 9.9626 Tf 19.311 0 Td [(Source)-333(pro)-28(cess.)]TJ 5.596 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(sr)-28(c)-277(<)]TJ/F8 9.9626 Tf 24.269 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1.)]TJ 0 g 0 G /F27 9.9626 Tf -239.302 -31.88 Td [(m)]TJ 0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.263 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.955 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leadin)1(g)-286(dimension)]TJ/F11 9.9626 Tf 153.741 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(u)1(s)-1(t)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(al)1(ue)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ +/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.264 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.955 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leading)-285(dimension)]TJ/F11 9.9626 Tf 153.742 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(ust)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(alu)1(e)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(dat)]TJ 0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(receiv)28(ed.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(teg)-1(er,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)28(y)83(,)-393(or)-381(a)-381(c)27(h)1(aracte)-1(r)-381(or)-381(logical)-381(scalar.)-968(T)27(yp)-27(e,)-393(kind)-381(and)]TJ 0 -11.956 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)27(er)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(not)-327(sp)-28(eci\014ed,)-328(s)-1(ize)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(receiv)28(ed.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)27(y)84(,)-393(or)-381(a)-381(c)27(har)1(ac)-1(ter)-381(or)-381(logical)-381(scalar.)-969(T)28(yp)-27(e)-1(,)-393(ki)1(nd)-381(and)]TJ 0 -11.956 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)27(er)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(not)-327(sp)-28(eci\014ed,)-329(size)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G - [-500(This)-402(subroutine)-403(implies)-402(a)-402(sync)27(hronization,)-419(but)-403(on)1(ly)-403(b)-28(et)28(w)28(een)-403(th)1(e)-403(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(source)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 136.516 0 Td [(sr)-28(c)]TJ/F8 9.9626 Tf 13.753 0 Td [(.)]TJ + [-500(This)-402(subroutine)-403(implies)-402(a)-402(s)-1(yn)1(c)27(hronization,)-419(but)-403(onl)1(y)-403(b)-28(et)28(w)28(een)-403(the)-402(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(source)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 136.516 0 Td [(sr)-28(c)]TJ/F8 9.9626 Tf 13.753 0 Td [(.)]TJ 0 g 0 G - -10.792 -105.147 Td [(120)]TJ + -10.792 -105.147 Td [(125)]TJ 0 g 0 G ET endstream endobj -1652 0 obj +1711 0 obj << -/Length 6381 +/Length 6407 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 99.895 706.129 Td [(8)-1125(Error)-375(handling)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-446(PSBLAS)-446(library)-446(error)-446(handling)-446(p)-28(olicy)-446(has)-446(b)-28(een)-446(completely)-446(rewritten)-446(in)]TJ 0 -11.955 Td [(v)28(ersion)-448(2.0.)-788(The)-448(idea)-448(b)-27(ehind)-448(the)-448(design)-448(of)-447(this)-448(new)-448(error)-448(handling)-447(strategy)]TJ 0 -11.955 Td [(is)-491(to)-492(k)28(eep)-491(error)-491(me)-1(ssages)-491(on)-491(a)-492(stac)28(k)-491(allo)28(wing)-492(the)-491(user)-491(to)-491(trace)-492(bac)28(k)-491(up)-492(to)]TJ 0 -11.956 Td [(the)-401(p)-27(oin)27(t)-400(where)-401(the)-400(\014rst)-401(error)-400(me)-1(ssage)-400(has)-401(b)-28(een)-400(generated.)-646(Ev)27(ery)-400(routine)-401(in)]TJ 0 -11.955 Td [(the)-442(PS)1(B)-1(LAS)1(-)-1(2.0)-441(library)-441(has,)-469(as)-442(last)-441(non-optional)-441(argume)-1(n)28(t,)-468(an)-442(in)28(teger)]TJ/F30 9.9626 Tf 322.79 0 Td [(info)]TJ/F8 9.9626 Tf -322.79 -11.955 Td [(v)56(ariable;)-385(whenev)28(er,)-376(inside)-368(the)-367(routine,)-376(an)-368(error)-367(is)-368(detected,)-376(this)-367(v)55(ariable)-367(is)-368(set)]TJ 0 -11.955 Td [(to)-381(a)-380(v)55(alue)-380(corresp)-28(onding)-380(to)-381(a)-380(sp)-28(eci\014c)-381(error)-380(co)-28(de.)-586(Then)-381(this)-380(error)-381(co)-28(de)-380(is)-381(also)]TJ 0 -11.955 Td [(pushed)-245(on)-245(the)-245(error)-245(stac)28(k)-245(and)-245(then)-245(either)-245(con)27(trol)-245(is)-245(return)1(e)-1(d)-245(to)-245(the)-245(caller)-245(routine)]TJ 0 -11.955 Td [(or)-372(the)-372(execution)-371(is)-372(ab)-28(orted,)-381(dep)-28(ending)-372(on)-371(the)-372(users)-372(c)28(hoice.)-560(A)28(t)-372(the)-372(time)-371(when)]TJ 0 -11.956 Td [(the)-364(execution)-363(is)-364(ab)-28(orted,)-371(an)-364(error)-364(message)-363(is)-364(prin)28(ted)-364(on)-364(standard)-363(output)-364(with)]TJ 0 -11.955 Td [(a)-448(lev)28(el)-448(of)-447(v)27(erb)-27(osit)27(y)-447(than)-448(can)-448(b)-27(e)-448(c)28(hosen)-448(b)28(y)-448(the)-448(user.)-787(If)-448(the)-448(execution)-447(is)-448(not)]TJ 0 -11.955 Td [(ab)-28(orted,)-328(then,)-329(the)-328(caller)-327(routine)-328(c)28(hec)28(ks)-328(the)-328(v)56(alue)-328(retur)1(ned)-328(in)-328(the)]TJ/F30 9.9626 Tf 285.46 0 Td [(info)]TJ/F8 9.9626 Tf 24.185 0 Td [(v)56(ariable)]TJ -309.645 -11.955 Td [(and,)-359(if)-354(not)-354(zero,)-359(an)-353(e)-1(r)1(ror)-354(condition)-354(is)-354(raised.)-506(This)-354(pro)-28(cess)-354(con)28(tin)28(ues)-354(on)-354(all)-354(the)]TJ 0 -11.955 Td [(lev)28(els)-297(of)-297(nested)-296(calls)-297(un)28(til)-297(the)-296(lev)28(e)-1(l)-296(where)-297(the)-296(user)-297(decides)-297(to)-296(ab)-28(ort)-297(the)-296(program)]TJ 0 -11.955 Td [(execution.)]TJ 14.944 -11.956 Td [(Figure)]TJ +/F16 14.3462 Tf 150.705 706.129 Td [(8)-1125(Error)-375(handling)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-446(PSBLAS)-446(library)-446(error)-446(handling)-446(p)-28(olicy)-446(has)-446(b)-28(een)-446(completely)-446(rewritten)-446(in)]TJ 0 -11.955 Td [(v)28(ersion)-448(2.0.)-788(The)-448(idea)-448(b)-27(ehind)-448(the)-448(design)-448(of)-447(this)-448(new)-448(error)-448(handling)-447(strategy)]TJ 0 -11.955 Td [(is)-491(to)-492(k)28(eep)-491(error)-491(mes)-1(sages)-491(on)-491(a)-492(stac)28(k)-491(allo)28(wing)-492(th)1(e)-492(user)-491(to)-491(trace)-492(bac)28(k)-491(up)-492(t)1(o)]TJ 0 -11.956 Td [(the)-401(p)-27(oin)28(t)-401(where)-401(the)-400(\014rst)-401(error)-400(mes)-1(sage)-400(has)-401(b)-28(een)-400(generated.)-646(Ev)27(ery)-400(routine)-401(in)]TJ 0 -11.955 Td [(the)-442(P)1(SBLAS-2.0)-442(library)-441(has,)-469(as)-442(l)1(as)-1(t)-441(non-optional)-441(argumen)27(t,)-468(an)-442(in)28(teger)]TJ/F30 9.9626 Tf 322.79 0 Td [(info)]TJ/F8 9.9626 Tf -322.79 -11.955 Td [(v)56(ariable;)-385(whenev)28(er,)-376(inside)-368(the)-367(routine,)-376(an)-368(error)-367(is)-368(detected,)-376(this)-367(v)55(ariab)1(le)-368(is)-368(set)]TJ 0 -11.955 Td [(to)-381(a)-380(v)55(alu)1(e)-381(corresp)-28(onding)-380(to)-381(a)-380(sp)-28(eci\014c)-381(error)-380(co)-28(de.)-586(Then)-381(this)-380(error)-381(co)-28(de)-380(is)-381(also)]TJ 0 -11.955 Td [(pushed)-245(on)-245(the)-245(error)-245(stac)28(k)-245(and)-245(then)-245(either)-245(con)27(tr)1(ol)-245(is)-246(retur)1(ned)-245(to)-246(th)1(e)-246(caller)-245(routin)1(e)]TJ 0 -11.955 Td [(or)-372(the)-371(e)-1(xecution)-371(is)-372(ab)-28(orted,)-381(dep)-28(ending)-372(on)-371(the)-372(users)-372(c)28(hoice.)-560(A)28(t)-372(the)-372(time)-371(when)]TJ 0 -11.956 Td [(the)-364(execution)-363(is)-364(ab)-28(orted,)-371(an)-364(error)-364(message)-363(is)-364(prin)28(ted)-364(on)-364(standard)-363(output)-364(with)]TJ 0 -11.955 Td [(a)-448(lev)28(el)-448(of)-447(v)27(erb)-27(osit)27(y)-447(than)-448(can)-448(b)-27(e)-448(c)28(hosen)-448(b)28(y)-448(the)-448(user.)-787(If)-448(the)-448(execution)-447(is)-448(not)]TJ 0 -11.955 Td [(ab)-28(orted,)-328(then,)-329(the)-328(caller)-327(routine)-328(c)28(hec)28(ks)-328(the)-327(v)55(alue)-327(returned)-328(in)-327(the)]TJ/F30 9.9626 Tf 285.459 0 Td [(info)]TJ/F8 9.9626 Tf 24.185 0 Td [(v)56(ariable)]TJ -309.644 -11.955 Td [(and,)-359(if)-354(not)-354(zero,)-359(an)-353(error)-354(condition)-354(is)-354(raised.)-506(This)-354(pro)-28(cess)-354(con)28(tin)28(ues)-354(on)-354(all)-354(th)1(e)]TJ 0 -11.955 Td [(lev)28(els)-297(of)-296(nes)-1(ted)-296(calls)-297(un)28(til)-297(the)-296(lev)28(el)-297(where)-297(the)-296(user)-297(decides)-297(to)-296(ab)-28(ort)-297(the)-296(program)]TJ 0 -11.955 Td [(execution.)]TJ 14.944 -11.956 Td [(Figure)]TJ 0 0 1 rg 0 0 1 RG [-353(9)]TJ 0 g 0 G - [-353(sho)28(ws)-353(the)-353(la)28(y)27(out)-353(of)-353(a)-353(generic)]TJ/F30 9.9626 Tf 170.683 0 Td [(psb_foo)]TJ/F8 9.9626 Tf 40.129 0 Td [(routine)-353(with)-353(resp)-28(ect)-353(to)-353(the)]TJ -225.756 -11.955 Td [(PSBLAS-2.0)-326(error)-326(handl)1(ing)-326(p)-28(olicy)83(.)-442(It)-325(is)-326(p)-28(ossible)-326(to)-326(see)-326(ho)28(w,)-327(whenev)27(er)-325(an)-326(error)]TJ 0 -11.955 Td [(condition)-379(is)-378(detected,)-390(the)]TJ/F30 9.9626 Tf 115.439 0 Td [(info)]TJ/F8 9.9626 Tf 24.694 0 Td [(v)56(ariable)-379(is)-379(set)-379(to)-378(the)-379(corresp)-28(onding)-378(error)-379(co)-28(de)]TJ -140.133 -11.955 Td [(whic)28(h)-376(is,)-387(then,)-386(pushed)-376(on)-376(top)-376(of)-376(the)-376(stac)28(k)-376(b)28(y)-376(means)-376(of)-376(the)]TJ/F30 9.9626 Tf 264.703 0 Td [(psb_errpush)]TJ/F8 9.9626 Tf 57.533 0 Td [(.)-572(An)]TJ -322.236 -11.955 Td [(error)-331(condition)-331(ma)28(y)-331(b)-28(e)-331(directly)-331(detected)-331(inside)-331(a)-331(routine)-331(or)-331(indirectly)-331(c)27(hec)28(king)]TJ 0 -11.956 Td [(the)-462(error)-461(co)-28(de)-461(returned)-462(returned)-461(b)28(y)-462(a)-461(called)-462(routine.)-829(Whenev)28(er)-461(an)-462(error)-461(is)]TJ 0 -11.955 Td [(encoun)28(tered,)-459(after)-434(it)-434(has)-434(b)-27(een)-434(pushed)-434(on)-434(stac)28(k,)-459(the)-434(program)-433(exec)-1(u)1(tion)-434(skips)]TJ 0 -11.955 Td [(to)-356(a)-356(p)-27(oin)28(t)-356(where)-356(the)-356(error)-355(c)-1(on)1(dition)-356(is)-356(handled;)-367(the)-355(e)-1(r)1(ror)-356(condition)-356(is)-356(hand)1(le)-1(d)]TJ 0 -11.955 Td [(either)-392(b)28(y)-392(returning)-392(con)28(trol)-392(to)-392(the)-392(caller)-392(r)1(outine)-392(or)-392(b)28(y)-392(calling)-392(the)]TJ/F30 9.9626 Tf 291.408 0 Td [(psb\134_error)]TJ/F8 9.9626 Tf -291.408 -11.955 Td [(routine)-478(whic)28(h)-479(prin)28(ts)-478(the)-478(con)28(ten)27(t)-478(of)-478(the)-478(error)-479(stac)28(k)-478(and)-478(ab)-28(orts)-478(the)-478(program)]TJ 0 -11.955 Td [(execution,)-330(accordin)1(g)-329(to)-329(th)1(e)-329(c)28(hoice)-329(made)-328(b)27(y)-328(the)-329(user)-328(with)]TJ/F30 9.9626 Tf 252.028 0 Td [(psb_set_erraction)]TJ/F8 9.9626 Tf 88.916 0 Td [(.)]TJ -340.944 -11.956 Td [(The)-347(default)-346(is)-347(to)-346(prin)28(t)-347(the)-347(error)-346(and)-347(terminate)-346(the)-347(program,)-350(but)-346(the)-347(user)-346(ma)27(y)]TJ 0 -11.955 Td [(c)28(ho)-28(ose)-333(to)-334(handle)-333(the)-333(error)-334(explicitly)84(.)]TJ 14.944 -11.955 Td [(Figure)]TJ + [-353(sho)28(ws)-353(the)-353(la)28(y)27(out)-353(of)-352(a)-353(ge)-1(n)1(e)-1(ri)1(c)]TJ/F30 9.9626 Tf 170.683 0 Td [(psb_foo)]TJ/F8 9.9626 Tf 40.129 0 Td [(routine)-353(with)-353(resp)-28(ect)-353(to)-353(the)]TJ -225.756 -11.955 Td [(PSBLAS-2.0)-326(error)-326(hand)1(ling)-326(p)-28(olicy)83(.)-442(It)-325(is)-326(p)-28(ossible)-326(to)-326(see)-326(ho)28(w,)-327(whenev)28(e)-1(r)-325(an)-326(error)]TJ 0 -11.955 Td [(condition)-379(is)-378(detected,)-390(the)]TJ/F30 9.9626 Tf 115.439 0 Td [(info)]TJ/F8 9.9626 Tf 24.694 0 Td [(v)56(ariable)-379(is)-379(set)-379(to)-378(the)-379(corresp)-28(onding)-378(error)-379(co)-28(de)]TJ -140.133 -11.955 Td [(whic)28(h)-376(is,)-387(then,)-386(pushed)-376(on)-376(top)-376(of)-376(the)-376(stac)28(k)-376(b)28(y)-376(means)-376(of)-376(the)]TJ/F30 9.9626 Tf 264.702 0 Td [(psb_errpush)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)-572(An)]TJ -322.236 -11.955 Td [(error)-331(condition)-331(ma)28(y)-331(b)-28(e)-331(directly)-331(detected)-331(inside)-331(a)-331(routine)-331(or)-331(indirectly)-331(c)27(h)1(e)-1(c)28(king)]TJ 0 -11.956 Td [(the)-461(e)-1(rr)1(or)-462(co)-28(de)-461(returned)-462(returned)-461(b)28(y)-462(a)-461(called)-462(routine.)-829(Whenev)28(er)-461(an)-462(error)-461(is)]TJ 0 -11.955 Td [(encoun)28(tered,)-459(after)-434(it)-434(has)-433(b)-28(een)-434(pushed)-434(on)-434(stac)28(k,)-459(the)-434(program)-433(execution)-434(skips)]TJ 0 -11.955 Td [(to)-356(a)-356(p)-27(oin)28(t)-356(where)-356(the)-356(error)-355(condition)-356(is)-356(handled;)-367(the)-355(error)-356(condition)-356(is)-356(han)1(dled)]TJ 0 -11.955 Td [(either)-392(b)28(y)-392(returning)-392(con)28(trol)-392(to)-392(the)-392(caller)-391(routine)-392(or)-392(b)28(y)-392(calling)-392(the)]TJ/F30 9.9626 Tf 291.408 0 Td [(psb\134_error)]TJ/F8 9.9626 Tf -291.408 -11.955 Td [(routine)-478(whic)28(h)-479(pr)1(in)27(ts)-478(the)-478(con)28(ten)27(t)-478(of)-478(the)-478(error)-478(s)-1(tac)28(k)-478(and)-478(ab)-28(orts)-478(the)-478(program)]TJ 0 -11.955 Td [(execution,)-329(ac)-1(cord)1(ing)-329(to)-328(the)-329(c)28(hoice)-329(made)-328(b)27(y)-328(the)-329(user)-328(with)]TJ/F30 9.9626 Tf 252.028 0 Td [(psb_set_erraction)]TJ/F8 9.9626 Tf 88.916 0 Td [(.)]TJ -340.944 -11.956 Td [(The)-347(default)-346(is)-347(to)-346(prin)28(t)-347(the)-347(error)-346(and)-347(terminate)-346(the)-347(program,)-350(but)-346(the)-347(user)-346(ma)27(y)]TJ 0 -11.955 Td [(c)28(ho)-28(ose)-333(to)-334(handle)-333(the)-333(error)-334(explicitly)84(.)]TJ 14.944 -11.955 Td [(Figure)]TJ 0 0 1 rg 0 0 1 RG [-479(10)]TJ 0 g 0 G - [-479(rep)-28(orts)-479(a)-479(sample)-480(error)-479(message)-479(generated)-479(b)28(y)-480(the)-479(PSBLAS-2.0)]TJ -14.944 -11.955 Td [(library)83(.)-451(This)-335(error)-336(has)-335(b)-28(een)-336(generated)-335(b)27(y)-335(the)-336(fact)-335(that)-336(the)-335(use)-1(r)-335(has)-336(c)28(hosen)-336(the)]TJ 0 -11.955 Td [(in)28(v)55(alid)-367(\134F)28(OO")-368(storage)-367(format)-368(to)-367(represen)27(t)-367(the)-368(sparse)-367(matrix.)-547(F)83(rom)-367(this)-368(error)]TJ 0 -11.955 Td [(message)-248(it)-248(is)-248(p)-27(oss)-1(ib)1(le)-248(to)-248(see)-248(that)-248(the)-248(error)-247(has)-248(b)-28(een)-248(detected)-248(inside)-248(the)]TJ/F30 9.9626 Tf 301.869 0 Td [(psb_cest)]TJ/F8 9.9626 Tf -301.869 -11.956 Td [(subroutine)-333(called)-334(b)28(y)]TJ/F30 9.9626 Tf 91.408 0 Td [(psb_spasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(...)-444(b)27(y)-333(pro)-28(cess)-333(0)-333(\050i.e.)-445(the)-333(ro)-28(ot)-333(pro)-28(cess\051.)]TJ + [-479(rep)-28(orts)-479(a)-479(sample)-480(error)-479(message)-479(generated)-479(b)28(y)-480(the)-479(PSBLAS-2.0)]TJ -14.944 -11.955 Td [(library)83(.)-451(This)-335(error)-336(has)-335(b)-28(een)-336(generated)-335(b)27(y)-335(the)-336(fact)-335(that)-336(the)-335(use)-1(r)-335(has)-336(c)28(hosen)-336(th)1(e)]TJ 0 -11.955 Td [(in)28(v)55(alid)-367(\134F)28(OO")-368(storage)-367(format)-368(to)-367(represen)27(t)-367(the)-368(sparse)-367(matrix.)-547(F)83(rom)-367(this)-368(error)]TJ 0 -11.955 Td [(message)-248(it)-248(is)-248(p)-27(oss)-1(i)1(ble)-248(to)-248(see)-248(that)-248(the)-248(error)-247(has)-248(b)-28(een)-248(detected)-248(inside)-248(th)1(e)]TJ/F30 9.9626 Tf 301.868 0 Td [(psb_cest)]TJ/F8 9.9626 Tf -301.868 -11.956 Td [(subroutine)-333(called)-334(b)28(y)]TJ/F30 9.9626 Tf 91.407 0 Td [(psb_spasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(...)-444(b)27(y)-333(pro)-28(cess)-333(0)-333(\050i.e.)-445(the)-333(ro)-28(ot)-333(pro)-28(cess\051.)]TJ 0 g 0 G - 22.582 -211.304 Td [(121)]TJ + 22.583 -211.304 Td [(126)]TJ 0 g 0 G ET endstream endobj -1659 0 obj +1717 0 obj << -/Length 7207 +/Length 7220 >> stream 0 g 0 G @@ -20167,782 +21461,149 @@ stream 0 g 0 G 0 g 0 G BT -/F53 8.9664 Tf 159.61 680.066 Td [(s)-60(u)-60(b)-60(r)-60(o)-59(u)-60(t)-60(i)-60(n)-60(e)]TJ/F46 8.9664 Tf 61.471 0 Td [(p)-132(s)-132(b)]TJ +/F53 8.9664 Tf 108.801 680.066 Td [(s)-60(u)-60(b)-60(r)-59(o)-60(u)-60(t)-60(i)-60(n)-60(e)]TJ/F46 8.9664 Tf 61.47 0 Td [(p)-132(s)-132(b)]TJ ET q -1 0 0 1 239.064 680.265 cm +1 0 0 1 188.254 680.265 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 243.014 680.066 Td [(f)-132(o)-132(o)-241(\050)-155(s)-47(o)-47(m)-46(e)-769(a)-105(r)-106(g)-105(s)-376(,)-939(i)-156(n)-156(f)-157(o)-265(\051)]TJ -65.126 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.604 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.409 0 Td [(\050)-259(e)-152(r)-151(r)-151(o)-151(r)-897(d)-129(e)-129(t)-129(e)-130(c)-129(t)-129(e)-130(d)-237(\051)]TJ/F53 8.9664 Tf 93.291 0 Td [(t)-30(h)-30(e)-29(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-129(r)-128(c)-129(o)-129(d)-129(e)-129(1)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ +/F46 8.9664 Tf 192.204 680.066 Td [(f)-132(o)-132(o)-241(\050)-155(s)-47(o)-47(m)-47(e)-768(a)-105(r)-106(g)-105(s)-376(,)-939(i)-156(n)-157(f)-156(o)-265(\051)]TJ -65.125 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.604 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.408 0 Td [(\050)-260(e)-151(r)-151(r)-151(o)-151(r)-897(d)-129(e)-129(t)-130(e)-129(c)-129(t)-129(e)-130(d)-237(\051)]TJ/F53 8.9664 Tf 93.292 0 Td [(t)-30(h)-29(e)-30(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-128(r)-129(c)-129(o)-129(d)-129(e)-129(1)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ ET q -1 0 0 1 238.765 636.429 cm +1 0 0 1 187.956 636.429 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 242.641 636.23 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-232(\050)-330(')-242(p)-132(s)-133(b)]TJ +/F46 8.9664 Tf 191.831 636.23 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-233(\050)-329(')-242(p)-133(s)-132(b)]TJ ET q -1 0 0 1 310.944 636.429 cm +1 0 0 1 260.135 636.429 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 314.894 636.23 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-129(d)-128(e)-129(1)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.969 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.244 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.957 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.399 0 Td [(p)-114(s)-114(b)]TJ +/F46 8.9664 Tf 264.085 636.23 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-128(d)-129(e)-129(1)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.968 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.245 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.957 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.399 0 Td [(p)-114(s)-114(b)]TJ ET q -1 0 0 1 221.826 592.594 cm +1 0 0 1 171.016 592.594 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 225.613 592.394 Td [(b)-114(a)-114(r)-223(\050)-155(s)-47(o)-46(m)-47(e)-769(a)-105(r)-105(g)-105(s)-376(,)-939(i)-157(n)-156(f)-157(o)-264(\051)]TJ/F53 8.9664 Tf -48.329 -10.958 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.409 0 Td [(\050)-265(i)-156(n)-157(f)-156(o)-939(.)]TJ/F53 8.9664 Tf 37.83 0 Td [(n)-11(e)]TJ/F46 8.9664 Tf 12.445 0 Td [(.)-910(z)-127(e)-127(r)-128(o)-236(\051)]TJ/F53 8.9664 Tf 43.016 0 Td [(t)-30(h)-30(e)-29(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-129(r)-128(c)-129(o)-129(d)-129(e)-129(2)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ +/F46 8.9664 Tf 174.803 592.394 Td [(b)-114(a)-114(r)-223(\050)-155(s)-47(o)-46(m)-47(e)-769(a)-105(r)-105(g)-105(s)-377(,)-938(i)-157(n)-156(f)-157(o)-265(\051)]TJ/F53 8.9664 Tf -48.328 -10.958 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.408 0 Td [(\050)-265(i)-156(n)-157(f)-156(o)-939(.)]TJ/F53 8.9664 Tf 37.831 0 Td [(n)-11(e)]TJ/F46 8.9664 Tf 12.445 0 Td [(.)-910(z)-127(e)-127(r)-128(o)-235(\051)]TJ/F53 8.9664 Tf 43.016 0 Td [(t)-30(h)-29(e)-30(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-128(r)-129(c)-129(o)-129(d)-129(e)-129(2)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ ET q -1 0 0 1 238.765 559.717 cm +1 0 0 1 187.956 559.717 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 242.641 559.518 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-232(\050)-330(')-242(p)-132(s)-133(b)]TJ +/F46 8.9664 Tf 191.831 559.518 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-233(\050)-329(')-242(p)-133(s)-132(b)]TJ ET q -1 0 0 1 310.944 559.717 cm +1 0 0 1 260.135 559.717 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 314.894 559.518 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-129(d)-128(e)-129(2)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.969 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.244 -10.959 Td [(.)-248(.)-249(.)]TJ -18.077 -10.959 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf 27.419 0 Td [(c)-57(o)-57(n)-57(t)-56(i)-57(n)-57(u)-57(e)]TJ -9.946 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 15.938 0 Td [(\050)-273(e)-164(r)-165(r)]TJ +/F46 8.9664 Tf 264.085 559.518 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-128(d)-129(e)-129(2)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.968 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.245 -10.959 Td [(.)-248(.)-249(.)]TJ -18.078 -10.959 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf 27.419 0 Td [(c)-57(o)-57(n)-57(t)-56(i)-57(n)-57(u)-57(e)]TJ -9.945 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 15.937 0 Td [(\050)-273(e)-164(r)-165(r)]TJ ET q -1 0 0 1 215.536 504.923 cm +1 0 0 1 164.726 504.923 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 219.774 504.723 Td [(a)-164(c)-165(t)-946(.)]TJ/F53 8.9664 Tf 27.965 0 Td [(e)-22(q)]TJ/F46 8.9664 Tf 12.346 0 Td [(.)-923(a)-141(c)-141(t)]TJ +/F46 8.9664 Tf 168.965 504.723 Td [(a)-164(c)-165(t)-946(.)]TJ/F53 8.9664 Tf 27.964 0 Td [(e)-22(q)]TJ/F46 8.9664 Tf 12.347 0 Td [(.)-923(a)-141(c)-141(t)]TJ ET q -1 0 0 1 287.553 504.923 cm +1 0 0 1 236.744 504.923 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 291.582 504.723 Td [(a)-141(b)-141(o)-141(r)-141(t)-249(\051)]TJ/F53 8.9664 Tf 39.166 0 Td [(t)-30(h)-29(e)-30(n)]TJ -142.758 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.681 0 Td [(p)-146(s)-145(b)]TJ +/F46 8.9664 Tf 240.772 504.723 Td [(a)-141(b)-141(o)-141(r)-141(t)-249(\051)]TJ/F53 8.9664 Tf 39.166 0 Td [(t)-30(h)-30(e)-29(n)]TJ -142.758 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.682 0 Td [(p)-146(s)-145(b)]TJ ET q -1 0 0 1 234.014 493.964 cm +1 0 0 1 183.205 493.964 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 238.084 493.764 Td [(e)-146(r)-145(r)-146(o)-145(r)-254(\050)-252(i)-144(c)-143(o)-144(n)-143(t)-143(x)-144(t)-252(\051)]TJ/F53 8.9664 Tf -50.844 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -10.529 -10.958 Td [(e)-117(l)-117(s)-117(e)]TJ 10.529 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -11.596 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ -16.588 -21.918 Td [(e)2(n)2(d)-675(s)-60(u)-59(b)-60(r)-60(o)-60(u)-60(t)-60(i)-60(n)-60(e)]TJ/F46 8.9664 Tf 84.142 0 Td [(p)-132(s)-132(b)]TJ +/F46 8.9664 Tf 187.274 493.764 Td [(e)-146(r)-145(r)-146(o)-145(r)-254(\050)-252(i)-144(c)-143(o)-144(n)-143(t)-143(x)-144(t)-252(\051)]TJ/F53 8.9664 Tf -50.844 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -10.529 -10.958 Td [(e)-117(l)-117(s)-117(e)]TJ 10.529 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -11.596 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ -16.587 -21.918 Td [(e)2(n)2(d)-675(s)-59(u)-60(b)-60(r)-60(o)-60(u)-60(t)-60(i)-60(n)-59(e)]TJ/F46 8.9664 Tf 84.141 0 Td [(p)-132(s)-132(b)]TJ ET q -1 0 0 1 261.181 428.21 cm +1 0 0 1 210.371 428.21 cm []0 d 0 J 0.398 w 0 0 m 2.765 0 l S Q BT -/F46 8.9664 Tf 265.131 428.011 Td [(f)-132(o)-132(o)]TJ +/F46 8.9664 Tf 214.321 428.011 Td [(f)-132(o)-132(o)]TJ 0 g 0 G 0 g 0 G ET q -1 0 0 1 150.705 701.884 cm +1 0 0 1 99.895 701.884 cm []0 d 0 J 0.398 w 0 0 m 346.583 0 l S Q q -1 0 0 1 150.904 410.576 cm +1 0 0 1 100.095 410.576 cm []0 d 0 J 0.398 w 0 0 m 0 291.308 l S Q q -1 0 0 1 497.088 410.576 cm +1 0 0 1 446.279 410.576 cm []0 d 0 J 0.398 w 0 0 m 0 291.308 l S Q q -1 0 0 1 150.705 410.576 cm +1 0 0 1 99.895 410.576 cm []0 d 0 J 0.398 w 0 0 m 346.583 0 l S Q BT -/F8 9.9626 Tf 150.705 382.537 Td [(Figure)-329(9:)-443(The)-329(la)27(y)28(out)-329(of)-330(a)-329(generic)]TJ/F30 9.9626 Tf 147.445 0 Td [(psb)]TJ +/F8 9.9626 Tf 99.895 382.537 Td [(Figure)-329(9:)-443(The)-329(la)27(y)28(out)-329(of)-330(a)-329(generic)]TJ/F30 9.9626 Tf 147.445 0 Td [(psb)]TJ ET q -1 0 0 1 314.468 382.736 cm +1 0 0 1 263.659 382.736 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 317.606 382.537 Td [(foo)]TJ/F8 9.9626 Tf 18.974 0 Td [(routine)-329(with)-330(resp)-28(ect)-329(to)-329(PSBLAS-2.0)]TJ -185.875 -11.955 Td [(error)-333(handling)-333(p)-28(olicy)83(.)]TJ +/F30 9.9626 Tf 266.797 382.537 Td [(foo)]TJ/F8 9.9626 Tf 18.973 0 Td [(routine)-329(with)-330(resp)-28(ect)-329(to)-330(PS)1(B)-1(LAS)1(-)-1(2.)1(0)]TJ -185.875 -11.955 Td [(error)-333(handling)-333(p)-28(olicy)83(.)]TJ 0 g 0 G 0 g 0 G 0 g 0 G 0 g 0 G 0 g 0 G 0 g 0 G -/F30 9.9626 Tf 8.368 -39.475 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(df_sample)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(mat)-525(dist)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(mat_distv)]TJ 0 -11.956 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_spasb)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(psb_spasb)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_cest)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\050136\051)-525(in)-525(subroutine:)-525(psb_cest)]TJ 0 -11.956 Td [(Format)-525(FOO)-525(is)-525(unknown)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Aborting...)]TJ +/F30 9.9626 Tf 8.369 -39.475 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(df_sample)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(mat)-525(dist)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(mat_distv)]TJ 0 -11.956 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_spasb)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(psb_spasb)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_cest)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\050136\051)-525(in)-525(subroutine:)-525(psb_cest)]TJ 0 -11.956 Td [(Format)-525(FOO)-525(is)-525(unknown)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Aborting...)]TJ ET q -1 0 0 1 150.705 343.417 cm +1 0 0 1 99.895 343.417 cm []0 d 0 J 0.398 w 0 0 m 346.583 0 l S Q q -1 0 0 1 150.904 165.307 cm +1 0 0 1 100.095 165.307 cm []0 d 0 J 0.398 w 0 0 m 0 178.111 l S Q q -1 0 0 1 497.088 165.307 cm +1 0 0 1 446.279 165.307 cm []0 d 0 J 0.398 w 0 0 m 0 178.111 l S Q q -1 0 0 1 150.705 165.307 cm +1 0 0 1 99.895 165.307 cm []0 d 0 J 0.398 w 0 0 m 346.583 0 l S Q BT -/F8 9.9626 Tf 150.705 137.267 Td [(Figure)-386(10:)-551(A)-386(sample)-386(PSBLAS-2.0)-387(err)1(or)-387(message.)-603(Pro)-28(cess)-387(0)-386(detected)-386(an)-387(error)]TJ 0 -11.955 Td [(condition)-333(inside)-334(t)1(he)-334(psb)]TJ +/F8 9.9626 Tf 99.895 137.267 Td [(Figure)-386(10:)-551(A)-386(sample)-386(PSBLAS-2.0)-387(error)-386(message.)-603(Pro)-28(cess)-387(0)-386(detected)-386(an)-387(error)]TJ 0 -11.955 Td [(condition)-333(inside)-334(the)-333(psb)]TJ ET q -1 0 0 1 255.468 125.512 cm +1 0 0 1 204.658 125.512 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 258.457 125.312 Td [(cest)-333(subroutine)]TJ +/F8 9.9626 Tf 207.647 125.312 Td [(cest)-333(s)-1(u)1(broutine)]TJ 0 g 0 G 0 g 0 G - 56.631 -34.874 Td [(122)]TJ + 56.632 -34.874 Td [(127)]TJ 0 g 0 G ET endstream endobj -1560 0 obj +1748 0 obj << -/Type /ObjStm -/N 100 -/First 967 -/Length 9296 ->> -stream -1558 0 1559 59 1554 118 1562 250 1564 368 405 426 1565 483 1566 540 1561 598 1568 730 -1570 848 409 907 1571 965 1572 1024 1573 1083 1567 1142 1575 1274 1577 1392 413 1450 1574 1507 -1579 1613 1581 1731 417 1790 1578 1848 1583 1980 1585 2098 421 2156 1582 2213 1588 2319 1590 2437 -425 2496 1587 2554 1592 2660 1594 2778 429 2836 1591 2893 1596 2999 1598 3117 433 3176 1595 3234 -1600 3366 1602 3484 437 3542 1603 3599 1604 3657 1599 3715 1606 3847 1608 3965 441 4024 1609 4082 -1610 4141 1605 4200 1612 4332 1614 4450 445 4508 1615 4565 1616 4623 1611 4681 1619 4813 1621 4931 -449 4990 1622 5048 1623 5107 1618 5166 1625 5298 1627 5416 453 5474 1628 5531 1629 5589 1624 5647 -1631 5779 1633 5897 457 5956 1634 6014 1635 6073 1637 6132 1630 6191 1639 6361 1641 6479 461 6537 -1642 6594 1638 6651 1644 6783 1646 6901 465 6960 1647 7018 1643 7076 1651 7208 1648 7356 1649 7502 -1653 7649 469 7707 1650 7764 1658 7857 1660 7975 1661 8034 1662 8093 1664 8152 1665 8211 1666 8270 -% 1558 0 obj -<< -/D [1555 0 R /XYZ 150.705 235.436 null] ->> -% 1559 0 obj -<< -/D [1555 0 R /XYZ 150.705 213.573 null] ->> -% 1554 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1562 0 obj -<< -/Type /Page -/Contents 1563 0 R -/Resources 1561 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R ->> -% 1564 0 obj -<< -/D [1562 0 R /XYZ 98.895 753.953 null] ->> -% 405 0 obj -<< -/D [1562 0 R /XYZ 99.895 720.077 null] ->> -% 1565 0 obj -<< -/D [1562 0 R /XYZ 99.895 349.01 null] ->> -% 1566 0 obj -<< -/D [1562 0 R /XYZ 99.895 315.192 null] ->> -% 1561 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1568 0 obj -<< -/Type /Page -/Contents 1569 0 R -/Resources 1567 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R ->> -% 1570 0 obj -<< -/D [1568 0 R /XYZ 149.705 753.953 null] ->> -% 409 0 obj -<< -/D [1568 0 R /XYZ 150.705 720.077 null] ->> -% 1571 0 obj -<< -/D [1568 0 R /XYZ 150.705 442.659 null] ->> -% 1572 0 obj -<< -/D [1568 0 R /XYZ 150.705 396.886 null] ->> -% 1573 0 obj -<< -/D [1568 0 R /XYZ 150.705 365.005 null] ->> -% 1567 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1575 0 obj -<< -/Type /Page -/Contents 1576 0 R -/Resources 1574 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R ->> -% 1577 0 obj -<< -/D [1575 0 R /XYZ 98.895 753.953 null] ->> -% 413 0 obj -<< -/D [1575 0 R /XYZ 99.895 720.077 null] ->> -% 1574 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1579 0 obj -<< -/Type /Page -/Contents 1580 0 R -/Resources 1578 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1553 0 R ->> -% 1581 0 obj -<< -/D [1579 0 R /XYZ 149.705 753.953 null] ->> -% 417 0 obj -<< -/D [1579 0 R /XYZ 150.705 720.077 null] ->> -% 1578 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F11 755 0 R /F27 560 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1583 0 obj -<< -/Type /Page -/Contents 1584 0 R -/Resources 1582 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1585 0 obj -<< -/D [1583 0 R /XYZ 98.895 753.953 null] ->> -% 421 0 obj -<< -/D [1583 0 R /XYZ 99.895 720.077 null] ->> -% 1582 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1588 0 obj -<< -/Type /Page -/Contents 1589 0 R -/Resources 1587 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1590 0 obj -<< -/D [1588 0 R /XYZ 149.705 753.953 null] ->> -% 425 0 obj -<< -/D [1588 0 R /XYZ 150.705 720.077 null] ->> -% 1587 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1592 0 obj -<< -/Type /Page -/Contents 1593 0 R -/Resources 1591 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1594 0 obj -<< -/D [1592 0 R /XYZ 98.895 753.953 null] ->> -% 429 0 obj -<< -/D [1592 0 R /XYZ 99.895 720.077 null] ->> -% 1591 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1596 0 obj -<< -/Type /Page -/Contents 1597 0 R -/Resources 1595 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1598 0 obj -<< -/D [1596 0 R /XYZ 149.705 753.953 null] ->> -% 433 0 obj -<< -/D [1596 0 R /XYZ 150.705 720.077 null] ->> -% 1595 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1600 0 obj -<< -/Type /Page -/Contents 1601 0 R -/Resources 1599 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1602 0 obj -<< -/D [1600 0 R /XYZ 98.895 753.953 null] ->> -% 437 0 obj -<< -/D [1600 0 R /XYZ 99.895 720.077 null] ->> -% 1603 0 obj -<< -/D [1600 0 R /XYZ 99.895 247.391 null] ->> -% 1604 0 obj -<< -/D [1600 0 R /XYZ 99.895 213.573 null] ->> -% 1599 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1606 0 obj -<< -/Type /Page -/Contents 1607 0 R -/Resources 1605 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1586 0 R ->> -% 1608 0 obj -<< -/D [1606 0 R /XYZ 149.705 753.953 null] ->> -% 441 0 obj -<< -/D [1606 0 R /XYZ 150.705 720.077 null] ->> -% 1609 0 obj -<< -/D [1606 0 R /XYZ 150.705 247.391 null] ->> -% 1610 0 obj -<< -/D [1606 0 R /XYZ 150.705 213.573 null] ->> -% 1605 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1612 0 obj -<< -/Type /Page -/Contents 1613 0 R -/Resources 1611 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1614 0 obj -<< -/D [1612 0 R /XYZ 98.895 753.953 null] ->> -% 445 0 obj -<< -/D [1612 0 R /XYZ 99.895 720.077 null] ->> -% 1615 0 obj -<< -/D [1612 0 R /XYZ 99.895 247.391 null] ->> -% 1616 0 obj -<< -/D [1612 0 R /XYZ 99.895 213.573 null] ->> -% 1611 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1619 0 obj -<< -/Type /Page -/Contents 1620 0 R -/Resources 1618 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1621 0 obj -<< -/D [1619 0 R /XYZ 149.705 753.953 null] ->> -% 449 0 obj -<< -/D [1619 0 R /XYZ 150.705 720.077 null] ->> -% 1622 0 obj -<< -/D [1619 0 R /XYZ 150.705 235.436 null] ->> -% 1623 0 obj -<< -/D [1619 0 R /XYZ 150.705 201.618 null] ->> -% 1618 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1625 0 obj -<< -/Type /Page -/Contents 1626 0 R -/Resources 1624 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1627 0 obj -<< -/D [1625 0 R /XYZ 98.895 753.953 null] ->> -% 453 0 obj -<< -/D [1625 0 R /XYZ 99.895 720.077 null] ->> -% 1628 0 obj -<< -/D [1625 0 R /XYZ 99.895 235.436 null] ->> -% 1629 0 obj -<< -/D [1625 0 R /XYZ 99.895 201.618 null] ->> -% 1624 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1631 0 obj -<< -/Type /Page -/Contents 1632 0 R -/Resources 1630 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1633 0 obj -<< -/D [1631 0 R /XYZ 149.705 753.953 null] ->> -% 457 0 obj -<< -/D [1631 0 R /XYZ 150.705 720.077 null] ->> -% 1634 0 obj -<< -/D [1631 0 R /XYZ 150.705 274.156 null] ->> -% 1635 0 obj -<< -/D [1631 0 R /XYZ 150.705 241.264 null] ->> -% 1637 0 obj -<< -/D [1631 0 R /XYZ 150.705 153.877 null] ->> -% 1630 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F14 772 0 R /F11 755 0 R /F10 771 0 R /F1 1636 0 R /F7 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1639 0 obj -<< -/Type /Page -/Contents 1640 0 R -/Resources 1638 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1641 0 obj -<< -/D [1639 0 R /XYZ 98.895 753.953 null] ->> -% 461 0 obj -<< -/D [1639 0 R /XYZ 99.895 720.077 null] ->> -% 1642 0 obj -<< -/D [1639 0 R /XYZ 99.895 223.48 null] ->> -% 1638 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1644 0 obj -<< -/Type /Page -/Contents 1645 0 R -/Resources 1643 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1617 0 R ->> -% 1646 0 obj -<< -/D [1644 0 R /XYZ 149.705 753.953 null] ->> -% 465 0 obj -<< -/D [1644 0 R /XYZ 150.705 720.077 null] ->> -% 1647 0 obj -<< -/D [1644 0 R /XYZ 150.705 223.48 null] ->> -% 1643 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1651 0 obj -<< -/Type /Page -/Contents 1652 0 R -/Resources 1650 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R -/Annots [ 1648 0 R 1649 0 R ] ->> -% 1648 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [145.477 501.77 152.451 512.895] -/A << /S /GoTo /D (figure.9) >> ->> -% 1649 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [146.734 346.63 158.689 357.478] -/A << /S /GoTo /D (figure.10) >> ->> -% 1653 0 obj -<< -/D [1651 0 R /XYZ 98.895 753.953 null] ->> -% 469 0 obj -<< -/D [1651 0 R /XYZ 99.895 716.092 null] ->> -% 1650 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1658 0 obj -<< -/Type /Page -/Contents 1659 0 R -/Resources 1657 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R ->> -% 1660 0 obj -<< -/D [1658 0 R /XYZ 149.705 753.953 null] ->> -% 1661 0 obj -<< -/D [1658 0 R /XYZ 159.073 687.737 null] ->> -% 1662 0 obj -<< -/D [1658 0 R /XYZ 159.073 691.025 null] ->> -% 1664 0 obj -<< -/D [1658 0 R /XYZ 159.073 680.066 null] ->> -% 1665 0 obj -<< -/D [1658 0 R /XYZ 159.073 669.107 null] ->> -% 1666 0 obj -<< -/D [1658 0 R /XYZ 159.073 658.148 null] ->> - -endstream -endobj -1690 0 obj -<< -/Length 3725 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 680.226 Td [(psb)]TJ -ET -q -1 0 0 1 125.163 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 130.004 680.226 Td [(errpush|Pushes)-375(an)-375(error)-375(co)-31(de)-375(on)31(to)-375(the)]TJ -30.109 -17.933 Td [(error)-375(stac)31(k)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.712 0 Td [(p)-120(s)-121(b)]TJ -ET -q -1 0 0 1 150.181 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 154.37 626.525 Td [(e)-121(r)-120(r)-120(p)-121(u)-120(s)-121(h)-226(\050)-244(e)-138(r)-138(r)]TJ -ET -q -1 0 0 1 219.855 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 224.221 626.525 Td [(c)-438(,)-825(r)]TJ -ET -q -1 0 0 1 249.141 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 252.772 626.525 Td [(n)-64(a)-65(m)-64(e)-290(,)-923(i)]TJ -ET -q -1 0 0 1 297.774 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 302.378 626.525 Td [(e)-162(r)-162(r)-485(,)-913(a)]TJ -ET -q -1 0 0 1 341.632 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 346.136 626.525 Td [(e)-152(r)-152(r)-258(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -246.241 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(err)]TJ -ET -q -1 0 0 1 115.271 568.941 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 118.708 568.741 Td [(c)]TJ -0 g 0 G -/F8 9.9626 Tf 10.073 0 Td [(the)-333(error)-334(co)-27(de)]TJ -3.979 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(r)]TJ -ET -q -1 0 0 1 105.301 501.195 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 108.738 500.995 Td [(name)]TJ -0 g 0 G -/F8 9.9626 Tf 31.715 0 Td [(the)-333(soutine)-334(where)-333(the)-333(error)-334(has)-333(b)-28(een)-333(caugh)28(t.)]TJ -15.651 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.881 Td [(i)]TJ -ET -q -1 0 0 1 103.765 421.494 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 107.202 421.294 Td [(err)]TJ -0 g 0 G -/F8 9.9626 Tf 19.67 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -2.07 -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 [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.881 Td [(a)]TJ -ET -q -1 0 0 1 106.152 353.748 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 109.589 353.548 Td [(err)]TJ -0 g 0 G -/F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -4.456 -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 [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ -0 g 0 G - 139.477 -227.245 Td [(123)]TJ -0 g 0 G -ET - -endstream -endobj -1696 0 obj -<< -/Length 1400 +/Length 3723 >> stream 0 g 0 G @@ -20957,37 +21618,105 @@ q []0 d 0 J 0.398 w 0 0 m 4.842 0 l S Q BT -/F16 14.3462 Tf 180.814 680.226 Td [(error|Prin)31(ts)-375(the)-375(error)-375(stac)32(k)-375(con)31(ten)31(t)-375(and)]TJ -30.109 -17.933 Td [(ab)-31(orts)-375(execution)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.921 0 Td [(p)-141(s)-142(b)]TJ +/F16 14.3462 Tf 180.814 680.226 Td [(errpush|Pushes)-375(an)-375(error)-375(co)-31(de)-375(on)31(to)-375(the)]TJ -30.109 -17.933 Td [(error)-375(stac)31(k)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.711 0 Td [(p)-120(s)-121(b)]TJ ET q -1 0 0 1 201.829 626.724 cm +1 0 0 1 200.991 626.724 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 206.228 626.525 Td [(e)-142(r)-141(r)-141(o)-142(r)-247(\050)-245(i)-140(c)-139(o)-140(n)-139(t)-140(x)-140(t)-245(\051)]TJ +/F8 9.9626 Tf 205.18 626.525 Td [(e)-120(r)-121(r)-120(p)-121(u)-120(s)-121(h)-226(\050)-244(e)-138(r)-138(r)]TJ +ET +q +1 0 0 1 270.664 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 275.03 626.525 Td [(c)-438(,)-825(r)]TJ +ET +q +1 0 0 1 299.951 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 303.581 626.525 Td [(n)-64(a)-65(m)-64(e)-290(,)-923(i)]TJ +ET +q +1 0 0 1 348.584 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 353.187 626.525 Td [(e)-162(r)-162(r)-485(,)-914(a)]TJ +ET +q +1 0 0 1 392.442 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 396.945 626.525 Td [(e)-152(r)-152(r)-258(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -55.523 -17.933 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf -246.24 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(icon)32(txt)]TJ + 0 -19.926 Td [(err)]TJ +ET +q +1 0 0 1 166.08 568.941 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 169.517 568.741 Td [(c)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger.)]TJ +/F8 9.9626 Tf 10.074 0 Td [(the)-333(error)-334(co)-27(de)]TJ -3.98 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ 0 g 0 G - 139.476 -430.483 Td [(124)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(r)]TJ +ET +q +1 0 0 1 156.111 501.195 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 159.548 500.995 Td [(name)]TJ +0 g 0 G +/F8 9.9626 Tf 31.714 0 Td [(the)-333(soutine)-334(where)-333(the)-333(error)-334(has)-333(b)-28(een)-333(caugh)28(t.)]TJ -15.651 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -31.881 Td [(i)]TJ +ET +q +1 0 0 1 154.575 421.494 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 158.012 421.294 Td [(err)]TJ +0 g 0 G +/F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -2.07 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -31.881 Td [(a)]TJ +ET +q +1 0 0 1 156.962 353.748 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 160.399 353.548 Td [(err)]TJ +0 g 0 G +/F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -4.457 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ +0 g 0 G + 139.477 -227.245 Td [(128)]TJ 0 g 0 G ET endstream endobj -1702 0 obj +1754 0 obj << -/Length 1631 +/Length 1398 >> stream 0 g 0 G @@ -21002,51 +21731,37 @@ q []0 d 0 J 0.398 w 0 0 m 4.842 0 l S Q BT -/F16 14.3462 Tf 130.004 680.226 Td [(set)]TJ +/F16 14.3462 Tf 130.004 680.226 Td [(error|Prin)31(ts)-375(the)-375(error)-375(stac)32(k)-375(con)31(ten)31(t)-375(and)]TJ -30.109 -17.933 Td [(ab)-31(orts)-375(execution)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.921 0 Td [(p)-141(s)-142(b)]TJ ET q -1 0 0 1 150.979 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 155.821 680.226 Td [(errv)31(erb)-31(osit)31(y|Sets)-375(the)-375(v)31(erb)-31(osit)31(y)-375(of)-375(error)]TJ -55.926 -17.933 Td [(messages.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.082 0 Td [(p)-158(s)-157(b)]TJ -ET -q -1 0 0 1 151.663 626.724 cm +1 0 0 1 151.02 626.724 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 156.223 626.525 Td [(s)-158(e)-157(t)]TJ -ET -q -1 0 0 1 173.764 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 178.324 626.525 Td [(e)-158(r)-157(r)-158(v)-158(e)-157(r)-158(b)-157(o)-158(s)-158(i)-157(t)-158(y)-263(\050)-142(v)-142(\051)]TJ +/F8 9.9626 Tf 155.418 626.525 Td [(e)-142(r)-141(r)-142(o)-141(r)-247(\050)-245(i)-140(c)-139(o)-140(n)-140(t)-139(x)-140(t)-245(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -78.429 -17.933 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf -55.523 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19.926 Td [(v)]TJ + 0 -19.926 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(v)27(erb)-27(osit)27(y)-333(lev)28(el)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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(an)-333(in)28(teger.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ 0 g 0 G - 139.477 -430.483 Td [(125)]TJ + 139.477 -430.483 Td [(129)]TJ 0 g 0 G ET endstream endobj -1708 0 obj +1760 0 obj << -/Length 2106 +/Length 1632 >> stream 0 g 0 G @@ -21068,28 +21783,87 @@ q []0 d 0 J 0.398 w 0 0 m 4.842 0 l S Q BT -/F16 14.3462 Tf 206.631 680.226 Td [(erraction|Set)-375(the)-375(t)31(yp)-31(e)-375(of)-375(action)-375(to)-375(b)-31(e)]TJ -55.926 -17.933 Td [(tak)31(en)-375(up)-31(on)-375(error)-375(condition.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.09 0 Td [(p)-158(s)-159(b)]TJ +/F16 14.3462 Tf 206.631 680.226 Td [(errv)31(erb)-31(osit)31(y|Sets)-375(the)-375(v)31(erb)-31(osit)32(y)-376(of)-375(error)]TJ -55.926 -17.933 Td [(messages.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.082 0 Td [(p)-158(s)-157(b)]TJ ET q -1 0 0 1 202.505 626.724 cm +1 0 0 1 202.473 626.724 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 207.072 626.525 Td [(s)-159(e)-158(t)]TJ +/F8 9.9626 Tf 207.032 626.525 Td [(s)-158(e)-157(t)]TJ ET q -1 0 0 1 224.638 626.724 cm +1 0 0 1 224.574 626.724 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 229.206 626.525 Td [(e)-158(r)-159(r)-158(a)-159(c)-158(t)-159(i)-158(o)-159(n)-264(\050)-265(e)-160(r)-160(r)]TJ +/F8 9.9626 Tf 229.133 626.525 Td [(e)-158(r)-157(r)-158(v)-158(e)-157(r)-158(b)-157(o)-158(s)-158(i)-157(t)-158(y)-263(\050)-142(v)-142(\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -78.428 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.926 Td [(v)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(v)27(erb)-27(osit)27(y)-333(lev)28(el)]TJ 13.878 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ +0 g 0 G + 139.477 -430.483 Td [(130)]TJ +0 g 0 G +ET + +endstream +endobj +1766 0 obj +<< +/Length 2103 +>> +stream +0 g 0 G +0 g 0 G +0 g 0 G +0 g 0 G +BT +/F16 14.3462 Tf 99.895 680.226 Td [(psb)]TJ ET q -1 0 0 1 307.391 626.724 cm +1 0 0 1 125.163 680.425 cm +[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S +Q +BT +/F16 14.3462 Tf 130.004 680.226 Td [(set)]TJ +ET +q +1 0 0 1 150.979 680.425 cm +[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S +Q +BT +/F16 14.3462 Tf 155.821 680.226 Td [(erraction|Set)-375(the)-375(t)31(yp)-31(e)-375(of)-375(action)-375(to)-375(b)-31(e)]TJ -55.926 -17.933 Td [(tak)31(en)-375(up)-31(on)-375(error)-375(condition.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.09 0 Td [(p)-158(s)-159(b)]TJ +ET +q +1 0 0 1 151.695 626.724 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 311.973 626.525 Td [(a)-160(c)-160(t)-265(\051)]TJ +/F8 9.9626 Tf 156.263 626.525 Td [(s)-159(e)-158(t)]TJ +ET +q +1 0 0 1 173.829 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 178.396 626.525 Td [(e)-159(r)-158(r)-158(a)-159(c)-158(t)-159(i)-158(o)-159(n)-264(\050)-265(e)-160(r)-160(r)]TJ +ET +q +1 0 0 1 256.582 626.724 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 261.163 626.525 Td [(a)-160(c)-160(t)-265(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -21103,59 +21877,555 @@ BT 0 -19.926 Td [(err)]TJ ET q -1 0 0 1 166.08 568.941 cm +1 0 0 1 115.271 568.941 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 169.517 568.741 Td [(act)]TJ +/F27 9.9626 Tf 118.708 568.741 Td [(act)]TJ 0 g 0 G -/F8 9.9626 Tf 20.098 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(action.)]TJ -14.004 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -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(an)-333(in)28(teger.)-445(P)28(ossible)-333(v)55(alu)1(e)-1(s:)]TJ/F30 9.9626 Tf 180.269 0 Td [(psb_act_ret)]TJ/F8 9.9626 Tf 57.534 0 Td [(,)]TJ/F30 9.9626 Tf 6.088 0 Td [(psb_act_abort)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ +/F8 9.9626 Tf 20.098 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(action.)]TJ -14.004 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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(an)-333(in)28(teger.)-444(P)27(ossible)-333(v)56(alues)-1(:)]TJ/F30 9.9626 Tf 180.269 0 Td [(psb_act_ret)]TJ/F8 9.9626 Tf 57.533 0 Td [(,)]TJ/F30 9.9626 Tf 6.089 0 Td [(psb_act_abort)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ 0 g 0 G - -172.409 -430.483 Td [(126)]TJ + -172.408 -430.483 Td [(131)]TJ 0 g 0 G ET endstream endobj -1714 0 obj +1772 0 obj << -/Length 537 +/Length 538 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 99.895 706.129 Td [(9)-1125(Utilities)]TJ/F8 9.9626 Tf 0 -21.821 Td [(W)83(e)-412(ha)27(v)28(e)-412(s)-1(ome)-412(utilities)-413(a)28(v)55(ailab)1(le)-413(for)-413(input)-412(and)-413(output)-412(of)-413(sparse)-413(matrices;)-452(the)]TJ 0 -11.955 Td [(in)28(terfaces)-334(to)-333(these)-333(routines)-334(are)-333(a)28(v)55(ailable)-333(in)-333(the)-334(mo)-27(dule)]TJ/F30 9.9626 Tf 241.844 0 Td [(psb_util_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ +/F16 14.3462 Tf 150.705 706.129 Td [(9)-1125(Utilities)]TJ/F8 9.9626 Tf 0 -21.821 Td [(W)83(e)-412(ha)27(v)28(e)-412(som)-1(e)-412(utilities)-413(a)28(v)55(ai)1(lable)-413(for)-413(input)-412(and)-413(output)-412(of)-413(sparse)-413(matrices;)-452(the)]TJ 0 -11.955 Td [(in)28(terfaces)-334(to)-333(these)-333(routines)-334(are)-333(a)28(v)55(ailable)-333(in)-333(the)-334(mo)-27(dule)]TJ/F30 9.9626 Tf 241.843 0 Td [(psb_util_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ 0 g 0 G - -140.224 -581.915 Td [(127)]TJ + -140.224 -581.915 Td [(132)]TJ 0 g 0 G ET endstream endobj -1720 0 obj +1669 0 obj << -/Length 4778 +/Type /ObjStm +/N 100 +/First 973 +/Length 8610 +>> +stream +1663 0 1671 132 1673 250 457 309 1674 367 1675 426 1670 485 1677 617 1679 735 461 793 +1680 850 1681 908 1676 966 1684 1098 1686 1216 465 1275 1687 1333 1688 1392 1683 1451 1690 1583 +1692 1701 469 1759 1693 1816 1694 1873 1696 1931 1689 1988 1698 2158 1700 2276 473 2335 1701 2393 +1697 2451 1703 2583 1705 2701 477 2759 1706 2816 1702 2873 1710 3005 1707 3153 1708 3298 1712 3445 +481 3504 1709 3562 1716 3655 1718 3773 1719 3831 1720 3890 1722 3949 1723 4008 1724 4067 1725 4126 +1726 4185 1727 4243 1728 4302 1729 4361 1730 4420 1731 4479 1732 4538 1733 4597 1734 4656 1735 4715 +1736 4772 1737 4831 1738 4890 1739 4949 1740 5008 1741 5067 1742 5126 1743 5185 1744 5244 1713 5302 +1714 5361 1715 5420 1747 5528 1749 5646 485 5705 1750 5763 1751 5821 1746 5879 1753 5972 1755 6090 +489 6148 1756 6205 1757 6262 1752 6319 1759 6412 1761 6530 493 6589 1762 6647 1763 6705 1758 6763 +1765 6856 1767 6974 497 7032 1768 7089 1769 7146 1764 7203 1771 7309 1773 7427 501 7486 1770 7544 +% 1663 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1671 0 obj +<< +/Type /Page +/Contents 1672 0 R +/Resources 1670 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1648 0 R +>> +% 1673 0 obj +<< +/D [1671 0 R /XYZ 149.705 753.953 null] +>> +% 457 0 obj +<< +/D [1671 0 R /XYZ 150.705 720.077 null] +>> +% 1674 0 obj +<< +/D [1671 0 R /XYZ 150.705 247.391 null] +>> +% 1675 0 obj +<< +/D [1671 0 R /XYZ 150.705 213.573 null] +>> +% 1670 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1677 0 obj +<< +/Type /Page +/Contents 1678 0 R +/Resources 1676 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +>> +% 1679 0 obj +<< +/D [1677 0 R /XYZ 98.895 753.953 null] +>> +% 461 0 obj +<< +/D [1677 0 R /XYZ 99.895 720.077 null] +>> +% 1680 0 obj +<< +/D [1677 0 R /XYZ 99.895 235.436 null] +>> +% 1681 0 obj +<< +/D [1677 0 R /XYZ 99.895 201.618 null] +>> +% 1676 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1684 0 obj +<< +/Type /Page +/Contents 1685 0 R +/Resources 1683 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +>> +% 1686 0 obj +<< +/D [1684 0 R /XYZ 149.705 753.953 null] +>> +% 465 0 obj +<< +/D [1684 0 R /XYZ 150.705 720.077 null] +>> +% 1687 0 obj +<< +/D [1684 0 R /XYZ 150.705 235.436 null] +>> +% 1688 0 obj +<< +/D [1684 0 R /XYZ 150.705 201.618 null] +>> +% 1683 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1690 0 obj +<< +/Type /Page +/Contents 1691 0 R +/Resources 1689 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +>> +% 1692 0 obj +<< +/D [1690 0 R /XYZ 98.895 753.953 null] +>> +% 469 0 obj +<< +/D [1690 0 R /XYZ 99.895 720.077 null] +>> +% 1693 0 obj +<< +/D [1690 0 R /XYZ 99.895 272.94 null] +>> +% 1694 0 obj +<< +/D [1690 0 R /XYZ 99.895 239.973 null] +>> +% 1696 0 obj +<< +/D [1690 0 R /XYZ 99.895 152.13 null] +>> +% 1689 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R /F1 1695 0 R /F7 785 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1698 0 obj +<< +/Type /Page +/Contents 1699 0 R +/Resources 1697 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +>> +% 1700 0 obj +<< +/D [1698 0 R /XYZ 149.705 753.953 null] +>> +% 473 0 obj +<< +/D [1698 0 R /XYZ 150.705 720.077 null] +>> +% 1701 0 obj +<< +/D [1698 0 R /XYZ 150.705 223.48 null] +>> +% 1697 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1703 0 obj +<< +/Type /Page +/Contents 1704 0 R +/Resources 1702 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +>> +% 1705 0 obj +<< +/D [1703 0 R /XYZ 98.895 753.953 null] +>> +% 477 0 obj +<< +/D [1703 0 R /XYZ 99.895 720.077 null] +>> +% 1706 0 obj +<< +/D [1703 0 R /XYZ 99.895 223.48 null] +>> +% 1702 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1710 0 obj +<< +/Type /Page +/Contents 1711 0 R +/Resources 1709 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1682 0 R +/Annots [ 1707 0 R 1708 0 R ] +>> +% 1707 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [196.286 501.77 203.26 512.895] +/A << /S /GoTo /D (figure.9) >> +>> +% 1708 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [197.543 346.63 209.498 357.478] +/A << /S /GoTo /D (figure.10) >> +>> +% 1712 0 obj +<< +/D [1710 0 R /XYZ 149.705 753.953 null] +>> +% 481 0 obj +<< +/D [1710 0 R /XYZ 150.705 716.092 null] +>> +% 1709 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1716 0 obj +<< +/Type /Page +/Contents 1717 0 R +/Resources 1715 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1718 0 obj +<< +/D [1716 0 R /XYZ 98.895 753.953 null] +>> +% 1719 0 obj +<< +/D [1716 0 R /XYZ 108.264 687.737 null] +>> +% 1720 0 obj +<< +/D [1716 0 R /XYZ 108.264 691.025 null] +>> +% 1722 0 obj +<< +/D [1716 0 R /XYZ 108.264 680.066 null] +>> +% 1723 0 obj +<< +/D [1716 0 R /XYZ 108.264 669.107 null] +>> +% 1724 0 obj +<< +/D [1716 0 R /XYZ 108.264 658.148 null] +>> +% 1725 0 obj +<< +/D [1716 0 R /XYZ 108.264 647.189 null] +>> +% 1726 0 obj +<< +/D [1716 0 R /XYZ 108.264 636.23 null] +>> +% 1727 0 obj +<< +/D [1716 0 R /XYZ 108.264 625.271 null] +>> +% 1728 0 obj +<< +/D [1716 0 R /XYZ 108.264 614.312 null] +>> +% 1729 0 obj +<< +/D [1716 0 R /XYZ 108.264 603.353 null] +>> +% 1730 0 obj +<< +/D [1716 0 R /XYZ 108.264 592.394 null] +>> +% 1731 0 obj +<< +/D [1716 0 R /XYZ 108.264 581.436 null] +>> +% 1732 0 obj +<< +/D [1716 0 R /XYZ 108.264 570.477 null] +>> +% 1733 0 obj +<< +/D [1716 0 R /XYZ 108.264 559.518 null] +>> +% 1734 0 obj +<< +/D [1716 0 R /XYZ 108.264 548.559 null] +>> +% 1735 0 obj +<< +/D [1716 0 R /XYZ 108.264 537.6 null] +>> +% 1736 0 obj +<< +/D [1716 0 R /XYZ 108.264 526.641 null] +>> +% 1737 0 obj +<< +/D [1716 0 R /XYZ 108.264 515.682 null] +>> +% 1738 0 obj +<< +/D [1716 0 R /XYZ 108.264 504.723 null] +>> +% 1739 0 obj +<< +/D [1716 0 R /XYZ 108.264 493.764 null] +>> +% 1740 0 obj +<< +/D [1716 0 R /XYZ 108.264 482.805 null] +>> +% 1741 0 obj +<< +/D [1716 0 R /XYZ 108.264 471.847 null] +>> +% 1742 0 obj +<< +/D [1716 0 R /XYZ 108.264 460.888 null] +>> +% 1743 0 obj +<< +/D [1716 0 R /XYZ 108.264 449.929 null] +>> +% 1744 0 obj +<< +/D [1716 0 R /XYZ 108.264 438.97 null] +>> +% 1713 0 obj +<< +/D [1716 0 R /XYZ 143.452 394.492 null] +>> +% 1714 0 obj +<< +/D [1716 0 R /XYZ 150.074 149.223 null] +>> +% 1715 0 obj +<< +/Font << /F53 1721 0 R /F46 1270 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1747 0 obj +<< +/Type /Page +/Contents 1748 0 R +/Resources 1746 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1749 0 obj +<< +/D [1747 0 R /XYZ 149.705 753.953 null] +>> +% 485 0 obj +<< +/D [1747 0 R /XYZ 150.705 724.062 null] +>> +% 1750 0 obj +<< +/D [1747 0 R /XYZ 150.705 638.48 null] +>> +% 1751 0 obj +<< +/D [1747 0 R /XYZ 150.705 638.48 null] +>> +% 1746 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1753 0 obj +<< +/Type /Page +/Contents 1754 0 R +/Resources 1752 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1755 0 obj +<< +/D [1753 0 R /XYZ 98.895 753.953 null] +>> +% 489 0 obj +<< +/D [1753 0 R /XYZ 99.895 724.062 null] +>> +% 1756 0 obj +<< +/D [1753 0 R /XYZ 99.895 638.48 null] +>> +% 1757 0 obj +<< +/D [1753 0 R /XYZ 99.895 638.48 null] +>> +% 1752 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1759 0 obj +<< +/Type /Page +/Contents 1760 0 R +/Resources 1758 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1761 0 obj +<< +/D [1759 0 R /XYZ 149.705 753.953 null] +>> +% 493 0 obj +<< +/D [1759 0 R /XYZ 150.705 724.062 null] +>> +% 1762 0 obj +<< +/D [1759 0 R /XYZ 150.705 635.69 null] +>> +% 1763 0 obj +<< +/D [1759 0 R /XYZ 150.705 638.48 null] +>> +% 1758 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1765 0 obj +<< +/Type /Page +/Contents 1766 0 R +/Resources 1764 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1767 0 obj +<< +/D [1765 0 R /XYZ 98.895 753.953 null] +>> +% 497 0 obj +<< +/D [1765 0 R /XYZ 99.895 724.062 null] +>> +% 1768 0 obj +<< +/D [1765 0 R /XYZ 99.895 635.69 null] +>> +% 1769 0 obj +<< +/D [1765 0 R /XYZ 99.895 638.48 null] +>> +% 1764 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1771 0 obj +<< +/Type /Page +/Contents 1772 0 R +/Resources 1770 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1745 0 R +>> +% 1773 0 obj +<< +/D [1771 0 R /XYZ 149.705 753.953 null] +>> +% 501 0 obj +<< +/D [1771 0 R /XYZ 150.705 716.092 null] +>> +% 1770 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> + +endstream +endobj +1777 0 obj +<< +/Length 4792 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 153.976 706.129 Td [(h)31(b)]TJ +/F16 11.9552 Tf 103.166 706.129 Td [(h)31(b)]TJ ET q -1 0 0 1 169.353 706.328 cm +1 0 0 1 118.544 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 173.388 706.129 Td [(read)-274(|)-273(Read)-274(a)-273(sparse)-274(matrix)-274(from)-273(a)-274(\014le)-274(in)-273(the)-274(Harw)32(ell{)]TJ -22.683 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.554 0 Td [(h)-105(b)]TJ +/F16 11.9552 Tf 122.579 706.129 Td [(read)-274(|)-273(Read)-274(a)-273(sparse)-274(matrix)-274(from)-273(a)-274(\014le)-273(in)-274(the)-274(Harw)32(ell{)]TJ -22.684 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.554 0 Td [(h)-105(b)]TJ ET q -1 0 0 1 195.388 668.014 cm +1 0 0 1 144.579 668.014 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 199.42 667.814 Td [(r)-105(e)-104(a)-105(d)-210(\050)-139(a)-228(,)-910(i)-150(r)-150(e)-149(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-116(n)-117(a)-116(m)-116(e)-393(,)-776(b)-191(,)-902(m)-142(t)-141(i)-141(t)-141(l)-142(e)-246(\051)]TJ +/F8 9.9626 Tf 148.61 667.814 Td [(r)-105(e)-104(a)-105(d)-210(\050)-139(a)-228(,)-911(i)-149(r)-150(e)-149(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-117(n)-116(a)-116(m)-116(e)-393(,)-776(b)-191(,)-902(m)-142(t)-141(i)-141(t)-141(l)-142(e)-247(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -21168,7 +22438,283 @@ BT 0 g 0 G 0 -19.925 Td [(\014lename)]TJ 0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.956 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ +0 g 0 G +/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 452.82 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 452.621 Td [(Tspmat)]TJ +ET +q +1 0 0 1 347.183 452.82 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 350.322 452.621 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.348 -19.925 Td [(b)]TJ +0 g 0 G +/F8 9.9626 Tf 11.347 0 Td [(Rigth)-333(hand)-333(s)-1(i)1(de\050s)-1(\051.)]TJ 13.56 -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 [(An)-282(ar)1(ra)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(2)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.956 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(an)1(d)-384(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side,)-334(otherwise)-333(will)-333(b)-28(e)-333(left)-334(in)-333(the)-333(UNALLOCA)83(TED)-333(state.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(m)32(title)]TJ +0 g 0 G +/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-405(c)28(harac)28(h)28(ter)-405(v)56(ariable)-405(of)-405(length)-404(72)-405(holding)-405(a)-404(cop)27(y)-404(of)-405(the)-405(matrix)-404(title)-405(as)]TJ 0 -11.956 Td [(sp)-28(eci\014ed)-333(b)28(y)-334(the)-333(Harw)28(ell-Bo)-28(eing)-333(format)-334(and)-333(con)28(tained)-333(in)-334(the)-333(input)-333(\014le.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ +0 g 0 G +/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 139.477 -194.811 Td [(133)]TJ +0 g 0 G +ET + +endstream +endobj +1786 0 obj +<< +/Length 5239 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(h)31(b)]TJ +ET +q +1 0 0 1 166.082 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 170.117 706.129 Td [(write)-357(|)-357(W)93(rite)-357(a)-357(sparse)-357(matrix)-358(to)-357(a)-357(\014le)-357(in)-357(the)-357(Harw)31(ell{)]TJ -19.412 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.733 0 Td [(h)-123(b)]TJ +ET +q +1 0 0 1 195.926 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 200.137 667.814 Td [(w)-123(r)-122(i)-123(t)-123(e)-228(\050)-139(a)-228(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-116(n)-116(a)-116(m)-117(e)-393(,)-821(k)-60(e)-60(y)-281(,)-853(r)-92(h)-91(s)-345(,)-902(m)-141(t)-142(i)-141(t)-141(l)-141(e)-247(\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -49.432 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(to)-333(b)-28(e)-333(written.)]TJ 14.355 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 362.845 586.32 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 365.983 586.121 Td [(Tspmat)]TJ +ET +q +1 0 0 1 397.993 586.32 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 401.131 586.121 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.347 -19.926 Td [(b)]TJ +0 g 0 G +/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(sid)1(e)-1(.)]TJ 13.56 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(Optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-282(arr)1(a)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(1)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.955 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(and)-383(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -19.926 Td [(\014lename)]TJ +0 g 0 G +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(haracter)-435(v)56(ariable)-435(con)27(tain)1(ing)-436(a)-435(v)56(alid)-435(\014le)-435(name)-1(,)-460(or)]TJ/F30 9.9626 Tf 297.916 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-281(d)1(e)-1(f)1(ault)-281(output)-280(unit)-280(6)-281(\050i.e.)-427(stand)1(ard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -106.213 -19.926 Td [(iunit)]TJ +0 g 0 G +/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.626 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-334(meaningf)1(ul)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.289 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -316.425 -19.925 Td [(k)32(ey)]TJ +0 g 0 G +/F8 9.9626 Tf 22.008 0 Td [(Matrix)-333(k)28(ey)83(.)]TJ 2.899 -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.956 Td [(A)-385(c)28(harac)28(h)28(ter)-385(v)56(ariable)-385(of)-385(length)-384(8)-385(holding)-385(the)-384(matrix)-385(k)28(ey)-385(as)-385(sp)-28(eci\014ed)-384(b)27(y)]TJ 0 -11.955 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(m)32(title)]TJ +0 g 0 G +/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-318(c)28(harac)28(h)28(ter)-318(v)56(ariable)-318(of)-317(length)-318(72)-317(holding)-318(the)-317(matrix)-318(title)-318(as)-317(sp)-28(eci\014ed)-318(b)28(y)]TJ 0 -11.956 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.917 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.926 Td [(iret)]TJ +0 g 0 G +/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ +0 g 0 G + 139.477 -139.02 Td [(134)]TJ +0 g 0 G +ET + +endstream +endobj +1793 0 obj +<< +/Length 3661 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ +ET +q +1 0 0 1 123.118 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 127.153 706.129 Td [(mat)]TJ +ET +q +1 0 0 1 150.936 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 154.971 706.129 Td [(read)-467(|)-467(Read)-466(a)-467(sparse)-467(matrix)-467(from)-467(a)-467(\014le)-466(in)-467(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.009 0 Td [(m)-50(m)]TJ +ET +q +1 0 0 1 148.479 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 151.965 667.814 Td [(m)-50(a)-50(t)]TJ +ET +q +1 0 0 1 171.214 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 174.701 667.814 Td [(r)-50(e)-50(a)-50(d)-155(\050)-139(a)-228(,)-911(i)-149(r)-150(e)-149(t)-460(,)-897(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -74.806 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(\014lename)]TJ +0 g 0 G +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ +0 g 0 G +/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(a)]TJ +0 g 0 G +/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ +ET +q +1 0 0 1 312.036 452.82 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 315.174 452.621 Td [(Tspmat)]TJ +ET +q +1 0 0 1 347.183 452.82 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 350.322 452.621 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -271.348 -19.925 Td [(iret)]TJ +0 g 0 G +/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 139.477 -318.348 Td [(135)]TJ +0 g 0 G +ET + +endstream +endobj +1799 0 obj +<< +/Length 3696 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ +ET +q +1 0 0 1 173.928 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 177.963 706.129 Td [(arra)31(y)]TJ +ET +q +1 0 0 1 209.557 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 213.592 706.129 Td [(read)-504(|)-504(Read)-504(a)-504(dense)-504(ar)1(ra)31(y)-504(from)-504(a)-504(\014le)-504(in)-504(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.373 0 Td [(m)-86(m)]TJ +ET +q +1 0 0 1 200.38 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 204.23 667.814 Td [(a)-86(r)-87(r)-86(a)-87(y)]TJ +ET +q +1 0 0 1 232.16 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 236.01 667.814 Td [(r)-86(e)-87(a)-86(d)-192(\050)-121(b)-191(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -85.305 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(\014lename)]TJ +0 g 0 G +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.956 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ 0 g 0 G @@ -21177,73 +22723,61 @@ BT /F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(a)]TJ + 0 -19.925 Td [(b)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 452.621 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 452.621 Td [(type)]TJ +/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(side\050s\051.)]TJ 13.561 -11.956 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 [(An)-310(arra)28(y)-310(of)-310(t)28(yp)-28(e)-310(real)-310(or)-310(complex,)-315(ran)1(k)-310(1)-310(or)-310(2)-310(and)-310(ha)28(ving)-310(the)-310(ALLOCA)83(T-)]TJ 0 -11.955 Td [(ABLE)-334(attribute;)-334(will)-333(b)-28(e)-334(allo)-27(c)-1(ated)-333(and)-334(\014lled)-334(in)-333(if)-334(the)-334(input)-333(\014le)-334(con)28(tains)-334(a)]TJ 0 -11.955 Td [(righ)28(t)-333(hand)-334(side,)-333(otherwise)-333(will)-334(b)-27(e)-334(left)-333(in)-333(the)-334(UNALLOCA)84(TED)-334(state.)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F27 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ 0 g 0 G -/F27 9.9626 Tf -271.347 -19.925 Td [(b)]TJ +/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -11.956 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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ 0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(sid)1(e)-1(\050s\051.)]TJ 13.56 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(Optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-282(arr)1(a)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(2)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.956 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(and)-383(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side,)-334(otherwise)-333(will)-333(b)-28(e)-333(left)-334(in)-333(the)-333(UNALLOCA)83(TED)-333(state.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.737 0 Td [(Matrix)-333(title.)]TJ -9.831 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(Optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(A)-405(c)28(harac)28(h)28(ter)-405(v)56(ariable)-405(of)-405(length)-404(72)-405(holding)-405(a)-404(cop)27(y)-404(of)-405(the)-405(matrix)-404(title)-405(as)]TJ 0 -11.956 Td [(sp)-28(eci\014ed)-333(b)28(y)-334(the)-333(Harw)28(ell-Bo)-28(eing)-333(format)-334(and)-333(con)28(tained)-333(in)-334(the)-333(input)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.317 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 139.477 -194.811 Td [(128)]TJ + 139.477 -294.437 Td [(136)]TJ 0 g 0 G ET endstream endobj -1727 0 obj +1806 0 obj << -/Length 5258 +/Length 4176 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(h)31(b)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ ET q -1 0 0 1 115.273 706.328 cm +1 0 0 1 123.118 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 119.308 706.129 Td [(write)-357(|)-357(W)93(rite)-357(a)-357(sparse)-357(matrix)-357(to)-358(a)-357(\014le)-357(in)-357(the)-357(Harw)31(ell{)]TJ -19.413 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.734 0 Td [(h)-123(b)]TJ +/F16 11.9552 Tf 127.153 706.129 Td [(mat)]TJ ET q -1 0 0 1 145.117 668.014 cm +1 0 0 1 150.936 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 154.971 706.129 Td [(write)-531(|)-532(W)94(rite)-532(a)-531(sparse)-531(matrix)-532(to)-531(a)-532(\014le)-531(in)-531(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.175 0 Td [(m)-67(m)]TJ +ET +q +1 0 0 1 148.977 668.014 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 149.328 667.814 Td [(w)-123(r)-122(i)-123(t)-123(e)-228(\050)-139(a)-228(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-116(n)-116(a)-116(m)-117(e)-393(,)-821(k)-60(e)-60(y)-281(,)-853(r)-92(h)-91(s)-345(,)-902(m)-141(t)-142(i)-141(t)-141(l)-141(e)-247(\051)]TJ +/F8 9.9626 Tf 152.63 667.814 Td [(m)-67(a)-66(t)]TJ +ET +q +1 0 0 1 172.377 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 176.029 667.814 Td [(w)-67(r)-66(i)-67(t)-67(e)-172(\050)-139(a)-227(,)-885(m)-124(t)-123(i)-124(t)-124(l)-123(e)-409(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G -/F27 9.9626 Tf -49.433 -17.933 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf -76.134 -17.933 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 @@ -21272,353 +22806,17 @@ BT 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -271.348 -19.926 Td [(b)]TJ +/F27 9.9626 Tf -271.348 -19.926 Td [(m)32(title)]TJ 0 g 0 G -/F8 9.9626 Tf 11.347 0 Td [(Rigth)-333(hand)-333(s)-1(i)1(de.)]TJ 13.56 -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 [(An)-282(ar)1(ra)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(1)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.955 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(an)1(d)-384(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side.)]TJ +/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-299(c)28(harac)28(h)28(ter)-299(v)55(ariable)-299(h)1(olding)-299(a)-299(descriptiv)28(e)-299(title)-299(for)-299(the)-299(matrix)-298(to)-299(b)-28(e)-299(writ-)]TJ 0 -11.955 Td [(ten)-333(to)-334(\014le.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(\014lename)]TJ +/F27 9.9626 Tf -24.907 -19.925 Td [(\014lename)]TJ 0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-280(default)-281(output)-280(unit)-280(6)-281(\050i.e.)-426(s)-1(t)1(andard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -106.213 -19.926 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -19.925 Td [(k)32(ey)]TJ -0 g 0 G -/F8 9.9626 Tf 22.008 0 Td [(Matrix)-333(k)28(ey)83(.)]TJ 2.899 -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.956 Td [(A)-385(c)28(harac)28(h)28(ter)-385(v)56(ariable)-385(of)-385(length)-384(8)-385(holding)-385(the)-384(m)-1(atri)1(x)-385(k)28(ey)-385(as)-385(sp)-28(eci\014ed)-384(b)27(y)]TJ 0 -11.955 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-318(c)28(harac)28(h)28(ter)-318(v)56(ariable)-318(of)-317(length)-318(72)-317(holding)-318(the)-317(m)-1(atr)1(ix)-318(title)-318(as)-317(sp)-28(eci\014ed)-318(b)28(y)]TJ 0 -11.956 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 139.477 -139.02 Td [(129)]TJ -0 g 0 G -ET - -endstream -endobj -1734 0 obj -<< -/Length 3654 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 173.928 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 177.963 706.129 Td [(mat)]TJ -ET -q -1 0 0 1 201.746 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 205.781 706.129 Td [(read)-467(|)-467(Read)-466(a)-467(sparse)-467(matrix)-467(from)-467(a)-467(\014le)-466(in)-467(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.009 0 Td [(m)-50(m)]TJ -ET -q -1 0 0 1 199.288 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 202.775 667.814 Td [(m)-50(a)-50(t)]TJ -ET -q -1 0 0 1 222.024 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 225.51 667.814 Td [(r)-50(e)-50(a)-50(d)-155(\050)-139(a)-228(,)-911(i)-149(r)-150(e)-149(t)-461(,)-896(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -74.805 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.956 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(an)1(ingful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 452.621 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 452.621 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.317 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 139.477 -318.348 Td [(130)]TJ -0 g 0 G -ET - -endstream -endobj -1740 0 obj -<< -/Length 3705 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 123.118 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 127.153 706.129 Td [(arra)31(y)]TJ -ET -q -1 0 0 1 158.747 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 162.782 706.129 Td [(read)-504(|)-504(Read)-504(a)-504(dense)-504(arra)32(y)-504(from)-504(a)-504(\014le)-504(in)-504(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.373 0 Td [(m)-87(m)]TJ -ET -q -1 0 0 1 149.57 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 153.421 667.814 Td [(a)-86(r)-87(r)-86(a)-87(y)]TJ -ET -q -1 0 0 1 181.351 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 185.201 667.814 Td [(r)-86(e)-87(a)-86(d)-192(\050)-121(b)-191(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -85.306 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.347 0 Td [(Rigth)-333(hand)-333(s)-1(i)1(de\050s)-1(\051.)]TJ 13.56 -11.956 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 [(An)-310(arra)28(y)-310(of)-310(t)28(yp)-28(e)-310(real)-310(or)-310(complex,)-315(rank)-309(1)-310(or)-310(2)-310(and)-310(ha)28(ving)-310(the)-310(ALLOCA)83(T-)]TJ 0 -11.955 Td [(ABLE)-334(attribute;)-334(will)-333(b)-28(e)-334(allo)-28(cated)-333(and)-334(\014lled)-334(in)-333(if)-334(the)-334(input)-333(\014le)-334(con)28(tains)-334(a)]TJ 0 -11.955 Td [(righ)28(t)-333(hand)-334(side,)-333(otherwise)-333(will)-334(b)-27(e)-334(left)-333(in)-333(the)-334(UNALLOCA)84(TED)-334(state.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -11.956 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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.477 -294.437 Td [(131)]TJ -0 g 0 G -ET - -endstream -endobj -1747 0 obj -<< -/Length 4185 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 173.928 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 177.963 706.129 Td [(mat)]TJ -ET -q -1 0 0 1 201.746 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 205.781 706.129 Td [(write)-531(|)-532(W)94(rite)-531(a)-532(sparse)-531(matrix)-532(to)-531(a)-532(\014le)-531(in)-531(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.175 0 Td [(m)-67(m)]TJ -ET -q -1 0 0 1 199.787 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 203.439 667.814 Td [(m)-67(a)-66(t)]TJ -ET -q -1 0 0 1 223.186 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 226.839 667.814 Td [(w)-67(r)-66(i)-67(t)-66(e)-173(\050)-139(a)-227(,)-885(m)-124(t)-123(i)-124(t)-124(l)-123(e)-409(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -76.134 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(to)-333(b)-28(e)-333(written.)]TJ 14.356 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.914 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 586.121 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 586.121 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.926 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.737 0 Td [(Matrix)-333(title.)]TJ -9.831 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(A)-299(c)28(harac)28(h)27(t)1(e)-1(r)-298(v)55(ariable)-299(hold)1(ing)-299(a)-299(descriptiv)28(e)-299(title)-299(for)-299(the)-299(matrix)-298(to)-299(b)-28(e)-299(writ-)]TJ 0 -11.955 Td [(ten)-333(to)-334(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.607 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(haracter)-435(v)56(ariable)-435(con)27(tain)1(ing)-436(a)-435(v)56(alid)-435(\014le)-435(name)-1(,)-460(or)]TJ/F30 9.9626 Tf 297.916 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-281(d)1(e)-1(f)1(ault)-281(output)-280(unit)-280(6)-281(\050i.e.)-427(stand)1(ard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.606 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-280(default)-281(output)-280(unit)-280(6)-281(\050i.e.)-426(s)-1(t)1(andard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -106.213 -19.925 Td [(iunit)]TJ 0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.626 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-334(meaningf)1(ul)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.289 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(teger)-334(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.476 -262.557 Td [(132)]TJ -0 g 0 G -ET - -endstream -endobj -1753 0 obj -<< -/Length 3381 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 123.118 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 127.153 706.129 Td [(arra)31(y)]TJ -ET -q -1 0 0 1 158.747 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 162.782 706.129 Td [(write)-438(|)-438(W)93(rite)-438(a)-438(dense)-438(arra)31(y)-438(from)-438(a)-438(\014le)-439(in)-438(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.493 0 Td [(m)-99(m)]TJ -ET -q -1 0 0 1 149.929 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 153.899 667.814 Td [(a)-99(r)-98(r)-98(a)-99(y)]TJ -ET -q -1 0 0 1 182.428 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 186.398 667.814 Td [(w)-98(r)-99(i)-98(t)-99(e)-204(\050)-120(b)-191(,)-911(i)-149(r)-150(e)-149(t)-461(,)-896(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -86.503 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.347 0 Td [(Rigth)-333(hand)-333(s)-1(i)1(de\050s)-1(\051.)]TJ 13.56 -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 [(An)-333(arra)28(y)-334(of)-333(t)28(yp)-28(e)-333(real)-334(or)-333(complex,)-333(rank)-334(1)-333(or)-333(2;)-334(will)-333(b)-28(e)-333(written..)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.926 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G @@ -21627,45 +22825,117 @@ BT 0 g 0 G /F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ 0 g 0 G - 139.477 -318.348 Td [(133)]TJ + 139.477 -262.557 Td [(137)]TJ 0 g 0 G ET endstream endobj -1760 0 obj +1812 0 obj << -/Length 1215 +/Length 3364 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 150.705 706.129 Td [(10)-1125(Preconditioner)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-310(base)-310(PSBLAS)-310(library)-310(con)28(tains)-310(the)-310(implemen)28(tation)-310(of)-310(t)28(w)27(o)-310(simple)-310(precondi-)]TJ 0 -11.955 Td [(tioning)-333(tec)28(hniques:)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ +ET +q +1 0 0 1 173.928 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 177.963 706.129 Td [(arra)31(y)]TJ +ET +q +1 0 0 1 209.557 706.328 cm +[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S +Q +BT +/F16 11.9552 Tf 213.592 706.129 Td [(write)-438(|)-438(W)93(rite)-438(a)-438(dense)-438(arra)31(y)-438(from)-438(a)-438(\014le)-439(in)-438(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.492 0 Td [(m)-99(m)]TJ +ET +q +1 0 0 1 200.739 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 204.709 667.814 Td [(a)-98(r)-99(r)-98(a)-99(y)]TJ +ET +q +1 0 0 1 233.237 668.014 cm +[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S +Q +BT +/F8 9.9626 Tf 237.207 667.814 Td [(w)-99(r)-98(i)-98(t)-99(e)-204(\050)-120(b)-191(,)-911(i)-149(r)-150(e)-149(t)-461(,)-896(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ +0 g 0 G +0 g 0 G +0 g 0 G +/F27 9.9626 Tf -86.502 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(b)]TJ +0 g 0 G +/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(side\050s\051.)]TJ 13.56 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-333(arra)27(y)-333(of)-333(t)28(yp)-28(e)-333(real)-334(or)-333(complex,)-333(rank)-334(1)-333(or)-333(2;)-334(will)-333(b)-28(e)-333(written..)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -19.926 Td [(\014lename)]TJ +0 g 0 G +/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.955 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -96.195 -19.926 Td [(iunit)]TJ +0 g 0 G +/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(an)1(ingful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(iret)]TJ +0 g 0 G +/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ +0 g 0 G + 139.477 -318.348 Td [(138)]TJ +0 g 0 G +ET + +endstream +endobj +1818 0 obj +<< +/Length 1212 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 14.3462 Tf 99.895 706.129 Td [(10)-1125(Preconditioner)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-310(base)-310(PSBLAS)-310(library)-310(con)28(tains)-310(the)-310(implemen)28(tation)-310(of)-310(t)28(w)27(o)-310(simple)-310(precondi-)]TJ 0 -11.955 Td [(tioning)-333(tec)27(hn)1(iques:)]TJ 0 g 0 G /F14 9.9626 Tf 14.944 -19.925 Td [(\017)]TJ 0 g 0 G -/F8 9.9626 Tf 9.962 0 Td [(Diagonal)-333(Scaling)]TJ +/F8 9.9626 Tf 9.963 0 Td [(Diagonal)-333(Scaling)]TJ 0 g 0 G -/F14 9.9626 Tf -9.962 -19.926 Td [(\017)]TJ +/F14 9.9626 Tf -9.963 -19.926 Td [(\017)]TJ 0 g 0 G -/F8 9.9626 Tf 9.962 0 Td [(Blo)-28(c)28(k)-333(Jacobi)-334(with)-333(ILU\0500\051)-333(factorization)]TJ -24.906 -19.925 Td [(The)-364(supp)-27(orting)-364(data)-363(t)27(yp)-27(e)-364(and)-364(subroutin)1(e)-364(in)28(terfaces)-364(are)-364(de\014ned)-363(in)-364(the)-363(mo)-28(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_prec_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)-844(The)-466(old)-466(in)27(terfaces)]TJ/F30 9.9626 Tf 96.594 0 Td [(psb_precinit)]TJ/F8 9.9626 Tf 67.411 0 Td [(and)]TJ/F30 9.9626 Tf 20.697 0 Td [(psb_precbld)]TJ/F8 9.9626 Tf 62.181 0 Td [(are)-466(still)]TJ -309.647 -11.955 Td [(supp)-28(orted)-333(for)-333(bac)28(kw)27(ard)-333(compatibilit)28(y)]TJ +/F8 9.9626 Tf 9.963 0 Td [(Blo)-28(c)28(k)-333(Jacobi)-334(with)-333(ILU\0500\051)-333(factorization)]TJ -24.907 -19.925 Td [(The)-364(supp)-27(orting)-364(data)-364(t)28(yp)-27(e)-364(and)-364(subroutine)-363(in)28(terfaces)-364(are)-364(de\014ned)-363(in)-364(the)-364(mo)-27(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_prec_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)-844(The)-466(old)-466(in)27(terfaces)]TJ/F30 9.9626 Tf 96.595 0 Td [(psb_precinit)]TJ/F8 9.9626 Tf 67.41 0 Td [(and)]TJ/F30 9.9626 Tf 20.698 0 Td [(psb_precbld)]TJ/F8 9.9626 Tf 62.18 0 Td [(are)-466(still)]TJ -309.647 -11.955 Td [(supp)-28(orted)-333(for)-333(bac)27(kw)28(ard)-333(compatibilit)28(y)]TJ 0 g 0 G - 164.383 -498.229 Td [(134)]TJ + 164.384 -498.229 Td [(139)]TJ 0 g 0 G ET endstream endobj -1766 0 obj +1825 0 obj << -/Length 5078 +/Length 5089 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(init)-375(|)-375(Initialize)-375(a)-375(preconditioner)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(init)-375(|)-375(Initialize)-375(a)-375(preconditioner)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ @@ -21679,44 +22949,44 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ +/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(pt)32(yp)-32(e)]TJ 0 g 0 G -/F8 9.9626 Tf 33.465 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(preconditioner.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 153.093 0 Td [(global)]TJ/F8 9.9626 Tf -161.651 -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(c)28(haracter)-333(s)-1(t)1(ring,)-334(see)-333(usage)-334(notes.)]TJ +/F8 9.9626 Tf 33.465 0 Td [(the)-333(t)28(yp)-28(e)-334(of)-333(preconditioner.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 153.092 0 Td [(global)]TJ/F8 9.9626 Tf -161.65 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(c)28(haracter)-333(string,)-334(see)-333(usage)-334(n)1(ote)-1(s.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(On)-383(Exit)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.88 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ +/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.879 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 197.537 0 Td [(psb)]TJ ET q -1 0 0 1 338.658 446.843 cm +1 0 0 1 389.467 446.843 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 341.796 446.644 Td [(prec)]TJ +/F30 9.9626 Tf 392.606 446.644 Td [(prec)]TJ ET q -1 0 0 1 363.345 446.843 cm +1 0 0 1 414.155 446.843 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 366.483 446.644 Td [(type)]TJ +/F30 9.9626 Tf 417.293 446.644 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -287.51 -19.926 Td [(info)]TJ +/F27 9.9626 Tf -287.509 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.059 0 Td [(Legal)-316(inputs)-315(to)-316(this)-316(subroutine)-315(are)-316(in)28(terpreted)-316(dep)-28(ending)-315(on)-316(the)]TJ/F11 9.9626 Tf 283.149 0 Td [(pty)-36(pe)]TJ/F8 9.9626 Tf -320.208 -11.955 Td [(string)-333(as)-334(follo)28(ws)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.058 0 Td [(Legal)-316(inputs)-315(to)-316(this)-316(subroutine)-315(are)-316(in)28(terpreted)-316(dep)-28(ending)-315(on)-316(the)]TJ/F11 9.9626 Tf 283.15 0 Td [(pty)-36(pe)]TJ/F8 9.9626 Tf -320.208 -11.955 Td [(string)-333(as)-334(follo)28(ws)]TJ 0 0 1 rg 0 0 1 RG -/F7 6.9738 Tf 69.933 3.615 Td [(4)]TJ +/F7 6.9738 Tf 69.932 3.615 Td [(4)]TJ 0 g 0 G -/F8 9.9626 Tf 4.469 -3.615 Td [(:)]TJ +/F8 9.9626 Tf 4.47 -3.615 Td [(:)]TJ 0 g 0 G /F27 9.9626 Tf -74.402 -19.925 Td [(NONE)]TJ 0 g 0 G @@ -21724,551 +22994,36 @@ BT 0 g 0 G /F27 9.9626 Tf -39.048 -19.926 Td [(DIA)32(G)]TJ 0 g 0 G -/F8 9.9626 Tf 35.464 0 Td [(Diagonal)-441(scaling;)-496(eac)28(h)-442(en)28(try)-441(of)-442(th)1(e)-442(input)-441(v)28(ec)-1(tor)-441(is)-441(m)27(ultip)1(lied)-442(b)28(y)-441(the)]TJ -10.557 -11.955 Td [(recipro)-28(cal)-346(of)-346(the)-346(sum)-346(of)-345(the)-346(absolute)-346(v)55(alues)-346(of)-346(the)-346(co)-27(e\016cien)27(ts)-346(in)-346(th)1(e)-346(c)-1(or)1(-)]TJ 0 -11.955 Td [(resp)-28(onding)-333(ro)28(w)-334(of)-333(matrix)]TJ/F11 9.9626 Tf 113.602 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)]TJ +/F8 9.9626 Tf 35.464 0 Td [(Diagonal)-441(scaling;)-496(eac)28(h)-442(en)28(try)-441(of)-441(the)-442(input)-441(v)28(ector)-442(is)-441(m)27(ulti)1(plied)-442(b)28(y)-441(the)]TJ -10.557 -11.955 Td [(recipro)-28(cal)-346(of)-346(the)-346(sum)-345(of)-346(the)-346(absolute)-346(v)55(alues)-346(of)-346(th)1(e)-346(c)-1(o)-27(e\016cien)27(ts)-346(in)-345(the)-346(cor-)]TJ 0 -11.955 Td [(resp)-28(onding)-333(ro)28(w)-334(of)-333(matrix)]TJ/F11 9.9626 Tf 113.602 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)]TJ 0 g 0 G /F27 9.9626 Tf -145.981 -19.925 Td [(BJA)32(C)]TJ 0 g 0 G -/F8 9.9626 Tf 35.672 0 Td [(Precondition)-249(b)28(y)-249(a)-249(factorization)-248(of)-249(the)-249(blo)-28(c)28(k-diagonal)-249(of)-249(matrix)]TJ/F11 9.9626 Tf 269.665 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(,)-266(where)]TJ -287.902 -11.956 Td [(blo)-28(c)28(k)-457(b)-28(oundaries)-457(are)-457(determined)-457(b)28(y)-457(the)-457(data)-457(allo)-28(cation)-457(b)-28(oundaries)-457(for)]TJ 0 -11.955 Td [(eac)28(h)-347(pro)-28(cess;)-353(requires)-346(no)-347(comm)28(unication.)-484(Only)-347(the)-346(incomplete)-347(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F11 9.9626 Tf 20.479 0 Td [(I)-78(LU)]TJ/F8 9.9626 Tf 19.83 0 Td [(\0500\051)-333(is)-334(curren)28(tly)-333(implemen)28(ted.)]TJ +/F8 9.9626 Tf 35.672 0 Td [(Precondition)-249(b)28(y)-249(a)-249(factorization)-248(of)-249(the)-249(blo)-28(c)28(k-diagonal)-249(of)-249(matrix)]TJ/F11 9.9626 Tf 269.664 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(,)-266(where)]TJ -287.901 -11.956 Td [(blo)-28(c)28(k)-457(b)-28(oundaries)-457(are)-457(determined)-457(b)28(y)-457(the)-457(data)-457(allo)-28(cation)-457(b)-28(oundaries)-457(for)]TJ 0 -11.955 Td [(eac)28(h)-347(pro)-27(c)-1(ess;)-353(requires)-346(no)-347(comm)28(unication.)-484(Only)-347(the)-346(incomplete)-347(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F11 9.9626 Tf 20.478 0 Td [(I)-78(LU)]TJ/F8 9.9626 Tf 19.83 0 Td [(\0500\051)-333(is)-334(curren)28(tly)-333(implemen)28(ted.)]TJ 0 g 0 G ET q -1 0 0 1 99.895 129.78 cm +1 0 0 1 150.705 129.78 cm []0 d 0 J 0.398 w 0 0 m 137.482 0 l S Q BT -/F32 5.9776 Tf 110.987 123.138 Td [(4)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(The)-354(string)-354(is)-355(case-insensitiv)30(e)]TJ +/F32 5.9776 Tf 161.797 123.138 Td [(4)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(The)-354(string)-354(is)-354(c)-1(a)1(se)-1(-)1(i)-1(nsensitiv)30(e)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf 149.141 -29.888 Td [(135)]TJ +/F8 9.9626 Tf 149.14 -29.888 Td [(140)]TJ 0 g 0 G ET endstream endobj -1687 0 obj +1834 0 obj << -/Type /ObjStm -/N 100 -/First 967 -/Length 8778 ->> -stream -1667 0 1668 59 1669 117 1670 176 1671 235 1672 294 1673 353 1674 412 1675 471 1676 530 -1677 589 1678 646 1679 705 1680 764 1681 823 1682 882 1683 941 1684 1000 1685 1059 1686 1118 -1655 1176 1656 1235 1657 1294 1689 1402 1691 1520 473 1578 1692 1635 1693 1692 1688 1749 1695 1842 -1697 1960 477 2019 1698 2077 1699 2135 1694 2193 1701 2286 1703 2404 481 2462 1704 2519 1705 2576 -1700 2633 1707 2726 1709 2844 485 2903 1710 2961 1711 3019 1706 3077 1713 3183 1715 3301 489 3359 -1712 3416 1719 3509 1717 3648 1721 3792 493 3851 1722 3909 1723 3968 1718 4027 1726 4133 1724 4272 -1728 4416 497 4474 1729 4531 1730 4589 1725 4647 1733 4753 1731 4892 1735 5036 501 5095 1736 5153 -1737 5212 1732 5271 1739 5377 1741 5495 505 5553 1742 5610 1743 5668 1738 5726 1746 5832 1744 5971 -1748 6114 509 6173 1749 6231 1750 6290 1745 6349 1752 6455 1754 6573 513 6631 1755 6688 1756 6746 -1751 6804 1759 6910 1761 7028 517 7087 1758 7145 1765 7251 1762 7399 1763 7546 1767 7696 521 7754 -% 1667 0 obj -<< -/D [1658 0 R /XYZ 159.073 647.189 null] ->> -% 1668 0 obj -<< -/D [1658 0 R /XYZ 159.073 636.23 null] ->> -% 1669 0 obj -<< -/D [1658 0 R /XYZ 159.073 625.271 null] ->> -% 1670 0 obj -<< -/D [1658 0 R /XYZ 159.073 614.312 null] ->> -% 1671 0 obj -<< -/D [1658 0 R /XYZ 159.073 603.353 null] ->> -% 1672 0 obj -<< -/D [1658 0 R /XYZ 159.073 592.394 null] ->> -% 1673 0 obj -<< -/D [1658 0 R /XYZ 159.073 581.436 null] ->> -% 1674 0 obj -<< -/D [1658 0 R /XYZ 159.073 570.477 null] ->> -% 1675 0 obj -<< -/D [1658 0 R /XYZ 159.073 559.518 null] ->> -% 1676 0 obj -<< -/D [1658 0 R /XYZ 159.073 548.559 null] ->> -% 1677 0 obj -<< -/D [1658 0 R /XYZ 159.073 537.6 null] ->> -% 1678 0 obj -<< -/D [1658 0 R /XYZ 159.073 526.641 null] ->> -% 1679 0 obj -<< -/D [1658 0 R /XYZ 159.073 515.682 null] ->> -% 1680 0 obj -<< -/D [1658 0 R /XYZ 159.073 504.723 null] ->> -% 1681 0 obj -<< -/D [1658 0 R /XYZ 159.073 493.764 null] ->> -% 1682 0 obj -<< -/D [1658 0 R /XYZ 159.073 482.805 null] ->> -% 1683 0 obj -<< -/D [1658 0 R /XYZ 159.073 471.847 null] ->> -% 1684 0 obj -<< -/D [1658 0 R /XYZ 159.073 460.888 null] ->> -% 1685 0 obj -<< -/D [1658 0 R /XYZ 159.073 449.929 null] ->> -% 1686 0 obj -<< -/D [1658 0 R /XYZ 159.073 438.97 null] ->> -% 1655 0 obj -<< -/D [1658 0 R /XYZ 194.261 394.492 null] ->> -% 1656 0 obj -<< -/D [1658 0 R /XYZ 200.884 149.223 null] ->> -% 1657 0 obj -<< -/Font << /F53 1663 0 R /F46 1211 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1689 0 obj -<< -/Type /Page -/Contents 1690 0 R -/Resources 1688 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R ->> -% 1691 0 obj -<< -/D [1689 0 R /XYZ 98.895 753.953 null] ->> -% 473 0 obj -<< -/D [1689 0 R /XYZ 99.895 724.062 null] ->> -% 1692 0 obj -<< -/D [1689 0 R /XYZ 99.895 638.48 null] ->> -% 1693 0 obj -<< -/D [1689 0 R /XYZ 99.895 638.48 null] ->> -% 1688 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1695 0 obj -<< -/Type /Page -/Contents 1696 0 R -/Resources 1694 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R ->> -% 1697 0 obj -<< -/D [1695 0 R /XYZ 149.705 753.953 null] ->> -% 477 0 obj -<< -/D [1695 0 R /XYZ 150.705 724.062 null] ->> -% 1698 0 obj -<< -/D [1695 0 R /XYZ 150.705 638.48 null] ->> -% 1699 0 obj -<< -/D [1695 0 R /XYZ 150.705 638.48 null] ->> -% 1694 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1701 0 obj -<< -/Type /Page -/Contents 1702 0 R -/Resources 1700 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R ->> -% 1703 0 obj -<< -/D [1701 0 R /XYZ 98.895 753.953 null] ->> -% 481 0 obj -<< -/D [1701 0 R /XYZ 99.895 724.062 null] ->> -% 1704 0 obj -<< -/D [1701 0 R /XYZ 99.895 635.69 null] ->> -% 1705 0 obj -<< -/D [1701 0 R /XYZ 99.895 638.48 null] ->> -% 1700 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1707 0 obj -<< -/Type /Page -/Contents 1708 0 R -/Resources 1706 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1654 0 R ->> -% 1709 0 obj -<< -/D [1707 0 R /XYZ 149.705 753.953 null] ->> -% 485 0 obj -<< -/D [1707 0 R /XYZ 150.705 724.062 null] ->> -% 1710 0 obj -<< -/D [1707 0 R /XYZ 150.705 635.69 null] ->> -% 1711 0 obj -<< -/D [1707 0 R /XYZ 150.705 638.48 null] ->> -% 1706 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1713 0 obj -<< -/Type /Page -/Contents 1714 0 R -/Resources 1712 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R ->> -% 1715 0 obj -<< -/D [1713 0 R /XYZ 98.895 753.953 null] ->> -% 489 0 obj -<< -/D [1713 0 R /XYZ 99.895 716.092 null] ->> -% 1712 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1719 0 obj -<< -/Type /Page -/Contents 1720 0 R -/Resources 1718 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R -/Annots [ 1717 0 R ] ->> -% 1717 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 449.411 423.049 460.536] -/A << /S /GoTo /D (spdata) >> ->> -% 1721 0 obj -<< -/D [1719 0 R /XYZ 149.705 753.953 null] ->> -% 493 0 obj -<< -/D [1719 0 R /XYZ 150.705 720.077 null] ->> -% 1722 0 obj -<< -/D [1719 0 R /XYZ 150.705 677.445 null] ->> -% 1723 0 obj -<< -/D [1719 0 R /XYZ 150.705 679.769 null] ->> -% 1718 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1726 0 obj -<< -/Type /Page -/Contents 1727 0 R -/Resources 1725 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R -/Annots [ 1724 0 R ] ->> -% 1724 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 582.91 372.239 594.035] -/A << /S /GoTo /D (spdata) >> ->> -% 1728 0 obj -<< -/D [1726 0 R /XYZ 98.895 753.953 null] ->> -% 497 0 obj -<< -/D [1726 0 R /XYZ 99.895 720.077 null] ->> -% 1729 0 obj -<< -/D [1726 0 R /XYZ 99.895 677.445 null] ->> -% 1730 0 obj -<< -/D [1726 0 R /XYZ 99.895 679.769 null] ->> -% 1725 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1733 0 obj -<< -/Type /Page -/Contents 1734 0 R -/Resources 1732 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R -/Annots [ 1731 0 R ] ->> -% 1731 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 449.411 423.049 460.536] -/A << /S /GoTo /D (spdata) >> ->> -% 1735 0 obj -<< -/D [1733 0 R /XYZ 149.705 753.953 null] ->> -% 501 0 obj -<< -/D [1733 0 R /XYZ 150.705 720.077 null] ->> -% 1736 0 obj -<< -/D [1733 0 R /XYZ 150.705 679.769 null] ->> -% 1737 0 obj -<< -/D [1733 0 R /XYZ 150.705 679.769 null] ->> -% 1732 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1739 0 obj -<< -/Type /Page -/Contents 1740 0 R -/Resources 1738 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R ->> -% 1741 0 obj -<< -/D [1739 0 R /XYZ 98.895 753.953 null] ->> -% 505 0 obj -<< -/D [1739 0 R /XYZ 99.895 720.077 null] ->> -% 1742 0 obj -<< -/D [1739 0 R /XYZ 99.895 679.769 null] ->> -% 1743 0 obj -<< -/D [1739 0 R /XYZ 99.895 679.769 null] ->> -% 1738 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1746 0 obj -<< -/Type /Page -/Contents 1747 0 R -/Resources 1745 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1716 0 R -/Annots [ 1744 0 R ] ->> -% 1744 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 582.91 423.049 594.035] -/A << /S /GoTo /D (spdata) >> ->> -% 1748 0 obj -<< -/D [1746 0 R /XYZ 149.705 753.953 null] ->> -% 509 0 obj -<< -/D [1746 0 R /XYZ 150.705 720.077 null] ->> -% 1749 0 obj -<< -/D [1746 0 R /XYZ 150.705 679.769 null] ->> -% 1750 0 obj -<< -/D [1746 0 R /XYZ 150.705 679.769 null] ->> -% 1745 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1752 0 obj -<< -/Type /Page -/Contents 1753 0 R -/Resources 1751 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R ->> -% 1754 0 obj -<< -/D [1752 0 R /XYZ 98.895 753.953 null] ->> -% 513 0 obj -<< -/D [1752 0 R /XYZ 99.895 720.077 null] ->> -% 1755 0 obj -<< -/D [1752 0 R /XYZ 99.895 679.769 null] ->> -% 1756 0 obj -<< -/D [1752 0 R /XYZ 99.895 679.769 null] ->> -% 1751 0 obj -<< -/Font << /F16 558 0 R /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1759 0 obj -<< -/Type /Page -/Contents 1760 0 R -/Resources 1758 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R ->> -% 1761 0 obj -<< -/D [1759 0 R /XYZ 149.705 753.953 null] ->> -% 517 0 obj -<< -/D [1759 0 R /XYZ 150.705 716.092 null] ->> -% 1758 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F14 772 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1765 0 obj -<< -/Type /Page -/Contents 1766 0 R -/Resources 1764 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R -/Annots [ 1762 0 R 1763 0 R ] ->> -% 1762 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [321.343 443.433 388.401 454.558] -/A << /S /GoTo /D (precdata) >> ->> -% 1763 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.831 354.046 175.293 366.086] -/A << /S /GoTo /D (Hfootnote.4) >> ->> -% 1767 0 obj -<< -/D [1765 0 R /XYZ 98.895 753.953 null] ->> -% 521 0 obj -<< -/D [1765 0 R /XYZ 99.895 720.077 null] ->> - -endstream -endobj -1776 0 obj -<< -/Length 7727 +/Length 7751 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(build)-375(|)-375(Builds)-375(a)-375(preconditioner)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(build)-375(|)-375(Builds)-375(a)-375(preconditioner)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -19.764 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ @@ -22282,230 +23037,230 @@ BT 0 g 0 G 0 -22.879 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(system)-334(sparse)-333(matrix.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 148.886 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -134.53 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(,)-333(target.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(sparse)-333(matrix)-334(d)1(ata)-334(structure)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(system)-334(sparse)-333(matrix.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 148.886 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -134.53 -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 [(,)-333(target.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(sparse)-333(matrix)-334(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 194.05 0 Td [(psb)]TJ ET q -1 0 0 1 385.981 580.809 cm +1 0 0 1 335.171 580.809 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 389.119 580.61 Td [(Tspmat)]TJ +/F30 9.9626 Tf 338.309 580.61 Td [(Tspmat)]TJ ET q -1 0 0 1 421.128 580.809 cm +1 0 0 1 370.319 580.809 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 424.267 580.61 Td [(type)]TJ +/F30 9.9626 Tf 373.457 580.61 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -294.483 -22.879 Td [(prec)]TJ +/F27 9.9626 Tf -294.484 -22.879 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(already)-222(initialized)-222(precondtioner)-222(data)-223(structure)]TJ +/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(already)-222(initialized)-222(precondtioner)-222(data)-223(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 273.115 0 Td [(psb)]TJ ET q -1 0 0 1 465.045 510.11 cm +1 0 0 1 414.236 510.11 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 468.184 509.91 Td [(prec)]TJ +/F30 9.9626 Tf 417.374 509.91 Td [(prec)]TJ ET q -1 0 0 1 489.733 510.11 cm +1 0 0 1 438.923 510.11 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 492.871 509.91 Td [(type)]TJ +/F30 9.9626 Tf 442.061 509.91 Td [(type)]TJ 0 g 0 G 0 g 0 G /F27 9.9626 Tf -342.166 -34.833 Td [(desc)]TJ ET q -1 0 0 1 172.619 475.276 cm +1 0 0 1 121.81 475.276 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 475.077 Td [(a)]TJ +/F27 9.9626 Tf 125.247 475.077 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(,)-333(target.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(comm)28(unication)-333(des)-1(crip)1(tor)-334(data)-333(structure)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -11.956 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 [(,)-333(target.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(comm)28(unication)-333(desc)-1(ri)1(ptor)-334(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 247.683 0 Td [(psb)]TJ ET q -1 0 0 1 439.613 439.41 cm +1 0 0 1 388.803 439.41 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 442.751 439.211 Td [(desc)]TJ +/F30 9.9626 Tf 391.942 439.211 Td [(desc)]TJ ET q -1 0 0 1 464.3 439.41 cm +1 0 0 1 413.491 439.41 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 467.438 439.211 Td [(type)]TJ +/F30 9.9626 Tf 416.629 439.211 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -337.655 -22.879 Td [(amold)]TJ 0 g 0 G -/F8 9.9626 Tf 35.374 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -10.467 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.348 0 Td [(psb)]TJ +/F8 9.9626 Tf 35.374 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -10.467 -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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ ET q -1 0 0 1 395.279 368.711 cm +1 0 0 1 344.47 368.711 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 398.417 368.512 Td [(T)]TJ +/F30 9.9626 Tf 347.608 368.512 Td [(T)]TJ ET q -1 0 0 1 404.275 368.711 cm +1 0 0 1 353.466 368.711 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 407.413 368.512 Td [(base)]TJ +/F30 9.9626 Tf 356.604 368.512 Td [(base)]TJ ET q -1 0 0 1 428.962 368.711 cm +1 0 0 1 378.153 368.711 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 432.101 368.512 Td [(sparse)]TJ +/F30 9.9626 Tf 381.291 368.512 Td [(sparse)]TJ ET q -1 0 0 1 464.11 368.711 cm +1 0 0 1 413.301 368.711 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 467.248 368.512 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ +/F30 9.9626 Tf 416.439 368.512 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -332.234 -22.879 Td [(vmold)]TJ +/F27 9.9626 Tf -332.235 -22.879 Td [(vmold)]TJ 0 g 0 G -/F8 9.9626 Tf 35.851 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -10.945 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ +/F8 9.9626 Tf 35.852 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -10.945 -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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ ET q -1 0 0 1 395.279 298.012 cm +1 0 0 1 344.47 298.012 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 398.417 297.812 Td [(T)]TJ +/F30 9.9626 Tf 347.608 297.812 Td [(T)]TJ ET q -1 0 0 1 404.275 298.012 cm +1 0 0 1 353.466 298.012 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 407.413 297.812 Td [(base)]TJ +/F30 9.9626 Tf 356.604 297.812 Td [(base)]TJ ET q -1 0 0 1 428.962 298.012 cm +1 0 0 1 378.153 298.012 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 432.101 297.812 Td [(vect)]TJ +/F30 9.9626 Tf 381.291 297.812 Td [(vect)]TJ ET q -1 0 0 1 453.65 298.012 cm +1 0 0 1 402.84 298.012 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 456.788 297.812 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F30 9.9626 Tf 405.978 297.812 Td [(type)]TJ/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -327.004 -22.878 Td [(imold)]TJ +/F27 9.9626 Tf -327.005 -22.878 Td [(imold)]TJ 0 g 0 G -/F8 9.9626 Tf 32.987 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(in)27(teger)-333(v)28(ector)-334(storage.)]TJ -8.081 -11.956 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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(ob)-56(ject)-222(of)-222(a)-222(class)-223(deriv)28(ed)-222(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 233.542 0 Td [(psb)]TJ +/F8 9.9626 Tf 32.988 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(in)28(te)-1(ger)-333(v)28(ector)-333(s)-1(t)1(o)-1(r)1(age)-1(.)]TJ -8.081 -11.956 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 [(.)]TJ -70.188 -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)-222(as:)-389(an)-222(ob)-56(ject)-222(of)-222(a)-222(class)-223(deriv)28(ed)-222(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 233.541 0 Td [(psb)]TJ ET q -1 0 0 1 425.471 227.312 cm +1 0 0 1 374.662 227.312 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 428.61 227.113 Td [(T)]TJ +/F30 9.9626 Tf 377.8 227.113 Td [(T)]TJ ET q -1 0 0 1 434.468 227.312 cm +1 0 0 1 383.658 227.312 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 437.606 227.113 Td [(base)]TJ +/F30 9.9626 Tf 386.796 227.113 Td [(base)]TJ ET q -1 0 0 1 459.155 227.312 cm +1 0 0 1 408.345 227.312 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 462.293 227.113 Td [(vect)]TJ +/F30 9.9626 Tf 411.483 227.113 Td [(vect)]TJ ET q -1 0 0 1 483.842 227.312 cm +1 0 0 1 433.032 227.312 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 486.98 227.113 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F30 9.9626 Tf 436.171 227.113 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -357.196 -24.133 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -357.197 -24.133 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -22.879 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.502 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(precondtioner)-333(data)-333(structure)]TJ +/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(precondtioner)-333(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 194.77 0 Td [(psb)]TJ ET q -1 0 0 1 386.7 132.48 cm +1 0 0 1 335.891 132.48 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 389.838 132.281 Td [(prec)]TJ +/F30 9.9626 Tf 339.029 132.281 Td [(prec)]TJ ET q -1 0 0 1 411.387 132.48 cm +1 0 0 1 360.578 132.48 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 414.525 132.281 Td [(type)]TJ +/F30 9.9626 Tf 363.716 132.281 Td [(type)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf -99.437 -41.843 Td [(136)]TJ +/F8 9.9626 Tf -99.437 -41.843 Td [(141)]TJ 0 g 0 G ET endstream endobj -1780 0 obj +1838 0 obj << -/Length 1094 +/Length 1097 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(info)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -24.907 -21.918 Td [(The)]TJ/F30 9.9626 Tf 21.638 0 Td [(amold)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 7.536 0 Td [(vmold)]TJ/F8 9.9626 Tf 30.631 0 Td [(and)]TJ/F30 9.9626 Tf 20.531 0 Td [(imold)]TJ/F8 9.9626 Tf 30.631 0 Td [(argumen)28(ts)-450(ma)28(y)-450(b)-27(e)-450(emplo)28(y)27(ed)-449(to)-450(in)28(terface)-450(with)]TJ -137.119 -11.955 Td [(sp)-28(ecial)-333(devices,)-334(suc)28(h)-333(as)-334(GPUs)-333(and)-333(other)-333(ac)-1(celerators.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -24.906 -21.918 Td [(The)]TJ/F30 9.9626 Tf 21.637 0 Td [(amold)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 7.537 0 Td [(vmold)]TJ/F8 9.9626 Tf 30.631 0 Td [(and)]TJ/F30 9.9626 Tf 20.53 0 Td [(imold)]TJ/F8 9.9626 Tf 30.631 0 Td [(argumen)28(ts)-450(ma)28(y)-450(b)-28(e)-449(emplo)28(y)27(ed)-449(to)-450(in)28(terface)-450(with)]TJ -137.118 -11.955 Td [(sp)-28(ecial)-333(devices,)-334(suc)28(h)-333(as)-334(GP)1(Us)-334(and)-333(other)-333(acc)-1(elerators.)]TJ 0 g 0 G - 164.384 -533.997 Td [(137)]TJ + 164.383 -533.997 Td [(142)]TJ 0 g 0 G ET endstream endobj -1788 0 obj +1846 0 obj << -/Length 5851 +/Length 5847 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(apply)-375(|)-375(Preconditioner)-375(application)-375(routine)]TJ +/F16 11.9552 Tf 99.895 706.129 Td [(apply)-375(|)-375(Preconditioner)-375(application)-375(routine)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%apply\050x,y,desc_a,info,trans,work\051)]TJ 0 -11.956 Td [(call)-525(prec%apply\050x,desc_a,info,trans\051)]TJ @@ -22519,156 +23274,6 @@ BT 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 119.33 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.832 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.538 0 Td [(psb)]TJ -ET -q -1 0 0 1 389.467 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 578.15 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.509 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(source)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.851 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -99.972 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.495 0 Td [(psb)]TJ -ET -q -1 0 0 1 415.426 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 418.564 522.36 Td [(T)]TJ -ET -q -1 0 0 1 424.422 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 427.56 522.36 Td [(vect)]TJ -ET -q -1 0 0 1 449.109 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 452.247 522.36 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -322.464 -19.926 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 502.634 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 502.434 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(comm)28(unication)-333(data)-334(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 201.08 0 Td [(psb)]TJ -ET -q -1 0 0 1 393.01 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 396.148 466.569 Td [(desc)]TJ -ET -q -1 0 0 1 417.697 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 420.835 466.569 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -291.052 -19.925 Td [(trans)]TJ -0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(Scop)-28(e:)]TJ -5.702 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(c)28(haracter.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(w)32(ork)]TJ -0 g 0 G -/F8 9.9626 Tf 29.431 0 Td [(an)-333(optional)-334(w)28(ork)-333(space)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 135.963 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -140.487 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(double)-333(precision)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(destination)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 134.856 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.977 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.495 0 Td [(psb)]TJ -ET -q -1 0 0 1 415.426 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 418.564 277.279 Td [(T)]TJ -ET -q -1 0 0 1 424.422 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 427.56 277.279 Td [(vect)]TJ -ET -q -1 0 0 1 449.109 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 452.247 277.279 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -322.464 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 139.477 -119.095 Td [(138)]TJ -0 g 0 G -ET - -endstream -endobj -1793 0 obj -<< -/Length 2947 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(descr)-375(|)-375(Prin)31(ts)-375(a)-375(description)-375(of)-375(curren)31(t)-375(preconditioner)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%descr\050\051)]TJ 0 -11.956 Td [(call)-525(prec%descr\050iout,)-525(root\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(prec)]TJ -0 g 0 G /F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 119.331 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.832 -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(preconditioner)-333(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 197.537 0 Td [(psb)]TJ @@ -22689,29 +23294,179 @@ BT 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -287.51 -19.925 Td [(iout)]TJ +/F27 9.9626 Tf -287.51 -19.925 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 24.713 0 Td [(output)-333(unit.)-445(S)1(c)-1(op)-27(e:)]TJ/F27 9.9626 Tf 89.941 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -89.747 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(n)27(um)28(b)-28(er.)-444(Default:)-444(default)-334(outp)1(ut)-334(unit.)]TJ +/F8 9.9626 Tf 11.028 0 Td [(the)-333(source)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.851 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -99.972 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ +ET +q +1 0 0 1 364.616 522.559 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 367.754 522.36 Td [(T)]TJ +ET +q +1 0 0 1 373.612 522.559 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 376.751 522.36 Td [(vect)]TJ +ET +q +1 0 0 1 398.3 522.559 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 401.438 522.36 Td [(type)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-333(from)-334(wh)1(ic)27(h)-333(to)-333(prin)28(t)-334(Scop)-28(e:)]TJ/F27 9.9626 Tf 157.244 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -158.268 -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.955 Td [(Sp)-28(eci\014ed)-478(as:)-733(an)-478(in)28(teger)-478(n)28(um)28(b)-28(er)-478(b)-28(et)28(w)28(een)-478(0)-478(and)]TJ/F11 9.9626 Tf 220.072 0 Td [(np)]TJ/F14 9.9626 Tf 14.166 0 Td [(\000)]TJ/F8 9.9626 Tf 10.923 0 Td [(1,)-514(in)-478(whic)28(h)-478(case)]TJ -245.161 -11.955 Td [(the)-410(sp)-28(eci\014ed)-410(pro)-28(cess)-410(will)-411(pr)1(in)27(t)-410(the)-410(description,)-429(or)]TJ/F14 9.9626 Tf 225 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1,)-429(in)-411(whic)28(h)-410(case)-410(all)]TJ -232.748 -11.955 Td [(pro)-28(cesses)-333(will)-334(prin)28(t.)-444(Default:)-444(0.)]TJ +/F27 9.9626 Tf -322.464 -19.926 Td [(desc)]TJ +ET +q +1 0 0 1 121.81 502.634 cm +[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S +Q +BT +/F27 9.9626 Tf 125.247 502.434 Td [(a)]TJ 0 g 0 G - 139.477 -352.221 Td [(139)]TJ +/F8 9.9626 Tf 10.551 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -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(comm)28(unication)-333(data)-334(structure)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 201.08 0 Td [(psb)]TJ +ET +q +1 0 0 1 342.2 466.768 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 345.339 466.569 Td [(desc)]TJ +ET +q +1 0 0 1 366.887 466.768 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 370.026 466.569 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -291.052 -19.925 Td [(trans)]TJ +0 g 0 G +/F8 9.9626 Tf 30.609 0 Td [(Scop)-28(e:)]TJ -5.702 -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(a)-333(c)28(haracter.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -19.925 Td [(w)32(ork)]TJ +0 g 0 G +/F8 9.9626 Tf 29.432 0 Td [(an)-333(optional)-333(w)27(ork)-333(space)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 135.962 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -140.487 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(double)-333(precision)-333(arra)27(y)84(.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(y)]TJ +0 g 0 G +/F8 9.9626 Tf 11.028 0 Td [(the)-333(destination)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 134.856 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.977 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ +ET +q +1 0 0 1 364.616 277.478 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 367.754 277.279 Td [(T)]TJ +ET +q +1 0 0 1 373.612 277.478 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 376.751 277.279 Td [(vect)]TJ +ET +q +1 0 0 1 398.3 277.478 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 401.438 277.279 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -322.464 -19.926 Td [(info)]TJ +0 g 0 G +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +0 g 0 G + 139.477 -119.095 Td [(143)]TJ 0 g 0 G ET endstream endobj -1798 0 obj +1851 0 obj << -/Length 987 +/Length 2936 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(clone)-375(|)-375(clone)-375(curren)31(t)-375(preconditioner)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(descr)-375(|)-375(Prin)31(ts)-375(a)-375(description)-375(of)-375(curren)31(t)-375(preconditioner)]TJ +0 g 0 G +0 g 0 G +/F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%descr\050\051)]TJ 0 -11.956 Td [(call)-525(prec%descr\050iout,)-525(root\051)]TJ +0 g 0 G +/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ +0 g 0 G +0 g 0 G + 0 -19.925 Td [(prec)]TJ +0 g 0 G +/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 119.33 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.832 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ +0 0 1 rg 0 0 1 RG +/F30 9.9626 Tf 197.538 0 Td [(psb)]TJ +ET +q +1 0 0 1 389.467 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 392.606 578.15 Td [(prec)]TJ +ET +q +1 0 0 1 414.155 578.35 cm +[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S +Q +BT +/F30 9.9626 Tf 417.293 578.15 Td [(type)]TJ +0 g 0 G +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +0 g 0 G +/F27 9.9626 Tf -287.509 -19.925 Td [(iout)]TJ +0 g 0 G +/F8 9.9626 Tf 24.713 0 Td [(output)-333(unit.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 89.94 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -89.747 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(n)27(um)28(b)-28(er.)-444(Default:)-444(default)-334(outpu)1(t)-334(unit.)]TJ +0 g 0 G +/F27 9.9626 Tf -24.906 -19.926 Td [(ro)-32(ot)]TJ +0 g 0 G +/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-333(from)-334(whic)28(h)-333(to)-333(prin)28(t)-334(Scop)-28(e:)]TJ/F27 9.9626 Tf 157.244 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -158.268 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-478(as:)-733(an)-478(in)28(teger)-478(n)28(um)27(b)-27(er)-478(b)-28(et)28(w)28(een)-478(0)-478(and)]TJ/F11 9.9626 Tf 220.073 0 Td [(np)]TJ/F14 9.9626 Tf 14.166 0 Td [(\000)]TJ/F8 9.9626 Tf 10.922 0 Td [(1,)-514(in)-478(whic)28(h)-478(case)]TJ -245.161 -11.955 Td [(the)-410(sp)-28(eci\014ed)-410(pro)-28(cess)-410(will)-411(pri)1(n)27(t)-410(the)-410(description,)-429(or)]TJ/F14 9.9626 Tf 225 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1,)-429(in)-411(whic)28(h)-410(case)-410(all)]TJ -232.749 -11.955 Td [(pro)-28(cesses)-333(will)-334(prin)28(t.)-444(Default:)-445(0.)]TJ +0 g 0 G + 139.477 -352.221 Td [(144)]TJ +0 g 0 G +ET + +endstream +endobj +1855 0 obj +<< +/Length 989 +>> +stream +0 g 0 G +0 g 0 G +BT +/F16 11.9552 Tf 99.895 706.129 Td [(clone)-375(|)-375(clone)-375(curren)31(t)-375(preconditioner)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-1050(prec%clone\050precout,info\051)]TJ @@ -22725,34 +23480,34 @@ BT 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ +/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 0 g 0 G -/F27 9.9626 Tf -80.358 -33.873 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -80.359 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(precout)]TJ 0 g 0 G -/F8 9.9626 Tf 42.957 0 Td [(A)-333(cop)27(y)-333(of)-333(the)-333(input)-334(ob)-55(ject.)]TJ +/F8 9.9626 Tf 42.957 0 Td [(A)-333(cop)27(y)-333(of)-333(the)-334(in)1(put)-334(ob)-55(ject.)]TJ 0 g 0 G /F27 9.9626 Tf -42.957 -19.926 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Return)-333(co)-28(de.)]TJ 0 g 0 G - 140.625 -449.854 Td [(140)]TJ + 140.626 -449.854 Td [(145)]TJ 0 g 0 G ET endstream endobj -1804 0 obj +1862 0 obj << -/Length 2725 +/Length 2730 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(free)-375(|)-375(F)94(ree)-375(a)-375(preconditioner)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(free)-375(|)-375(F)94(ree)-375(a)-375(preconditioner)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%free\050info\051)]TJ @@ -22766,140 +23521,140 @@ BT 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 [(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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ +/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 197.537 0 Td [(psb)]TJ ET q -1 0 0 1 338.658 578.35 cm +1 0 0 1 389.467 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 341.796 578.15 Td [(prec)]TJ +/F30 9.9626 Tf 392.606 578.15 Td [(prec)]TJ ET q -1 0 0 1 363.345 578.35 cm +1 0 0 1 414.155 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 366.483 578.15 Td [(type)]TJ +/F30 9.9626 Tf 417.293 578.15 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -287.51 -19.925 Td [(On)-383(Exit)]TJ +/F27 9.9626 Tf -287.509 -19.925 Td [(On)-383(Exit)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.88 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ +/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.879 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 197.537 0 Td [(psb)]TJ ET q -1 0 0 1 338.658 502.634 cm +1 0 0 1 389.467 502.634 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 341.796 502.434 Td [(prec)]TJ +/F30 9.9626 Tf 392.606 502.434 Td [(prec)]TJ ET q -1 0 0 1 363.345 502.634 cm +1 0 0 1 414.155 502.634 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 366.483 502.434 Td [(type)]TJ +/F30 9.9626 Tf 417.293 502.434 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -287.51 -19.925 Td [(info)]TJ +/F27 9.9626 Tf -287.509 -19.925 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.234 0 Td [(Releases)-334(all)-333(in)28(ternal)-333(storage.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.234 0 Td [(Releases)-334(all)-333(in)28(ternal)-333(storage.)]TJ 0 g 0 G - 127.15 -334.288 Td [(141)]TJ + 127.149 -334.288 Td [(146)]TJ 0 g 0 G ET endstream endobj -1808 0 obj +1866 0 obj << -/Length 608 +/Length 598 >> stream 0 g 0 G 0 g 0 G BT -/F16 14.3462 Tf 150.705 706.129 Td [(11)-1125(Iterativ)31(e)-375(Metho)-31(ds)]TJ/F8 9.9626 Tf 0 -21.821 Td [(In)-519(thi)1(s)-519(c)28(hapter)-519(w)28(e)-519(pro)28(vide)-519(routi)1(nes)-519(for)-519(preconditioners)-518(and)-519(iterativ)28(e)-519(meth-)]TJ 0 -11.955 Td [(o)-28(ds.)-647(The)-401(in)28(terfaces)-401(for)-401(Kr)1(ylo)27(v)-401(sub)1(s)-1(p)1(ac)-1(e)-400(metho)-28(ds)-401(are)-401(a)28(v)55(ailable)-400(in)-401(the)-401(mo)-28(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F8 9.9626 Tf 73.225 0 Td [(.)]TJ +/F16 14.3462 Tf 99.895 706.129 Td [(11)-1125(Iterativ)31(e)-375(Metho)-31(ds)]TJ/F8 9.9626 Tf 0 -21.821 Td [(In)-519(this)-518(c)28(hapter)-519(w)28(e)-519(pro)28(vide)-519(routin)1(e)-1(s)-518(for)-519(preconditioners)-518(and)-519(iterativ)28(e)-519(meth-)]TJ 0 -11.955 Td [(o)-28(ds.)-647(The)-401(in)28(terfaces)-401(for)-401(Kryl)1(o)27(v)-401(subspace)-400(m)-1(etho)-27(ds)-401(are)-401(a)28(v)55(ailable)-400(in)-401(the)-401(mo)-28(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F8 9.9626 Tf 73.225 0 Td [(.)]TJ 0 g 0 G - 91.158 -569.96 Td [(142)]TJ + 91.159 -569.96 Td [(147)]TJ 0 g 0 G ET endstream endobj -1815 0 obj +1873 0 obj << -/Length 8313 +/Length 8299 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ +/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ ET q -1 0 0 1 120.951 706.328 cm +1 0 0 1 171.761 706.328 cm []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -/F16 11.9552 Tf 124.986 706.129 Td [(krylo)31(v)-375(|)-375(Krylo)31(v)-375(Metho)-31(ds)-375(Driv)31(er)-375(Routine)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-343(subroutine)-342(is)-343(a)-343(driv)28(er)-343(that)-342(pro)27(vid)1(e)-1(s)-342(a)-343(general)-343(in)28(terface)-343(for)-342(all)-343(the)-343(Krylo)28(v-)]TJ 0 -11.956 Td [(Subspace)-333(family)-334(metho)-27(ds)-334(implemen)28(ted)-333(in)-334(PSBLAS)-333(v)28(ersion)-333(2.)]TJ 14.944 -11.955 Td [(The)-333(stopping)-334(criterion)-333(can)-333(tak)28(e)-334(the)-333(follo)28(wing)-334(v)56(alues:)]TJ +/F16 11.9552 Tf 175.796 706.129 Td [(krylo)31(v)-375(|)-375(Krylo)31(v)-375(Metho)-31(ds)-375(Driv)31(er)-375(Routine)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-343(subroutine)-342(is)-343(a)-343(driv)28(er)-343(that)-342(pro)27(vi)1(des)-343(a)-343(general)-343(in)28(terface)-343(for)-342(all)-343(the)-343(Krylo)28(v-)]TJ 0 -11.956 Td [(Subspace)-333(family)-334(metho)-27(ds)-334(implemen)28(ted)-333(in)-334(PSBLAS)-333(v)28(ersion)-333(2.)]TJ 14.944 -11.955 Td [(The)-333(stopping)-334(criterion)-333(can)-333(tak)28(e)-334(the)-333(follo)28(wing)-334(v)56(alues:)]TJ 0 g 0 G /F27 9.9626 Tf -14.944 -19.102 Td [(1)]TJ 0 g 0 G -/F8 9.9626 Tf 10.71 0 Td [(norm)28(wise)-334(bac)28(kw)28(ard)-333(error)-334(in)-333(the)-333(in\014nit)28(y)-334(norm;)-333(the)-333(iteration)-334(i)1(s)-334(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 109.583 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.949 0 Td [(=)]TJ/F14 9.9626 Tf 38.11 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.982 0 Td [(r)]TJ/F10 6.9738 Tf 4.494 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ +/F8 9.9626 Tf 10.71 0 Td [(norm)28(wise)-334(bac)28(kw)28(ard)-333(error)-334(in)-333(the)-333(in\014nit)28(y)-334(norm;)-333(the)-333(iteration)-333(is)-334(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 109.582 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.95 0 Td [(=)]TJ/F14 9.9626 Tf 38.11 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ ET q -1 0 0 1 248.849 621.14 cm +1 0 0 1 299.658 621.14 cm []0 d 0 J 0.398 w 0 0 m 70.572 0 l S Q BT -/F8 9.9626 Tf 248.849 611.815 Td [(\050)]TJ/F14 9.9626 Tf 3.874 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(A)]TJ/F14 9.9626 Tf 7.472 0 Td [(kk)]TJ/F11 9.9626 Tf 9.963 0 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.494 Td [(k)]TJ/F8 9.9626 Tf 7.195 0 Td [(+)]TJ/F14 9.9626 Tf 9.963 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F8 9.9626 Tf 4.981 0 Td [(\051)]TJ/F11 9.9626 Tf 7.837 6.834 Td [(<)-278(eps)]TJ +/F8 9.9626 Tf 299.658 611.815 Td [(\050)]TJ/F14 9.9626 Tf 3.875 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(A)]TJ/F14 9.9626 Tf 7.472 0 Td [(kk)]TJ/F11 9.9626 Tf 9.963 0 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.494 Td [(k)]TJ/F8 9.9626 Tf 7.196 0 Td [(+)]TJ/F14 9.9626 Tf 9.962 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F8 9.9626 Tf 4.981 0 Td [(\051)]TJ/F11 9.9626 Tf 7.838 6.834 Td [(<)-278(eps)]TJ 0 g 0 G /F27 9.9626 Tf -223.488 -29.952 Td [(2)]TJ 0 g 0 G -/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(in)-333(the)-333(2-)-1(n)1(orm)-1(;)-333(the)-333(iteration)-333(is)-334(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 135.515 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.949 0 Td [(=)]TJ/F14 9.9626 Tf 12.178 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.982 0 Td [(r)]TJ/F10 6.9738 Tf 4.494 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ +/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(in)-333(the)-333(2-norm;)-334(the)-333(iteration)-333(is)-334(stopp)-27(ed)-334(when)]TJ/F11 9.9626 Tf 135.514 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.95 0 Td [(=)]TJ/F14 9.9626 Tf 12.178 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ ET q -1 0 0 1 274.781 565.11 cm +1 0 0 1 325.59 565.11 cm []0 d 0 J 0.398 w 0 0 m 18.708 0 l S Q BT -/F14 9.9626 Tf 274.781 555.785 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F7 6.9738 Tf 4.981 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.432 8.328 Td [(<)-278(eps)]TJ +/F14 9.9626 Tf 325.59 555.785 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F7 6.9738 Tf 4.981 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.433 8.328 Td [(<)-278(eps)]TJ 0 g 0 G /F27 9.9626 Tf -197.556 -29.952 Td [(3)]TJ 0 g 0 G -/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(reduction)-333(in)-333(the)-334(2-norm;)-333(the)-333(iteration)-334(is)-333(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 133.171 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.949 0 Td [(=)]TJ/F14 9.9626 Tf 14.522 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.982 0 Td [(r)]TJ/F10 6.9738 Tf 4.494 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ +/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(reduction)-333(in)-333(the)-334(2-norm;)-333(the)-333(iteration)-334(is)-333(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 133.17 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.949 0 Td [(=)]TJ/F14 9.9626 Tf 14.523 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ ET q -1 0 0 1 272.436 509.08 cm +1 0 0 1 323.246 509.08 cm []0 d 0 J 0.398 w 0 0 m 23.396 0 l S Q BT -/F14 9.9626 Tf 272.436 499.755 Td [(k)]TJ/F11 9.9626 Tf 4.982 0 Td [(r)]TJ/F7 6.9738 Tf 4.494 -1.494 Td [(0)]TJ/F14 9.9626 Tf 4.47 1.494 Td [(k)]TJ/F7 6.9738 Tf 4.981 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.432 8.328 Td [(<)-278(eps)]TJ/F8 9.9626 Tf -199.9 -30.505 Td [(The)-443(b)-27(eha)28(viour)-443(is)-442(con)27(troll)1(e)-1(d)-442(b)28(y)-443(the)-442(istop)-442(argumen)27(t)-442(\050see)-443(later\051.)-771(In)-443(the)-442(ab)-28(o)28(v)27(e)]TJ 0 -11.955 Td [(form)28(ulae,)]TJ/F11 9.9626 Tf 43.127 0 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.856 1.495 Td [(is)-255(the)-255(ten)28(tativ)28(e)-255(solution)-255(and)]TJ/F11 9.9626 Tf 122.117 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F8 9.9626 Tf 6.084 1.495 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(b)]TJ/F14 9.9626 Tf 4.925 0 Td [(\000)]TJ/F11 9.9626 Tf 8.399 0 Td [(Ax)]TJ/F10 6.9738 Tf 13.166 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.856 1.495 Td [(the)-255(corresp)-28(ondin)1(g)-255(residual)]TJ -230.235 -11.956 Td [(at)-333(the)]TJ/F11 9.9626 Tf 29.335 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(-th)-333(iteration.)]TJ/F27 9.9626 Tf -31.39 -17.52 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.763 0 Td [(p)-126(s)-125(b)]TJ +/F14 9.9626 Tf 323.246 499.755 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F7 6.9738 Tf 4.495 -1.494 Td [(0)]TJ/F14 9.9626 Tf 4.469 1.494 Td [(k)]TJ/F7 6.9738 Tf 4.982 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.432 8.328 Td [(<)-278(eps)]TJ/F8 9.9626 Tf -199.9 -30.505 Td [(The)-442(b)-28(eha)28(viour)-443(is)-442(con)27(t)1(rolled)-443(b)28(y)-443(th)1(e)-443(istop)-442(argumen)27(t)-442(\050see)-443(later\051.)-771(In)-443(the)-442(ab)-28(o)28(v)28(e)]TJ 0 -11.955 Td [(form)28(ulae,)]TJ/F11 9.9626 Tf 43.127 0 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.855 1.495 Td [(is)-255(the)-255(ten)28(tativ)28(e)-255(solution)-255(and)]TJ/F11 9.9626 Tf 122.118 0 Td [(r)]TJ/F10 6.9738 Tf 4.494 -1.495 Td [(i)]TJ/F8 9.9626 Tf 6.085 1.495 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(b)]TJ/F14 9.9626 Tf 4.925 0 Td [(\000)]TJ/F11 9.9626 Tf 8.399 0 Td [(Ax)]TJ/F10 6.9738 Tf 13.165 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.856 1.495 Td [(the)-255(corresp)-28(onding)-254(residual)]TJ -230.234 -11.956 Td [(at)-333(the)]TJ/F11 9.9626 Tf 29.334 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(-th)-333(iteration.)]TJ/F27 9.9626 Tf -31.39 -17.52 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.763 0 Td [(p)-126(s)-125(b)]TJ ET q -1 0 0 1 150.386 434.852 cm +1 0 0 1 201.196 434.852 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 154.627 434.653 Td [(k)-126(r)-125(y)-126(l)-125(o)-126(v)-231(\050)-146(m)-40(e)-41(t)-40(h)-40(o)-40(d)-242(,)-194(a)-228(,)-255(p)-94(r)-94(e)-94(c)-349(,)-176(b)-191(,)-185(x)-209(,)-243(e)-81(p)-81(s)-323(,)-274(d)-113(e)-112(s)-113(c)]TJ +/F8 9.9626 Tf 205.436 434.653 Td [(k)-126(r)-125(y)-126(l)-125(o)-126(v)-231(\050)-146(m)-40(e)-41(t)-40(h)-40(o)-40(d)-242(,)-194(a)-228(,)-255(p)-94(r)-94(e)-94(c)-349(,)-176(b)-191(,)-185(x)-209(,)-243(e)-81(p)-81(s)-323(,)-274(d)-113(e)-112(s)-113(c)]TJ ET q -1 0 0 1 351.575 434.852 cm +1 0 0 1 402.384 434.852 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F8 9.9626 Tf 355.686 434.653 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-302(,)-48(&)]TJ -226.788 -11.956 Td [(&)-579(i)-67(t)-67(m)-68(a)-67(x)-296(,)-311(i)-150(t)-149(e)-150(r)-460(,)]TJ/F27 9.9626 Tf 79.244 0 Td [(e)-65(r)-65(r)]TJ/F8 9.9626 Tf 18.889 0 Td [(,)-305(i)-144(t)-144(r)-144(a)-145(c)-144(e)-449(,)-319(i)-158(r)-158(s)-158(t)-477(,)-287(i)-126(s)-126(t)-126(o)-127(p)-413(,)-230(c)-69(o)-69(n)-69(d)-174(\051)]TJ +/F8 9.9626 Tf 406.495 434.653 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-302(,)-48(&)]TJ -226.787 -11.956 Td [(&)-579(i)-67(t)-67(m)-68(a)-67(x)-296(,)-311(i)-150(t)-149(e)-150(r)-460(,)]TJ/F27 9.9626 Tf 79.243 0 Td [(e)-65(r)-65(r)]TJ/F8 9.9626 Tf 18.89 0 Td [(,)-305(i)-144(t)-144(r)-144(a)-144(c)-145(e)-449(,)-319(i)-158(r)-158(s)-158(t)-476(,)-288(i)-126(s)-126(t)-126(o)-127(p)-413(,)-230(c)-69(o)-69(n)-69(d)-174(\051)]TJ 0 g 0 G 0 g 0 G 0 g 0 G @@ -22912,35 +23667,35 @@ BT 0 g 0 G 0 -19.514 Td [(metho)-32(d)]TJ 0 g 0 G -/F8 9.9626 Tf 43.012 0 Td [(a)-235(string)-235(that)-235(de\014nes)-236(th)1(e)-236(iterativ)28(e)-235(metho)-28(d)-235(to)-235(b)-28(e)-235(used.)-412(Supp)-27(orted)-235(v)55(alues)]TJ -18.105 -11.955 Td [(are:)]TJ +/F8 9.9626 Tf 43.012 0 Td [(a)-235(string)-235(that)-235(de\014nes)-235(the)-236(iterativ)28(e)-235(metho)-28(d)-235(to)-235(b)-28(e)-235(used.)-412(Supp)-27(orted)-235(v)55(alues)]TJ -18.106 -11.955 Td [(are:)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.513 Td [(CG:)]TJ 0 g 0 G -/F8 9.9626 Tf 25.446 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(metho)-28(d;)]TJ +/F8 9.9626 Tf 25.447 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(metho)-28(d;)]TJ 0 g 0 G -/F27 9.9626 Tf -25.446 -15.529 Td [(CGS:)]TJ +/F27 9.9626 Tf -25.447 -15.529 Td [(CGS:)]TJ 0 g 0 G -/F8 9.9626 Tf 31.811 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(metho)-28(d;)]TJ +/F8 9.9626 Tf 31.812 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(metho)-28(d;)]TJ 0 g 0 G -/F27 9.9626 Tf -31.811 -15.528 Td [(GCR:)]TJ +/F27 9.9626 Tf -31.812 -15.528 Td [(GCR:)]TJ 0 g 0 G /F8 9.9626 Tf 34.039 0 Td [(the)-333(Generalized)-334(Conjugate)-333(Residual)-333(metho)-28(d;)]TJ 0 g 0 G /F27 9.9626 Tf -34.039 -15.529 Td [(F)32(CG:)]TJ 0 g 0 G -/F8 9.9626 Tf 32.337 0 Td [(the)-333(Flexible)-334(Conjugate)-333(Gradien)28(t)-333(metho)-28(d)]TJ +/F8 9.9626 Tf 32.337 0 Td [(the)-333(Flexible)-334(Conjugate)-333(Gradien)28(t)-333(me)-1(th)1(o)-28(d)]TJ 0 0 1 rg 0 0 1 RG /F7 6.9738 Tf 177.626 3.616 Td [(5)]TJ 0 g 0 G -/F8 9.9626 Tf 4.469 -3.616 Td [(;)]TJ +/F8 9.9626 Tf 4.47 -3.616 Td [(;)]TJ 0 g 0 G -/F27 9.9626 Tf -214.432 -15.528 Td [(BICG:)]TJ +/F27 9.9626 Tf -214.433 -15.528 Td [(BICG:)]TJ 0 g 0 G /F8 9.9626 Tf 37.941 0 Td [(the)-333(Bi-Conjugate)-334(Gradien)28(t)-333(metho)-28(d;)]TJ 0 g 0 G /F27 9.9626 Tf -37.941 -15.529 Td [(BICGST)96(AB:)]TJ 0 g 0 G -/F8 9.9626 Tf 68.133 0 Td [(the)-333(Bi-Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(metho)-28(d;)]TJ +/F8 9.9626 Tf 68.133 0 Td [(the)-333(Bi-Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(me)-1(th)1(o)-28(d;)]TJ 0 g 0 G /F27 9.9626 Tf -68.133 -15.528 Td [(BICGST)96(ABL:)]TJ 0 g 0 G @@ -22950,266 +23705,843 @@ BT 0 g 0 G /F8 9.9626 Tf 58.807 0 Td [(the)-333(Generalized)-334(Minimal)-333(Residual)-333(metho)-28(d)-333(with)-334(restarting.)]TJ 0 g 0 G -/F27 9.9626 Tf -83.714 -19.513 Td [(a)]TJ +/F27 9.9626 Tf -83.713 -19.513 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(sparse)-333(matrix)]TJ/F11 9.9626 Tf 178.968 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -172.084 -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 [(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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.55 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(sparse)-333(matrix)]TJ/F11 9.9626 Tf 178.969 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -172.085 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 312.036 137.958 cm +1 0 0 1 362.845 137.958 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 315.174 137.759 Td [(Tspmat)]TJ +/F30 9.9626 Tf 365.983 137.759 Td [(Tspmat)]TJ ET q -1 0 0 1 347.183 137.958 cm +1 0 0 1 397.993 137.958 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 350.322 137.759 Td [(type)]TJ +/F30 9.9626 Tf 401.131 137.759 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G ET q -1 0 0 1 99.895 129.78 cm +1 0 0 1 150.705 129.78 cm []0 d 0 J 0.398 w 0 0 m 137.482 0 l S Q BT -/F32 5.9776 Tf 110.987 123.138 Td [(5)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(Note:)-472(the)-355(implemen)30(tation)-354(is)-355(f)1(or)]TJ/F33 7.9701 Tf 120.25 0 Td [(F)-148(C)-70(G)]TJ/F31 7.9701 Tf 19.732 0 Td [(\0501\051.)]TJ +/F32 5.9776 Tf 161.797 123.138 Td [(5)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(Note:)-472(the)-354(i)-1(mplemen)30(tation)-354(is)-354(for)]TJ/F33 7.9701 Tf 120.249 0 Td [(F)-148(C)-70(G)]TJ/F31 7.9701 Tf 19.733 0 Td [(\0501\051.)]TJ 0 g 0 G 0 g 0 G -/F8 9.9626 Tf 9.159 -29.888 Td [(143)]TJ +/F8 9.9626 Tf 9.158 -29.888 Td [(148)]TJ 0 g 0 G ET endstream endobj -1827 0 obj +1885 0 obj << -/Length 7123 +/Length 7119 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 150.705 706.129 Td [(prec)]TJ +/F27 9.9626 Tf 99.895 706.129 Td [(prec)]TJ 0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(The)-333(data)-334(structure)-333(con)28(taining)-333(the)-334(preconditioner.)]TJ -1.502 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 26.408 0 Td [(The)-333(data)-334(structure)-333(con)28(taining)-333(the)-334(preconditioner.)]TJ -1.501 -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.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 658.507 cm +1 0 0 1 312.036 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 658.308 Td [(prec)]TJ +/F30 9.9626 Tf 315.174 658.308 Td [(prec)]TJ ET q -1 0 0 1 387.532 658.507 cm +1 0 0 1 336.723 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 658.308 Td [(type)]TJ +/F30 9.9626 Tf 339.861 658.308 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -22.202 Td [(b)]TJ 0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(The)-333(RHS)-334(v)28(ector.)]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 -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.347 0 Td [(The)-333(RHS)-334(v)28(ector.)]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 -32.379 -11.956 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(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 223.496 0 Td [(psb)]TJ ET q -1 0 0 1 415.426 588.484 cm +1 0 0 1 364.616 588.484 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 418.564 588.285 Td [(T)]TJ +/F30 9.9626 Tf 367.754 588.285 Td [(T)]TJ ET q -1 0 0 1 424.422 588.484 cm +1 0 0 1 373.612 588.484 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 427.56 588.285 Td [(vect)]TJ +/F30 9.9626 Tf 376.751 588.285 Td [(vect)]TJ ET q -1 0 0 1 449.109 588.484 cm +1 0 0 1 398.3 588.484 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 452.247 588.285 Td [(type)]TJ +/F30 9.9626 Tf 401.438 588.285 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -322.464 -22.202 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(initial)-334(guess.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(initial)-334(guess.)]TJ 13.879 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 223.496 0 Td [(psb)]TJ ET q -1 0 0 1 415.426 518.461 cm +1 0 0 1 364.616 518.461 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 418.564 518.262 Td [(T)]TJ +/F30 9.9626 Tf 367.754 518.262 Td [(T)]TJ ET q -1 0 0 1 424.422 518.461 cm +1 0 0 1 373.612 518.461 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 427.56 518.262 Td [(vect)]TJ +/F30 9.9626 Tf 376.751 518.262 Td [(vect)]TJ ET q -1 0 0 1 449.109 518.461 cm +1 0 0 1 398.3 518.461 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 452.247 518.262 Td [(type)]TJ +/F30 9.9626 Tf 401.438 518.262 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -322.464 -22.203 Td [(eps)]TJ 0 g 0 G -/F8 9.9626 Tf 21.116 0 Td [(The)-333(stopping)-334(tolerance.)]TJ 3.79 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(n)28(um)27(b)-27(er.)]TJ +/F8 9.9626 Tf 21.117 0 Td [(The)-333(stopping)-334(tolerance.)]TJ 3.79 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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(real)-333(n)28(um)27(b)-27(er.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.906 -22.203 Td [(desc)]TJ +/F27 9.9626 Tf -24.907 -22.203 Td [(desc)]TJ ET q -1 0 0 1 172.619 426.236 cm +1 0 0 1 121.81 426.236 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 176.057 426.036 Td [(a)]TJ +/F27 9.9626 Tf 125.247 426.036 Td [(a)]TJ 0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -1 0 0 1 362.845 378.415 cm +1 0 0 1 312.036 378.415 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 365.983 378.216 Td [(desc)]TJ +/F30 9.9626 Tf 315.174 378.216 Td [(desc)]TJ ET q -1 0 0 1 387.532 378.415 cm +1 0 0 1 336.723 378.415 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 390.67 378.216 Td [(type)]TJ +/F30 9.9626 Tf 339.861 378.216 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -22.203 Td [(itmax)]TJ 0 g 0 G -/F8 9.9626 Tf 33.783 0 Td [(The)-333(maxim)27(um)-333(n)28(um)28(b)-28(er)-333(of)-334(iterations)-333(to)-333(p)-28(erform.)]TJ -8.877 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itmax)]TJ/F8 9.9626 Tf 29.505 0 Td [(=)-278(1000.)]TJ -68.941 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F11 9.9626 Tf 142.079 0 Td [(itmax)]TJ/F14 9.9626 Tf 29.505 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(1.)]TJ +/F8 9.9626 Tf 33.783 0 Td [(The)-333(maxim)27(um)-333(n)28(um)28(b)-28(er)-333(of)-334(iterations)-333(to)-333(p)-28(erform.)]TJ -8.876 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itmax)]TJ/F8 9.9626 Tf 29.504 0 Td [(=)-278(1000.)]TJ -68.94 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F11 9.9626 Tf 142.079 0 Td [(itmax)]TJ/F14 9.9626 Tf 29.504 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(1.)]TJ 0 g 0 G /F27 9.9626 Tf -207.006 -22.202 Td [(itrace)]TJ 0 g 0 G -/F8 9.9626 Tf 33.25 0 Td [(If)]TJ/F11 9.9626 Tf 8.912 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0)-228(prin)28(t)-228(out)-228(an)-228(i)1(nformational)-228(message)-228(ab)-28(out)-228(con)28(v)28(ergence)-228(ev)27(ery)]TJ/F11 9.9626 Tf 265.015 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf -292.787 -11.955 Td [(iterations.)-444(If)-334(=)-278(0)-333(prin)28(t)-333(a)-334(message)-333(in)-333(cas)-1(e)-333(of)-333(con)28(v)27(ergence)-333(failure.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf 28.785 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1.)]TJ +/F8 9.9626 Tf 33.251 0 Td [(If)]TJ/F11 9.9626 Tf 8.911 0 Td [(>)]TJ/F8 9.9626 Tf 10.517 0 Td [(0)-228(prin)28(t)-228(out)-228(an)-227(informational)-228(message)-228(ab)-28(out)-228(con)28(v)28(ergence)-228(ev)28(e)-1(r)1(y)]TJ/F11 9.9626 Tf 265.015 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf -292.787 -11.955 Td [(iterations.)-444(If)-334(=)-277(0)-334(prin)28(t)-333(a)-334(message)-333(in)-333(case)-334(of)-333(con)28(v)27(ergence)-333(failure.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf 28.785 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1.)]TJ 0 g 0 G /F27 9.9626 Tf -111.392 -34.158 Td [(irst)]TJ 0 g 0 G -/F8 9.9626 Tf 21.857 0 Td [(An)-333(in)28(tege)-1(r)-333(sp)-28(ecifying)-333(the)-333(restart)-334(par)1(a)-1(meter.)]TJ 3.049 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(V)83(alues:)]TJ/F11 9.9626 Tf 37.507 0 Td [(ir)-28(st)-447(>)]TJ/F8 9.9626 Tf 33.134 0 Td [(0.)-750(This)-435(is)-435(emplo)28(y)27(ed)-435(for)-435(the)-435(BiCGST)83(ABL)-435(or)-435(R)28(GMRES)]TJ -70.641 -11.955 Td [(metho)-28(ds,)-333(otherwise)-334(it)-333(is)-333(ignored.)]TJ +/F8 9.9626 Tf 21.857 0 Td [(An)-333(in)28(te)-1(ger)-333(sp)-28(ecifying)-333(the)-333(restart)-334(parameter.)]TJ 3.05 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 40.577 0 Td [(.)]TJ -70.188 -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 [(V)83(alues:)]TJ/F11 9.9626 Tf 37.506 0 Td [(ir)-28(st)-447(>)]TJ/F8 9.9626 Tf 33.135 0 Td [(0.)-750(This)-435(is)-435(emplo)28(y)28(e)-1(d)-435(for)-435(the)-435(BiCGST)84(AB)-1(L)-435(or)-435(R)28(GMRES)]TJ -70.641 -11.955 Td [(metho)-28(ds,)-333(otherwise)-334(it)-333(is)-333(ignored.)]TJ 0 g 0 G - 139.477 -29.888 Td [(144)]TJ + 139.477 -29.888 Td [(149)]TJ 0 g 0 G ET endstream endobj -1832 0 obj +1781 0 obj << -/Length 4693 +/Type /ObjStm +/N 100 +/First 972 +/Length 10716 +>> +stream +1776 0 1774 139 1778 284 505 342 1779 399 1780 457 1775 515 1785 621 1783 760 1787 903 +509 962 1788 1020 1789 1079 1784 1138 1792 1244 1790 1383 1794 1528 513 1586 1795 1643 1796 1701 +1791 1759 1798 1865 1800 1983 517 2042 1801 2100 1802 2159 1797 2218 1805 2324 1803 2463 1807 2607 +521 2665 1808 2722 1809 2780 1804 2838 1811 2944 1813 3062 525 3121 1814 3179 1815 3238 1810 3297 +1817 3403 1819 3521 529 3579 1816 3636 1824 3742 1821 3890 1822 4037 1826 4187 533 4246 1827 4304 +1823 4362 1833 4519 1828 4685 1829 4828 1830 4973 1831 5120 1835 5267 537 5325 1832 5382 1837 5488 +1839 5606 1836 5665 1845 5758 1840 5924 1841 6070 1842 6213 1843 6360 1847 6504 541 6562 1844 6619 +1850 6725 1848 6864 1852 7010 545 7069 1849 7127 1854 7259 1856 7377 549 7435 1853 7492 1861 7598 +1858 7746 1859 7892 1863 8039 553 8098 1860 8156 1865 8262 1867 8380 557 8438 1864 8495 1872 8588 +1868 8736 1869 8885 1874 9029 561 9088 1875 9146 1876 9205 1877 9264 1878 9323 1871 9381 1884 9578 +% 1776 0 obj +<< +/Type /Page +/Contents 1777 0 R +/Resources 1775 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +/Annots [ 1774 0 R ] +>> +% 1774 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 449.411 372.239 460.536] +/A << /S /GoTo /D (spdata) >> +>> +% 1778 0 obj +<< +/D [1776 0 R /XYZ 98.895 753.953 null] +>> +% 505 0 obj +<< +/D [1776 0 R /XYZ 99.895 720.077 null] +>> +% 1779 0 obj +<< +/D [1776 0 R /XYZ 99.895 677.445 null] +>> +% 1780 0 obj +<< +/D [1776 0 R /XYZ 99.895 679.769 null] +>> +% 1775 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1785 0 obj +<< +/Type /Page +/Contents 1786 0 R +/Resources 1784 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +/Annots [ 1783 0 R ] +>> +% 1783 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 582.91 423.049 594.035] +/A << /S /GoTo /D (spdata) >> +>> +% 1787 0 obj +<< +/D [1785 0 R /XYZ 149.705 753.953 null] +>> +% 509 0 obj +<< +/D [1785 0 R /XYZ 150.705 720.077 null] +>> +% 1788 0 obj +<< +/D [1785 0 R /XYZ 150.705 677.445 null] +>> +% 1789 0 obj +<< +/D [1785 0 R /XYZ 150.705 679.769 null] +>> +% 1784 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1792 0 obj +<< +/Type /Page +/Contents 1793 0 R +/Resources 1791 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +/Annots [ 1790 0 R ] +>> +% 1790 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 449.411 372.239 460.536] +/A << /S /GoTo /D (spdata) >> +>> +% 1794 0 obj +<< +/D [1792 0 R /XYZ 98.895 753.953 null] +>> +% 513 0 obj +<< +/D [1792 0 R /XYZ 99.895 720.077 null] +>> +% 1795 0 obj +<< +/D [1792 0 R /XYZ 99.895 679.769 null] +>> +% 1796 0 obj +<< +/D [1792 0 R /XYZ 99.895 679.769 null] +>> +% 1791 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1798 0 obj +<< +/Type /Page +/Contents 1799 0 R +/Resources 1797 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +>> +% 1800 0 obj +<< +/D [1798 0 R /XYZ 149.705 753.953 null] +>> +% 517 0 obj +<< +/D [1798 0 R /XYZ 150.705 720.077 null] +>> +% 1801 0 obj +<< +/D [1798 0 R /XYZ 150.705 679.769 null] +>> +% 1802 0 obj +<< +/D [1798 0 R /XYZ 150.705 679.769 null] +>> +% 1797 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1805 0 obj +<< +/Type /Page +/Contents 1806 0 R +/Resources 1804 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +/Annots [ 1803 0 R ] +>> +% 1803 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 582.91 372.239 594.035] +/A << /S /GoTo /D (spdata) >> +>> +% 1807 0 obj +<< +/D [1805 0 R /XYZ 98.895 753.953 null] +>> +% 521 0 obj +<< +/D [1805 0 R /XYZ 99.895 720.077 null] +>> +% 1808 0 obj +<< +/D [1805 0 R /XYZ 99.895 679.769 null] +>> +% 1809 0 obj +<< +/D [1805 0 R /XYZ 99.895 679.769 null] +>> +% 1804 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1811 0 obj +<< +/Type /Page +/Contents 1812 0 R +/Resources 1810 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1782 0 R +>> +% 1813 0 obj +<< +/D [1811 0 R /XYZ 149.705 753.953 null] +>> +% 525 0 obj +<< +/D [1811 0 R /XYZ 150.705 720.077 null] +>> +% 1814 0 obj +<< +/D [1811 0 R /XYZ 150.705 679.769 null] +>> +% 1815 0 obj +<< +/D [1811 0 R /XYZ 150.705 679.769 null] +>> +% 1810 0 obj +<< +/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1817 0 obj +<< +/Type /Page +/Contents 1818 0 R +/Resources 1816 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1820 0 R +>> +% 1819 0 obj +<< +/D [1817 0 R /XYZ 98.895 753.953 null] +>> +% 529 0 obj +<< +/D [1817 0 R /XYZ 99.895 716.092 null] +>> +% 1816 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F14 787 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1824 0 obj +<< +/Type /Page +/Contents 1825 0 R +/Resources 1823 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1820 0 R +/Annots [ 1821 0 R 1822 0 R ] +>> +% 1821 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [372.153 443.433 439.211 454.558] +/A << /S /GoTo /D (precdata) >> +>> +% 1822 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [219.641 354.046 226.103 366.086] +/A << /S /GoTo /D (Hfootnote.4) >> +>> +% 1826 0 obj +<< +/D [1824 0 R /XYZ 149.705 753.953 null] +>> +% 533 0 obj +<< +/D [1824 0 R /XYZ 150.705 720.077 null] +>> +% 1827 0 obj +<< +/D [1824 0 R /XYZ 165.948 129.79 null] +>> +% 1823 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F7 785 0 R /F32 788 0 R /F31 790 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1833 0 obj +<< +/Type /Page +/Contents 1834 0 R +/Resources 1832 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1820 0 R +/Annots [ 1828 0 R 1829 0 R 1830 0 R 1831 0 R ] +>> +% 1828 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [317.856 577.4 395.375 588.524] +/A << /S /GoTo /D (spdata) >> +>> +% 1829 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [396.921 506.7 463.979 517.825] +/A << /S /GoTo /D (precdata) >> +>> +% 1830 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [371.488 436.001 438.546 447.126] +/A << /S /GoTo /D (descdata) >> +>> +% 1831 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [318.576 129.071 385.634 140.196] +/A << /S /GoTo /D (precdata) >> +>> +% 1835 0 obj +<< +/D [1833 0 R /XYZ 98.895 753.953 null] +>> +% 537 0 obj +<< +/D [1833 0 R /XYZ 99.895 720.077 null] +>> +% 1832 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1837 0 obj +<< +/Type /Page +/Contents 1838 0 R +/Resources 1836 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1820 0 R +>> +% 1839 0 obj +<< +/D [1837 0 R /XYZ 149.705 753.953 null] +>> +% 1836 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 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 1820 0 R +/Annots [ 1840 0 R 1841 0 R 1842 0 R 1843 0 R ] +>> +% 1840 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [321.343 574.94 388.401 586.065] +/A << /S /GoTo /D (precdata) >> +>> +% 1841 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [347.301 519.15 423.355 530.274] +/A << /S /GoTo /D (vdata) >> +>> +% 1842 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [324.885 463.359 391.943 474.484] +/A << /S /GoTo /D (descdata) >> +>> +% 1843 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [347.301 274.069 423.355 285.194] +/A << /S /GoTo /D (vdata) >> +>> +% 1847 0 obj +<< +/D [1845 0 R /XYZ 98.895 753.953 null] +>> +% 541 0 obj +<< +/D [1845 0 R /XYZ 99.895 720.077 null] +>> +% 1844 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1850 0 obj +<< +/Type /Page +/Contents 1851 0 R +/Resources 1849 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1820 0 R +/Annots [ 1848 0 R ] +>> +% 1848 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [372.153 574.94 439.211 586.065] +/A << /S /GoTo /D (precdata) >> +>> +% 1852 0 obj +<< +/D [1850 0 R /XYZ 149.705 753.953 null] +>> +% 545 0 obj +<< +/D [1850 0 R /XYZ 150.705 720.077 null] +>> +% 1849 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1854 0 obj +<< +/Type /Page +/Contents 1855 0 R +/Resources 1853 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1857 0 R +>> +% 1856 0 obj +<< +/D [1854 0 R /XYZ 98.895 753.953 null] +>> +% 549 0 obj +<< +/D [1854 0 R /XYZ 99.895 720.077 null] +>> +% 1853 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1861 0 obj +<< +/Type /Page +/Contents 1862 0 R +/Resources 1860 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1857 0 R +/Annots [ 1858 0 R 1859 0 R ] +>> +% 1858 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [372.153 574.94 439.211 586.065] +/A << /S /GoTo /D (precdata) >> +>> +% 1859 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [372.153 499.224 439.211 510.349] +/A << /S /GoTo /D (precdata) >> +>> +% 1863 0 obj +<< +/D [1861 0 R /XYZ 149.705 753.953 null] +>> +% 553 0 obj +<< +/D [1861 0 R /XYZ 150.705 720.077 null] +>> +% 1860 0 obj +<< +/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1865 0 obj +<< +/Type /Page +/Contents 1866 0 R +/Resources 1864 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1857 0 R +>> +% 1867 0 obj +<< +/D [1865 0 R /XYZ 98.895 753.953 null] +>> +% 557 0 obj +<< +/D [1865 0 R /XYZ 99.895 716.092 null] +>> +% 1864 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1872 0 obj +<< +/Type /Page +/Contents 1873 0 R +/Resources 1871 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1857 0 R +/Annots [ 1868 0 R 1869 0 R ] +>> +% 1868 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [384.578 276.229 391.04 288.268] +/A << /S /GoTo /D (Hfootnote.5) >> +>> +% 1869 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [345.53 134.549 423.049 145.674] +/A << /S /GoTo /D (spdata) >> +>> +% 1874 0 obj +<< +/D [1872 0 R /XYZ 149.705 753.953 null] +>> +% 561 0 obj +<< +/D [1872 0 R /XYZ 150.705 720.077 null] +>> +% 1875 0 obj +<< +/D [1872 0 R /XYZ 150.705 446.608 null] +>> +% 1876 0 obj +<< +/D [1872 0 R /XYZ 150.705 446.608 null] +>> +% 1877 0 obj +<< +/D [1872 0 R /XYZ 150.705 434.653 null] +>> +% 1878 0 obj +<< +/D [1872 0 R /XYZ 165.948 129.79 null] +>> +% 1871 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F32 788 0 R /F31 790 0 R /F33 1879 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 1857 0 R +/Annots [ 1870 0 R 1880 0 R 1881 0 R 1882 0 R ] +>> + +endstream +endobj +1891 0 obj +<< +/Length 4673 >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -/F27 9.9626 Tf 99.895 706.129 Td [(istop)]TJ +/F27 9.9626 Tf 150.705 706.129 Td [(istop)]TJ 0 g 0 G -/F8 9.9626 Tf 29.232 0 Td [(An)-333(in)28(te)-1(ger)-333(sp)-28(ecifying)-333(the)-333(stopping)-334(crit)1(e)-1(ri)1(on.)]TJ -4.325 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 40.577 0 Td [(.)]TJ -70.188 -11.956 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 [(V)83(alues:)-478(1:)-479(use)-351(th)1(e)-351(norm)28(wise)-351(bac)28(kw)28(ard)-351(error,)-354(2:)-479(use)-350(the)-351(scaled)-350(2-norm)-351(of)]TJ 0 -11.955 Td [(the)-333(residual,)-334(3:)-444(use)-333(the)-334(residual)-333(reduction)-333(in)-334(th)1(e)-334(2-norm.)-444(Default:)-445(2.)]TJ +/F8 9.9626 Tf 29.232 0 Td [(An)-333(in)28(tege)-1(r)-333(sp)-28(ecifying)-333(the)-333(stopping)-333(c)-1(r)1(iterion.)]TJ -4.326 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(V)83(alues:)-478(1:)-479(use)-351(the)-350(norm)28(wise)-351(bac)28(kw)28(ard)-351(error,)-354(2:)-479(use)-350(the)-351(scaled)-350(2-norm)-351(of)]TJ 0 -11.955 Td [(the)-333(residual,)-334(3:)-444(use)-333(the)-334(residual)-333(reduction)-333(in)-334(the)-333(2-norm.)-444(Default:)-445(2.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -24.906 -19.925 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(x)]TJ 0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(computed)-334(solution.)]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 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ +/F8 9.9626 Tf 11.028 0 Td [(The)-333(computed)-334(solution.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 223.496 0 Td [(psb)]TJ ET q -1 0 0 1 364.616 558.881 cm +1 0 0 1 415.426 558.881 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 367.754 558.682 Td [(T)]TJ +/F30 9.9626 Tf 418.564 558.682 Td [(T)]TJ ET q -1 0 0 1 373.612 558.881 cm +1 0 0 1 424.422 558.881 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 376.751 558.682 Td [(vect)]TJ +/F30 9.9626 Tf 427.56 558.682 Td [(vect)]TJ ET q -1 0 0 1 398.3 558.881 cm +1 0 0 1 449.109 558.881 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -/F30 9.9626 Tf 401.438 558.682 Td [(type)]TJ +/F30 9.9626 Tf 452.247 558.682 Td [(type)]TJ 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -322.464 -19.925 Td [(iter)]TJ 0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(iterations)-333(p)-28(erformed.)]TJ 2.318 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(v)56(ariable.)]TJ +/F8 9.9626 Tf 22.589 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(iterations)-333(p)-28(erformed.)]TJ 2.317 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(v)56(ariable.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(err)]TJ +/F27 9.9626 Tf -24.906 -19.925 Td [(err)]TJ 0 g 0 G -/F8 9.9626 Tf 19.67 0 Td [(The)-333(con)27(v)28(ergence)-333(estimate)-334(on)-333(exit.)]TJ 5.237 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(a)-333(real)-333(n)27(um)28(b)-28(er.)]TJ +/F8 9.9626 Tf 19.669 0 Td [(The)-333(con)27(v)28(ergence)-333(estimate)-334(on)-333(exit.)]TJ 5.237 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(a)-333(real)-333(n)27(um)28(b)-28(er.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(cond)]TJ +/F27 9.9626 Tf -24.906 -19.925 Td [(cond)]TJ 0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(An)-280(estimate)-280(of)-279(the)-280(condition)-280(n)28(um)28(b)-28(er)-280(of)-279(matrix)]TJ/F11 9.9626 Tf 204.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)-298(only)-279(a)27(v)56(ailable)-280(with)-279(the)]TJ/F11 9.9626 Tf -215.323 -11.956 Td [(C)-72(G)]TJ/F8 9.9626 Tf 18.987 0 Td [(metho)-28(d)-333(on)-333(real)-334(data.)]TJ -18.987 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-287(as:)-421(a)-287(real)-287(n)28(um)28(b)-28(er.)-429(A)-287(correct)-287(result)-286(will)-287(b)-28(e)-287(greater)-287(than)-287(or)-286(equal)]TJ 0 -11.955 Td [(to)-267(on)1(e)-1(;)-288(if)-267(sp)-28(eci\014ed)-266(for)-267(non)1(-)-1(r)1(e)-1(al)-266(data,)-280(or)-266(an)-267(error)-266(o)-28(ccurred,)-280(zero)-267(is)-266(returned.)]TJ +/F8 9.9626 Tf 28.532 0 Td [(An)-280(estimate)-280(of)-279(the)-280(condition)-280(n)28(um)28(b)-28(er)-280(of)-279(matrix)]TJ/F11 9.9626 Tf 204.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)-298(only)-279(a)28(v)55(ailable)-280(with)-279(the)]TJ/F11 9.9626 Tf -215.324 -11.956 Td [(C)-72(G)]TJ/F8 9.9626 Tf 18.988 0 Td [(metho)-28(d)-333(on)-333(real)-334(data.)]TJ -18.988 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-287(as:)-421(a)-287(real)-287(n)28(um)28(b)-28(er.)-429(A)-287(correct)-287(result)-286(will)-287(b)-28(e)-287(greater)-287(than)-287(or)-286(equal)]TJ 0 -11.955 Td [(to)-267(one;)-288(if)-267(sp)-28(eci\014ed)-266(for)-267(non-real)-266(data,)-280(or)-266(an)-267(error)-266(o)-28(ccurred,)-280(zero)-267(is)-266(returned.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ +/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ +/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G - 139.477 -173.35 Td [(145)]TJ + 139.477 -173.35 Td [(150)]TJ 0 g 0 G ET endstream endobj -1837 0 obj -<< -/Length 80 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 315.088 90.438 Td [(146)]TJ -0 g 0 G -ET - -endstream -endobj -1841 0 obj +1895 0 obj << /Length 7014 >> @@ -23267,13 +24599,13 @@ BT 0 g 0 G [-500(S.)-267(Filipp)-27(one,)-280(P)83(.)-267(D'Am)28(bra,)-280(M.)-267(Cola)-55(janni,)]TJ/F17 9.9626 Tf 197.776 0 Td [(Using)-297(a)-296(Par)51(al)-51(lel)-297(Libr)52(ary)-297(of)-296(Sp)51(arse)]TJ -177.297 -11.955 Td [(Line)51(ar)-352(A)26(lgebr)51(a)-352(in)-352(a)-352(Fluid)-352(Dynami)1(cs)-352(Applic)51(ations)-352(Co)51(de)-352(on)-352(Linux)-352(Clusters)]TJ/F8 9.9626 Tf 320.465 0 Td [(,)]TJ -320.465 -11.955 Td [(in)-398(G.)-399(Jou)1(b)-28(ert,)-415(A.)-398(Murli,)-414(F.)-399(P)28(eters,)-414(M.)-399(V)84(annesc)27(hi,)-414(editors,)-415(P)28(arallel)-398(Com-)]TJ 0 -11.955 Td [(puting)-354(-)-354(Adv)55(ances)-354(&)-354(Curren)28(t)-355(Issues,)-359(pp.)-354(441{448,)-360(Imp)-28(erial)-354(College)-354(Press,)]TJ 0 -11.955 Td [(2002.)]TJ 0 g 0 G - 143.905 -29.888 Td [(147)]TJ + 143.905 -29.888 Td [(151)]TJ 0 g 0 G ET endstream endobj -1849 0 obj +1904 0 obj << /Length 3124 >> @@ -23310,559 +24642,13 @@ BT 0 g 0 G [-500(M.)-443(Snir,)-471(S.)-443(Otto,)-471(S.)-443(Huss-Lederman,)-471(D.)-443(W)84(alk)27(er)-443(and)-443(J.)-443(Dongarra,)]TJ/F17 9.9626 Tf 321.124 0 Td [(MPI:)]TJ -300.645 -11.955 Td [(The)-365(Complete)-365(R)51(efer)51(enc)51(e.)-365(V)76(ol)1(ume)-366(1)-365(-)-365(The)-365(MPI)-365(Cor)51(e)]TJ/F8 9.9626 Tf 228.803 0 Td [(,)-343(sec)-1(on)1(d)-342(edition,)-343(MIT)]TJ -228.803 -11.955 Td [(Press,)-333(1998.)]TJ 0 g 0 G - 143.905 -352.677 Td [(148)]TJ + 143.905 -352.677 Td [(152)]TJ 0 g 0 G ET endstream endobj -1769 0 obj -<< -/Type /ObjStm -/N 100 -/First 971 -/Length 11783 ->> -stream -1768 0 1764 58 1775 215 1770 381 1771 524 1772 668 1773 815 1777 962 525 1021 1774 1079 -1779 1185 1781 1303 1778 1361 1787 1454 1782 1620 1783 1766 1784 1909 1785 2056 1789 2200 529 2259 -1786 2317 1792 2423 1790 2562 1794 2708 533 2766 1791 2823 1797 2955 1799 3073 537 3132 1796 3190 -1803 3296 1800 3444 1801 3590 1805 3737 541 3795 1802 3852 1807 3958 1809 4076 545 4135 1806 4193 -1814 4286 1810 4434 1811 4583 1816 4728 549 4786 1817 4843 1818 4901 1819 4959 1820 5017 1813 5075 -1826 5272 1812 5438 1822 5584 1823 5726 1824 5870 1828 6015 1825 6074 1831 6193 1829 6332 1833 6476 -1830 6534 1836 6640 1838 6758 1835 6817 1840 6884 1842 7002 1843 7060 739 7118 1844 7175 790 7232 -789 7289 745 7346 746 7403 762 7460 742 7517 743 7574 1845 7631 738 7689 1846 7746 1839 7804 -1848 7897 1850 8015 902 8074 777 8132 744 8190 741 8248 737 8306 740 8364 1851 8422 1847 8481 -1852 8574 1853 8619 1854 8758 1855 8945 1856 9439 1857 9768 1858 10111 1859 10240 1860 10261 1861 10767 -% 1768 0 obj -<< -/D [1765 0 R /XYZ 115.138 129.79 null] ->> -% 1764 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R /F7 770 0 R /F32 773 0 R /F31 775 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1775 0 obj -<< -/Type /Page -/Contents 1776 0 R -/Resources 1774 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R -/Annots [ 1770 0 R 1771 0 R 1772 0 R 1773 0 R ] ->> -% 1770 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.666 577.4 446.184 588.524] -/A << /S /GoTo /D (spdata) >> ->> -% 1771 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [447.73 506.7 514.788 517.825] -/A << /S /GoTo /D (precdata) >> ->> -% 1772 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [422.298 436.001 489.356 447.126] -/A << /S /GoTo /D (descdata) >> ->> -% 1773 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [369.385 129.071 436.443 140.196] -/A << /S /GoTo /D (precdata) >> ->> -% 1777 0 obj -<< -/D [1775 0 R /XYZ 149.705 753.953 null] ->> -% 525 0 obj -<< -/D [1775 0 R /XYZ 150.705 720.077 null] ->> -% 1774 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1779 0 obj -<< -/Type /Page -/Contents 1780 0 R -/Resources 1778 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R ->> -% 1781 0 obj -<< -/D [1779 0 R /XYZ 98.895 753.953 null] ->> -% 1778 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1787 0 obj -<< -/Type /Page -/Contents 1788 0 R -/Resources 1786 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1757 0 R -/Annots [ 1782 0 R 1783 0 R 1784 0 R 1785 0 R ] ->> -% 1782 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 574.94 439.211 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1783 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [398.111 519.15 474.165 530.274] -/A << /S /GoTo /D (vdata) >> ->> -% 1784 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [375.695 463.359 442.753 474.484] -/A << /S /GoTo /D (descdata) >> ->> -% 1785 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [398.111 274.069 474.165 285.194] -/A << /S /GoTo /D (vdata) >> ->> -% 1789 0 obj -<< -/D [1787 0 R /XYZ 149.705 753.953 null] ->> -% 529 0 obj -<< -/D [1787 0 R /XYZ 150.705 720.077 null] ->> -% 1786 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1792 0 obj -<< -/Type /Page -/Contents 1793 0 R -/Resources 1791 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R -/Annots [ 1790 0 R ] ->> -% 1790 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [321.343 574.94 388.401 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1794 0 obj -<< -/D [1792 0 R /XYZ 98.895 753.953 null] ->> -% 533 0 obj -<< -/D [1792 0 R /XYZ 99.895 720.077 null] ->> -% 1791 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1797 0 obj -<< -/Type /Page -/Contents 1798 0 R -/Resources 1796 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R ->> -% 1799 0 obj -<< -/D [1797 0 R /XYZ 149.705 753.953 null] ->> -% 537 0 obj -<< -/D [1797 0 R /XYZ 150.705 720.077 null] ->> -% 1796 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1803 0 obj -<< -/Type /Page -/Contents 1804 0 R -/Resources 1802 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R -/Annots [ 1800 0 R 1801 0 R ] ->> -% 1800 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [321.343 574.94 388.401 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1801 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [321.343 499.224 388.401 510.349] -/A << /S /GoTo /D (precdata) >> ->> -% 1805 0 obj -<< -/D [1803 0 R /XYZ 98.895 753.953 null] ->> -% 541 0 obj -<< -/D [1803 0 R /XYZ 99.895 720.077 null] ->> -% 1802 0 obj -<< -/Font << /F16 558 0 R /F30 769 0 R /F27 560 0 R /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1807 0 obj -<< -/Type /Page -/Contents 1808 0 R -/Resources 1806 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R ->> -% 1809 0 obj -<< -/D [1807 0 R /XYZ 149.705 753.953 null] ->> -% 545 0 obj -<< -/D [1807 0 R /XYZ 150.705 716.092 null] ->> -% 1806 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1814 0 obj -<< -/Type /Page -/Contents 1815 0 R -/Resources 1813 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R -/Annots [ 1810 0 R 1811 0 R ] ->> -% 1810 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [333.769 276.229 340.23 288.268] -/A << /S /GoTo /D (Hfootnote.5) >> ->> -% 1811 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 134.549 372.239 145.674] -/A << /S /GoTo /D (spdata) >> ->> -% 1816 0 obj -<< -/D [1814 0 R /XYZ 98.895 753.953 null] ->> -% 549 0 obj -<< -/D [1814 0 R /XYZ 99.895 720.077 null] ->> -% 1817 0 obj -<< -/D [1814 0 R /XYZ 99.895 446.608 null] ->> -% 1818 0 obj -<< -/D [1814 0 R /XYZ 99.895 446.608 null] ->> -% 1819 0 obj -<< -/D [1814 0 R /XYZ 99.895 434.653 null] ->> -% 1820 0 obj -<< -/D [1814 0 R /XYZ 115.138 129.79 null] ->> -% 1813 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F27 560 0 R /F11 755 0 R /F14 772 0 R /F10 771 0 R /F7 770 0 R /F30 769 0 R /F32 773 0 R /F31 775 0 R /F33 1821 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1826 0 obj -<< -/Type /Page -/Contents 1827 0 R -/Resources 1825 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1795 0 R -/Annots [ 1812 0 R 1822 0 R 1823 0 R 1824 0 R ] ->> -% 1812 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 655.098 412.588 666.223] -/A << /S /GoTo /D (precdata) >> ->> -% 1822 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [398.111 585.075 474.165 596.2] -/A << /S /GoTo /D (vdata) >> ->> -% 1823 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [398.111 515.052 474.165 526.177] -/A << /S /GoTo /D (vdata) >> ->> -% 1824 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 375.006 412.588 386.13] -/A << /S /GoTo /D (descdata) >> ->> -% 1828 0 obj -<< -/D [1826 0 R /XYZ 149.705 753.953 null] ->> -% 1825 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F11 755 0 R /F14 772 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1831 0 obj -<< -/Type /Page -/Contents 1832 0 R -/Resources 1830 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1834 0 R -/Annots [ 1829 0 R ] ->> -% 1829 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [347.301 555.472 423.355 566.597] -/A << /S /GoTo /D (vdata) >> ->> -% 1833 0 obj -<< -/D [1831 0 R /XYZ 98.895 753.953 null] ->> -% 1830 0 obj -<< -/Font << /F27 560 0 R /F8 561 0 R /F30 769 0 R /F11 755 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1836 0 obj -<< -/Type /Page -/Contents 1837 0 R -/Resources 1835 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1834 0 R ->> -% 1838 0 obj -<< -/D [1836 0 R /XYZ 149.705 753.953 null] ->> -% 1835 0 obj -<< -/Font << /F8 561 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1840 0 obj -<< -/Type /Page -/Contents 1841 0 R -/Resources 1839 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1834 0 R ->> -% 1842 0 obj -<< -/D [1840 0 R /XYZ 98.895 753.953 null] ->> -% 1843 0 obj -<< -/D [1840 0 R /XYZ 99.895 724.062 null] ->> -% 739 0 obj -<< -/D [1840 0 R /XYZ 99.895 699.619 null] ->> -% 1844 0 obj -<< -/D [1840 0 R /XYZ 99.895 643.15 null] ->> -% 790 0 obj -<< -/D [1840 0 R /XYZ 99.895 588.618 null] ->> -% 789 0 obj -<< -/D [1840 0 R /XYZ 99.895 534.087 null] ->> -% 745 0 obj -<< -/D [1840 0 R /XYZ 99.895 479.555 null] ->> -% 746 0 obj -<< -/D [1840 0 R /XYZ 99.895 436.978 null] ->> -% 762 0 obj -<< -/D [1840 0 R /XYZ 99.895 394.402 null] ->> -% 742 0 obj -<< -/D [1840 0 R /XYZ 99.895 351.272 null] ->> -% 743 0 obj -<< -/D [1840 0 R /XYZ 99.895 308.696 null] ->> -% 1845 0 obj -<< -/D [1840 0 R /XYZ 99.895 266.119 null] ->> -% 738 0 obj -<< -/D [1840 0 R /XYZ 99.895 223.543 null] ->> -% 1846 0 obj -<< -/D [1840 0 R /XYZ 99.895 180.966 null] ->> -% 1839 0 obj -<< -/Font << /F16 558 0 R /F8 561 0 R /F17 735 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1848 0 obj -<< -/Type /Page -/Contents 1849 0 R -/Resources 1847 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1834 0 R ->> -% 1850 0 obj -<< -/D [1848 0 R /XYZ 149.705 753.953 null] ->> -% 902 0 obj -<< -/D [1848 0 R /XYZ 150.705 716.092 null] ->> -% 777 0 obj -<< -/D [1848 0 R /XYZ 150.705 688.251 null] ->> -% 744 0 obj -<< -/D [1848 0 R /XYZ 150.705 632.184 null] ->> -% 741 0 obj -<< -/D [1848 0 R /XYZ 150.705 590.562 null] ->> -% 737 0 obj -<< -/D [1848 0 R /XYZ 150.705 544.789 null] ->> -% 740 0 obj -<< -/D [1848 0 R /XYZ 150.705 512.909 null] ->> -% 1851 0 obj -<< -/D [1848 0 R /XYZ 150.705 480.475 null] ->> -% 1847 0 obj -<< -/Font << /F8 561 0 R /F17 735 0 R /F30 769 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1852 0 obj -[757.3 871.7 778.7 672.4 827.9] -% 1853 0 obj -[575.2 657.4 525.9 657.4 543 361.6 591.7 657.4 328.7 361.6 624.5 328.7 986.1 657.4 591.7 657.4 624.5 488.1 466.8 460.2 657.4] -% 1854 0 obj -[1444.5 1277.8 555.6 1111.1 1111.1 1111.1 1111.1 1111.1 944.5 1277.8 555.6 1000 1444.5 555.6 1000 1444.5 472.2 472.2 527.8 527.8 527.8 527.8 666.7 666.7 1000 1000 1000 1000] -% 1855 0 obj -[285.5 399.7 399.7 513.9 799.4 285.5 342.6 285.5 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 285.5 285.5 285.5 799.4 485.3 485.3 799.4 770.7 727.9 742.3 785 699.4 670.8 806.5 770.7 371 528.1 799.2 642.3 942 770.7 799.4 699.4 799.4 756.5 571 742.3 770.7 770.7 1056.2 770.7 770.7 628.1 285.5 513.9 285.5 513.9 285.5 285.5 513.9 571 456.8 571 457.2 314 513.9 571 285.5 314 542.4 285.5 856.5 571 513.9 571 542.4 402 405.4 399.7 571 542.4 742.3 542.4 542.4 456.8] -% 1856 0 obj -[892.9 339.3 892.9 585.3 892.9 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 585.3 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 1138.9 892.9 892.9 1138.9 1138.9 585.3 585.3 1138.9 1138.9 1138.9 892.9 1138.9 1138.9 708.3 708.3 1138.9 1138.9 1138.9 892.9 329.4 1138.9] -% 1857 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] -% 1858 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] -% 1859 0 obj -[533.6] -% 1860 0 obj -[413.2 413.2 531.3 826.4 295.1 354.2 295.1 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 295.1 295.1 295.1 826.4 501.7 501.7 826.4 795.8 752.1 767.4 811.1 722.6 693.1 833.5 795.8 382.6 545.5 825.4 663.6 972.9 795.8 826.4 722.6 826.4 781.6 590.3 767.4 795.8 795.8 1091 795.8 795.8 649.3 295.1 531.3 295.1 531.3 295.1 295.1 531.3 590.3 472.2 590.3 472.2 324.7 531.3 590.3 295.1 324.7 560.8 295.1 885.4 590.3 531.3 590.3 560.8 414.1 419.1 413.2 590.3 560.8 767.4 560.8 560.8] -% 1861 0 obj -[611.1 611.1 611.1 611.1 611.1] - -endstream -endobj -1873 0 obj +1927 0 obj << /Length1 2422 /Length2 20069 @@ -24042,7 +24828,7 @@ h ©ë–} ¸Œhj¬ÑÉ£f/›IV+\}3bGU ý5"©+IU(€oVžNo±íì⮂Øš¢b"Ñð±öÞ¢:’7cÂéx€ås¯t£! ‹@ïÇ%e)òûÀÒ\ /œCÿsoµ^“ªê- qhÏKä¡p Ú€ó&êØ /_Ïü endstream endobj -1875 0 obj +1929 0 obj << /Length1 2382 /Length2 17618 @@ -24231,7 +25017,7 @@ n òu; endstream endobj -1877 0 obj +1931 0 obj << /Length1 1599 /Length2 8420 @@ -24323,7 +25109,7 @@ I þ¿Tíæ,½€˜à÷oÌãÎ’|> stream %!PS-AdobeFont-1.0: CMMI10 003.002 @@ -24420,7 +25206,7 @@ FontDirectory/CMMI10 known{/CMMI10 findfont dup/UniqueID known{dup 11 dict begin /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /PUWBWT+CMMI10 def +/FontName /HKHZAC+CMMI10 def /FontBBox {-32 -250 1048 750 }readonly def /PaintType 0 def /FontInfo 10 dict dup begin @@ -24473,6 +25259,7 @@ dup 112 /p put dup 58 /period put dup 114 /r put dup 115 /s put +dup 61 /slash put dup 116 /t put dup 117 /u put dup 118 /v put @@ -24510,42 +25297,44 @@ j y¸q ´BÀ¶$Ã@'ˆÊ6é!Wëà ÎúE¶ÆI¹ï6ø,ûITÁ$‡þÎy›Ù‡î“H–pi¹æÿVchž]l&Ûß¡FÃÝ:¹ÂO¤é$#ÈŠ!D:¨‹…%)aã›Mx“ýÈÇ"_L—ú?Âd*ú:‡Ö0ï2]7x(ìº4p ®P8¼*.v5žsËb<õŽ³]LQ†0ï*ø¶Kí•×+·@>e.-ÚoªÓèþC®–¡Æ€lÊïÆÑ\~R+$vÃo–D¥™Úg†ßþyùê èaÛ|nŸ“)>1–¡°©£_ù|hv‹D5²"Pt#'ò†å¾¹‰.G¢EîSJÏW˕̪N AZâÑr…ùâã!Éoí¸ì¤"ŸƒXýFÒÃ-øò) $^Yá±|i R©ÆA5ÿ=OgêÍCna8z*¬2Ïeþ6¤Ü]Ô‚œpóc&•ŒIJn=½/¢KzÑÿÎb Ì´3Ö'‚@ü{VÊR&go·Iaª˜;ÛýäÑÃØÉçânI¾_áš™Á Í| $xf¢Â@½µÒ¾¡¯úÙdôGëÖõ7x jUö8¯ RCÓ¿?¤A• X9Âüݾ#½»ƒQÇõÁÃÓ×|¶ÀÖ°\ŒW -× \·]äû€4Ô/R™H$ˆkítv>8]ÀªôQ,1ã¾ÎH¬ÿ€Ñ9` ’¬å¬O˜@›&]—å×zŽP§OÞ(5{OÞ!’ç F!Òs‰‚`qlÅøûè´ƒ8ànûr°ò¿9Ž9:˜Óݹ6SH u:е “Ü´ø§J¬/bK¡¡§¸‡ÚáQø‡æ¥¿¿a­,?Ëx'·Pãàû˜èò €\› Œkå÷¾l’à.9¢lëd•›è|G:ï«* -©´Ë d.årG´jùKrUû °c§Ì“îño6±¨=$øç_]_½ÀŽŸXëØÖwÙhJ™mHëe§Bbµjûè?|ÓB w9òp€€áä›ò& Å1jü®"+ÜÌ÷ŶÍMf‡ ™q®öP8#K -"̸-Lß÷X[{Ĺìç©;Z³Õ, Sõ[[¨F} ÒN؈¾*éíìgòµTC¢”÷E¹Òqâl{á¤/§pWSmÂñ¡p·ûRÄûžOU+zÙ\)5õ–J&Ä5*NG_»žº7ÇÔ†¨9GvG›œËŒ€îø<ʤ…$Ÿ¬·ËïL¬{ÓM¯,1´ÛÒ¾¶¿3fRY-'Š…øŒ+Üv™WÊEÉ+-â¤2ÿÈ~¦EèÂãMA€5Z;©· ®Ä¤¡\3>b¿ø>óKûRc-™8ÀX)2/Ê<,ÓèâÎ2þ¶†žØctæÑÙ/CžkŠ²·Rûø«r\n2¬û¯(ª¹]¯Êyp[ÜÏac‹Yêìì{˜Ö–Ÿ]Š@)×ó"uÜW"§V@´¤aéMm…¦* -:{°eNFARnË -[4¦H¯mƒQZ _«j—f¿Ð›Å!ë’‹êbºµ˜‹l'›÷7L—‘“i„™>ÚnùöÉy»Šp°½UN­/XDa\ø«‚­ Œ ¯pXF\ÊÚ¤S®†Îð}“¸ö³%`òÞòÂV ¯…ÄoØHÿP5ŽK«€‡Ü?º¬X¿ôKĤòƒpPÀwCª\®õÇaל…1†bI°$Z|ç}ÄwiïùS~[CêExáô¨aW‘¯?{ÍŽ×ÆÐèøM£{Â8Þaßž Ńœ‹«°f“fç€AãÁ‘^Ð n*{±nžU…Ñ&g‚Í}Cµ1±ÖÉV¡VÇÐR T…u¤ú‡LS-=Çñ$YÔ©†Âtd)' }~`Ñ}˜$}ÿ… ¬xˆ05igü2ò%ˆòâ¹ ì[ ÆqW™Y—g]x9$eL¢[ó½÷0Ø?꿼ÚÞi§*r ­Ð D¯]öyà| ªóHwn.³çÜÑüÄ·#Úx”QôÀ+ 9/®ð—ë7"§'¦£-^4Lp+é3yVqªÓD7™X°ÝusFŠ°7Øá1UΊNÌ£ÎR÷ø1ÐÀZ83ŒºãÕÖ«÷ZF‚1í2Œ Õ÷QjŒÇx¦i+Sóçø†i~u$vìT²éýwds~wm¬­Íä±K;²r@ÀQ¼„–#´Î!•ôå²J•¬ë"µÓ”:ž#&ç#`všŽ†ÄÆ{”QïRܸrí¼ ŸóÉÈÀ@uÛhî˜Iâ‡dgnê7bkÉ2koó³ùé¥'îšÔ+ì»aÉ -[œñ»´^kY3‰=ñÒqº}EÜ9ëÂRjzææ5<Í+S -+âðñʉè©RŸZÑ9@-¦%˜ ÷fÆg®Mp’Üz<…† -ÌnŠIã-n'd[2õ$A¤dÓí>ìÕåù¨pBZ"$rÃ?÷Ý©®ÖÈ…˜÷.œ0N3ˆS§ˆdk^ºñÂø÷é¿ñaóPwÞ@Òų.šý±ÓˆaòýÙ1CÇ'—6-‚¼©‚óFRº{·¾B0 £‰[W*vÅ@¢(GÄY |Ü£¶1ýmR²a¼š0Ù3öùh¿æBF$g/oº© ±­ƒsž¤bôk—eù6¸ßÇ÷ W%b!“ bB1-)2í;§¸As‚nX‡†öçPúÜ·i|—:Ž~gûÁp¡6]`QÑîêÌGìi/~q|ÀÀhªPŠóâþâÛ«>áÀe³‘zÇ»ÃCUÊ[•Ž‚;HCƒî¥k"©,‡ÓÓÊׇD\¸Þ;£ ×YõùÄÓof@ü¾ŠÛ1t°ãŒxge”Ћ My³£"º@øªŒí]Aîq˜>õåW´O7&ä7ÆÒÔ7‚Äf|„<çà7¤ìì‡z/Û!,”`–vHÙýZÇYYç.2-Ôh1%F®T?f?ëº^õ!œø!:.[ãxžDaï¶jG "ÔÁjÐÄ^'Øz‚šÿå¿Î§I+E[ K=àuØŸB^¬hx"½EWY×g«t“½Û?KÖõ™G÷¬RŽiÕb+®ËWœOÇô%À²oeB|R‹¡¦šÌI š¥>|R -#Ù‡èú—eîô¾{(geç)_Ù.÷ƒËv±ßÓÃM¶‘œ!;»û–AuWæ*¡Mcžà+ÊþsÆZpy•Š+ªNz*] é&PÌgÞzã ècqkgÌ4'9«•Vi´ ©³GiiõdU‘Ûý -wË÷¢ÇŒ¯tò|tøóP!g§äßXÄ d׈ªô[|-Fšëß f²?ÆÊuËò|ÊÖúžçŒœdê¸Î†Ø,h˧¿ÑkRÎO”Þ"}Ç“Î'ï³%”¨>Ê×—=TÙÖ›ßrd\{ CBs3æS&qâö±Û0KTrjU…îËc‡ŽáÆìb¨HFù”[õ—»PÏ^u—úI9žuÙ-è…ÃƱ3GäZôf-ðó6¹Š• iÆ‚ú=Ô¬™rRùoÉÖñÉZ€æ~ ·¹ö@Ê•+¾X–^^8¤]]ï0DKgÉ@Ó;â™ ¾LÕÜéžnDù@KMÁf¼–è—ëâ;öhl’.à乑N”]' ™“YŇ"ý•ÔþŽ)Ò:öðâ‚>­`búþ7©´©\³g¾Ñ%`_»—˜w˜K+yÀ!_^wQŽC ¦»Úb­#;Ì÷WnÃζ ¸‹b´‡Â þCO_0ü´q¢}ؒߊÀ÷Yé•Ù»3Ç0L[<,ÊhÒÕUGvîÒZyûHb@û9[M‚¡SA£Çãz¯Y@±|.rBP÷h]®þU\:wñ%„bv Ì -`1ÂZºé9 À‰Ê -æÛ"aJÉïé_ÉXHë-÷¹2¯Ñã‹«·y 2QþÙŽ˜“ éﺋ¼5…ËnÌPíïÏ?ß9ò"Ôg…÷îj"šPÔÒ#Ür™®A)a — -<W><ð_ k#[wÔʲÍBA^¶©†ˆ¬íÛ…<ì¶~µ¼fç‘£U¿P¦OI_µù¿u‚”Eh,ýkb·ËcíÅrÙ‡#ÆCÄà•a]¬‰)y]ƒ¼j–b_‰YÌqìÖ bÝ/Ž's+0· d•ÿzFõmqU̓æJ -Á«æ¯_¤è¨øÐ]N¹é|û9vvýD‚½»uÚ«ÕYæÁ¹ ›ûŸ©$Á¹ù–uÔ®—n#4(g•µÝXª‘Ü>œ”¾VÁ„Uë]3-SïÖæ£ð«9NšŸÉ#ª¨¿<¤Y–ŒÃ,ƒóâÇW¾ZM®‰š$52+³³…ŸÖ¡ã•oP>—§I¬ùšŸŒgs3Í û K{©fKÚû»„—UŒò«!Å^øêJbüV—}u¹±‡È_æ¹ÜEŠ\XQŒ=ª×aÆÓ2d:rñ|Dãf†pöö‘È ™}yò5ÆåKôµú¼Kü± z!ŠGÛõS•ÀJç]äYÖÙxÏí³ÏÛÈÊ=z»‡2êOÚîij.n øœ‹#=¸€¿ìUX‡BÕÇùÜL;槯O€PôI€ÃnŠ_È ë±×%>o€Ò‚A-%*ÖžN€—WÌž9…þã5‚…^ÏSˆ¾ã³•Ñ‹o ô\[ú”MuJ+²|©ÓÈÒªŠ½ÖJËFú‡¦Öµ9Zî½%X9ŠRÎò]ZÂ\]L`­(¨ŽÍ ò̯ý¼u•O¹1ñ; (c×íÐmÆÑb\ôaônïK‚‚Mâ{"LêØOÒŠ€+Ëx3lóÀ6¤¯~yÙå¢f'z_Dg¸ƒùêþM]b”8Ûõ‚9N,Äž²ÒªøÞÍ {-JF hó+! ÷]»¦!yfPÀ8㢇µGš:zth‡°ˆÚæSdC q¬Í‹ü¼w™ Ž]˜ €qj˱¬YêújGZSøoðø“[%Ã_©©Ï—Á9öŠ°ñà>q©í{Ñ87%+[š`|«%øÌ,‰~EDOk9£z,bP‚é1:´÷lHÕu×ã’Ô¦Œ¨Ü 3^+½i[W¤£o“”¹ÓN $uˆy -‹ÓMÅÃJtH"b´dž²¥Sõ‰ºoEEɺÛhYÖIÂqˆÎÕÓIëQ—-š17qÚQ¤@ö#γ=£ =âú•b&WllˆÚj²r®¥¸cÇŽO”®²µ¯ÑÌíRd •ñ#•9Ô¨™=ß(‹†ò& n¦p¶m«ìbtyÀ°+‡…–Ÿg,Ó%ÊÁKmª±_Zd·X±R|©s1!4 CÙÕ–£‰n5ëoG]’eùÿ8»Úp„Šú,ºXȦ“¼4*e–Ü)ØTjƒêÓÃYZ<i†˜¬R‰ˆà5BA%Gøöœ¤¹ 4˜G‘r:“ü§Bÿ¬0}49nôîù~=ƒ’¢T[õ ØØÁÜ¡ŸÞ‘KG‰VÉ߆¨´ñ–Ô®5Ô­Ë­>”E¥®†O’ŽJwf^Z„IP -p_”õ*¢×ݶÛ@Ì>“$¹æõ·£O÷sD¡>,zõþÔçèçõÒò¥4Œ«ýÌQOuø5< ®±]ø1Oqyá@»úôó0Ã8P¤ðøJѪŠëïC„%Êtá¹d9õqN©C=J¯´('‘ª’gÿîI_LP¼Þ¯ÿ³`ÄU@„)ÉCÃè#†Ó;Ì¢á&ìÖW²Ô»õ„k%1&«1ÂI± Ñþ,:YVÑ ßãv.ñf"0 ‹E0ìÔ¸´¸ÝlÎ ¾÷vBÚ首¨­’®¢¯¿hLÆŸò_D´ ¹OS¤£«£ÞÞÜ“}‹–\’»ëTí ækúÒöÐ -ߣíc<3Èä‚6 ]°ò$Žø¬L,/›Iç%û0yS&~œð˜Ä ÷NmÙN¹l ãÃßÔRzyQôã’ù‚#ÝæOUDRË)üÚ‘'-ix!šŠü]ä´Àr!†¬±1ÁÃÖ¾!jD5Èþ˜–cQ¸â}â—sFŽz+#”UAüùÉvˆÎÐÞ±üç²â«¡{ÿ”~y èyè=¦û•8xi•‘š¦Ó´âi¦9\”Ú;‹Æh†ùþ3añ?ê -ÜLj635BŽ`˜ßjÉ»s„ÉÓº¼r¹ªu€9øKBräWÒÑÊa7ÁV€p@±û´Ä7Ýȹ³·ðy{ÂŒ˜œÉ",‘*Þ×Ûg›ò:§=0-»ÞQùb˜Ž1Ží¢g2š¨>V!V ¦\&$í“j q)Õ%¥°jÐ}:½Ü4ä¿ng:ÅKüqâDd025 Ç"‚)ØÝtÚš¨#¾ŸÒb~^#ªFVf!ÔèY«z"!¤HtÈj;D²Èe™Hø@ôÁÏïxóÙx6‡uø]±›ˆ±^£Žš^<½ý.·Êê)Ô2 Q“Œ»ð—e`ƒ>¹ƒKF/ó,m¯¾šðÇ -tngŠMƒÎ± K:ünA—ž%,mn;Ö&FAÅO(戔¥ŠýV•(®4ë’í¨­QÀi (~€Í÷Îi -„t+¿÷„?M•þ÷} ÈWˆ@H}•÷™Ä^Œà …’Þ?ÕÅß–êçXDN1²O™sæœÉyªø‰{#˜DÍ)GÔ® -ý°­¾:؈DìçW*ˆ¼i¹™"¦¾ÄÈe5œéó-&èÃÇã"#ë1µ δ:Óuïr\dIåß\æ2o°/- ²b ’~ö -@[8Ć¼Ó|_¨°n8žH÷Õß]UÝ™ÅEÅÚÑÛ}aý…),m€¦ ˜^3l’•K¨²]÷I2D’Ѷ· -BÖÆøB>½L»Ézÿ( <ô²®({>aÙXiÏ -à“î7”°ûÄ@OÒ²È%ÔAeë•S6½ÎÄW„-\°[y·Š=Öa¯ªêtæÕ!š#ÅÈ¡`SÒÑx,2©TÏ—!T!;î;MäF@$\“£ùäɳ7ëê˜À³WªU8VY Äu¬\ÖÕ½(g¿ g/5$Á l¶€ßŠ£8̆ ”òd/“MyÞ·§¢ð-è]ý¬ÿ±ŽIï*ð‰Ä7·Ø+¦1e˜ì!Ô{Nê-»;Âq.Ñ„3$ÁL_VUŸE„¨¾:&ájÛqPq;ÑRbaúªwBzQ §ð€â™MºÜ\Îý¯€Ñè» -ž™:éo侦5lbr¾]"ûŒ -ˆßý£÷Nê†8+æR´Çõã¸{¿˜UWËîlT-Ê+ŠØ?"¼:FZ¦ôN~»5!Ç"°Ô?ß0÷zÊrÔó®s$ï‚VEþ”¤gp²X×ʼn§xNÿ(Ï -ß¿ô¯kY90Ê,> ?rgs.ÔèI C8ôRÓ;} -§èNÕÌøx'qœþ/Hå*Èa 2—ñ–©) ü®­yYÀÿ{ijB‡;ô 6¯p&|Ý%n&È*ºQ´š‚}óáCƒ3–ôg•nóNð¯Í]æø6.aø§x”–RÀ•ªÁ!ÑA™jú†]ì“ûžÍ$‰Uà 5­¹ÃáWMÚ Ö8š™ï×SNT½ã)ÏÓHÓÝZ‰<-þúÜl’±ôÚSS%éžõN#ÎÑ®«Q¶Ê[JÊü­ÅŒQÝëÍ,ÔW± «zçÜb³^-ì]Aê?=6–¬ðÿCÊfßm(dÑ#…»–¨…šƒKB­hÜJLWyb³DtMÕbVU¾‚ì´Oþœu÷T,] È»DÂý S¥©jÂÏÿP¹ËÜ¥(Ùª{”O!ål6~EH§*Ìw‚Û 6ŽzÚŠ6ªÑ~«Çã^U›"í…õË\Ö–×\û rÀl`ÒÎu¥îíIèýþ8ß_:À£-¸Ø-ZEMqüï‹c¢^¯{uTÑ•´Ó0]/?J+¥¨9  \/ ™¥jÑ¢ïÃÍi/~p/IB@LF”:v¸í…cn£…+—Y5—':îûãþ­ò¶5º7Á%PÞ' CTëg+ÓáѬoDf€äÓ~AK•ÁúÙc©ªŒi7 ñxÿlbj9ÕŽ–\XqY¤ŽÕâψ¥5“Ä6ó-|­’ Ü%œÒ;!çI Úö”_'OˆÓdï+‰œ{ž9ÐfÀ…ëRLÀ³ù# ðHˆÇhU­NÜlsúêZ ¥høÖýħçi(áfÚÚpå×K˜7‚×kÁ$@)SåDC[SJØ?DPØ­ÇƧj×ùO’K£»£Üˆã™Îêl\f<õ«2Ê7Fø¦°É8]ÀªôQ,1ã¾ÎH¬ÿ€Ñ9` ’¬å¬O˜@›&]—å×zŽP§OÞ(5{OÞ!’ç F!Òs‰‚`qlÅøûè´ƒ8ànûr°ò¿9Ž9:˜Óݹ6SH u:е “Ü´ø§J¬/bK¡¡§¸‡ÚáQ ‡;2~tã¦|CASÁ~/ð¡–T Ï>¬úŽ8¬ë™á‹Q“ÛÃN–+~©g-|‹¹zØÓÁ4™ZK˜ +ßx%½ÝVp˜‚=ÐÉŠ´µNú-É"í{L}C˜mÆ4ï}kÍw~enÒœ.´fƒYpg¨‡‚½!°œË[t_7.ã×ÍsIw¯4 ¯}cøOŠ;”*iz§•è2”m/ÌÅ™…ïÕ…Û*¤¿ ¨å4¥¹yžÝ*u3È^ÍNƒÝ£’ù;ëÅ”Ð+ɧSd¿ÿMá:)2øúé—Í ;B¨Æáþ Ü"Åß4æß—PÌÆmG‡MÌwÎU§Œ$fÛ=µÄ„{A»yè<\.|L5ƒ³”ÐLèî:Ý­ßZ: Ï>f>proyjÂÎØ’* '²XK.šO³]Hù¾_mâÅãüíkÍh׺{š”ŸªpMqhéXW‰}ƒÝÏå8ôeä1°ÂÀ؆ÚBüØ,V´%°úuÊö ¦Uï?Ö•XO†Ûh“Íf÷ïH]Q¦¯œ&Ã=®ã?^ušâæRxѹr«'š åž@ f9æÞÈSêJ%î©ÿ©$÷C¿ÓÃÍ’:bg-úY›ßkÆi¬Ž…É26fýÖ;ŠòLËÉŒ+à24Bn°ÈÄ:/û€ß›¬*£úÐæ8w«¹w,ˆt»Z×v+…'Ëã8ó:I´ÅjMóÁ^I¸>¡›Èñ+Û†&¦WœÚTÁ¤ûhpÝŸâZ‰×Ë;^úühµKÛlËe,»öÏBtÚó8žãõLϲr¸B#ý ÏާÆÓ.L¿¿¡Y°~ÕÉèzé¡&é§$TzÌð0Ünߘà©Zç¼ÊwrC͵‹åÅñ»ÝaX#€¶bBŸ÷žñâàRjÂ)%`–Yü4·G¾Ï ]»ÎÁSžV¥Ý‘ ÇÏM™¼48ú4ýéñ–R%©¶š¿eÛ¨”ö-O—´’Ï©™Ôü…ƒãð]l2IÔs$Npë0§7"&Œ@L/}f“_À¡õÍ ¬F0nÄ"Ôm¤õ0qê£Ý)‡µYëù’ïzö©¢“ÑÜϼӔǧÁUv=ÉË”Š¹‚­pïq’K´Iú^³ƒ#Ö§O÷ÌI &~Un´Á û^éHܵî<$,,¦û"º×ŒÀW¤«?_¶Ðuôë§z//ôz w™ðè×}¬ª¯ÒXo=qD-¾•äÉp/Ǻ¥A÷-0MîÛÛ+}²'s»à¬¹¾+DßÐÆ4ti~÷å$<@1d#]ö;HÏ™ÿˆš, av·Œ­ö›Þc>h$Gð! ¯RwÑ’x€Êß®W¯œù@Îy©¶1ѧ~º5“/_pfÚª`O!ÇVxçñ(D¡³·¶ÓܪØ4µì¶°ã…z|pºš3Üç íÌ8r¾Ra\¼\•`¦ñ_¡¶ÂÍCBEW…‘z†ý ‚hÌŒ¡ä…¤Ðô5Ê&Y°ºó8çèŸ ~D¯t ´ðEwÎ{ 7Äȱֿæ~ht Oú0u'M§´9WSGŠ’ñz°ß¹ê|¯£ö»5\ðT§®mÂì.=Ä»tG+^å Ìøëi•…½œ•ŽVÓzrøº™–TetÑ]Ô†žm±§í7"”úwcÛ¹.ÿ‰Sñn¾"H]ôYzàÕ}"®÷fÂ,\éð>ßT‡ÞñUqKr}suïÜüIã˜×óÇ×Âé ®ßØŸÍùÏ\°û5*(!'u0 ßF>u§±ÁMÍ¥5+1‘Æp,é%m1raŠ• pàYúF0#G±¨¼~Íá|\6+TÖOJ"g¢-®ÿ]÷:«D¬SºŽÔë¸V5,]Ácù\ND{耻õ§¾§B:Æõ»_Í«èy‘šîÙNz.À­94’@¡cj\ŸqƒGHº+zr‡È ~_)¶»è×ßW˯kÃí%ΰ´|@ôÛöy¼£´oÜït7â-¦•®õ–B<-¨F¹E¯Åd‰X=Ï°êOF?ŸÃŽÂ³‹ <öÝ Ê©Œ‘Ýùáņ€*‰„J~;JÓqÉ™ŠH~°¦Ç$³èÝrZ8@dšžolþo´vú&³Ž`ÊééÖaÆYëQ#ù¨šÇ(À‰`Áè/5“ÑËn¦–¬vXõb°c¼ñ®Õ°Ç€§T+ÿ>uÌîî¤Áùª€§Íl%°ÑD/ÁØí +G´/.¬Ê£xx"ÜF´ µáe ]/4±°‚f}!•ß‰Ò,Hƒ¼ÊëlH÷íÛq«Ðª F_×7‰“膪,É~‚mA(Qb5I׎Ç*…€í<<î_³@!‡¬¿Iˆ¿Gäñ#!hT YÛdO·Z€˜aÕüžŒLÐQˆHZ}¤ìü·ÿÆÑgýŸÿgɳc°è¤`”Ö{‰dM 7Y’‘Oÿs.g0"ò]™\lý·˜±F_ýöÑÙ¬joèD8‚­•½æÀ\ÁÔ`°¼:a=W%FU¿Š{©Ÿ’wZ\RXWlN’ÐÊ66I ÈèkÜ)˜”ඉÊc‡êPÈO +ÝbbÓ€¾->£Àé ×yx'0 f;6lÁBðXG³ÛWRA€í+5‘¤‘ˆÛk¹ÐrÝ=[ÖšQ{ vxb@±^R¡ýž0øFH»VŒ&ø +¤ÿËzô*ÞÕAzíd,]ê§ì›j ­Þ¢ð„r/øq+˜Ñ@I°µJÞäR7.îû‹±R¯(pco!jÈzÊ™š«³ÛRÑŽ€ •×•#>#àg –•D CSÔæ¹pœ¥W¾Nn‡N-D¹ó+ØòcÌúXF„Þƒ‰#4-‹#®±I3±&·ê%¿jäÊŸÐv³càl tí­_Û¤1ó~v«¼çñX+_wbVØvzEgY·›^Oº[¼†–Ý$ýÛWº*dåÛ Ð ¹l,èê¡­]ä“[Ö3[™q IÈÓw1u›c]Xƒ4Fì“cj×5Ï+!- lMoá~š‡Z*±ùfâ'·iŠeýÛ¾ˆËéé=ø͵hN¾$Ææ”î]¾»}^Ç~Ž2}oÓêˆhÔ/rhò~^BâFyñ<Ñ•JÖîô˜U24-ØIB è·^‚y-åM¦5k7ôaÕ÷˜o6 ­¿®pûidS=ÆáÞY!rºßú†—eL‡o±R|D€@)¢Í®N®\Ž•f«©Õ AsZtL*KZÂG4}o&DǸ\ní/èÁ†¨ýÍí­{ZZ¨Cý¶0ÕìÌQè\A#exÇÀè ­ aAäì±6ŠšÅĘHƒ‡Ö°<Ÿv ÷ÈÕ6Þr§Iª6øC9ôþâŽ/ªh/‹`køê^%Jz˜É°hR{‚éÎùÖEhØœt Rä±7\¶ên½Q‘ÖEó±ËßJÆêûp3E2ÈÕ³ÔÈ¥ÍÔ+'vmy³Òý þA"noLå5D‹âöœ­qn/øp4¹voÌÚxVbÜ';©ÓµD Œƒ`äå !å9 t/ë OÍû†¥¯Aìnkibí Ö*Úø;$GØÇë¾N•ÙxUÄS† QÓ©„oÃ]Œ¹EKا Ršx-yÖÇ”»,ˆw§Cö›Äêîñ™ÃŠ0£r¨‚ n2ß„5 +¦t1]‰ÅIdK^³§ S^›¹•°êž«é:Ø^­•ß!aÔz¯dí2s@„z=3S8I2™ÆFìçTKò¿ 3Ûƒ]-Ûe)žû³†þ"W·CÝÅ’KŒ +cÜëŠá]¢²þ¹¾q;¥V^¶=íÍ.TÉ.õxM¨¬÷„¶ï«C@¸ZG|ÑÈ닸Žà½™>šže7o‹@†í¾Žs…¼ 1ܺWÕO`D£¢†z.x—kû,¶õmðæï*fô«Œ•j‹Ñ VÛ½Ñ(â!³ ¹ßûõr˜ó(˜cnøNÕ{{¤ž‡÷ç)¦[A¨ä†1ërÄ°ÁÆS/F?·êý¤æÙÜùRˆD7ûð×Æ çŸ2f/ÞB¯l±I#dãö W³Œîƒáñ›sò»oY .ìA¯1W™LP¸,7 Qì¥(PÝdÄÕ°¢îà(Ì£‚àKüÛž‰íû®9\…¤ÙÔ8„SËZb^—ê+Øàaƒ\®à½Êú]!.Âc÷cõµ|ûÂý›~ûC3¼äSþ¯žúò#ö~ñ˜pÎÁo–žõ—¬Wòùσ†f´™+6Ĉ(”¾‹ ëT!g>؉$…Ç°u¼‰ÜíËYèKïÜ2$ú¶ŸO;h‡qV)k‘D†„Aõ¼ŒÄËYõGø|Ê TkdES„ͯü4ûqáÉ3Yi®ÎOºîuÖI‡W¤4ûÒrÇÌJOIá~ƒi½¡nÀzzÚhœE¶TCuÎTÑîI7ºEãq S"gGÆPª’ç31‘êQ²™Ü +þ9ä{¨É  ex¦ÊºZD_Y4¶Ñ³¾þd.åBñ± *` *ü›R)ä‘I—ÀæÈ‘3£ÌŸYf¤N ¤ç¢×%ØÉÕ˜ê;íÊ`Ê)›DA¥JGZÙñ¹vëi\û¦òE@܈õãR† öOGr®âiÐëÿŽ?^DfRê‹Azð7jœí©ëÕÜŽÒnÉGqä\2¦ÝìôÝÀ<íµÕwvV¦T¶ ¥¯kQ‘¬Â½Ø6H"§TÁ=s¶=\ˆÙü®»­Ú|õ’h©½Ð@ WÛŒ[sŒCn Üõµ!7ž¹‡¹èfT^âË÷4 ü"a[¦7ºæ-åPby$AU+ |G:ðö®G«k>©Àö»BëWü0öqtÑhÕŽöv=5÷‚n$ h^7ºn®}1!ÐSI²é>¬h'ŠæÓþ½¡÷}ÂþSx˜Âóïô`1TŸUW›“õy¿`PÊ|+Oý4Uö<§µÛTÙ'ÿª²F‰\‘ÉÔÅbóŒõ9ÏeƯ>Ib;‰X‡Xõõ÷)Xµo“EÙ,Fœšq>÷ù³¬‰Âò~(yª9ƒ‘ôô¦¥‡õ9¥› +É—>¦ÍO“\nÝ[׃5¤û"Ä-é© ó¿Év}–aãRîj+fkY¡­­ÀȺ6˜ú™Å56ííÖ~@t^»} ¦¼ËìV3ÇOK|g^E¯¸#:µÒLeÿ›® )|—9Þ”š9(®»ë%¤+‚†FIZÎA?¼J}á(BTápÉý!ö̯”DxÒé²ÄѸ©X,É <&Ú&ZP¸c»ßQ©WGö}à¯sKHù|XÁ†Ñ­u3‡%‹˜Çÿ”¼ú€ú«a˜^þæôG”÷šw¦w![oµKQ>s‚ìb pC&ZéÛ‹™²€¾7Ùhp¼n +wæqÁA|ÞX4xÈ'\U_§ß_wŸnû5ã0Þ,~b‡FÞÐúAªY­èp_OŽ ~o +„ NL›HÌzÀ}öø²ñeª ”¨ï-µtx£bη!ñX³/i*uyÏx†þ:(ëÌØ(úÖe)ýÍ-ð;›àEu¨eÈÞ†dÍÙ—c.õ6Í,rPíÕ\ +Áˆ¼K: û'FÞÂ'’5ãî ¨Ë +/ Cf*DŽýUÖ= Mî:焯»˜͈%\å•/ÖÞS8¿•  +BÁqªŽŽú,–…s!úSæF¥ÐB±3“¹=­Ö`˨ÊôÞŽåìºaí ñ\-ÿ ø/ðŽÃ"±ØnXÎþÇ=áë»þ¹¼œP5Xiq©²ÖÓƒ,¿2üF‰ÿÏ"Ë+Q_ÓÁ-éU9 +g•tüE>ÔíaŸTác›ýþ”EøÞɧYf¿à¬té*ˆÊB=oLš¼½Þ<É%ÓHï4Mø>…’båÖ&&½åîð’ùô©äJ×öÐïÄ– _âÚKæàÒZ˜0jÑíÿÀ[yájÛ1 æ» Çò³Š)dŽ@~‚\­ßÁ¨ó à29?ïDjD(Û²äú]ºý’)[¾OTd¿å<‚áh+Ž§\íW(Á°ëóRªv\¹$ Åc‡¨¡€ì»x^‚1O Þ9Cù”£xÐ,-‚‰ œ}2§‚voB…“ +îàjÜyÓÌN4‰‡9AJ@*×&‘ÆJ—Š7ìxÛ×U]ÅG<˶6yo"fÕu?èŽâd-»›“½7šÜªfÈeþ£$”K7ÑŒÎàÓ 6´yÂŽÊÆšn¨ga˜GT”Ë k`Åå¯,Ö ‹4×0Y‚ž%]2k +{,+E¿ú§FÈåµ»Ò;îÙGç2%’â I Ýf žôJ>“’»}n‰°ˆM†¶áI7x—ÅÐ…b7ß 3ø=ÛBEѤeºÂ‚òEB8?÷ ìûÎ6zÜ[óv©ÎŽKlBËm Ä“É$9 ßûW}1é®\¨Âlž~tŽÙÈ™wECN¤3éþ|Á³(Œ"öÈfù–Õ%{Ç©¥Ëv1ßø¯CÊä +H;ìf“ø7¾Â&”î°ÜÆpõÞm:g›š*sÍæ³yrÅͲæÑãýäÄX9flâ4ôö3P­>óÝTÙò¯“×wJñ7(Ë|Úˆ.J¨î>.îàïc+V.]E56!â»îEW7© Ašƒ>ÿ¢È^¿¨¹YfäTˆ€š<¶¡á‡à'ðD>?¥ÎBÏN“Î xÅa9RäìàI$š¾ñ¦e$6Õï$mçe0½ç?#ýìžF‹ÁÅ,bn]ÞÀ +i¯L‹ÃtGtu9GÂIjù'ÐZ1 ¤ZÊNQØ5Mwܯä"Ÿ°×ž- qÝ\K¬¯æäËfœy¾úÎdvZN;µî«%ÛÔfB$k«»Úâ”»x§n2ÖYîâŸËf‡ñÔxwh£6*¥‰‰ñµ̃鹿+> y‰óK@¿÷šQ§Ã1S?è±#“PÃâùž™ˆm9Fsà@ѤQ€¹zˆÏIWPN@e0’!ï!R~C[ûJÚ{>›Ëýó{öĶ¬eþ,R¯~ºÞf1ë¸+’~rá÷Ú=ÍŽ¹¡ ø¤ê…îœ.Y™Œ¯†€E÷vT’!å8%×±ŸÚê¶×+nÞRuîBd5Qˆ¥úZ§ŠmøÈ•­Ë8¨ƒcî¿Ñj¬ú¥}–wèÇB½Yú°Ã!(  Ý'f6ç-9 +(cŸ”Á‡LÚøÏEOŒCB­­ƒõÂZâöVýÏ]»ôk=Q[F‚²fp NQxN§߈ ˜¥IÒb®µ(°»=h +J´6Á£·/Î|Å[nÀ¬ìÇÒ¸? MqåMÈ^û™RÛ¯:aPا´S¤¡^7Sñª»¤±jy"ƒ¸ÄQž;2ä†@,ÆÏÃÑ& +iü¯½³78Àí²ÄÌwŸ~RHôyzËï]‘4ÌRÔ<^|žØ$T5å'¹9¾ þR +ʳ-@z+´Vù@NP’ƒ\w´ìxËÕT†`‘xX4„Ù:$.¤¸š1YC|¶ÿ9O€E¼ÞàÊþîÝüû9ì<ŠÒá½Et³ Ǻꛗÿh¢áÐ]$oÙÜtE +†(Ü‚ÊìA¿ì17§«Ë¡ÃŒB +¡¦Jô! ]!{¬¶%£¸s„—Ÿu¿½X‹|Ö& +“ƒÿ³c`YÑ9"%¡w†q5íLyYöu:lÉïdžPC¡àjŠv³1N •S"þS´Á‹Sšº"Ñ’Úu¦˜}µüò~øRÌ_D{çwšÖ;]éî^øW¼­—Á7‚yÕÑËýªqôì?¼VÖðM2"›÷ÜpêÇ£Ðà8~ ØÅŽÔlê©''<ù¸ l°’e—ówÌÔôÅ·6LÒÕòhToÎ €âƈA Oe:3„–›ˆd,±ö`RD9 ËJpC +Zõ 8éôͦ Û à }âÁ*ø:ݺh—»¤è%+t§[ï[+åð•þ‚[×`Ì7ö:Έ þ&nàFyÅñŠžRØíSxÚjqâyN¥”ì²tGåd`”¦"=ì5Ì%»Òr™'~&k½œñíå÷$û‰7éV£òOïh÷jm¯‹¡4y<7ô-@€¨Ûâ Վכþ–aàÂCᦻŠN.³c»‹ŸºLCàG,%Ѭj ž“ 6 °ÞM=±\:£Î·Ie» ï›qfêÝ÷𺧘8÷~O%w$7gä*Óƒ…5¢£ + fÜ»:d…c|¢ÕŸgoà=–I2îF'ALb(“G5*STJYìÖbb]lFåR±Ð§¼Ìd©`,qG«z˜!‘„bplº¢: YÓé¿üÊö4®zAb£7Q¤ï +ϯ˜¿ +‘Z},¡~v9ðR¢W³BÕh˜¹Y'N& ù·•‚nvÉ£#¨î½¾ÊCcóçåÅ(ø¯¿‹én÷gÑúñInâ[l'8|s.xãØTÐù.›'b'8t ìö1x®Aßêª1õäØ„€ð¯UØHA'‘g–Å oŽšSC2¥Å˜¤Ø~Í|¬Åc˜dá,ù»Jçíªô§…[)¡ +aÙìèC¡:ºÄ¿ú¼fús:ÿè'wµHŸ}ùJè€;Á™ú‡£ö°] ë¹¹«5¬_°¡wVþl }ÍñêFí}~Ý +<…¾°ÐøHá…½k!‹žl¸‰ƒ¯¹–8nÙ‹ØÕU™Í`ùO<·¤ÔÇíStÉàûÔK•yHl†rò!D·jÃã­ˆ0/Ëö8)µLàûcÈ¢¾‚m–ßú.Å„§è‡Ü ¡le„,/%I²Þ֌޸Ԧlq¯ÂyÐõ³Ìâtåòǧ-îÂÿ"MÖ0Q‡…²œ´°,XÁ¶ÇFß᪆šÃõŸŒÇ +-/Àƒ·šE©®v£(Õ‡„©,ÿ\( +]²Dg­ºÂÒü1‘U:„áàŒ¡âƒãEŒ)ÓrkED¥öÑ–…ëõÍšò”ì=ù|EæE³[òc†$“—5ÎÄ ãABHÏ£?Á¯çøÁùÛAß‚Ñýÿ¢"°;Ëè¯F ù‘yX%3ŒäJ¼ÎDäi±Né›vhŠ"èI¡~‘=\r7CóK¬ŠËG°EÎ’/yDw½ÏM‡äìËößzì’y±Í$Ëo—ªªzè#ãîÜt&ß³„ïÓ®Ò8WœÁébÒ·F(”" +©[Yß±LTö^JZIJÿ`²ûYâÔ—¸g+8˜*µ7˜JÅŠ%ãƒvdša[°Ç—Ü—U5¹Ú^2ߺªŠ4ɦ`|Èê\ý+qËR¹´•’è=wN‰‰b×;Hd¶w‰Á°Š¬žSÂ7Û¡˜Ï4¾’„X0·qv˜òo1³Y˜méôegG½¦ÒOýFg4TÇ]2€•UÏÍîšÖ‘ȃۆOž:w8Í6ë,Pú»’íZ«9=»½ç³.Y ”lp÷¬\.^„œ›©Nqµ˜ÆP£@ƒe` œEH :堊胦,{ò›gs/ä8’ *íxÊ ¨™Ô²ñ•Cœº Ü^8i7(ñu¬Ð¬Å"tSmh»¹‹‹Gewû•0Ïä nó¬,[a¡ƒóÉÛ~w×›ù57¶½ÄªX~q½\g‡„µQ3>Èl|w © ’R ƃ9Âh±ÝæS6c€ sÄw[ôBä^‹]Nð8Z¾‹Žiu@cB¾¬­ãÇDQ®iHºÛ_HWA…±h¡ãÀÂA~5wå¦Mîñ’ÉUP1!ƒ\Ó¹LµüÒ#aŸ‡‘ÿ ÑV‰J)í‰öÉFÞƒT ßÏÆĆe‰7è}aáþ„¬ì·êîŒu°Oµ´žÎµŒøÈC wåÖ m„'ûFü @´(Ý´ì 5 èí&ÎR +4&Fi‡ÙÔ!§&C×P‹¤Ÿ tæ#+µ72èpÔ%ê´ùaÅ5K<#ÇsºFëÉSUh–̺d*l¼4h¯çA'7 =ß× ¥o^škõÿ 4kŒQæ­´¶ø‘Rýp5Ö±ýñÁ*–h]ÇJ­âçß¡âqæ¿è?â#æÝ‚ÅÅ7qéA’žÏøçàÎgã9ñðàuè³q5ˆ/±= 4Eú­CËc2Ü1m ´>×Q¤OŽ9m©2E'ϯHõ!üyÀ>–Y`EüýîË`jà=­‚–¿ÖðÚƒ,Hì½;ã ß3òh|êX‡yö c­Oõ¡Gb„5Ôïß$R”ߘ´§Ð؉48CD #…_K|DÑ Â\"x·n[#Ï0Ê=viñ—ÚO÷ÞZ²`ã¤òI`˜ñ øW"YÛ.÷Óêô½ïÆøn¯ý¼Ã2Ï5*<Û*3±ˆÖâ0ŠEÆ8ðÏ ´©÷×¼øCˆ‰•Í5;Hþ,êõè ðÁ²FCí‡|h4﬚˜A¼_ïS¨À‘´Æ]!`àÀÌôä\㸌Å7äËêTç¥â*{W "« À‚e9•OŠ7íˆÑ@#u¿ëeÆmþVÚÃÆá  /š1‹VúðóÄHûFR7ÃïÈgd׈U¸·t³Ýª7‚¦Æoˆg¼mç[Ú¥E|WÌíPö «{oþu=“2k¤ŠººÄÉz†´`§@ ;ÁÈØMKt¾W‡HôÚä±¹Lì縚ݪW.¶GÄ7^7S_½i´áL°BWÊ.î‹\w¸Y¸±-í0ñÿd#š¬{¸cŸ#žX·B²u˜%ÌH6Ýæ³î®t§rD’žJm-¼‘ãuû¸¾ug9°+wOÿ³¯Üì[€ð‡$þ”â‘I°¤>Åi)“$)ÃØä«T4»mÇ{3W³Çœ¼ŽÒG-g>ç?_ý+¡a„ï©Îç¥4¼<Ý¥.öeØ»D r!QÇ¥Å(|ü|À«Å&gô MZÔ]y%ó/LQÚËÄÛIˆDYýºû0 ÃЮÒÔèûè?š€‡]¬ˆ~On6Ûº•hQ¸:ød@'—¯!ø¸@š*IsPlH¸xû¨_ÓÁjDô±\˜Ýƒg3.«fß»ƒ0„i‰}¡= 3àºñåbPõ™7¬Ûkö4DŸ•rߘº5Ëù¼—zW~Z®BbŠZ$TCW¨Ýµ? endstream endobj -1883 0 obj +1937 0 obj << /Length1 1385 /Length2 6193 @@ -24619,7 +25408,7 @@ U Å[ì,T>c·ÛØ.I£%\FÂœ û_àí€I q!¬W&|÷F;„Ëûw•C¢äÀ;zBìi*¢ü7au¨‘-¾Ì¹˜±Ñ-þªþÁòóX[1``X/cã0èú@WÕ€;¢y€_¯Z~×` endstream endobj -1885 0 obj +1939 0 obj << /Length1 1519 /Length2 8224 @@ -24705,7 +25494,7 @@ t Ùf;á¤&ú}t”áu®"@H¡ƒD¤ë¯¡u1­Ãj+?9>oÝç>D¬qN6®Áyµ ¹K‘Ÿn”;…þøÿÍp9cS&Ü…ŒŽaö¥¨wœX§0i°~ο;°6v¿_ɵ|ªŠW$ÓÓ=;Û ÞîÍí ¿û—²Ñ>®‹ƒd‰oý\ŠhÀ6’³z¡†x-à ÜÓ &Ñ=¼ ¬š—‡AÅä!ž¯:–Àç`bùЂ÷™BÇJ…æ:Y_†±íÊ Í¯Æj$>*ÏX»ßqäBù›ùÀCauFöõ[Ì€ÛŠŸ%ýÂZì¼ …ú×ÀÙH2 (F]9ëCf2!®9}º  㣽i üÌŒ{éb՛جDS`s‰Z§<ïÝV솀(”zí4ÈŠkŽ‡yý 7nW˜Ç2hî`Ïç=0ÚlVMlƘÀ%21öè,ªê3Ä«:”Ù«ÁýSåö+E4 ‘Ïr©J?¿ïƒ·ýêzÞQbÇ^Î-— ÿÄ„÷f(˹jÙUqÓ¹f-q, ì)KŽßAžú«¦N endstream endobj -1887 0 obj +1941 0 obj << /Length1 1413 /Length2 6524 @@ -24779,7 +25568,7 @@ E B9V{‚7-cOgm6×=Uÿqí¼Zþ¤ÕUkew·ƒƒ>øùx^[.ZÜGçýPËn!‹¦–'¥FÛ÷þUÏ-]1‘fj 6OŸóR®fäWg$·œˆr›ädVÕ+ø&K7I¹R„Í°d «à©!ðH„Qéêð: øÎYGdsª† ‰Óz_”üå| endstream endobj -1889 0 obj +1943 0 obj << /Length1 2668 /Length2 23272 @@ -25002,7 +25791,7 @@ A ôiÃÁe~xž,”„¦ë 2¼ç÷«!`z@r endstream endobj -1891 0 obj +1945 0 obj << /Length1 1425 /Length2 6648 @@ -25081,7 +25870,7 @@ B !çðN6Ê@ |õ^ö(Ì®‡Pˆr@¸Í€ endstream endobj -1903 0 obj +1957 0 obj << /Length1 2199 /Length2 18119 @@ -25822,7 +26611,7 @@ s Xjç ?ñi•zâDRuõêøsuaÑSÔàT­ÃßkÀ;¢ÝÖ§_‚Í+_2(ï*O¦¢Ÿ+5HM¢“¥Ê膽A1ë‹IYÚªÀl9%—d½~QŠc,óAeÃ[€Þ»wIÝ¢f(ß'BTn˜nŠ³g¶ôÿ endstream endobj -1905 0 obj +1959 0 obj << /Length1 1699 /Length2 10351 @@ -25929,7 +26718,7 @@ qO' ÔX¦Ç ë¾A±©µ ÷•©SÞt²•äoC‹Kžr 0ìE·½õ1”O®&é ò™\e;HË lüqάa]Ÿ´þ_i0yÏ4Þ ^2’™Óè0‘ endstream endobj -1907 0 obj +1961 0 obj << /Length1 2460 /Length2 17290 @@ -26117,7 +26906,7 @@ e s£7ƒæM9-‘ùÆìª@¯Ð®R³±îB#„:Þ‰À×£‚lÉV÷ÌŒÜeƒ¶üUw²ÚÄ¿J·"™1 ×C±W|M`¯/ˆ©ïÑÕn­Æ$è”õÎÓÏw³½íΛ_®×7SŸ£¬›¹¿ `²Îkss½Þ‰o1½,ÈíÂؽ„­IIøßÏäŠÁÖs>9y U.Ï&†²Ëï:Ü.mQG-+ñ´N‚êÌM¢91 endstream endobj -1909 0 obj +1963 0 obj << /Length1 1494 /Length2 2555 @@ -26181,7 +26970,7 @@ currentfile eexec &Ì¡‰ç·Y5<1B îdlaà;À«9^¿'l„Hn,³ÛúºW˜÷ƒ{ÐÊY³µ¬Ô[œvñ endstream endobj -1911 0 obj +1965 0 obj << /Length1 1656 /Length2 8404 @@ -26291,45 +27080,246 @@ e §Öga!.ΘÍþâ:Øâܨ+. endstream endobj -1863 0 obj +1887 0 obj << /Type /ObjStm /N 100 -/First 1031 -/Length 20410 +/First 1000 +/Length 20689 >> stream -1862 0 1864 690 1865 1018 1866 1099 1867 1474 1868 2111 1869 2770 1870 3393 1871 4037 1872 4322 -1874 4970 1876 5400 1878 5827 1880 6076 1882 6318 1884 6646 1886 6863 1888 7102 1890 7324 1892 7861 -1894 8098 1896 8346 1898 8728 1900 9094 1902 9433 1904 9664 1906 10037 1908 10300 1910 10779 1912 11011 -560 11295 558 11436 1663 11577 1636 11718 755 11860 802 12001 771 12142 1821 12282 561 12422 773 12562 -770 12700 775 12838 1211 12977 772 13117 1125 13257 735 13396 559 13537 769 13678 830 13819 967 13959 -562 14099 736 14212 831 14325 887 14438 922 14551 953 14664 999 14777 1053 14895 1102 15015 1158 15135 -1212 15255 1268 15375 1309 15495 1348 15615 1396 15735 1438 15855 1473 15975 1512 16095 1553 16215 1586 16335 -1617 16455 1654 16575 1716 16695 1757 16815 1795 16935 1834 17055 1913 17157 1914 17272 1915 17392 1916 17513 -1917 17634 1918 17719 1919 17815 550 17884 546 17944 542 18055 538 18129 534 18217 530 18305 526 18393 -522 18481 518 18555 514 18680 510 18754 506 18842 502 18930 498 19018 494 19106 490 19180 486 19305 -% 1862 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 762 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 750 833.3 416.7 666.7 666.7 777.8 777.8 444.4] -% 1864 0 obj -[339.3 892.9 585.3 892.9 585.3 610.1 859.1 863.2 819.4 934.1 838.7 724.5 889.4 935.6 506.3 632 959.9 783.7 1089.4 904.9 868.9 727.3 899.7 860.6 701.5 674.8 778.2 674.6 1074.4 936.9 671.5 778.4 462.3 462.3 462.3 1138.9 1138.9 478.2 619.7 502.4 510.5 594.7 542 557.1 557.3 668.8 404.2 472.7 607.3 361.3 1013.7 706.2] -% 1865 0 obj -[569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 323.4] -% 1866 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] -% 1867 0 obj -[639.7 565.6 517.7 444.4 405.9 437.5 496.5 469.4 353.9 576.2 583.3 602.6 494 437.5 570 517 571.4 437.2 540.3 595.8 625.7 651.4 622.5 466.3 591.4 828.1 517 362.8 654.2 1000 1000 1000 1000 277.8 277.8 500 500 500 500 500 500 500 500 500 500 500 500 277.8 277.8 777.8 500 777.8 500 530.9 750 758.5 714.7 827.9 738.2 643.1 786.3 831.3 439.6 554.5 849.3 680.6 970.1 803.5 762.8 642 790.6 759.3 613.2 584.4 682.8 583.3 944.4 828.5 580.6 682.6 388.9 388.9 388.9 1000 1000 416.7 528.6 429.2 432.8 520.5 465.6 489.6 477 576.2 344.5 411.8 520.6 298.4 878 600.2 484.7 503.1 446.4 451.2 468.8 361.1 572.5 484.7 715.9 571.5 490.3 465.1] -% 1868 0 obj -[613.3 562.2 587.8 881.7 894.4 306.7 332.2 511.1 511.1 511.1 511.1 511.1 831.3 460 536.7 715.6 715.6 511.1 882.8 985 766.7 255.6 306.7 514.4 817.8 769.1 817.8 766.7 306.7 408.9 408.9 511.1 766.7 306.7 357.8 306.7 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 306.7 306.7 306.7 766.7 511.1 511.1 766.7 743.3 703.9 715.6 755 678.3 652.8 773.6 743.3 385.6 525 768.9 627.2 896.7 743.3 766.7 678.3 766.7 729.4 562.2 715.6 743.3 743.3 998.9 743.3 743.3 613.3 306.7 514.4 306.7 511.1 306.7 306.7 511.1 460 460 511.1 460 306.7 460 511.1 306.7 306.7 460 255.6 817.8 562.2 511.1 511.1 460 421.7 408.9 332.2 536.7 460 664.4 463.9 485.6] -% 1869 0 obj -[583.3 555.6 555.6 833.3 833.3 277.8 305.6 500 500 500 500 500 750 444.4 500 722.2 777.8 500 902.8 1013.9 777.8 277.8 277.8 500 833.3 500 833.3 777.8 277.8 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 472.2 472.2 777.8 750 708.3 722.2 763.9 680.6 652.8 784.7 750 361.1 513.9 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 750 750 1027.8 750 750 611.1 277.8 500 277.8 500 277.8 277.8 500 555.6 444.4 555.6 444.4 305.6 500 555.6 277.8 305.6 527.8 277.8 833.3 555.6 500 555.6 527.8 391.7 394.4 388.9 555.6 527.8 722.2 527.8 527.8 444.4 500] +1870 0 1880 147 1881 289 1882 433 1886 579 1883 637 1890 756 1888 895 1892 1039 1889 1098 +1894 1204 1896 1322 1897 1380 754 1438 1898 1495 805 1552 804 1609 760 1666 761 1723 777 1780 +757 1837 758 1894 1899 1951 753 2009 1900 2066 1893 2124 1903 2217 1905 2335 917 2394 792 2452 +759 2510 756 2568 752 2626 755 2684 1906 2742 1902 2801 1907 2894 1908 2939 1909 3078 1910 3265 +1911 3759 1912 4088 1913 4431 1914 4560 1915 4581 1916 5087 1917 5132 1918 5822 1919 6150 1920 6231 +1921 6606 1922 7243 1923 7902 1924 8525 1925 9169 1926 9454 1928 10102 1930 10532 1932 10959 1934 11208 +1936 11450 1938 11784 1940 12001 1942 12240 1944 12462 1946 12999 1948 13236 1950 13484 1952 13866 1954 14232 +1956 14571 1958 14802 1960 15175 1962 15438 1964 15917 1966 16149 572 16433 570 16574 1721 16715 1695 16856 +770 16998 817 17139 786 17280 1879 17420 573 17560 788 17700 785 17838 790 17976 1270 18115 787 18255 +1140 18395 750 18534 571 18675 784 18816 846 18957 982 19097 574 19237 751 19350 847 19463 902 19576 % 1870 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 655.098 361.779 666.223] +/A << /S /GoTo /D (precdata) >> +>> +% 1880 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [347.301 585.075 423.355 596.2] +/A << /S /GoTo /D (vdata) >> +>> +% 1881 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [347.301 515.052 423.355 526.177] +/A << /S /GoTo /D (vdata) >> +>> +% 1882 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [294.721 375.006 361.779 386.13] +/A << /S /GoTo /D (descdata) >> +>> +% 1886 0 obj +<< +/D [1884 0 R /XYZ 98.895 753.953 null] +>> +% 1883 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R /F14 787 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1890 0 obj +<< +/Type /Page +/Contents 1891 0 R +/Resources 1889 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1857 0 R +/Annots [ 1888 0 R ] +>> +% 1888 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [398.111 555.472 474.165 566.597] +/A << /S /GoTo /D (vdata) >> +>> +% 1892 0 obj +<< +/D [1890 0 R /XYZ 149.705 753.953 null] +>> +% 1889 0 obj +<< +/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1894 0 obj +<< +/Type /Page +/Contents 1895 0 R +/Resources 1893 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1901 0 R +>> +% 1896 0 obj +<< +/D [1894 0 R /XYZ 98.895 753.953 null] +>> +% 1897 0 obj +<< +/D [1894 0 R /XYZ 99.895 724.062 null] +>> +% 754 0 obj +<< +/D [1894 0 R /XYZ 99.895 699.619 null] +>> +% 1898 0 obj +<< +/D [1894 0 R /XYZ 99.895 643.15 null] +>> +% 805 0 obj +<< +/D [1894 0 R /XYZ 99.895 588.618 null] +>> +% 804 0 obj +<< +/D [1894 0 R /XYZ 99.895 534.087 null] +>> +% 760 0 obj +<< +/D [1894 0 R /XYZ 99.895 479.555 null] +>> +% 761 0 obj +<< +/D [1894 0 R /XYZ 99.895 436.978 null] +>> +% 777 0 obj +<< +/D [1894 0 R /XYZ 99.895 394.402 null] +>> +% 757 0 obj +<< +/D [1894 0 R /XYZ 99.895 351.272 null] +>> +% 758 0 obj +<< +/D [1894 0 R /XYZ 99.895 308.696 null] +>> +% 1899 0 obj +<< +/D [1894 0 R /XYZ 99.895 266.119 null] +>> +% 753 0 obj +<< +/D [1894 0 R /XYZ 99.895 223.543 null] +>> +% 1900 0 obj +<< +/D [1894 0 R /XYZ 99.895 180.966 null] +>> +% 1893 0 obj +<< +/Font << /F16 570 0 R /F8 573 0 R /F17 750 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1903 0 obj +<< +/Type /Page +/Contents 1904 0 R +/Resources 1902 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1901 0 R +>> +% 1905 0 obj +<< +/D [1903 0 R /XYZ 149.705 753.953 null] +>> +% 917 0 obj +<< +/D [1903 0 R /XYZ 150.705 716.092 null] +>> +% 792 0 obj +<< +/D [1903 0 R /XYZ 150.705 688.251 null] +>> +% 759 0 obj +<< +/D [1903 0 R /XYZ 150.705 632.184 null] +>> +% 756 0 obj +<< +/D [1903 0 R /XYZ 150.705 590.562 null] +>> +% 752 0 obj +<< +/D [1903 0 R /XYZ 150.705 544.789 null] +>> +% 755 0 obj +<< +/D [1903 0 R /XYZ 150.705 512.909 null] +>> +% 1906 0 obj +<< +/D [1903 0 R /XYZ 150.705 480.475 null] +>> +% 1902 0 obj +<< +/Font << /F8 573 0 R /F17 750 0 R /F30 784 0 R >> +/ProcSet [ /PDF /Text ] +>> +% 1907 0 obj +[757.3 871.7 778.7 672.4 827.9] +% 1908 0 obj +[575.2 657.4 525.9 657.4 543 361.6 591.7 657.4 328.7 361.6 624.5 328.7 986.1 657.4 591.7 657.4 624.5 488.1 466.8 460.2 657.4] +% 1909 0 obj +[1444.5 1277.8 555.6 1111.1 1111.1 1111.1 1111.1 1111.1 944.5 1277.8 555.6 1000 1444.5 555.6 1000 1444.5 472.2 472.2 527.8 527.8 527.8 527.8 666.7 666.7 1000 1000 1000 1000] +% 1910 0 obj +[285.5 399.7 399.7 513.9 799.4 285.5 342.6 285.5 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 285.5 285.5 285.5 799.4 485.3 485.3 799.4 770.7 727.9 742.3 785 699.4 670.8 806.5 770.7 371 528.1 799.2 642.3 942 770.7 799.4 699.4 799.4 756.5 571 742.3 770.7 770.7 1056.2 770.7 770.7 628.1 285.5 513.9 285.5 513.9 285.5 285.5 513.9 571 456.8 571 457.2 314 513.9 571 285.5 314 542.4 285.5 856.5 571 513.9 571 542.4 402 405.4 399.7 571 542.4 742.3 542.4 542.4 456.8] +% 1911 0 obj +[892.9 339.3 892.9 585.3 892.9 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 585.3 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 1138.9 892.9 892.9 1138.9 1138.9 585.3 585.3 1138.9 1138.9 1138.9 892.9 1138.9 1138.9 708.3 708.3 1138.9 1138.9 1138.9 892.9 329.4 1138.9] +% 1912 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] +% 1913 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] +% 1914 0 obj +[533.6] +% 1915 0 obj +[413.2 413.2 531.3 826.4 295.1 354.2 295.1 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 295.1 295.1 295.1 826.4 501.7 501.7 826.4 795.8 752.1 767.4 811.1 722.6 693.1 833.5 795.8 382.6 545.5 825.4 663.6 972.9 795.8 826.4 722.6 826.4 781.6 590.3 767.4 795.8 795.8 1091 795.8 795.8 649.3 295.1 531.3 295.1 531.3 295.1 295.1 531.3 590.3 472.2 590.3 472.2 324.7 531.3 590.3 295.1 324.7 560.8 295.1 885.4 590.3 531.3 590.3 560.8 414.1 419.1 413.2 590.3 560.8 767.4 560.8 560.8] +% 1916 0 obj +[611.1 611.1 611.1 611.1 611.1] +% 1917 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 762 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 750 833.3 416.7 666.7 666.7 777.8 777.8 444.4] +% 1918 0 obj +[339.3 892.9 585.3 892.9 585.3 610.1 859.1 863.2 819.4 934.1 838.7 724.5 889.4 935.6 506.3 632 959.9 783.7 1089.4 904.9 868.9 727.3 899.7 860.6 701.5 674.8 778.2 674.6 1074.4 936.9 671.5 778.4 462.3 462.3 462.3 1138.9 1138.9 478.2 619.7 502.4 510.5 594.7 542 557.1 557.3 668.8 404.2 472.7 607.3 361.3 1013.7 706.2] +% 1919 0 obj +[569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 323.4] +% 1920 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] +% 1921 0 obj +[639.7 565.6 517.7 444.4 405.9 437.5 496.5 469.4 353.9 576.2 583.3 602.6 494 437.5 570 517 571.4 437.2 540.3 595.8 625.7 651.4 622.5 466.3 591.4 828.1 517 362.8 654.2 1000 1000 1000 1000 277.8 277.8 500 500 500 500 500 500 500 500 500 500 500 500 277.8 277.8 777.8 500 777.8 500 530.9 750 758.5 714.7 827.9 738.2 643.1 786.3 831.3 439.6 554.5 849.3 680.6 970.1 803.5 762.8 642 790.6 759.3 613.2 584.4 682.8 583.3 944.4 828.5 580.6 682.6 388.9 388.9 388.9 1000 1000 416.7 528.6 429.2 432.8 520.5 465.6 489.6 477 576.2 344.5 411.8 520.6 298.4 878 600.2 484.7 503.1 446.4 451.2 468.8 361.1 572.5 484.7 715.9 571.5 490.3 465.1] +% 1922 0 obj +[613.3 562.2 587.8 881.7 894.4 306.7 332.2 511.1 511.1 511.1 511.1 511.1 831.3 460 536.7 715.6 715.6 511.1 882.8 985 766.7 255.6 306.7 514.4 817.8 769.1 817.8 766.7 306.7 408.9 408.9 511.1 766.7 306.7 357.8 306.7 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 306.7 306.7 306.7 766.7 511.1 511.1 766.7 743.3 703.9 715.6 755 678.3 652.8 773.6 743.3 385.6 525 768.9 627.2 896.7 743.3 766.7 678.3 766.7 729.4 562.2 715.6 743.3 743.3 998.9 743.3 743.3 613.3 306.7 514.4 306.7 511.1 306.7 306.7 511.1 460 460 511.1 460 306.7 460 511.1 306.7 306.7 460 255.6 817.8 562.2 511.1 511.1 460 421.7 408.9 332.2 536.7 460 664.4 463.9 485.6] +% 1923 0 obj +[583.3 555.6 555.6 833.3 833.3 277.8 305.6 500 500 500 500 500 750 444.4 500 722.2 777.8 500 902.8 1013.9 777.8 277.8 277.8 500 833.3 500 833.3 777.8 277.8 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 472.2 472.2 777.8 750 708.3 722.2 763.9 680.6 652.8 784.7 750 361.1 513.9 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 750 750 1027.8 750 750 611.1 277.8 500 277.8 500 277.8 277.8 500 555.6 444.4 555.6 444.4 305.6 500 555.6 277.8 305.6 527.8 277.8 833.3 555.6 500 555.6 527.8 391.7 394.4 388.9 555.6 527.8 722.2 527.8 527.8 444.4 500] +% 1924 0 obj [670.8 638.9 638.9 958.3 958.3 319.4 351.4 575 575 575 575 575 869.4 511.1 597.2 830.6 894.4 575 1041.7 1169.4 894.4 319.4 350 602.8 958.3 575 958.3 894.4 319.4 447.2 447.2 575 894.4 319.4 383.3 319.4 575 575 575 575 575 575 575 575 575 575 575 319.4 319.4 350 894.4 543.1 543.1 894.4 869.4 818.1 830.6 881.9 755.6 723.6 904.2 900 436.1 594.4 901.4 691.7 1091.7 900 863.9 786.1 863.9 862.5 638.9 800 884.7 869.4 1188.9 869.4 869.4 702.8 319.4 602.8 319.4 575 319.4 319.4 559 638.9 511.1 638.9 527.1 351.4 575 638.9 319.4 351.4 606.9 319.4 958.3 638.9 575 638.9 606.9 473.6 453.6 447.2 638.9 606.9 830.6 606.9 606.9 511.1 575 1150] -% 1871 0 obj +% 1925 0 obj [726.9 688.4 700 738.4 663.4 638.4 756.7 726.9 376.9 513.4 751.9 613.4 876.9 726.9 750 663.4 750 713.4 550 700 726.9 726.9 976.9 726.9 726.9 600 300 500 300 500 300 300 500 450 450 500 450 300 450 500 300 300 450 250 800 550 500 500 450 412.5 400 325 525 450 650 450 475] -% 1872 0 obj +% 1926 0 obj [625 625 937.5 937.5 312.5 343.7 562.5 562.5 562.5 562.5 562.5 849.5 500 574.1 812.5 875 562.5 1018.5 1143.5 875 312.5 342.6 581 937.5 562.5 937.5 875 312.5 437.5 437.5 562.5 875 312.5 375 312.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 312.5 312.5 342.6 875 531.2 531.2 875 849.5 799.8 812.5 862.3 738.4 707.2 884.3 879.6 419 581 880.8 675.9 1067.1 879.6 844.9 768.5 844.9 839.1 625 782.4 864.6 849.5 1162 849.5 849.5 687.5 312.5 581 312.5 562.5 312.5 312.5 546.9 625 500 625 513.3 343.7 562.5 625 312.5 343.7 593.7 312.5 937.5 625 562.5 625 593.7 459.5 443.8 437.5 625 593.7 812.5 593.7 593.7 500 562.5 1125] -% 1874 0 obj +% 1928 0 obj << /Type /FontDescriptor /FontName /RAJOBS+CMBX10 @@ -26342,9 +27332,9 @@ stream /StemV 114 /XHeight 444 /CharSet (/A/B/C/D/E/F/G/H/I/J/L/M/N/O/P/R/S/T/U/V/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/ff/ffi/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/period/q/quoteright/r/s/seven/six/t/three/two/u/v/w/x/y/z/zero) -/FontFile 1873 0 R +/FontFile 1927 0 R >> -% 1876 0 obj +% 1930 0 obj << /Type /FontDescriptor /FontName /BWDLNI+CMBX12 @@ -26357,9 +27347,9 @@ stream /StemV 109 /XHeight 444 /CharSet (/A/B/C/D/E/F/G/H/I/K/L/M/N/O/P/Q/R/S/T/U/V/W/a/b/c/d/e/eight/emdash/endash/f/ffi/fi/five/four/g/h/hyphen/i/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 1875 0 R +/FontFile 1929 0 R >> -% 1878 0 obj +% 1932 0 obj << /Type /FontDescriptor /FontName /VUBHOM+CMBX9 @@ -26372,9 +27362,9 @@ stream /StemV 117 /XHeight 444 /CharSet (/a/b/c/d/e/f/g/h/i/l/n/o/q/r/s/t/u) -/FontFile 1877 0 R +/FontFile 1931 0 R >> -% 1880 0 obj +% 1934 0 obj << /Type /FontDescriptor /FontName /OUFNAH+CMEX10 @@ -26387,12 +27377,12 @@ stream /StemV 47 /XHeight 431 /CharSet (/radicalBigg/summationdisplay) -/FontFile 1879 0 R +/FontFile 1933 0 R >> -% 1882 0 obj +% 1936 0 obj << /Type /FontDescriptor -/FontName /PUWBWT+CMMI10 +/FontName /HKHZAC+CMMI10 /Flags 4 /FontBBox [-32 -250 1048 750] /Ascent 694 @@ -26401,10 +27391,10 @@ stream /ItalicAngle -14 /StemV 72 /XHeight 431 -/CharSet (/A/C/D/G/I/L/N/O/P/Q/T/U/X/a/alpha/b/beta/c/comma/d/e/f/g/greater/i/j/k/l/less/m/n/o/p/period/r/s/t/u/v/w/x/y/z) -/FontFile 1881 0 R +/CharSet (/A/C/D/G/I/L/N/O/P/Q/T/U/X/a/alpha/b/beta/c/comma/d/e/f/g/greater/i/j/k/l/less/m/n/o/p/period/r/s/slash/t/u/v/w/x/y/z) +/FontFile 1935 0 R >> -% 1884 0 obj +% 1938 0 obj << /Type /FontDescriptor /FontName /RVPZIX+CMMI5 @@ -26417,9 +27407,9 @@ stream /StemV 90 /XHeight 431 /CharSet (/i) -/FontFile 1883 0 R +/FontFile 1937 0 R >> -% 1886 0 obj +% 1940 0 obj << /Type /FontDescriptor /FontName /ZUYGVH+CMMI7 @@ -26432,9 +27422,9 @@ stream /StemV 81 /XHeight 431 /CharSet (/H/I/T/a/comma/i/j/k/m/n) -/FontFile 1885 0 R +/FontFile 1939 0 R >> -% 1888 0 obj +% 1942 0 obj << /Type /FontDescriptor /FontName /ZOAUSA+CMMI8 @@ -26447,9 +27437,9 @@ stream /StemV 78 /XHeight 431 /CharSet (/C/F/G) -/FontFile 1887 0 R +/FontFile 1941 0 R >> -% 1890 0 obj +% 1944 0 obj << /Type /FontDescriptor /FontName /SEWPRR+CMR10 @@ -26462,9 +27452,9 @@ stream /StemV 69 /XHeight 431 /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/c/colon/comma/d/e/eight/endash/equal/f/ff/ffi/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/percent/period/plus/q/quotedblleft/quotedblright/quoteright/r/s/semicolon/seven/six/slash/t/three/two/u/v/w/x/y/z/zero) -/FontFile 1889 0 R +/FontFile 1943 0 R >> -% 1892 0 obj +% 1946 0 obj << /Type /FontDescriptor /FontName /UJRPBG+CMR6 @@ -26477,9 +27467,9 @@ stream /StemV 83 /XHeight 431 /CharSet (/five/four/one/three/two) -/FontFile 1891 0 R +/FontFile 1945 0 R >> -% 1894 0 obj +% 1948 0 obj << /Type /FontDescriptor /FontName /GIODUE+CMR7 @@ -26492,9 +27482,9 @@ stream /StemV 79 /XHeight 431 /CharSet (/colon/five/four/one/three/two/zero) -/FontFile 1893 0 R +/FontFile 1947 0 R >> -% 1896 0 obj +% 1950 0 obj << /Type /FontDescriptor /FontName /HFTEUS+CMR8 @@ -26507,9 +27497,9 @@ stream /StemV 76 /XHeight 431 /CharSet (/B/G/I/L/N/O/P/T/X/a/b/c/colon/comma/d/e/eight/f/five/four/g/h/hyphen/i/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/r/s/seven/six/slash/t/three/two/u/v/w/x/y/zero) -/FontFile 1895 0 R +/FontFile 1949 0 R >> -% 1898 0 obj +% 1952 0 obj << /Type /FontDescriptor /FontName /KKURMF+CMR9 @@ -26522,9 +27512,9 @@ stream /StemV 74 /XHeight 431 /CharSet (/B/G/I/L/O/P/X/a/b/c/comma/d/e/eight/equal/f/five/four/g/h/i/m/n/nine/o/one/p/parenleft/parenright/period/quoteright/r/s/seven/six/t/three/two/u/x/z/zero) -/FontFile 1897 0 R +/FontFile 1951 0 R >> -% 1900 0 obj +% 1954 0 obj << /Type /FontDescriptor /FontName /IMOIOS+CMSY10 @@ -26537,9 +27527,9 @@ stream /StemV 40 /XHeight 431 /CharSet (/B/H/I/arrowleft/bar/bardbl/braceleft/braceright/bullet/element/greaterequal/lessequal/minus/negationslash/radical/section) -/FontFile 1899 0 R +/FontFile 1953 0 R >> -% 1902 0 obj +% 1956 0 obj << /Type /FontDescriptor /FontName /XNLILI+CMSY7 @@ -26552,9 +27542,9 @@ stream /StemV 49 /XHeight 431 /CharSet (/infinity/minus) -/FontFile 1901 0 R +/FontFile 1955 0 R >> -% 1904 0 obj +% 1958 0 obj << /Type /FontDescriptor /FontName /HBJLDT+CMTI10 @@ -26567,9 +27557,9 @@ stream /StemV 68 /XHeight 431 /CharSet (/A/B/C/D/E/F/G/I/L/M/N/O/P/R/S/T/U/V/a/b/c/colon/d/e/f/ff/fi/five/g/h/hyphen/i/j/l/m/n/nine/o/one/p/period/q/quoteright/r/s/slash/t/three/two/u/v/w/x/y/zero) -/FontFile 1903 0 R +/FontFile 1957 0 R >> -% 1906 0 obj +% 1960 0 obj << /Type /FontDescriptor /FontName /OZJPZO+CMTI12 @@ -26582,9 +27572,9 @@ stream /StemV 63 /XHeight 431 /CharSet (/A/B/L/P/S/a/b/c/d/e/f/g/h/i/l/n/o/p/r/s/t/u/y) -/FontFile 1905 0 R +/FontFile 1959 0 R >> -% 1908 0 obj +% 1962 0 obj << /Type /FontDescriptor /FontName /TJSMYH+CMTT10 @@ -26597,9 +27587,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/o/one/p/parenleft/parenright/percent/period/plus/q/r/s/six/slash/t/three/two/u/underscore/v/w/x/y/z/zero) -/FontFile 1907 0 R +/FontFile 1961 0 R >> -% 1910 0 obj +% 1964 0 obj << /Type /FontDescriptor /FontName /HZGQIC+CMTT8 @@ -26612,9 +27602,9 @@ stream /StemV 76 /XHeight 431 /CharSet (/b/c/e/i/l/n/p/r/s/t) -/FontFile 1909 0 R +/FontFile 1963 0 R >> -% 1912 0 obj +% 1966 0 obj << /Type /FontDescriptor /FontName /KMUHVJ+CMTT9 @@ -26627,466 +27617,518 @@ stream /StemV 74 /XHeight 431 /CharSet (/T/a/b/c/colon/comma/d/e/l/n/o/p/parenleft/parenright/r/s/t/underscore/y) -/FontFile 1911 0 R +/FontFile 1965 0 R >> -% 560 0 obj +% 572 0 obj << /Type /Font /Subtype /Type1 /BaseFont /RAJOBS+CMBX10 -/FontDescriptor 1874 0 R +/FontDescriptor 1928 0 R /FirstChar 11 /LastChar 124 -/Widths 1870 0 R +/Widths 1924 0 R >> -% 558 0 obj +% 570 0 obj << /Type /Font /Subtype /Type1 /BaseFont /BWDLNI+CMBX12 -/FontDescriptor 1876 0 R +/FontDescriptor 1930 0 R /FirstChar 12 /LastChar 124 -/Widths 1872 0 R +/Widths 1926 0 R >> -% 1663 0 obj +% 1721 0 obj << /Type /Font /Subtype /Type1 /BaseFont /VUBHOM+CMBX9 -/FontDescriptor 1878 0 R +/FontDescriptor 1932 0 R /FirstChar 97 /LastChar 117 -/Widths 1853 0 R +/Widths 1908 0 R >> -% 1636 0 obj +% 1695 0 obj << /Type /Font /Subtype /Type1 /BaseFont /OUFNAH+CMEX10 -/FontDescriptor 1880 0 R +/FontDescriptor 1934 0 R /FirstChar 88 /LastChar 115 -/Widths 1854 0 R ->> -% 755 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /PUWBWT+CMMI10 -/FontDescriptor 1882 0 R -/FirstChar 11 -/LastChar 122 -/Widths 1867 0 R ->> -% 802 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /RVPZIX+CMMI5 -/FontDescriptor 1884 0 R -/FirstChar 105 -/LastChar 105 -/Widths 1859 0 R ->> -% 771 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /ZUYGVH+CMMI7 -/FontDescriptor 1886 0 R -/FirstChar 59 -/LastChar 110 -/Widths 1864 0 R ->> -% 1821 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /ZOAUSA+CMMI8 -/FontDescriptor 1888 0 R -/FirstChar 67 -/LastChar 71 -/Widths 1852 0 R ->> -% 561 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /SEWPRR+CMR10 -/FontDescriptor 1890 0 R -/FirstChar 11 -/LastChar 123 -/Widths 1869 0 R ->> -% 773 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /UJRPBG+CMR6 -/FontDescriptor 1892 0 R -/FirstChar 49 -/LastChar 53 -/Widths 1861 0 R +/Widths 1909 0 R >> % 770 0 obj << /Type /Font /Subtype /Type1 +/BaseFont /HKHZAC+CMMI10 +/FontDescriptor 1936 0 R +/FirstChar 11 +/LastChar 122 +/Widths 1921 0 R +>> +% 817 0 obj +<< +/Type /Font +/Subtype /Type1 +/BaseFont /RVPZIX+CMMI5 +/FontDescriptor 1938 0 R +/FirstChar 105 +/LastChar 105 +/Widths 1914 0 R +>> +% 786 0 obj +<< +/Type /Font +/Subtype /Type1 +/BaseFont /ZUYGVH+CMMI7 +/FontDescriptor 1940 0 R +/FirstChar 59 +/LastChar 110 +/Widths 1918 0 R +>> +% 1879 0 obj +<< +/Type /Font +/Subtype /Type1 +/BaseFont /ZOAUSA+CMMI8 +/FontDescriptor 1942 0 R +/FirstChar 67 +/LastChar 71 +/Widths 1907 0 R +>> +% 573 0 obj +<< +/Type /Font +/Subtype /Type1 +/BaseFont /SEWPRR+CMR10 +/FontDescriptor 1944 0 R +/FirstChar 11 +/LastChar 123 +/Widths 1923 0 R +>> +% 788 0 obj +<< +/Type /Font +/Subtype /Type1 +/BaseFont /UJRPBG+CMR6 +/FontDescriptor 1946 0 R +/FirstChar 49 +/LastChar 53 +/Widths 1916 0 R +>> +% 785 0 obj +<< +/Type /Font +/Subtype /Type1 /BaseFont /GIODUE+CMR7 -/FontDescriptor 1894 0 R +/FontDescriptor 1948 0 R /FirstChar 48 /LastChar 58 -/Widths 1865 0 R +/Widths 1919 0 R >> -% 775 0 obj +% 790 0 obj << /Type /Font /Subtype /Type1 /BaseFont /HFTEUS+CMR8 -/FontDescriptor 1896 0 R +/FontDescriptor 1950 0 R /FirstChar 40 /LastChar 121 -/Widths 1860 0 R +/Widths 1915 0 R >> -% 1211 0 obj +% 1270 0 obj << /Type /Font /Subtype /Type1 /BaseFont /KKURMF+CMR9 -/FontDescriptor 1898 0 R +/FontDescriptor 1952 0 R /FirstChar 39 /LastChar 122 -/Widths 1855 0 R +/Widths 1910 0 R >> -% 772 0 obj +% 787 0 obj << /Type /Font /Subtype /Type1 /BaseFont /IMOIOS+CMSY10 -/FontDescriptor 1900 0 R +/FontDescriptor 1954 0 R /FirstChar 0 /LastChar 120 -/Widths 1862 0 R +/Widths 1917 0 R >> -% 1125 0 obj +% 1140 0 obj << /Type /Font /Subtype /Type1 /BaseFont /XNLILI+CMSY7 -/FontDescriptor 1902 0 R +/FontDescriptor 1956 0 R /FirstChar 0 /LastChar 49 -/Widths 1856 0 R +/Widths 1911 0 R >> -% 735 0 obj +% 750 0 obj << /Type /Font /Subtype /Type1 /BaseFont /HBJLDT+CMTI10 -/FontDescriptor 1904 0 R +/FontDescriptor 1958 0 R /FirstChar 11 /LastChar 121 -/Widths 1868 0 R +/Widths 1922 0 R >> -% 559 0 obj +% 571 0 obj << /Type /Font /Subtype /Type1 /BaseFont /OZJPZO+CMTI12 -/FontDescriptor 1906 0 R +/FontDescriptor 1960 0 R /FirstChar 65 /LastChar 121 -/Widths 1871 0 R +/Widths 1925 0 R >> -% 769 0 obj +% 784 0 obj << /Type /Font /Subtype /Type1 /BaseFont /TJSMYH+CMTT10 -/FontDescriptor 1908 0 R +/FontDescriptor 1962 0 R /FirstChar 37 /LastChar 126 -/Widths 1866 0 R +/Widths 1920 0 R >> -% 830 0 obj +% 846 0 obj << /Type /Font /Subtype /Type1 /BaseFont /HZGQIC+CMTT8 -/FontDescriptor 1910 0 R +/FontDescriptor 1964 0 R /FirstChar 98 /LastChar 116 -/Widths 1858 0 R +/Widths 1913 0 R >> -% 967 0 obj +% 982 0 obj << /Type /Font /Subtype /Type1 /BaseFont /KMUHVJ+CMTT9 -/FontDescriptor 1912 0 R +/FontDescriptor 1966 0 R /FirstChar 40 /LastChar 121 -/Widths 1857 0 R +/Widths 1912 0 R >> -% 562 0 obj +% 574 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [553 0 R 564 0 R 615 0 R 668 0 R 714 0 R 719 0 R] +/Parent 1967 0 R +/Kids [565 0 R 576 0 R 627 0 R 680 0 R 729 0 R 734 0 R] >> -% 736 0 obj +% 751 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [733 0 R 753 0 R 766 0 R 782 0 R 794 0 R 799 0 R] +/Parent 1967 0 R +/Kids [748 0 R 768 0 R 781 0 R 797 0 R 809 0 R 814 0 R] >> -% 831 0 obj +% 847 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [813 0 R 835 0 R 846 0 R 854 0 R 865 0 R 880 0 R] +/Parent 1967 0 R +/Kids [829 0 R 850 0 R 861 0 R 869 0 R 880 0 R 895 0 R] >> -% 887 0 obj +% 902 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [884 0 R 889 0 R 897 0 R 905 0 R 909 0 R 915 0 R] +/Parent 1967 0 R +/Kids [899 0 R 904 0 R 912 0 R 920 0 R 925 0 R 930 0 R] >> -% 922 0 obj + +endstream +endobj +1968 0 obj +<< +/Type /ObjStm +/N 100 +/First 917 +/Length 10553 +>> +stream +937 0 968 113 1014 227 1068 347 1117 467 1173 587 1222 707 1282 827 1335 947 1373 1067 +1412 1187 1464 1307 1504 1427 1537 1547 1576 1667 1618 1787 1648 1907 1682 2027 1745 2147 1782 2267 +1820 2387 1857 2507 1901 2627 1967 2711 1969 2826 1970 2947 1971 3068 1972 3189 1973 3283 1974 3379 +562 3448 558 3508 554 3619 550 3693 546 3781 542 3869 538 3957 534 4045 530 4119 526 4244 +522 4318 518 4406 514 4494 510 4582 506 4670 502 4744 498 4869 494 4943 490 5031 486 5119 +482 5193 478 5318 474 5392 470 5480 466 5568 462 5656 458 5744 454 5832 450 5920 446 6008 +442 6096 438 6184 434 6272 430 6360 426 6448 422 6536 418 6624 414 6712 410 6786 406 6912 +401 6986 397 7074 393 7162 389 7250 385 7338 381 7426 377 7514 373 7602 369 7690 365 7778 +361 7866 357 7954 353 8042 349 8130 345 8218 341 8306 337 8394 333 8482 329 8570 325 8658 +321 8746 317 8834 313 8922 309 9010 305 9098 301 9186 297 9260 293 9386 289 9460 285 9548 +% 937 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [919 0 R 924 0 R 928 0 R 932 0 R 938 0 R 944 0 R] +/Parent 1967 0 R +/Kids [934 0 R 939 0 R 943 0 R 947 0 R 953 0 R 959 0 R] >> -% 953 0 obj +% 968 0 obj << /Type /Pages /Count 6 -/Parent 1913 0 R -/Kids [950 0 R 958 0 R 964 0 R 969 0 R 980 0 R 986 0 R] +/Parent 1967 0 R +/Kids [965 0 R 973 0 R 979 0 R 984 0 R 995 0 R 1001 0 R] >> -% 999 0 obj +% 1014 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [995 0 R 1002 0 R 1019 0 R 1024 0 R 1031 0 R 1036 0 R] +/Parent 1969 0 R +/Kids [1010 0 R 1018 0 R 1034 0 R 1039 0 R 1046 0 R 1051 0 R] >> -% 1053 0 obj +% 1068 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [1049 0 R 1058 0 R 1063 0 R 1076 0 R 1081 0 R 1088 0 R] +/Parent 1969 0 R +/Kids [1064 0 R 1073 0 R 1078 0 R 1091 0 R 1096 0 R 1103 0 R] >> -% 1102 0 obj +% 1117 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [1093 0 R 1107 0 R 1114 0 R 1122 0 R 1133 0 R 1148 0 R] +/Parent 1969 0 R +/Kids [1108 0 R 1122 0 R 1130 0 R 1137 0 R 1148 0 R 1163 0 R] >> -% 1158 0 obj +% 1173 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [1154 0 R 1166 0 R 1172 0 R 1177 0 R 1185 0 R 1195 0 R] +/Parent 1969 0 R +/Kids [1169 0 R 1181 0 R 1187 0 R 1198 0 R 1203 0 R 1214 0 R] >> -% 1212 0 obj +% 1222 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [1208 0 R 1217 0 R 1229 0 R 1238 0 R 1242 0 R 1257 0 R] +/Parent 1969 0 R +/Kids [1219 0 R 1229 0 R 1236 0 R 1244 0 R 1254 0 R 1267 0 R] >> -% 1268 0 obj +% 1282 0 obj << /Type /Pages /Count 6 -/Parent 1914 0 R -/Kids [1265 0 R 1272 0 R 1281 0 R 1285 0 R 1290 0 R 1296 0 R] +/Parent 1969 0 R +/Kids [1275 0 R 1288 0 R 1296 0 R 1300 0 R 1315 0 R 1323 0 R] >> -% 1309 0 obj +% 1335 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1301 0 R 1312 0 R 1317 0 R 1326 0 R 1333 0 R 1338 0 R] +/Parent 1970 0 R +/Kids [1329 0 R 1339 0 R 1343 0 R 1349 0 R 1355 0 R 1360 0 R] >> -% 1348 0 obj +% 1373 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1344 0 R 1350 0 R 1358 0 R 1366 0 R 1372 0 R 1381 0 R] +/Parent 1970 0 R +/Kids [1370 0 R 1376 0 R 1385 0 R 1392 0 R 1397 0 R 1403 0 R] >> -% 1396 0 obj +% 1412 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1393 0 R 1398 0 R 1410 0 R 1416 0 R 1423 0 R 1429 0 R] +/Parent 1970 0 R +/Kids [1407 0 R 1416 0 R 1424 0 R 1430 0 R 1439 0 R 1451 0 R] >> -% 1438 0 obj +% 1464 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1433 0 R 1443 0 R 1449 0 R 1454 0 R 1459 0 R 1463 0 R] +/Parent 1970 0 R +/Kids [1455 0 R 1469 0 R 1475 0 R 1482 0 R 1488 0 R 1492 0 R] >> -% 1473 0 obj +% 1504 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1470 0 R 1476 0 R 1482 0 R 1488 0 R 1494 0 R 1500 0 R] +/Parent 1970 0 R +/Kids [1501 0 R 1508 0 R 1512 0 R 1517 0 R 1521 0 R 1528 0 R] >> -% 1512 0 obj +% 1537 0 obj << /Type /Pages /Count 6 -/Parent 1915 0 R -/Kids [1507 0 R 1515 0 R 1519 0 R 1529 0 R 1533 0 R 1537 0 R] +/Parent 1970 0 R +/Kids [1533 0 R 1540 0 R 1546 0 R 1552 0 R 1558 0 R 1566 0 R] >> -% 1553 0 obj +% 1576 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1550 0 R 1555 0 R 1562 0 R 1568 0 R 1575 0 R 1579 0 R] +/Parent 1971 0 R +/Kids [1573 0 R 1578 0 R 1588 0 R 1592 0 R 1596 0 R 1609 0 R] >> -% 1586 0 obj +% 1618 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1583 0 R 1588 0 R 1592 0 R 1596 0 R 1600 0 R 1606 0 R] +/Parent 1971 0 R +/Kids [1613 0 R 1620 0 R 1626 0 R 1633 0 R 1637 0 R 1641 0 R] >> -% 1617 0 obj +% 1648 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1612 0 R 1619 0 R 1625 0 R 1631 0 R 1639 0 R 1644 0 R] +/Parent 1971 0 R +/Kids [1645 0 R 1650 0 R 1654 0 R 1658 0 R 1664 0 R 1671 0 R] >> -% 1654 0 obj +% 1682 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1651 0 R 1658 0 R 1689 0 R 1695 0 R 1701 0 R 1707 0 R] +/Parent 1971 0 R +/Kids [1677 0 R 1684 0 R 1690 0 R 1698 0 R 1703 0 R 1710 0 R] >> -% 1716 0 obj +% 1745 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1713 0 R 1719 0 R 1726 0 R 1733 0 R 1739 0 R 1746 0 R] +/Parent 1971 0 R +/Kids [1716 0 R 1747 0 R 1753 0 R 1759 0 R 1765 0 R 1771 0 R] >> -% 1757 0 obj +% 1782 0 obj << /Type /Pages /Count 6 -/Parent 1916 0 R -/Kids [1752 0 R 1759 0 R 1765 0 R 1775 0 R 1779 0 R 1787 0 R] +/Parent 1971 0 R +/Kids [1776 0 R 1785 0 R 1792 0 R 1798 0 R 1805 0 R 1811 0 R] >> -% 1795 0 obj +% 1820 0 obj << /Type /Pages /Count 6 -/Parent 1917 0 R -/Kids [1792 0 R 1797 0 R 1803 0 R 1807 0 R 1814 0 R 1826 0 R] +/Parent 1972 0 R +/Kids [1817 0 R 1824 0 R 1833 0 R 1837 0 R 1845 0 R 1850 0 R] >> -% 1834 0 obj +% 1857 0 obj << /Type /Pages -/Count 4 -/Parent 1917 0 R -/Kids [1831 0 R 1836 0 R 1840 0 R 1848 0 R] +/Count 6 +/Parent 1972 0 R +/Kids [1854 0 R 1861 0 R 1865 0 R 1872 0 R 1884 0 R 1890 0 R] >> -% 1913 0 obj +% 1901 0 obj +<< +/Type /Pages +/Count 2 +/Parent 1972 0 R +/Kids [1894 0 R 1903 0 R] +>> +% 1967 0 obj << /Type /Pages /Count 36 -/Parent 1918 0 R -/Kids [562 0 R 736 0 R 831 0 R 887 0 R 922 0 R 953 0 R] +/Parent 1973 0 R +/Kids [574 0 R 751 0 R 847 0 R 902 0 R 937 0 R 968 0 R] >> -% 1914 0 obj +% 1969 0 obj << /Type /Pages /Count 36 -/Parent 1918 0 R -/Kids [999 0 R 1053 0 R 1102 0 R 1158 0 R 1212 0 R 1268 0 R] +/Parent 1973 0 R +/Kids [1014 0 R 1068 0 R 1117 0 R 1173 0 R 1222 0 R 1282 0 R] >> -% 1915 0 obj +% 1970 0 obj << /Type /Pages /Count 36 -/Parent 1918 0 R -/Kids [1309 0 R 1348 0 R 1396 0 R 1438 0 R 1473 0 R 1512 0 R] +/Parent 1973 0 R +/Kids [1335 0 R 1373 0 R 1412 0 R 1464 0 R 1504 0 R 1537 0 R] >> -% 1916 0 obj +% 1971 0 obj << /Type /Pages /Count 36 -/Parent 1918 0 R -/Kids [1553 0 R 1586 0 R 1617 0 R 1654 0 R 1716 0 R 1757 0 R] +/Parent 1973 0 R +/Kids [1576 0 R 1618 0 R 1648 0 R 1682 0 R 1745 0 R 1782 0 R] >> -% 1917 0 obj +% 1972 0 obj << /Type /Pages -/Count 10 -/Parent 1918 0 R -/Kids [1795 0 R 1834 0 R] +/Count 14 +/Parent 1973 0 R +/Kids [1820 0 R 1857 0 R 1901 0 R] >> -% 1918 0 obj +% 1973 0 obj << /Type /Pages -/Count 154 -/Kids [1913 0 R 1914 0 R 1915 0 R 1916 0 R 1917 0 R] +/Count 158 +/Kids [1967 0 R 1969 0 R 1970 0 R 1971 0 R 1972 0 R] >> -% 1919 0 obj +% 1974 0 obj << /Type /Outlines /First 4 0 R /Last 4 0 R /Count 1 >> +% 562 0 obj +<< +/Title 563 0 R +/A 560 0 R +/Parent 558 0 R +>> +% 558 0 obj +<< +/Title 559 0 R +/A 556 0 R +/Parent 4 0 R +/Prev 530 0 R +/First 562 0 R +/Last 562 0 R +/Count -1 +>> +% 554 0 obj +<< +/Title 555 0 R +/A 552 0 R +/Parent 530 0 R +/Prev 550 0 R +>> % 550 0 obj << /Title 551 0 R /A 548 0 R -/Parent 546 0 R +/Parent 530 0 R +/Prev 546 0 R +/Next 554 0 R >> % 546 0 obj << /Title 547 0 R /A 544 0 R -/Parent 4 0 R -/Prev 518 0 R -/First 550 0 R -/Last 550 0 R -/Count -1 +/Parent 530 0 R +/Prev 542 0 R +/Next 550 0 R >> % 542 0 obj << /Title 543 0 R /A 540 0 R -/Parent 518 0 R +/Parent 530 0 R /Prev 538 0 R +/Next 546 0 R >> % 538 0 obj << /Title 539 0 R /A 536 0 R -/Parent 518 0 R +/Parent 530 0 R /Prev 534 0 R /Next 542 0 R >> @@ -27094,56 +28136,56 @@ stream << /Title 535 0 R /A 532 0 R -/Parent 518 0 R -/Prev 530 0 R +/Parent 530 0 R /Next 538 0 R >> % 530 0 obj << /Title 531 0 R /A 528 0 R -/Parent 518 0 R -/Prev 526 0 R -/Next 534 0 R +/Parent 4 0 R +/Prev 502 0 R +/Next 558 0 R +/First 534 0 R +/Last 554 0 R +/Count -6 >> % 526 0 obj << /Title 527 0 R /A 524 0 R -/Parent 518 0 R +/Parent 502 0 R /Prev 522 0 R -/Next 530 0 R >> % 522 0 obj << /Title 523 0 R /A 520 0 R -/Parent 518 0 R +/Parent 502 0 R +/Prev 518 0 R /Next 526 0 R >> % 518 0 obj << /Title 519 0 R /A 516 0 R -/Parent 4 0 R -/Prev 490 0 R -/Next 546 0 R -/First 522 0 R -/Last 542 0 R -/Count -6 +/Parent 502 0 R +/Prev 514 0 R +/Next 522 0 R >> % 514 0 obj << /Title 515 0 R /A 512 0 R -/Parent 490 0 R +/Parent 502 0 R /Prev 510 0 R +/Next 518 0 R >> % 510 0 obj << /Title 511 0 R /A 508 0 R -/Parent 490 0 R +/Parent 502 0 R /Prev 506 0 R /Next 514 0 R >> @@ -27151,118 +28193,97 @@ stream << /Title 507 0 R /A 504 0 R -/Parent 490 0 R -/Prev 502 0 R +/Parent 502 0 R /Next 510 0 R >> % 502 0 obj << /Title 503 0 R /A 500 0 R -/Parent 490 0 R -/Prev 498 0 R -/Next 506 0 R +/Parent 4 0 R +/Prev 482 0 R +/Next 530 0 R +/First 506 0 R +/Last 526 0 R +/Count -6 >> % 498 0 obj << /Title 499 0 R /A 496 0 R -/Parent 490 0 R +/Parent 482 0 R /Prev 494 0 R -/Next 502 0 R >> % 494 0 obj << /Title 495 0 R /A 492 0 R -/Parent 490 0 R +/Parent 482 0 R +/Prev 490 0 R /Next 498 0 R >> % 490 0 obj << /Title 491 0 R /A 488 0 R -/Parent 4 0 R -/Prev 470 0 R -/Next 518 0 R -/First 494 0 R -/Last 514 0 R -/Count -6 +/Parent 482 0 R +/Prev 486 0 R +/Next 494 0 R >> % 486 0 obj << /Title 487 0 R /A 484 0 R -/Parent 470 0 R -/Prev 482 0 R +/Parent 482 0 R +/Next 490 0 R >> - -endstream -endobj -1920 0 obj -<< -/Type /ObjStm -/N 100 -/First 881 -/Length 9701 ->> -stream -482 0 478 88 474 176 470 250 466 375 462 449 458 537 454 625 450 713 446 801 -442 889 438 977 434 1065 430 1153 426 1241 422 1329 418 1417 414 1505 410 1593 406 1681 -401 1769 397 1843 393 1969 389 2043 385 2131 381 2219 377 2307 373 2395 369 2483 365 2571 -361 2659 357 2747 353 2835 349 2923 345 3011 341 3099 337 3187 333 3275 329 3363 325 3451 -321 3539 317 3627 313 3715 309 3803 305 3891 301 3979 297 4067 293 4155 289 4243 285 4317 -281 4443 277 4517 273 4605 269 4693 265 4767 261 4892 257 4966 253 5054 249 5142 245 5230 -241 5318 237 5406 233 5494 229 5582 225 5670 221 5758 217 5846 213 5934 209 6008 205 6133 -200 6206 196 6293 192 6367 188 6455 184 6543 180 6631 176 6705 172 6804 168 6929 164 7001 -160 7074 156 7161 152 7248 148 7335 144 7422 140 7509 136 7596 132 7683 128 7770 124 7857 -120 7944 116 8031 112 8118 108 8205 104 8292 100 8379 96 8451 92 8561 88 8682 84 8751 % 482 0 obj << /Title 483 0 R /A 480 0 R -/Parent 470 0 R -/Prev 478 0 R -/Next 486 0 R +/Parent 4 0 R +/Prev 410 0 R +/Next 502 0 R +/First 486 0 R +/Last 498 0 R +/Count -4 >> % 478 0 obj << /Title 479 0 R /A 476 0 R -/Parent 470 0 R +/Parent 410 0 R /Prev 474 0 R -/Next 482 0 R >> % 474 0 obj << /Title 475 0 R /A 472 0 R -/Parent 470 0 R +/Parent 410 0 R +/Prev 470 0 R /Next 478 0 R >> % 470 0 obj << /Title 471 0 R /A 468 0 R -/Parent 4 0 R -/Prev 397 0 R -/Next 490 0 R -/First 474 0 R -/Last 486 0 R -/Count -4 +/Parent 410 0 R +/Prev 466 0 R +/Next 474 0 R >> % 466 0 obj << /Title 467 0 R /A 464 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 462 0 R +/Next 470 0 R >> % 462 0 obj << /Title 463 0 R /A 460 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 458 0 R /Next 466 0 R >> @@ -27270,7 +28291,7 @@ stream << /Title 459 0 R /A 456 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 454 0 R /Next 462 0 R >> @@ -27278,7 +28299,7 @@ stream << /Title 455 0 R /A 452 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 450 0 R /Next 458 0 R >> @@ -27286,7 +28307,7 @@ stream << /Title 451 0 R /A 448 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 446 0 R /Next 454 0 R >> @@ -27294,7 +28315,7 @@ stream << /Title 447 0 R /A 444 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 442 0 R /Next 450 0 R >> @@ -27302,7 +28323,7 @@ stream << /Title 443 0 R /A 440 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 438 0 R /Next 446 0 R >> @@ -27310,7 +28331,7 @@ stream << /Title 439 0 R /A 436 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 434 0 R /Next 442 0 R >> @@ -27318,7 +28339,7 @@ stream << /Title 435 0 R /A 432 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 430 0 R /Next 438 0 R >> @@ -27326,7 +28347,7 @@ stream << /Title 431 0 R /A 428 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 426 0 R /Next 434 0 R >> @@ -27334,7 +28355,7 @@ stream << /Title 427 0 R /A 424 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 422 0 R /Next 430 0 R >> @@ -27342,7 +28363,7 @@ stream << /Title 423 0 R /A 420 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 418 0 R /Next 426 0 R >> @@ -27350,7 +28371,7 @@ stream << /Title 419 0 R /A 416 0 R -/Parent 397 0 R +/Parent 410 0 R /Prev 414 0 R /Next 422 0 R >> @@ -27358,56 +28379,56 @@ stream << /Title 415 0 R /A 412 0 R -/Parent 397 0 R -/Prev 410 0 R +/Parent 410 0 R /Next 418 0 R >> % 410 0 obj << /Title 411 0 R /A 408 0 R -/Parent 397 0 R -/Prev 406 0 R -/Next 414 0 R +/Parent 4 0 R +/Prev 297 0 R +/Next 482 0 R +/First 414 0 R +/Last 478 0 R +/Count -17 >> % 406 0 obj << /Title 407 0 R /A 403 0 R -/Parent 397 0 R +/Parent 297 0 R /Prev 401 0 R -/Next 410 0 R >> % 401 0 obj << /Title 402 0 R /A 399 0 R -/Parent 397 0 R +/Parent 297 0 R +/Prev 397 0 R /Next 406 0 R >> % 397 0 obj << /Title 398 0 R /A 395 0 R -/Parent 4 0 R -/Prev 285 0 R -/Next 470 0 R -/First 401 0 R -/Last 466 0 R -/Count -17 +/Parent 297 0 R +/Prev 393 0 R +/Next 401 0 R >> % 393 0 obj << /Title 394 0 R /A 391 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 389 0 R +/Next 397 0 R >> % 389 0 obj << /Title 390 0 R /A 387 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 385 0 R /Next 393 0 R >> @@ -27415,7 +28436,7 @@ stream << /Title 386 0 R /A 383 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 381 0 R /Next 389 0 R >> @@ -27423,7 +28444,7 @@ stream << /Title 382 0 R /A 379 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 377 0 R /Next 385 0 R >> @@ -27431,7 +28452,7 @@ stream << /Title 378 0 R /A 375 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 373 0 R /Next 381 0 R >> @@ -27439,7 +28460,7 @@ stream << /Title 374 0 R /A 371 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 369 0 R /Next 377 0 R >> @@ -27447,7 +28468,7 @@ stream << /Title 370 0 R /A 367 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 365 0 R /Next 373 0 R >> @@ -27455,7 +28476,7 @@ stream << /Title 366 0 R /A 363 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 361 0 R /Next 369 0 R >> @@ -27463,7 +28484,7 @@ stream << /Title 362 0 R /A 359 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 357 0 R /Next 365 0 R >> @@ -27471,7 +28492,7 @@ stream << /Title 358 0 R /A 355 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 353 0 R /Next 361 0 R >> @@ -27479,7 +28500,7 @@ stream << /Title 354 0 R /A 351 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 349 0 R /Next 357 0 R >> @@ -27487,7 +28508,7 @@ stream << /Title 350 0 R /A 347 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 345 0 R /Next 353 0 R >> @@ -27495,7 +28516,7 @@ stream << /Title 346 0 R /A 343 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 341 0 R /Next 349 0 R >> @@ -27503,7 +28524,7 @@ stream << /Title 342 0 R /A 339 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 337 0 R /Next 345 0 R >> @@ -27511,7 +28532,7 @@ stream << /Title 338 0 R /A 335 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 333 0 R /Next 341 0 R >> @@ -27519,7 +28540,7 @@ stream << /Title 334 0 R /A 331 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 329 0 R /Next 337 0 R >> @@ -27527,7 +28548,7 @@ stream << /Title 330 0 R /A 327 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 325 0 R /Next 333 0 R >> @@ -27535,7 +28556,7 @@ stream << /Title 326 0 R /A 323 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 321 0 R /Next 329 0 R >> @@ -27543,7 +28564,7 @@ stream << /Title 322 0 R /A 319 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 317 0 R /Next 325 0 R >> @@ -27551,7 +28572,7 @@ stream << /Title 318 0 R /A 315 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 313 0 R /Next 321 0 R >> @@ -27559,7 +28580,7 @@ stream << /Title 314 0 R /A 311 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 309 0 R /Next 317 0 R >> @@ -27567,7 +28588,7 @@ stream << /Title 310 0 R /A 307 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 305 0 R /Next 313 0 R >> @@ -27575,7 +28596,7 @@ stream << /Title 306 0 R /A 303 0 R -/Parent 285 0 R +/Parent 297 0 R /Prev 301 0 R /Next 309 0 R >> @@ -27583,84 +28604,104 @@ stream << /Title 302 0 R /A 299 0 R -/Parent 285 0 R -/Prev 297 0 R +/Parent 297 0 R /Next 305 0 R >> % 297 0 obj << /Title 298 0 R /A 295 0 R -/Parent 285 0 R -/Prev 293 0 R -/Next 301 0 R +/Parent 4 0 R +/Prev 277 0 R +/Next 410 0 R +/First 301 0 R +/Last 406 0 R +/Count -27 >> % 293 0 obj << /Title 294 0 R /A 291 0 R -/Parent 285 0 R +/Parent 277 0 R /Prev 289 0 R -/Next 297 0 R >> % 289 0 obj << /Title 290 0 R /A 287 0 R -/Parent 285 0 R +/Parent 277 0 R +/Prev 285 0 R /Next 293 0 R >> % 285 0 obj << /Title 286 0 R /A 283 0 R -/Parent 4 0 R -/Prev 265 0 R -/Next 397 0 R -/First 289 0 R -/Last 393 0 R -/Count -27 +/Parent 277 0 R +/Prev 281 0 R +/Next 289 0 R >> + +endstream +endobj +1975 0 obj +<< +/Type /ObjStm +/N 100 +/First 896 +/Length 12446 +>> +stream +281 0 277 74 273 199 269 273 265 361 261 449 257 537 253 625 249 713 245 801 +241 889 237 977 233 1065 229 1153 225 1241 221 1329 217 1417 213 1505 209 1579 205 1704 +200 1777 196 1864 192 1938 188 2026 184 2114 180 2202 176 2276 172 2375 168 2500 164 2572 +160 2645 156 2732 152 2819 148 2906 144 2993 140 3080 136 3167 132 3254 128 3341 124 3428 +120 3515 116 3602 112 3689 108 3776 104 3863 100 3950 96 4022 92 4132 88 4253 84 4322 +80 4391 76 4473 72 4555 68 4637 64 4719 60 4801 56 4883 52 4965 48 5047 44 5116 +40 5223 36 5329 32 5449 28 5518 24 5574 20 5693 16 5775 12 5844 8 5961 4 6026 +1976 6119 1977 6315 1978 6488 1979 6668 1980 6845 1981 7022 1982 7202 1983 7375 1984 7540 1985 7706 +1986 7871 1987 8037 1988 8203 1989 8375 1990 8545 1991 8717 1992 8886 1993 9055 1994 9227 1995 9397 +1996 9569 1997 9739 1998 9911 1999 10094 2000 10304 2001 10518 2002 10722 2003 10907 2004 11095 2005 11323 % 281 0 obj << /Title 282 0 R /A 279 0 R -/Parent 265 0 R -/Prev 277 0 R +/Parent 277 0 R +/Next 285 0 R >> % 277 0 obj << /Title 278 0 R /A 275 0 R -/Parent 265 0 R -/Prev 273 0 R -/Next 281 0 R +/Parent 4 0 R +/Prev 209 0 R +/Next 297 0 R +/First 281 0 R +/Last 293 0 R +/Count -4 >> % 273 0 obj << /Title 274 0 R /A 271 0 R -/Parent 265 0 R +/Parent 209 0 R /Prev 269 0 R -/Next 277 0 R >> % 269 0 obj << /Title 270 0 R /A 267 0 R -/Parent 265 0 R +/Parent 209 0 R +/Prev 265 0 R /Next 273 0 R >> % 265 0 obj << /Title 266 0 R /A 263 0 R -/Parent 4 0 R -/Prev 209 0 R -/Next 285 0 R -/First 269 0 R -/Last 281 0 R -/Count -4 +/Parent 209 0 R +/Prev 261 0 R +/Next 269 0 R >> % 261 0 obj << @@ -27668,6 +28709,7 @@ stream /A 259 0 R /Parent 209 0 R /Prev 257 0 R +/Next 265 0 R >> % 257 0 obj << @@ -27770,10 +28812,10 @@ stream /A 207 0 R /Parent 4 0 R /Prev 36 0 R -/Next 265 0 R +/Next 277 0 R /First 213 0 R -/Last 261 0 R -/Count -13 +/Last 273 0 R +/Count -16 >> % 205 0 obj << @@ -28024,27 +29066,6 @@ stream /Parent 44 0 R /Prev 80 0 R >> - -endstream -endobj -1921 0 obj -<< -/Type /ObjStm -/N 100 -/First 980 -/Length 17749 ->> -stream -80 0 76 82 72 164 68 246 64 328 60 410 56 492 52 574 48 656 44 725 -40 832 36 938 32 1058 28 1127 24 1183 20 1302 16 1384 12 1453 8 1570 4 1635 -1922 1728 1923 1924 1924 2097 1925 2277 1926 2454 1927 2631 1928 2811 1929 2984 1930 3149 1931 3315 -1932 3480 1933 3646 1934 3812 1935 3984 1936 4154 1937 4326 1938 4495 1939 4664 1940 4836 1941 5006 -1942 5178 1943 5348 1944 5520 1945 5703 1946 5913 1947 6127 1948 6331 1949 6516 1950 6704 1951 6932 -1952 7159 1953 7379 1954 7607 1955 7843 1956 8075 1957 8305 1958 8533 1959 8761 1960 8995 1961 9229 -1962 9463 1963 9691 1964 9864 1965 10044 1966 10221 1967 10398 1968 10578 1969 10756 1970 10936 1971 11114 -1972 11294 1973 11463 1974 11627 1975 11791 1976 11961 1977 12131 1978 12303 1979 12473 1980 12645 1981 12815 -1982 12987 1983 13157 1984 13329 1985 13498 1986 13667 1987 13839 1988 14008 1989 14193 1990 14399 1991 14603 -1992 14803 1993 14999 1994 15197 1995 15393 1996 15591 1997 15787 1998 15985 1999 16180 2000 16375 2001 16573 % 80 0 obj << /Title 81 0 R @@ -28208,673 +29229,679 @@ stream << /Title 5 0 R /A 1 0 R -/Parent 1919 0 R +/Parent 1974 0 R /First 8 0 R -/Last 546 0 R +/Last 558 0 R /Count -11 >> -% 1922 0 obj -<< -/Names [(Doc-Start) 557 0 R (Hfootnote.1) 774 0 R (Hfootnote.2) 776 0 R (Hfootnote.3) 829 0 R (Hfootnote.4) 1768 0 R (Hfootnote.5) 1820 0 R] -/Limits [(Doc-Start) (Hfootnote.5)] ->> -% 1923 0 obj -<< -/Names [(Item.1) 803 0 R (Item.10) 817 0 R (Item.100) 1542 0 R (Item.101) 1543 0 R (Item.102) 1544 0 R (Item.103) 1545 0 R] -/Limits [(Item.1) (Item.103)] ->> -% 1924 0 obj -<< -/Names [(Item.104) 1546 0 R (Item.105) 1547 0 R (Item.106) 1548 0 R (Item.107) 1558 0 R (Item.108) 1559 0 R (Item.109) 1565 0 R] -/Limits [(Item.104) (Item.109)] ->> -% 1925 0 obj -<< -/Names [(Item.11) 818 0 R (Item.110) 1566 0 R (Item.111) 1571 0 R (Item.112) 1572 0 R (Item.113) 1573 0 R (Item.114) 1603 0 R] -/Limits [(Item.11) (Item.114)] ->> -% 1926 0 obj -<< -/Names [(Item.115) 1604 0 R (Item.116) 1609 0 R (Item.117) 1610 0 R (Item.118) 1615 0 R (Item.119) 1616 0 R (Item.12) 819 0 R] -/Limits [(Item.115) (Item.12)] ->> -% 1927 0 obj -<< -/Names [(Item.120) 1622 0 R (Item.121) 1623 0 R (Item.122) 1628 0 R (Item.123) 1629 0 R (Item.124) 1634 0 R (Item.125) 1635 0 R] -/Limits [(Item.120) (Item.125)] ->> -% 1928 0 obj -<< -/Names [(Item.126) 1637 0 R (Item.127) 1642 0 R (Item.128) 1647 0 R (Item.13) 820 0 R (Item.14) 821 0 R (Item.15) 822 0 R] -/Limits [(Item.126) (Item.15)] ->> -% 1929 0 obj -<< -/Names [(Item.16) 823 0 R (Item.17) 824 0 R (Item.18) 825 0 R (Item.19) 826 0 R (Item.2) 804 0 R (Item.20) 827 0 R] -/Limits [(Item.16) (Item.20)] ->> -% 1930 0 obj -<< -/Names [(Item.21) 828 0 R (Item.22) 838 0 R (Item.23) 839 0 R (Item.24) 840 0 R (Item.25) 841 0 R (Item.26) 842 0 R] -/Limits [(Item.21) (Item.26)] ->> -% 1931 0 obj -<< -/Names [(Item.27) 843 0 R (Item.28) 857 0 R (Item.29) 858 0 R (Item.3) 805 0 R (Item.30) 859 0 R (Item.31) 860 0 R] -/Limits [(Item.27) (Item.31)] ->> -% 1932 0 obj -<< -/Names [(Item.32) 861 0 R (Item.33) 868 0 R (Item.34) 869 0 R (Item.35) 870 0 R (Item.36) 871 0 R (Item.37) 872 0 R] -/Limits [(Item.32) (Item.37)] ->> -% 1933 0 obj -<< -/Names [(Item.38) 873 0 R (Item.39) 874 0 R (Item.4) 806 0 R (Item.40) 875 0 R (Item.41) 912 0 R (Item.42) 1005 0 R] -/Limits [(Item.38) (Item.42)] ->> -% 1934 0 obj -<< -/Names [(Item.43) 1039 0 R (Item.44) 1066 0 R (Item.45) 1096 0 R (Item.46) 1232 0 R (Item.47) 1233 0 R (Item.48) 1234 0 R] -/Limits [(Item.43) (Item.48)] ->> -% 1935 0 obj -<< -/Names [(Item.49) 1293 0 R (Item.5) 807 0 R (Item.50) 1299 0 R (Item.51) 1304 0 R (Item.52) 1305 0 R (Item.53) 1306 0 R] -/Limits [(Item.49) (Item.53)] ->> -% 1936 0 obj -<< -/Names [(Item.54) 1307 0 R (Item.55) 1308 0 R (Item.56) 1320 0 R (Item.57) 1321 0 R (Item.58) 1322 0 R (Item.59) 1329 0 R] -/Limits [(Item.54) (Item.59)] ->> -% 1937 0 obj -<< -/Names [(Item.6) 808 0 R (Item.60) 1353 0 R (Item.61) 1354 0 R (Item.62) 1361 0 R (Item.63) 1362 0 R (Item.64) 1363 0 R] -/Limits [(Item.6) (Item.64)] ->> -% 1938 0 obj -<< -/Names [(Item.65) 1375 0 R (Item.66) 1376 0 R (Item.67) 1377 0 R (Item.68) 1378 0 R (Item.69) 1379 0 R (Item.7) 809 0 R] -/Limits [(Item.65) (Item.7)] ->> -% 1939 0 obj -<< -/Names [(Item.70) 1384 0 R (Item.71) 1385 0 R (Item.72) 1386 0 R (Item.73) 1387 0 R (Item.74) 1388 0 R (Item.75) 1389 0 R] -/Limits [(Item.70) (Item.75)] ->> -% 1940 0 obj -<< -/Names [(Item.76) 1401 0 R (Item.77) 1402 0 R (Item.78) 1403 0 R (Item.79) 1404 0 R (Item.8) 810 0 R (Item.80) 1405 0 R] -/Limits [(Item.76) (Item.80)] ->> -% 1941 0 obj -<< -/Names [(Item.81) 1406 0 R (Item.82) 1419 0 R (Item.83) 1436 0 R (Item.84) 1437 0 R (Item.85) 1466 0 R (Item.86) 1467 0 R] -/Limits [(Item.81) (Item.86)] ->> -% 1942 0 obj -<< -/Names [(Item.87) 1479 0 R (Item.88) 1485 0 R (Item.89) 1491 0 R (Item.9) 816 0 R (Item.90) 1497 0 R (Item.91) 1503 0 R] -/Limits [(Item.87) (Item.91)] ->> -% 1943 0 obj -<< -/Names [(Item.92) 1504 0 R (Item.93) 1510 0 R (Item.94) 1511 0 R (Item.95) 1522 0 R (Item.96) 1523 0 R (Item.97) 1524 0 R] -/Limits [(Item.92) (Item.97)] ->> -% 1944 0 obj -<< -/Names [(Item.98) 1540 0 R (Item.99) 1541 0 R (cite.2007c) 789 0 R (cite.2007d) 790 0 R (cite.BLACS) 762 0 R (cite.BLAS1) 744 0 R] -/Limits [(Item.98) (cite.BLAS1)] ->> -% 1945 0 obj -<< -/Names [(cite.BLAS2) 745 0 R (cite.BLAS3) 746 0 R (cite.DesPat:11) 739 0 R (cite.DesignPatterns) 902 0 R (cite.KIVA3PSBLAS) 1846 0 R (cite.METIS) 777 0 R] -/Limits [(cite.BLAS2) (cite.METIS)] ->> -% 1946 0 obj -<< -/Names [(cite.MPI1) 1851 0 R (cite.PARA04FOREST) 1844 0 R (cite.PSBLAS) 1845 0 R (cite.RouXiaXu:11) 740 0 R (cite.Sparse03) 738 0 R (cite.machiels) 741 0 R] -/Limits [(cite.MPI1) (cite.machiels)] ->> -% 1947 0 obj -<< -/Names [(cite.metcalf) 737 0 R (cite.sblas02) 743 0 R (cite.sblas97) 742 0 R (descdata) 849 0 R (equation.4.1) 1136 0 R (equation.4.2) 1137 0 R] -/Limits [(cite.metcalf) (equation.4.2)] ->> -% 1948 0 obj -<< -/Names [(equation.4.3) 1138 0 R (figure.1) 756 0 R (figure.10) 1656 0 R (figure.2) 785 0 R (figure.3) 876 0 R (figure.4) 903 0 R] -/Limits [(equation.4.3) (figure.4)] ->> -% 1949 0 obj -<< -/Names [(figure.5) 942 0 R (figure.6) 962 0 R (figure.7) 1198 0 R (figure.8) 1235 0 R (figure.9) 1655 0 R (lstlisting.-1) 1006 0 R] -/Limits [(figure.5) (lstlisting.-1)] ->> -% 1950 0 obj -<< -/Names [(lstlisting.-10) 1692 0 R (lstlisting.-11) 1698 0 R (lstlisting.-12) 1704 0 R (lstlisting.-13) 1710 0 R (lstlisting.-14) 1722 0 R (lstlisting.-15) 1729 0 R] -/Limits [(lstlisting.-10) (lstlisting.-15)] ->> -% 1951 0 obj -<< -/Names [(lstlisting.-16) 1736 0 R (lstlisting.-17) 1742 0 R (lstlisting.-18) 1749 0 R (lstlisting.-19) 1755 0 R (lstlisting.-2) 1040 0 R (lstlisting.-20) 1817 0 R] -/Limits [(lstlisting.-16) (lstlisting.-20)] ->> -% 1952 0 obj -<< -/Names [(lstlisting.-3) 1067 0 R (lstlisting.-4) 1097 0 R (lstlisting.-5) 1189 0 R (lstlisting.-6) 1221 0 R (lstlisting.-7) 1261 0 R (lstlisting.-8) 1276 0 R] -/Limits [(lstlisting.-3) (lstlisting.-8)] ->> -% 1953 0 obj -<< -/Names [(lstlisting.-9) 1661 0 R (lstnumber.-1.1) 1007 0 R (lstnumber.-1.2) 1008 0 R (lstnumber.-1.3) 1009 0 R (lstnumber.-1.4) 1010 0 R (lstnumber.-10.1) 1693 0 R] -/Limits [(lstlisting.-9) (lstnumber.-10.1)] ->> -% 1954 0 obj -<< -/Names [(lstnumber.-11.1) 1699 0 R (lstnumber.-12.1) 1705 0 R (lstnumber.-13.1) 1711 0 R (lstnumber.-14.1) 1723 0 R (lstnumber.-15.1) 1730 0 R (lstnumber.-16.1) 1737 0 R] -/Limits [(lstnumber.-11.1) (lstnumber.-16.1)] ->> -% 1955 0 obj -<< -/Names [(lstnumber.-17.1) 1743 0 R (lstnumber.-18.1) 1750 0 R (lstnumber.-19.1) 1756 0 R (lstnumber.-2.1) 1041 0 R (lstnumber.-2.2) 1042 0 R (lstnumber.-2.3) 1043 0 R] -/Limits [(lstnumber.-17.1) (lstnumber.-2.3)] ->> -% 1956 0 obj -<< -/Names [(lstnumber.-2.4) 1044 0 R (lstnumber.-20.1) 1818 0 R (lstnumber.-20.2) 1819 0 R (lstnumber.-3.1) 1068 0 R (lstnumber.-3.2) 1069 0 R (lstnumber.-3.3) 1070 0 R] -/Limits [(lstnumber.-2.4) (lstnumber.-3.3)] ->> -% 1957 0 obj -<< -/Names [(lstnumber.-3.4) 1071 0 R (lstnumber.-4.1) 1098 0 R (lstnumber.-4.2) 1099 0 R (lstnumber.-4.3) 1100 0 R (lstnumber.-4.4) 1101 0 R (lstnumber.-5.1) 1190 0 R] -/Limits [(lstnumber.-3.4) (lstnumber.-5.1)] ->> -% 1958 0 obj -<< -/Names [(lstnumber.-5.2) 1191 0 R (lstnumber.-6.1) 1222 0 R (lstnumber.-6.2) 1223 0 R (lstnumber.-7.1) 1262 0 R (lstnumber.-7.2) 1263 0 R (lstnumber.-8.1) 1277 0 R] -/Limits [(lstnumber.-5.2) (lstnumber.-8.1)] ->> -% 1959 0 obj -<< -/Names [(lstnumber.-9.1) 1662 0 R (lstnumber.-9.10) 1672 0 R (lstnumber.-9.11) 1673 0 R (lstnumber.-9.12) 1674 0 R (lstnumber.-9.13) 1675 0 R (lstnumber.-9.14) 1676 0 R] -/Limits [(lstnumber.-9.1) (lstnumber.-9.14)] ->> -% 1960 0 obj -<< -/Names [(lstnumber.-9.15) 1677 0 R (lstnumber.-9.16) 1678 0 R (lstnumber.-9.17) 1679 0 R (lstnumber.-9.18) 1680 0 R (lstnumber.-9.19) 1681 0 R (lstnumber.-9.2) 1664 0 R] -/Limits [(lstnumber.-9.15) (lstnumber.-9.2)] ->> -% 1961 0 obj -<< -/Names [(lstnumber.-9.20) 1682 0 R (lstnumber.-9.21) 1683 0 R (lstnumber.-9.22) 1684 0 R (lstnumber.-9.23) 1685 0 R (lstnumber.-9.24) 1686 0 R (lstnumber.-9.3) 1665 0 R] -/Limits [(lstnumber.-9.20) (lstnumber.-9.3)] ->> -% 1962 0 obj -<< -/Names [(lstnumber.-9.4) 1666 0 R (lstnumber.-9.5) 1667 0 R (lstnumber.-9.6) 1668 0 R (lstnumber.-9.7) 1669 0 R (lstnumber.-9.8) 1670 0 R (lstnumber.-9.9) 1671 0 R] -/Limits [(lstnumber.-9.4) (lstnumber.-9.9)] ->> -% 1963 0 obj -<< -/Names [(page.1) 556 0 R (page.10) 856 0 R (page.100) 1531 0 R (page.101) 1535 0 R (page.102) 1539 0 R (page.103) 1552 0 R] -/Limits [(page.1) (page.103)] ->> -% 1964 0 obj -<< -/Names [(page.104) 1557 0 R (page.105) 1564 0 R (page.106) 1570 0 R (page.107) 1577 0 R (page.108) 1581 0 R (page.109) 1585 0 R] -/Limits [(page.104) (page.109)] ->> -% 1965 0 obj -<< -/Names [(page.11) 867 0 R (page.110) 1590 0 R (page.111) 1594 0 R (page.112) 1598 0 R (page.113) 1602 0 R (page.114) 1608 0 R] -/Limits [(page.11) (page.114)] ->> -% 1966 0 obj -<< -/Names [(page.115) 1614 0 R (page.116) 1621 0 R (page.117) 1627 0 R (page.118) 1633 0 R (page.119) 1641 0 R (page.12) 882 0 R] -/Limits [(page.115) (page.12)] ->> -% 1967 0 obj -<< -/Names [(page.120) 1646 0 R (page.121) 1653 0 R (page.122) 1660 0 R (page.123) 1691 0 R (page.124) 1697 0 R (page.125) 1703 0 R] -/Limits [(page.120) (page.125)] ->> -% 1968 0 obj -<< -/Names [(page.126) 1709 0 R (page.127) 1715 0 R (page.128) 1721 0 R (page.129) 1728 0 R (page.13) 886 0 R (page.130) 1735 0 R] -/Limits [(page.126) (page.130)] ->> -% 1969 0 obj -<< -/Names [(page.131) 1741 0 R (page.132) 1748 0 R (page.133) 1754 0 R (page.134) 1761 0 R (page.135) 1767 0 R (page.136) 1777 0 R] -/Limits [(page.131) (page.136)] ->> -% 1970 0 obj -<< -/Names [(page.137) 1781 0 R (page.138) 1789 0 R (page.139) 1794 0 R (page.14) 891 0 R (page.140) 1799 0 R (page.141) 1805 0 R] -/Limits [(page.137) (page.141)] ->> -% 1971 0 obj -<< -/Names [(page.142) 1809 0 R (page.143) 1816 0 R (page.144) 1828 0 R (page.145) 1833 0 R (page.146) 1838 0 R (page.147) 1842 0 R] -/Limits [(page.142) (page.147)] ->> -% 1972 0 obj -<< -/Names [(page.148) 1850 0 R (page.15) 899 0 R (page.16) 907 0 R (page.17) 911 0 R (page.18) 917 0 R (page.19) 921 0 R] -/Limits [(page.148) (page.19)] ->> -% 1973 0 obj -<< -/Names [(page.2) 566 0 R (page.20) 926 0 R (page.21) 930 0 R (page.22) 934 0 R (page.23) 940 0 R (page.24) 946 0 R] -/Limits [(page.2) (page.24)] ->> -% 1974 0 obj -<< -/Names [(page.25) 952 0 R (page.26) 960 0 R (page.27) 966 0 R (page.28) 971 0 R (page.29) 982 0 R (page.3) 768 0 R] -/Limits [(page.25) (page.3)] ->> -% 1975 0 obj -<< -/Names [(page.30) 988 0 R (page.31) 997 0 R (page.32) 1004 0 R (page.33) 1021 0 R (page.34) 1026 0 R (page.35) 1033 0 R] -/Limits [(page.30) (page.35)] ->> % 1976 0 obj << -/Names [(page.36) 1038 0 R (page.37) 1051 0 R (page.38) 1060 0 R (page.39) 1065 0 R (page.4) 784 0 R (page.40) 1078 0 R] -/Limits [(page.36) (page.40)] +/Names [(Doc-Start) 569 0 R (Hfootnote.1) 789 0 R (Hfootnote.2) 791 0 R (Hfootnote.3) 845 0 R (Hfootnote.4) 1827 0 R (Hfootnote.5) 1878 0 R] +/Limits [(Doc-Start) (Hfootnote.5)] >> % 1977 0 obj << -/Names [(page.41) 1083 0 R (page.42) 1090 0 R (page.43) 1095 0 R (page.44) 1109 0 R (page.45) 1116 0 R (page.46) 1124 0 R] -/Limits [(page.41) (page.46)] +/Names [(Item.1) 818 0 R (Item.10) 833 0 R (Item.100) 1601 0 R (Item.101) 1602 0 R (Item.102) 1603 0 R (Item.103) 1604 0 R] +/Limits [(Item.1) (Item.103)] >> % 1978 0 obj << -/Names [(page.47) 1135 0 R (page.48) 1150 0 R (page.49) 1156 0 R (page.5) 796 0 R (page.50) 1168 0 R (page.51) 1174 0 R] -/Limits [(page.47) (page.51)] +/Names [(Item.104) 1605 0 R (Item.105) 1606 0 R (Item.106) 1607 0 R (Item.107) 1616 0 R (Item.108) 1617 0 R (Item.109) 1623 0 R] +/Limits [(Item.104) (Item.109)] >> % 1979 0 obj << -/Names [(page.52) 1179 0 R (page.53) 1187 0 R (page.54) 1197 0 R (page.55) 1210 0 R (page.56) 1219 0 R (page.57) 1231 0 R] -/Limits [(page.52) (page.57)] +/Names [(Item.11) 834 0 R (Item.110) 1624 0 R (Item.111) 1629 0 R (Item.112) 1630 0 R (Item.113) 1631 0 R (Item.114) 1661 0 R] +/Limits [(Item.11) (Item.114)] >> % 1980 0 obj << -/Names [(page.58) 1240 0 R (page.59) 1244 0 R (page.6) 801 0 R (page.60) 1259 0 R (page.61) 1267 0 R (page.62) 1274 0 R] -/Limits [(page.58) (page.62)] +/Names [(Item.115) 1662 0 R (Item.116) 1667 0 R (Item.117) 1668 0 R (Item.118) 1674 0 R (Item.119) 1675 0 R (Item.12) 835 0 R] +/Limits [(Item.115) (Item.12)] >> % 1981 0 obj << -/Names [(page.63) 1283 0 R (page.64) 1287 0 R (page.65) 1292 0 R (page.66) 1298 0 R (page.67) 1303 0 R (page.68) 1314 0 R] -/Limits [(page.63) (page.68)] +/Names [(Item.120) 1680 0 R (Item.121) 1681 0 R (Item.122) 1687 0 R (Item.123) 1688 0 R (Item.124) 1693 0 R (Item.125) 1694 0 R] +/Limits [(Item.120) (Item.125)] >> % 1982 0 obj << -/Names [(page.69) 1319 0 R (page.7) 815 0 R (page.70) 1328 0 R (page.71) 1335 0 R (page.72) 1340 0 R (page.73) 1346 0 R] -/Limits [(page.69) (page.73)] +/Names [(Item.126) 1696 0 R (Item.127) 1701 0 R (Item.128) 1706 0 R (Item.13) 836 0 R (Item.14) 837 0 R (Item.15) 838 0 R] +/Limits [(Item.126) (Item.15)] >> % 1983 0 obj << -/Names [(page.74) 1352 0 R (page.75) 1360 0 R (page.76) 1368 0 R (page.77) 1374 0 R (page.78) 1383 0 R (page.79) 1395 0 R] -/Limits [(page.74) (page.79)] +/Names [(Item.16) 839 0 R (Item.17) 840 0 R (Item.18) 841 0 R (Item.19) 842 0 R (Item.2) 819 0 R (Item.20) 843 0 R] +/Limits [(Item.16) (Item.20)] >> % 1984 0 obj << -/Names [(page.8) 837 0 R (page.80) 1400 0 R (page.81) 1412 0 R (page.82) 1418 0 R (page.83) 1425 0 R (page.84) 1431 0 R] -/Limits [(page.8) (page.84)] +/Names [(Item.21) 844 0 R (Item.22) 853 0 R (Item.23) 854 0 R (Item.24) 855 0 R (Item.25) 856 0 R (Item.26) 857 0 R] +/Limits [(Item.21) (Item.26)] >> % 1985 0 obj << -/Names [(page.85) 1435 0 R (page.86) 1445 0 R (page.87) 1451 0 R (page.88) 1456 0 R (page.89) 1461 0 R (page.9) 848 0 R] -/Limits [(page.85) (page.9)] +/Names [(Item.27) 858 0 R (Item.28) 872 0 R (Item.29) 873 0 R (Item.3) 820 0 R (Item.30) 874 0 R (Item.31) 875 0 R] +/Limits [(Item.27) (Item.31)] >> % 1986 0 obj << -/Names [(page.90) 1465 0 R (page.91) 1472 0 R (page.92) 1478 0 R (page.93) 1484 0 R (page.94) 1490 0 R (page.95) 1496 0 R] -/Limits [(page.90) (page.95)] +/Names [(Item.32) 876 0 R (Item.33) 883 0 R (Item.34) 884 0 R (Item.35) 885 0 R (Item.36) 886 0 R (Item.37) 887 0 R] +/Limits [(Item.32) (Item.37)] >> % 1987 0 obj << -/Names [(page.96) 1502 0 R (page.97) 1509 0 R (page.98) 1517 0 R (page.99) 1521 0 R (page.i) 617 0 R (page.ii) 670 0 R] -/Limits [(page.96) (page.ii)] +/Names [(Item.38) 888 0 R (Item.39) 889 0 R (Item.4) 821 0 R (Item.40) 890 0 R (Item.41) 928 0 R (Item.42) 1021 0 R] +/Limits [(Item.38) (Item.42)] >> % 1988 0 obj << -/Names [(page.iii) 716 0 R (page.iv) 721 0 R (precdata) 961 0 R (section*.1) 618 0 R (section*.10) 79 0 R (section*.100) 497 0 R] -/Limits [(page.iii) (section*.100)] +/Names [(Item.43) 1054 0 R (Item.44) 1081 0 R (Item.45) 1111 0 R (Item.46) 1291 0 R (Item.47) 1292 0 R (Item.48) 1293 0 R] +/Limits [(Item.43) (Item.48)] >> % 1989 0 obj << -/Names [(section*.101) 501 0 R (section*.102) 505 0 R (section*.103) 509 0 R (section*.104) 513 0 R (section*.105) 521 0 R (section*.106) 525 0 R] -/Limits [(section*.101) (section*.106)] +/Names [(Item.49) 1352 0 R (Item.5) 822 0 R (Item.50) 1358 0 R (Item.51) 1363 0 R (Item.52) 1364 0 R (Item.53) 1365 0 R] +/Limits [(Item.49) (Item.53)] >> % 1990 0 obj << -/Names [(section*.107) 529 0 R (section*.108) 533 0 R (section*.109) 537 0 R (section*.11) 83 0 R (section*.110) 541 0 R (section*.111) 549 0 R] -/Limits [(section*.107) (section*.111)] +/Names [(Item.54) 1366 0 R (Item.55) 1367 0 R (Item.56) 1379 0 R (Item.57) 1380 0 R (Item.58) 1381 0 R (Item.59) 1388 0 R] +/Limits [(Item.54) (Item.59)] >> % 1991 0 obj << -/Names [(section*.112) 1843 0 R (section*.12) 99 0 R (section*.13) 103 0 R (section*.14) 107 0 R (section*.15) 111 0 R (section*.16) 115 0 R] -/Limits [(section*.112) (section*.16)] +/Names [(Item.6) 823 0 R (Item.60) 1410 0 R (Item.61) 1411 0 R (Item.62) 1419 0 R (Item.63) 1420 0 R (Item.64) 1421 0 R] +/Limits [(Item.6) (Item.64)] >> % 1992 0 obj << -/Names [(section*.17) 119 0 R (section*.18) 123 0 R (section*.19) 127 0 R (section*.2) 47 0 R (section*.20) 131 0 R (section*.21) 135 0 R] -/Limits [(section*.17) (section*.21)] +/Names [(Item.65) 1433 0 R (Item.66) 1434 0 R (Item.67) 1435 0 R (Item.68) 1436 0 R (Item.69) 1437 0 R (Item.7) 824 0 R] +/Limits [(Item.65) (Item.7)] >> % 1993 0 obj << -/Names [(section*.22) 139 0 R (section*.23) 143 0 R (section*.24) 147 0 R (section*.25) 151 0 R (section*.26) 155 0 R (section*.27) 159 0 R] -/Limits [(section*.22) (section*.27)] +/Names [(Item.70) 1442 0 R (Item.71) 1443 0 R (Item.72) 1444 0 R (Item.73) 1445 0 R (Item.74) 1446 0 R (Item.75) 1447 0 R] +/Limits [(Item.70) (Item.75)] >> % 1994 0 obj << -/Names [(section*.28) 163 0 R (section*.29) 179 0 R (section*.3) 51 0 R (section*.30) 183 0 R (section*.31) 187 0 R (section*.32) 191 0 R] -/Limits [(section*.28) (section*.32)] +/Names [(Item.76) 1458 0 R (Item.77) 1459 0 R (Item.78) 1460 0 R (Item.79) 1461 0 R (Item.8) 825 0 R (Item.80) 1462 0 R] +/Limits [(Item.76) (Item.80)] >> % 1995 0 obj << -/Names [(section*.33) 195 0 R (section*.34) 212 0 R (section*.35) 216 0 R (section*.36) 220 0 R (section*.37) 224 0 R (section*.38) 228 0 R] -/Limits [(section*.33) (section*.38)] +/Names [(Item.81) 1463 0 R (Item.82) 1478 0 R (Item.83) 1495 0 R (Item.84) 1496 0 R (Item.85) 1524 0 R (Item.86) 1525 0 R] +/Limits [(Item.81) (Item.86)] >> % 1996 0 obj << -/Names [(section*.39) 232 0 R (section*.4) 55 0 R (section*.40) 236 0 R (section*.41) 240 0 R (section*.42) 244 0 R (section*.43) 248 0 R] -/Limits [(section*.39) (section*.43)] +/Names [(Item.87) 1536 0 R (Item.88) 1543 0 R (Item.89) 1549 0 R (Item.9) 832 0 R (Item.90) 1555 0 R (Item.91) 1561 0 R] +/Limits [(Item.87) (Item.91)] >> % 1997 0 obj << -/Names [(section*.44) 252 0 R (section*.45) 256 0 R (section*.46) 260 0 R (section*.47) 268 0 R (section*.48) 272 0 R (section*.49) 276 0 R] -/Limits [(section*.44) (section*.49)] +/Names [(Item.92) 1562 0 R (Item.93) 1569 0 R (Item.94) 1570 0 R (Item.95) 1581 0 R (Item.96) 1582 0 R (Item.97) 1583 0 R] +/Limits [(Item.92) (Item.97)] >> % 1998 0 obj << -/Names [(section*.5) 59 0 R (section*.50) 280 0 R (section*.51) 288 0 R (section*.52) 292 0 R (section*.53) 296 0 R (section*.54) 300 0 R] -/Limits [(section*.5) (section*.54)] +/Names [(Item.98) 1599 0 R (Item.99) 1600 0 R (cite.2007c) 804 0 R (cite.2007d) 805 0 R (cite.BLACS) 777 0 R (cite.BLAS1) 759 0 R] +/Limits [(Item.98) (cite.BLAS1)] >> % 1999 0 obj << -/Names [(section*.55) 304 0 R (section*.56) 308 0 R (section*.57) 312 0 R (section*.58) 316 0 R (section*.59) 320 0 R (section*.6) 63 0 R] -/Limits [(section*.55) (section*.6)] +/Names [(cite.BLAS2) 760 0 R (cite.BLAS3) 761 0 R (cite.DesPat:11) 754 0 R (cite.DesignPatterns) 917 0 R (cite.KIVA3PSBLAS) 1900 0 R (cite.METIS) 792 0 R] +/Limits [(cite.BLAS2) (cite.METIS)] >> % 2000 0 obj << -/Names [(section*.60) 324 0 R (section*.61) 328 0 R (section*.62) 332 0 R (section*.63) 336 0 R (section*.64) 340 0 R (section*.65) 344 0 R] -/Limits [(section*.60) (section*.65)] +/Names [(cite.MPI1) 1906 0 R (cite.PARA04FOREST) 1898 0 R (cite.PSBLAS) 1899 0 R (cite.RouXiaXu:11) 755 0 R (cite.Sparse03) 753 0 R (cite.machiels) 756 0 R] +/Limits [(cite.MPI1) (cite.machiels)] >> % 2001 0 obj << -/Names [(section*.66) 348 0 R (section*.67) 352 0 R (section*.68) 356 0 R (section*.69) 360 0 R (section*.7) 67 0 R (section*.70) 364 0 R] -/Limits [(section*.66) (section*.70)] +/Names [(cite.metcalf) 752 0 R (cite.sblas02) 758 0 R (cite.sblas97) 757 0 R (descdata) 864 0 R (equation.4.1) 1151 0 R (equation.4.2) 1152 0 R] +/Limits [(cite.metcalf) (equation.4.2)] >> - -endstream -endobj -2039 0 obj -<< - /Title (Parallel Sparse BLAS V. 3.6.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.17)/Keywords() -/CreationDate (D:20190528154807+01'00') -/ModDate (D:20190528154807+01'00') -/Trapped /False -/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.17 (TeX Live 2016) kpathsea version 6.2.2) ->> -endobj -2003 0 obj -<< -/Type /ObjStm -/N 36 -/First 352 -/Length 5456 ->> -stream -2002 0 2004 198 2005 394 2006 592 2007 788 2008 986 2009 1170 2010 1352 2011 1554 2012 1783 -2013 2018 2014 2198 2015 2372 2016 2544 2017 2614 2018 2728 2019 2840 2020 2951 2021 3065 2022 3185 -2023 3309 2024 3428 2025 3541 2026 3653 2027 3764 2028 3875 2029 3991 2030 4109 2031 4228 2032 4343 -2033 4435 2034 4555 2035 4677 2036 4772 2037 4856 2038 4891 % 2002 0 obj << -/Names [(section*.71) 368 0 R (section*.72) 372 0 R (section*.73) 376 0 R (section*.74) 380 0 R (section*.75) 384 0 R (section*.76) 388 0 R] -/Limits [(section*.71) (section*.76)] +/Names [(equation.4.3) 1153 0 R (figure.1) 771 0 R (figure.10) 1714 0 R (figure.2) 800 0 R (figure.3) 891 0 R (figure.4) 918 0 R] +/Limits [(equation.4.3) (figure.4)] +>> +% 2003 0 obj +<< +/Names [(figure.5) 957 0 R (figure.6) 977 0 R (figure.7) 1257 0 R (figure.8) 1294 0 R (figure.9) 1713 0 R (lstlisting.-1) 1022 0 R] +/Limits [(figure.5) (lstlisting.-1)] >> % 2004 0 obj << -/Names [(section*.77) 392 0 R (section*.78) 400 0 R (section*.79) 405 0 R (section*.8) 71 0 R (section*.80) 409 0 R (section*.81) 413 0 R] -/Limits [(section*.77) (section*.81)] +/Names [(lstlisting.-10) 1750 0 R (lstlisting.-11) 1756 0 R (lstlisting.-12) 1762 0 R (lstlisting.-13) 1768 0 R (lstlisting.-14) 1779 0 R (lstlisting.-15) 1788 0 R] +/Limits [(lstlisting.-10) (lstlisting.-15)] >> % 2005 0 obj << -/Names [(section*.82) 417 0 R (section*.83) 421 0 R (section*.84) 425 0 R (section*.85) 429 0 R (section*.86) 433 0 R (section*.87) 437 0 R] -/Limits [(section*.82) (section*.87)] ->> -% 2006 0 obj -<< -/Names [(section*.88) 441 0 R (section*.89) 445 0 R (section*.9) 75 0 R (section*.90) 449 0 R (section*.91) 453 0 R (section*.92) 457 0 R] -/Limits [(section*.88) (section*.92)] ->> -% 2007 0 obj -<< -/Names [(section*.93) 461 0 R (section*.94) 465 0 R (section*.95) 473 0 R (section*.96) 477 0 R (section*.97) 481 0 R (section*.98) 485 0 R] -/Limits [(section*.93) (section*.98)] ->> -% 2008 0 obj -<< -/Names [(section*.99) 493 0 R (section.1) 7 0 R (section.10) 517 0 R (section.11) 545 0 R (section.2) 11 0 R (section.3) 35 0 R] -/Limits [(section*.99) (section.3)] ->> -% 2009 0 obj -<< -/Names [(section.4) 208 0 R (section.5) 264 0 R (section.6) 284 0 R (section.7) 396 0 R (section.8) 469 0 R (section.9) 489 0 R] -/Limits [(section.4) (section.9)] ->> -% 2010 0 obj -<< -/Names [(spbasedata) 901 0 R (spdata) 900 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 [(spbasedata) (subsection.2.4)] ->> -% 2011 0 obj -<< -/Names [(subsection.3.1) 39 0 R (subsection.3.2) 91 0 R (subsection.3.3) 171 0 R (subsection.3.4) 199 0 R (subsection.3.5) 204 0 R (subsubsection.2.3.1) 27 0 R] -/Limits [(subsection.3.1) (subsubsection.2.3.1)] ->> -% 2012 0 obj -<< -/Names [(subsubsection.3.1.1) 43 0 R (subsubsection.3.1.2) 87 0 R (subsubsection.3.2.1) 95 0 R (subsubsection.3.2.2) 167 0 R (subsubsection.3.3.1) 175 0 R (table.1) 954 0 R] -/Limits [(subsubsection.3.1.1) (table.1)] ->> -% 2013 0 obj -<< -/Names [(table.10) 1117 0 R (table.11) 1126 0 R (table.12) 1139 0 R (table.13) 1157 0 R (table.14) 1188 0 R (table.15) 1220 0 R] -/Limits [(table.10) (table.15)] ->> -% 2014 0 obj -<< -/Names [(table.16) 1260 0 R (table.17) 1275 0 R (table.2) 998 0 R (table.3) 1022 0 R (table.4) 1034 0 R (table.5) 1052 0 R] -/Limits [(table.16) (table.5)] ->> -% 2015 0 obj -<< -/Names [(table.6) 1061 0 R (table.7) 1079 0 R (table.8) 1091 0 R (table.9) 1110 0 R (title.0) 3 0 R (vbasedata) 892 0 R] -/Limits [(table.6) (vbasedata)] ->> -% 2016 0 obj -<< -/Names [(vdata) 941 0 R] -/Limits [(vdata) (vdata)] ->> -% 2017 0 obj -<< -/Kids [1922 0 R 1923 0 R 1924 0 R 1925 0 R 1926 0 R 1927 0 R] -/Limits [(Doc-Start) (Item.125)] ->> -% 2018 0 obj -<< -/Kids [1928 0 R 1929 0 R 1930 0 R 1931 0 R 1932 0 R 1933 0 R] -/Limits [(Item.126) (Item.42)] ->> -% 2019 0 obj -<< -/Kids [1934 0 R 1935 0 R 1936 0 R 1937 0 R 1938 0 R 1939 0 R] -/Limits [(Item.43) (Item.75)] ->> -% 2020 0 obj -<< -/Kids [1940 0 R 1941 0 R 1942 0 R 1943 0 R 1944 0 R 1945 0 R] -/Limits [(Item.76) (cite.METIS)] ->> -% 2021 0 obj -<< -/Kids [1946 0 R 1947 0 R 1948 0 R 1949 0 R 1950 0 R 1951 0 R] -/Limits [(cite.MPI1) (lstlisting.-20)] ->> -% 2022 0 obj -<< -/Kids [1952 0 R 1953 0 R 1954 0 R 1955 0 R 1956 0 R 1957 0 R] -/Limits [(lstlisting.-3) (lstnumber.-5.1)] ->> -% 2023 0 obj -<< -/Kids [1958 0 R 1959 0 R 1960 0 R 1961 0 R 1962 0 R 1963 0 R] -/Limits [(lstnumber.-5.2) (page.103)] ->> -% 2024 0 obj -<< -/Kids [1964 0 R 1965 0 R 1966 0 R 1967 0 R 1968 0 R 1969 0 R] -/Limits [(page.104) (page.136)] ->> -% 2025 0 obj -<< -/Kids [1970 0 R 1971 0 R 1972 0 R 1973 0 R 1974 0 R 1975 0 R] -/Limits [(page.137) (page.35)] ->> -% 2026 0 obj -<< -/Kids [1976 0 R 1977 0 R 1978 0 R 1979 0 R 1980 0 R 1981 0 R] -/Limits [(page.36) (page.68)] ->> -% 2027 0 obj -<< -/Kids [1982 0 R 1983 0 R 1984 0 R 1985 0 R 1986 0 R 1987 0 R] -/Limits [(page.69) (page.ii)] ->> -% 2028 0 obj -<< -/Kids [1988 0 R 1989 0 R 1990 0 R 1991 0 R 1992 0 R 1993 0 R] -/Limits [(page.iii) (section*.27)] ->> -% 2029 0 obj -<< -/Kids [1994 0 R 1995 0 R 1996 0 R 1997 0 R 1998 0 R 1999 0 R] -/Limits [(section*.28) (section*.6)] ->> -% 2030 0 obj -<< -/Kids [2000 0 R 2001 0 R 2002 0 R 2004 0 R 2005 0 R 2006 0 R] -/Limits [(section*.60) (section*.92)] ->> -% 2031 0 obj -<< -/Kids [2007 0 R 2008 0 R 2009 0 R 2010 0 R 2011 0 R 2012 0 R] -/Limits [(section*.93) (table.1)] ->> -% 2032 0 obj -<< -/Kids [2013 0 R 2014 0 R 2015 0 R 2016 0 R] -/Limits [(table.10) (vdata)] ->> -% 2033 0 obj -<< -/Kids [2017 0 R 2018 0 R 2019 0 R 2020 0 R 2021 0 R 2022 0 R] -/Limits [(Doc-Start) (lstnumber.-5.1)] ->> -% 2034 0 obj -<< -/Kids [2023 0 R 2024 0 R 2025 0 R 2026 0 R 2027 0 R 2028 0 R] -/Limits [(lstnumber.-5.2) (section*.27)] ->> -% 2035 0 obj -<< -/Kids [2029 0 R 2030 0 R 2031 0 R 2032 0 R] -/Limits [(section*.28) (vdata)] ->> -% 2036 0 obj -<< -/Kids [2033 0 R 2034 0 R 2035 0 R] -/Limits [(Doc-Start) (vdata)] ->> -% 2037 0 obj -<< -/Dests 2036 0 R ->> -% 2038 0 obj -<< -/Type /Catalog -/Pages 1918 0 R -/Outlines 1919 0 R -/Names 2037 0 R - /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<>2<>6<>]>> -/OpenAction 552 0 R +/Names [(lstlisting.-16) 1795 0 R (lstlisting.-17) 1801 0 R (lstlisting.-18) 1808 0 R (lstlisting.-19) 1814 0 R (lstlisting.-2) 1055 0 R (lstlisting.-20) 1875 0 R] +/Limits [(lstlisting.-16) (lstlisting.-20)] >> endstream endobj -2040 0 obj +2094 0 obj << -/Type /XRef -/Index [0 2041] -/Size 2041 -/W [1 3 1] -/Root 2038 0 R -/Info 2039 0 R -/ID [<23726BF4ED0FB1922B6F90535442F1B2> <23726BF4ED0FB1922B6F90535442F1B2>] -/Length 10205 + /Title (Parallel Sparse BLAS V. 3.6.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:20191121135344+01'00') +/ModDate (D:20191121135344+01'00') +/Trapped /False +/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017/Debian) kpathsea version 6.2.3) +>> +endobj +2007 0 obj +<< +/Type /ObjStm +/N 87 +/First 897 +/Length 15917 >> stream -ÿ”NÍ+Í5Í=ÍI  -ÍR  @  @ @ @ -@; @<@=@>@B@C @D!"@H#$@I%&@K'(@L€c)*@S€b+,@T€a-.@[€`/0@\€_12@]€^34@a€]56@c€\78‘€[9:‘€Z;<‘€Y=>‘ €X?@‘ -€WAB‘€VCD‘€UEF‘€TGH‘€SIJ‘€RKL‘€QMN‘€POP‘ €OQR‘!€NST‘"€MUV‘(€LWX‘)€KYZ‘*€J[\‘0€I]^‘5€H_`‘6€Gab‘7€Fc˼‘>€EËË‘B€DËË‘L€CËË‘\€BËËó €AË Ë -ó€@Ë Ë ó)€?Ë Ëó1€>ËËóB€=ËËóM€<ËËó^€;ËË^€:ËË^€9ËË^€8ËË^%€7ËË^:€6ËË ^A€5Ë!Ë"^[€4Ë#Ë$Ô€3Ë%Ë&Ô$€2Ë'Ë(Ô1€1Ë)Ë*Ô2€0Ë+Ë,ÔI€/Ë-Ë.ÔV€.Ë/Ë0Ô]€-Ë1Ë2Ôb€,Ë3Ë4C€+Ë5Ë6C€*Ë7Ë8C€)Ë9Ë:C0€(Ë;Ë<C?€'Ë=Ë>CE€&Ë?Ë@CL€%ËAËBCR€$ËCËDC^€#ËEËF¬€"ËGËH¬€!ËIËJ¬ € ËKËL¬€ËMËN¬€ËOËP¬€ËQËR¬$€ËSËT¬*€ËUËV¬0€ËWËX¬7€ËYËZ¬>€Ë[Ë\¬K€Ë]Ë^¬O€Ë_Ë`¬_€ËaËb¬c€Ëc”j €”” €””€””€””€” ” -€” ” "€ ” ”&€ ””*€ ””0€ -””6€ ””<€””B€””H€””O€””T€”” [€”!”"—€”#”$—€”%”&—%€”'”(—+Gc”)”*—1Gb”+”,—6Ga”-”.—=G`”/”0—DG_”1”2—JG^”3”4—QG]”5”6—WG\”7”8—]G[”9”:—cGZ”;”<éGY”=”>éGX”?”@éGW”A”BéGV”C”Dé"GU”E”Fé&GT”G”Hé,GS”I”J”K”O$ÿ”L”MGG.GG&G2”R”P'„”Q”T”U”V”W”X”Y”Z”[”\”]”^”_”`”a”b”ckkkkkkkkkk k -k k k kkkkkkkkkkkkkkkkk"k ”S( kkmk#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×ÏÍ:­ÍÍ]¢ÍÍ!Í"Í#Í$Í%Í&Í'Í(Í)Í*Í,Í ^-G-G3éVéMéCéWéUéJéKéTéGéHÍ2Í3Í4•¶Í9Í7Í-¯G"Í6Í.Í/Í0Í1šléIÍ:Í;Í@Í8¦Í<G/G(G$G+G'Í>G)Í?éSÍEÍFÝÿÍJÍAÈáÍGÍHÍBÍCÍDéFéEÍLÍMÍOÍKä©ÍNÍ]Í[ÍPú;ÍQG#ÍSÍTÍUÍVÍWÍXÍYÍZ@ @ Í\JÍ^Í_Í`ÍaÍbÍc@@@@@@@@@G0G4]L@ @@ -mª@ @@@@@@@@@‹@@@@ @!@(@¬c@"@#@$@%@&@'@*@+@6@)ÇJ@,@-@.@/@0@1@2@3@4@5@8@9@?@7ÛÀ@:@E@@ðK@AG5@M@F_@G@J@O@P@Q@W@NŽ@R@U@VéR@Z@^@X:9@Y‘@_Oe@`@bª‘‘€±‘‘ ‘h‘G6‘‘ ¡‘ ‘‘±Å‘‘‘ÁÁ‘‘‘‘$‘׆‘‘#‘'‘+‘%õÜ‘&‘-‘.‘1‘,Œ‘/G7‘M‘3‘;‘9‘2Å‘4‘8‘=‘?‘:&-‘<G1‘C‘@4±‘A‘E‘F‘G‘H‘I‘J‘P‘N‘D5‹‘K‘Q‘R‘T‘ORˆ‘S‘V‘W‘X‘Y‘Z‘^‘U]#‘[‘]G8‘`ó‘_{s‘a‘b‘cóóóóÇ -óóóó ó -ó óó·ñó óóóÙ<óóóóóóÛêóóó#óöñóóóóó ó!ó"ó%ó&ó'ó+ó$ ó(ó*G9ó-ó.ó/ó3ó,!ôó0ó2ó<ó4>ó5ó6ó7ó8ó9ó:ó;ó>ó?ó@óDó=M€óAóCóGóEjtóFóIóJóKóOóHm!óLóNóXóP†œóQóRóSóTóUóVóWG:óZó[ó\ó`óY˜òó]ó_óbóc^óa±A^^lÙ^^^ -^òª^G,^ ^ ^ ^^^^^ z^^^^^^^^^^^^^!^%W^ ^#^)^'^"@Ó^$^&G;^*^+^,^-^.^/^1^([“^0^3^4^6^2z=^5^8^;^7Œ±^9^=^>^?^N^F^<y^@^B^C^D^E¸Ê^O^R^G¬^P^Q^H^I^J^K^L^MÇ%ú”^U^S(,^TG*G<^W^X^Y^`^V4S^Z^\^]^^^_^b®Æ^cÔÔ^aU²ÔÔÔÔÔ 0*ÔÔžäÔÔÔ ­DÔÔ -Ô Ô Ô ÔÔ½dðÓÔÔÔÔÔkÔÔÔÔÔÔ ÔC>ÔG=Ô"Ô*Ô(Ô!I*Ô#Ô%Ô&Ô'Ô+Ô,Ô.Ô)gâÔ-Ô3Ô/xtÔ0Ô5Ô8Ô4’=Ô6Ô7Ô:Ô=Ô9¬hÔ;Ô<ÔEÔ>ÓæÔ?Ô@ÔAÔBÔCÔDG>ÔGÔJÔFÞ‡ÔHÔLÔQÔKúÇÔMÔNÔOÔPÔSÔTÔXÔR XÔUÔWÔZÔ[Ô^ÔY  Ô\Ô`ÔcÔ_ '*ÔaCCCC \C -eG?C -C szCCC C C CC  yêCCCCCCC >CCCC"C £ØCCCCC C!C+C# ÀçC$C%C&C'C(C)C*C-C.C1C, ÐC/G@C:C2 ê4C3C4C5C6C7C8C9C<C=C@C; ó@C>CBCCCGCA ÿ‹CDCFCICJCMCH -PCKCOCPCSCN -#€CQCXCT ->vCUCVCWGACZC[C\C_CY -C -C]CaCb¬C` -W¦Cc ®¬¬ -Žð¬¬¬ -¬ -œ›¬¬¬  -¶d¬ ¬ ¬¬¬¬ -¹b¬GB¬¬¬ -Ïø¬¬¬¬ ¬ -ݬ¬¬"¬&¬! -ð´¬#¬%¬(¬,¬' -ý ¬)¬+¬.¬3¬- @¬/¬1¬2¬5¬:¬4 Y¬6¬8¬9GC¬<¬?¬; .ܬ=¬E¬@ E·¬A¬B¬C¬D¬G¬H¬I¬L¬F Ti¬J¬P¬M dŬN¬\¬Q {„¬R¬S¬T¬U¬V¬W¬X¬Y¬Z¬[¬`¬] —¬^GD¬a ˜¬b z Õ‡  çë -   ù+ Ù çGE Á#  À!'$ M%-( 0?)+,3. D–/1294 Y578GF?: my;=>E@ ‚SACDLF —GIJG!KQM ¯œNPVR Ä»SUXY\W ÙìZGG———] ó^_`G abc—————————— — -— — — —————— Ö —— 4'————"— Bñ—— —!—(—# H¦—$—&—'—.—) OB—*—,—-—2—/ W¹—0GH—4—9—3 Z—5—7—8—;—@—: lö—<—>—?—B—G—A ½—C—E—F—M—H @—I—K—L—O—T—N žö—P—R—S—Z—U ¯Œ—V—X—YGI—^—[ ¼þ—\—`—aé—_ Áú—béÈ ééééé é ø´éé é - é éééééé £éééé2»éGJéé>{ééé é#éB“é!é'é$Mué%é)é*é3é1é(Pé+é-é.é/é0G%é4é5é6é8é2pÈé7é:é<é9ŒØé;GKé?é=Ÿjé>éOé@Ÿ÷éAéBéDéLéNéYéP»šéQéXéZé[é\é]é^é_é`éaébécGúUGGGGGGGGG öoG -N¯G 4G Ä»G ârG#™GA—Gh -G‡oGí(G G.ðGp™G°_GØ -Gõ«GEnGtåGÂpGÒ¥GGLGMGNGOGPGQGRJmp¯ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcÓ¸¢ÓÓÓÓÓÓÓÓÓ Ó -Ó Ó Ó ÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓÓ Ó!Ó"Ó#¶aÎN +2006 0 2008 220 2009 448 2010 684 2011 916 2012 1146 2013 1374 2014 1602 2015 1836 2016 2070 +2017 2304 2018 2532 2019 2705 2020 2885 2021 3062 2022 3239 2023 3419 2024 3597 2025 3777 2026 3955 +2027 4135 2028 4313 2029 4478 2030 4644 2031 4811 2032 4983 2033 5153 2034 5325 2035 5495 2036 5667 +2037 5836 2038 6005 2039 6177 2040 6347 2041 6519 2042 6689 2043 6861 2044 7029 2045 7223 2046 7429 +2047 7633 2048 7834 2049 8030 2050 8228 2051 8424 2052 8622 2053 8818 2054 9016 2055 9212 2056 9410 +2057 9605 2058 9800 2059 9998 2060 10194 2061 10392 2062 10588 2063 10786 2064 10973 2065 11154 2066 11351 +2067 11570 2068 11828 2069 12005 2070 12183 2071 12357 2072 12503 2073 12617 2074 12729 2075 12840 2076 12954 +2077 13074 2078 13198 2079 13317 2080 13430 2081 13542 2082 13653 2083 13764 2084 13879 2085 13998 2086 14117 +2087 14239 2088 14351 2089 14471 2090 14593 2091 14688 2092 14772 2093 14807 +% 2006 0 obj +<< +/Names [(lstlisting.-3) 1082 0 R (lstlisting.-4) 1112 0 R (lstlisting.-5) 1248 0 R (lstlisting.-6) 1279 0 R (lstlisting.-7) 1319 0 R (lstlisting.-8) 1333 0 R] +/Limits [(lstlisting.-3) (lstlisting.-8)] +>> +% 2008 0 obj +<< +/Names [(lstlisting.-9) 1719 0 R (lstnumber.-1.1) 1023 0 R (lstnumber.-1.2) 1024 0 R (lstnumber.-1.3) 1025 0 R (lstnumber.-1.4) 1026 0 R (lstnumber.-10.1) 1751 0 R] +/Limits [(lstlisting.-9) (lstnumber.-10.1)] +>> +% 2009 0 obj +<< +/Names [(lstnumber.-11.1) 1757 0 R (lstnumber.-12.1) 1763 0 R (lstnumber.-13.1) 1769 0 R (lstnumber.-14.1) 1780 0 R (lstnumber.-15.1) 1789 0 R (lstnumber.-16.1) 1796 0 R] +/Limits [(lstnumber.-11.1) (lstnumber.-16.1)] +>> +% 2010 0 obj +<< +/Names [(lstnumber.-17.1) 1802 0 R (lstnumber.-18.1) 1809 0 R (lstnumber.-19.1) 1815 0 R (lstnumber.-2.1) 1056 0 R (lstnumber.-2.2) 1057 0 R (lstnumber.-2.3) 1058 0 R] +/Limits [(lstnumber.-17.1) (lstnumber.-2.3)] +>> +% 2011 0 obj +<< +/Names [(lstnumber.-2.4) 1059 0 R (lstnumber.-20.1) 1876 0 R (lstnumber.-20.2) 1877 0 R (lstnumber.-3.1) 1083 0 R (lstnumber.-3.2) 1084 0 R (lstnumber.-3.3) 1085 0 R] +/Limits [(lstnumber.-2.4) (lstnumber.-3.3)] +>> +% 2012 0 obj +<< +/Names [(lstnumber.-3.4) 1086 0 R (lstnumber.-4.1) 1113 0 R (lstnumber.-4.2) 1114 0 R (lstnumber.-4.3) 1115 0 R (lstnumber.-4.4) 1116 0 R (lstnumber.-5.1) 1249 0 R] +/Limits [(lstnumber.-3.4) (lstnumber.-5.1)] +>> +% 2013 0 obj +<< +/Names [(lstnumber.-5.2) 1250 0 R (lstnumber.-6.1) 1280 0 R (lstnumber.-6.2) 1281 0 R (lstnumber.-7.1) 1320 0 R (lstnumber.-7.2) 1321 0 R (lstnumber.-8.1) 1334 0 R] +/Limits [(lstnumber.-5.2) (lstnumber.-8.1)] +>> +% 2014 0 obj +<< +/Names [(lstnumber.-9.1) 1720 0 R (lstnumber.-9.10) 1730 0 R (lstnumber.-9.11) 1731 0 R (lstnumber.-9.12) 1732 0 R (lstnumber.-9.13) 1733 0 R (lstnumber.-9.14) 1734 0 R] +/Limits [(lstnumber.-9.1) (lstnumber.-9.14)] +>> +% 2015 0 obj +<< +/Names [(lstnumber.-9.15) 1735 0 R (lstnumber.-9.16) 1736 0 R (lstnumber.-9.17) 1737 0 R (lstnumber.-9.18) 1738 0 R (lstnumber.-9.19) 1739 0 R (lstnumber.-9.2) 1722 0 R] +/Limits [(lstnumber.-9.15) (lstnumber.-9.2)] +>> +% 2016 0 obj +<< +/Names [(lstnumber.-9.20) 1740 0 R (lstnumber.-9.21) 1741 0 R (lstnumber.-9.22) 1742 0 R (lstnumber.-9.23) 1743 0 R (lstnumber.-9.24) 1744 0 R (lstnumber.-9.3) 1723 0 R] +/Limits [(lstnumber.-9.20) (lstnumber.-9.3)] +>> +% 2017 0 obj +<< +/Names [(lstnumber.-9.4) 1724 0 R (lstnumber.-9.5) 1725 0 R (lstnumber.-9.6) 1726 0 R (lstnumber.-9.7) 1727 0 R (lstnumber.-9.8) 1728 0 R (lstnumber.-9.9) 1729 0 R] +/Limits [(lstnumber.-9.4) (lstnumber.-9.9)] +>> +% 2018 0 obj +<< +/Names [(page.1) 568 0 R (page.10) 871 0 R (page.100) 1554 0 R (page.101) 1560 0 R (page.102) 1568 0 R (page.103) 1575 0 R] +/Limits [(page.1) (page.103)] +>> +% 2019 0 obj +<< +/Names [(page.104) 1580 0 R (page.105) 1590 0 R (page.106) 1594 0 R (page.107) 1598 0 R (page.108) 1611 0 R (page.109) 1615 0 R] +/Limits [(page.104) (page.109)] +>> +% 2020 0 obj +<< +/Names [(page.11) 882 0 R (page.110) 1622 0 R (page.111) 1628 0 R (page.112) 1635 0 R (page.113) 1639 0 R (page.114) 1643 0 R] +/Limits [(page.11) (page.114)] +>> +% 2021 0 obj +<< +/Names [(page.115) 1647 0 R (page.116) 1652 0 R (page.117) 1656 0 R (page.118) 1660 0 R (page.119) 1666 0 R (page.12) 897 0 R] +/Limits [(page.115) (page.12)] +>> +% 2022 0 obj +<< +/Names [(page.120) 1673 0 R (page.121) 1679 0 R (page.122) 1686 0 R (page.123) 1692 0 R (page.124) 1700 0 R (page.125) 1705 0 R] +/Limits [(page.120) (page.125)] +>> +% 2023 0 obj +<< +/Names [(page.126) 1712 0 R (page.127) 1718 0 R (page.128) 1749 0 R (page.129) 1755 0 R (page.13) 901 0 R (page.130) 1761 0 R] +/Limits [(page.126) (page.130)] +>> +% 2024 0 obj +<< +/Names [(page.131) 1767 0 R (page.132) 1773 0 R (page.133) 1778 0 R (page.134) 1787 0 R (page.135) 1794 0 R (page.136) 1800 0 R] +/Limits [(page.131) (page.136)] +>> +% 2025 0 obj +<< +/Names [(page.137) 1807 0 R (page.138) 1813 0 R (page.139) 1819 0 R (page.14) 906 0 R (page.140) 1826 0 R (page.141) 1835 0 R] +/Limits [(page.137) (page.141)] +>> +% 2026 0 obj +<< +/Names [(page.142) 1839 0 R (page.143) 1847 0 R (page.144) 1852 0 R (page.145) 1856 0 R (page.146) 1863 0 R (page.147) 1867 0 R] +/Limits [(page.142) (page.147)] +>> +% 2027 0 obj +<< +/Names [(page.148) 1874 0 R (page.149) 1886 0 R (page.15) 914 0 R (page.150) 1892 0 R (page.151) 1896 0 R (page.152) 1905 0 R] +/Limits [(page.148) (page.152)] +>> +% 2028 0 obj +<< +/Names [(page.16) 922 0 R (page.17) 927 0 R (page.18) 932 0 R (page.19) 936 0 R (page.2) 578 0 R (page.20) 941 0 R] +/Limits [(page.16) (page.20)] +>> +% 2029 0 obj +<< +/Names [(page.21) 945 0 R (page.22) 949 0 R (page.23) 955 0 R (page.24) 961 0 R (page.25) 967 0 R (page.26) 975 0 R] +/Limits [(page.21) (page.26)] +>> +% 2030 0 obj +<< +/Names [(page.27) 981 0 R (page.28) 986 0 R (page.29) 997 0 R (page.3) 783 0 R (page.30) 1003 0 R (page.31) 1012 0 R] +/Limits [(page.27) (page.31)] +>> +% 2031 0 obj +<< +/Names [(page.32) 1020 0 R (page.33) 1036 0 R (page.34) 1041 0 R (page.35) 1048 0 R (page.36) 1053 0 R (page.37) 1066 0 R] +/Limits [(page.32) (page.37)] +>> +% 2032 0 obj +<< +/Names [(page.38) 1075 0 R (page.39) 1080 0 R (page.4) 799 0 R (page.40) 1093 0 R (page.41) 1098 0 R (page.42) 1105 0 R] +/Limits [(page.38) (page.42)] +>> +% 2033 0 obj +<< +/Names [(page.43) 1110 0 R (page.44) 1124 0 R (page.45) 1132 0 R (page.46) 1139 0 R (page.47) 1150 0 R (page.48) 1165 0 R] +/Limits [(page.43) (page.48)] +>> +% 2034 0 obj +<< +/Names [(page.49) 1171 0 R (page.5) 811 0 R (page.50) 1183 0 R (page.51) 1189 0 R (page.52) 1200 0 R (page.53) 1205 0 R] +/Limits [(page.49) (page.53)] +>> +% 2035 0 obj +<< +/Names [(page.54) 1216 0 R (page.55) 1221 0 R (page.56) 1231 0 R (page.57) 1238 0 R (page.58) 1246 0 R (page.59) 1256 0 R] +/Limits [(page.54) (page.59)] +>> +% 2036 0 obj +<< +/Names [(page.6) 816 0 R (page.60) 1269 0 R (page.61) 1277 0 R (page.62) 1290 0 R (page.63) 1298 0 R (page.64) 1302 0 R] +/Limits [(page.6) (page.64)] +>> +% 2037 0 obj +<< +/Names [(page.65) 1317 0 R (page.66) 1325 0 R (page.67) 1331 0 R (page.68) 1341 0 R (page.69) 1345 0 R (page.7) 831 0 R] +/Limits [(page.65) (page.7)] +>> +% 2038 0 obj +<< +/Names [(page.70) 1351 0 R (page.71) 1357 0 R (page.72) 1362 0 R (page.73) 1372 0 R (page.74) 1378 0 R (page.75) 1387 0 R] +/Limits [(page.70) (page.75)] +>> +% 2039 0 obj +<< +/Names [(page.76) 1394 0 R (page.77) 1399 0 R (page.78) 1405 0 R (page.79) 1409 0 R (page.8) 852 0 R (page.80) 1418 0 R] +/Limits [(page.76) (page.80)] +>> +% 2040 0 obj +<< +/Names [(page.81) 1426 0 R (page.82) 1432 0 R (page.83) 1441 0 R (page.84) 1453 0 R (page.85) 1457 0 R (page.86) 1471 0 R] +/Limits [(page.81) (page.86)] +>> +% 2041 0 obj +<< +/Names [(page.87) 1477 0 R (page.88) 1484 0 R (page.89) 1490 0 R (page.9) 863 0 R (page.90) 1494 0 R (page.91) 1503 0 R] +/Limits [(page.87) (page.91)] +>> +% 2042 0 obj +<< +/Names [(page.92) 1510 0 R (page.93) 1514 0 R (page.94) 1519 0 R (page.95) 1523 0 R (page.96) 1530 0 R (page.97) 1535 0 R] +/Limits [(page.92) (page.97)] +>> +% 2043 0 obj +<< +/Names [(page.98) 1542 0 R (page.99) 1548 0 R (page.i) 629 0 R (page.ii) 682 0 R (page.iii) 731 0 R (page.iv) 736 0 R] +/Limits [(page.98) (page.iv)] +>> +% 2044 0 obj +<< +/Names [(precdata) 976 0 R (section*.1) 630 0 R (section*.10) 79 0 R (section*.100) 493 0 R (section*.101) 497 0 R (section*.102) 505 0 R] +/Limits [(precdata) (section*.102)] +>> +% 2045 0 obj +<< +/Names [(section*.103) 509 0 R (section*.104) 513 0 R (section*.105) 517 0 R (section*.106) 521 0 R (section*.107) 525 0 R (section*.108) 533 0 R] +/Limits [(section*.103) (section*.108)] +>> +% 2046 0 obj +<< +/Names [(section*.109) 537 0 R (section*.11) 83 0 R (section*.110) 541 0 R (section*.111) 545 0 R (section*.112) 549 0 R (section*.113) 553 0 R] +/Limits [(section*.109) (section*.113)] +>> +% 2047 0 obj +<< +/Names [(section*.114) 561 0 R (section*.115) 1897 0 R (section*.12) 99 0 R (section*.13) 103 0 R (section*.14) 107 0 R (section*.15) 111 0 R] +/Limits [(section*.114) (section*.15)] +>> +% 2048 0 obj +<< +/Names [(section*.16) 115 0 R (section*.17) 119 0 R (section*.18) 123 0 R (section*.19) 127 0 R (section*.2) 47 0 R (section*.20) 131 0 R] +/Limits [(section*.16) (section*.20)] +>> +% 2049 0 obj +<< +/Names [(section*.21) 135 0 R (section*.22) 139 0 R (section*.23) 143 0 R (section*.24) 147 0 R (section*.25) 151 0 R (section*.26) 155 0 R] +/Limits [(section*.21) (section*.26)] +>> +% 2050 0 obj +<< +/Names [(section*.27) 159 0 R (section*.28) 163 0 R (section*.29) 179 0 R (section*.3) 51 0 R (section*.30) 183 0 R (section*.31) 187 0 R] +/Limits [(section*.27) (section*.31)] +>> +% 2051 0 obj +<< +/Names [(section*.32) 191 0 R (section*.33) 195 0 R (section*.34) 212 0 R (section*.35) 216 0 R (section*.36) 220 0 R (section*.37) 224 0 R] +/Limits [(section*.32) (section*.37)] +>> +% 2052 0 obj +<< +/Names [(section*.38) 228 0 R (section*.39) 232 0 R (section*.4) 55 0 R (section*.40) 236 0 R (section*.41) 240 0 R (section*.42) 244 0 R] +/Limits [(section*.38) (section*.42)] +>> +% 2053 0 obj +<< +/Names [(section*.43) 248 0 R (section*.44) 252 0 R (section*.45) 256 0 R (section*.46) 260 0 R (section*.47) 264 0 R (section*.48) 268 0 R] +/Limits [(section*.43) (section*.48)] +>> +% 2054 0 obj +<< +/Names [(section*.49) 272 0 R (section*.5) 59 0 R (section*.50) 280 0 R (section*.51) 284 0 R (section*.52) 288 0 R (section*.53) 292 0 R] +/Limits [(section*.49) (section*.53)] +>> +% 2055 0 obj +<< +/Names [(section*.54) 300 0 R (section*.55) 304 0 R (section*.56) 308 0 R (section*.57) 312 0 R (section*.58) 316 0 R (section*.59) 320 0 R] +/Limits [(section*.54) (section*.59)] +>> +% 2056 0 obj +<< +/Names [(section*.6) 63 0 R (section*.60) 324 0 R (section*.61) 328 0 R (section*.62) 332 0 R (section*.63) 336 0 R (section*.64) 340 0 R] +/Limits [(section*.6) (section*.64)] +>> +% 2057 0 obj +<< +/Names [(section*.65) 344 0 R (section*.66) 348 0 R (section*.67) 352 0 R (section*.68) 356 0 R (section*.69) 360 0 R (section*.7) 67 0 R] +/Limits [(section*.65) (section*.7)] +>> +% 2058 0 obj +<< +/Names [(section*.70) 364 0 R (section*.71) 368 0 R (section*.72) 372 0 R (section*.73) 376 0 R (section*.74) 380 0 R (section*.75) 384 0 R] +/Limits [(section*.70) (section*.75)] +>> +% 2059 0 obj +<< +/Names [(section*.76) 388 0 R (section*.77) 392 0 R (section*.78) 396 0 R (section*.79) 400 0 R (section*.8) 71 0 R (section*.80) 405 0 R] +/Limits [(section*.76) (section*.80)] +>> +% 2060 0 obj +<< +/Names [(section*.81) 413 0 R (section*.82) 417 0 R (section*.83) 421 0 R (section*.84) 425 0 R (section*.85) 429 0 R (section*.86) 433 0 R] +/Limits [(section*.81) (section*.86)] +>> +% 2061 0 obj +<< +/Names [(section*.87) 437 0 R (section*.88) 441 0 R (section*.89) 445 0 R (section*.9) 75 0 R (section*.90) 449 0 R (section*.91) 453 0 R] +/Limits [(section*.87) (section*.91)] +>> +% 2062 0 obj +<< +/Names [(section*.92) 457 0 R (section*.93) 461 0 R (section*.94) 465 0 R (section*.95) 469 0 R (section*.96) 473 0 R (section*.97) 477 0 R] +/Limits [(section*.92) (section*.97)] +>> +% 2063 0 obj +<< +/Names [(section*.98) 485 0 R (section*.99) 489 0 R (section.1) 7 0 R (section.10) 529 0 R (section.11) 557 0 R (section.2) 11 0 R] +/Limits [(section*.98) (section.2)] +>> +% 2064 0 obj +<< +/Names [(section.3) 35 0 R (section.4) 208 0 R (section.5) 276 0 R (section.6) 296 0 R (section.7) 409 0 R (section.8) 481 0 R] +/Limits [(section.3) (section.8)] +>> +% 2065 0 obj +<< +/Names [(section.9) 501 0 R (spbasedata) 916 0 R (spdata) 915 0 R (subsection.2.1) 15 0 R (subsection.2.2) 19 0 R (subsection.2.3) 23 0 R] +/Limits [(section.9) (subsection.2.3)] +>> +% 2066 0 obj +<< +/Names [(subsection.2.4) 31 0 R (subsection.3.1) 39 0 R (subsection.3.2) 91 0 R (subsection.3.3) 171 0 R (subsection.3.4) 199 0 R (subsection.3.5) 204 0 R] +/Limits [(subsection.2.4) (subsection.3.5)] +>> +% 2067 0 obj +<< +/Names [(subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R (subsubsection.3.1.2) 87 0 R (subsubsection.3.2.1) 95 0 R (subsubsection.3.2.2) 167 0 R (subsubsection.3.3.1) 175 0 R] +/Limits [(subsubsection.2.3.1) (subsubsection.3.3.1)] +>> +% 2068 0 obj +<< +/Names [(table.1) 969 0 R (table.10) 1133 0 R (table.11) 1141 0 R (table.12) 1154 0 R (table.13) 1172 0 R (table.14) 1201 0 R] +/Limits [(table.1) (table.14)] +>> +% 2069 0 obj +<< +/Names [(table.15) 1217 0 R (table.16) 1232 0 R (table.17) 1247 0 R (table.18) 1278 0 R (table.19) 1318 0 R (table.2) 1013 0 R] +/Limits [(table.15) (table.2)] +>> +% 2070 0 obj +<< +/Names [(table.20) 1332 0 R (table.3) 1037 0 R (table.4) 1049 0 R (table.5) 1067 0 R (table.6) 1076 0 R (table.7) 1094 0 R] +/Limits [(table.20) (table.7)] +>> +% 2071 0 obj +<< +/Names [(table.8) 1106 0 R (table.9) 1125 0 R (title.0) 3 0 R (vbasedata) 907 0 R (vdata) 956 0 R] +/Limits [(table.8) (vdata)] +>> +% 2072 0 obj +<< +/Kids [1976 0 R 1977 0 R 1978 0 R 1979 0 R 1980 0 R 1981 0 R] +/Limits [(Doc-Start) (Item.125)] +>> +% 2073 0 obj +<< +/Kids [1982 0 R 1983 0 R 1984 0 R 1985 0 R 1986 0 R 1987 0 R] +/Limits [(Item.126) (Item.42)] +>> +% 2074 0 obj +<< +/Kids [1988 0 R 1989 0 R 1990 0 R 1991 0 R 1992 0 R 1993 0 R] +/Limits [(Item.43) (Item.75)] +>> +% 2075 0 obj +<< +/Kids [1994 0 R 1995 0 R 1996 0 R 1997 0 R 1998 0 R 1999 0 R] +/Limits [(Item.76) (cite.METIS)] +>> +% 2076 0 obj +<< +/Kids [2000 0 R 2001 0 R 2002 0 R 2003 0 R 2004 0 R 2005 0 R] +/Limits [(cite.MPI1) (lstlisting.-20)] +>> +% 2077 0 obj +<< +/Kids [2006 0 R 2008 0 R 2009 0 R 2010 0 R 2011 0 R 2012 0 R] +/Limits [(lstlisting.-3) (lstnumber.-5.1)] +>> +% 2078 0 obj +<< +/Kids [2013 0 R 2014 0 R 2015 0 R 2016 0 R 2017 0 R 2018 0 R] +/Limits [(lstnumber.-5.2) (page.103)] +>> +% 2079 0 obj +<< +/Kids [2019 0 R 2020 0 R 2021 0 R 2022 0 R 2023 0 R 2024 0 R] +/Limits [(page.104) (page.136)] +>> +% 2080 0 obj +<< +/Kids [2025 0 R 2026 0 R 2027 0 R 2028 0 R 2029 0 R 2030 0 R] +/Limits [(page.137) (page.31)] +>> +% 2081 0 obj +<< +/Kids [2031 0 R 2032 0 R 2033 0 R 2034 0 R 2035 0 R 2036 0 R] +/Limits [(page.32) (page.64)] +>> +% 2082 0 obj +<< +/Kids [2037 0 R 2038 0 R 2039 0 R 2040 0 R 2041 0 R 2042 0 R] +/Limits [(page.65) (page.97)] +>> +% 2083 0 obj +<< +/Kids [2043 0 R 2044 0 R 2045 0 R 2046 0 R 2047 0 R 2048 0 R] +/Limits [(page.98) (section*.20)] +>> +% 2084 0 obj +<< +/Kids [2049 0 R 2050 0 R 2051 0 R 2052 0 R 2053 0 R 2054 0 R] +/Limits [(section*.21) (section*.53)] +>> +% 2085 0 obj +<< +/Kids [2055 0 R 2056 0 R 2057 0 R 2058 0 R 2059 0 R 2060 0 R] +/Limits [(section*.54) (section*.86)] +>> +% 2086 0 obj +<< +/Kids [2061 0 R 2062 0 R 2063 0 R 2064 0 R 2065 0 R 2066 0 R] +/Limits [(section*.87) (subsection.3.5)] +>> +% 2087 0 obj +<< +/Kids [2067 0 R 2068 0 R 2069 0 R 2070 0 R 2071 0 R] +/Limits [(subsubsection.2.3.1) (vdata)] +>> +% 2088 0 obj +<< +/Kids [2072 0 R 2073 0 R 2074 0 R 2075 0 R 2076 0 R 2077 0 R] +/Limits [(Doc-Start) (lstnumber.-5.1)] +>> +% 2089 0 obj +<< +/Kids [2078 0 R 2079 0 R 2080 0 R 2081 0 R 2082 0 R 2083 0 R] +/Limits [(lstnumber.-5.2) (section*.20)] +>> +% 2090 0 obj +<< +/Kids [2084 0 R 2085 0 R 2086 0 R 2087 0 R] +/Limits [(section*.21) (vdata)] +>> +% 2091 0 obj +<< +/Kids [2088 0 R 2089 0 R 2090 0 R] +/Limits [(Doc-Start) (vdata)] +>> +% 2092 0 obj +<< +/Dests 2091 0 R +>> +% 2093 0 obj +<< +/Type /Catalog +/Pages 1973 0 R +/Outlines 1974 0 R +/Names 2092 0 R + /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<>2<>6<>]>> +/OpenAction 564 0 R +>> + +endstream +endobj +2095 0 obj +<< +/Type /XRef +/Index [0 2096] +/Size 2096 +/W [1 3 1] +/Root 2093 0 R +/Info 2094 0 R +/ID [ ] +/Length 10480 +>> +stream +ÿ”T·EÜ4·DÜ>·CÜF·BÜR·A  +Ü[·@  :·? :·>:#·=:$·<:D·;:E·::F·9:G·8:K·7:L·6 :M·5!":Q·4#$:R·3%&:T·2'(:U·1)*:\·0+,:]·/-.›·./0›·-12›·,34›·+56›·*78› ·)9:› ·(;<›·'=>›·&?@›·%AB›·$CD›·#EF›·"GH›·!IJ›· KL›"·MN›(·OP›)·QR›*·ST›+·UV›1·WX›2·YZ›3·[\›9·]^›>·_`›?·ab›@·c˼›G·ËË›K·ËË›U·ËË÷·ËË÷·Ë Ë +÷!·Ë Ë ÷2· Ë Ë÷:· ËË÷K· ËË÷V· +ËËf· ËËf +·ËËf·ËËf·ËËf.·ËËfI·ËË fV·Ë!Ë"Ñ·Ë#Ë$Ñ·Ë%Ë&Ñ·Ë'Ë(Ñ(°cË)Ë*ÑI°bË+Ë,ÑU°aË-Ë.Ñb°`Ë/Ë0Ñc°_Ë1Ë2B°^Ë3Ë4B#°]Ë5Ë6B*°\Ë7Ë8B/°[Ë9Ë:B5°ZË;Ë<B@°YË=Ë>BG°XË?Ë@Ba°WËAËB¹ °VËCËD¹°UËEËF¹°TËGËH¹°SËIËJ¹+°RËKËL¹1°QËMËN¹5°PËOËP¹:°OËQËR¹D°NËSËT¹I°MËUËV¹O°LËWËX¹U°KËYËZ¹[°JË[Ë\¹a°IË]Ë^°HË_Ë` °GËaËb°FËc”j‹°E””,°D””0°C””6°B””<°A” ” +C°@” ” G°?” ”K°>””O°=””S°<””W°;””[°:””a°9””…°8””… °7””…°6”” …°5”!”"…°4”#”$…!°3”%”&…(°2”'”(…J°1”)”*…P°0”+”,…V°/”-”.…\°.”/”0…b°-”1”2õ°,”3”4õ +°+”5”6õ°*”7”8õ°)”9”:õ°(”;”<õ$°'”=”>õ*°&”?”@õ0°%”A”Bõ9°$”C”DõD°#”E”FõI°"”G”HõM°!”I”JõS° ”K”LõW°”M”Nõ]°”O”P”Q”U$ê”R”S_M_\_L_T_`”X”V'o”W”Z”[”\”]”^”_”`”a”b”cwwwwwwwwww w +w w w wwwwwwwwwwwwwwwwwww w!w"w#w(w&”Y'øw$w%Ôw)w*w+w,w-w.w/w0w1w2w3w4w5w6w7w8w9w:w;w<w=w>w?w@wAwBwCwDwEwFwGwHwIwJwKwLwMwNwOwPwQwRwSwTwUwVwZwXw'„7wWw[w\w]w^w_w`wawbwcÜÜÜÜÜÜÜÜÜÜ Ü +Ü Ü Ü ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ Ü!Ü%Ü&Ü#wYÔÜ"ûÜ(Ü$^Ü'Ü*Ü+Ü,Ü-Ü.Ü/Ü0Ü1Ü2Ü3Ü5Ü)`Þ_[_a_ __ _!______Ü;Ü<Ü=˜gÜBÜ@Ü6‚`_PÜ?Ü7Ü8Ü9Ü:_ÜCÜDÜIÜA¨ÀÜE_]_V_R_Y_UÜG_WÜH_ÜNÜOà°ÜSÜJË’ÜPÜQÜKÜLÜM__ÜUÜVÜXÜTçZÜW::ÜYüìÜZ_QÜ\Ü]Ü^Ü_Ü`ÜaÜbÜcT–:::Tx::::::: : +: : : ::::_^_b:::rÛ::::::::!:&: H:":%:(:):*:1:'±”:+:,:-:.:/:0:3:4:?:2Ì{:5:6:7:8:9:::;:<:=:>:A:B:H:@àñ:C:N:Iõ|:J_c:V:O:P:S:X:Y:Z:`:W¿:[:^:__:c›:a?j:b<› ›x‘›››› +†x› ››•/›°››§d›››·Œ››#› Lj›!›%›&›-›$ÝM›'›,›0›4›.û£›/›6›7›:›5 +S›8°›V›<›D›B›;Œ›=›A›F›H›C+ô›E__›L›I:x›J›N›O›P›Q›R›S›Y›W›M;R›T›Z›[›]›XXO›\›_›`›a›b›c÷›^bë÷÷°¶o÷÷ ÷¨è÷÷÷÷ ÷ +÷ ÷ ÷÷÷÷÷÷÷÷½÷÷÷÷Þj÷÷÷÷÷#÷á÷ ÷"÷,÷$ü÷%÷&÷'÷(÷)÷*÷+÷.÷/÷0÷4÷-/÷1÷3°÷6÷7÷8÷<÷5'"÷9÷;÷E÷=CK÷>÷?÷@÷A÷B÷C÷D÷G÷H÷I÷M÷FR®÷J÷L÷P÷No¢÷O÷R÷S÷T÷X÷QrO÷U÷W÷a÷Y‹Ê÷Z÷[÷\÷]÷^÷_÷`°÷cfff÷bž ffñcfff fáf f ffff öÊf_Zffffff!ff šffffff"f#f$f%f&f'f(f*f )wf)f,f2f0f+Dôf-f/°f3f4f5f6f7f8f:f1_´f9f<f=f?f;~^f>fAfBfCfDfEfFfGfKf@ÒfHfJfNfL® fMfPfQfRfSfTfZf[fXfO°ºfUfWf]fYÍéf\°f_f`fafbfcÑf^ÓõÑÑø"ÑÑÑ$»ÑÑ +Ñ Ñ ÑÑÑ 'pÑ ÑÑÑÑP¤ÑÑÑCèÑÑÑÑÑÑÑÑ^ÿ’nÑ"Ñ ÀÑ!_XÑ$Ñ%Ñ&Ñ-Ñ#Ì4Ñ'Ñ)Ñ*Ñ+Ñ,°Ñ/zÑ0Ñ1Ñ6Ñ.íµÑ2Ñ3Ñ4Ñ5ÑBÑ9Ñ7âÑ8ÑCÑ:ÿÑAÑ;Ñ<Ñ=Ñ>Ñ?Ñ@#V‡ÑEÑFÑGÑNÑD„ÑHÑJÑKÑLÑMÑQÑO©ÑPÑSÑ[ÑYÑR®øÑTÑVÑWÑX°Ñ\Ñ]Ñ_ÑZÍÉÑ^BÑ`Þ[Ña +[×BBB &ÔBBBB +B @øBB BB  h–B B BBBBBBB s>B° BBB BBBBB B!B%B œB"B$B'B(B+B& ®ØB)B-B0B, »ãB.B2B3B6B1 ÄãB4B;B7 Ü<B8B9B:° +B=B>BDB< â°B?BABBBCBJBHBE öBFBKBLBSBI + ŒBMBNBOBPBQBRB\BT +)BUBVBWBXBYBZB[B^B_BbB] +8B`¹Bc +RÒ¹¹¹¹¹¹¹°  ˆœ¹ ¹ +¹ ¹ +…3¹ ¹¹¹¹ +‘|¹¹¹¹¹¹ +¡P¹¹¹¹ ¹ +µ„¹¹%¹! +Ðb¹"¹#¹$¹'¹(¹)¹,¹& +Ôú¹*° ¹.¹/¹2¹- +é–¹0¹6¹3 +÷¹4¹8¹;¹7 °¹9¹@¹< €¹=¹>¹?¹B¹E¹A !q¹C¹G¹K¹F 8¹H¹J° ¹M¹Q¹L E¹N¹P¹S¹W¹R XιT¹V¹Y¹]¹X e³¹Z¹\¹_¹^ yq¹`¹b¹c Ä  ²    Á$ +°  ×ù æ¶ ÷) Ú !"#$%&'(-* )j+3. *b/12°94 @^578@: Rº;=>?DA cûBHE l¨FLI x±JPM } N°TQ ƒ©RXU ‰3V^Y ›8Z\]…_ ¯Ä`bc ÅÔ…… éY………… … ýÕ…… +… °……  ‰…………… '_………_O……… ?á………#… U… …"…%…&…)…$ j<…'…E…F…G…* ƒ€…+…,…-_N….…/…0…1…2…3…4…5…6…7…8…9…:…;…<…=…>…?…@…A…B…C…D°…M…H Ÿñ…I…K…L…S…N ®¹…O…Q…R…Y…T ´l…U…W…X…_…Z » …[…]…^…c…` Ã}…aõõõ çÓõõõ÷Ó°õõ õ úÈõ õ õ õõõ|õõõõõõõõõõ!õ,³õõõ õ'õ"=@õ#õ%õ&õ+õ(J¡õ)°õ-õ.õ2õ,Ošõ/õ1õ4õ5õ6õ7õ:õ3c¸õ8õ=õ;‚<õ<õ?õ@õAõBõEõ>†ÂõCõGõJõFÖõHõNõK©‹õL°õPõQõTõO­¥õRõXõU¸ŒõVõZõ[_õbõY»õ\õ^õ_õ`õa_S____õcÛÇ_`í__ _" ___ +4Š_ _ ___°_#_P-__"_$_%_&_'_(_)_*_+_,_-_._/_0_1_2_3_4_5_6_7\ž_8´Þ_9c_:*ê_;H¡_<Š1_=¨/_>΢_?î_@SÀ_As­_B•ˆ_C×1_D÷_E>¢_F\C_G¬_HÛ}_I)_J9=_K°²°°°°°°Û²·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×L×M×N×O×P×Q×R×S×T×U×V ­M~ endstream endobj startxref -1297998 +1330558 %%EOF diff --git a/docs/src/psbrout.tex b/docs/src/psbrout.tex index d82880934..f10630682 100644 --- a/docs/src/psbrout.tex +++ b/docs/src/psbrout.tex @@ -1244,8 +1244,219 @@ Intent: {\bf out}.\\ An integer value; 0 means no error has been detected. \end{description} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% VECTOR VECTOR OPERATIONS +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\clearpage\subsection*{psb\_gemlt --- Entrywise Product} +\addcontentsline{toc}{subsection}{psb\_gemlt} + +This function computes the entrywise product between two vectors $x$ and +$y$ +\[dot \leftarrow x(i) y(i).\] + +\begin{verbatim} +psb_gemlt(x, y, desc_a, info) +\end{verbatim} +%% \syntax*{psb\_gedot}{x, y, desc\_a, info, jx, jy} +\begin{table}[h] + \begin{center} + \begin{tabular}{ll} + \hline + $dot$, $x$, $y$ & {\bf Function}\\ + \hline + Short Precision Real & psb\_gemlt \\ + Long Precision Real & psb\_gemlt \\ + Short Precision Complex & psb\_gemlt \\ + Long Precision Complex & psb\_gemlt \\ + \hline + \end{tabular} + \end{center} + \caption{Data types\label{tab:f90mlt}} +\end{table} + +\begin{description} + \item[Type:] Synchronous. + \item[\bf On Entry] + \item[x] the local portion of global dense vector + $x$.\\ + %% This function computes the location of the first element of + %% local subarray used, based on $jx$ and the field $matrix\_data$ of $desc\_a$ . \\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf in}.\\ + Specified as: an object of type \vdata\ + containing numbers of type specified in + Table~\ref{tab:f90dot}. + \item[y] the local portion of global dense vector + $y$. \\ + %% This function computes the location of the first element of + %% local subarray used, based on $iy, jy$ and the field $matrix\_data$ of $desc\_a$ . \\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf in}.\\ + Specified as: an object of type \vdata\ + containing numbers of type specified in + Table~\ref{tab:f90dot}. + \item[desc\_a] contains data structures for communications.\\ + Scope: {\bf local} \\ + Type: {\bf required}\\ + Intent: {\bf in}.\\ + Specified as: an object of type \descdata. + \item[\bf On Return] + \item[y] the local portion of result submatrix $y$.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf inout}.\\ + Specified as: an object of type \vdata\ containing numbers of the type + indicated in Table~\ref{tab:f90mlt}. + \item[info] Error code.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf out}.\\ + An integer value; 0 means no error has been detected. +\end{description} + +\clearpage\subsection*{psb\_gediv --- Entrywise Division} +\addcontentsline{toc}{subsection}{psb\_gediv} + +This function computes the entrywise division between two vectors $x$ and +$y$ +\[/ \leftarrow x(i)/y(i).\] + +\begin{verbatim} +psb_gediv(x, y, desc_a, info, [flag) +\end{verbatim} +%% \syntax*{psb\_gedot}{x, y, desc\_a, info, jx, jy} +\begin{table}[h] + \begin{center} + \begin{tabular}{ll} + \hline + $/$, $x$, $y$ & {\bf Function}\\ + \hline + Short Precision Real & psb\_gediv \\ + Long Precision Real & psb\_gediv \\ + Short Precision Complex & psb\_gediv \\ + Long Precision Complex & psb\_gediv \\ + \hline + \end{tabular} + \end{center} + \caption{Data types\label{tab:f90div}} +\end{table} + +\begin{description} + \item[Type:] Synchronous. + \item[\bf On Entry] + \item[x] the local portion of global dense vector + $x$.\\ + %% This function computes the location of the first element of + %% local subarray used, based on $jx$ and the field $matrix\_data$ of $desc\_a$ . \\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf in}.\\ + Specified as: an object of type \vdata\ + containing numbers of type specified in + Table~\ref{tab:f90dot}. + \item[y] the local portion of global dense vector + $y$. \\ + %% This function computes the location of the first element of + %% local subarray used, based on $iy, jy$ and the field $matrix\_data$ of $desc\_a$ . \\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf in}.\\ + Specified as: an object of type \vdata\ + containing numbers of type specified in + Table~\ref{tab:f90dot}. + \item[desc\_a] contains data structures for communications.\\ + Scope: {\bf local} \\ + Type: {\bf required}\\ + Intent: {\bf in}.\\ + Specified as: an object of type \descdata. + \item[flag] check if any of the $y(i) = 0$, and in case returns error halting the computation.\\ + Scope: {\bf local} \\ + Type: {\bf optional} + Intent: {\bf in}.\\ + Specified as: the logical value \verb|flag=.true.| + \item[\bf On Return] + \item[x] the local portion of result submatrix $x$.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf inout}.\\ + Specified as: an object of type \vdata\ containing numbers of the type + indicated in Table~\ref{tab:f90mlt}. + \item[info] Error code.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf out}.\\ + An integer value; 0 means no error has been detected. +\end{description} + +\clearpage\subsection*{psb\_geinv --- Entrywise Inversion} +\addcontentsline{toc}{subsection}{psb\_geinv} + +This function computes the entrywise inverse of a vector $x$ and puts it into +$y$ +\[/ \leftarrow 1/x(i).\] + +\begin{verbatim} +psb_geinv(x, y, desc_a, info, [flag) +\end{verbatim} +%% \syntax*{psb\_gedot}{x, y, desc\_a, info, jx, jy} +\begin{table}[h] + \begin{center} + \begin{tabular}{ll} + \hline + $/$, $x$, $y$ & {\bf Function}\\ + \hline + Short Precision Real & psb\_geinv \\ + Long Precision Real & psb\_geinv \\ + Short Precision Complex & psb\_geinv \\ + Long Precision Complex & psb\_geinv \\ + \hline + \end{tabular} + \end{center} + \caption{Data types\label{tab:f90inv}} +\end{table} + +\begin{description} + \item[Type:] Synchronous. + \item[\bf On Entry] + \item[x] the local portion of global dense vector + $x$.\\ + %% This function computes the location of the first element of + %% local subarray used, based on $jx$ and the field $matrix\_data$ of $desc\_a$ . \\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf in}.\\ + Specified as: an object of type \vdata\ + containing numbers of type specified in + Table~\ref{tab:f90dot}. + \item[desc\_a] contains data structures for communications.\\ + Scope: {\bf local} \\ + Type: {\bf required}\\ + Intent: {\bf in}.\\ + Specified as: an object of type \descdata. + \item[flag] check if any of the $x(i) = 0$, and in case returns error halting the computation.\\ + Scope: {\bf local} \\ + Type: {\bf optional} + Intent: {\bf in}.\\ + Specified as: the logical value \verb|flag=.true.| + \item[\bf On Return] + \item[y] the local portion of result submatrix $x$.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf out}.\\ + Specified as: an object of type \vdata\ containing numbers of the type + indicated in Table~\ref{tab:f90inv}. + \item[info] Error code.\\ + Scope: {\bf local} \\ + Type: {\bf required} \\ + Intent: {\bf out}.\\ + An integer value; 0 means no error has been detected. +\end{description} %%% Local Variables: %%% mode: latex diff --git a/docs/src/userguide.pdf b/docs/src/userguide.pdf new file mode 120000 index 000000000..7b032aa3e --- /dev/null +++ b/docs/src/userguide.pdf @@ -0,0 +1 @@ +tmp/userguide.pdf \ No newline at end of file From c1f3b2d9d4a5ac3ba14c06678e2d7d2332163b79 Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Thu, 21 Nov 2019 13:57:11 +0100 Subject: [PATCH 05/61] Added entrywise inversion and documentation for vec-vec operation --- base/modules/psblas/psb_c_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 20 +++ base/modules/serial/psb_c_base_vect_mod.f90 | 111 ++++++++++++ base/modules/serial/psb_c_vect_mod.F90 | 63 +++++++ base/modules/serial/psb_d_base_vect_mod.f90 | 111 ++++++++++++ base/modules/serial/psb_d_vect_mod.F90 | 63 +++++++ base/modules/serial/psb_s_base_vect_mod.f90 | 111 ++++++++++++ base/modules/serial/psb_s_vect_mod.F90 | 63 +++++++ base/modules/serial/psb_z_base_vect_mod.f90 | 111 ++++++++++++ base/modules/serial/psb_z_vect_mod.F90 | 63 +++++++ base/psblas/Makefile | 3 +- base/psblas/psb_cinv_vect.f90 | 179 ++++++++++++++++++++ base/psblas/psb_dinv_vect.f90 | 179 ++++++++++++++++++++ base/psblas/psb_sinv_vect.f90 | 179 ++++++++++++++++++++ base/psblas/psb_zinv_vect.f90 | 179 ++++++++++++++++++++ test/kernel/vecoperation.f90 | 17 +- 18 files changed, 1508 insertions(+), 4 deletions(-) create mode 100644 base/psblas/psb_cinv_vect.f90 create mode 100644 base/psblas/psb_dinv_vect.f90 create mode 100644 base/psblas/psb_sinv_vect.f90 create mode 100644 base/psblas/psb_zinv_vect.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 8e9a286a0..a4b78538b 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -459,4 +459,24 @@ module psb_c_psblas_mod end subroutine psb_cdiv_vect_check end interface + interface psb_geinv + subroutine psb_cinv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cinv_vect + subroutine psb_cinv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_cinv_vect_check + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 993ac5422..c605e9a8b 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -459,4 +459,24 @@ module psb_d_psblas_mod end subroutine psb_ddiv_vect_check end interface + interface psb_geinv + subroutine psb_dinv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dinv_vect + subroutine psb_dinv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_dinv_vect_check + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 1a2347d1a..8abcbaf94 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -459,4 +459,24 @@ module psb_s_psblas_mod end subroutine psb_sdiv_vect_check end interface + interface psb_geinv + subroutine psb_sinv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_sinv_vect + subroutine psb_sinv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_sinv_vect_check + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 7fd96c4ce..d284a5244 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -459,4 +459,24 @@ module psb_z_psblas_mod end subroutine psb_zdiv_vect_check end interface + interface psb_geinv + subroutine psb_zinv_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zinv_vect + subroutine psb_zinv_vect_check(x,y,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_zinv_vect_check + end interface + end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 3927a60b1..6bf54df02 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -171,6 +171,11 @@ module psb_c_base_vect_mod procedure, pass(z) :: div_a2 => c_base_div_a2 procedure, pass(z) :: div_a2_check => c_base_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => c_base_inv_v + procedure, pass(y) :: inv_v_check => c_base_inv_v_check + procedure, pass(y) :: inv_a2 => c_base_inv_a2 + procedure, pass(y) :: inv_a2_check => c_base_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check ! ! Scaling and norms ! @@ -1290,6 +1295,112 @@ contains end subroutine c_base_div_a2_check + ! + !> Function base_inv_v + !! \memberof psb_c_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + subroutine c_base_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info) + + + end subroutine c_base_inv_v + ! + !> Function base_inv_v_check + !! \memberof psb_c_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + subroutine c_base_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info,flag) + + + end subroutine c_base_inv_v_check + ! + !> Function base_inv_a2 + !! \memberof psb_c_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + ! + subroutine c_base_inv_a2(x, y, info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: y + complex(psb_spk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + y%v(i) = 1_psb_spk_/x(i) + end do + + end subroutine c_base_inv_a2 + ! + !> Function base_inv_a2_check + !! \memberof psb_c_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + ! + subroutine c_base_inv_a2_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: y + complex(psb_spk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + + if (flag .eqv. .false.) then + call c_base_inv_a2(x, y, info) + else + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + if (x(i) /= 0) then + y%v(i) = 1_psb_spk_/x(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine c_base_inv_a2_check ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index d4eb5a2a4..f4fc08736 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -99,6 +99,11 @@ module psb_c_vect_mod procedure, pass(z) :: div_a2 => c_vect_div_a2 procedure, pass(z) :: div_a2_check => c_vect_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => c_vect_inv_v + procedure, pass(y) :: inv_v_check => c_vect_inv_v_check + procedure, pass(y) :: inv_a2 => c_vect_inv_a2 + procedure, pass(y) :: inv_a2_check => c_vect_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check procedure, pass(x) :: scal => c_vect_scal procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 @@ -792,6 +797,64 @@ contains end subroutine c_vect_div_a2_check + subroutine c_vect_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info) + + end subroutine c_vect_inv_v + + subroutine c_vect_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info,flag) + + end subroutine c_vect_inv_v_check + + subroutine c_vect_inv_a2(x, y, info) + use psi_serial_mod + implicit none + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info) + + end subroutine c_vect_inv_a2 + + subroutine c_vect_inv_a2_check(x, y, info,flag) + use psi_serial_mod + implicit none + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info,flag) + + end subroutine c_vect_inv_a2_check + subroutine c_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 3d00bbef8..46ec3413c 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -171,6 +171,11 @@ module psb_d_base_vect_mod procedure, pass(z) :: div_a2 => d_base_div_a2 procedure, pass(z) :: div_a2_check => d_base_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => d_base_inv_v + procedure, pass(y) :: inv_v_check => d_base_inv_v_check + procedure, pass(y) :: inv_a2 => d_base_inv_a2 + procedure, pass(y) :: inv_a2_check => d_base_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check ! ! Scaling and norms ! @@ -1290,6 +1295,112 @@ contains end subroutine d_base_div_a2_check + ! + !> Function base_inv_v + !! \memberof psb_d_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + subroutine d_base_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info) + + + end subroutine d_base_inv_v + ! + !> Function base_inv_v_check + !! \memberof psb_d_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + subroutine d_base_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info,flag) + + + end subroutine d_base_inv_v_check + ! + !> Function base_inv_a2 + !! \memberof psb_d_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + ! + subroutine d_base_inv_a2(x, y, info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: y + real(psb_dpk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + y%v(i) = 1_psb_dpk_/x(i) + end do + + end subroutine d_base_inv_a2 + ! + !> Function base_inv_a2_check + !! \memberof psb_d_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + ! + subroutine d_base_inv_a2_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: y + real(psb_dpk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + + if (flag .eqv. .false.) then + call d_base_inv_a2(x, y, info) + else + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + if (x(i) /= 0) then + y%v(i) = 1_psb_dpk_/x(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine d_base_inv_a2_check ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index e7cf67573..4c74b8426 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -99,6 +99,11 @@ module psb_d_vect_mod procedure, pass(z) :: div_a2 => d_vect_div_a2 procedure, pass(z) :: div_a2_check => d_vect_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => d_vect_inv_v + procedure, pass(y) :: inv_v_check => d_vect_inv_v_check + procedure, pass(y) :: inv_a2 => d_vect_inv_a2 + procedure, pass(y) :: inv_a2_check => d_vect_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check procedure, pass(x) :: scal => d_vect_scal procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 @@ -792,6 +797,64 @@ contains end subroutine d_vect_div_a2_check + subroutine d_vect_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info) + + end subroutine d_vect_inv_v + + subroutine d_vect_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info,flag) + + end subroutine d_vect_inv_v_check + + subroutine d_vect_inv_a2(x, y, info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info) + + end subroutine d_vect_inv_a2 + + subroutine d_vect_inv_a2_check(x, y, info,flag) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info,flag) + + end subroutine d_vect_inv_a2_check + subroutine d_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index bf229956f..3c68d56f7 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -171,6 +171,11 @@ module psb_s_base_vect_mod procedure, pass(z) :: div_a2 => s_base_div_a2 procedure, pass(z) :: div_a2_check => s_base_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => s_base_inv_v + procedure, pass(y) :: inv_v_check => s_base_inv_v_check + procedure, pass(y) :: inv_a2 => s_base_inv_a2 + procedure, pass(y) :: inv_a2_check => s_base_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check ! ! Scaling and norms ! @@ -1290,6 +1295,112 @@ contains end subroutine s_base_div_a2_check + ! + !> Function base_inv_v + !! \memberof psb_s_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + subroutine s_base_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info) + + + end subroutine s_base_inv_v + ! + !> Function base_inv_v_check + !! \memberof psb_s_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + subroutine s_base_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info,flag) + + + end subroutine s_base_inv_v_check + ! + !> Function base_inv_a2 + !! \memberof psb_s_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + ! + subroutine s_base_inv_a2(x, y, info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: y + real(psb_spk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + y%v(i) = 1_psb_spk_/x(i) + end do + + end subroutine s_base_inv_a2 + ! + !> Function base_inv_a2_check + !! \memberof psb_s_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + ! + subroutine s_base_inv_a2_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: y + real(psb_spk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + + if (flag .eqv. .false.) then + call s_base_inv_a2(x, y, info) + else + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + if (x(i) /= 0) then + y%v(i) = 1_psb_spk_/x(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine s_base_inv_a2_check ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 225194563..38478c430 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -99,6 +99,11 @@ module psb_s_vect_mod procedure, pass(z) :: div_a2 => s_vect_div_a2 procedure, pass(z) :: div_a2_check => s_vect_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => s_vect_inv_v + procedure, pass(y) :: inv_v_check => s_vect_inv_v_check + procedure, pass(y) :: inv_a2 => s_vect_inv_a2 + procedure, pass(y) :: inv_a2_check => s_vect_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check procedure, pass(x) :: scal => s_vect_scal procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 @@ -792,6 +797,64 @@ contains end subroutine s_vect_div_a2_check + subroutine s_vect_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info) + + end subroutine s_vect_inv_v + + subroutine s_vect_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info,flag) + + end subroutine s_vect_inv_v_check + + subroutine s_vect_inv_a2(x, y, info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info) + + end subroutine s_vect_inv_a2 + + subroutine s_vect_inv_a2_check(x, y, info,flag) + use psi_serial_mod + implicit none + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info,flag) + + end subroutine s_vect_inv_a2_check + subroutine s_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 91663600c..b87e16a68 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -171,6 +171,11 @@ module psb_z_base_vect_mod procedure, pass(z) :: div_a2 => z_base_div_a2 procedure, pass(z) :: div_a2_check => z_base_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => z_base_inv_v + procedure, pass(y) :: inv_v_check => z_base_inv_v_check + procedure, pass(y) :: inv_a2 => z_base_inv_a2 + procedure, pass(y) :: inv_a2_check => z_base_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check ! ! Scaling and norms ! @@ -1290,6 +1295,112 @@ contains end subroutine z_base_div_a2_check + ! + !> Function base_inv_v + !! \memberof psb_z_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + subroutine z_base_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info) + + + end subroutine z_base_inv_v + ! + !> Function base_inv_v_check + !! \memberof psb_z_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x The vector to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + subroutine z_base_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (y%is_dev()) call y%sync() + call y%inv(x%v,info,flag) + + + end subroutine z_base_inv_v_check + ! + !> Function base_inv_a2 + !! \memberof psb_z_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + ! + subroutine z_base_inv_a2(x, y, info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: y + complex(psb_dpk_), intent(in) :: x(:) + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + y%v(i) = 1_psb_dpk_/x(i) + end do + + end subroutine z_base_inv_a2 + ! + !> Function base_inv_a2_check + !! \memberof psb_z_base_vect_type + !! \brief Compute the entry-by-entry inverse of x and put it in y, with 0 check + !! \param x(:) The array to be inverted + !! \param y The vector containing the inverted vector + !! \param info return code + !! \param flag if true does the check, otherwise call base_inv_v + ! + subroutine z_base_inv_a2_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: y + complex(psb_dpk_), intent(inout) :: x(:) + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + integer(psb_ipk_) :: i, n + + if (flag .eqv. .false.) then + call z_base_inv_a2(x, y, info) + else + info = 0 + if (y%is_dev()) call y%sync() + + n = size(x) + do i=1, n + if (x(i) /= 0) then + y%v(i) = 1_psb_dpk_/x(i) + else + info = 1 + exit + end if + end do + end if + + + end subroutine z_base_inv_a2_check ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index f5e4f31ae..be48d0db2 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -99,6 +99,11 @@ module psb_z_vect_mod procedure, pass(z) :: div_a2 => z_vect_div_a2 procedure, pass(z) :: div_a2_check => z_vect_div_a2_check generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + procedure, pass(y) :: inv_v => z_vect_inv_v + procedure, pass(y) :: inv_v_check => z_vect_inv_v_check + procedure, pass(y) :: inv_a2 => z_vect_inv_a2 + procedure, pass(y) :: inv_a2_check => z_vect_inv_a2_check + generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check procedure, pass(x) :: scal => z_vect_scal procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 @@ -792,6 +797,64 @@ contains end subroutine z_vect_div_a2_check + subroutine z_vect_inv_v(x, y, info) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info) + + end subroutine z_vect_inv_v + + subroutine z_vect_inv_v_check(x, y, info, flag) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & call y%v%inv(x%v,info,flag) + + end subroutine z_vect_inv_v_check + + subroutine z_vect_inv_a2(x, y, info) + use psi_serial_mod + implicit none + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info) + + end subroutine z_vect_inv_a2 + + subroutine z_vect_inv_a2_check(x, y, info,flag) + use psi_serial_mod + implicit none + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_vect_type), intent(inout) :: y + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(y%v)) & + & call y%v%inv(x,info,flag) + + end subroutine z_vect_inv_a2_check + subroutine z_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 6e1b1a70a..781f454a0 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -11,7 +11,8 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_camax.o psb_casum.o psb_caxpby.o psb_cdot.o \ psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o \ psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ - psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o + psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\ + psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o LIBDIR=.. diff --git a/base/psblas/psb_cinv_vect.f90 b/base/psblas/psb_cinv_vect.f90 new file mode 100644 index 000000000..1df47904c --- /dev/null +++ b/base/psblas/psb_cinv_vect.f90 @@ -0,0 +1,179 @@ +! +! 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_cinv_vect + +subroutine psb_cinv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cinv_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_inv_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cinv_vect + +subroutine psb_cinv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_cinv_vect_check + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_inv_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cinv_vect_check diff --git a/base/psblas/psb_dinv_vect.f90 b/base/psblas/psb_dinv_vect.f90 new file mode 100644 index 000000000..0ce370b4d --- /dev/null +++ b/base/psblas/psb_dinv_vect.f90 @@ -0,0 +1,179 @@ +! +! 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_dinv_vect + +subroutine psb_dinv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dinv_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_inv_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dinv_vect + +subroutine psb_dinv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_dinv_vect_check + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_inv_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dinv_vect_check diff --git a/base/psblas/psb_sinv_vect.f90 b/base/psblas/psb_sinv_vect.f90 new file mode 100644 index 000000000..6925d066b --- /dev/null +++ b/base/psblas/psb_sinv_vect.f90 @@ -0,0 +1,179 @@ +! +! 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_sinv_vect + +subroutine psb_sinv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_sinv_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_inv_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sinv_vect + +subroutine psb_sinv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_sinv_vect_check + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_inv_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sinv_vect_check diff --git a/base/psblas/psb_zinv_vect.f90 b/base/psblas/psb_zinv_vect.f90 new file mode 100644 index 000000000..7b36f6b08 --- /dev/null +++ b/base/psblas/psb_zinv_vect.f90 @@ -0,0 +1,179 @@ +! +! 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_zinv_vect + +subroutine psb_zinv_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zinv_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_inv_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zinv_vect + +subroutine psb_zinv_vect_check(x,y,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_zinv_vect_check + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_inv_vect_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%div(x,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zinv_vect_check diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index e9cc88a8d..a76049cfb 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -46,7 +46,7 @@ program vecoperation ! descriptor type(psb_desc_type) :: desc_a ! vector - type(psb_d_vect_type) :: x,y + type(psb_d_vect_type) :: x,y,z ! blacs parameters integer(psb_ipk_) :: ictxt, iam, np ! other variables @@ -55,7 +55,7 @@ program vecoperation integer(psb_lpk_), allocatable :: myidx(:) real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf character(len=20) :: name,ch_err,readinput - real(psb_dpk_), allocatable :: vx(:), vy(:) + real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) info=psb_success_ @@ -113,6 +113,7 @@ program vecoperation ! Allocate memory call psb_geall(x,desc_a,info) call psb_geall(y,desc_a,info) + call psb_geall(z,desc_a,info) ! Put entries into the vectors do ii=1,nlr zt(1) = 1.0 @@ -159,6 +160,7 @@ program vecoperation call psb_geaxpby(1.0_psb_dpk_, x, 1.0_psb_dpk_, y, desc_a, info) ! \alpha x + \beta y if (iam == psb_root_) then + write(psb_out_unit,'("axpby : x + y")') vx = x%get_vect() write(psb_out_unit,'("x = ",es12.1)')vx(:) vy = y%get_vect() @@ -168,6 +170,7 @@ program vecoperation call psb_gemlt(x,y,desc_a,info) if (iam == psb_root_) then + write(psb_out_unit,'("mlt : y = x*y ")') vx = x%get_vect() write(psb_out_unit,'("x = ",es12.1)')vx(:) vy = y%get_vect() @@ -177,14 +180,22 @@ program vecoperation call psb_gediv(x,y,desc_a,info) if (iam == psb_root_) then + write(psb_out_unit,'("div : x = x/y")') vx = x%get_vect() write(psb_out_unit,'("x = ",es12.1)')vx(:) vy = y%get_vect() write(psb_out_unit,'("y = ",es12.1)')vy(:) end if + call psb_geinv(x,z,desc_a,info) - + if (iam == psb_root_) then + write(psb_out_unit,'("inv : z = 1/x")') + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vz = z%get_vect() + write(psb_out_unit,'("z = ",es12.1)')vy(:) + end if ! ! cleanup storage and exit From d4fc54e75aceb74d8133502f6bbcfae11eab0d9f Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Fri, 22 Nov 2019 09:46:53 +0100 Subject: [PATCH 06/61] Corrected error in inv_vect implementation --- base/psblas/Makefile | 3 +-- base/psblas/psb_cinv_vect.f90 | 4 ++-- base/psblas/psb_dinv_vect.f90 | 4 ++-- base/psblas/psb_sinv_vect.f90 | 4 ++-- base/psblas/psb_zinv_vect.f90 | 4 ++-- 5 files changed, 9 insertions(+), 10 deletions(-) diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 781f454a0..29d78acc8 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -12,8 +12,7 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_cnrm2.o psb_cnrmi.o psb_cspmm.o psb_cspsm.o \ psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\ - psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o - + psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\ LIBDIR=.. INCDIR=.. diff --git a/base/psblas/psb_cinv_vect.f90 b/base/psblas/psb_cinv_vect.f90 index 1df47904c..f7285e0c2 100644 --- a/base/psblas/psb_cinv_vect.f90 +++ b/base/psblas/psb_cinv_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_cinv_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info) + call y%inv(x,info) end if call psb_erractionrestore(err_act) @@ -166,7 +166,7 @@ subroutine psb_cinv_vect_check(x,y,desc_a,info,flag) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info,flag) + call y%inv(x,info,flag) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_dinv_vect.f90 b/base/psblas/psb_dinv_vect.f90 index 0ce370b4d..787f4cab9 100644 --- a/base/psblas/psb_dinv_vect.f90 +++ b/base/psblas/psb_dinv_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_dinv_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info) + call y%inv(x,info) end if call psb_erractionrestore(err_act) @@ -166,7 +166,7 @@ subroutine psb_dinv_vect_check(x,y,desc_a,info,flag) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info,flag) + call y%inv(x,info,flag) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_sinv_vect.f90 b/base/psblas/psb_sinv_vect.f90 index 6925d066b..0be53a706 100644 --- a/base/psblas/psb_sinv_vect.f90 +++ b/base/psblas/psb_sinv_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_sinv_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info) + call y%inv(x,info) end if call psb_erractionrestore(err_act) @@ -166,7 +166,7 @@ subroutine psb_sinv_vect_check(x,y,desc_a,info,flag) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info,flag) + call y%inv(x,info,flag) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_zinv_vect.f90 b/base/psblas/psb_zinv_vect.f90 index 7b36f6b08..4e61379c3 100644 --- a/base/psblas/psb_zinv_vect.f90 +++ b/base/psblas/psb_zinv_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_zinv_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info) + call y%inv(x,info) end if call psb_erractionrestore(err_act) @@ -166,7 +166,7 @@ subroutine psb_zinv_vect_check(x,y,desc_a,info,flag) end if if(desc_a%get_local_rows() > 0) then - call y%div(x,info,flag) + call y%inv(x,info,flag) end if call psb_erractionrestore(err_act) From fcbe0d620ab8f697f57bfa2d1bb0df649052779d Mon Sep 17 00:00:00 2001 From: cirdans-home Date: Thu, 28 Nov 2019 11:32:37 +0100 Subject: [PATCH 07/61] Added vector/scalar comparison routine --- base/modules/psblas/psb_c_psblas_mod.F90 | 1 + base/modules/psblas/psb_d_psblas_mod.F90 | 12 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 12 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 1 + base/modules/serial/psb_c_base_vect_mod.f90 | 3 +- base/modules/serial/psb_c_vect_mod.F90 | 6 ++ base/modules/serial/psb_d_base_vect_mod.f90 | 57 +++++++++++ base/modules/serial/psb_d_vect_mod.F90 | 36 +++++++ base/modules/serial/psb_i_base_vect_mod.f90 | 1 + base/modules/serial/psb_i_vect_mod.F90 | 5 + base/modules/serial/psb_l_base_vect_mod.f90 | 1 + base/modules/serial/psb_l_vect_mod.F90 | 5 + base/modules/serial/psb_s_base_vect_mod.f90 | 57 +++++++++++ base/modules/serial/psb_s_vect_mod.F90 | 36 +++++++ base/modules/serial/psb_z_base_vect_mod.f90 | 3 +- base/modules/serial/psb_z_vect_mod.F90 | 6 ++ base/psblas/Makefile | 1 + base/psblas/psb_dcmp_vect.f90 | 105 ++++++++++++++++++++ base/psblas/psb_scmp_vect.f90 | 105 ++++++++++++++++++++ test/kernel/vecoperation.f90 | 14 ++- 20 files changed, 462 insertions(+), 5 deletions(-) create mode 100644 base/psblas/psb_dcmp_vect.f90 create mode 100644 base/psblas/psb_scmp_vect.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index a4b78538b..52b909aba 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -479,4 +479,5 @@ module psb_c_psblas_mod end subroutine psb_cinv_vect_check end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index c605e9a8b..1407cbb65 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -479,4 +479,16 @@ module psb_d_psblas_mod end subroutine psb_dinv_vect_check end interface + interface psb_gecmp + subroutine psb_dcmp_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dcmp_vect + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 8abcbaf94..e1a62206c 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -479,4 +479,16 @@ module psb_s_psblas_mod end subroutine psb_sinv_vect_check end interface + interface psb_gecmp + subroutine psb_scmp_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_scmp_vect + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index d284a5244..ee8f44e98 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -479,4 +479,5 @@ module psb_z_psblas_mod end subroutine psb_zinv_vect_check end interface + end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 6bf54df02..0eca0832b 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -187,6 +187,7 @@ module psb_c_base_vect_mod procedure, pass(x) :: amax => c_base_amax procedure, pass(x) :: asum => c_base_asum + end type psb_c_base_vect_type public :: psb_c_base_vect @@ -1401,8 +1402,6 @@ contains end subroutine c_base_inv_a2_check - - ! ! Simple scaling ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index f4fc08736..bc65eb964 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -135,6 +135,11 @@ module psb_c_vect_mod & c_vect_absval2, c_vect_nrm2, c_vect_amax, c_vect_asum +! @NOTCPLXS@ +! @NOTINTS@ +! private :: c_vect_cmp_a2, c_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_c_base_vect_type), allocatable, target,& & save, private :: psb_c_base_vect_default @@ -855,6 +860,7 @@ contains end subroutine c_vect_inv_a2_check + subroutine c_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 46ec3413c..dc0c56aa7 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -187,6 +187,13 @@ module psb_d_base_vect_mod procedure, pass(x) :: amax => d_base_amax procedure, pass(x) :: asum => d_base_asum + ! + ! Comparison and mask operation + ! + procedure, pass(z) :: cmp_a2 => d_base_cmp_a2 + procedure, pass(z) :: cmp_v2 => d_base_cmp_v2 + generic, public :: cmp => cmp_a2,cmp_v2 + end type psb_d_base_vect_type public :: psb_d_base_vect @@ -1401,8 +1408,58 @@ contains end subroutine d_base_inv_a2_check + ! + !> Function base_inv_a2_check + !! \memberof psb_d_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The array to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine d_base_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + if (z%is_dev()) call z%sync() + n = size(x) + do i = 1, n, 1 + if ( abs(x(i)).ge.c ) then + z%v(i) = 1_psb_dpk_ + else + z%v(i) = 0_psb_dpk_ + end if + end do + info = 0 + + end subroutine d_base_cmp_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_d_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The vector to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine d_base_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: c + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%cmp(x%v,c,info) + end subroutine d_base_cmp_v2 ! ! Simple scaling ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 4c74b8426..be322f9ce 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -111,6 +111,9 @@ module psb_d_vect_mod procedure, pass(x) :: nrm2 => d_vect_nrm2 procedure, pass(x) :: amax => d_vect_amax procedure, pass(x) :: asum => d_vect_asum + procedure, pass(z) :: cmp_a2 => d_vect_cmp_a2 + procedure, pass(z) :: cmp_v2 => d_vect_cmp_v2 + generic, public :: cmp => cmp_a2, cmp_v2 end type psb_d_vect_type public :: psb_d_vect @@ -135,6 +138,11 @@ module psb_d_vect_mod & d_vect_absval2, d_vect_nrm2, d_vect_amax, d_vect_asum +! @NOTCPLXS@ +! @NOTINTS@ +! private :: d_vect_cmp_a2, d_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_d_base_vect_type), allocatable, target,& & save, private :: psb_d_base_vect_default @@ -855,6 +863,34 @@ contains end subroutine d_vect_inv_a2_check + subroutine d_vect_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%cmp(x,c,info) + + end subroutine d_vect_cmp_a2 + + subroutine d_vect_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%cmp(x%v,c,info) + + end subroutine d_vect_cmp_v2 + subroutine d_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_i_base_vect_mod.f90 b/base/modules/serial/psb_i_base_vect_mod.f90 index 06871cb49..438a10ae7 100644 --- a/base/modules/serial/psb_i_base_vect_mod.f90 +++ b/base/modules/serial/psb_i_base_vect_mod.f90 @@ -142,6 +142,7 @@ module psb_i_base_vect_mod + end type psb_i_base_vect_type public :: psb_i_base_vect diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index d3aaa48ed..7fb233f87 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -98,6 +98,11 @@ module psb_i_vect_mod & i_vect_set_dev, i_vect_set_sync +! @NOTCPLXS@ +! @NOTINTS@ +! private :: i_vect_cmp_a2, i_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_i_base_vect_type), allocatable, target,& & save, private :: psb_i_base_vect_default diff --git a/base/modules/serial/psb_l_base_vect_mod.f90 b/base/modules/serial/psb_l_base_vect_mod.f90 index 37bdf485e..052757598 100644 --- a/base/modules/serial/psb_l_base_vect_mod.f90 +++ b/base/modules/serial/psb_l_base_vect_mod.f90 @@ -143,6 +143,7 @@ module psb_l_base_vect_mod + end type psb_l_base_vect_type public :: psb_l_base_vect diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index ece6ee668..3a9557523 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -99,6 +99,11 @@ module psb_l_vect_mod & l_vect_set_dev, l_vect_set_sync +! @NOTCPLXS@ +! @NOTINTS@ +! private :: l_vect_cmp_a2, l_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_l_base_vect_type), allocatable, target,& & save, private :: psb_l_base_vect_default diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 3c68d56f7..450fdd290 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -187,6 +187,13 @@ module psb_s_base_vect_mod procedure, pass(x) :: amax => s_base_amax procedure, pass(x) :: asum => s_base_asum + ! + ! Comparison and mask operation + ! + procedure, pass(z) :: cmp_a2 => s_base_cmp_a2 + procedure, pass(z) :: cmp_v2 => s_base_cmp_v2 + generic, public :: cmp => cmp_a2,cmp_v2 + end type psb_s_base_vect_type public :: psb_s_base_vect @@ -1401,8 +1408,58 @@ contains end subroutine s_base_inv_a2_check + ! + !> Function base_inv_a2_check + !! \memberof psb_s_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The array to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine s_base_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + if (z%is_dev()) call z%sync() + n = size(x) + do i = 1, n, 1 + if ( abs(x(i)).ge.c ) then + z%v(i) = 1_psb_spk_ + else + z%v(i) = 0_psb_spk_ + end if + end do + info = 0 + + end subroutine s_base_cmp_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_s_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The vector to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine s_base_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: c + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%cmp(x%v,c,info) + end subroutine s_base_cmp_v2 ! ! Simple scaling ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 38478c430..c1f712083 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -111,6 +111,9 @@ module psb_s_vect_mod procedure, pass(x) :: nrm2 => s_vect_nrm2 procedure, pass(x) :: amax => s_vect_amax procedure, pass(x) :: asum => s_vect_asum + procedure, pass(z) :: cmp_a2 => s_vect_cmp_a2 + procedure, pass(z) :: cmp_v2 => s_vect_cmp_v2 + generic, public :: cmp => cmp_a2, cmp_v2 end type psb_s_vect_type public :: psb_s_vect @@ -135,6 +138,11 @@ module psb_s_vect_mod & s_vect_absval2, s_vect_nrm2, s_vect_amax, s_vect_asum +! @NOTCPLXS@ +! @NOTINTS@ +! private :: s_vect_cmp_a2, s_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_s_base_vect_type), allocatable, target,& & save, private :: psb_s_base_vect_default @@ -855,6 +863,34 @@ contains end subroutine s_vect_inv_a2_check + subroutine s_vect_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%cmp(x,c,info) + + end subroutine s_vect_cmp_a2 + + subroutine s_vect_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%cmp(x%v,c,info) + + end subroutine s_vect_cmp_v2 + subroutine s_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index b87e16a68..808d9d4fc 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -187,6 +187,7 @@ module psb_z_base_vect_mod procedure, pass(x) :: amax => z_base_amax procedure, pass(x) :: asum => z_base_asum + end type psb_z_base_vect_type public :: psb_z_base_vect @@ -1401,8 +1402,6 @@ contains end subroutine z_base_inv_a2_check - - ! ! Simple scaling ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index be48d0db2..e9d5e1dd1 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -135,6 +135,11 @@ module psb_z_vect_mod & z_vect_absval2, z_vect_nrm2, z_vect_amax, z_vect_asum +! @NOTCPLXS@ +! @NOTINTS@ +! private :: z_vect_cmp_a2, z_vect_cmp_v2 +! @NOTINTE@ +! @NOTCPLXE@ class(psb_z_base_vect_type), allocatable, target,& & save, private :: psb_z_base_vect_default @@ -855,6 +860,7 @@ contains end subroutine z_vect_inv_a2_check + subroutine z_vect_scal(alpha, x) use psi_serial_mod implicit none diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 29d78acc8..1feb2e786 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -13,6 +13,7 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\ psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\ + psb_dcmp_vect.o psb_scmp_vect.o LIBDIR=.. INCDIR=.. diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 new file mode 100644 index 000000000..bd5ae706e --- /dev/null +++ b/base/psblas/psb_dcmp_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_dcmp_vect + +subroutine psb_dcmp_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dcmp_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%cmp(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dcmp_vect diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 new file mode 100644 index 000000000..7aafd9ef0 --- /dev/null +++ b/base/psblas/psb_scmp_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_scmp_vect + +subroutine psb_scmp_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_scmp_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%cmp(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_scmp_vect diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index a76049cfb..02039033d 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -56,6 +56,7 @@ program vecoperation real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf character(len=20) :: name,ch_err,readinput real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) + real(psb_dpk_) :: c info=psb_success_ @@ -194,7 +195,18 @@ program vecoperation vx = x%get_vect() write(psb_out_unit,'("x = ",es12.1)')vx(:) vz = z%get_vect() - write(psb_out_unit,'("z = ",es12.1)')vy(:) + write(psb_out_unit,'("z = ",es12.1)')vz(:) + end if + + c = 1.0/2.0; + call psb_gecmp(x,c,z,desc_a,info); + + if (iam == psb_root_) then + write(psb_out_unit,'("|z(i)| >=",es12.1)')c + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vz = z%get_vect() + write(psb_out_unit,'("z = ",es12.1)')vz(:) end if ! From f95d089903c7ec87342467b7c12fece6d7c7ecd5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 17 Dec 2019 19:37:49 +0000 Subject: [PATCH 08/61] Prepare for merging --- docs/html/WARNINGS | 12 - docs/html/contents.png | Bin 278 -> 0 bytes docs/html/footnode.html | 218 -------- docs/html/images.aux | 18 - docs/html/images.log | 507 ----------------- docs/html/images.out | 0 docs/html/images.pl | 1182 --------------------------------------- docs/html/images.tex | 273 --------- docs/html/img1.png | Bin 210 -> 0 bytes docs/html/img10.png | Bin 447 -> 0 bytes docs/html/img100.png | Bin 603 -> 0 bytes docs/html/img101.png | Bin 318 -> 0 bytes docs/html/img102.png | Bin 487 -> 0 bytes docs/html/img103.png | Bin 397 -> 0 bytes docs/html/img104.png | Bin 281 -> 0 bytes docs/html/img105.png | Bin 423 -> 0 bytes docs/html/img106.png | Bin 190 -> 0 bytes docs/html/img107.png | Bin 387 -> 0 bytes docs/html/img108.png | Bin 520 -> 0 bytes docs/html/img109.png | Bin 350 -> 0 bytes docs/html/img11.png | Bin 576 -> 0 bytes docs/html/img110.png | Bin 374 -> 0 bytes docs/html/img111.png | Bin 237 -> 0 bytes docs/html/img112.png | Bin 358 -> 0 bytes docs/html/img113.png | Bin 279 -> 0 bytes docs/html/img114.png | Bin 303 -> 0 bytes docs/html/img115.png | Bin 199 -> 0 bytes docs/html/img116.png | Bin 682 -> 0 bytes docs/html/img117.png | Bin 411 -> 0 bytes docs/html/img118.png | Bin 366 -> 0 bytes docs/html/img119.png | Bin 857 -> 0 bytes docs/html/img12.png | Bin 129 -> 0 bytes docs/html/img120.png | Bin 745 -> 0 bytes docs/html/img121.png | Bin 423 -> 0 bytes docs/html/img122.png | Bin 151 -> 0 bytes docs/html/img123.png | Bin 272 -> 0 bytes docs/html/img124.png | Bin 390 -> 0 bytes docs/html/img125.png | Bin 260 -> 0 bytes docs/html/img126.png | Bin 268 -> 0 bytes docs/html/img127.png | Bin 270 -> 0 bytes docs/html/img128.png | Bin 420 -> 0 bytes docs/html/img129.png | Bin 221 -> 0 bytes docs/html/img13.png | Bin 3564 -> 0 bytes docs/html/img130.png | Bin 263 -> 0 bytes docs/html/img131.png | Bin 943 -> 0 bytes docs/html/img132.png | Bin 423 -> 0 bytes docs/html/img133.png | Bin 425 -> 0 bytes docs/html/img134.png | Bin 359 -> 0 bytes docs/html/img135.png | Bin 330 -> 0 bytes docs/html/img136.png | Bin 860 -> 0 bytes docs/html/img137.png | Bin 336 -> 0 bytes docs/html/img138.png | Bin 532 -> 0 bytes docs/html/img139.png | Bin 412 -> 0 bytes docs/html/img14.png | Bin 694 -> 0 bytes docs/html/img140.png | Bin 251 -> 0 bytes docs/html/img141.png | Bin 619 -> 0 bytes docs/html/img142.png | Bin 626 -> 0 bytes docs/html/img143.png | Bin 395 -> 0 bytes docs/html/img144.png | Bin 243 -> 0 bytes docs/html/img145.png | Bin 568 -> 0 bytes docs/html/img146.png | Bin 614 -> 0 bytes docs/html/img147.png | Bin 578 -> 0 bytes docs/html/img148.png | Bin 306 -> 0 bytes docs/html/img149.png | Bin 271 -> 0 bytes docs/html/img15.png | Bin 250 -> 0 bytes docs/html/img150.png | Bin 889 -> 0 bytes docs/html/img151.png | Bin 226 -> 0 bytes docs/html/img152.png | Bin 630 -> 0 bytes docs/html/img153.png | Bin 750 -> 0 bytes docs/html/img154.png | Bin 534 -> 0 bytes docs/html/img155.png | Bin 273 -> 0 bytes docs/html/img156.png | Bin 569 -> 0 bytes docs/html/img157.png | Bin 250 -> 0 bytes docs/html/img158.old | 0 docs/html/img158.png | 0 docs/html/img159.png | Bin 9773 -> 0 bytes docs/html/img16.png | Bin 203 -> 0 bytes docs/html/img160.old | 0 docs/html/img160.png | 0 docs/html/img161.png | Bin 1148 -> 0 bytes docs/html/img162.png | Bin 801 -> 0 bytes docs/html/img163.png | Bin 934 -> 0 bytes docs/html/img164.png | Bin 966 -> 0 bytes docs/html/img165.png | Bin 1251 -> 0 bytes docs/html/img166.png | Bin 1436 -> 0 bytes docs/html/img167.png | Bin 1126 -> 0 bytes docs/html/img168.png | Bin 1188 -> 0 bytes docs/html/img169.png | Bin 1238 -> 0 bytes docs/html/img17.png | Bin 384 -> 0 bytes docs/html/img170.png | Bin 1211 -> 0 bytes docs/html/img171.png | Bin 356 -> 0 bytes docs/html/img172.png | Bin 440 -> 0 bytes docs/html/img173.png | Bin 302 -> 0 bytes docs/html/img174.png | Bin 998 -> 0 bytes docs/html/img175.png | Bin 719 -> 0 bytes docs/html/img176.png | Bin 746 -> 0 bytes docs/html/img177.png | Bin 228 -> 0 bytes docs/html/img178.png | Bin 442 -> 0 bytes docs/html/img179.png | Bin 2571 -> 0 bytes docs/html/img18.png | Bin 581 -> 0 bytes docs/html/img180.png | Bin 477 -> 0 bytes docs/html/img181.png | Bin 480 -> 0 bytes docs/html/img182.png | Bin 465 -> 0 bytes docs/html/img183.png | Bin 345 -> 0 bytes docs/html/img184.png | Bin 226 -> 0 bytes docs/html/img185.png | Bin 452 -> 0 bytes docs/html/img186.png | Bin 425 -> 0 bytes docs/html/img187.png | Bin 279 -> 0 bytes docs/html/img19.png | Bin 524 -> 0 bytes docs/html/img2.png | Bin 3875 -> 0 bytes docs/html/img20.png | Bin 189 -> 0 bytes docs/html/img21.png | Bin 216 -> 0 bytes docs/html/img22.png | Bin 205 -> 0 bytes docs/html/img23.png | Bin 225 -> 0 bytes docs/html/img24.png | Bin 476 -> 0 bytes docs/html/img25.png | Bin 486 -> 0 bytes docs/html/img26.png | Bin 273 -> 0 bytes docs/html/img27.png | Bin 4602 -> 0 bytes docs/html/img28.png | Bin 769 -> 0 bytes docs/html/img29.png | Bin 254 -> 0 bytes docs/html/img3.png | Bin 3855 -> 0 bytes docs/html/img30.png | Bin 618 -> 0 bytes docs/html/img31.png | Bin 1060 -> 0 bytes docs/html/img32.png | Bin 321 -> 0 bytes docs/html/img33.png | Bin 4351 -> 0 bytes docs/html/img34.png | Bin 808 -> 0 bytes docs/html/img35.png | Bin 495 -> 0 bytes docs/html/img36.png | Bin 873 -> 0 bytes docs/html/img37.png | Bin 326 -> 0 bytes docs/html/img38.png | Bin 4251 -> 0 bytes docs/html/img39.png | Bin 536 -> 0 bytes docs/html/img4.png | Bin 179 -> 0 bytes docs/html/img40.png | Bin 881 -> 0 bytes docs/html/img41.png | Bin 576 -> 0 bytes docs/html/img42.png | Bin 594 -> 0 bytes docs/html/img43.png | Bin 338 -> 0 bytes docs/html/img44.png | Bin 4294 -> 0 bytes docs/html/img45.png | Bin 685 -> 0 bytes docs/html/img46.png | Bin 501 -> 0 bytes docs/html/img47.png | Bin 521 -> 0 bytes docs/html/img48.png | Bin 554 -> 0 bytes docs/html/img49.png | Bin 622 -> 0 bytes docs/html/img5.png | Bin 228 -> 0 bytes docs/html/img50.png | Bin 621 -> 0 bytes docs/html/img51.png | Bin 243 -> 0 bytes docs/html/img52.png | Bin 251 -> 0 bytes docs/html/img53.png | Bin 429 -> 0 bytes docs/html/img54.png | Bin 2775 -> 0 bytes docs/html/img55.png | Bin 214 -> 0 bytes docs/html/img56.png | Bin 233 -> 0 bytes docs/html/img57.png | Bin 444 -> 0 bytes docs/html/img58.png | Bin 816 -> 0 bytes docs/html/img59.png | Bin 620 -> 0 bytes docs/html/img6.png | Bin 431 -> 0 bytes docs/html/img60.png | Bin 553 -> 0 bytes docs/html/img61.png | Bin 179 -> 0 bytes docs/html/img62.png | Bin 416 -> 0 bytes docs/html/img63.png | Bin 467 -> 0 bytes docs/html/img64.png | Bin 416 -> 0 bytes docs/html/img65.png | Bin 266 -> 0 bytes docs/html/img66.png | Bin 2084 -> 0 bytes docs/html/img67.png | Bin 3225 -> 0 bytes docs/html/img68.png | Bin 3213 -> 0 bytes docs/html/img69.png | Bin 370 -> 0 bytes docs/html/img7.png | Bin 205 -> 0 bytes docs/html/img70.png | Bin 258 -> 0 bytes docs/html/img71.png | Bin 250 -> 0 bytes docs/html/img72.png | Bin 255 -> 0 bytes docs/html/img73.png | Bin 2512 -> 0 bytes docs/html/img74.png | Bin 255 -> 0 bytes docs/html/img75.png | Bin 337 -> 0 bytes docs/html/img76.png | Bin 789 -> 0 bytes docs/html/img77.png | Bin 5441 -> 0 bytes docs/html/img78.png | Bin 6161 -> 0 bytes docs/html/img79.png | Bin 803 -> 0 bytes docs/html/img8.png | Bin 242 -> 0 bytes docs/html/img80.png | Bin 387 -> 0 bytes docs/html/img81.png | Bin 523 -> 0 bytes docs/html/img82.png | Bin 334 -> 0 bytes docs/html/img83.png | Bin 363 -> 0 bytes docs/html/img84.png | Bin 312 -> 0 bytes docs/html/img85.png | Bin 2611 -> 0 bytes docs/html/img86.png | Bin 438 -> 0 bytes docs/html/img87.png | Bin 554 -> 0 bytes docs/html/img88.png | Bin 178 -> 0 bytes docs/html/img89.png | Bin 939 -> 0 bytes docs/html/img9.png | Bin 246 -> 0 bytes docs/html/img90.png | Bin 373 -> 0 bytes docs/html/img91.png | Bin 1540 -> 0 bytes docs/html/img92.png | Bin 508 -> 0 bytes docs/html/img93.png | Bin 370 -> 0 bytes docs/html/img94.png | Bin 252 -> 0 bytes docs/html/img95.png | Bin 264 -> 0 bytes docs/html/img96.png | Bin 202 -> 0 bytes docs/html/img97.png | Bin 440 -> 0 bytes docs/html/img98.png | Bin 520 -> 0 bytes docs/html/img99.png | Bin 229 -> 0 bytes docs/html/index.html | 414 -------------- docs/html/internals.pl | 206 ------- docs/html/labels.pl | 421 -------------- docs/html/next.png | Bin 245 -> 0 bytes docs/html/next_g.png | Bin 272 -> 0 bytes docs/html/node1.html | 111 ---- docs/html/node10.html | 298 ---------- docs/html/node100.html | 125 ----- docs/html/node101.html | 291 ---------- docs/html/node102.html | 106 ---- docs/html/node103.html | 177 ------ docs/html/node104.html | 146 ----- docs/html/node105.html | 149 ----- docs/html/node106.html | 103 ---- docs/html/node107.html | 125 ----- docs/html/node108.html | 81 --- docs/html/node109.html | 89 --- docs/html/node11.html | 59 -- docs/html/node110.html | 87 --- docs/html/node111.html | 136 ----- docs/html/node112.html | 177 ------ docs/html/node113.html | 176 ------ docs/html/node114.html | 178 ------ docs/html/node115.html | 176 ------ docs/html/node116.html | 178 ------ docs/html/node117.html | 210 ------- docs/html/node118.html | 190 ------- docs/html/node119.html | 189 ------- docs/html/node12.html | 98 ---- docs/html/node120.html | 342 ----------- docs/html/node121.html | 91 --- docs/html/node122.html | 159 ------ docs/html/node123.html | 168 ------ docs/html/node124.html | 117 ---- docs/html/node125.html | 119 ---- docs/html/node126.html | 123 ---- docs/html/node127.html | 115 ---- docs/html/node128.html | 98 ---- docs/html/node129.html | 150 ----- docs/html/node13.html | 99 ---- docs/html/node130.html | 194 ------- docs/html/node131.html | 153 ----- docs/html/node132.html | 114 ---- docs/html/node133.html | 92 --- docs/html/node134.html | 107 ---- docs/html/node135.html | 76 --- docs/html/node136.html | 440 --------------- docs/html/node137.html | 180 ------ docs/html/node138.html | 67 --- docs/html/node14.html | 90 --- docs/html/node15.html | 90 --- docs/html/node16.html | 99 ---- docs/html/node17.html | 89 --- docs/html/node18.html | 92 --- docs/html/node19.html | 89 --- docs/html/node2.html | 169 ------ docs/html/node20.html | 80 --- docs/html/node21.html | 91 --- docs/html/node22.html | 98 ---- docs/html/node23.html | 216 ------- docs/html/node24.html | 59 -- docs/html/node25.html | 89 --- docs/html/node26.html | 90 --- docs/html/node27.html | 100 ---- docs/html/node28.html | 91 --- docs/html/node29.html | 92 --- docs/html/node3.html | 196 ------- docs/html/node30.html | 91 --- docs/html/node31.html | 92 --- docs/html/node32.html | 96 ---- docs/html/node33.html | 114 ---- docs/html/node34.html | 106 ---- docs/html/node35.html | 98 ---- docs/html/node36.html | 94 ---- docs/html/node37.html | 94 ---- docs/html/node38.html | 117 ---- docs/html/node39.html | 117 ---- docs/html/node4.html | 222 -------- docs/html/node40.html | 80 --- docs/html/node41.html | 92 --- docs/html/node42.html | 82 --- docs/html/node43.html | 164 ------ docs/html/node44.html | 57 -- docs/html/node45.html | 89 --- docs/html/node46.html | 92 --- docs/html/node47.html | 134 ----- docs/html/node48.html | 111 ---- docs/html/node49.html | 90 --- docs/html/node5.html | 194 ------- docs/html/node50.html | 88 --- docs/html/node51.html | 97 ---- docs/html/node52.html | 99 ---- docs/html/node53.html | 280 ---------- docs/html/node54.html | 317 ----------- docs/html/node55.html | 264 --------- docs/html/node56.html | 283 ---------- docs/html/node57.html | 216 ------- docs/html/node58.html | 281 ---------- docs/html/node59.html | 264 --------- docs/html/node6.html | 281 ---------- docs/html/node60.html | 283 ---------- docs/html/node61.html | 219 -------- docs/html/node62.html | 194 ------- docs/html/node63.html | 194 ------- docs/html/node64.html | 427 -------------- docs/html/node65.html | 470 ---------------- docs/html/node66.html | 239 -------- docs/html/node67.html | 253 --------- docs/html/node68.html | 234 -------- docs/html/node69.html | 77 --- docs/html/node7.html | 108 ---- docs/html/node70.html | 633 --------------------- docs/html/node71.html | 761 ------------------------- docs/html/node72.html | 270 --------- docs/html/node73.html | 277 --------- docs/html/node74.html | 133 ----- docs/html/node75.html | 450 --------------- docs/html/node76.html | 259 --------- docs/html/node77.html | 133 ----- docs/html/node78.html | 116 ---- docs/html/node79.html | 103 ---- docs/html/node8.html | 121 ---- docs/html/node80.html | 198 ------- docs/html/node81.html | 143 ----- docs/html/node82.html | 335 ----------- docs/html/node83.html | 209 ------- docs/html/node84.html | 114 ---- docs/html/node85.html | 133 ----- docs/html/node86.html | 151 ----- docs/html/node87.html | 221 -------- docs/html/node88.html | 128 ----- docs/html/node89.html | 118 ---- docs/html/node9.html | 247 -------- docs/html/node90.html | 138 ----- docs/html/node91.html | 213 ------- docs/html/node92.html | 165 ------ docs/html/node93.html | 125 ----- docs/html/node94.html | 149 ----- docs/html/node95.html | 125 ----- docs/html/node96.html | 149 ----- docs/html/node97.html | 130 ----- docs/html/node98.html | 129 ----- docs/html/node99.html | 256 --------- docs/html/prev.png | Bin 279 -> 0 bytes docs/html/prev_g.png | Bin 327 -> 0 bytes docs/html/up.png | Bin 211 -> 0 bytes docs/html/up_g.png | Bin 231 -> 0 bytes docs/html/userhtml.css | 30 - docs/html/userhtml.html | 414 -------------- 346 files changed, 26700 deletions(-) delete mode 100644 docs/html/WARNINGS delete mode 100644 docs/html/contents.png delete mode 100644 docs/html/footnode.html delete mode 100644 docs/html/images.aux delete mode 100644 docs/html/images.log delete mode 100644 docs/html/images.out delete mode 100644 docs/html/images.pl delete mode 100644 docs/html/images.tex delete mode 100644 docs/html/img1.png delete mode 100644 docs/html/img10.png delete mode 100644 docs/html/img100.png delete mode 100644 docs/html/img101.png delete mode 100644 docs/html/img102.png delete mode 100644 docs/html/img103.png delete mode 100644 docs/html/img104.png delete mode 100644 docs/html/img105.png delete mode 100644 docs/html/img106.png delete mode 100644 docs/html/img107.png delete mode 100644 docs/html/img108.png delete mode 100644 docs/html/img109.png delete mode 100644 docs/html/img11.png delete mode 100644 docs/html/img110.png delete mode 100644 docs/html/img111.png delete mode 100644 docs/html/img112.png delete mode 100644 docs/html/img113.png delete mode 100644 docs/html/img114.png delete mode 100644 docs/html/img115.png delete mode 100644 docs/html/img116.png delete mode 100644 docs/html/img117.png delete mode 100644 docs/html/img118.png delete mode 100644 docs/html/img119.png delete mode 100644 docs/html/img12.png delete mode 100644 docs/html/img120.png delete mode 100644 docs/html/img121.png delete mode 100644 docs/html/img122.png delete mode 100644 docs/html/img123.png delete mode 100644 docs/html/img124.png delete mode 100644 docs/html/img125.png delete mode 100644 docs/html/img126.png delete mode 100644 docs/html/img127.png delete mode 100644 docs/html/img128.png delete mode 100644 docs/html/img129.png delete mode 100644 docs/html/img13.png delete mode 100644 docs/html/img130.png delete mode 100644 docs/html/img131.png delete mode 100644 docs/html/img132.png delete mode 100644 docs/html/img133.png delete mode 100644 docs/html/img134.png delete mode 100644 docs/html/img135.png delete mode 100644 docs/html/img136.png delete mode 100644 docs/html/img137.png delete mode 100644 docs/html/img138.png delete mode 100644 docs/html/img139.png delete mode 100644 docs/html/img14.png delete mode 100644 docs/html/img140.png delete mode 100644 docs/html/img141.png delete mode 100644 docs/html/img142.png delete mode 100644 docs/html/img143.png delete mode 100644 docs/html/img144.png delete mode 100644 docs/html/img145.png delete mode 100644 docs/html/img146.png delete mode 100644 docs/html/img147.png delete mode 100644 docs/html/img148.png delete mode 100644 docs/html/img149.png delete mode 100644 docs/html/img15.png delete mode 100644 docs/html/img150.png delete mode 100644 docs/html/img151.png delete mode 100644 docs/html/img152.png delete mode 100644 docs/html/img153.png delete mode 100644 docs/html/img154.png delete mode 100644 docs/html/img155.png delete mode 100644 docs/html/img156.png delete mode 100644 docs/html/img157.png delete mode 100644 docs/html/img158.old delete mode 100644 docs/html/img158.png delete mode 100644 docs/html/img159.png delete mode 100644 docs/html/img16.png delete mode 100644 docs/html/img160.old delete mode 100644 docs/html/img160.png delete mode 100644 docs/html/img161.png delete mode 100644 docs/html/img162.png delete mode 100644 docs/html/img163.png delete mode 100644 docs/html/img164.png delete mode 100644 docs/html/img165.png delete mode 100644 docs/html/img166.png delete mode 100644 docs/html/img167.png delete mode 100644 docs/html/img168.png delete mode 100644 docs/html/img169.png delete mode 100644 docs/html/img17.png delete mode 100644 docs/html/img170.png delete mode 100644 docs/html/img171.png delete mode 100644 docs/html/img172.png delete mode 100644 docs/html/img173.png delete mode 100644 docs/html/img174.png delete mode 100644 docs/html/img175.png delete mode 100644 docs/html/img176.png delete mode 100644 docs/html/img177.png delete mode 100644 docs/html/img178.png delete mode 100644 docs/html/img179.png delete mode 100644 docs/html/img18.png delete mode 100644 docs/html/img180.png delete mode 100644 docs/html/img181.png delete mode 100644 docs/html/img182.png delete mode 100644 docs/html/img183.png delete mode 100644 docs/html/img184.png delete mode 100644 docs/html/img185.png delete mode 100644 docs/html/img186.png delete mode 100644 docs/html/img187.png delete mode 100644 docs/html/img19.png delete mode 100644 docs/html/img2.png delete mode 100644 docs/html/img20.png delete mode 100644 docs/html/img21.png delete mode 100644 docs/html/img22.png delete mode 100644 docs/html/img23.png delete mode 100644 docs/html/img24.png delete mode 100644 docs/html/img25.png delete mode 100644 docs/html/img26.png delete mode 100644 docs/html/img27.png delete mode 100644 docs/html/img28.png delete mode 100644 docs/html/img29.png delete mode 100644 docs/html/img3.png delete mode 100644 docs/html/img30.png delete mode 100644 docs/html/img31.png delete mode 100644 docs/html/img32.png delete mode 100644 docs/html/img33.png delete mode 100644 docs/html/img34.png delete mode 100644 docs/html/img35.png delete mode 100644 docs/html/img36.png delete mode 100644 docs/html/img37.png delete mode 100644 docs/html/img38.png delete mode 100644 docs/html/img39.png delete mode 100644 docs/html/img4.png delete mode 100644 docs/html/img40.png delete mode 100644 docs/html/img41.png delete mode 100644 docs/html/img42.png delete mode 100644 docs/html/img43.png delete mode 100644 docs/html/img44.png delete mode 100644 docs/html/img45.png delete mode 100644 docs/html/img46.png delete mode 100644 docs/html/img47.png delete mode 100644 docs/html/img48.png delete mode 100644 docs/html/img49.png delete mode 100644 docs/html/img5.png delete mode 100644 docs/html/img50.png delete mode 100644 docs/html/img51.png delete mode 100644 docs/html/img52.png delete mode 100644 docs/html/img53.png delete mode 100644 docs/html/img54.png delete mode 100644 docs/html/img55.png delete mode 100644 docs/html/img56.png delete mode 100644 docs/html/img57.png delete mode 100644 docs/html/img58.png delete mode 100644 docs/html/img59.png delete mode 100644 docs/html/img6.png delete mode 100644 docs/html/img60.png delete mode 100644 docs/html/img61.png delete mode 100644 docs/html/img62.png delete mode 100644 docs/html/img63.png delete mode 100644 docs/html/img64.png delete mode 100644 docs/html/img65.png delete mode 100644 docs/html/img66.png delete mode 100644 docs/html/img67.png delete mode 100644 docs/html/img68.png delete mode 100644 docs/html/img69.png delete mode 100644 docs/html/img7.png delete mode 100644 docs/html/img70.png delete mode 100644 docs/html/img71.png delete mode 100644 docs/html/img72.png delete mode 100644 docs/html/img73.png delete mode 100644 docs/html/img74.png delete mode 100644 docs/html/img75.png delete mode 100644 docs/html/img76.png delete mode 100644 docs/html/img77.png delete mode 100644 docs/html/img78.png delete mode 100644 docs/html/img79.png delete mode 100644 docs/html/img8.png delete mode 100644 docs/html/img80.png delete mode 100644 docs/html/img81.png delete mode 100644 docs/html/img82.png delete mode 100644 docs/html/img83.png delete mode 100644 docs/html/img84.png delete mode 100644 docs/html/img85.png delete mode 100644 docs/html/img86.png delete mode 100644 docs/html/img87.png delete mode 100644 docs/html/img88.png delete mode 100644 docs/html/img89.png delete mode 100644 docs/html/img9.png delete mode 100644 docs/html/img90.png delete mode 100644 docs/html/img91.png delete mode 100644 docs/html/img92.png delete mode 100644 docs/html/img93.png delete mode 100644 docs/html/img94.png delete mode 100644 docs/html/img95.png delete mode 100644 docs/html/img96.png delete mode 100644 docs/html/img97.png delete mode 100644 docs/html/img98.png delete mode 100644 docs/html/img99.png delete mode 100644 docs/html/index.html delete mode 100644 docs/html/internals.pl delete mode 100644 docs/html/labels.pl delete mode 100644 docs/html/next.png delete mode 100644 docs/html/next_g.png delete mode 100644 docs/html/node1.html delete mode 100644 docs/html/node10.html delete mode 100644 docs/html/node100.html delete mode 100644 docs/html/node101.html delete mode 100644 docs/html/node102.html delete mode 100644 docs/html/node103.html delete mode 100644 docs/html/node104.html delete mode 100644 docs/html/node105.html delete mode 100644 docs/html/node106.html delete mode 100644 docs/html/node107.html delete mode 100644 docs/html/node108.html delete mode 100644 docs/html/node109.html delete mode 100644 docs/html/node11.html delete mode 100644 docs/html/node110.html delete mode 100644 docs/html/node111.html delete mode 100644 docs/html/node112.html delete mode 100644 docs/html/node113.html delete mode 100644 docs/html/node114.html delete mode 100644 docs/html/node115.html delete mode 100644 docs/html/node116.html delete mode 100644 docs/html/node117.html delete mode 100644 docs/html/node118.html delete mode 100644 docs/html/node119.html delete mode 100644 docs/html/node12.html delete mode 100644 docs/html/node120.html delete mode 100644 docs/html/node121.html delete mode 100644 docs/html/node122.html delete mode 100644 docs/html/node123.html delete mode 100644 docs/html/node124.html delete mode 100644 docs/html/node125.html delete mode 100644 docs/html/node126.html delete mode 100644 docs/html/node127.html delete mode 100644 docs/html/node128.html delete mode 100644 docs/html/node129.html delete mode 100644 docs/html/node13.html delete mode 100644 docs/html/node130.html delete mode 100644 docs/html/node131.html delete mode 100644 docs/html/node132.html delete mode 100644 docs/html/node133.html delete mode 100644 docs/html/node134.html delete mode 100644 docs/html/node135.html delete mode 100644 docs/html/node136.html delete mode 100644 docs/html/node137.html delete mode 100644 docs/html/node138.html delete mode 100644 docs/html/node14.html delete mode 100644 docs/html/node15.html delete mode 100644 docs/html/node16.html delete mode 100644 docs/html/node17.html delete mode 100644 docs/html/node18.html delete mode 100644 docs/html/node19.html delete mode 100644 docs/html/node2.html delete mode 100644 docs/html/node20.html delete mode 100644 docs/html/node21.html delete mode 100644 docs/html/node22.html delete mode 100644 docs/html/node23.html delete mode 100644 docs/html/node24.html delete mode 100644 docs/html/node25.html delete mode 100644 docs/html/node26.html delete mode 100644 docs/html/node27.html delete mode 100644 docs/html/node28.html delete mode 100644 docs/html/node29.html delete mode 100644 docs/html/node3.html delete mode 100644 docs/html/node30.html delete mode 100644 docs/html/node31.html delete mode 100644 docs/html/node32.html delete mode 100644 docs/html/node33.html delete mode 100644 docs/html/node34.html delete mode 100644 docs/html/node35.html delete mode 100644 docs/html/node36.html delete mode 100644 docs/html/node37.html delete mode 100644 docs/html/node38.html delete mode 100644 docs/html/node39.html delete mode 100644 docs/html/node4.html delete mode 100644 docs/html/node40.html delete mode 100644 docs/html/node41.html delete mode 100644 docs/html/node42.html delete mode 100644 docs/html/node43.html delete mode 100644 docs/html/node44.html delete mode 100644 docs/html/node45.html delete mode 100644 docs/html/node46.html delete mode 100644 docs/html/node47.html delete mode 100644 docs/html/node48.html delete mode 100644 docs/html/node49.html delete mode 100644 docs/html/node5.html delete mode 100644 docs/html/node50.html delete mode 100644 docs/html/node51.html delete mode 100644 docs/html/node52.html delete mode 100644 docs/html/node53.html delete mode 100644 docs/html/node54.html delete mode 100644 docs/html/node55.html delete mode 100644 docs/html/node56.html delete mode 100644 docs/html/node57.html delete mode 100644 docs/html/node58.html delete mode 100644 docs/html/node59.html delete mode 100644 docs/html/node6.html delete mode 100644 docs/html/node60.html delete mode 100644 docs/html/node61.html delete mode 100644 docs/html/node62.html delete mode 100644 docs/html/node63.html delete mode 100644 docs/html/node64.html delete mode 100644 docs/html/node65.html delete mode 100644 docs/html/node66.html delete mode 100644 docs/html/node67.html delete mode 100644 docs/html/node68.html delete mode 100644 docs/html/node69.html delete mode 100644 docs/html/node7.html delete mode 100644 docs/html/node70.html delete mode 100644 docs/html/node71.html delete mode 100644 docs/html/node72.html delete mode 100644 docs/html/node73.html delete mode 100644 docs/html/node74.html delete mode 100644 docs/html/node75.html delete mode 100644 docs/html/node76.html delete mode 100644 docs/html/node77.html delete mode 100644 docs/html/node78.html delete mode 100644 docs/html/node79.html delete mode 100644 docs/html/node8.html delete mode 100644 docs/html/node80.html delete mode 100644 docs/html/node81.html delete mode 100644 docs/html/node82.html delete mode 100644 docs/html/node83.html delete mode 100644 docs/html/node84.html delete mode 100644 docs/html/node85.html delete mode 100644 docs/html/node86.html delete mode 100644 docs/html/node87.html delete mode 100644 docs/html/node88.html delete mode 100644 docs/html/node89.html delete mode 100644 docs/html/node9.html delete mode 100644 docs/html/node90.html delete mode 100644 docs/html/node91.html delete mode 100644 docs/html/node92.html delete mode 100644 docs/html/node93.html delete mode 100644 docs/html/node94.html delete mode 100644 docs/html/node95.html delete mode 100644 docs/html/node96.html delete mode 100644 docs/html/node97.html delete mode 100644 docs/html/node98.html delete mode 100644 docs/html/node99.html delete mode 100644 docs/html/prev.png delete mode 100644 docs/html/prev_g.png delete mode 100644 docs/html/up.png delete mode 100644 docs/html/up_g.png delete mode 100644 docs/html/userhtml.css delete mode 100644 docs/html/userhtml.html diff --git a/docs/html/WARNINGS b/docs/html/WARNINGS deleted file mode 100644 index 5b6c6c23e..000000000 --- a/docs/html/WARNINGS +++ /dev/null @@ -1,12 +0,0 @@ -No implementation found for style `pstricks' -No implementation found for style `fancybox' -No implementation found for style `ifthen' -No implementation found for style `listings' - -redefining command \thepage - -Substitution of arg to newlabelxx delayed. - -? brace missing for \oldcontentsline - -? brace missing for \textrm diff --git a/docs/html/contents.png b/docs/html/contents.png deleted file mode 100644 index 0c752c66c876acaa2131d43788a7406f5979f746..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 278 zcmV+x0qOpUP)n_8B^;cn$O_g|3BG{!1Fj&^JiWpJWLeA$WK=+#U`gfB`ZJpvc?v;;IiS zWN}RlBW%jSmz3^2R|i?JM0KMv+9z;7ee - - - - -Footnotes - - - - - - - - - - - - - - - - -
      -
      ... -explicitly1
      -
      In our prototype implementation we provide -sample scatter/gather routines. - -
      .
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-
      -
      -
      ... domain2
      -
      This is - the normal situation when the pattern of the sparse matrix is - symmetric, which is equivalent to say that the interaction between - two variables is reciprocal. If the matrix pattern is non-symmetric - we may have one-way interactions, and these could cause a situation - in which a boundary point is not a halo point for its neighbour. - -
      .
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-
      -
      -
      ... prec%build3
      -
      The subroutine style psb_precinit and psb_precbl are still supported for - backward compatibility - -
      .
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-
      -
      -
      ... follows4
      -
      The string is case-insensitive - -
      .
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-
      -
      -
      ... method5
      -
      Note: - the implementation is for $FCG(1)$. - -
      .
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-.
-
      -
      -
      - - diff --git a/docs/html/images.aux b/docs/html/images.aux deleted file mode 100644 index 075990843..000000000 --- a/docs/html/images.aux +++ /dev/null @@ -1,18 +0,0 @@ -\relax -\providecommand\hyper@newdestlabel[2]{} -\providecommand\HyperFirstAtBeginDocument{\AtBeginDocument} -\HyperFirstAtBeginDocument{\ifx\hyper@anchor\@undefined -\global\let\oldcontentsline\contentsline -\gdef\contentsline#1#2#3#4{\oldcontentsline{#1}{#2}{#3}} -\global\let\oldnewlabel\newlabel -\gdef\newlabel#1#2{\newlabelxx{#1}#2} -\gdef\newlabelxx#1#2#3#4#5#6{\oldnewlabel{#1}{{#2}{#3}}} -\AtEndDocument{\ifx\hyper@anchor\@undefined -\let\contentsline\oldcontentsline -\let\newlabel\oldnewlabel -\fi} -\fi} -\global\let\hyper@last\relax -\gdef\HyperFirstAtBeginDocument#1{#1} -\providecommand*\HyPL@Entry[1]{} -\HyPL@Entry{0<>} diff --git a/docs/html/images.log b/docs/html/images.log deleted file mode 100644 index fc4875b53..000000000 --- a/docs/html/images.log +++ /dev/null @@ -1,507 +0,0 @@ -This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017/Debian) (preloaded format=latex 2019.9.9) 21 NOV 2019 13:53 -entering extended mode - restricted \write18 enabled. - %&-line parsing enabled. -**./images.tex -(./images.tex -LaTeX2e <2017-04-15> -Babel <3.18> and hyphenation patterns for 10 language(s) loaded. - -(/usr/share/texlive/texmf-dist/tex/latex/base/article.cls -Document Class: article 2014/09/29 v1.4h Standard LaTeX document class -(/usr/share/texlive/texmf-dist/tex/latex/base/size10.clo -File: size10.clo 2014/09/29 v1.4h Standard LaTeX file (size option) -) -\c@part=\count79 -\c@section=\count80 -\c@subsection=\count81 -\c@subsubsection=\count82 -\c@paragraph=\count83 -\c@subparagraph=\count84 -\c@figure=\count85 -\c@table=\count86 -\abovecaptionskip=\skip41 -\belowcaptionskip=\skip42 -\bibindent=\dimen102 -) (/usr/share/texlive/texmf-dist/tex/latex/pstricks/pstricks.sty -Package: pstricks 2018/01/06 v0.67 LaTeX wrapper for `PSTricks' (RN,HV) -(/usr/share/texlive/texmf-dist/tex/generic/iftex/iftex.sty -Package: iftex 2013/04/04 v0.2 Provides if(tex) conditional for PDFTeX, XeTeX, -and LuaTeX -) (/usr/share/texlive/texmf-dist/tex/latex/tools/shellesc.sty -Package: shellesc 2016/06/07 v0.02a unified shell escape interface for LaTeX -Package shellesc Info: Restricted shell escape enabled on input line 69. -) (/usr/share/texlive/texmf-dist/tex/latex/xcolor/xcolor.sty -Package: xcolor 2016/05/11 v2.12 LaTeX color extensions (UK) -(/usr/share/texlive/texmf-dist/tex/latex/graphics-cfg/color.cfg -File: color.cfg 2016/01/02 v1.6 sample color configuration -) -Package xcolor Info: Driver file: dvips.def on input line 225. -(/usr/share/texlive/texmf-dist/tex/latex/graphics-def/dvips.def -File: dvips.def 2017/06/20 v3.1d Graphics/color driver for dvips -) -Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1348. -Package xcolor Info: Model `RGB' extended on input line 1364. -Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1366. -Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1367. -Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1368. -Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1369. -Package xcolor Info: Model `Gray' substituted by `gray' on input line 1370. -Package xcolor Info: Model `wave' substituted by `hsb' on input line 1371. -) (/usr/share/texlive/texmf-dist/tex/generic/xkeyval/pst-xkey.tex -File: pst-xkey.tex 2005/11/25 v1.6 PSTricks specialization of xkeyval (HA) -(/usr/share/texlive/texmf-dist/tex/latex/xkeyval/xkeyval.sty -Package: xkeyval 2014/12/03 v2.7a package option processing (HA) -(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/xkeyval.tex (/usr/share/texl -ive/texmf-dist/tex/generic/xkeyval/xkvutils.tex -\XKV@toks=\toks14 -\XKV@tempa@toks=\toks15 -(/usr/share/texlive/texmf-dist/tex/generic/xkeyval/keyval.tex)) -\XKV@depth=\count87 -File: xkeyval.tex 2014/12/03 v2.7a key=value parser (HA) -))) (/usr/share/texlive/texmf-dist/tex/generic/pstricks/pstricks.tex (/usr/shar -e/texlive/texmf-dist/tex/generic/pstricks/pst-fp.tex `pst-fp' v0.05, 2010/01/17 - (hv) -\pstFP@xs=\count88 -\pstFP@xia=\count89 -\pstFP@xib=\count90 -\pstFP@xfa=\count91 -\pstFP@xfb=\count92 -\pstFP@rega=\count93 -\pstFP@regb=\count94 -\pstFP@regs=\count95 -\pstFP@times=\count96 -) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfutil-common.tex -\pgfutil@everybye=\toks16 -\pgfutil@tempdima=\dimen103 -\pgfutil@tempdimb=\dimen104 - -(/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfutil-common-lists.t -ex)) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfkeys.code.tex -\pgfkeys@pathtoks=\toks17 -\pgfkeys@temptoks=\toks18 - -(/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgfkeysfiltered.code.t -ex -\pgfkeys@tmptoks=\toks19 -)) (/usr/share/texlive/texmf-dist/tex/generic/pgf/utilities/pgffor.code.tex (/u -sr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmath.code.tex (/usr/share/t -exlive/texmf-dist/tex/generic/pgf/math/pgfmathcalc.code.tex (/usr/share/texlive -/texmf-dist/tex/generic/pgf/math/pgfmathutil.code.tex -\pgf@x=\dimen105 -\pgf@xa=\dimen106 -\pgf@xb=\dimen107 -\pgf@xc=\dimen108 -\pgf@y=\dimen109 -\pgf@ya=\dimen110 -\pgf@yb=\dimen111 -\pgf@yc=\dimen112 -\c@pgf@counta=\count97 -\c@pgf@countb=\count98 -\c@pgf@countc=\count99 -\c@pgf@countd=\count100 -\pgfutil@tempcnta=\count101 -\pgfutil@tempcntb=\count102 -) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathparser.code.tex -\pgfmath@dimen=\dimen113 -\pgfmath@count=\count103 -\pgfmath@box=\box26 -\pgfmath@toks=\toks20 -\pgfmath@stack@operand=\toks21 -\pgfmath@stack@operation=\toks22 -) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.code.tex - -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.basic.code -.tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.trigonomet -ric.code.tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.random.cod -e.tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.comparison -.code.tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.base.code. -tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.round.code -.tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.misc.code. -tex) -(/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmathfunctions.integerari -thmetics.code.tex))) (/usr/share/texlive/texmf-dist/tex/generic/pgf/math/pgfmat -hfloat.code.tex -\c@pgfmathroundto@lastzeros=\count104 -)) -\pgffor@iter=\dimen114 -\pgffor@skip=\dimen115 -\pgffor@stack=\toks23 -\pgffor@toks=\toks24 -) -\psLoopIndex=\count105 -`PSTricks' v2.82 <2018/01/06> (tvz,hv) -\pst@dima=\dimen116 -\pst@dimb=\dimen117 -\pst@dimc=\dimen118 -\pst@dimd=\dimen119 -\pst@dimg=\dimen120 -\pst@dimh=\dimen121 -\pst@dimm=\dimen122 -\pst@dimn=\dimen123 -\pst@dimo=\dimen124 -\pst@dimp=\dimen125 -\pst@hbox=\box27 -\pst@ibox=\box28 -\pst@boxg=\box29 -\pst@cnta=\count106 -\pst@cntb=\count107 -\pst@cntc=\count108 -\pst@cntd=\count109 -\pst@cntg=\count110 -\pst@cnth=\count111 -\pst@cntm=\count112 -\pst@cntn=\count113 -\pst@cnto=\count114 -\pst@cntp=\count115 -\@zero=\count116 -\pst@toks=\toks25 -(/usr/share/texlive/texmf-dist/tex/generic/pstricks/pstricks.con) -\psunit=\dimen126 -\psxunit=\dimen127 -\psyunit=\dimen128 -\pst@C@@rType=\count117 -\pslinewidth=\dimen129 -\psk@startLW=\dimen130 -\psk@endLW=\dimen131 -\pst@customdefs=\toks26 -\pslinearc=\dimen132 -\pst@symbolStep=\dimen133 -\pst@symbolWidth=\dimen134 -\pst@symbolLinewidth=\dimen135 -\everypsbox=\toks27 -\psframesep=\dimen136 -\pslabelsep=\dimen137 -\sh@wgridXunit=\dimen138 -\sh@wgridYunit=\dimen139 -\pst@shift=\dimen140 -) -File: pstricks.tex 2018/01/06 v2.82 `PSTricks' (tvz,hv) -(/usr/share/texlive/texmf-dist/tex/generic/pstricks/pst-fp.tex) -File: pst-fp.tex 2018/01/06 v2.82 `PST-fp' (hv) -) (/usr/share/texlive/texmf-dist/tex/latex/fancybox/fancybox.sty -Package: fancybox 2010/05/15 1.4 -Style option: `fancybox' v1.4 <2010/05/15> (tvz) -\@fancybox=\box30 -\shadowsize=\dimen141 -\@Sbox=\box31 -\do@VerbBox=\toks28 -\the@fancyput=\toks29 -\this@fancyput=\toks30 -\EndVerbatimTokens=\toks31 -\Verbatim@Outfile=\write3 -\Verbatim@Infile=\read1 -) (/usr/share/texlive/texmf-dist/tex/latex/amsfonts/amsfonts.sty -Package: amsfonts 2013/01/14 v3.01 Basic AMSFonts support -\@emptytoks=\toks32 -\symAMSa=\mathgroup4 -\symAMSb=\mathgroup5 -LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' -(Font) U/euf/m/n --> U/euf/b/n on input line 106. -) (/usr/share/texlive/texmf-dist/tex/latex/hyperref/hyperref.sty -Package: hyperref 2018/02/06 v6.86b Hypertext links for LaTeX -(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-hyperref.sty -Package: hobsub-hyperref 2016/05/16 v1.14 Bundle oberdiek, subset hyperref (HO) - -(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/hobsub-generic.sty -Package: hobsub-generic 2016/05/16 v1.14 Bundle oberdiek, subset generic (HO) -Package: hobsub 2016/05/16 v1.14 Construct package bundles (HO) -Package: infwarerr 2016/05/16 v1.4 Providing info/warning/error messages (HO) -Package: ltxcmds 2016/05/16 v1.23 LaTeX kernel commands for general use (HO) -Package: ifluatex 2016/05/16 v1.4 Provides the ifluatex switch (HO) -Package ifluatex Info: LuaTeX not detected. -Package: ifvtex 2016/05/16 v1.6 Detect VTeX and its facilities (HO) -Package ifvtex Info: VTeX not detected. -Package: intcalc 2016/05/16 v1.2 Expandable calculations with integers (HO) -Package: ifpdf 2017/03/15 v3.2 Provides the ifpdf switch -Package: etexcmds 2016/05/16 v1.6 Avoid name clashes with e-TeX commands (HO) -Package etexcmds Info: Could not find \expanded. -(etexcmds) That can mean that you are not using pdfTeX 1.50 or -(etexcmds) that some package has redefined \expanded. -(etexcmds) In the latter case, load this package earlier. -Package: kvsetkeys 2016/05/16 v1.17 Key value parser (HO) -Package: kvdefinekeys 2016/05/16 v1.4 Define keys (HO) -Package: pdftexcmds 2018/01/21 v0.26 Utility functions of pdfTeX for LuaTeX (HO -) -Package pdftexcmds Info: LuaTeX not detected. -Package pdftexcmds Info: \pdf@primitive is available. -Package pdftexcmds Info: \pdf@ifprimitive is available. -Package pdftexcmds Info: \pdfdraftmode is ignored in DVI mode. -Package: pdfescape 2016/05/16 v1.14 Implements pdfTeX's escape features (HO) -Package: bigintcalc 2016/05/16 v1.4 Expandable calculations on big integers (HO -) -Package: bitset 2016/05/16 v1.2 Handle bit-vector datatype (HO) -Package: uniquecounter 2016/05/16 v1.3 Provide unlimited unique counter (HO) -) -Package hobsub Info: Skipping package `hobsub' (already loaded). -Package: letltxmacro 2016/05/16 v1.5 Let assignment for LaTeX macros (HO) -Package: hopatch 2016/05/16 v1.3 Wrapper for package hooks (HO) -Package: xcolor-patch 2016/05/16 xcolor patch -Package: atveryend 2016/05/16 v1.9 Hooks at the very end of document (HO) -Package atveryend Info: \enddocument detected (standard20110627). -Package: atbegshi 2016/06/09 v1.18 At begin shipout hook (HO) -Package: refcount 2016/05/16 v3.5 Data extraction from label references (HO) -Package: hycolor 2016/05/16 v1.8 Color options for hyperref/bookmark (HO) -) (/usr/share/texlive/texmf-dist/tex/generic/ifxetex/ifxetex.sty -Package: ifxetex 2010/09/12 v0.6 Provides ifxetex conditional -) (/usr/share/texlive/texmf-dist/tex/latex/oberdiek/auxhook.sty -Package: auxhook 2016/05/16 v1.4 Hooks for auxiliary files (HO) -) (/usr/share/texlive/texmf-dist/tex/latex/oberdiek/kvoptions.sty -Package: kvoptions 2016/05/16 v3.12 Key value format for package options (HO) -) -\@linkdim=\dimen142 -\Hy@linkcounter=\count118 -\Hy@pagecounter=\count119 -(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pd1enc.def -File: pd1enc.def 2018/02/06 v6.86b Hyperref: PDFDocEncoding definition (HO) -) -\Hy@SavedSpaceFactor=\count120 -(/usr/share/texlive/texmf-dist/tex/latex/latexconfig/hyperref.cfg -File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive -) -Package hyperref Info: Option `bookmarks' set `true' on input line 4383. -Package hyperref Info: Option `bookmarksnumbered' set `true' on input line 4383 -. -Package hyperref Info: Option `bookmarksopen' set `false' on input line 4383. -Package hyperref Info: Option `plainpages' set `false' on input line 4383. -Package hyperref Info: Option `pdfpagelabels' set `true' on input line 4383. -Package hyperref Info: Option `colorlinks' set `true' on input line 4383. -Package hyperref Info: Hyper figures OFF on input line 4509. -Package hyperref Info: Link nesting OFF on input line 4514. -Package hyperref Info: Hyper index ON on input line 4517. -Package hyperref Info: Plain pages OFF on input line 4524. -Package hyperref Info: Backreferencing OFF on input line 4529. -Package hyperref Info: Implicit mode ON; LaTeX internals redefined. -Package hyperref Info: Bookmarks ON on input line 4762. -\c@Hy@tempcnt=\count121 -(/usr/share/texlive/texmf-dist/tex/latex/url/url.sty -\Urlmuskip=\muskip10 -Package: url 2013/09/16 ver 3.4 Verb mode for urls, etc. -) -LaTeX Info: Redefining \url on input line 5115. -\XeTeXLinkMargin=\dimen143 -\Fld@menulength=\count122 -\Field@Width=\dimen144 -\Fld@charsize=\dimen145 -Package hyperref Info: Hyper figures OFF on input line 6369. -Package hyperref Info: Link nesting OFF on input line 6374. -Package hyperref Info: Hyper index ON on input line 6377. -Package hyperref Info: backreferencing OFF on input line 6384. -Package hyperref Info: Link coloring ON on input line 6387. -Package hyperref Info: Link coloring with OCG OFF on input line 6394. -Package hyperref Info: PDF/A mode OFF on input line 6399. -LaTeX Info: Redefining \ref on input line 6439. -LaTeX Info: Redefining \pageref on input line 6443. -\Hy@abspage=\count123 -\c@Item=\count124 -\c@Hfootnote=\count125 -) -Package hyperref Info: Driver (default): hdvips. -(/usr/share/texlive/texmf-dist/tex/latex/hyperref/hdvips.def -File: hdvips.def 2018/02/06 v6.86b Hyperref driver for dvips -(/usr/share/texlive/texmf-dist/tex/latex/hyperref/pdfmark.def -File: pdfmark.def 2018/02/06 v6.86b Hyperref definitions for pdfmark specials -\pdf@docset=\toks33 -\pdf@box=\box32 -\pdf@toks=\toks34 -\pdf@defaulttoks=\toks35 -\HyField@AnnotCount=\count126 -\Fld@listcount=\count127 -\c@bookmark@seq@number=\count128 -(/usr/share/texlive/texmf-dist/tex/latex/oberdiek/rerunfilecheck.sty -Package: rerunfilecheck 2016/05/16 v1.8 Rerun checks for auxiliary files (HO) -Package uniquecounter Info: New unique counter `rerunfilecheck' on input line 2 -82. -) -\Hy@SectionHShift=\skip43 -)) (/usr/share/texlive/texmf-dist/tex/latex/base/ifthen.sty -Package: ifthen 2014/09/29 v1.1c Standard LaTeX ifthen package (DPC) -) (/usr/share/texlive/texmf-dist/tex/latex/graphics/graphicx.sty -Package: graphicx 2017/06/01 v1.1a Enhanced LaTeX Graphics (DPC,SPQR) -(/usr/share/texlive/texmf-dist/tex/latex/graphics/graphics.sty -Package: graphics 2017/06/25 v1.2c Standard LaTeX Graphics (DPC,SPQR) -(/usr/share/texlive/texmf-dist/tex/latex/graphics/trig.sty -Package: trig 2016/01/03 v1.10 sin cos tan (DPC) -) (/usr/share/texlive/texmf-dist/tex/latex/graphics-cfg/graphics.cfg -File: graphics.cfg 2016/06/04 v1.11 sample graphics configuration -) -Package graphics Info: Driver file: dvips.def on input line 99. -) -\Gin@req@height=\dimen146 -\Gin@req@width=\dimen147 -) -\c@theorem=\count129 -\c@corollary=\count130 -(/usr/share/texlive/texmf-dist/tex/latex/listings/listings.sty -\lst@mode=\count131 -\lst@gtempboxa=\box33 -\lst@token=\toks36 -\lst@length=\count132 -\lst@currlwidth=\dimen148 -\lst@column=\count133 -\lst@pos=\count134 -\lst@lostspace=\dimen149 -\lst@width=\dimen150 -\lst@newlines=\count135 -\lst@lineno=\count136 -\lst@maxwidth=\dimen151 -(/usr/share/texlive/texmf-dist/tex/latex/listings/lstmisc.sty -File: lstmisc.sty 2015/06/04 1.6 (Carsten Heinz) -\c@lstnumber=\count137 -\lst@skipnumbers=\count138 -\lst@framebox=\box34 -) (/usr/share/texlive/texmf-dist/tex/latex/listings/listings.cfg -File: listings.cfg 2015/06/04 1.6 listings configuration -)) -Package: listings 2015/06/04 1.6 (Carsten Heinz) -\c@subroutine=\count139 -\c@example=\count140 -(/usr/share/texlive/texmf-dist/tex/latex/base/inputenc.sty -Package: inputenc 2015/03/17 v1.2c Input encoding file -\inpenc@prehook=\toks37 -\inpenc@posthook=\toks38 -(/usr/share/texlive/texmf-dist/tex/latex/base/latin1.def -File: latin1.def 2015/03/17 v1.2c Input encoding file -)) -\sizebox=\box35 -\lthtmlwrite=\write4 -(./images.aux (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/intro.au -x) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/datastruct.aux) (/h -ome/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/psbrout.aux) (/home/cirda -n/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/commrout.aux) (/home/cirdan/Versio -niPSBLAS/8Bytes/psblas3/docs/src/tmp/toolsrout.aux) (/home/cirdan/VersioniPSBLA -S/8Bytes/psblas3/docs/src/tmp/penv.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psb -las3/docs/src/tmp/error.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/s -rc/tmp/util.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/precs -.aux) (/home/cirdan/VersioniPSBLAS/8Bytes/psblas3/docs/src/tmp/methods.aux)) -\openout1 = `images.aux'. - -LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 149. -LaTeX Font Info: ... okay on input line 149. -\AtBeginShipoutBox=\box36 -Package hyperref Info: Link coloring ON on input line 149. -(/usr/share/texlive/texmf-dist/tex/latex/hyperref/nameref.sty -Package: nameref 2016/05/21 v2.44 Cross-referencing by name of section -(/usr/share/texlive/texmf-dist/tex/generic/oberdiek/gettitlestring.sty -Package: gettitlestring 2016/05/16 v1.5 Cleanup title references (HO) -) -\c@section@level=\count141 -) -LaTeX Info: Redefining \ref on input line 149. -LaTeX Info: Redefining \pageref on input line 149. -LaTeX Info: Redefining \nameref on input line 149. -(./images.out) (./images.out) -\@outlinefile=\write5 -\openout5 = `images.out'. - -\c@lstlisting=\count142 - -latex2htmlLength hsize=349.0pt - -latex2htmlLength vsize=682.0pt - -latex2htmlLength hoffset=0.0pt - -latex2htmlLength voffset=0.0pt - -latex2htmlLength topmargin=0.0pt - -latex2htmlLength topskip=0.00003pt - -latex2htmlLength headheight=0.0pt - -latex2htmlLength headsep=0.0pt - -latex2htmlLength parskip=0.0pt plus 1.0pt - -latex2htmlLength oddsidemargin=28.0pt - -latex2htmlLength evensidemargin=79.0pt - -LaTeX Font Info: Try loading font information for OMS+cmr on input line 225. - -(/usr/share/texlive/texmf-dist/tex/latex/base/omscmr.fd -File: omscmr.fd 2014/09/29 v2.5h Standard LaTeX font definitions -) -LaTeX Font Info: Font shape `OMS/cmr/m/n' in size <9> not available -(Font) Font shape `OMS/cmsy/m/n' tried instead on input line 225. -LaTeX Font Info: Try loading font information for U+msa on input line 228. -(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsa.fd -File: umsa.fd 2013/01/14 v3.01 AMS symbols A -) -LaTeX Font Info: Try loading font information for U+msb on input line 228. -(/usr/share/texlive/texmf-dist/tex/latex/amsfonts/umsb.fd -File: umsb.fd 2013/01/14 v3.01 AMS symbols B -) - -! LaTeX Error: Misplaced \endSbox! Should be in LR mode. - -See the LaTeX manual or LaTeX Companion for explanation. -Type H for immediate help. - ... - -l.229 \end{Sbox} - % -You're in trouble here. Try typing to proceed. -If that doesn't work, type X to quit. - -l2hSize :Sbox7771:0.0pt::0.0pt::0.0pt. -[1 - - - -] - -! LaTeX Error: Misplaced \endSbox! Should be in LR mode. - -See the LaTeX manual or LaTeX Companion for explanation. -Type H for immediate help. - ... - -l.260 \end{Sbox} - % -You're in trouble here. Try typing to proceed. -If that doesn't work, type X to quit. - -l2hSize :Sbox7788:0.0pt::0.0pt::0.0pt. -[2 - - -] -Package atveryend Info: Empty hook `BeforeClearDocument' on input line 273. -Package atveryend Info: Empty hook `AfterLastShipout' on input line 273. -(./images.aux) -Package atveryend Info: Empty hook `AtVeryEndDocument' on input line 273. -Package atveryend Info: Executing hook `AtEndAfterFileList' on input line 273. -Package rerunfilecheck Info: File `images.out' has not changed. -(rerunfilecheck) Checksum: D41D8CD98F00B204E9800998ECF8427E;0. -Package atveryend Info: Empty hook `AtVeryVeryEnd' on input line 273. - ) -Here is how much of TeX's memory you used: - 13704 strings out of 494799 - 227394 string characters out of 6177696 - 322233 words of memory out of 5000000 - 16868 multiletter control sequences out of 15000+600000 - 6061 words of font info for 25 fonts, out of 8000000 for 9000 - 81 hyphenation exceptions out of 8191 - 36i,6n,40p,409b,1382s stack positions out of 5000i,500n,10000p,200000b,80000s - -Output written on images.dvi (2 pages, 3212 bytes). diff --git a/docs/html/images.out b/docs/html/images.out deleted file mode 100644 index e69de29bb..000000000 diff --git a/docs/html/images.pl b/docs/html/images.pl deleted file mode 100644 index 2fcccff4e..000000000 --- a/docs/html/images.pl +++ /dev/null @@ -1,1182 +0,0 @@ -# LaTeX2HTML 2018 (Released Feb 1, 2018) -# Associate images original text with physical files. - - -$key = q/(0dotsnp-1);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$(0\dots np-1)$|; - -$key = q/(1dotsmg);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$(1\dots mg)$|; - -$key = q/(1dotsnp);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$(1\dots np)$|; - -$key = q/(i+irw-1),ja(j),val(j);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$(i+irw-1),ja(j),val(j)$|; - -$key = q/-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$-1$|; - -$key = q/-1<=root<=np-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$-1<= root <= np-1$|; - -$key = q/-1leiamlenp-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$-1 \le iam \le np-1$|; - -$key = q/-1lerootlenp-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$-1\le root\le np-1$|; - -$key = q/0,1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0,1$|; - -$key = q/0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0$|; - -$key = q/0<=dst<=np-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0<= dst <= np-1$|; - -$key = q/0<=m<=size(dat,1);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0<= m <= size(dat,1)$|; - -$key = q/0<=root<=np-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0<= root <= np-1$|; - -$key = q/0<=src<=np-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0<= src <= np-1$|; - -$key = q/0leiamlenp-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0 \le iam \le np-1$|; - -$key = q/0leidlenp-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$0 \le id \le np-1$|; - -$key = q/0lepv(i)|; - -$key = q/1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$1$|; - -$key = q/1dotsn;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$1\dots n$|; - -$key = q/1dotsn_{hbox{row}_i};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$1\dots n_{\hbox{row}_i}$|; - -$key = q/=0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$=0$|; - -$key = q/>0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$>0$|; - -$key = q/A;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$A$|; - -$key = q/A^T;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$A^T$|; - -$key = q/CG;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$CG$|; - -$key = q/D;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$D$|; - -$key = q/FCG(1);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$FCG(1)$|; - -$key = q/I;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$I$|; - -$key = q/ILU(0);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ILU(0)$|; - -$key = q/IX;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$IX$|; - -$key = q/N_I=nl;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$N_I=nl$|; - -$key = q/O(n^2);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$O(n^2)$|; - -$key = q/O(nlogn);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$O(n \log n)$|; - -$key = q/P^T;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$P^T$|; - -$key = q/P^{T};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$P^{T}$|; - -$key = q/P_a;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$P_a$|; - -$key = q/P_aP^T;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$P_aP^T$|; - -$key = q/Q;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$Q$|; - -$key = q/T;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$T$|; - -$key = q/X;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$X$|; - -$key = q/a;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$a$|; - -$key = q/a_{ij}ne0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$a_{ij} \ne0$|; - -$key = q/alpha;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\alpha$|; - -$key = q/amax;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$amax$|; - -$key = q/asum;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$asum$|; - -$key = q/beta;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\beta$|; - -$key = q/calB;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\cal B$|; - -$key = q/calH;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\cal H$|; - -$key = q/calI;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\cal I$|; - -$key = q/collect;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$collect$|; - -$key = q/dat;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$dat$|; - -$key = q/dat_i;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$dat_i$|; - -$key = q/diag(1)=1(noscaling);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$diag(1) = 1 (no scaling)$|; - -$key = q/dot;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$dot$|; - -$key = q/dst;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$dst$|; - -$key = q/fbox{TheSbox};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\fbox{\TheSbox}|; - -$key = q/flag=psb_sort_keep_idx_;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$flag = psb\_sort\_keep\_idx\_$|; - -$key = q/flag=psb_sort_ovw_idx_;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$flag = psb\_sort\_ovw\_idx\_$|; - -$key = q/glob_x;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$glob\_x$|; - -$key = q/glob_x_{1:m,1:n};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$glob\_x_{1:m,1:n}$|; - -$key = q/i+irw-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$i+irw-1$|; - -$key = q/i;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$i$|; - -$key = q/i=1,dots,nz;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$i=1,\dots,nz$|; - -$key = q/i=1,nr;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$i=1,nr$|; - -$key = q/ia(i),ja(i),val(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ia(i),ja(i),val(i)$|; - -$key = q/ia(i),ja(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ia(i),ja(i)$|; - -$key = q/ia(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ia(i)$|; - -$key = q/iam=-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$iam=-1$|; - -$key = q/id;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$id$|; - -$key = q/iin{1dotsmg};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$i\in \{1\dots mg\}$|; - -$key = q/includegraphics[scale=0.45]{figuresslashtry8x8.eps};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.45]{figures/try8x8.eps}|; - -$key = q/includegraphics[scale=0.45]{figuresslashtry8x8};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.45]{figures/try8x8}|; - -$key = q/includegraphics[scale=0.65]{figuresslashpoints.eps};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/points.eps}|; - -$key = q/includegraphics[scale=0.65]{figuresslashpsblas.eps};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/psblas.eps}|; - -$key = q/includegraphics[scale=0.65]{figuresslashpsblas};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/psblas}|; - -$key = q/includegraphics[scale=0.65]{figuresslashtry8x8_ov.eps};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/try8x8_ov.eps}|; - -$key = q/includegraphics[scale=0.65]{figuresslashtry8x8_ov};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\includegraphics[scale=0.65]{figures/try8x8_ov}|; - -$key = q/irst>0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$irst>0$|; - -$key = q/irw(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$irw(i)$|; - -$key = q/itmax=1000;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$itmax = 1000$|; - -$key = q/itmaxge1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$itmax \ge 1$|; - -$key = q/itrace;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$itrace$|; - -$key = q/itrace=-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$itrace = -1$|; - -$key = q/ix(1:n);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ix(1:n)$|; - -$key = q/ix(:);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ix(:)$|; - -$key = q/ix(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ix(i)$|; - -$key = q/ix(i)leftarrowi;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ix(i) \leftarrow -i$|; - -$key = q/j;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$j$|; - -$key = q/j=irp(i),dots,irp(i+1)-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$j=irp(i),\dots,irp(i+1)-1$|; - -$key = q/ja(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ja(i)$|; - -$key = q/lidx(1:nl);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$lidx(1:nl)$|; - -$key = q/loc_x_i;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$loc\_x_i$|; - -$key = q/m;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$m$|; - -$key = q/mg;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$mg$|; - -$key = q/n;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$n$|; - -$key = q/n_{hbox{row}_i}+1dotsn_{hbox{col}_i};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$|; - -$key = q/nlge0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nl\ge 0$|; - -$key = q/nnz;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nnz$|; - -$key = q/np-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$np-1$|; - -$key = q/np;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$np$|; - -$key = q/nr+1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nr+1$|; - -$key = q/nrm2;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nrm2$|; - -$key = q/nv>1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nv>1$|; - -$key = q/nz;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nz$|; - -$key = q/nzin+nz;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$nzin+nz$|; - -$key = q/ptype;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$ptype$|; - -$key = q/r_i=b-Ax_i;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$r_i=b-Ax_i$|; - -$key = q/res;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$res$|; - -$key = q/root=-1;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$root=-1$|; - -$key = q/rotatebox{-90}{includegraphics[scale=0.65]{figuresslashpoints}};FSF=1.6;AAT/; -$cached_env_img{$key} = q|\rotatebox{-90}{\includegraphics[scale=0.65]{figures/points}}|; - -$key = q/row;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$row$|; - -$key = q/scatter;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$scatter$|; - -$key = q/size(dat,1);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$size(dat,1)$|; - -$key = q/slash;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$/$|; - -$key = q/src;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$src$|; - -$key = q/trans=N;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$trans = N$|; - -$key = q/unitd=U;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$unitd = U$|; - -$key = q/update_type=psb_avg_;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$update\_type = psb\_avg\_ $|; - -$key = q/val;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$val$|; - -$key = q/vg(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$vg(i)$|; - -$key = q/vg;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$vg$|; - -$key = q/vl(1:nl);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$vl(1:nl)$|; - -$key = q/vl;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$vl$|; - -$key = q/x(i);MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x(i)$|; - -$key = q/x(i)=0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x(i) = 0$|; - -$key = q/x;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x$|; - -$key = q/x_i,y;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x_i, y$|; - -$key = q/x_i;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x_i$|; - -$key = q/x_{:,:};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$x_{:, :}$|; - -$key = q/y(i)=0;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$y(i) = 0$|; - -$key = q/y;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$y$|; - -$key = q/y_{:,:};MSF=1.6;AAT/; -$cached_env_img{$key} = q|$y_{:, :}$|; - -$key = q/{displaymath}14{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}\verb\vert psb_version_string_\vert\end{displaymath}|; - -$key = q/{displaymath}amaxleftarrowmax_i{(|re(x_i)|+|im(x_i)|)}{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}amax \leftarrow \max_i {(\vert re(x_i)\vert + \vert im(x_i)\vert)}\end{displaymath}|; - -$key = q/{displaymath}amaxleftarrowmax_i|x_i|{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}amax \leftarrow \max_i \vert x_i\vert\end{displaymath}|; - -$key = q/{displaymath}asumleftarrow|re(x)|_1+|im(x)|_1{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}asum \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath}|; - -$key = q/{displaymath}asumleftarrow|x_i|{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}asum \leftarrow \Vert x_i\Vert\end{displaymath}|; - -$key = q/{displaymath}dotleftarrowx(i)y(i).{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x(i) y(i).\end{displaymath}|; - -$key = q/{displaymath}dotleftarrowx^Hy{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x^H y\end{displaymath}|; - -$key = q/{displaymath}dotleftarrowx^Ty{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}dot \leftarrow x^T y\end{displaymath}|; - -$key = q/{displaymath}err=frac{|r_i|}{(|A||x_i|+|b|)}|; - -$key = q/{displaymath}err=frac{|r_i|}{|b|_2}|; - -$key = q/{displaymath}err=frac{|r_i|}{|r_0|_2}|; - -$key = q/{displaymath}glob_xleftarrowcollect(loc_x_i){displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath}|; - -$key = q/{displaymath}loc_x_ileftarrowscatter(glob_x){displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}loc\_x_i \leftarrow scatter(glob\_x) \end{displaymath}|; - -$key = q/{displaymath}nrm1leftarrow|A|_1{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}nrm1 \leftarrow \Vert A\Vert _1 \end{displaymath}|; - -$key = q/{displaymath}nrm2leftarrowsqrt{x^Hx}{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}nrm2 \leftarrow \sqrt{x^H x}\end{displaymath}|; - -$key = q/{displaymath}nrm2leftarrowsqrt{x^Tx}{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}nrm2 \leftarrow \sqrt{x^T x}\end{displaymath}|; - -$key = q/{displaymath}nrmileftarrow|A|_infty{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}nrmi \leftarrow \Vert A\Vert _\infty \end{displaymath}|; - -$key = q/{displaymath}res(i)leftarrowmax_k|x(k,i)|{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath}|; - -$key = q/{displaymath}res(i)leftarrowx(:,i)^Ty(:,i){displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow x(:,i)^T y(:,i)\end{displaymath}|; - -$key = q/{displaymath}res(i)leftarrow|re(x)|_1+|im(x)|_1{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath}|; - -$key = q/{displaymath}res(i)leftarrow|x(:,i)|_2{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert x(:,i)\Vert _2 \end{displaymath}|; - -$key = q/{displaymath}res(i)leftarrow|x_i|{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res(i) \leftarrow \Vert x_i\Vert\end{displaymath}|; - -$key = q/{displaymath}res=sqrt{sum_idat_i^2},{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}res = \sqrt{\sum_i dat_i^2},\end{displaymath}|; - -$key = q/{displaymath}slashleftarrow1slashx(i).{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}/ \leftarrow 1/x(i).\end{displaymath}|; - -$key = q/{displaymath}slashleftarrowx(i)slashy(i).{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}/ \leftarrow x(i)/y(i).\end{displaymath}|; - -$key = q/{displaymath}xleftarrowQx{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}x \leftarrow Q x \end{displaymath}|; - -$key = q/{displaymath}xleftarrowx{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}x \leftarrow x \end{displaymath}|; - -$key = q/{displaymath}yleftarrowalpha>x+betay{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath}y \leftarrow \alpha\> x+ \beta y \end{displaymath}|; - -$key = q/{displaymath}yleftarrowalphaA^Hx+betay{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath} -y \leftarrow \alpha A^H x + \beta y -\end{displaymath}|; - -$key = q/{displaymath}yleftarrowalphaA^Tx+betay{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath} -y \leftarrow \alpha A^T x + \beta y -\end{displaymath}|; - -$key = q/{displaymath}yleftarrowalphaAx+betay{displaymath};MSF=1.6;AAT/; -$cached_env_img{$key} = q|\begin{displaymath} -y \leftarrow \alpha A x + \beta y -\end{displaymath}|; - -$key = q/{eqnarraystar}y&leftarrow&alphaT^{-1}x+betayy&leftarrow&alphaDT^{-1}x+betayy&lefhaDT^{-H}x+betayy&leftarrow&alphaT^{-H}Dx+betay{eqnarraystar};MSF=1.6;TAGS=R;AAT/; -$cached_env_img{$key} = q|\begin{eqnarray*} -y &\leftarrow& \alpha T^{-1} x + \beta y\\\\ -y &\leftarrow& \al... -...-H} x + \beta y\\\\ -y &\leftarrow& \alpha T^{-H} D x + \beta y\\\\ -\end{eqnarray*}|; - -$key = q/{lstlisting}callhb_read(a,iret,iunit,filename,b,mtitle){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call hb_read(a, iret, iunit, filename, b, mtitle) -\end{lstlisting}|; - -$key = q/{lstlisting}callhb_write(a,iret,iunit,filename,key,rhs,mtitle){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call hb_write(a, iret, iunit, filename, key, rhs, mtitle) -\end{lstlisting}|; - -$key = q/{lstlisting}callmm_array_read(b,iret,iunit,filename){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call mm_array_read(b, iret, iunit, filename) -\end{lstlisting}|; - -$key = q/{lstlisting}callmm_array_write(b,iret,iunit,filename){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call mm_array_write(b, iret, iunit, filename) -\end{lstlisting}|; - -$key = q/{lstlisting}callmm_mat_read(a,iret,iunit,filename){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call mm_mat_read(a, iret, iunit, filename) -\end{lstlisting}|; - -$key = q/{lstlisting}callmm_mat_write(a,mtitle,iret,iunit,filename){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call mm_mat_write(a, mtitle, iret, iunit, filename) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_error(icontxt){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_error(icontxt) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_errpush(err_c,r_name,i_err,a_err){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_errpush(err_c, r_name, i_err, a_err) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_gather(glob_x,loc_x,desc_a,info,root)callpsb_gather(glob_x,loc_x,desc_a,info,root){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_gather(glob_x, loc_x, desc_a, info, root) -call psb_gather(glob_x, loc_x, desc_a, info, root) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_halo(x,desc_a,info)callpsb_halo(x,desc_a,info,work,data){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_halo(x, desc_a, info) -call psb_halo(x, desc_a, info, work, data) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_krylov(method,a,prec,b,x,eps,desc_a,info,&&itmax,iter,err,itrace,irst,istop,cond){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_krylov(method,a,prec,b,x,eps,desc_a,info,& -& itmax,iter,err,itrace,irst,istop,cond) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_ovrl(x,desc_a,info)callpsb_ovrl(x,desc_a,info,update=update_type,work=work){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_ovrl(x, desc_a, info) -call psb_ovrl(x, desc_a, info, update=update_type, work=work) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_scatter(glob_x,loc_x,desc_a,info,root,mold){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_scatter(glob_x, loc_x, desc_a, info, root, mold) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_set_erraction(err_act){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_set_erraction(err_act) -\end{lstlisting}|; - -$key = q/{lstlisting}callpsb_set_errverbosity(v){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -call psb_set_errverbosity(v) -\end{lstlisting}|; - -$key = q/{lstlisting}vres(1)=psb_geamax(x1,desc_a,info,global=.false.)vres(2)=psb_geamax(eamax(x3,desc_a,info,global=.false.)callpsb_amx(ictxt,vres(1:3)){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -vres(1) = psb_geamax(x1,desc_a,info,global=.false.) -vres(2)... -...(x3,desc_a,info,global=.false.) -call psb_amx(ictxt,vres(1:3)) -\end{lstlisting}|; - -$key = q/{lstlisting}vres(1)=psb_geasum(x1,desc_a,info,global=.false.)vres(2)=psb_geasum(easum(x3,desc_a,info,global=.false.)callpsb_sum(ictxt,vres(1:3)){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -vres(1) = psb_geasum(x1,desc_a,info,global=.false.) -vres(2)... -...(x3,desc_a,info,global=.false.) -call psb_sum(ictxt,vres(1:3)) -\end{lstlisting}|; - -$key = q/{lstlisting}vres(1)=psb_gedot(x1,y1,desc_a,info,global=.false.)vres(2)=psb_gedotot(x3,y3,desc_a,info,global=.false.)callpsb_sum(ictxt,vres(1:3)){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -vres(1) = psb_gedot(x1,y1,desc_a,info,global=.false.) -vres(... -...,y3,desc_a,info,global=.false.) -call psb_sum(ictxt,vres(1:3)) -\end{lstlisting}|; - -$key = q/{lstlisting}vres(1)=psb_genrm2(x1,desc_a,info,global=.false.)vres(2)=psb_genrm2(nrm2(x3,desc_a,info,global=.false.)callpsb_nrm2(ictxt,vres(1:3)){lstlisting};AAT/; -$cached_env_img{$key} = q|\begin{lstlisting} -vres(1) = psb_genrm2(x1,desc_a,info,global=.false.) -vres(2)... -...x3,desc_a,info,global=.false.) -call psb_nrm2(ictxt,vres(1:3)) -\end{lstlisting}|; - -$key = q/|{calI}_i|+|{calB}_i|+|{calH}_i|;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$|; - -$key = q/|{calI}_i|+|{calB}_i|;MSF=1.6;AAT/; -$cached_env_img{$key} = q|$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$|; - -1; - diff --git a/docs/html/images.tex b/docs/html/images.tex deleted file mode 100644 index 2191e46c8..000000000 --- a/docs/html/images.tex +++ /dev/null @@ -1,273 +0,0 @@ -\batchmode -\documentclass[10pt,a4paper,twoside]{article} - -\usepackage{pstricks} -\usepackage{fancybox} -\usepackage{amsfonts} -\usepackage[bookmarks=true, bookmarksnumbered=true, bookmarksopen=false, plainpages=false, pdfpagelabels, colorlinks, linkcolor=blue]{hyperref} -\usepackage{ifthen} -\usepackage{graphicx} - -\newtheorem{theorem}{Theorem} -\newtheorem{corollary}{Corollary} \usepackage{listings} - - -\pdfoutput=0 - - - -\newcounter{subroutine}[subsection] -\newcounter{example}[subroutine] \makeatletter% -\providecommand{\subsubroutine}[2]{% -\stepcounter{subroutine}% - \subsection*{\flushleft #1---#2 \endflushleft}% - \addcontentsline{toc}{subsubsection}{#1}% - \markright{#1}}%% -\providecommand{\subsubsubroutine}[2]{% -\stepcounter{subroutine}% - \subsubsection*{\flushleft #1---#2 \endflushleft}% - \addcontentsline{toc}{paragraph}{#1}% - \markright{#1}}%% -\providecommand{\examplename}{Example}% -\providecommand{\syntaxname}{Syntax} - -\makeatother% -\providecommand{\example}{\stepcounter{example}% -\section*{Example~\arabic{example}}} - -% -\providecommand{\precdata}{\hyperlink{precdata}{{\tt psb\_prec\_type}}}% -\providecommand{\descdata}{\hyperlink{descdata}{{\tt psb\_desc\_type}}}% -\providecommand{\spdata}{\hyperlink{spdata}{{\tt psb\_Tspmat\_type}}}% -\providecommand{\vdata}{\hyperlink{vdata}{{\tt psb\_T\_vect\_type}}}% -\providecommand{\spbasedata}{\hypertarget{spbasedata}{{\tt psb\_T\_base\_sparse\_mat}}}% -\providecommand{\vbasedata}{\hypertarget{vbasedata}{{\tt psb\_T\_base\_vect\_type}}} - - - - -\usepackage[latin1]{inputenc} - - - -\makeatletter - -\makeatletter -\count@=\the\catcode`\_ \catcode`\_=8 -\newenvironment{tex2html_wrap}{}{}% -\catcode`\<=12\catcode`\_=\count@ -\newcommand{\providedcommand}[1]{\expandafter\providecommand\csname #1\endcsname}% -\newcommand{\renewedcommand}[1]{\expandafter\providecommand\csname #1\endcsname{}% - \expandafter\renewcommand\csname #1\endcsname}% -\newcommand{\newedenvironment}[1]{\newenvironment{#1}{}{}\renewenvironment{#1}}% -\let\newedcommand\renewedcommand -\let\renewedenvironment\newedenvironment -\makeatother -\let\mathon=$ -\let\mathoff=$ -\ifx\AtBeginDocument\undefined \newcommand{\AtBeginDocument}[1]{}\fi -\newbox\sizebox -\setlength{\hoffset}{0pt}\setlength{\voffset}{0pt} -\addtolength{\textheight}{\footskip}\setlength{\footskip}{0pt} -\addtolength{\textheight}{\topmargin}\setlength{\topmargin}{0pt} -\addtolength{\textheight}{\headheight}\setlength{\headheight}{0pt} -\addtolength{\textheight}{\headsep}\setlength{\headsep}{0pt} -\setlength{\textwidth}{349pt} -\newwrite\lthtmlwrite -\makeatletter -\let\realnormalsize=\normalsize -\global\topskip=2sp -\def\preveqno{}\let\real@float=\@float \let\realend@float=\end@float -\def\@float{\let\@savefreelist\@freelist\real@float} -\def\liih@math{\ifmmode$\else\bad@math\fi} -\def\end@float{\realend@float\global\let\@freelist\@savefreelist} -\let\real@dbflt=\@dbflt \let\end@dblfloat=\end@float -\let\@largefloatcheck=\relax -\let\if@boxedmulticols=\iftrue -\def\@dbflt{\let\@savefreelist\@freelist\real@dbflt} -\def\adjustnormalsize{\def\normalsize{\mathsurround=0pt \realnormalsize - \parindent=0pt\abovedisplayskip=0pt\belowdisplayskip=0pt}% - \def\phantompar{\csname par\endcsname}\normalsize}% -\def\lthtmltypeout#1{{\let\protect\string \immediate\write\lthtmlwrite{#1}}}% -\newcommand\lthtmlhboxmathA{\adjustnormalsize\setbox\sizebox=\hbox\bgroup\kern.05em }% -\newcommand\lthtmlhboxmathB{\adjustnormalsize\setbox\sizebox=\hbox to\hsize\bgroup\hfill }% -\newcommand\lthtmlvboxmathA{\adjustnormalsize\setbox\sizebox=\vbox\bgroup % - \let\ifinner=\iffalse \let\)\liih@math }% -\newcommand\lthtmlboxmathZ{\@next\next\@currlist{}{\def\next{\voidb@x}}% - \expandafter\box\next\egroup}% -\newcommand\lthtmlmathtype[1]{\gdef\lthtmlmathenv{#1}}% -\newcommand\lthtmllogmath{\dimen0\ht\sizebox \advance\dimen0\dp\sizebox - \ifdim\dimen0>.95\vsize - \lthtmltypeout{% -*** image for \lthtmlmathenv\space is too tall at \the\dimen0, reducing to .95 vsize ***}% - \ht\sizebox.95\vsize \dp\sizebox\z@ \fi - \lthtmltypeout{l2hSize % -:\lthtmlmathenv:\the\ht\sizebox::\the\dp\sizebox::\the\wd\sizebox.\preveqno}}% -\newcommand\lthtmlfigureA[1]{\let\@savefreelist\@freelist - \lthtmlmathtype{#1}\lthtmlvboxmathA}% -\newcommand\lthtmlpictureA{\bgroup\catcode`\_=8 \lthtmlpictureB}% -\newcommand\lthtmlpictureB[1]{\lthtmlmathtype{#1}\egroup - \let\@savefreelist\@freelist \lthtmlhboxmathB}% -\newcommand\lthtmlpictureZ[1]{\hfill\lthtmlfigureZ}% -\newcommand\lthtmlfigureZ{\lthtmlboxmathZ\lthtmllogmath\copy\sizebox - \global\let\@freelist\@savefreelist}% -\newcommand\lthtmldisplayA{\bgroup\catcode`\_=8 \lthtmldisplayAi}% -\newcommand\lthtmldisplayAi[1]{\lthtmlmathtype{#1}\egroup\lthtmlvboxmathA}% -\newcommand\lthtmldisplayB[1]{\edef\preveqno{(\theequation)}% - \lthtmldisplayA{#1}\let\@eqnnum\relax}% -\newcommand\lthtmldisplayZ{\lthtmlboxmathZ\lthtmllogmath\lthtmlsetmath}% -\newcommand\lthtmlinlinemathA{\bgroup\catcode`\_=8 \lthtmlinlinemathB} -\newcommand\lthtmlinlinemathB[1]{\lthtmlmathtype{#1}\egroup\lthtmlhboxmathA - \vrule height1.5ex width0pt }% -\newcommand\lthtmlinlineA{\bgroup\catcode`\_=8 \lthtmlinlineB}% -\newcommand\lthtmlinlineB[1]{\lthtmlmathtype{#1}\egroup\lthtmlhboxmathA}% -\newcommand\lthtmlinlineZ{\egroup\expandafter\ifdim\dp\sizebox>0pt % - \expandafter\centerinlinemath\fi\lthtmllogmath\lthtmlsetinline} -\newcommand\lthtmlinlinemathZ{\egroup\expandafter\ifdim\dp\sizebox>0pt % - \expandafter\centerinlinemath\fi\lthtmllogmath\lthtmlsetmath} -\newcommand\lthtmlindisplaymathZ{\egroup % - \centerinlinemath\lthtmllogmath\lthtmlsetmath} -\def\lthtmlsetinline{\hbox{\vrule width.1em \vtop{\vbox{% - \kern.1em\copy\sizebox}\ifdim\dp\sizebox>0pt\kern.1em\else\kern.3pt\fi - \ifdim\hsize>\wd\sizebox \hrule depth1pt\fi}}} -\def\lthtmlsetmath{\hbox{\vrule width.1em\kern-.05em\vtop{\vbox{% - \kern.1em\kern0.8 pt\hbox{\hglue.17em\copy\sizebox\hglue0.8 pt}}\kern.3pt% - \ifdim\dp\sizebox>0pt\kern.1em\fi \kern0.8 pt% - \ifdim\hsize>\wd\sizebox \hrule depth1pt\fi}}} -\def\centerinlinemath{% - \dimen1=\ifdim\ht\sizebox<\dp\sizebox \dp\sizebox\else\ht\sizebox\fi - \advance\dimen1by.5pt \vrule width0pt height\dimen1 depth\dimen1 - \dp\sizebox=\dimen1\ht\sizebox=\dimen1\relax} - -\def\lthtmlcheckvsize{\ifdim\ht\sizebox<\vsize - \ifdim\wd\sizebox<\hsize\expandafter\hfill\fi \expandafter\vfill - \else\expandafter\vss\fi}% -\providecommand{\selectlanguage}[1]{}% -\makeatletter \tracingstats = 1 - - -\begin{document} -\pagestyle{empty}\thispagestyle{empty}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength hsize=\the\hsize}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength vsize=\the\vsize}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength hoffset=\the\hoffset}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength voffset=\the\voffset}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength topmargin=\the\topmargin}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength topskip=\the\topskip}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength headheight=\the\headheight}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength headsep=\the\headsep}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength parskip=\the\parskip}\lthtmltypeout{}% -\lthtmltypeout{latex2htmlLength oddsidemargin=\the\oddsidemargin}\lthtmltypeout{}% -\makeatletter -\if@twoside\lthtmltypeout{latex2htmlLength evensidemargin=\the\evensidemargin}% -\else\lthtmltypeout{latex2htmlLength evensidemargin=\the\oddsidemargin}\fi% -\lthtmltypeout{}% -\makeatother -\setcounter{page}{1} -\onecolumn - -% !!! IMAGES START HERE !!! - -\begingroup -\renewcommand{\thepage}{toc} -\endgroup -\stepcounter{section} -\stepcounter{section} -\stepcounter{subsection} -\stepcounter{subsection} -\stepcounter{subsection} -\stepcounter{subsubsection} -\stepcounter{subsection} -\stepcounter{section} -\stepcounter{subsection} -\stepcounter{subsubsection} -\stepcounter{subsubsection} -\stepcounter{subsection} -\stepcounter{subsubsection} -\stepcounter{subsubsection} -\stepcounter{subsection} -\stepcounter{subsubsection} -\stepcounter{subsection} -\stepcounter{subsection} -\stepcounter{section} -\stepcounter{section} -\stepcounter{section} -\stepcounter{section} -\stepcounter{section} -{\newpage\clearpage -\lthtmlfigureA{Sbox7771}% -\begin{Sbox} - \begin{minipage}[tl]{0.95\textwidth} -\small -\begin{lstlisting} -subroutine psb_foo(some args, info) - ... - if(error detected) then - info=errcode1 - call psb_errpush('psb_foo', errcode1) - goto 9999 - end if - ... - call psb_bar(some args, info) - if(info .ne. zero) then - info=errcode2 - call psb_errpush('psb_foo', errcode2) - goto 9999 - end if - ... -9999 continue - if (err_act .eq. act_abort) then - call psb_error(icontxt) - return - else - return - end if -\par -end subroutine psb_foo -\end{lstlisting} - \end{minipage} - \end{Sbox}% -\lthtmlfigureZ -\lthtmlcheckvsize\clearpage} - - - -\setlength{\fboxsep}{8pt}% - -\setlength{\fboxsep}{8pt} -{\newpage\clearpage -\lthtmlfigureA{Sbox7788}% -\begin{Sbox} - \begin{minipage}[tl]{0.95\textwidth} -\begin{verbatim} - -========================================================== -Process: 0. PSBLAS Error (4010) in subroutine: df_sample -Error from call to subroutine mat dist -========================================================== -Process: 0. PSBLAS Error (4010) in subroutine: mat_distv -Error from call to subroutine psb_spasb -========================================================== -Process: 0. PSBLAS Error (4010) in subroutine: psb_spasb -Error from call to subroutine psb_cest -========================================================== -Process: 0. PSBLAS Error (136) in subroutine: psb_cest -Format FOO is unknown -========================================================== -Aborting...\end{verbatim} - - \end{minipage} - \end{Sbox}% -\lthtmlfigureZ -\lthtmlcheckvsize\clearpage} - - - -\setlength{\fboxsep}{8pt}% - -\setlength{\fboxsep}{8pt} -\stepcounter{section} -\stepcounter{section} -\stepcounter{section} - -\end{document} diff --git a/docs/html/img1.png b/docs/html/img1.png deleted file mode 100644 index e7280f00d36d73c160acac44123814715d0282a7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 210 zcmeAS@N?(olHy`uVBq!ia0vp^0zk~q!py+Hm=TrK1>|T2_=LFr|NnpH%$cdFsm{*M z@7}#TbLPydRjWEWI?Bq*fJ%&vjPBmODa8A;yv*zhDN3XE)M-oG?!p z#}JO0$q5M$(i~XXB_zZQ3``E}nCNh(u)DFboT-?(%PL=BBKMIV8Hc8~MiVj~Bqk(e zP1w_r_J~d6teyC&j2VmzZ6$gRm}I|=O*L3Nt5I=sBO^oEM_!c$3~G~rHZXX)`njxg HN@xNAz&uI> diff --git a/docs/html/img10.png b/docs/html/img10.png deleted file mode 100644 index e94e2a07b561799143695201bb1d6f20cbd23ffc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 447 zcmV;w0YLtVP)N0}~h+Hh{?_mU`XI(n83+U05mUvlV6`R;Q^4vAPE%nXPiKUIp|($XCGNdH^B{<}(2qofptd>H?-R1(+zqTDw-S;u>5*UT2UD3nw$ pfHE#12_i({K1U4#Y@$OA0003oRdzkQ%@F_q002ovPDHLkV1n(5r*!}T diff --git a/docs/html/img100.png b/docs/html/img100.png deleted file mode 100644 index f6badca21146f4a33fb163270ec8b2d12afb96e0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 603 zcmV-h0;K(kP)vdLMKHOk)R@>qDYTRO2bvhLpr5LT9k^UxO}@lC&rv8P}1>9o|&E5*`3!K z7-QNHWyr9J&$x>qXOX2@#ptyQ=}?d)!(#h`p`Zo*KK zeu7Lu#`G8_p38=t0Ju90!z^?ot|adaj$3@+S9_xoTyqkeSHx*+ z|Al=+EZX4#9zI7PFTB pMue^wuUl2zhJ8x${d*o^@Ea(lbhv=4ECB!j002ovPDHLkV1oaQ9QgnM diff --git a/docs/html/img101.png b/docs/html/img101.png deleted file mode 100644 index 991e37cee66b74720e38c0af525b746a8ec341ef..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 318 zcmV-E0m1%>P)~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0KZ8@K~yM_V_*OQ4h9S$#epWs%)r2Mm4RUa7PaVri{k+wm~nuCi?C|! zfCof0Ffi~)1j=&UqJhh337#vVi!gUSfU=svWKOri6TYVkj0?cL zMGKIm81681Ft8ke#q-MsgcQ2~--d!m3~!J%L8XAPYs|n93}SM@tQsN!0PWT$5ZvYQ QU;qFB07*qoM6N<$f>23+6aWAK diff --git a/docs/html/img102.png b/docs/html/img102.png deleted file mode 100644 index c8269e63edae8d233ef80b3eee9596c55103d787..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 487 zcmV@RJ%^YFcdv)Q#THzsaQH81&O^LkeHCl7XW|2!b~M5 zwn$8Du0Sw>%Ea1%oqPcbW1#~p1Ckepiow`@t*AOg|mD&jTF z!;hv85TF=TXxnrpxL6>`p)qBq8f)n-z4!!?;i9XCVJ{oC1VNQ#JPv~{nTxoB^8@F) z6*3M_Sw?C~z#UZAJ;vexYdO6oL)TOOq&bfR7xom{X~-n$2;t& zw4NN|D^TVr6aO+~KFH3SdI|R`*GD*6Eqhm3j~m^YeDcx<_Ch);Ztx`Mq49s`uJ}L> d-jcdi!Y}RxPPit&Uj6_8002ovPDHLkV1oAg()s`Z diff --git a/docs/html/img103.png b/docs/html/img103.png deleted file mode 100644 index 61f04c6da1ed8d22886f6315bc88d87c5accc519..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 397 zcmV;80doF{P)~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0S-w-K~y-6V_?7sHZd?TF$gd)9731iU;>dm^YH3sU|@q#1!%%IU<~F9 z1Ps6c2iO&mcn^TMfdML#VaKB&0J2H}2p=#s@G&rQmvaH-85sBwTAncQkZLC>0K@Qx zM@SqFH~|9&K)1mJPP4qQ0y>uiF2KXV%Lo);1qn2O)D=8nVq!>OU=*riTDs8(R0DPUK@JOM~3~m4b2E#CD2rR8B00000NkvXXu0mjfOT?4B diff --git a/docs/html/img104.png b/docs/html/img104.png deleted file mode 100644 index 3aa2f86ddd8c8d586120351409f5fee97b5eadde..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 281 zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)r!py+HXqXmw8OSjR@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3 zqyah8JzX3_B&H@OBqTgwdBnuV5s;sdFyjCN^BQ%@4UETF_!J^rLir>==xZb-KV>#z z;fp9Z>2#Fi)gcy{`>J9EUCn1X1sVxsM=XFw-1c)I$ztaD0e0sw!mWH|r; diff --git a/docs/html/img105.png b/docs/html/img105.png deleted file mode 100644 index d20f20eb916e3cff767f73bbda05478e8a382237..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 423 zcmV;Y0a*TtP)luya47hY9Uhram4j4GgT zV><(90Z@Q*0*0Co3mIw{SQ8in7~V4QgDhjmRKpg)aGYT#8*>4t0s{xwK?fN4=ez_u zdLB^i12DxUz<+?jzJYh4^aTdy3m`Q&aXGh;VI~8^dEF>fZsKm&~=|7_S}I3Cl4Ip6@AK(q{hZ}?JZSSu0aI+X{iEF?hQAxvXSU;qI|28IF#h6xPFfR}*-h5r#uZeU-?;5TSM2rw5QOJ87M habWNz-giR|004}KFBO;P>kj|`002ovPDHLkV1i-Hl>h($ diff --git a/docs/html/img108.png b/docs/html/img108.png deleted file mode 100644 index 452a9c87f5ccd95eca5fee9cff47340be799eed9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 520 zcmV+j0{8uiP)0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*IhDk(0R5*>*l0QoWF&M_5_S(Bk={0pK1;K8v_Yvyipa|{i6wt*% zj1CsTp@@THT*MAi2S0$5gVSwYGZh>P{Q^Qj+#Gz9w6%p!9SXif^5e<9e;)1yCecIz z2(dH-e&$}HDOBDuR`dw9JZ(uN?#%uKO65CB+W{Ihz^R>LwTNu>h!GWS-7*mu$C7bj zn*`+|$CssA+73{IRFJ}ic!Bi!1`K9MZqNl=b%+&0Q$HWlQ3h(CaiRm~h|j(Z{8e_u z)2wB98UwL(E{QN~Ru#0($X=fr#zduE4pC|{!qho;-h>Wq6#-K~9%53NO6UZK77g?o zyss%D;jWw^N~X(t>#r@~GFe#Q2Y2o*RA6GJ)x^9lH;YUDD>p{cvaBt@5blHE*)NVCxC)r`uOEv#O`szmH$~hF5vio1uUJ0000< KMNUMnLSTYI*ymjU diff --git a/docs/html/img109.png b/docs/html/img109.png deleted file mode 100644 index 0d45d2e5571a321c21e3009f9df80b97837cf0fc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 350 zcmV-k0iphhP)GYCvO;GfH3rcWXgc+zHB* z&Jd`BkyfZ-%7r3-wB#T_i{}c9?2E@|++P}i!{}$WO5LPMtdOq9F>Y#P#G<}{iely@ zDx>w|yPQVS_zRfwp<;=h3YC?gd*`cdgv$v+=@`~7Wj7dL2Cf~$)mxcSf{S9Bn8L!P w_#EBwA*JsihTf~aZ^mt*<(AI$#|yr}4Tx+iw$jiQi~s-t07*qoM6N<$f;iQj?f?J) diff --git a/docs/html/img11.png b/docs/html/img11.png deleted file mode 100644 index 5af308a8d1d779b827b769262d525b0672dfa850..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 576 zcmV-G0>Axz&*5Iro*`faln=Hc<_E-1 zl1z(r+AJaymUw(WAmX84?Kd4abVKxHiOwEkng({!l3~85O=Q;uYe#+B?RqD|nq*ID zA==awm6%bJVR#3ooYLELL3z-!|6?*3 z7E`G$jGiBZah%@#@Tt~H87M&i3s@FW3Y}#$l@)$=a5%0S3A+L_G4KL+@Ow$C^XgX- zWO#Fiy^rz==xxAHdnEn`;*ZCw&1SAUJyoQW5_q{UCRjQ27;sHKh!!5FdHI5Py zz~4{{*g23xND7Cn4tX)vOC_fqTY?HY3))g4`K{1rgz&U;XvqNTei3W6z=?21Un_Mi zpU9dZxMElu;f#g46XNc4Lw#cW8D3(XrQq`L@h>LEHjHgg!NxtX7*>VmBa#p8x;= diff --git a/docs/html/img111.png b/docs/html/img111.png deleted file mode 100644 index 4cbf0c4939b3311726bf65c0642f4402e48268cc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 237 zcmeAS@N?(olHy`uVBq!ia0vp^qCm{Y!py+H=&E0p4dfUE_=LFr|NnpH%$cdFsm{*M z@7}#rR8%~3=FF;9t2#P5%F4<@LPCHFjf{-$-n}azAh3J)?!NB)&p;u@k|4ie28U-i z(tw<7PZ!4!j+w~`K%mbc#KSFdpyA>t24;wLQ z?gmC_W@hQbtt~8UdiR9#*wU(YiqPx#=R?L5Yk5|SU;qM6H~|3)jNB-Eh6@a=PZ%aJa5G>B%s?!_0Mx|D z4^~{j3le3Yi9$!E+Fyhyu)RR6QFy^^2qg=(ltqDo zffeXtj_(2vK!GJd|9t>jYA^xLVPm+k7p#n%*MWhHx4<5(lg$g}?wLe;kshEJh`T;O z*z5{S32=$?U{Y8BL}oKEYyncWa~!@hup2-XOa3~XbDDWR> z_{@Q12Xg}00AOUhFtDJ+kpBl%m)-yW|Nl2?c#(Dh0OK7md3N$d=>Px#07*qoM6N<$ Ef=wZe2><{9 diff --git a/docs/html/img113.png b/docs/html/img113.png deleted file mode 100644 index 709c989869cc2b00b70894b8276c3419b72cb984..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 279 zcmeAS@N?(olHy`uVBq!ia0vp^@<7bT!py+H7{vQ(5s+gL;1lBd|NsA)GiRozraC)2 zzkByiQBm>CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR@Fdb&7eZBy|b@;+C9OlaRnsG5f&j zfCCNu1vTOUa}LzYoeud<9nv(ENpEh9cQ`zuuIL7_*Y<%61Rg>=s{{iLE?@B2Ob?@Dq&`3 ZX1H)nsda~XSp?9544$rjF6*2UngBF;XXXF^ diff --git a/docs/html/img114.png b/docs/html/img114.png deleted file mode 100644 index c7a30bbdf0311a231a9fbfda4cb09f2c41fd08b7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 303 zcmV+~0nq-5P)~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0I*3!K~yM_V_*ORjsgZ0Ai&3f4p=TQU%f!II{%k?r0vLy3fdWweo!kQu zhn3+#09+X-Pr?KUr*{F&fCJQY7nJ}Hn0&5;A@Kr2HGznnZi6QbIZf;e=n@Qf7&<@% z5WIU=`0m{Sm;}23--ZHq0ZgNS_8CJhg-Z-t003sKDuEe9k0$^C002ovPDHLkV1g8C BY6AcO diff --git a/docs/html/img115.png b/docs/html/img115.png deleted file mode 100644 index 3ee61bda66d209d8071a342cae4b733c713915a7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 199 zcmeAS@N?(olHy`uVBq!ia0vp^JV4CH!py+HIB&`YPawx2z$e7@|Ns9pXU4G0e$3jGJffG7xp{(g5!YACHj7l(cyW z(V9z|aB6pgoKjwJu1uE-TcWN7&#KY*SmxJA(=YRp2s$NJyc02Q*{aw%Df>R2>SPMF zZI&8xahK;a*UW%N@i61~io^Icz_0A}#(+tEm|?5M{(G$X zh}=Tg@ePv&9s^HA%S4Wn;dx2UElKj;+)UXX4$dJa|=Jt zT8yiICgOs8Yd<}Ed7HB7*&uw2Wix=W zoDUcn<}rXNAdgFc*Zj)_?IYNI!-0o43UC1&B?XQI3;?elmM?%~FOL8K002ovPDHLk FV1kP@nH~TD diff --git a/docs/html/img118.png b/docs/html/img118.png deleted file mode 100644 index 585737f0238b71c884efe53d0b08b003463c5bd2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 366 zcmV-!0g?WRP)`6pHR5*=eU;u*&6Py{)K*9uebRh!}!3a{$z=0&Z8wwC2K%M+x z#s|)s3=Euq8$coq{7fex(!A&f<1z;wOn|caII9!0=fMMp$`Cx%Ntd-0_kqdAYyqtVM2A2a=fRmx&0~4|#{0tXZ7*GXh2+(}L z0aJhoz@C82b0nmEGKL7FBo+l6`r;EAntn)u*dJzMQSf0QLoq*>0K^FgfNtP21_FD8 z0=58#w--_&S~xq94fuI(BE#$i1}*_!bD$|W00%CKAq>!yJ9=~j0FRe#j3nV`00000 M07*qoM6N<$f{k&6MF0Q* diff --git a/docs/html/img119.png b/docs/html/img119.png deleted file mode 100644 index 89de8dc3246d22b8b3d9421a55cbe8a7f745865e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 857 zcmV-f1E&0mP)0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*J*GWV{R7i>KR?TV@K@k2nv(r1h*-5V`k${kW0KvIM5Xt5gFa-AE zC8q%~;K|9wD0qk>sJ9M+8YH-a58%o3Jb?@d3pp(83kZWh!5pNm{+Z2evL-nQVo1Ss zSAYFgZB128_X3CHg&tD3@Q{hs>@aCx95ZbL5n4uPmk~Ciql}zr#~k8UIJntVkU753 z&^lY#gE)cpiKRBwg3@Y(oB|4uR_W=@BQh@eC7 z=sll1FyZhGEO*U&h&eeQcL!!qnmj~lM^ddN**DWpl#_1YN}~Dob_0x+pyjSi+@Jiu5p%(M}X;Qg>7kd8rjmWeS z^^c)5dfm*m2&&X9f+CHPdo;AsuF~<6S5eATNvOB{uHIXresh>uIhc_%IXzOLb0{vY z?~P?G06T^Lq_873lq0n88Zc`pj{UOO**hu*x+|;Q5yaWu80Bq&+fXf=MX1b_yq}Z7 zl}BBI)`HHccf2whn@MozVvFpI$`flfm20&60k7A@NR#;&!yiCT4bkH2y>KkDRPHyS=_Q~616nmkNqKI6f^4tEfyb${kc__@B>r5 znlvf`lla?o6>D@U!~=^vb_)Kil$qBX^(IYoYxC13=X;+vf$Mk^o77IMUs^X;AjRor z{3DI)i9tWlqG54jYZf3{7Pbdw}-J!L8jMqY}ldw4Iu&vc# jOcebb{N?+ diff --git a/docs/html/img12.png b/docs/html/img12.png deleted file mode 100644 index ca3ebaf2b71d649267e5814c4dac5c49eb7d021a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 129 zcmeAS@N?(olHy`uVBq!ia0vp^%|Oh=#LU3JSSYbw4#?pN@CkAK4+ISVF9Ny$88SDQ zodYr$OM?7@862M7NCR?|JzX3_IA$hiB&0MnvvHI%_!K!<*l=iW=wRw7Xn1MRU|7M> Xv4`o`XSvK}K;;acu6{1-oD!MKR=;o4KotHGr*_V&b16&2RwNdtT4I0&)%g$7|G*5) z&4fT=FmwPW4iy0&ic+Z(urYPcUw}@kKw^Q29m%4iQYLf1{3~%%BoG7Sll<=d-uv#| zdp%9$ZjS|WuxB1cVFmW3Vxqr#AYxxprU-){^Jhvl5LQNHjSS!bTr zO%85^e6QYb*5DropVQP8YfTT16a-^dSk%*J>x$O)iB|5-uh6PlReJjf)Z9`RiQ|NZ zC(%hWq1j>rXWn(s-;!rbQ&>(hk9gw2a~XI+>4?nuTd^zpJ=K&nO%!FQ9eNR>Zs-P% zIc5}%J7_m-9A#04d6coHgdE>wX9^G+h3%ok)g7rO`7z99bRateGgVc?5150W@m5$t zygots?sh(FByhq{wUimBlBEw+DgASzKbN94`UNM6sUG%cDdw|(^F>*?!P;B*N90oP zvhAaB5vW)fIaQ)mDLRVB diff --git a/docs/html/img121.png b/docs/html/img121.png deleted file mode 100644 index 61df3677072db8097bfa090839e9e06db779847c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 423 zcmV;Y0a*TtP)!L4YtAkD?DKJWdetfZ>1tUj|-223A%^hW!5@AfgFy zwHF9mO+46*1#BR!4FL{-9mI|hXogUz0mRI}z;6H&;RkyHv!;LvYe02C_Z2*6PJVI~788k+w9zreuHIpM=Xu+Upj$mjnD0)$HT0|^K- zYuMO;X0ZiuD6l19n913JWc!Q;E>M)37ut&<`{CR~Bpxq5AB}i`ErDUp#Q+MdpoIs+ R9ZCQI002ovPDHLkV1mBSqeuV% diff --git a/docs/html/img122.png b/docs/html/img122.png deleted file mode 100644 index 401353f2dbf4ca549c251ae333a911143e4d8228..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 151 zcmeAS@N?(olHy`uVBq!ia0vp^JRmj;GXn#o1jC}|K#p{PPl)UP|Notxo!`BC*U`~Y zR#rB1=1e0aBLM+{-Me?cJwGD?sEn~B$S;_|;n|HeAVfPjlZh{uwZC*eR%<4i`b8IpDlD{A=IL=NyDVNBv4J?aQ4p+DN z6tc4APq@%NljnaVtA&U}T2n<1BM)!9~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0S8G$K~yM_#gRWs13?tVe;9V1U9(G$u$7g_9wA2BP@a_p29a{SfdFTMDQ!#-;eLTHv@BY`3k)dJ3~gKzEf7A5VnIx z!pF#GKO+uSQRk5Bd-If*O2R(gkJF1NTLC%dQ|%uSFMi}59PqGAQi0T&dYfJ|db#1& z#?_cTB!DyDXeN15kt>@y#l#2j8b;K5Aa1~jeU9Kbg3};-!iBhv!^=0#7MvT{SsLE8 kf!nND%ZV|+yZi6(4x7g{X4lUHHUIzs07*qoM6N<$f*HZ9f&c&j diff --git a/docs/html/img125.png b/docs/html/img125.png deleted file mode 100644 index ee72c1c30a9efee573c80897adb80221fb706be9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 260 zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)o!py+H=(c3y3LwWIz$e7@|Ns9pXU6dAc};NK8#m0D@$PhPejE*d>}%RhbX7F|wUwb}(dCnaWecvnJse-(eqvvnLyv z3yhjH@ zc%4F6gXV08FRb@jHI7d{$dSkp{l7kyW&QNVg;J+j7;Z<4^|~A1)&aVP!PC{xWt~$( F69Br+TY3Nh diff --git a/docs/html/img126.png b/docs/html/img126.png deleted file mode 100644 index 1f336182b0e3a374e81a0615bf158489acd7c46d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 268 zcmeAS@N?(olHy`uVBq!ia0vp^vLMXD%)r2Sd6(BJAV)XAC&cyt|Nk>*&P+{Bb#``s z_wJpdqT-n|XI8CR)zQ&WR#p}g5&~3cWMp*r?%mzHcTcL9)dTVwOM?7@862M7NCR?u zJzX3_B&H@OBqTgYc3_egIK$1u!*oYn!hk`UnOU9rF!KVPX69u&TnsPyDj2S*9N55^ z5@;>3Tt{I6FZT|PZQ>b^7}?m=C(L%_OKrR4Em6^E(#

      v-{}55O!CdEQPMrYs?1I zbD5d9GrPD&FnD}m{K>z-E8f@PS@Tj!i8B&ijv~rFf~T!#SCnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR?uJY5_^IA$g%Ff{E{NIJ;EW{~hC{r`am26-NbCnd*NR1AArjV07Q7$h0j{K=Ea z;rYRE+&#|Gtt?EzyJ6x_b$NAWX6eK1c42A@^z_*JIL{nqs@VFNW$R>1o+6owPx~bc zIDa&{-ZR>eoA^LGVef=f2RODxHa6-u9Gvjb_^=P#2Guz* O0000Md%8G=aLi0jNJw~)*ubF5Ch_1&N`gSbgF6i393Bi4r#hVZKdqFBSxexYDf1+s zHv&@?n%**Y`0U^iic|R8$SD3HFCn0L!;Njz53=mmcaW5v!>`bz!q#T$z{SA1kgxRP Tf!m@$YZyFT{an^LB{Ts5dJIj` diff --git a/docs/html/img13.png b/docs/html/img13.png deleted file mode 100644 index 8fa140bf554dc583fa20b16430d6143f20bfb13c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3564 zcmb7{c|6qL_s7S+C0j*&Y)P_YU$R6@5!ohVEMqIAFl3uShKP)P4_S+{gzVdlk%(m9 zGxnWfkUiV`H~qff@BiQL*9Eep-B=%b9{>O(fLw5N-0$vo1RQsoo1p*{41i?;Squgc1O$tV0ak!@ zn3c7=8vp^Iqv`3*O<)QPZf*vEO<;@c?gjunz{&~$#lSKWDJu&cO-%uqzg#F30H6R8 z2>`MHnL^GV6BJy-U}mAv^mJeciyZ)guvmZ`enN%{l6hqG{|_vg+ASyu0O1nox)eHH!_wp#0bS1?P@X5!p_J&L<>`1A+=VlPu zfoZeTMG>F79?hA2n%7S_b1+G|88heV4y!TAs@vCDfUYf8AYx_RT1NNXr!A+zN1>l3 z?gUC1@)N6~fcG6+0x5jc1skeA*(UP#HrYSOsec0%vlzUzDYA2ZG4inNDgn{2+Nx-)uVBFtWORA^U>|1tLX$B- zjFHz+T|=2=OVDbd>(IzJDk(x%v{*^nB<%C)VBt%r%jXU8-1fbX!+2arVih>`m(7%a zGsZMA*@Bm{c7qqzwSP@Eh+E~v95$muyR(euf~zYXzPY*4>>ny=I*0D*F7!GT^ZIM=hXTNDy)hXO$ z*Yqw1W`T7N$^X%klK)ec)0`j0yfz#z0QuD%)TMzcJ7&GkNQa`RUpbIv7xqB=wH>a+ zmp90brCKDOFI`_n6_pGhGS8lc-FjlrNd0GUqxM4)?^5E@)5;E7Wl$f;%TYz(h_ ziSD3z9P3#3x0Y=`zFSB@%U%sih z+SN>D6t!O>hU{x{NR)f`j~o4Y7*5;f+|*euwKcMD!s=H`uv@LIJnOZ>`2ZJkIW&{3Z|g}+7` z%34&R+`l2V&o`(3=&(|EG8A)9F6(RCKr73na7D?{xWZg@8RHzTLL*H1Xo2ib0Hn$Q z2;W)ouE@ zXGt8u7E$k~Nnx>UjF_Dae4JxEr^e@rJ99LgIbR8?SIET=4UC@$Ky1B@`H37uua4W~ z?Ubo^9d2!BHlj*AMdakC~yiYX9vE?=(`T7KFeJ7v~VFGks&+<`j33<9ACMw>!@)#lvA&TLJ*VCjR}HnXtw ziQe2z4n1;e<=E|eGf~aW>?H@62slZppVTjftqjgHx!_-VW#XP!!b3(zl=uJn7Wf-$ z)w059Cl6T-0xf0v{7@n66_A900BLko22VkZqRY{#vKQgbP)oN<+8x~*j=P_>&Jqgu0$++?^IfN{{3SJ{< zdnrr}n`*98aIV4M*~N5s^mP&gn}nLsISmI&Rb}WPT!21AfId-Gi%%mpkuzbtV5kBh%G?VC9WMt4V+N^jFvKIJd2kiY{`td@0LPm4>iwnrk5l%h(=BSST zm~%|<*7Xp92cP`p_vRKL&T=s@({n__g*wiTg<&s_{x`j^{CS8&&pFKFl6=5Qc4}z( zuf;^^0QnLRc6UY2K_&ji8!B7oN_SB!?WV13j^6aU$@{^Og4YMZ>P%{Ar*(e02mEr* z7rNU7GtQ`5{YTR9(bnjzYqrTvJ9x|er^H@cbVibO36j7_e*5AYh*v8jiar?!ud~nN z-VrilQ6{6D+a+b6w+^Y+ClBy5&FanNHSr)c)P!l8&$WPa`jWwgLl!l((F$iRggyVu z2vMV1#-~*2$S2TRZE`3my8Ey!lR7V@SS<2UBSc&6yBQG@UR{M9%<@;-6+h$MZd6Vy zQnI4ull3~4Ku^Rrk2c-IeZHTTa;3Z;4l&Uqe*7?*GQIZ3g3>rrx)Jis6JlMCGrA8+ znbOlsRaXdN8a=o*Jg?I=jS+UcrmRk3U=Sq5gZD|0CPzAzlV2p^NkFx?u%E%W56p;k4|$G9ArNGri{{ z^+Y6HHf83We?H7~*m*)lNY(paESQ#L9~V$4W8;wuvm(SjBiVN(r=;HQT>Sn9VRdjC zwOh0-Y^b6SvzeE5;uDf`>c5cfch#?gg7i?>Q1-vHH{LuhtgxxiOue1HjcZkvHtx~P zw3;V4wOR50uJ=A=@&%_0VL}Tdc{sl|EF@lArEzz$(Cwh{*sKqwf2oljjjOkGXcGnz zM5zCxd;jo!oBqjt7*qPeL)3z+6<=OQXh$!Q$m#Q4zfxm^uBm?6f_FVB>uFeEzcwu@ zp#NerMHyvvZ8qJEzS`(t!hF3Sp4D%dxzVrw-UTc5lwXq?v)dVVKd0nR6armwg?G6> zqK}4@^p?{sD!QKf?n&r>t$%k2a_^F-Nn(>J9QZ6;ZRhnBe)?f9NriPxP|p!~xI(9c z(XFPwvY}Wd(=|nD^gKtahN9?t?gCfYvISo(`ZdeVXTuFz>1oi_+yZ6A!Nqrq=1zmI z2KG6q!~+Vecs_XIs7rm6tGqk{)N5CDud%xwwp7a~df=hx?&YyDM6Xc#2)RP*D2CHf zH?L$^R!qVT=DQ6Zq~|kPGf#dT(CmR9(OGZ!M^wi*uLxu+s#}=+(;wP z@rbzC##r5Mr$`ph4qryjN_rq>w3E!jCbN{X(F(On0|vAGc*+TB_PV}&xcO_V+oDZW zCyEc%zM#LJRmT>w?HohQ*%5X~U3X(4Zw)bThP6ix{MH{7>@pgz-&;@E39{)-Tz|o@ zO-hN^`&fy4VRT}7n0KfbcQuUB+96L%ax%ECO?xf{$_N*9yG#?~?Gh;B@UOGx++~^sRwbDo&>Fz$otysX3wqH~s#2V-vV!dCpfHe3_EA7+eZT`FAnda?T{ z7VTplO}VOGNrCe>S#Gsf651c87+xI57x9>kJ?ipYE{uSMpI6{G-?`!X zhu@pMV2q*NI&C-M`vhisT?7 zz+Vi*wW}=oxksa>-3F7Q-z&xR`l`!&AA090IhJ*rIh~3iX#O}7*1CsAU;XV3f9CK; zepGgO=dCLHq+>+`h~KxDt;;o2gire@Cp>>Govnq_q6%`xdCKi6Utn$7%wj~hL@jTN z#>9D#?~~Z^K2WJ`Ho7@2>=srEj#$P#%aQX`st;Uu>OwlHEd-vvy(yp9R=)LC1?fIh zN$RQD>N#I`u@U#d&^-1D}$=}vR$!02;gXCJh0IT`@3&_C49)oAswJ% Y*AzJ~84tE1e|A8+_YLorY1xJRA45?rYXATM diff --git a/docs/html/img130.png b/docs/html/img130.png deleted file mode 100644 index c39e7eb240ec2b712d3e96298c2bf3249a02f729..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 263 zcmeAS@N?(olHy`uVBq!ia0vp^Qb5el!py+HSYPqU8OSjR@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3 zqyagto-U3d95a&>7@C-Q0t_5G8yk6#J$&*c9Tqxx6 zasHF~(^id)!W`xt&u2AWHQw0#Bh#T)p^B0DHnYIqM#YCpC;B3mv0jqj@WP$7*5S?F z0}I$5?qx{Y_BK_3kNw7tciaMU^BE?bcu>Rea4S=x5c6Rv1y%;uDWdN<+5gTe~DWM4fS-xV- diff --git a/docs/html/img131.png b/docs/html/img131.png deleted file mode 100644 index 8d05ac1ef143b2bee86f9d9525fee445c2caa5a9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 943 zcmV;g15o^lP)N@K1X2Pi0hjRH z4ZljczXQw7gt1sL&ZYG0xA|f8bANX z9vv+)T3Rd+Eef~n4*?A5NbrH|Wt}(U3(-Nah)8tcEC$dH5pfoD03Eak5pndP3oi5y z5owT@vv=d;d*A;VpPk0f!S`hSAR?!OJl)bc?rx2)Fo?+Rb@>E3us08n_@UqoxAX*j z8xXJoaBih#eJEImcLu;Zu#VoDpzI{@mgp_s0eDODEyX82Zy5{IK2o)4%0=D4=K)fgaFWYYimu9)(5#k3tcP0zv{5u_Pej>UkW9 zkil0|47um_UX_`g^(=7oAZ_|0X3jZ}^ebn8`{Qda8yYXk~6+SVIpNDfi zUj9cGcVZ^JKZIwI;buX&iT%whQpH`Dh3!z=mkYC&g9M=a=MyB$$2#_QA-e+O--#w$ z-T(v*q^=MYfCi zG8eciS*SSB7Bye~C(=4X4Rn$+d1oxdtCgV5m1*dtD>cyFT&}AuNdekGnl7^`8U;;(G&rOBX;5DgDUI$w9{hkk0Yb|&FgT(}@S?;JCs5gBRGnTRf>DyeLn_^tA(;Ux zF9pOL`r;FTT0pVzVJ1TYD==JUG9c;yu#lk`80;Vm*bgKy2s2z@s6>`$3t)JAfq?@g z&)LDTT85V;M0085#HDt4+ RLtg*@002ovPDHLkV1hhhoge@J diff --git a/docs/html/img133.png b/docs/html/img133.png deleted file mode 100644 index 70e23fad651ae92bd5a7dd5932bbb6e176c1b19c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 425 zcmV;a0apHrP)R5*>*QoTyVKoI`oYBsAEms2EYqmOVeAf!`#3AfVrs;h)c zX}OJ}g$Q!sYvd8q+TA0pTw@n!HX9AH2o@Ii!R*d_JHMF#0VPR}7_J7o4EHXHJ#M4^ zanyYs+hFdv(#hr@!UqlH7^z^50Bx!}g%vEenOTt(FG^s6DKs;S;On3w`ThqDs)1F5 zN=qFq`Na!#Jrndqq)wZx+k-ZoV~1v1Qq*PJIxNZeOu?X_DH0AT_$ZOWh_E@+<;uAJ z8bca?B@US7_Q&IFpx^uRB9bCG#QD+nX*vPM7HZ1ed;d7*obC~3i+%|U&BD~dyk)>M z)JAQvk4BPylOkh^^K~GGmU^4L?tPTJ--imqfAo#sgP3o;`Sba=sh{9Cx4!rU_V_#9 TRYuDq00000NkvXXu0mjfDxkpW diff --git a/docs/html/img134.png b/docs/html/img134.png deleted file mode 100644 index afdff9bdb362158d18aeedf78c01c2bd14af3fb8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 359 zcmV-t0hs=YP)SU;qOL23`hakd}a8^8xV$25bOHkHdruV44N1LIhw3 z8OFoOz`&o-FqNO-GstA|MVxF5OBf0uDjFC#37CN!6aaNIFdP86jGZ4M#KXYA47AOF znT?Y_fdeRTfg5PS1E4IIJ10;|9Bi8d0~136Gt`t13>V0D0ZD*80Yb|&FqHA41TiOA z#tTF+N-}szrQ0$jGcX8FVBiFW(ubK039KI&7-ll?b53C32kB%#kiZ}ebay2KLk$}P z2S|vsgJZeS4+l^P%xGX>M)niLviT^E;RGt+pouq8005>wB+FCSx|jd}002ovPDHLk FV1k_af4l$y diff --git a/docs/html/img135.png b/docs/html/img135.png deleted file mode 100644 index 59f6cf6c4ef275cc267545e0b9e79b4c1562dab0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 330 zcmV-Q0k!^#P)D+)22Y?jFc%PV1aDx#3q%A#u!vxz z)plxUGb(-Z9=$bQjHlY~9fly51=Gtpfzyg*EHa6Z)2W#4}&tUi*8aN$Nysfd{ cnf*)D9Z9esid<9@8~^|S07*qoM6N<$f=>v86aWAK diff --git a/docs/html/img136.png b/docs/html/img136.png deleted file mode 100644 index c43d12389e72941be5b51e77886f2a17fad210e5..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 860 zcmV-i1Ec(jP)KRZVCUK@|RGvwyRjxN9jbR+QY-o)&WIsq3W_R2mOn z+ej4;R#|^4T3T2{sP(kk9@;}O1*M1xIrLKEPYG|1_@5C9Uc@E z1VmDHMX|OstFUa(CJ@+3R>(PWj{VrD6xivUc&&^lVM>!=WHOTa>E3+0xaeQ-<~|n-FqTA2Am~cd zz01bzRBab_@VD_N4>4&Xz@?uN4mEh9s#tFDCp|XRc*($Q%Bv$)*y^F895tsY-LT`M z4#698hhcb0_79z5xC?xnbX#zb$fYcj3M#NMC}ebW zDY>e6H{*rs0_N}lU*d25h)#??c2|+~*@#(ZU3_3(cB^uX-f`7u8{m(i@(3XV`Nvw- zHQz*}B^kTkvE%*?Gfs&iw|b(lIx4RcUPETfXOEzQ-x6FV<<{!&?bUiJrY2(A m)_uQe!kXYWs5{s}b9@JnVX&FT=dLLL0000j=euGjv8Z{Og zV&gY>0M{aZ>_DRSbioL*qNj%^V=H^waH=TOb^Rj6I4GkEj~16*N-Gln4$73%9=eS4eGB z&rov03SGU%bcMH2CBT~%Sz=Ma}=^{B^=b=z0aNzf5#OF>+;r2 inTF+sPW+>Xwcrh`bR(^r9}Up}0000*Q^88ZKoEUxk|t@p-5`P@Li+~>Jm@h>PlDJ_2#SJ& z5b#iXGI%O@i6BBx+8+?XqlXs!frzJqVy`_2ksbwgHi1wMzIlxOI{B;CW4=If-t49!>l>b!Ep%amONRiF=WvfHSllW3r9a--5OVz zqM)%A7I~$>);M^Ht<$EWt44G!`s5$1c<;X;fST~a8fJ5r5J~!>fCVtSaV%8b1PWB8 zM@N#XMQ-Csfh%GXypj&dlQIsNF81o!gGtAfstW1q2I1LWfC_}nzLSS9i+lpHc56N0 zR|iZn_RBLiP>vjaKeo!E%U-0h3f+#Q!|@~=!eqN-mazkzyfqBL>ebJ&z0j;cTber~ zwH+e7lTkZpf#(gCq#b5VC{71AbeU}&Q4Qjk1!8^JXaKt?JrheKmeHKIfLsl)KD4l~ z)@F;^p$N3`cnp5+9n>#ydN-g}HP}i3De5j2q7{Qwym_D1TbqBjpxqF#Z4h=;SKkwYRXsGhCR=8~A*3q>X zE@W;{C#V9>S+sw^rRVf*KRljQ#K^T3Pz4P{)b(51wKqQdDMuaeOM2sMwMpIvk z2*G9%Ei8ol6NF$t-g)P(C|r~33b(mJ<~&k}g@uS>VQV3Z1Q)ar1>-k+zn82@A&Tg0 zcE0!CzMb8f*$+rURvv};Qb4IstGzpw;aH&I|M}Pc3m`{}*v?mp#Sr65Sf7=uKFh4w zpTSmz_&hw8L4zNo2$Qc7IAY>+lx8gz6|bX6I~ppzz(z>PlUXW8YaLjYecc#q+j6+n%XY`I)?=OD8aWy!y@vcD})xACA!C{FCSoLr$;el`&xb6e8hV z`&jp1PZDME;C#tkBjN&XVGEfMRX$-XV2Yc?TV%X@_!Jo;(j1klslEY5_=qzYRf=Y^GCUPStQ2K`>15$2!u{wK8BDp}2rvKLythP+YW*L#n{x&e;Tk?oGst~ cB{^~Y07w|2(-D6QHvj+t07*qoM6N<$f@~ diff --git a/docs/html/img140.png b/docs/html/img140.png deleted file mode 100644 index 05dfb1938c5ae367ef5cd80145bd12b6bc0c9827..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 251 zcmV~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0DMVAK~xx(V_;xl;8?%_2LcQXtZ)v?1qKYj#Ryb#!~s(R1@KKsc*zc= z7wB;=CZH4@us>VSl?>FWz{Lb~%7Fkb22P%YX#yZALbj3%a=HzkFuZ9pSP0_WVdwx6 zk|3uD@NFnySKv|rvUwO7j2U>(9DwQJn^HibtpKnt7W}6z>W=^b002ovPDHLkV1hyc BTf_hW diff --git a/docs/html/img141.png b/docs/html/img141.png deleted file mode 100644 index 2c6ef8d9201b9eb7017f0ea8cc333213752bce07..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 619 zcmV-x0+juUP)KRZU16K^T4c+w5#Indre>V<~u&21@a|y%Yq&bjzLa!UzLklhFNqY0%OK#p|@vP|8gRmAVMuc@{Hp$LrHySaA7Wzo$=gpfp z^L;bS0wGkfENhqlbc_LEE0t^lHb7k|4Wosmtf?$h{W%7T?>MEu=IvP5U!ypPU%dk4 zrQ=|uoT5l=IGiS)8K}~4K58Jz?r;Y>4;*Q%Q1eCpf<8YrW_3F6~E?bVhSC~IRZ_W z%dC8+x!Q20lFPrHJ+{UUk&RjC6qUwRp_;g?Z74IvvwY}C+ZMlsvPnquSb z;k_t!hVx=~GYD#1V^v&Qb>thwwt}EE&N{rPjR}foJ1=_*XE&S7d^R;vO#l6Du7{UJ(EQ002ovPDHLk FV1jo^9v%Py diff --git a/docs/html/img142.png b/docs/html/img142.png deleted file mode 100644 index cbc74cec0a796ef25f325fa01f4012dfaa2ab5f9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 626 zcmV-&0*(ENP)(EFH-73RKLGTBVt`Z<JMi@u zqOPN8wf9V4i;)k2z~|Gp;_Z~pfmeY{2DW)`5s%NK69n5}WrO%+dL1uSB~UBP=OCP_ z78EQTmx+{qFUAA4O#$w2Q#gEJ%1?sZbw9ojvB)HqQQu5JP-70VYAo`wVTq9I=qj|p z_56%?r|aW2SC7L%npVn&Ku0)!mnc{Se%mdGCi7aY1YO?cYOG7#P3F^F=dkEz6YVSX zR4H&m)g$mBQUzgVLZu83QmQC8`@5F>GsHaY?RdcxV7Is9xbW~_zR@-heb;JY?1tB3{d=dye2R9U*we|A4sHcii9k8U#iN!`Pm>;Q#;t M07*qoM6N<$f*kH15&!@I diff --git a/docs/html/img143.png b/docs/html/img143.png deleted file mode 100644 index 6bb04de64e04c3c658be961e1f919e3950313112..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 395 zcmV;60d)R}P)9rVMPD61!nw1Ck&+ zlr~`a;4q(oa{>dy1O|3S?EsM21ROSC7)U@J1c3eVV8a4FPN>`R|9=3BC9p6sun=Vg zQD8R)*g#kl1ROx+He;$_W?}M{P)VIlelglqhWAHqU)h~5V1II;?z2~e}rO9V4~@G%bnt{8%%?wnh9b>Ur5RV-Tv;rdnvZ5k5? zWuVg@#!{yhh)ULrQcRl)A4`sO^2)Pa+>fTzkp{fl53KY$tgwv0000KRljT7KotHY*^1>vxq}X!3d)wHprQ_4if`zYr5f8! zYe^uQvIPvy&`dQLS_Dm_l0fK|!F&8CDBV01I&}*bO+$V{@=mfVD{3uswtE9-Fcesknk`<1$b>d7%;tx^4XuYtxuxzi&M%hA=Z zMja6m6hTuZEubA};$ThNw%gW@gWkRPq#qgkc}Msd)k0u#Ffjoiz)6MZ@ZK zobd3R)~QBPQ?TuC`_D-GmJoSk&q|c52`;x}JQ`1-s;DyLlNyuM@-$5rJyna9Snv5E zKYaLlkjmOAU$BN~{nS%zZgabfx=3x_2%EU3t&lWR;2dxq8y>?i{8$6+pyoKx5xMRl zn!bd=28Gz9=MQO*rCB%qFKOJ*yl{p3_#{m6Uom5;UNOThcBeRVl4cp`B#Ie~j%xJF zvG<`cTswJR0teLSfvoI6f=+yUkzH3VH-ge;oo&DgSK$>jQ|SKRXt0?P!v6BOGs+d1QA?=V?lV5#mx-4pjQh-W*SkB zJSOirjCt!7QHVksNcJ022p4Bt8PKFDO(QU5yy7{}o{Vc6cr*26~u|ivl^& zQwFmoeKdWof8eL6FOO)_gTxL>PxI|`sOk&&I?{P+W+^mXVnYV>n@BOPPjt$DOi;mR zvB3;=E+j2C3IgGRJ29l`qdoB0KPX}Jj1Nt3BmLA2mzf^&U18Re3;Y9q0gwT8u&>&O Qp#T5?07*qoM6N<$g3~nmkN^Mx diff --git a/docs/html/img148.png b/docs/html/img148.png deleted file mode 100644 index db3bcedeb78dce821e911152adafdc8737ece175..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 306 zcmV-20nPr2P)SU|?Y2Q(=IEvv%i>00mfPj}lh$p?lg7HYggR};wFom?l6X(+%n7Ab*EF>jv$Q+SjQEMoP z@z`;oftST0laY;Wft6XgS$P|;!{VJgb~@Cgg(ZeDx-ZzmETEQf@!W2yqc_wHPS!KH zq;>6QO=A7FQd_pcPvk)WLt>k~!pikLHP;^2^Tk!w@ diff --git a/docs/html/img150.png b/docs/html/img150.png deleted file mode 100644 index 59c6a079e6fad840a0fa98a520136106ac2bd736..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 889 zcmV-<1BU#GP)naZB zIB$?!>L0x2gbd;!$OTR~RFI0diO@mhuy}O1O~v5g;^4Ws96}aBIU&CHC25niU(#Ac z{K5Ap@Atiz_rC9YF98^ey)JaY1t>snh6(Jh>oZnmxJCjZfaCx)geqr&Ig*(GE}B!w zACNbhAP2Cz>Z$?V2G27h%M0V!9tEw$^HOp_n>q;>&f4sGI*@CY8!pkby5!Gtf!}gS zDHYF4d%X?P;M*c-rYZk1a_O{M)OEd+^6G7WcupPeif~stq*@_ag&d1wac^<%!Y7>O z@p!ccJk?K<74i)$e&dubFGfQZ#|Cl`Oh5*x^=RK|scZ(wqv7lk6I6S&c=PPid zo=P|VZy}`98Cf%0-t*w>==zBcm$r+BUoZ%_-6UO=>9UwmqQS9~v;}X2bpTyTu60ed z<|Btxq(g;GXH(tUx9Da!>`O+U7RhX0$t!-0CMMV^7j&Jj3S~iq=<;%TiETm)j%q(b z)k1LQ!rHa9>(;$^YEFSl&h=nMABdJfA~%A7=HgLNAa%UR&ywK=PP;CaJ&#*C>?()w zvDbpMGi|$p2gAXVh<{;bsgt>MMwVpIN;>`jpx8-4mNNfrM!=Oxl+@K&cC(b%v6c3#5y=zQKLDx8 zzOlD9lp30`3&s%=6M7Ypl?Gua3{TpX8`R)M&)7GB70(6v&4444UsqN_V#O$E)Kru& zFo}X*odxmESJ)Z|*`Qv0A3iU^_Z+pN!D{JGjETlGIGQmGN*`+e{W=|(ufOIk9fC?5MBJA`F9EeNl;H~~10SuC zvC;oBi(^|kFeXUmvK1z?d@eJCl2B`{a5^{EW)Ujell-(^oIn@z?(gC^J*K>@64{h+`1o6XN>+|NogYXQrm6Iy*bR zd-qOJQSr=~Gpkmu>gebwD=P~L2>~iJGBUb*_pX3|!0z3<`?~W#1BDn%g8YIR9G=}s z19B2PT^vI=W+o>90eey#t3p%bM+0V&nuO$p2MvWH%S9PZHZTiIY+&enFQjmmiJeJ8 z;)Vp*GDCxckH$3zmI<+5Ial~2>HtsJ_i2f0&RRD#Sf}aoBxX8@=`%MoUoc@~V2Bi4 U(IIHz477{E)78&qol`;+0PIOiX#fBK diff --git a/docs/html/img152.png b/docs/html/img152.png deleted file mode 100644 index 1df9a2b42a3868bcc99032f1963282c0fdead1eb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 630 zcmV-+0*U>JP)KRZU16K@|RWH|}OPjT3_4sSr<*p^UwD3sm;ONj?H65mV`GqEbt^zYyY zd2im#$9r$yd$R$$$N<9}Rt|SS0k)0+M%y%d4zr4s(CD|Fay*6!B!(y12Ks>}Wu$H; zBBJ?i5i!8>1+f()GRAR~pk%oC;P(~r*AefN2;?#iJRp_2!f+{LY-6KkY5G7t0V}mF z<1`J{Y)TfM(&hA6>|4VuctZM6vZ7DUkX+bb|KwHv0v>jkpRXlQ@dg+!i>Qmv%gU;- z#W>SM6k676`^|Kxa2P4QT~J7!Li>SDopQJ|STwI0m}@4Il;t=9JkN#yJ?Fmyb;|L) z1b(fkbv&7q=rrTeL3zGTdQ4im@vT-CjnZxR{#Vm^4}w+Di`VVHkn&EgVJqT&Vg}fe zb~fzsxGsdF8-2EWJAJ^l+^0FHZeq6DfL Qg#Z8m07*qoM6N<$g4;JGp8x;= diff --git a/docs/html/img153.png b/docs/html/img153.png deleted file mode 100644 index 986f62fdb4eec3565fee5fde2fff31560300ab89..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 750 zcmVKRn2P?K@|TryE~i7hZ|6=qSD}B5YVf*0iozAryjgG zqE>PcEFN^UBI_C~#fM&CW zcNQh9xd(Gb$@4iG!ms$14iDl3P$l4=9@{u2RLnQp(^9%=B^=?PEFqKIH5%!t;SCGM zS?K=`d$5<v6?A;~{VemBbT z^|u1Yk4$D`beyg1ka~he&A&&cJLKMG@(pzNdDf$eSr0itQOTpQPSC^PKG~imE6Z)Pc{~^P0t|seag-OvLdw!O&{& z(_R@}4B1=Vnq0=|)H8SL);0b~rWOt_uozueKBYw0ZUZMq9>kv`KUn{bsFC5AVfi08 gjK;W8ckwUq3k30$YdvprWdHyG07*qoM6N<$g5Kt39RL6T diff --git a/docs/html/img154.png b/docs/html/img154.png deleted file mode 100644 index f358d2063c7f1afcf65391b9ade0aca72bd30f48..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 534 zcmV+x0_pvUP)@Q@u;WKoox=$xG6&L|g#&>(F5d_8;JlE@cJM;D+hzHprp|mk1{d`3*j2RB=iCN5Biby0H~j z0fu?ZgF|V7lA&90HiM31%j&c`3n5vxK^QXd(O$%$4_(Kjf>>5y!DpKT25ppTXW2aD~b8th&V!%YlE-FZ~axqJv z$Yc+4RU;7&*Z5zt8*37u!qe^0o?<~Z>3TFc)8{xhePJjweWceJy%)AuyQNpE}>4T_E)l(EURG8_u}fHGjqVAYR~5E+2Q%*$e=G~z_a3L^W4Lg^ynMDm4#qor99i}5BeaqR)=aSJ3AVqF YF93*I(ktoO`~Uy|07*qoM6N<$f(|n5eEfFPDZMZzyPA;E*e@J5V8fI}UVvJn4@GNypuW{0iJ6Vg0(6fiF0 z7G-G=Y-aE=G`P)KR6R=rK@ffS8Sf<7Lv1XC*rhx;Tgg=-HeP9Yy`s@t z@JI^VfK{qoA=p}23R?IBR*Ogq5r2Sig^e1ByPI50a{1Dzl@E4j-^}dn%(Anc|Ad5go;3@-+>3)U8#<^-bSks^?j?NW>w@wNvsfzfy>XE?(SuAiBMX2P}2u#?h zCAVl(6fbbJ1mWJP}$H(d(o@zf&u=d*{jI5XpjqU3o%uCImgn)~Utu~<1n*hXIVy#@%%9C&c2AZtse^XkMH9HE?#S*&Hl}n00000NkvXX Hu0mjf&IkdD diff --git a/docs/html/img157.png b/docs/html/img157.png deleted file mode 100644 index a32e3e378968206beef795ac65f289f73d0bf70b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 250 zcmeAS@N?(olHy`uVBq!ia0vp^Qb5ed!py+HxJ5CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR>zJY5_^IA$g%06`){qXQeq19m5i2k9G9A4C`kDn5w&IFa#4>Ca;aPBpNfNqF^0 zl>Jh1y`jM;BLjm?n~Z80iY)gV8x@E=xZJ@x%|LH|=7lp89ves=S$*^If%3-2TFVdQ&MBb@0L<}Vvj6}9 diff --git a/docs/html/img158.old b/docs/html/img158.old deleted file mode 100644 index e69de29bb..000000000 diff --git a/docs/html/img158.png b/docs/html/img158.png deleted file mode 100644 index e69de29bb..000000000 diff --git a/docs/html/img159.png b/docs/html/img159.png deleted file mode 100644 index c857d6ca2e9a22b4492aba2fc02f58d62922fe94..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 9773 zcmZvC1ymeQvoB6?g2N(7aEApJce1!ckl-v977Y>tfnbZf1XzLxg1fu3xCL0;g9j2c z*yI0w-@Wghd*7VuIbGdV)73N8RllCo5n39G1h_P~C@3fd%1R14C@5$^6cp4=4D_eF zw*a2TQwN`xn%?Wj$H(;abQ>ERd3pJhlarS(UyhEBmXwr)hlhK4dFkotJqZGVz?GF1 zVq)Uf*4Ef4mp@NUs2(~Rx+pTc3$`dIFHn>fWc5B|9)EI)W*qeV$q1i;xGl_-OD8zf z?e$%7;31W&+F3bcNjUQu6))+>8yPcWWEkA@-qhfWYO5JFzde@ytuxgfAK0pU9Lp6E zbY<%y`)V)80$XJLwqrQIZPUvMmOa+pHw!`o;;yZBnQgTw6aGXalzvdI0 zeQ*rG5n9IV4NppWsc_nQ`i=Zd+FAR?uJxT+1ubt9if~QsFH}P!@+@?bv&#sPw&ie) zD9zcfGB6X(?n);t&LF1@25=R+4tUL=_QqMYyM{ztyL{m681P!mk{c71E#& zSC$YLU^NKT4AS(v!T?ee_Fl~lFJ-k)ZKd~+dd~t0F6GozXd-fcym=3nH)AWqcdnM4 zaq~)=|!PDVV*mb|I#iM3B*<5WIY`(gU;hxG7zeDI&7!1sq zCC#_F*rdYplPBcA0Znw6Pd2VT`^d@9?n;7$=L7U`44up1 zh9Yd=5x-eU3Om%K_+D=LcM)4|-ky`si$mNya)PY%m8Cy40R*FK53_L@wJo_c$gRQQ z$r4s|#;;W{TA>KJDKd5b*|xR%cHZ4uet}Z8pyz@4yIy?XdDYO{5;<3KmWT)OL4O9e zHL9!a9D}HSs?uT);8Pw%IPeK+zs$Td)baimianm$aI*X-w#hs?d*U~fT8QfWat6I5 z2X=N7w*#SNj&i){X`WV28o@X9>r4KZW%D|(xMPYfOzi|Tk%nKT8iDYGR2%r4Qm8L2 z2#Aj>=WF!7YJ};pM%Es6UBi)*@3dH2=_xK0ja9wJY8e)Ae!cXeVw+;L@Y*D%;ep8i zyH`q5v4Ux*6NpjXjx<3%SF_#8C*KEO8-&!s$}}dJd+|jw%jxd&1@0e^heZaSK!NFgdH~{tF`CE$fWfar+oY(v zH3b`827%x#=%!^NQcE;Ss7wx-w&{Wf-DC_!LTcTP`Plu~NK5i&>q;iN-;dU)kuFKi z)STJ`ER_D)drpz9uAyf%$tT*PCh+}X>sPZqOAplKY?H{cfKXD;rBuh|7yj9zre2>l zyuY=kngCW_m~C0HBfa`8{Yr|gJzw7=m1_UfSHCknqr1Z`TWg!w@n76G`}cIByCa^n?qT4OJ!-oDieEb&%lf^#%< z@$0IUNRnc3>9LwzyU-w&%ID%1MH#%-~XvsXuF=0jB0e21=&asJ7{-_|@_ z+xAlz7m#{aC)`1MT*vQL4(}gCR@H#;h!;cP8!N(#Or3n0*U3?^@$L?Z3sLpd*Zm_7 zDX8=&HrhYZE7R5k#&eA+v++%x9PHzSPG2mP_Ezur?{(hwsq%B=ui#Snv&SV91dG|$ z4qf-qnDNjb5@ryJZ2!T8a(w0x;<}XB`Ht-Ch19Y?{Qi(C{ahT-P{*koH^IWgk{;t^ zXEkn~1U+inN@PzS>#MQ+=55_fbB(0BVRiTOyo;`z2C0Fn`KqDANeHZKj5c3BxZ5pY z1*wLXHujn0uxAhHcV(Kvc4TXSI44+OKerIfPrv@was7Q#4b*OX^ZDydUJTe8+b>{6 zdqE9N4E{ASW?;5DO)!wh9`x>s3X;_)0d=kV>nyMuO{?{jdH|w``ISWm|Jg!HrLzNe>WY zmG`m=t6tm>C|+v|CTDuQ@!443WS2ulEfPSC{7Y{f$4zh7rRTqh#)P%UUMQfqgc1ArCi zgIdtU*V6DD)FZS9ju?!EIzU%>d8gvLMtJIV4MJ7*OcEDtH{*bU>ecJyMQTQ39(yv; zNyK?J8|t>e6nPDORaTRt{rkYKmm{5{={t=fAl_|g0CAkUB6es*WFQc`frH75eMx-{ zTwfm*$a7txTuyll@WRU?9~^HIeDr6+XX|(U!iq%sNhC~-Zp67Ml5{AwELiZ!8eH#3 zJ{Tp@Yg@H%9$nAW+oj+oJDUknqx}}UeEH>oUewam_nvpbqTXmDpAQS3Zp{bBy%*jP zbDf)?n9O^9KWilpC0autBv86uU8B%K} zpo%7j|Be85HgI{Z5(^n`LP2!%rUN97OrRp(l^qtNf4jzc4L=$tdl~3EwgtNUvVs*Z zY(ejB)lRJ?vtA|b@|;P2sCgUI!7?{QmbGEBzNP$@YLYC&Xogxnjygzv3Sm0IySM-% zo2aH)!Yt~$3}!H=m>7G9{M&DSZ{k5K!_-2cp`ZPweCYMo@< z6gR#ZPfroYBwybShWNW+H*zKB{nuO=NPXbRMBuk3WPDC&`>s~NtC3vb$c6wZ(> z%O0~u5<I=TtWB(SrWO?D`Gr%~uyX|lrX6iSwUeFi;F; znU9O9YFEcFBGsr;v`LEE$)u0?MA$vWrX*75Z$1WraP2*~Smau}zQ5PiVSricrfrPf z#-F%vg+5HszXV;CHCMoC0GKgi%nbg9YTXN+e`@cRVLZYmClvA%J0|^ z5xA8N*Stw*DDmH)*vNpY`MdG(zR%)D<+2G;Y6{gAo+7@obw&-_H~K1i z+T(!?v8W^vF^rQS#w#wrUrg&V$#$FS#k!v_2(DzKiKs=T?%NJTlD;fxT4pLE_pUCE z;K&l6q94;$FwA$ww@b0xQcI4GBKrdGo9Z2KM&1DqTH zL*TcIALFG!)I(A%Ex5d_`o=BDE*kWSc5AO-fC@3(FOR_c8DlD(z0-YY;Bx#UM0Z5Q zZoG>l^FmEgFq0KEE?+Xpq(@T^6_+0UeWberh!)>LFUff|6V*HqHY4CS$nJsjQ;=@* z;yNDBK4yf4rj}!Uztm+KeGE)629}q%1}Pb+k^hT%;{Q!CmPkFAaxwsvi~ADfw_edX z`R=RNk29Ac#XIj8wq5=RmOX!gu9HUni`E^%eVW#_BF@=+=ZMN>sSjG0$WpJ7y9jn{ zWvE-Vr|vRO@l(b>@~@;WFJwHPV-6mG70ADbv7m{XQ7HPWQrj+hOoIn;=&yB>72?{H zBka^uplH^g50yb3TQQkvW(CUn_W0}Zoof`(y=~JVg00hEpFsA~d`HSvMmq!Z8`M96 zv^&j=e!XTLAD(*!|1$d&&70N2HV!%5{PIyM0MYbUWH2dP%IdWL5%F%@-ARO!cX7n$ zhl&_uwRUc!(k1znSnQa0%CX`578bKLy-kxg0mn|HOszI!Ka}LkSiKrb5@wqZrUc;L zY3*xF3OIOnyQIJj(K&bkRCVCwC1)-~z;G(R#I=XSr`81vDqM=o6VgHdkuj0566!Gh zTC)Mf9cm0tx-XKaX_!Ov<9TjWjI6dQg&9T$MKgO*ZF3AMJ`JlY_`?6omA#7B#7qkv=^s{wg^wyAa#EXz*Ol*5idD5P;}b@AXU3;Y=X=>&-x_}pbxYfE|n zx>Q@NU;8Qv$H+x~=VyWQ$jd0Giw0>{M5=e>dtI>e)3T8f1U)>)zM^ZekB%duv?GS! z_Ni}2!@8znJp6X;M5PVfgc66{8S&#rL={$cA=7S2`${l{?p~^hLdIApM12NW%NV>LpbbO%x;nFMwxO=v zjxMvuqbyUrCp+xEa?-DOQ`8Hm7yG`_CUTO%{l2`+`gBCgqp$kU_!Ld+r{pwQMx#Zs zo!LX_;=X6Yh%}dLwu8NA;AuMj+xzBgUxmA|XB?oKa4rhUC^BIIQ4n&X!MVwi_qChx zD37gEleMiZ6;_pz)xt!9y+pHWvnpBtlaN{+*Bxd?QFC2Y9SV^i{dcCpLgIr?p9gby z=)!sa+tRB112}bl9D&i?!6^X8m6{1))X20&w%Wg2a>R4Z4bg4r_#y(B`>@19fK#}( z6>Dp)Pq^@gnH!q;Ri9b@y#* zjd*CJ09gsS;{7n~3cRkbg}stQ1eq(UBe`qofg9gh_@d|f2l~$lv(>eEym|~zN+FWI zP5U2%2p(vuH0!hk)^Mu3{eKrAX)99bU5<-n@&c^nFB zptMage{#6iaoCB|bZM~PQlS(@KBTtmsGQrwMV_@06WrmnTPOduWUct!>4f>gdn~1U zK-P;2uFBYDQitCMB5!BS=r}54+eFfg{eBh)MfiT-{?K=jv2{k>}70{bAI+&g-0*_3d*BF z56#I(*e7gf7(?PQ*R92+>~-X|YU~&a<6>Er!0IU^r(JAz(u}URddiG$WfD63Z&Kn1 zNP2hRWyH`pKym- zpSNo<86u@yMrwD>9_QwIod~bGmCt=H{ocVK8wI9;t~S5 zM$~h7q?REo4cs=K(r9GOx<=hxf;=-}XCT>J-3N+c@R@(XgU?kz_1&+)=P+)@YSIIE zK^6MK=*Q+AluuCqxxOZ-OPggo2S-yMlCR{DPl*R!sJJ%?<>Ps4yl{Ozs%BJIjlNpk z7yk}aD>Q$eTlCYh>q}DU?Z*W{;r^(YSbOECM8*k8s$>x;P~Nk8U+48ai}Eq)Rnmz! zhvm~=0Usi8JFuk40I$tDrYp%3wRT#-PO`JE8)BXRyfl-urWH1=8r9%w_=<5nc~b#)yYOEatXD$*RnpKGO~MWDO{IdQ%nZ1}My z4>P~Bxh@=rbz@Gnm>>C3OT>K*BE#+a^m8LKw(0?Q41Ya)AgSx(B zQ>S*C{^+;v&Rd7SMx&*cx66e66}!p}6UTkAt2h^b4ujyxx#AUk66m*C)RU%g!W4Fh zRV8Y?^oV=wZS~XV8X9~Yw6xAvF?c2K>+{I@)#f_OZSri(*3G#E`ih^i^q8>Hr4aYO z;MafSFnRf{;l54wn7~Q>YP2Y0Ag(>)dk%AcP---;F_7c`!}Opa(ys8;ZVG^Ly!DDh zHJudn{dOr+`(%sg39@f~f+rwADm~l3^JSw>;$lOKcD$Z+u{-Z5AU3I65K?qH#DXV! zndBU9SERR);p4qqoM;iJ>*A-SQ2E=EIr=K8gJ-$NHEW zqJ6db_j}C|u7H;hmRNM*zRHCDZzc(I`FuT?dW|=YDguj8V&xI?h_=vk0cTW({MFRx z3%sVe&K&%!9-MBIqc#o2@e#)|n>I0Cdeh8)bRA%KN(0te*o2;#BC-Bsl3TTbC_oCM8y}jZ*i&o!nDQo6>bGap zk=-N!mXo9}#V%Y;Res59zWCsmOOw)z$D4V2#ltouA%K=2A$KV7zrR}Y=%D-(IgY8V z-ejV-tSUIviCO+0?nJ>skK4Q*#Mc+317zrp{T0wh<@j7Q^9zG%Qa5^$-;sE2L#`&1 zC1Ny_7MlZM_zU&U!yI$n?)o?pdoB!67wCg;u~kM{K$=)>(0%9fYpO`ZG_dlhbXp4P zN6uW$m1IS78Nsb$`{{%0J6#$U44ZUO-T>DRve39KohVLYHgrn+)fqtYQ z#4ARrG4;}DFLJR%)qFgF`Uq{rrJI~}{|o^7 zMB$q478fhYthutmTFBI(I{3z`4080AP9!e)*)?eA%9QA`NW|&1o=7C~vDK@E@mExc zxwt{Fw-n0XJEFMRu8-{+w>Li&e^EGO_!}o|->p1)5M|Z4w4YUyWH&cSzIy8Goa;W9qNk@@oorhst;4lNnjK^2&t)+gb#NYuDnoo_=o}y6kOsbvzPt#`ty2dcl@# zi1S!ldi!UyHRC)q!+lfWfnQ&&BMk!lzIRY1to4U6SN4yX3rD%gG4PfPewMB%koRBeVB<>-j)7mnKG*E zayRA=V_xe(Om9;K4JA1nB!hX5=3ewFH%t(td{M5+k9M@SR6tm8{;-p>NJva5l)x<} z0cCM4FTkoQ7o8C6XdJF=e}ks@Ga)pEc>M<_&WLlL{9IUA34^moq6Ctye}xSra)t*t ztiI@ya{G?L%UYfYwDwq5iXCK}KgrCmnHRVZ6vkO0C092Gf+5*9`1s7!e-ZCBrGIdz zOSuS6pDtqYXs~c6Wa+GH3|8W=tW4f;Zx4X6s$(gT%|g2oRw>|GFR?S($iifNIM~~t z4H19fMNePf$~y>nELj2YqhZ|cPpH%ET znWfNlyXxAeu(Ix8cU98#D`^WU8xdrMR)Cqm{|bT8Ea?@2L(qGI#dX_}Z%!S2nUIc_ zjr9d40)SoW+~bF3S#LYB@J~*P4r(cZGbW&4+QyjbAWR)z72tomz#;*{3ymkI&ym_WZ=J~N zApZ#s|BUq?hCRJE_c$_y=l=~TQ;9w!$JhS#Q-s-b0Pr!ApQ?b3)|fJn*}9c(tr8_B zOA{ww7^$Qr_0*`B*d2iph;ICX`kY^07>Jt<%bD={F5n@|$Xfg0YM(|bmTXh`=>}^! zCwPV@yidYaIe5D#*Hf06y2hZMZW0ZVb4%5)<#??TagHSPgq_%a@RAV`99AZ)`lcd} zWqF7qU)em(HAnxb#__MwUYb`npc^X!ZJNGVeb>GgjJKQ((z4sT4Y9)xkSLJz9Nxs0p`AFa{ljIE9ICb#$bI9?Kr!UEBAMsZYT+nu^~#nt!-CHZ8%a^V&K_d;EPLK5bSX zF{L2*Mr*+)Wq|+KmDAVtP*R#@0KD|x$tWv*Fr2#Sk5fRyy3J6scyZ7(DpVdw2G9g7 z-ZEgKI7%haOZHr$>skD5el&v|`eMcst>S3T1_JOHxkY8;zb3roAVnyP5v_q=Z|+hy z`OJ>kR97Xa6?ruqb-EKbT6Fx zlLW@-uPLSgI(}=JzUbvg)TfF?A3lx3+;f4yjJ6VW7pMi2Rs+Slhg+{lbAC+7DvruL zsfh!g07zfL=!WA?YCwV9lAom@g7#U!4Jn&gQ~Kd4iE~n6Dj%%Y%k1_y!FQ{4hEGI` z^ww0WOoyAcmA&-Kg`*yGPqW^WXJNFJVY31|d(P81yRI)s{j(Zp0{g)nZ}N#hMC17A zKUM_+?tU#(+QWID!q)lA!|z5vE;qOXY9*VWL^%ZliIC(NYJ^%j&qRf&^G5>D{j)%0s07T}cEw92|`G4*y6*@LO@5EQ}x0vj{ zQBVY$_QqVlrg!%JJf-thLH13W&9+IL2ohL-Z2%iCG%LIx?qyW zm|n2~{u}g6qRS6KhK7hQO*c_+;CWsW*a`zQ29fDM^9}L59Qsk_SU-Lfyz@$4)mG9wj}!_l^ssH;@L=1Zkf7tQg( zO3Rkm3RCFiT_btNtZprH52RKAkILkj2k@ch+&j)lgj|{o6Na3ydTgCqu&@-Q;~jI} z8@}Uo&yr=;3@{5a*}89QvvyAqf+ga^wsBcd>ayc@Uk-U9@s2%&a7!+4%;WnAvx3TfVP&4-)16w{7tby_PGXYv^KslXJ46s|q zVSD3}Jh#g4qNf|Ljx)^AQH?FH0 z3`PV3xiSuW8!RKphr>n8lkJ=(mN+GZ1y}U)6}Hmu>+cWuS386c(u6E>8M>-*Lt6S^vzss@`L%FgQi&`fgl*swLncK zZM`PUo(d-Z_mJBgw(VwN=A4grOvfH_Mc?qP8`P(g=9yvPWvO$M4l~a6jEtqLg8p1vxdD=B*xZph z!0LpUomv`(4XYx+a@| zZQvF#m?mqI`pzWpY%2$(LPBFr#~T7wfZMh#Ou-3by9+x|fI``t!hfpJPX8o^Td4m( zLjTwCpRyb*b(CCiOXk&dVc3+Nx1C5!rjc(MxtPo!!d*Ifql(2Tr}`a^=%<+Mgt|`i zK}EF?pdaA7E-+)0#Io0*{7;_rfC~QqOKJIk_D>#6f07^(1%z~nXfa*8)#o4K!`r@Z zz8PV;&vlW<#6xO64}3|Kuf@0jH#;g;E?N(+#ZSyQ%b*WgDs(|<`>^GlVN-Qh%&Ala zh^~UvTHpGSef7mkPE#=QGkAlWuLcv=l#`$$3Spnow+`>H7KHCaj9aZc_!!LztM;)`2T?>|APsAZ7A`LpIG@( gkmg@k`}HG=ebc;U|LmKmGh8UjuQe1ZxWGo5t3ubV5b|VeQ z@$qzV4B?oWoRE+J#4{L<@WgQO2z+4Za&%b5=wWdu(Sh;Jc`*Y6oq&XdREq-#PEJ11 yApE36+J@2iok2;1Dc6Tw4TeiLJUqvEco^Q;@odb#Y3Tzrm%-E3&t;ucLK6VT(?$^h diff --git a/docs/html/img160.old b/docs/html/img160.old deleted file mode 100644 index e69de29bb..000000000 diff --git a/docs/html/img160.png b/docs/html/img160.png deleted file mode 100644 index e69de29bb..000000000 diff --git a/docs/html/img161.png b/docs/html/img161.png deleted file mode 100644 index dfd97c4b827b51f9e1ca5b1ce077efa07b3253ad..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1148 zcmV-?1cUpDP)7MSL z#C5); zma{Bz2^}fmh(8kw*vS?WRpim*{in!PP{raLj9%tJ4vM{6b?7#Cs#{JF@7pfvb8Tk3 z|6M-UXlDbR)gGFfBd-1Rd2`%Ohpf42lI@(zZDCMVP^V<9#9+yqf~ujP*i=V;(?hQh zbk}i6f4x{iZ|iy;KHNl4`(5t5W?XsP>oq$nisSJhE0bKO{b}FKn_S{}(ADZOn&e60 zY%1;eE=C)~cgZWjC|0i41IM9dH`&m_;#9He6#?xgxd-ErBx_T-VEvkXm%Sc`4$u5T zk3TN7+?$VeVWl_|Bn$J>mM;=c#VZqE24`NUDzECr?oY$|vc>onQ>_4`g0a(0Q}yD8 zQX!?^RO&JPg|Xw1CZBnp7FqL6Rx6fF|O5qORes`0!yZZ);O*OX8 z?*Sjq4xoNHZ_o4UjTqP7e#<^PG1L}*((e9q`WbTJCXqb$_U`YH_iKhKNjO6e)_%+` zoLFsL-}~gVNW$lkiiXV`Ph#d_iq02iDR=NWybz6uzv~MpHG%gC$Ga|@p2|gOj<6>L z`+S-Z$A>$tDsFC}xd? zvAaYo3PVHWV!)2+FQ*Y>QP^BZGYI9ymG65CKlxFD&21%xaogJ?dhwZECy6e$xl(Md244BE3 zUoAC86%ebGmy4q9ev+@3Q4}-x_vV8c&T*>4;Y0)t!KT(oRGu`2aH(^q1o^iOuOq&3 z!;xuZ-*1CdS0$-xG%;Q#Do24YZx1g469?}hJ`Tr6nx2z{ z4@n-dpObF(;s}|{8a8C|?6U~o9c@WeK2w6BvA$KDyUPiz89ajF!feu?K=xicFgCE; z)*1Q{T3rjU#CSAL0e2$0C8OJ$Yq%f79`^&Y@Ze06R7k2takHs)3$^SGdNW=ybUmqs zwAN$bRzx?`S}7dXqUSgXc%*M90^X?_u6;nxLVeSIC% z4}FMt%i)0Wrqv`mpMuZ8!h7>FfvukkH|BuTL4B*EfANW-9sO6lbL37TzMqJ-a`J@7 f#qtR_^uqlEtg^T#cqLxv00000NkvXXu0mjfYQuAD diff --git a/docs/html/img163.png b/docs/html/img163.png deleted file mode 100644 index 0f16897ed3b8435d3951d2fd4faff4cb5b78297d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 934 zcmV;X16lluP)&i%M|F@?V3 z=FK;6zW2?0vvWYgdl!G*_2&8GzC!EeI zGyxe?05oqDaXHab$NFk6gyPLCP4w@~!peQ!2jLB7}OC?)%rZ57z?-eAK zza+RZp5Zh-m#a_RQ*E(fzEl)4iwpb%%)0B6DXfD)a>{Wm?bF;A7HqxD6q)c0<6&o= zY(Xjt-7>gw<@JLVn6InAsXH+;Ipb60S)?aM zeVkkom%0%4j#v4Z)6XLsDzWx)0opm)rp+cLisCVkS(pyeZchH8fxP>HxGf#_Hlp`! zt7hOSEWZ<$Y0?uPPTD-Zo3Hdi`88-ZQWZrLMy2Efu81GU13RRF?3Sxg4JKzkRNc#PWXQs;B94trhyliiEQ#d!4a8yorTX~h&VLI3~&07*qo IM6N<$f|QJ`fB*mh diff --git a/docs/html/img164.png b/docs/html/img164.png deleted file mode 100644 index 0e6a371eec594323f07f8742068ebb3a9823c047..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 966 zcmV;%13CPOP)DCFU+Y@b3TQv%I@5M>%q-`X)>e+Yq zzWd(g?p_UykU&7d3=moY0#c`G#iT5sR{%{I!XecaSwOfwfHR6#iUt?9&Dx<253mjC zF45bLFd=E~=z&Q+>OrwEDTVO-ej23}hh``aDSmK-#O0?|0YkELe zKVkUDQBqegJL%7Jn3IAZc9{;Xj6o05%3{vp+UcRl(Vvzh9NBK##vcQO*sJG+^OF#M zn9XsKe2EZUCZSn68>H3eQcR_XdET3(Ft**C?NP@FvFB;BO%$BgF+*LCCHduo9~P70 z3Jm?=F(tgs3f={z(P;)pk zH-Wa__A@r)DB@8Tg#v-8r)@t+K~Yz!;x3F25tHkf-{?Ww9qh;+W;=54N{4XF6wu{y zDaz`ELMBPU0TffgqZW6WT7ffx7L6GV1GSlaIbAYQ=L=+0PHAQ;@pLGrXg=s_+v);H zxyw4=P(6&=s=8z&W*Y-tFR_oP;*|QwAy3AWYsrmKunuM$&?YhGcJQ*(*1L!||Mm#uo&PL4h ozsc_95E5&w8~LAPeH@UFzu{^L01(`M&j0`b07*qoM6N<$f?5^Jv;Y7A diff --git a/docs/html/img165.png b/docs/html/img165.png deleted file mode 100644 index 1c5b9daf9d654465fc11f1a29cfbde8c2144b230..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1251 zcmV<91RVQ`P)T~3MZt?8c(h;-aTjD7JnlvZ za>{Ky>M0{140@Px=~kVPrIi$c<>TrM;7szzN!c3B*aTSw6s=KQv zJrfoD3_V@--+!-O)$g7Jpd3MQkSI_?ffqQVp#*5bsEc<3l$t7aV}W3!rBCoGK_Xg+ zKqScF0sLw(hGVH^#$E-NomX_*ZWouk&}J4rN7uf{vuTivOtUxUI4DF+X1pSq8-nS} zNy#5_j-`UOVBt(-6`V8T8Yok$u7v_bswEU{*!7&w2XdX}%zf*aUD`tnvaE#)ZCXKL zQvilJRa1X;%y8g*0n|4JPG!NFjT&=UnHt2Y5&bg|Q37xtj|Yo*NJB_4XI6C{uZoOB zdLDv7S|yJ*Wjv_YL5@W~Nmfmw7wc-A@~8vB^HYUKBWi*w^b!Q~Di}vf`00>X6)JPf z!fFk=<_u+PiHaoRIjuz_T*~kWp%S4iJL=eK=_zV^6xCBRLg?KnMq0*HbW*!A-JY8H zXL%d`C2>xe=9cb5r1FhuI`F3bs+oy&V{p;K?KW2v`;cV9IifR3p!B+!EvlHGDI*w- zy=5!f>(v+W>j+y+jy<3HYuU0NVRwp*3{$rA3u(aB|wAM~+3u5ucnePcn<5NEe-A&uvhH_6u9D z@7wg&N@>*3(;BJly<1`DQhUp4exA0k!E|n`$1wHSl)J0ysS=gx(1AS$_{+ZN#2Q{2 zYZZ(?Kf+6G`nlh%z*96fsz*9rxQ+z0ic7`&vN~thk-7QF$xirpJ|CFNML|A4owJZR zFWAy9XWEsTr4SW9lbk$*_yh3o-;O}+yaZ*Ro4dFnSGIZ3Si73QyIY9{`ggCO&j6vi zE|-3+k--BjdvV=0iko{Pn~$(lm{~&Yhg}D7yxyV1#8r^e$;xf4KRxbn!Q1ckHETia z`{#=S7Dcj1!{q436nzGFAc&yRZ>f^c6ME(+(Ed)l23Q=yt_I%W^9)f%*X1$M$MG>G z%lnOE{B#X7WhYYrO~6W`N7xVGKo^8kvpVo!iodW1#j<7{A}czhMFYIq_x_mbTlVP} zeH!40?6Z;Bx(j@=i2GxteI6KQZAz5@nNQGr;{OKShzr})>-v6sNpL(8(4eDyV)?p%#ve}7->-NSC$j5RQLW$PPM7@0Z@HYqSj@)lM0{;L2 N002ovPDHLkV1g-mUU2{b diff --git a/docs/html/img166.png b/docs/html/img166.png deleted file mode 100644 index 0918f651cbe44e848048b4100a7ba3d46b3246c7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1436 zcmV;N1!MY&P)5!a*+pazd5*7j?9@9q^#5oDs%a%JPBq2k5 zud2Gc`e!Ctb{{k8davI5-dC^c)pP(#;uj5(0KO4J)RG!wWIDbi;KTC(oJ@b0LCP{k z&hu~(01Uw8G8;$!ipu4j2Wu+va3@O2I25{SDF)Kuoc*kO;Ax z25~4zed5Y0r9o7QtEh&Qw3(q-uaaquW={w{0*@5FEvJOdC58S*5fd!1&o z*B!CvHgsufHBYWyfN){~A@V@Pq#lTliJa9gBVaLWp}O%1$*4pf2WCL-9P)4k?uww3 zDpDSVh158Y&{c-n4II6s$LQ`ks^+$hJTR{i$fGN#CkiW?9dT{0j)8Nb)r!?%Z&E0Vb2Ag@xb#r=wl1<0SlsNR(lE@ z)%0>lVXs%$_C3#&S&;{|7Pck0-=y`B*}?ieP%X7B5aA7xB!ab3jt6x{j>k5&(8pVd z!`DX2zVEM%8tM8uuiw{WW+yya$Hb%OPj^Jhqec5Y-BPVB2EI#1mhiy7Oxv_It$2v6 zCt=_tkBvvf16y9T8kfz_5+1Cn4uj-@d1tU5*y8il5P`90G#DifaENKBZ=%1- zXP~XZv}+P3gHnhfJ4ea&A7{S^V4FHhBy-fhb#WIXX# z!z<`RBl{_2lH)k?Qlcz<>gV*qxp%_{w)A4L8W(S1z|nJyN*$|d*x$6X^0&0l--6@aVPBk5=g?m2GR4+3@x9$l?pSMsZS`L=Z85}(a2;It%% z0n5){P^h_T{CSUT)~jM@P7s431;2m1Zu%!ML=5xD^jHnK7=SO~GjM&V2l%#^uSSnv zGKSE8Al3FyQ@o+dI8DYu@F{GY3H5wq3sy>7NBWT7(-Zj82C8WMNc>&$Rpcn( zjzTp7FGR{#6Q2|l$>80k+^wWx(zWUZ-BK$#z-pj;5ZM2fIz`fTR5jpi_p8vT215Xp zI$}8gz>Hs64dqy_hN^s0jr`4HR0DM75^}m41;8(q&3Q1Nx9i|8+%4F3HJJ7hsv1%j z!M%6@@b1#$_i(ra@+;+V$9pJXf9Z@5o12^XpIFd}f&I9O-w2%FLOfj8(G7_>Z|~m? z!MmU2!}-G$~e9kpJ2fE;oF0000-Bm|d;#wkxk%AiO=2^=yNk&uEbniR2wqLjCyK%v_TDKt01BuXNr@ZQX> z*RyM%EhSI(&d&S!-g`6Oj14T1HE4rP$j|VUW)lM_`oc(<(y3XEdV$;^#xV?er8JR{ zDm@-o+$@Bw2Fr@F-S+J%BNmd7eb(37SC!DuD=Ox3J}OVE%2C=7u}O_+n*2V2KEbBg zDC=Ny#7*;-6q_JFNmPsT#gvOMw9g=)t$PFGo*h=9XmbJ# z(mcoZwr(_Nr(~kF%BU83w=dV)A~Z49@-zkqVOn%YVM@s)5mQPSC_(l{gHRc(FNsGo zkW3pJq?8tdbHJ$40g*(a9~jvP36p%{93)J;!Z`Jzm0pWi z3su^+t1dNG7R$G4j#V9_g%$x*S9Ygwt(ks@p3krt3g?g4Yf$=-93|gdHCxSn<~USs zA;y{LD&y1%aN1l2)gs9|TyChV`+GoCP_gWoO&q427oFnUv z4*D&+i$(_ym_RyVNmUuT99x*04cjH5GFH~3E3|Ddv%2I&YBN**phq;rnUr6p=Z9HJ zSzVIHqc;zJj;#4`z?|c-h~9cO=r`a$wZL(yw11|x3hMOSIV7fecJa(fa9NXjSyg{} zvkA4bQX6wGpcb`oWl5l3Vy_`j>~mRF;Sk}E=X;QsUV-1ngN^f7j=fzB40USf>L;Hk zc=S&PYhXvbeA@4WR{4Qizh$xQEJrS* zU;T#FRF#dVYP3sG)MeGcxA+PXosr~-@!OEwbfzvBgKZ4L#0p5_iLbX>TqF=@5u+lGXL3AY=y*g6zQ&5%HA1`G=U35HG1X$r6Lh`rfPV zneN`{nV5ahT~)8X_r7|sUR5_RPCD|A4Hlr#$3LlBDSj^)Gu9}TI-qfEmwI1oU;u}e z&H(shEPSrz*p5?BJHxi!&UDfVfh6>Z#AF(Ihbrxb2V4!MIceF5*s#JfCn|kL3Ndmh zQx5zYsMhX}kkuJ|LjcCnV&vckyuMl}XV0@ul67nhB}vlOsR}M9Jwj{Sowdz;IBG=Fc z7%t6tNaT{cxxg6ZxQR8JAQuZGWpj|11SP4c|Mqxwg*-Gmtei1bD=A>&Y!hY+6WM61 zmUbG;TZO_V@&6Z5@m!$nEO(|4&UMhg$t5L3DvV<)5<&*pi*8fxEt57di)yCrxKvcC z6Q`c`qD7S}G6%aJ^oWSCG#`dDZLVZ0Kq>|e?^;Gghm?v0R-^HvsmE;g$zFY*jC}(1 zGEbx|5RvO55zm|YK38&UpNYC1uE8RaX!vy0J8ZUCGpgYlj{tH>2+?9~RL!k9OJtx% z5%IBMt&XYEv7B9dMX{PBOLfwgLJr~PzzKKLt^K`ZY3GM^ny}$SdAu-+aG=D?HB@y1 z{QTfwZJ$HRuiwzCW^lITYGr~=b9oxHb}1&%wB`MhA1G~~!wSc9d5Wtk7hfsU;IB2y zwB@;5a6diQfx7T?DV}@B&s~1vm8=n8j5+(#^Ub9rG4B68k0aY^fhR<9X4NX)j~=6V zJa+Z%llfJv@5CB{eCl*DAj-R1!WV}5Vusef-zWgovlj)Vt-Zj6Pc5x%y!Cbn@3VEr zeTX%99W=w1DaNC^^r5+wHL~ms!>M|QzUX+u%A-;aUyF3578 zty@0o%*W8d!TnJZkF^(=EaD!S`5GSxC;hLjG5U?rxm$`y+j#Uao*{-@yMN+j2d91- zauJJFzAN!GZ9J#O$HSe{2SD7~d}Z+z?|^(f>FVqv23b5J>+p`#Kj>>0)<4ICTaZWO z!7cxS_WXGd;aIW!^TE+wtT=czHRsAayLPZYiIOYawF#5YE1ce1i|Z-cI{m3Io0`Rh zIiOgql3+>iw87&c^s&sI=gmx>dI7JYxuJ)`mEk zhCQduea($413l%qaUaJCotRTfns8$GqKNyNm8WA*eVk0kg;wT1Rt06vSQW>5%G|v+ zZ=pu>Bd<(-&5bLA3kMwc^_$$528SkMoZSIBdYtm1$@lEgl$5ouDD%3xaKPN1zgc-S z+~}Da<^4M$`Ck1+l+AS51mPmDJm6P`>KNK>|3o0%@t=RUvkG4d{j|(W|KF2yiqfT>yC8+6>xtFcljEmmIs5ntS0Dmp} z)-18z!Z=v+>CTXKLc8;>%vw8(XHNE7y1Tl7UrV!@{LgU`i)wt?IdgqwSb74Xm8W_& zhnZYg@ixY2e0qsqiz`o}T=Ct_OV=Mg3-!kCjkn&8iyndoKi*(Z@YT_mzkfD)=ghOz z9*><*(foXmT9?l@;mgd0au_!fLrF-`1>+^+vVO)Cjh@|I-Tqz@l9|gPkAC`nCh)u@ znc6g*xR?6?@1i+GEAE(b#cD+7#5KaxK@jPJN1%2;@!Rkz{N-MN-o6;!f^9RZR9;9R69USoBaj&kUUqtnpJqjdPJg4;&vp zjLT#k#v%+QA&W-zoi9rCC)Upxlqi7BqZf@NB(rms=;v;_0wkU#jilklo!m>+eSQd* z9f!d(RBrtxYpW@iMb}ug^h5Gr?dJbM`j9NaKY|36dmH6LP5=M^07*qoM6N<$g77eE Ai~s-t diff --git a/docs/html/img17.png b/docs/html/img17.png deleted file mode 100644 index aeb56396d478b80bcf41906b91220c3bc2a27730..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 384 zcmV-`0e}99P)0wX0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*H{z*hZR5*=eV1NQnD1Cqd6)1p7uA&PJSOM#Mh7#;DsDKf{WJYj7 zOoj^vml|M>$b<-y1F&g?it#Tf2%KBV_3IYM6Y~W47$yLrfc*z%1_6TxMlAZUiBSq1 zu!v2-EynR(08^cSxe;fHl;kHQF*acM39xd5eae3lDEffm0T*w9K?5tJWCIJb!TfKz z$`}$ZBw(?#jd*ViBEa8lK$JR8vXs@%arjD%X>S>3GW@&W62fqYp^HJ0p#e!5KQNAd zGJr9M0{?-A&md9e30$(J*Ap19W++|;1{a3U3@lF=t~#*nPdT>udy!0h$OAIdhz3;u5 z-T7lSH9z*v&iD8CeQ&;byTAl>6c8&ci5B(|vX}sYgg~<37d`WsBS#hLggq!J0YM8= zDOv3=$|^-Gn27CmMHuNqd+V9A{RTs-qfh3`mF;qK*;>I!*YfHB6wAzq*M^(~&ihVJNsO z4LwF=zwc44iaC0RY+;;wrgm#!@bzM+DfbcKR6RGaIZ zMk!-9R9!uWN(iEI%5$EF-z_L~)%nRSP2+zIHf`X8A(`#M=$ABh>_c9CqR`a6#f#S-ejf77%JsM230bwj+r@=bCwXzeiCc0> z8=S9pzWn{OMC)l6A6t%bZj}o5biVH%nJ!&^kNTMtF}%+&gB_=nZqQ&WUDLUFgy zRABt}vZmZW(Ceo@9Dvim7-#2{e+iSOBsE2-o2E`zHpLYASKlk7R49>SU;qLp5OIwG4pbQh7#JonAOqHL28Is|cmQLim{J-8 z16xce149B35&_`m@h@mN@RRu$2V*Xfv(VuSvpAOsM*&oh7?TKq15lb%+;fQ}=fo1u z1_lNJdj?K+M&^JC3~UU-3<)0+7&kC5a1}8(_y;UkkQZQJ1*+dLApmBC3l*F}3Sh-5 zIul*s?_>udhAj;LlNn}$m~2NN(e{=>ixbF*1xf*#+5f>I&0)Z3!0jNwZ@@VL#Pnuh zX#k4y-Ms*cFkUu42QbqOq?CVY1K4=a8xvqmdIJE3Ff&JR=CcU^0000sd#O3liEREdp+3@mJ!nRtZmW$4O8 z9>Ee4q7oI%OdSwwyL1m@>C#8YiWuPRR8XMmK;gIUZ0Bs>|K9~Xv=V3dib*E!kngCY zOa0^PDjH(#HkuX$afF)%8CkaR-YQ}lj2aX*<&s6T2~gOwg@v44H)WBkkpAZ-QLvfW zuaUT%qRP`S*nY<>Nk%R_s)u-1B6Y_wGD4mOi$G(wY~A5g*#>pdkoG@Fme4hXD~Tja z@jnu_M{s#9Hpn`~5D>e&yC0vO-~a#s0d!JM zQvg8b*k%9#0Ix|zK~yM_V_*OQjsymDAOXZIXksi^F_d8d0|qWG0|tf$28II*z!VvP z1Bm%1Byce?#Jzg}<}obLn5p@q_|~cR*(VIjjr^ z92{UWoIDA$48WY;1q>j$K@OfP;go6ulR4c6PxwwKa|vL`Fx+A2VBkH#IDr8eAwYnT zVHe=rP*B9M2-7qk1_on>J7;j%_|lymFVGqQ05iWP*Ko_$lmGw#07*qoM6N<$g2y&% Ang9R* diff --git a/docs/html/img174.png b/docs/html/img174.png deleted file mode 100644 index f11c95c0e5ec5a781a18810333272d0593baab81..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 998 zcmVSB!r*WZG zk+{Up`Oe>c@6Pw$a{vw$mH+;9EUxMN*Vg3rZ4H3L)u5tVv07p0nI@iyun{+Z$fQV% zi)o_)?x=|CLYW|&l_ZU&M2J_923X2PTZKZF%gU~j_2v7ZsCz-si*=>mpo)B@+hvzk zsmAqoBmx$#Ls49t%vH3(1TtlH1W;uS&r@%yYo^nc4)}LP?&KH{vmock6yQm248TM; zMiYwkPy%U?FuILpCs480K&yM;akD|Y$j2UKMXg3gY*XG`=Rx|WKO( zj6uzI20Nk7r&Wqk7{=TUeIVr_86fj~sI7bEK#)D46LeoI{(u(L@B`D+ z)&Uq3M;bt}sN90_N`>!OB7-WQq0v6V<|tMXXK@uLwLWS#l93FWx)xYq35*e~K;W9< z9;b_ah?UDtUO5aqYBPrwJfh*g%OuOt5(((MMN8E=?T%S$s9(d@he>C!r<(OwSk+N#&1 zXsaucQO>)Y(^iQaD%k>s`PgB^PT;w(=VZZZ`RxTo$4Gjj(>hif;Xq^No7Qp3Z+$58 UY+D1Ud;kCd07*qoM6N<$f*p+2&j0`b diff --git a/docs/html/img175.png b/docs/html/img175.png deleted file mode 100644 index ff19444e706cf2eb24757dc49f2f107c7b71c313..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 719 zcmV;=0xsC8_$pbjaBG{5 zjd1wEDi$IZ*}cLxaD{Fm=HM*swh@FAyu!jp3>Jcj;y)k+1V0Kn=OvqLHf~E2i{bLup$fK6i`gL}0jxt0MZuwoQLb%SnD@Uv{-(#A3NfS-N4 zh_?B;9Su9qLrl@9AJ*6Nd;TOBO5<>YCZmJSeDB#nz6I`?H;wOw)bjJ%SW=i^oMFhs z@0G)Ahv4rO>zKm|u{Bl-gTZ$@<*+cd|3tD+0R3UDUd@5o`l(S+pB-(JzEGE~_2X4d zwn>9=>-9mpCf}&V4ziw`8QYq;1uyL-?!R|7n{?6BgiC~_qD{hBUuDLxEp`MuQh+P_ z5n5z!g?Z1l-9;f&yUUUwFZO{iIElN@8O}rX#$+5<7t@Y6SEuOdj^tc-O$v98KEz0_ zyinJqi}{g@3+EkBU9>)u`#Zr#oHi)3(0LlU)@>Gt`?#-BH1U^Q{U8Kf5nH8 zl!ZwhwsG5!Gv8R5oEA*#)9$mC*|SLv>UHg}G)5G<7Y2ZVHj7eT|p#k1iaKToI;{Clma!XrmERjxcpi z4%_IT?xlfqGTa7srUsY?M)A~*mEXmN8fyVvC>N5xPETFVCUv@Lw*`ewN@?w^`1GYY z1bo>PGCp`^43Fk#Gl1TR;iY5j_7AW;bx2S5dEi}jp!OJo(XcI=T4L8ioU%5Z{Yl4o zOJ}YF$DX1oh>BAs4MkOG#s4jA*%W}wrZS=B^Ad$UM6(ID8kXeHEK9Q1O9=AtYu*!U zIml5B8@RT5!g-3W&&>S1DfaYuXz^#*qMOqN+U?2E--$%|9Bt6q31Fq+;x;)DyTD`p zp7w3RZJZ#`$VSc*a?p%(EQH@FCLnYp_&fQkQi2Mf2u-Ir1VXxBu2o2g-%K;F=zj-A z)}vIc?9V9l_fIaSVCuAQmlw+6y0oe)Yy$V+ExMAmyOkAm>8Fn=7y~!MYrcj5a9ut7 zi9e#=Kw!!@gk%qrFO6G{_H*4ih9L`Z^MD+_0!!fpbvq9lHJ6=4=*@v}TETbr(yY$>rmWV1){4GB3Q6bjeLU zvlbL8l!M$NI!{CTpC+?Ye_utR*#+}WE=&W1DhhP1n4KtKb#8&Q_>Emhm|wPE&8-k< c)6BnuU)`gWXAS~8UjP6A07*qoM6N<$f-<#MyZ`_I diff --git a/docs/html/img177.png b/docs/html/img177.png deleted file mode 100644 index 4c5ed5a3b67076a96708ce4d093493416de2bd38..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 228 zcmeAS@N?(olHy`uVBq!ia0vp^LO?9b!py+HsI*Z~9mvrQ@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?b}}?%k8>W%Yo3#*!evUo;8U@udIO1Q;zObRvZ#md}!M<`!n0hnUsWDzp}F$ACr0~FZ) z{|9>SGaElB1lSlj85oR>4HyhIfTbt!F$i3k07?{G5cM;_B+~@xU-AxMBeBE>j>I#p zzy-Xrny6fk{rD8~Zb0Qv*onlcoy=jt0!o@QK>)~LTEHoQB=5;!1k5y+tO;O63~$lQ zzRkeXzyOS4P?`qDZvTH}1_l^{gIxy&#ViPy`(P|Z-qG=USM2$%^O)RC=b kNWt`q0~@-cQ9u>|04C%+zVV!Z07*qoM6N<$g0ID|aR2}S diff --git a/docs/html/img179.png b/docs/html/img179.png deleted file mode 100644 index 1c7be3b530da9843ffb23e52ee93b39777e31ced..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2571 zcmV+m3iS1fP)6T?9rm^nv5$b8??Z)z z%!}W{nZTA!mTaQ}S%^k?O9;y&rk&{V z9n-Me)Cc+%!6{lcZ!Vi>T*TblL}sqKEK{y?V5kFN51=vqthkF}baPpWoJC`!`h6B^@GzT4*fKyMqoYHDbD0s%2ex+X|@A;m3mO zmhu7%PL@`kE!WtaiY!GVLU1ryo(Y;@U~VSMYS_biDNn7aY~TXfEW9kAumbPC44qM9 zIkH?Ejk22Jh$Hs4WqHOuLRckRh)9%*50ho7WYCZnMlxhsppb#fyFS94UvNo{fF0IL zHnqqyUjr`BtOc)B^dakGnYQUT)7EQUX{)X$j=Bg@iTlL_#j#yWSZPWtxov0TmT6;~ zwm%xeTKUACt3oYF#gn-Lo?sp?cth%$;$_u)*b_W?K~%L1>V)z>$FW3{~GBQjQ74wpl?fta(ad1)V- zu_9+b2$h%1p}SyLp(LgQl9A$&PmvO0lJpH62z%Yd|9z@$L}=AMy#?~sGnsm;wa5g9PZ3(%aE1I5 zsDwF%u2kd*=i17)f?&%e!>b=hR`yR){}9hsksCDZUmxPfjmc{IVolCK>jq9^qo7CL&@k>vUJb zXef71PvrDc?wl3FnIQxuGv1=hv*HhxB4e2jE~N$1WDT-qUtsP}I7yWnn;gklkw+K# z2p>(7;d|KQYr5i-Z%V}rRY*H5N0!JFD@!qFL_SM(1;G&+%ajU)6V`p+w?VuJU*L99 zn(&P2U9AD82*jJr2xwT?3Q<&0A38r#ml8V)0kHLF8rIz6rHulXzBLSz)VrJ5TBVEamy5qN5D#T1c-d71NCFrS~jkSH7l!ntF9W zx=M7`kR8m`GNS88NlZid3ee1qW+%sj!Qp|cEZ@kC;xxvGdHghX$z9AW;9faCEZ)Ob znOEL6Y2@*ldzHb4eUoI4`{ReXw^h2|$xdSXeZ4<@h#vQSbwyH&_UN+tC-W%N4(h{C zg@gLgg-*v7D23O9nhKN;^L2CQMxq8UgNo(wZmtLAEa|I@?$czbehG=?M+Bx4%P^MF zX1Qefb#vg@a#>F>H&J6 z;j>DGjVw@+VBM&V$$XWyFBAVbF}Z!lon)DyaFgot`?y7KbxW+I00Rgb0P|w;mUgvcuRSy= zadot;e9&UQg!{P&2jKX~1%;?%m78#0$F(Civ)jJwcG1N%)du{h3_rWRpPRL z*XVn~^#&Vs_ce7d;~_gyPgYsmF|+@4$ku*LqRNMuZHzhZ24-nkor1GBnhx+Ps{!W4 z;w|kumI@^y5@a8A_S~`T=X@m%d@Zo%SA|@Boo=I_G3zlC@}Orze(Wy_`a@tB@b-2# zCzXr|nVS*!NFw{;xg=z5Cy7mmY#+d!QOhPtr_D0k9Ovq3k#^NpQaV#oi_CcLt zQMcb^rOrb)fUh1od>Z0aiJO;VnZ+Z|`I!3tF^EI&eFAvxwYvC){E`%}o?zi&Fw{9U zNlTF%W<1#^1wWs?XB1CO)Ub2E>QVa`o}Bp6XJ{XsGj{MI35g5WPm+p|bnMqYD84pE z(9AdS#}gXL>J*&4(Jbea`+pUx0p_vz5ILx|D?>UK_g~S~OQG^XvG0HX=o{C4^rB|Z z5#ZpeL`8>o4ZNo0wq)sU_f)1k6z%XXwtE@si`^f^C$Ei8+=|Bk(;Xpu=}vpFVXAFV zZZi4yJiFHM$iO|?@<7VKd4rt|uL>y6OjGpWv6SJ`@_8-#X2_9e_k+2{MV z(ndRF{PEM&Np25D`RnS7xD0!b8~@!Pbf&g1(?>Cu->Dh4>Wj6?T4{s>qf$*$dZVQ?7`cHr- zr!UghX>`QlUR+s9FN5mySSq>1A@k39U@>BCMlcmJt0{ui=-*qS z{Ksv&-w9=UQ|Ss5U;-erm5m_HZ?PEOG3BbgH`Bk15S0Z zAc7)d#LcPTPy~PBQrukK>gZ&!Xh9Sz2u?x~#41R=yCyYWW35gOK9VnY@7}%p?&ESm z6JZ`>EL;|8=oy9|s36B5asV3$`ifk1RgiL>rvY6U&SdV}PH%zMY)Q^n|6ohnx#ciw zgNcMZ`GrKY>}ud=t9J-m8@Yuf``P(ee*E={)~r5MbrqCmkrzgb%L*oS3kLVt)xwC- zh89oc%DGRaQ%u4A2)d+;e6fN4@1V*|C7Rsh`y?L{EX>?y4wP-;njI!Q@p{4@I>IpFCwGhD7XSfZd za7|juq}uF%Hh@LLZ}JCNV)T{wbV%PwzeE~|z#T4*lfO&DKorM6v8BoNN3M&b*hO4#bIt5x2mgS8lN6zw zb}Kl!1s!ZfX>oMwCJsUu_kfdIx8jyTaB!&al2%$p3JQYXz}@lv-n;jGmv@ljE*+CR zbEw!M<_ksAC`Bwmg%>;dF>V19;An&~QI;iK7XBF?L7BP}7Zu0YL;Q}N267rXln`w& zO1OR~gu56EOa1-^Ng(CASt5M;YxKoztc{ohhl3{JfM_T#j1VWoQsyXY(etlPbTr_I)*7(YF{GORwQA*xU<-)z($4VXBm>byI_sDeBw0g1T#=NCVeG8LG+@0z=P0+CY?29ff zGZs4|T2tM#`u;=D?z)&9i37Fudfuiip_k89a*HqF12f~j?@Cr_p!ee|`#Zb?@iI(y T(xjOU00000NkvXXu0mjfQtsI5 diff --git a/docs/html/img181.png b/docs/html/img181.png deleted file mode 100644 index 8ed7190c36909f2a0472946d7c53af2810264194..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 480 zcmV<60U!Q}P)G7LLK}`IBPm|=zILT`~ThJ-#{`6aE$DDPp-Cx8%R9U*lr|1#I@Jt366sYR z0-ZUV+JABZ0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*IPf0{UR5*=eV1R(b#SogG0R<$4u|XIgP{sKfI2afhH?Sm!Pe9Yb zup0(8Ad9jGfXD_0W}s2N3@kwQ1R#^0!y!QcA_@Wb(d;2;E)w8GFc}3Hz-B&}z;Izg zz=j138xUd%47@;s1?&bYfZdpYc+Ce8OfDeiHvq9FAOx8qTz-QMmHq`E4g@qz1q!f2 zlw6p=$H~U#Ai#o9$K~M2#Lb$<&#;ISY#zj@1dvw~E?h{!>IDA(--vfFg#cSvQ51gc z3Haq%1fUH51K4CI6+jrA;BaS@WS_dyq3L6#So;D7wuwayERD;GFMt(Di6E4Hn91;m zfuBo&{QyH4Lm)#F0~<1Fe*%(q8cnUZtV?M(x(fAMkle^W=cNDxZcsTB2=Ir&umo6A4Hf_Z&i|QLrow*J00000NkvXX Hu0mjf&*it# diff --git a/docs/html/img183.png b/docs/html/img183.png deleted file mode 100644 index 045d4f07c0b632cb0b2f4474dbe1a7560870d9b4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 345 zcmV-f0jB zLkeRG!+r(^E(b>@hJ+6Z92*=U?q=g28U6!U1Q{jSr>=Bp`XR-@HnE6- zccM5$rUb}@4>KA5Fz|B;Ffar%G%*-5++`KWyZ|!(K!Q0NLn_d;0EV~uz~K4~F^98* r!M=rIA&{kBc)Vc7cLB!!LIwr^M3F5CnKP?attu-k3keAUsxmS%x_kHT?%lilTf=REe8!R>zhDN3XE)M-oHS1t z#}JO0$q5b3tPW?Y7(F)lCO9xE7>a4k{>b2Csz1TN%q$_IfF;!Qu%kw80`rVVtkOIS zEqijKE0@6Gj2-~`5f_%iId@w XsAxZD{K?fo8yP%Z{an^LB{Ts5U8hUu diff --git a/docs/html/img185.png b/docs/html/img185.png deleted file mode 100644 index 0cd52618141d931f1091509d53abed697a4b824d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 452 zcmV;#0XzPQP)2Tq0w3|K(|11=dbFkoQZz`)1?W}~XxjQ}X( z>;X^)KLf)D-?p+j6J~-nvU4zpIyB(13Ju^g9|dq?h=A;RFoEF$Hy1ZU{s*uS+yDPy z;RFU=1_lR)1Qy~QL55?AayNEx07Hbs07PO&5Kx%kU_&J{4=WFI3IoH;ne$=73>PNw zF{Ci2Fzkn@{}QX0$J*X#|vhB u7hvo!#B{~aa}x>sYZTxH*fT%&BnklV*P{`#<)yv=0000R49>SU;qJL24-#sG>{>HE&>Eh2@H%4uQo6+uo)l(cSFDi zga|tWLjaiZ!N9=*NP0h|mh3xF0g0OcR>GVmOj02Je5;0N&&E&#>zdX$^Nfq~zAg293XKzA_;0Qo?{3lA8o9YF5= z3FdP-D6l0sI5IE@0t1B|qWc0v0?;oE;J~6aK=tkh3_d}?o`7BaqAZ#K{{bKY6J)&r z<}yk$H2sibV42>|K6Rx7P{30kEd85-VLy=iFq5APnDkiZUt#zI)yQawkY+!SkP4(k zSmGJX*&wnDL5AFB;N1eGI6D{?0;%~w3K;BLfD8|Hh!Jciw=NL&*N_Ff@qrBh*Clx= T>N8p~00000NkvXXu0mjfy^){r diff --git a/docs/html/img187.png b/docs/html/img187.png deleted file mode 100644 index 45adb542d7c0e9bfd7bd5202624569ebca8357a7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 279 zcmeAS@N?(olHy`uVBq!ia0vp^vOp}r!py+Hn6DC90^}G3_=LFr|NnpH%$cdFsm{*M z@7}#rR8%~3=FF;9t2#P5%F4<@LPCHFjf{-$-n}azAh3J)?!NB)&p;u@k|4ie28U-i z(tw<)o-U3d5>t~C7@8s^7M?C?Y@EBWfsv_#d!6wC24!X;fy5aME<8McSRIc1XVfs- z-;!8m$t-ptG7}`q$iwS!g7X4f5)C94ua8*Q!BN-QJ;rmzvySqWPx zVxwuTvPud&$I8UUwek|Oy$CGQQN|4I=K|pekNrTqC!AhR`hcBM zhM7gGDkZY?Z3;~uzX55494NJ@9!Kcu8#Oq)zZKOV!|UOr+}cLV4!ZoR-YVPoEG}*? z$6;97?>mnSP6no=6m2q>(gZmh!M7=I5fNPV)-Z-xtmFCy!_A$3i^RC@GofoxLOl@? z_0MYmZu>_9*3|xB#FzM}!HkX6gdRLJ+XUz2Kow|Za(k)6x0+|u7!j60)W8Bc3N#+7 z{J=ceDe*m%W&u(jN*U@J*7Hml6+;p+8&F?I@aFW^ZfqCDw# zJoTsXixBqZ=rix|kE+x+%guG*)@$_ruO4(u#pYZwYOBn{V0j{}(Sz^D6kM-4C2&dr O0000$?IkNdMN(k6$jzR0nACr$hGtQ zkYjxvtIk#*oMhS~xz0dxk}W+_uQ#59V3MCK# zKyCtvWR=Hv1m(im!yBb;^Ko4pT#M5tMMJ61kh?a5Nf0eXxb zdiLFEh*QsW7|v_(D@iFwAy*FI?l=c={HuN0oPMpM-oYHp^%7}3nRtEc>Wq)3syf3k zb>&2=^milfSTwq&XkxwoZj4g-1_(}d-%hlhrO4rjGh>v(KM*7r!B_aOC4Ao?5e-6Z(u2i~;p1_g z*f~WDC3?>J{UNHyKtB@am9{d#EJ3q8YLMwMmPCtD?G)+BoU1|qUH(0I5@+;SESJT0`Mh@Zd`qTH+x;9}q8tDQ2;oF6X%N5`xvTiSDMfd^`+Ux? z6sjhsHZ&UM!gul=-9qk@LOH57o_8))-3q^LUDfQXn@QYbz>&r+NRXu73}v@JF~uzn z(VSvuES)U892fMy07vuCqJ{v*fwDe~gN5~>s_8OG7F7ju0!U<(JE<1yVyoBjWL|8U z#uL3x^?Y7$CFRHIx8{n!u;K2fsBs>ib5cQ_FkY{#+*R)7x)f%M7NlF3sujAo#G5Hv zXE#hP{n5RqeqIvCIhH|LJ>>g`VMweJ0S8WHD_R3U;Tx=ig;Dns57cNzO4%AOBknhe z?j)Qxc5pq#Ptc-#ScCz5;gr5m0o{B| zJ#3xMc(|ezfP+SCR9FKvS_euXstl?!_g6rDUh^|l)K5U7Lr=aQ^^;}MSsQgHF%Vji zuu36U5keI~?G5EzHBRaqaYOy=!`7R$KtU-%k0j$IS)gdE#afU^r{r8q&gGm_DK%K2 zm}}XV#H|)JP-}aFxZgTzEE2z_1p@dcnZXUpXa)abvj=$G0wFzWNl?zI8*}?9D$1Uk z9Z`b~@;C|CA_?FaIIv|F`Ua}}$LUyezWm%B)|%Xw)Bh9Oq(qKC+|mY-*d8PN6tcLB zuV_6+cV2Ve#p_p5T~aw;x~QCET>pxR>^Huyy5NM|F6m9QmTP*|i@BG|HN8o(Wwpn0 z=)B-mYI-ESG@BHe$F=mTp3Wlk=%v|&np$!#_aro#Rti9SnqKt+TzZXd5{l4>FQXjRdy+Xno1yjyqgrR%6k$SN>=q9Cw zbpa$Rz@}}=>8ikD<(40|Xm;hOS6(`i@?b6fbF-`kUXg{~6kKo8DLHT0=DjJ4OP>45 zV)PN?)`Ih$lr7`kQy_h`*F_$Kn6ytYjBnt^V9`%IcA+p3-V}Z!3guzn$49t-44dQj zqp(>ZjAn3s3#14Yk|Z%HB2`xFf49*%2%f2FEekRu2#=m5nR=v0Nnp1%cO#oNJOqB| zRts`V03T(ds(~y9_OJy-V`3BFwp2X%t~Yb zak{yro0Fk+V=;9jA6R6PS*^dOJo5Rf^N|ggh(lFnK z`3%YG@r4v13lC(KF)IKn)R_GbX8FulotMqd6G(DOZ~yF3OERX;xXrjFsYmN^r9dfQ z-6!;E)NA0n|JRkjwE6XoYV9lsk0j^S^O6l1pvNTv{;XF0N?fk`4bi8C05%|80SMqj z{H>jl%&Vq8pD!gdUts3GK!i6 zY6awh1^^^U0I1cVJWw;$^f;#^DfP5^(T;}}T4R>D)})E`11yvuCBjws-K6Iyv99Gb z+KN9b7lG zrOG1!u6q$W1cg7X3e74I&6^%WP^j>&cFg{WU!lj<*EL!#X0(cR%(NzlR{8TR;>JDs z8lD!U!sC)Id>n2NSX~}AA4CogLV?JZPF}*oH<(5CxS=zQqzeG9zzmq>*dm8};!<+o zs=Q-7&SPXtuDvBuOw)KdDJEO*WToj>=nroSZP4CpttR0P$Fsh|VRxITeS_kKpVVCv z-CJvi1jncffNI$3wdy!(AEuJM`m|g!ZcHgJ`~0pg&9J+VDFmt;9QH4oVNn8+EmdLw z-$1}dwgk#B^$n`Gl}5BX?JZ1>2!NX+!K!)@icOxNgc~D_5Y#B-D*O((`0kc|D1aZy z%DMoAfUYR^w~Ay@0x%7x3>wCVkX5d!F%bM{MIl!K0KeHXKCh*@oKw%`M5mOp zH~DL4&JtthmNemdTE5nf+O59Qx_o5rBc@PX`l*U}jMsAs1A z`oq97*rU_3-w{ukv5$^753hkY53hj%dAMAuG=T+H7q|XgzIhD89Rdr}^5ViF|Ht_m zp3=X?K)=!qCWmB}hyZ|Np=O5<0KPE_<*c+mj1TcA;2W3~pnNz9g7(|c*Dw?hc`D3z zqX4)F|NHm>0NW3UT+GCYZLR@?e*glac$|0}^Zf!BsWeiukdOsrye_I)b&*bGkxpgq zO_p26SjtJv>H2R|Sx~OEEHpORd|BMcw-p9I6uAo;|FGo|gX>n-KAwX2`0yHd^Y9w@ z>+;ZZ!gUWl=b{fBs~uW>_Akma75PYbf*0`U6h`O48J~&2u3qW@j&C{*=he~=HU`k@ zn6cg9_Z5(DzlqiEKkTObz8d19o;$ch!ILCUuk1vW2V37l6@^3j{CO#09-#4G$meT1oC0Wf)8Dm>;y4EqaMKyOlOjlz7 zSd&|+m&N}7bQ{Od*vtAAcFV@cr}LnWev&q%n)n9;fU0 z78_ynLrIl2rNu{JMIuZsq=rwI!vOgF{_r^7JiG?pJiG=T(XGzV%iBFOe7zqac*ZZu z>?n;kP42#i_=5eRGZQ^|c&X*V7nDP1ym@#Hym{EeSIAw3nT4GJP(Bd2fPZkMFGc0c zv5zq*29v|gPau5b?kB~Iygd0WqK#eT0BSJ?!$3Tg#)LU+SqgV|v_t&wi5JakkxRD( zYB7exAPZlfBuTv?iL_dEEGBZdmMXa}NXqF+j0aZLE-~mfUMY;*c!PY07*{hNF8*W5 z#>xDxTVDfj9$o`Ic^Jvrp&$CnVLT?f&k!F_lH(kK=rPBAupk3V;{^w+CsBC&YrF>D z{u+b8nqtxX6B{k@0&U4H>_aTP0uKPNKSkgq2tpIVIwc&Nx0~_33J-g?3;|JW0GHzE zyKxUMz=Jh5F|fJG%j)Cru~c(z^|V zm^!TPYH53`T1$}4^*xG~rGqac>Fc-rs8hP_#EL``g)(v zxA+jX``K1MDx=cG-`(aI?IH9cn;{4n0*Ig&LAm*sh2`d37DD}|7b_%b2@yuni#>^% zpM>f+y;vRNn$-1;`k{>#Nm@eS?DEr;*RJpK^t~8YHaCwCl3NtA&>+`qDP@*T)&;Z4 zx*(ZKk3>N)t-?ssTWif-*hySZlhBm1ihm}DV)e%|g2@B>TOpiO2;u(_%9xF*$AFW% zDoLskCl$i#Fj?)=-H=33eq;jJTXx8W!Xg(6u%@(t1k9<`Cw%P9zWfmPWKJOggSs3v z$rRe#9xKq(#WK_0UJkn$1WD{dK$4j^Nxf46HOS$v?6Pg4^}3CePvh5lNaq{9lq`04 z7;FosQ~4iQ%1N9~WpRvAU3pNQ6p67dsMmU(Rp}n#VeNUX8fq>+x_3po^hFxh73p;R+YN2%@;35jw6VPxd5KG3q+wl= zgkI!85bns#{N#k<9kk)0=8AOiMH<)@$=`k}_dnxOc|)~EoBrTV(%sFNmD8sZlN#`G3#xa}8M<;amU!002ovPDHLkV1gL*aee>* diff --git a/docs/html/img20.png b/docs/html/img20.png deleted file mode 100644 index 6b9684baf89a95e72d05f90184709594485e0139..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 189 zcmeAS@N?(olHy`uVBq!ia0vp@K+MO&%)r1{7`D3{$k7V$332`Z|NqRHGgDJjot>TE zy?dvqsCeegnN_P+b#!!;m6e5rga8%Zy?b}}?%iuY`&j`wj3q&S!3+-1ZlnP@j-D=# zAsjQ46C4=6v1v3kvNrly-77fpg3O3(rIJ4=-J%=fh4CNbmm?L&pNdoO* N@O1TaS?83{1OVF`Ov(TN diff --git a/docs/html/img22.png b/docs/html/img22.png deleted file mode 100644 index 19b9986cb72d46b8b616c27a4cd22e33c3cfb9af..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 205 zcmeAS@N?(olHy`uVBq!ia0vp^d?3ui%)r1nE0LiD$k7V$332`Z|NqRHGo78C-@SXM zsHk}6%$ZfIR&{iAl$Di*goFT985tSfy?b}}?%l~eoD+b2#*!evU%4@}~cRhBJ7&`njxgN@xNAHONI? diff --git a/docs/html/img23.png b/docs/html/img23.png deleted file mode 100644 index fa052e10ea7440384e5b93e542e7d532ff8de777..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 225 zcmeAS@N?(olHy`uVBq!ia0vp@KrF|?%)r1{)UfjnkfR>p6XN>+|Nqp~RA*=BckkXQ zDk`2ib7s}5RUI82Wo2a{At5to&b)i~?(W^Y@A%%|4b;L|666=m;PC858jzFW>Eak7 zF*P|M;Xz760|Q5CLt{H5V}!KCj)p62GjxO!(inwU-#9E<#^5Z(w?n9*tKkbLqr$}l z2TnaWaA4lSh9q`70p5+P8XP5EHX9e1HoRbBTgEFeOEAUkH&Ywe1{33mDUAKa9~c;{ Xzwq3zP~UbCXeWcGtDnm{r-UW|Vun*5 diff --git a/docs/html/img24.png b/docs/html/img24.png deleted file mode 100644 index 35196adf1468f8338f5aa73dbd49c93d69720142..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 476 zcmV<20VDp2P)2!Sn?kLiG=?Lfe)ZW8xK|gVJ3q)!&e5rYhM}opD-6B0ELp_Rxldy zLKtiTKm(Y{Wy(4Gr!z4BZ~%!ZKoxZr>bF4cwihkH@P)000{V0{{R4vFTs90000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*IWJyFpR5*=eV1NSw2AqI}f#Cy~F#(5y`~*fY&5ug~6o91JAk0}n zeDur)AZf

      0T{U}RuN(awS2EZl(mBbef1VBiFkATTo1%Q(aQ;hv9m|_JZD3|~VXhyK#Ab@wnOc0e)kirIxs0BbK z2WJ2WHjJ~vQk0rVJep?=j@-(!2H7jB&GnB>nhZ5fij&xhT{wh1mNAqNgxkH cfIrY00PC4dV72QgE&u=k07*qoM6N<$g6$8)NdN!< diff --git a/docs/html/img26.png b/docs/html/img26.png deleted file mode 100644 index 8c581355e69cf351eb90b36b0cf7887aab9be31e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 273 zcmeAS@N?(olHy`uVBq!ia0vp^Qb5el!py+HSYPqU8OSjR@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3 zqyahoo-U3d95a&>fWVePMdDmeLV^c_p@fS>fI}UVvQR!F^I;Y?HZyj^c6NtZiVvHZ zL&T*x7?j!A7(1%U&DvSm+1T>*^4h!>Xc({7FgEv)YR_Z4cU64CPTz!2{4>so)SoU0 zc3NPR#dYE>lML4xCZ1`366|YIAME}%wede^G2@AlWkoZK&i#AIbH-jqf+62PW*Mu_ SmBm1(F?hQAxvX002n@0{{R4PTcu00000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*Ycu7P-RCt{2J8i5S)pcjz%+BoW?(E$J8f>@74+S-Hq>8C*T2PyK zEJ7hBi5JBpaa81K5@eAy?Nc4FEs`=eh&s5E$6(pK1oIZTm2vaoRn?GGPsCf%Hswz| zl|raXT`!_ag(}3rdzkl#rU0~LT)zo*j&kt49vNWG=TMYDre)N$0UO3p5}FX%$k50|qA*a61cGr`CScG* zYZ6<{fe@7{0KDbkJUSB=%m6(5`=gm?Uxfb#m}x@pYw$$T%N=#0e1C}6wjp=LnJ(3; zpq^J{Sx~P-jhw_Pa<2fBCi2-=h(FH5l>#b34Nljh8E8GC=TP03E2H%@iBq&GXwXXp z);O-w15MDCwV-qx42~LAs53~ zHHGw1W<*8}LD$N;AXsUEwiZb=7xzvJR-%KiWSh`kzfBFCBP1xe1y}~-n({C0EdhEaP>_s2m)9Tq9nw*m&?KkcG@n^+b>O&*$h6Q4JVf{ z)zj0h*a&d4lp^jzYf4E!E3%=Bz(Es*7QdGA7>uk)I7F%FXOP1L`VuaGK=bH`KW4%J z@9>y+;PtULoTR9;;t4Wmhz_mN{z8HuC71?+qrTsyd{W*G+d4EB? zKM)T8nVIa?>iQf^`2OCLmN79Ysq6MX=r^A<04=cA&Hz z!a@OX{!9{YqsWp^6CvlX3K*1X_RF-@939URc2kJ8jg?4R$si2ux}a#)2i)w*Am_v7 zXF7lRbO@mq%iqLZO@QeDKK>A5=pgRIXVB#N{{^urgls?2>rMD5ZFOAuhf;e~NYnP? z{zdv%vE!em$G+$)Gm+jU`WpNQI|4_*en_TGoyYXZrIz%bcD6h2gq#Nmo`J-Z(-1Q9 zI3{?S=}Q|w0vj=^Qe5WA2pwyqH4c}%#lslyA3U&Y_Q2|B5h`Z6+?v8wYt;{wMSwG7 z52x>hUSa;&v>`muO`mRWmKTDki9K!QSI80|&IXVwH>2ThH*U(hoL(ZDq z^V8FaJ8u;XsG;t{)5FNwkhhV80R3(m25SK;DoQvw6*XJvqC8EJ@H`D_yr*k50Us+P z6Rm=@)6+AwI8F;3)=`h zJPI5<+ZSk|tW2DVO2P-{6mcj((7=OriWlnVa&>AlOih(=aI@P$tqc|=*WKZhsnHNn z%_9@DoJyZUKSR#VKq@zh0dk9fFo32#>!eGu@SwE=_D+^&OMeeXV9PFJ2i$_)`SKye zYQO~iPXi9X#C_ornDMp*rN*rf(>3F0ak_pk+!9cGPpcRd??oosqR(zrfpg*7$3zP` zZ}H_GOJG1?(zC9V1Ru9QatDY}NPebmj=^xe(C3Xgl$G8DZ?elKCy_{tswM%k2&Q;& zsMqNuyiSuj*@;N20k2iY>)?9y4?Oy&taj+2*9DPs%Z60@5Pk$D9K6pXeiLmblU~QG zIEmx|z6j&-RQlZ%-L6N8(j=G7`y?X6X-Icm z852jVJy#OHyU)QDnuB%0uLV~W;WT zaC$FsePGCKa_~?foUW2W=8g7vl@$~!SUk{;!cfP*Fws#H&Y0@tki0iB18>L(CD&?=^aTo zO~!D_ zFOf+k;-iL+0o>k2l$ZtzI}XO_y8jM!(2`@c#<1-1?we49s-nu5jZj5x1JZa-@1996 zXw&Lu&*f0kbC;Xx_aU>vMJ;Z1WTuf~p7YYT6zq<+e)Xt8uq1)vR{*M*FLZ|1eA2QT z@{{KJkZdmU^H>)X3N%(SqjNEnI7HD;N# zHZB}n%rA$hUWTMT2lA+5wRCTUQ!8^ta)N z3wTbmjdMFN794bm$A^6lUI>s$VKSD!3U&d-7nDdsK!ki<*z8)g`!mtzEBSejHjPHv zGND1&0z@#XQo}Ryqan(c@J-q~cugR(yhdLs)TE(wuRtb-NNx9Uzvt%*JnI&ee8KUx zZqmwAOIuBa2)xD=S^7?wie?R8O2?C)FOWZgD$Qa`lp$wv)M%|?=@e}WQu=O^o(4#7y#Wz@TxJJi8d$d))}$Woo(!C8QbAQ&)}uxU(jKGqw=4# zU}3be`AUO#ob7lsSqrm`wU1%HXq~G>tKf)7IJ3by*b*Rj&0|@lKx~kX>}#hhluA7q1t_`s(P?fcH4Fvhw3( zR+fr@^VKdChB{nmW@T#QWLBoak(bFO%&ZQMm02AG&aD1}nJ!^wWrgEpRu&yatJHKX zU1pWH#>uSm9FMOxyw(zDR`X+JR`W8mI(<2_`achIs@@IBS0@sx1A|*mo-y~LpPp9< zzaM16OvhS!X|rpM3=SZeO6W4aT_6;{iph?Yj@i_P`s+R(PW9Tc{EjW2LEHO?`y5=i zDn~!ofE60t9&AA@(#t`yc?$g(;XG41COgV@=PL_TzW{s++?Z7NiZE-6pyJ65n>TT8 zR8g0E_&U{7bT|*`pr_JLRRfZaPnK@7bciBMgk|B7YWhtaCx5`6Qh_QL{)J1|B20G9 z!8vN5s2>a#t}M+S49pe9=_knnk79(o1!~V>S_KCv@Ew&UWek%qLCbocLWDD1!nn}G zX7GwynZ`xT{7@LOnbKQNVKCAKK@P3aaXZ_?y!oC!6K;RIV;)wjPrWm}T$eWg{rGTA zw#AL*H};H)XL~eBy1J;&_Ud}Fr-uQ(3oOE3KSV3h&(})IboL6&=+#>%>Z6(V2-AlO zo9i8%>p(~b`jG2&SaD3;2>1LpW-4FW9>B-jcp)~NSY4|p$eW*DhFKS(iGNroox-^0 zsa;?k`383H{PhSN9Ugu>Pw3QqR5D zB)UHf;?vuZ*BhIv%s7V6uh>0FcG?GbxJr|SH>%yH6BT!p>1-O=r~uQ$&Gr-z6`C*& zZ|>FA)t}WBy&gXY#xsnDG%xa=D^YCxOQbRz*v>ihJuj<3<{K}0*;U_6zotk`zmHa( zD8*+Z7pcD}XV)u7sWf;Kqag{Cj1?TGloAK80Qij32u0-$ymYeWiAgs0C2n1ME^Ogb=mY(SsakvWFP6wHYz|b zH75byeg%#A(l#Ha@27o^2;%WqP>z;{(iqO}eb{9*vHSIFp)@<&D9rvSK)2nFZn$mF zZy_6G@dwrM>ccx!#s#d7kOK#N~7_`3YK*i^~v4HXv(y0^qse*f;1v=#oO+IO!fFf^s% zogD9V$t!^weH@m>m3}K(j-)UbRDqQn*d+-#oqz_Qg|R_+5I$b#HORoAQfowVxz1<#`|iimS~u=F1*UObHxYfzc?A}E&#dDZo* z72$1Sv%1p#0xIoz+B2q0#;X5XH7}oX?Tu0s(SX;YjOm0%KOx|5vX69T8`al$RN{4G z>{HnO88v=0?zySQa+ssDS)$358}n8DN!)wnq^AtYMi!VRybenGKOZ9L;+7qHOsU&m zObGOop#;AJP9^=AYOj}`#9~{~||0Ib5Iny7=p!zV%oC>;4`* zhP@p+Ak%#xNM29(C+Wl=)UQ8zYPma#!EhLGU%w3hAAt%~Z#}eh1uEi|g4pgQ?Mtyh zm9J~gQWdBquLM2^tJ9ZDu|NfPg-ceTVqOHYKxNz+i@!7rRGdF7QGqJWMYuo(vGZP< z1*$Jk6^<`eflBgXxa|cnegJ!vX_sb!%DVbZZ>b7Yl2=lo+IJe0<;w-CVQ{%X)fX-o zsNOU9`jQa&u=HOVo;S=vpRL?CnP8xZP^_z$WMhul!$h>8QW`6|xvDnZuu9mw0q1FY zvoBU}80;ldU%!~1HVITI8eR!|=YZ=%Np&aDoC;A?H;U^}+;(6sh&x~tB?g@Ckjcb= zYaMq`Sj(7x59PB|`$}q1Dn}yISK!~tAJZGLFLWLT?+(biP*UAVH0MIp*6({s9ZI&> z0zV#AIiD;Xsa3a{&|$hY>C2J01{EiY$(L@{GazdwebUBv0jMsNR(BH3sSrhVqqq(w z+xqdubR#yI88~f#;1if=a%oDL@*P)VBsC~?Js{K3;JZA^JGfHRrxNyV0M%@It2<{9 diff --git a/docs/html/img28.png b/docs/html/img28.png deleted file mode 100644 index b594d9fd4ea3d6f959808889b822973f0d5994e3..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 769 zcmV+c1OEJpP)KRWWN6K@|Qrx7ppf+-6TSMbcaQ$B z-uGtS%$qmw9ng?250=bYG&Zd@F?e_o1E={XNs(|N2gr_GvYvnM&hQul*+K;PF!ouS zeGA+1B$S~34X#Dh*Uxf8286xSe`PCKtX!a*EpkWI?+x95xd$|yB7?F2pzC~F&fS@ z_KS_u$_Ye?GL4<-1bgz*JM~A?g0w+-7#u46+-z50gTmzvNlr*1p&FC<5}UwgSH!E4 zZ}3cB>b(4bHn7OLA-9-YL`2Ez%bS7Zyv>d&r|7FKgepC`uCXMquW%)koiNUe+2_Yj z>tlL1UXCRlsn`91p-S&EagWXc^K*E{y7`S9GA?3HQK@gKf+T%TXk11rs;@vjDb~#Z z?(z5gUrtumuv=|&lf_PtD(sCCvEAx7`MAEorOn=8XM(G;!*(LJx4TVV)c;*{lWqk( zwriGQ1-Am{`PKyf5;mSVzO@J04wk45df$CGd=+L=p1mcndqgdl#0Tv&^&2hhOjldI++b|I7y$hkKDfYQP%kB{+a#)2dSEgfSa!j00000NkvXXu0mjfDAs3u diff --git a/docs/html/img29.png b/docs/html/img29.png deleted file mode 100644 index 79cf88911b5ca3a564e04c9e86b841862e251813..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 254 zcmeAS@N?(olHy`uVBq!ia0vp^Qb5ed!py+HxJ5CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR?eJY5_^IA$g%G&HgbE0`$T+sE`gbXL)4ZhlbG(r~OvlE=8Agu$FyS)1AKz{iQc zJxgUy2qc_I{d?%Zfny&U8;{O!Z0v4a+_0ZCGY?zo#|k{;y|a z`*zvg;hKiQhMa^C3Dw6ou$*AFn%bz!=)r8ru-Z}7>9S197oa;BJYD@<);T3K0RS<5 BUfKWv diff --git a/docs/html/img3.png b/docs/html/img3.png deleted file mode 100644 index 61ee834b5f1524034cb5e7da8d5808c76c084ae0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3855 zcmV+q5Ag7bP)pXJ)cT^KqNlGFqN=NrxeWlWacr+T1Mx)Vy9HN9%ePZ`u z`=y3&=K>Bx9Qc_7wflKnZU^P7g%E%b0NDf%*o=g=5~w#{;kV#Y*}m7QS8;Ex9T&zP z{2a7)ZqDuYkc0B6@0;>E0-Uc{ZaXrID?V~gSfje2Jupi1ET*}g_@%j!yi+nI)sQUKjrsxSrs z1z3Co0w@$!&Y1}&B3@+Cm4=!I^YYIBetRdEEjLuT{GsZ`+6b^jX8YqSTLJ-%(Ya(q)5_3&@WTbU1 zyiq3R-UT7~__}H#L{D4r`V`e;qQ4X8rL;1@Bu4Xmegv89BT2NF)ee!6$u`BgdGk1c zPTo)-J^90+tml37(m?v|O^T+k8$7?ce`tIk*lC2yM52lkVG|IZjT;-a2 zU>~{rc+Srh>bxD}4DO)me?|)BsH6G3FCPvZ2XLI`*Y@Ku1wo=oyCO)p`c~n(T$3P4 z&7t)6`=n@Aa4w~2niv8&9oPYk17&>}2Q%wK0RhU|%_TgN903xe zrL1O%e3`HHG8%dLnn^U$%S2D7$GxO@JN(sL@iiUpdWxgkT{Md*b-?&ZdwiftL``Nb zNVhIkD|GLP7gMy(ZkSy9qkB#Lv?PjsPcvclB||YJ39E}z#5#b60if^>t6*WyE!Fnu z(rJ2jjaQF)k+=k>jUIfQ;wR`)J}kljzHt6+V^sh*C;%*=;3zo2rj6=y86Fu?69h?5 z6O?2^j=3CjNy;9&PG{U)Q3}9TA};Pj0&t)NHh_ZyMdpXV<~aN(sHmTSMCXy*okW+0 zI$NAeB)aj?W8-!(oLVdzU?YUt`rVE2L#W@X{W$e@T`#E6f(y5Jv*KSDZd_Pc7eKrK zY;rZ-7HzmN8@PJ)TOqWcDa>Z{oxjZ5lejdx2O9YgXzrJcx)+JBseu5#i6?M_VzYo> z+w1{u*FZ>*S`w5~>c-rDii)y_@^I529B(J#TEqby0|&N9L*E!o%;8+qLJVGkwI;L0 z`2WN@E|B5R?%#>f73+P3pQ0_U;yYT;(Y^TXz0mEF%4xRuor}Hu<{z20aPYk8aXAD> zV_Dity(Aswske$s%c)1^sYfqKN7U4kOSvVX z$z)0mdh|5C@&P#aG{Ic1^5lfX2_)Bz!bLJYw~btK9iK?GT@!R_i&Ht6NSP;+Bv&Nm z>L~CG7s-m$Q6eQ*^^H{4#)TUf)&+oA1#Pt@R|OUew|KL8lPkw530nwlj1p!7q3o<7 zMI9y#-6*t1xu#(Q`C?ntBll{HW*>kn6gr{zl+?ChyjHRyq}MPi?E@6!3%D>@^plQV zC=7%bg`bGRezx%UHu$hHY8|ZmF@tY2ya~ipnPUR>Z0_8^rKhr0%?L);Vt5z7)rZnnKeYX);2owU=eZZJLWcs`l>6sUSQ=uY z#ajyh%gpmu#fSYAAS`I*Bb72%f?WB z>3lwe>3rSKD5B%;a<9$hZtR^a&sXTJzX%1TEL4b4ZK{o|5XjW#TCyFk&zl}46H+qQ znMGA`s1+9z#$l@qTp7evhv(;*RF; z7RHR$CXXGC+M!Ki=k&qKJ@^?OmZik)EuH(=-5{`N*k&1`9UO!L8(TP80SjLh#m4TB z&J5FAa{w+d0VWyV#Qx4248enmk!1*?1yE$xD61EU4z${@FdkkM+MvDH+EEL4IG*(# z4qL`P$hCckqSM9w$6=?;D>R>JJyV|DHw8d7oT;;FKWpy>-Su@`!*Wf|88xPq_2pdE zmnNw0V=93128Zo~W>^%!#uh3z7woBs|r`a~>eD*OOke7J=l3LpqdX(to}%BKL3|A-e`rlRRmN|Kt1M@=%Ck|`69 zOqX2B^r)7`xlECJb1s)!r;yRqqcUjT0uLhS1OTb$C&z;CyRsh}%#KTgl^6#gX!`juv=c8Djj2mrvbP?PE%0DJ?ZP)rKz!}t)tmyZ^J^5Mh? z+IrWY$3Q$}i7+4Kg*Yz4|JlBmSieDJVj>Q7a}6N;Gaw-H+o`uv-)lHcrIC=igv<#U zEw}HAICDMTxywXtkUT`Kc8i+B72i%ZwcRaug`0f<$Z-u)*6Thxp>Hywf zcN)&Cr5|hrpw%&ByTWe^AX~qSMfDE5Dn1rNT-0*~S15RrJo@99eA*aqUB+E|q@I@V z%t<2ex$5YGYdm;TjdY*6J$LlD1#9r1{*e$z1KAi`(ch@@FSKX-A_d0w!4-hbJ983zt@21#n z78`8*jrjL0x60`Pa& zofN_V*hUx_gSErNk0E^HR*T|UR^Z_J!|F%S=hF<}N<6v8c!c8LEy^rBhJ zGU*mLj4&hyF?@NFB=w3U5=xKEM{;XRm0ac|<#-pNTjp0W=r&#g4BHydx3+&6g_pm^ zbKvE#F$k>5XH9>x(Hc+Cm)zXm#KJT1007%l1Wt?~G#gl_fMc_EOTK5}Ve6J5Ao3O9 zQtW&;uHp%Ju*Sv)HZxgKe*7sCiw$CITCTibbKG;_#ltYT)$QaNc(~Q=of(Ax3-y91NT_n=i_^ z)1@2^zCG71>TRaqu4+Sp2ATN)vs!jWIev z=vg{J5Y7a!fu04$>OBpM)q5I3{Xx$baZ*5pWmuJF;>V%-gPtw+aZTd-M*Yynia04C zaB}%+!gJSmdHPz6Gn9%LFGp-t% z=af?Clu~-s9%W8$!^rKHaT&Icd%%OtNgnf{NhZ+VdPm&T%;)Kzhbjg^5>*IDrrs#= zj@qYzhigrju5+!I*J9NY9P^M&S9&hFy~ALgCu5nH=RuOO%=aaIuw`yvTF%YY!P=uG_h@Xuc_qYV#7zDQeFq@jJ0{PlaG zDsxil4b>WL#)CUb%9}BZRTyjpe7G5mRf~m_wQcX~2#U9~s(I0EKcc_ddc_y1E=lhu zTkoTK>Q%z15A2xi)5bAHJNePvW4BaqWVs0pWna{{vddeX@|3 R?tlOQ002ovPDHLkV1l%$aU1{u diff --git a/docs/html/img30.png b/docs/html/img30.png deleted file mode 100644 index f9bd0a35c9d50aa25673fac2c48bd5d9f5b1ec8f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 618 zcmV-w0+s!VP)KRliFdK^T4B?#%7nuUVA1AQopOhlK|ct->uBh&E!1 zn07(IXrb2~ip4b+SGhqj1QNVdn$ADrnvixYtK<*RY6CfuH0w9(otis6^;QJI*X;N4 z-kbS$=9?Ly4e^aKunGG-^V3gY z`W-6285^DHc(>y|118zj~l9e?^t&bnp!w^#gi?4`~&Hk%TtnFCikXu9OEyTVn zb3;OAW*S-l8}$`)R0xNuhot9ypg^IVMFHE0J1HM4{o%}^Bv9r$GKYK?Kk=EX5a1Z%40000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*KqDe$SR9J=WSIuh_NfiIhbWe5HB%K;p*hmm|#Dky*2Sj%-G7T#z zf)K%tmjwqBKQBAW!iGo=Z4j62snnSGks%Wgdd+{ZbCJF2oP@w0B8aeiYK53lg!aAe zo=i^?i4KE-B@e3ly{h->SN-a}*VVu#WQ|iN;0eHimeHV3tq$0m8E-)5GWX8qB2chb z7w|h+X(Mu?M=zkEi1~%K4&sLAN|0@njA-Vgf(i zeyO!V3_P0mpA>P16%GuoXnGuauv9Cs>}r~=nitZu>lar^Alc&0uD{0Dr|A4F?!2}M zKIHYWSxxZ0(WAzlfp#|$ky~Air23=~ZmtK&1VI49kYbkNN;1G-#4Ln%su9o$)*YFV zp;vv5J>f84s=H`~R*71gMS;ADbgqTVL#2AjBHZquOFGx}CAX>DRQI@#s+XPU;~4k6 zPg+WFEr`1?G!a!cC!STGG>xr7G9@b`st{3jxZ1!-`Jap-j@xn&Ssr^UrR`)K3i26U zsLjE^~nC1D5!t!*q+DJ6Qclt}0g0xDn1NC%X08hS|tQLd1wdJ{nQVM&)H zdU#8;;lgR}m>A9s2AElcx5JlW3cRho6L7SH3AE~mmsneoDLTI3TMq|_< zmpWz{f*dvq_#kVX(IDUD_HJr{%c8}|gWNEN~gKHPMQDln?~3PsnvMTi!o z;yg_(L;@R363*nBcO4g`)mxUjG)D4H)a^>FWNV~HcaLUss)nM+?4Q3LydIk6W7PNm z%Ku&;p8BD2|Ju)ZS_$ut67w{(Yb8fQXmEwZqiay_dZhIMMuR@9_Tz6FuBgUJMh72` zwqRY19{b9W&CqsY)E31-n;wmo<~|!swf;#e$t5dI##@&;389`;`hq{j$u0R6yRsFa ed~(~=5q$(~73u=sM)Ift0000{0tWY4ovvK%OG$8T|ag(o#VU20?q=CE1OzlN1TZkL z@})5pObd9%U;uPsO%*@G2leCa8pIh%7_c2-52&5v@U?*X1Bl7cz&s%gD4gxUCBX2O zVJ1T=gvsCyR-Mf7m61b%WeY=C8i>ihK$BqtNIZq%0xtuD0|OhF$#8`sfq?-4bU-ZI TW?Mn^00000NkvXXu0mjfIM#Mk diff --git a/docs/html/img33.png b/docs/html/img33.png deleted file mode 100644 index dd77d1036f3e2791a6e48b46d7c388711c2df255..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4351 zcmVm0C|~8bDS1 z#^IwtV%R8z)>0x52tEoyXe? z@x(D1ZIYP-u|7+)corqNkav}e$3KdU`{2I-_Ey*Z*|u61#NLL2nMUzCo{+*ML#f6k zFVf~l)A_vo{alX8w;6xeD^{}gH`X3C4IjDdMEx)q*& zm^8<=&>YV~GaYs#t_r|&z~VLsR0AJg8yC&oie>x7vU8g|e{Z4pQHEKQAbz{E{(>SyReZo?v%JM;CaA)Eh$tdMZ70%otyHz&#Op0}}>hYeX&hVO+*8P9xO3nWw7_dbj;PeBJ|VhC&c7y5W(C z-(j0SLzDeQ6HkB{JZpl2e>{?AMTOU)<|$a@HTjC2W9CBUJZ6iX&AlC%ucfe4=Px|jb!iy1g?FTJyyh*#8bFiRO9ja zrw&$asN~D#g+>Wrq4j(jom7D{g1MIl)ift#4B+d1%xM9P_Ci7XQs3!F+ug~>uWr;M zl)_D3Vw5=>PN9KKAD7zT4PwvCAV*y`{Tu>;T+R$sGkDLop&8sFvBNErr5dIpHi6s4 zsAvuKx`3O?R2DwCIS0-VlL0d`v*a}eJTD6tY~s}=z=v`cJn7+=k=T)KDZMgE&4L+R z1xg76osv8A!-gDcMmEx1s!-f9z(o{!Q;wu!cylX`r-+Gd7WkhM;Mpc@%8$;({W!2Fl2nwT3#bb2S&LaSdpw z5;Db_En4a(H0{uWnm7qtn|lypIrDCJxsJ5<$ik0H^MzO8C39!%;NB16vwj%etA6HQ{-sV^F5`Q7%V}zZU+Zl)QaIZ9v9eqo$u`9R5eT?eYXNSG=37e9Nq;UIA-Lwcu_APR$ z)YsC&PcA<1_39<0berPlgwWnoky%nqv{Mxm#r)=gVxzBP1H``~%xWM`LB*7QK@f%` z@?=Auq11t2DI&{Sm~u_!THdjSYtkpkiScucZmgmA3hL?(qGj4zfhcEwBB z0!>W;vP}UP8@K!HsqqX5nA`4?k7pX?4n{`TmG~@^v1M(sEHN7yg&~m@6W(&Uv8H3F zE08I+_)Be6{4$1VmS6M)MzgAFSz$Pi6uYWL(bj~DiQoZ!fZQ@GpFz7`4)nKDVaTBO^egwx@TQ+I^*J|!-r3b?GH2CMoA|rTb7%K zv(+E+pze7Lqr+F>btz6qiqBR%Rovwr*vi}>Fc=|x-$Hp9yC;Bb@hE@@DBB3$>#oG- zJv6d=bii(um~9THz|w$D2M|7>=jIsZyT_0zwzz?}zuX!AGXaV%H3bLCR-V?6O2&o_ ztQcCPxX>&^#qcnI;PX>-?te-jkfa#d=73J{gko;ofnlkMiZ>yXf(;v7QoL|2PIXbQ zc>yKimVF6kap0BtL;%_8&H77Ml;%s{wYC}Ob}gK`!8o_0eG;9dee%EO@D7pP9uV7B zS(?M!0*>=wai(=4z=^bdczU5o*Na^>yl)&Nc@?-2Onp-<*ze&DrtdV0lQNJj$iBqY zuw%d4^VS%b>`xwx=|G_WS~6LdM0jI53@Z8n=!1hkc5XuGBRQlk2l}`@%@O5|387EJ zO;b!X4*Iy=j!EdVXHw`xgI^Z(anqrX9ZUv&@HAN_^l?+6PtKkY`qbrep^uvmea=h> zeQ=jvhCV-Uv>0B8BD4}wb?Be9GWu9}1ifVP9QPn4B1ey6zgz4(l`QU=Gbp9eT9(e@ zSK+ZxF~gnLQA4M?IK75(4xZXCd52;BH5vM?0jx9NvvRAvvqeL4QDcrU-tsQU4ULR5S`6S+L)uyqntr_Xr54NE)$Ix}j&H-%?CQ8MMK~ZR(8h z*M}#Z;7l|hW)}`Re?5AV@=^52JU2Lk^P%GW=LV|!xWwR;46_Km2yBva`|weT2`zp; zD%c5z(u8iYm{J!jUL36IYe;bdv}oNSaRWU3iE9A9yiLMwokJK7-DrUJK&XEB6Hn@1 z;`J-_eBHZlXU%%)Nf5iP2JyK^XYP5(=W^zw>Q^Pp(xtA&x9#|_inW<9PJ3Lt^yAnG zaLvwMH!VT@^0VOV3EPpZs}DTJ=DqXiZtV37PXcS|vzWNJnk?1^;qXEti?%ooW+}8` z2F~unpl{2_Vlm(Z*ziTX-aUgndB3dSECwXxdyugZzM?hJ@Vi4KF0Lkv*`Q~-vq2W+YXCnz zfrJ0@qfMCkQ`&bp8u7vjbTVTAlZhWJeVcoUou@wr^YioY^!y2Qn{9C8t|t$OzmwlO zv}QAxGhcvz*~hZDqy^e9ql|kWefrm8ZPsG#vcj{*e;Dz7IuD z`w%h~=3kZ6h|D<5rCq=1u_mqx>03BNg~N zrS!?tR88;IrT!nVBpLSrTse+^3=LYOX`lX@=)f~O-pKZS7cri3bmy7zeMZs>9^pUl z^fmppA~W)}OJTlcg}H`VgnQ3cU#SlFdYBx6MEh6^3~3AkDYnAGTQT}dQ9KlZ#9S!= zW{5>?fCrl5JHWp$8$t;!X+QN$%3{(2Ls~xOdh=p1SBk}GQJ#JyAWklUc@hr6pTmO@ z?!Xf-K96UJ^m%+2A_wY)1r21jSarA~C@P~_3E-@slX%*5`DTA#D2q!hkZB4&tzvCu zRnhg=!^wmN;%>N`hkUc=w4?f*x}O`(yWrmtTzG|06It9HB5`pw71$seUMPYr`bI%d zl6|D}KIDJv?hq$sXdJ1StE8wG7pUgyybCXMI)Qb~c@-fLE(85!LW7+bB7sCUamL!7 zizMGW+k?3x1cL21MD^L~L)?fG3`vczX-$J`tOr2giwvUSMWS&$#edQk5dvJ%>yaQYozEAaa?hV8^SjrWdtsGtG) z+mK38wH|7uBh4bFLg@7=x5=Mw?yE3gJhs+L7tUpUX6cmX*&LU~0k#H}#81KRNZU8XP#koS!m(7)LqnO<6XIs)&8DVLE?6D9v0ws0OV&7v@Qx2TktoY?m<}>TbZp0vOlNoyx(U~um{or z{LhjogA%4(y420?gs^uoy%OhhNI?8=kHVknaCRsD7e-D1rdH9D1UgQ~t4WhEBpI`s tG?3jHq~3f^FAdG^3^GylUd?38{{lYpOjRyEGHL(-002ovPDHLkV1gAWUAq7P diff --git a/docs/html/img34.png b/docs/html/img34.png deleted file mode 100644 index 8fdb928396ffe57f3505bf9fbb65c91e524f9605..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 808 zcmV+@1K0eCP)fb&D0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*Jrb$FWR7i>KRy~LlQ4s!;>~8X6_BP@Vc1EnU$rd6ua$DKh1gr$% z)}JPo2?rjc;06TI#z7Cy2zqN{saIL*wl=z;jbNdTsMYGBL`34em)-nbylfE!#V=%c z-^@4j=1pcM3rs}AvVCy?-CVpb1JPvWFql>UNG16g@|R#vw?Po!g?y9?=acKm-PWI! z1l$5S!)z~w$5bF|@CfkY<}=4CK%LXYLAY{JDWE8n%tD?@q!vjK=7e}M$O&A#bLA7Epd!I#lV>VDM+ym!W()FicZs zZhV&*PMVYGKhv=OQRFw37UFw|25n@8sy7=X;&mW@DEMQnpyx~zcSLM_k9wH1ewbC5ww^ zxq)JZY>S(WHG(5F_**e#A%y*?8K!{>2jQ|NiQbB9Qz46iRQ6l{j3dw|CT|?sG}8#$ ztyIqbqD)H5^m0>#yj&oA)rVB}$L zU|<4^a}+fs;ILO6i}(T@?i>XefC(w@Di97aW+deXIF)nZP|kLQJ%C{e+C2%?L8*nNJG%B!J+^F diff --git a/docs/html/img36.png b/docs/html/img36.png deleted file mode 100644 index 87fedc7bc9449d2614a9594c4cc6cbd86cc43a95..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 873 zcmV-v1D5=WP)KRy}OfKotILCw4BxwIwJO6P=(;y-F-hm#)cHs78N99-kpD9lF~A?o%)pA zoxgkE`+RrL&jz+L*G0`(1}0oPLu`kE1KPH<5hud4For;LStvxdF_B+x%gc-vBc5M( zE4Oi14uciJLkaOVm{DU}N7x7J+J@=_IJ7e0+WE!#(2*0O)=H=J1IjCa8u z@ykM>K#0SDHR6PmkLnIxX7M5%ciZ!0;0ByrDbyN9s6Ys#|K9T3BZ(U7ITWRx0@L{e z+Z9XC-Bnwg?<+&A0Qo;T0Z>Uf4vHF~KsnD^EOcZ2*i2TNIL4x@(>T|p*ab%uPwzZ2 z6(~7=$i4_JGYVH^%5f@NM>_~8w`6uXn@LPMLTgl+0x5mqe|3HTQ?wz4n z1~`#w?cAx%v3v6ec3^vBdbx7Wsy3wmX#Y#Q4=6nK|E#=5$*+@kjGiFg3!6SK5@@sr zJ&o;kikCv!ubuU$%Q}uIbg+eI&No*rA4}SsADjuRv+7*NSwbsONyqB&hq&o6ide&$ zYJkUSSgTJbX=3(;x6v}XB~PV8>%8IBUEF`?4aJ8%48=^C@~dL_K_V?%&rl5WeF8>| z$_imWQ=K)bl5CDAzq9pxlfOkwl|3cjp~BR}hIT8cduw>EVGb9)>U2O3-^=?pr&t$E zj(fVGcndw9@_On=TD8&2TU?qhdFDE}P6zp!`oQ*RRLM%PUDlB&T_N}cY|o@2-&%*5 zMDt*lJqw*3tegk6v{ZKnj(q^=dG3&JyKR2}9`?^;XTOZ;00000NkvXXu0mjfPO6WD diff --git a/docs/html/img37.png b/docs/html/img37.png deleted file mode 100644 index 34780cb0a532cba692d7503f019fbd666fd05cbb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 326 zcmV-M0lEH(P)^G0_hcnoNgtHyE1Q=@e zI550r*uubffpY>|07y8Q;VWZa0+$270jGjM6N9${YZ};dDGV1Fu7ONrxB_IcFfaf` Y0a8*f;uBPH9smFU07*qoM6N<$g0Q`H%m4rY diff --git a/docs/html/img38.png b/docs/html/img38.png deleted file mode 100644 index 9ed3c9281e9cd097b784f5f82681a00604e39274..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4251 zcmV;M5M=L(P)7Z$sZ0z_7lHr>6*+Id^7ucJ|ZuLY&A)+BbLZx#ygF?#H>mdv+hdP%`yH z+=73UfK$txBtR2C9)4s6U}+xYaPg4J&R+amh1{cR_BP1ffeJmW$koB=NT^}aCH;^| z3OUIaR}E1ubT_XINFHv0O+f&MK`75x;1hq1^^c+FK)GOmRZ=3?Yj^;S_P3=UW}?by zlFkCWI{*(naU3;xV0(&u`m3>hGwy)@!Er9XUnw~Q;)$Aq#aezN56JphX{2&o@nHZ^7R4}4>g>Fq;!A5)% zGohlZ)+`GEyBkCrTHw22aS>Nm4gdI>73igwR0YtpLY$;+N88TorV@M0WE#bclp7o{ z=7`bC6-zj3v$96*Me~vxbr5Euj%(b24LHdL@=cYmk6S$xP^q*(kSzzCCGM0c?QH{m zT&nAe`113Ibfb?`2P_)3zXyj*s{8!3?FN1_1G=L}sL*p)FfU75`+;674F8JD;)cF zj~Tc&6qf#i*vg=-=D{-62&)OpZ?cF>8vWP<*WwWl*g%WNI$%zaPj)5f4IyVsN`@2M z^|?%LHlpt6SyWLI-P(b@e`Ck~mzSQ0JUYF4@UH<*l)x<4)IY;9fVo=bae&`}mord7 z;TciZK_lMBdp#)RFNYlZzqd)+H$aIQKjQ(zZB@tT_raU>M5%XHWV(RQp5p=f-^T^+ ziOBC8FiE~f)PSGFWo+WsLd&=Ca5VuIC0uvkCn)&XtE2;ClHmiY_!IW|&uFkeW#S32 zD234m_-Uj~hbu5nK1+|zw>hYO!O61lGc0^HEuP0O=EzF8VP)*i> zqv&8gz*#nUs-49}Y_R6oB8yuL-axL`wuNCpwJK5e8p&D>Q<0d!?P8R)g=$s6RYfWb z#3Wf4l|a2^kVcvoY^I>5w(#r{;6puaU;6kk5aY_|i}ukOnZFybT=-Yfw&r2|BJ(Sa)1=OU8HvrFgry)~qoXLfE{06{*3^4zV5=0F zXM}|9@lD2C_RogZgrL&PHinq8X818`g}Gx^7#ebD6&_MXmF9doxx(zH3~KpK`-4Zbl1@T&F~_|i!jO^eZx1o0`&?-tbZy5#qaSfJ&pY8n{s+(>xEsCZ{j{qSX{ zZ_ak$p7m|TyaYOkg?avOluoCJ$iwNZ7R1I!@dga5uvz|=oOxY7PYv=Nd1obGcRKo5 zD^sRGPP!@5L?Gbu&@wKFykX)r@Ekd-tfg_k;Y2Sq>{g;g#UQk({UvhjJ}MU|lzW_dmA zuIbdNs73sqx+X;NJ#CmMmN)wh8*znxtAY3rv!!ZEkYR!w44I%R>%kgrSvJ<&LDRK-ZOo*l?{9FIHf@pY$>o<)n}6^s|~kbq;drq1~$tK z_;_{lQCcxl#anDM&^okw z)-tio@Y0Z6Om#@?Tu}`R`4@ahQaBlXXQt{Yf9Ik!KSdJ(i(gwR!=BU#R0p);TL3qE zCB>ltk%>1d9eFmtHFX8CM9l6vtPKZxGA{!o7e!`|!}G`h(jU2c14teYoXB1R`(a60 zU^(6GWM3h-HjdSC`CeSv4-dfBM)g2;emh>yGF~Gf!_K={Y%`W~74|GU568u`dHNggin#>Wrq3Qs|@HvkFl92>ijhUUFqtA17*XeS*DUPOE-S+)iOag$X%2J zGf?;v8U9m!K$2k;qddqpNyE&%AHz}|4R0wKzJk58b7UBsc^OB~c@B@cyo7y-^#MvN zi8(sd*d^C5Dy-z5fqi&0*d^^t^NZi8LNn7m^1sV?Z;gg(0_g+A2zX+j^T zH5v55(`2g9C+kcIeK_$pP3W^WA@sprdI9?Us!=h#4nYd;l!t!PmC?t-IXL^Rtrm{S*%WKev4FT>*Z?uI8s87T2*>e(wvm5G>G-9W8L(e#Pbq16{A57e)?uhkz z*Q5iyA$*!$IOu+B^dQ+$^vFEc--A=3Vf&`Os+5#?u1|QFN4Sc>AuZPr@0FO)V<(6T z34y|d%VKpvU2J%@zbeHTAdVhgdO&P~yMF%z0H3>8!gZYkxI4Y5gHB(lwr{$45zM8N zN<4e99xv-X`yXK0_1DYHIqu~T!tsssJKy;cWZ#Zs{$BOFGU4%c_rFWU*356r`&>)n zA>o{%yae&vkAk}^0QmE$o=g!F@AwFoSHXQ6?4YOy%`t1k0(A)fPP+u5N3UE9 zk;in#K7n0|J^6Bkk00}EGU;(! zd#tVP2y0n9;jtHb{AGX}BUi{2adPN!8JXtOa6@3Marg7o#kt61t!xd6W_(XL>;pB-Ai-WhJhXt#oq-l z_4E3o!7hM{2WrujijL(W&0kK+nFMEA7g4fP4Ni- zRi`iM$5ckdK9@PZX3A2-Ji>kKs4tXmqfkgXQD-3B20?9YR!jEJ0HNfyt1QJUP zKp;arY65(|F1`=^`?4XFwDRK6Rytu$q!osA_L%F%bHrTekxgF$izDk`9)Sb!xAa44 zjXUtfi_halBHhd5z9VxrONniuflO9?M$29SM}RquKyHRx7=7T`16K!oLWN9o@G%uz zE2@&NC-JTaD1S3|`D)*7M)hQhnC3S4PwEMF�GL?6E^#T#6lKZCIcV!40i^G{of5 z*K&H0oI{;A!TzJ0L(G+-ehkE1a1ieNL4YE9re?}_YT4VC5awvkTo-|m*RVTMNaT=Y zZ0)f~F^hLSjt~g)H%0Yiia4mjkh&+<2Tl#dT&#@>*df^6=|sVVJj(x@_83QfGcNP% zHLkWk)RBX5HJn0wjxrmfNdS<#;cHp33`dpbmYVHIJp=>}N3Ls!h>Wq@U=k~wZG5uRs)9`QHWkd?6JhK*g_Q1rHs`Bbk> zgPe;^`Gc}$@ z-S{uiuQyTF=NAu6IqUO_hvKU9GV7CV(7(1!G3%ohhIC$Lec&^#>1KUcA=7!9^`SF< zs#zaa$b)u%W_>j$6=pr&&U@>vusKYU^mv@k?)2qztjJSV;B|Cz2UdlOJ@~e-TTs@8(=Q=pCy&uj z>t+HBbjl7&FTI6C8I&kV(xr5Er$3()=Y~i@{J%%x&vZDu6aR;i+X{7cg}A!oV002ovPDHLkV1jUfC5!+7 diff --git a/docs/html/img39.png b/docs/html/img39.png deleted file mode 100644 index 65c6b5047393e24a356d22ebb6bf64ebff63d165..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 536 zcmV+z0_XjSP)_0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*ImPtfGR5*>@R69$)a2e^O_nY$?Wj)q2?50p4t8=iAh<{& zf{TL~7ae=S$*BGAueKF;<wf3lFXsjr6nX=P3yN)QXpe43l(I;Bw5~4_xA24>{;Rb85nD+unY>MNs$RXIe{f=8ETQ$=7 z*^)l!OT5KpU)3+-94xoYREIxJ#QzY3_+w)+wOl@RY!9pC-l02Mua!mGSp9q!b)`1H zs6RSqj^2YX-9_|ay*XeqUkQhc0!?gTGdubM>?JXb`yMWUg$S0cuhDap>y+bf434sf z^eU&%xWW!_*#!4x?sW*?2$vxa9@6^sfzofK>e2l@xr?jW-G}FSq;*yIC+>?*PSTA0 a%pjkkbYDf+AhAIJ0000FVdQ&MBb@03sKR=aN0KomXRhwZU;u?rFrB$QMXG`OIl!V-vw(ribG zQKTRQNEQV`ND)gYcr+PAkx(TCEmHn~Eg~8kxBCNhkqiwcb^UpWPN}oA0OJ-5fCx3VTw3oBJJ`~)K`nFz?I;BeCruz7z&iA@m}=f)^z9? zqM63b1B4Z5VLH8chxR!`JI^`KI2)x+NyaIId}W_Rf-b?h24foOjo(NpL2Ny|Ha4jm zq}1-0k&-qYeOZAUc!M2ajni;Wi8zJf%|=~Av}Sdh{Xq?ubIi9sE7}hZU4Jd;8gE4|Cn;W@xo%C=fFr)`I!TKoJG>Ai8 zh-?JaeTG7*wRPo0W@!W6bHv~3z?j5AQC=}oUsi!C>)-%$>7yGyjs(2uJSp-8T03rN zZ5V-^VffnKf+T{AtL+%?v^*ILlrK2LE&ndA(TjPIxefa(y|B*rEg`w4g;VtG^6jT* zbSA~4JOdM2n}qEu)aU2Z&v!28`^Aj5i7BMr!zUbIx^s-&wtwKW9l|@CK&XNKG?#7} zm`AHmgcl7-9j?}a%o&k-8S_zlF{XtXXY#w!im9aEMfGM}*V}0Z;_bc(CUhgZv0LHf zK%`F5;-V2xVpitzb=)0G5;GZGeP0hTA(uvy0V_D1`G4&Xf!@P=X+60k00000NkvXX Hu0mjfEfbT} diff --git a/docs/html/img41.png b/docs/html/img41.png deleted file mode 100644 index 61ae82f89f5038bba4c08a2edbe62c433be399f7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 576 zcmV-G0>AxT0{{R4T)viF0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*IzDYzuR5*>@Q@u;WP!RvcwrLVglPV~<=&A_qpy(nviQ-@;9Sw-+ zW<-~6Z7B#&ad2?ZRtH@Rf=d^{f8hNA4(?J&QN%%r_g-2}Ypl@0!5_R!?(W^kyAPlP z&I}M!Z9v2~;Cg6fUl*VM+CcrvoU0lLSqvcm#7T;u5~^(HJ@u^Xl{g+(Mlyr(~t(1Mz`mY;wxUb z+Gp@Cu+NF1naMk>(Hr;#Nb5cakD+EI@?a;L@nmdpYN5`EU<(6|>e`Yi259puzsWSG zL#EdAqu diff --git a/docs/html/img42.png b/docs/html/img42.png deleted file mode 100644 index 93aeb8984cd8fda8611f28e90f48694edfa26a53..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 594 zcmV-Y0T0{{R4QK04;0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*I&`Cr=R5*?0RKH6jQ4s$2HredkxY<=f!75y*93;hwHbN>dRmHOVi@-5I*F+4^$`No!6=-nV%uC82Hde*9RBjPZp zDJHWCbOK|2zeX^G9Q~}z2MZG6J{Fi9%gvl(iq654piM^%t|E#WrSQ^?iu7kQ%Us5l zB*IU0_#*H$H=d*)FA@hjnY){p5?YZ4%X00Z(4u_%c!d67U)GOfXZ|@%C#QMX^-xmg g`tQPOa$i2i6B)H`F;084yZ`_I07*qoM6N<$f{2$39smFU diff --git a/docs/html/img43.png b/docs/html/img43.png deleted file mode 100644 index ddbcb3582a72704300bf9e8c42680ef01db0f0a4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 338 zcmeAS@N?(olHy`uVBq!ia0vp^+Ca?5!py+HXe@f-0gz)5;1lBd|NsA)GiRozraC)2 zzkByiQBm>CnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR>%c)B=-NK8#mU|=d^_KXM19wsL|_@TF8qeEd7BlCo_3JLog>Kz%SnFDyG z54SS3H82ZH{FIc~QNhh3!NM1D=U&fUpPU4{+s-UBAhIz_ovP{d7!+JvBOe*1FL}nN0Y0i$Pa!K6Glm2o_l<2GC4i}*Eh9PHrgdH iXt5=Uv9+;u@G|uO*Vp@;{oxtVZw#KUelF{r5}E)F=y!_% diff --git a/docs/html/img44.png b/docs/html/img44.png deleted file mode 100644 index 5ef68fbc33622ec3921207a8b9b9ec6ede457f27..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4294 zcmV;%5IOIOP)%;YA_@QJBYE8Sazhu?HtL0qGbEb zhdAtmL6D12ibaD#7u&HJ<@j2iEQSvez=^i738y8TcdWC;UF`T)vV#(>4i6%d#UEcI zVeAtj407ZMTPF&35AR~UoA+K-_jLEn?2Pxu#|7Qf&31LYdS6wqUcGuV2QU?pLrS(nhnW`+1eCQjtU zUnYh{u`==91c@&TEo_um#ZGf&~}gB3n4Cwko#9^Pvr)T0Q8?zyW8Tl@is%5PU|0 z+Fr(&pWUwq{Us@oqgne$a7d)O%S+2{<0msf9X(UQj)BtM)Vmze8UlGsb|tI`QF8vJ z`jZksS9N}nhXrtoj^BAWz2t*njIF!@xT$AhAvJ*Jvl0%8)RBOp!4Q>h$DJ!+U1$XQ zhC;;O5?Wcb)m&Jh9+B(7!mpU5LL9xw0^@!@3kU+!roY9wDt%M#iwP)F6< zEKTj=DjcFmJ8A9P{03U;ljz7DSgOgHO~0DK6JWuT74Q=+DW zMi5dSaG_MZ5DGvOmQf%tfGQ(?!V`wus)f(*g1f~P)ud<1bOWD>;{p2L9hd-k=?SYz zvNeP@{3vSUkV?}?-o?|^0hp7p{jN`9@X6gWOAg@&V0nNn{(^1(1Wop*Y&-$xq_DaG zFNfUB$!5LvG(B*_rcjeFI9Vosiis~HM>-DE*v4Ii#LtB$D?Ly2C)~HKz90(crQT0| z!i1Rzgo{($TsTlH_7OzzBomje`*U_a$05^dbnK`Wos!^)4dTIP#4NJD@6mfoha9!~ z^D=JGyDJ{LbDP|@D}URvHfhlK;W>bNQxn)HQ{2EK3VMQ65=nDY$w#klIKpsYR78So zvJSik-FC}I9W8xS&CTI}WhXDPxW(X2#J-smKNdc2`V7)uE}5%kD&}ay_ zw9G2{;AShx1X_Vb9BEl_n1ZI-5k|QV^67fg!-o|M!paiGGHpT+u?p7<6GV4vm0}lB zIFLojNJf%NRfRk)a9xzl=P8Caw_5R#35QNjC1@CqYwyUA#qnq_AnvY*%+o$Uxn70d z-~-F8zn-=4N2!9Q%Rx8nJUQrsA+eFz*+ebQHz?V#uOjoq7)jj!J<& zU?qk_e)N#hlD*BKI^frnXe%x1Z%X{gP4QzR537vuFcjpF7amnsgVuZ@?qT^SEgJb= z#6})g(|%ZDhKk6DAosYIK#@eUpiGlIOrnQI&Yv#8;?B*Q0&AG)}GrKZwyUadtcr|+- z9E5qrCk)E|JTCmEqA*=6E;N$SA&QnAkTW4;SE56a12)MCKL$F#C}Flir$$?!s<69+ zuZ7J>j>CX$Qc1qnV(n;(#W;7Mjevx-MvfX0Z~QS)aX}Jqze(Nura*St&?SB;rI2m> zWFv3vWtD~tqud0#$2WB^7O4723Z8WMXi|HCrm}>+qSd^Ho)5Ro(T|o)o$77P$-lSuV7AIbFbMqt$hq;9u z=5#=L%@q2nvmWgA`C#tNfGey9`Z-Klh;?16VL7ycB$TzqvczO$!_>MKO!=0}$hwZ9 zuHa~CY{X$M{0RnPp6a3}zz%Avoik~HfsT|OMcXODhJtUQ4g3g|K@{vLF)4n}BDE33RUALQM)0Q;jghHi*AjcGt{*u51tzONSXK;K z@il21(1yz;e3?*optoq;nOYFvoDI_`KIg^dhKtb`C{?2Uuji!kDcDq?eb+z@52WM_ zG}1$yK;Hs**o!G71&BMJ`uzrsDEZwP671k6g(B zQtX{{ImpG1xco)(>h|j`bl-F92gO#or@l0EHu!jf!!yz+!Or`cY#X)_3+N6K2CPb)JJkin_TLXx5i9;n(iRM1e;8K_KlnRkn)pEeVkyt z)Q7G&lT3ZG&X}nWUQs8T`Yex``rs}-lluIBgR;2}K{DMDRKFb>s%pH$^FGMUf0-zH ziydDpQ%*FHJ|1+jui>J6Zxb?$x57O}aFp&W&E)?$JG0xzQ`E=V*e1(z>J9l@Bq!5$ z_tbMUn8EPPqexSfAGcPPfTj(;G8TvFPL{TQSjH5v;G--5)J#gFX+hb+3??jsx|^&< zG{No(HtCLK1ZMV9+z3#kJVqz=%-USjI?j`@1%Qd~@Uaaz0EaGGFP};B6x~e{Ek^ib_1wM?B1; zNAcqjmn(;BB}Q6&iRW~I{857wBPfkoQC}L+7YSbK?@A#CkfTNKJ1j1S+dleXfY073 zVf*@Fyb8IYf=*u%HGl27b70TErNqiNoj;NU$(E3Um`4$<%7#tnOX3~glbr*Y1I zSN(yES-k!3_p3;n{k0j7dsp6woB-GC#MT*%UBCY@RQ4HsD2mKGcE=+)>Z}LR*x3)H zEhZ|>4J{^BA@{_CA(AY*zS3lpLIo2^NE1oh3ps7k?Qk^G*`-8enpHj<;IG1d5=BV7<72YC1eGIr zIF{9*HD+$uAXVWXv`JtrdhrSfEv7T}F;pqCxL^hz*n*%8yULLaIBg{PI9pt}`#w#( z6k5DwEIy0QSc*QTM4I)7Dqr9vCwGofMif&=`2h6u;AM%`i ztG;;P_1}Zi;^IPK@hM5P;@k48hsC$|12@jz1^>Oc=yDMz^Vjf${hFckB(k{ijxYUT zBrUgf6<~33(Y|Qqu@)l#*(Y`IpYt;%{%AjXtI`TEi|3w1^=3E_l8l*B1@;0h~LKi-uHmtPL3!LHY+Q@%|B_#(@DA zG3?im@xJA_dU->%Gr`<_gs9PQ(%;*>d*F-uF_9U`pUfIxK4Ge17U4d2)E8>Qy&lHN zKs1YRAL};*BQlU;+cbU{WnTjX56wU#ssS0u5Q{nhpKFQl0{^~j2*jm4KX8O*QBJ%W z*nH0Q{7L3qXi=UjNaFYk*vH{8{5}0pTIU^j;zj529D&yIgy+aYGpEFLpc9#_x>?hn z@UuRwz1*UPco7CWTkd}Jtd!v?7eR|Umzipioc7xW}KN7sJ^`9Irfa;^;NF)-(X@4=pb z^N~ca)KqPcrtQl>m<8or@Oa3Oz#+;=+E+rxH_j(=t}p{Z{Ka8Ei6RVgu%y-`_u;n( z=3LB;8mKBfzP=s?6SAoIpW0%a^=;_pSL(bv_mOouD6fXMQJ$mhw&+j-NNRY7Hf^zH z@oBQr{=Ru5f%d2L8f$4;r7u-t0bZjSTuoVgl~=hAOh1X@HU1y?p@*7aw)sn_uE#B2 z)fQ`ROB6orHm)(r;N@eBym0hO*nWW;9}Igg=`$FXFb%dVKDKVs9W!_tVA{bj zWI?%@w2GPjiXJGE<0CxvYf(m3&%CdD_>eOI3U+#`e8 zXqZhXGBRYnyg~mcQKMm_8~+)2cLP;@esTYVt3JQDKSG?ARiA8|{%gwwt3H~cfzz_; z12+egt@ zmr)&C>CY*KU(4d$zr!!R=(mrlp@VXz7!XnT6-C~+>iD?Od`<-%g;z|GBw=x1btf$9 zh@G%YS2nIODGJhY?S|_LJ1J7dEWVAtf~Hy!m0q|8W3J|8@%!*|?E5tALGw8Upy!&4 zBngZAsyktV!MOp|YR&?ao?#EyZg`EI4kRpg>Mi}wr5CEf#Jt5T@o}&I!FDMr@2z;g=;XeZ)=gm%|2%a z`^@K*098=JB1sSWsyl-rED&*BrT61y@a0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*JD@jB_R5*?8RljQ#K@|SRJ$Gj|d)X@tXqsH9Rx9`iEJTvRCY7xV z0YOCAe;~MmC{`J;(AZ=JA#MJID*_g2wg`xoos9^aCa4JOdvEt{C-EACSco6&%=_`p zo0<1!W`SSf+Zsu)4(CuF7r>3IQxcekIUK?keI5(8^cqGgAj1X_=#Cnhc3(D@j(N%cpIXN`-~(YNCap?HC1c;A9-7MXQq`lTA%Y*n zlH(hUhjc>w)%k7?Q+U$|;Ytc)GL50vg<@1FI;m_`Mu>k5F*4hUMpUXg9b7vjkd!)v z)=^5oJu=05o+t#}VKREJN+?BF$jt}?30>K^FD6XHp)zw zctiDMLQcuIRK*f2qpz4~zD#2wJiCg?;sRbVads7|e#J&qKDac+=fbf%qNv*4=70Ph z1bmN*GsdxTy#no;dkm>!?_lcF*2MH)L6l>+H#>;h?j|?=U7ivnhv}tL^VSQU_y@3I zx=fEqd_phIb21M~cYNX5JLJVO>&+%@z_NL8nRfIAc+k`c4iB&cELQv$0Za5c$)#xL zzfJwlG$4(LW&97kh90wb@bnYjf&#x;2VOGi*qJ{luhC)N}0@&j4#?iUh|ES{SeTXevHZc&Oj&WA~UC9^^(XQ|qY2mdP$LLn$o3Y-ZY0zwAdr_F>$pBfdA7 z&-|_-mAVjul&e68CFh|>4xC`sdIDVK`M{bER^7Cjg};DWN;qm^;fAemr4cEme_+0t zZ;QTESfV&wDVh$N&X!abgosEv^1$bSj%~>M?Vej|%;d4;U&ST&hfOpYqR+G_Z)pRi zRG?Py`S2%Yiu3<#xbYo_87qUGlwJu>tuqHHtHO#Me$m12GDq*S{fge1=@IGbQR3Jv z*4V&G%o;Lz#s!6#>?Jj{9YKf^htU^HF&oJST^1ahE|J?ce&-erC00000NkvXXu0mjf4ldxS diff --git a/docs/html/img47.png b/docs/html/img47.png deleted file mode 100644 index 8886c4048067a8d93837473e36703550149df286..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 521 zcmV+k0`~ohP)p)nji`mmw323a}ihnfRG|Z6d~r4Yf0Kvs7`_p?#sJ--^=B``vQ#O z3a|vV#zbIdNryHN8fHO;oH!*;A1n8=l*~%3AahF8cvz;yF*vF6upN(p69%=N&1J#w z_nQuJO%6oGJ`~;8eOG=5X+;s2*r$+)6dEvs1|7KcYss@TJdeN7ABH~!MLgr{-azr4 z$Ez(Nbq;BdzRmk}z(^&+ghV9pLTxfsB3?rVxQV3DVCB@Q*Caw2BWyR)ngXn_5XGy&JH}P)9u8ZPwH5 z+I=+7sKtpZh0#vDSoZUtb*$v}dBG(QDcMcwT>KL!J(y<7ooF%Zp{5?RsmV$C23vdT zEI&^#x6dhXoG^lZ9TXa{#seQVZ(|4PBzGRc6tJ#MzAwe7=jZqW&r?v|a;+8X00000 LNkvXXu0mjfycXsm diff --git a/docs/html/img48.png b/docs/html/img48.png deleted file mode 100644 index cf61ecd875a2aca57b28bcfba2aa653ff318f094..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 554 zcmV+_0@eMAP)Kp1|~CTY$#q$m{>`~k(mIEjOJgM*XgCqxj$ zMco~GqTuK`+2T@NTwUG#37K3R>`#av&>oa0RTS9w8M?6l$*sCjHe4{~qoDmZF#uGd(Fl zGyR{bR_wfENb*F4Mxa!pW*&K4nUME<4%dX0h&9|GW#>_bOpf1x93qNXtZ`ZB!ZENy zf#`sYc!J%w^uFuNRGSXrZUgnf^C0YJ^Zy61*8c>ow})RfdoTXro|ZZkfg;9~y3csX z1n$Yc+{2j?$LjRvQkT!p)P`6pHR5*>@RIyInKoEU^?epH9@f|1$L_%Dj0#hN1h?Pi@Dse~a z2v9`D^(k5;)4n9%Mn~7%@h+pukr-e7Zg3HYl`)Q6(^SHcV26xXaHSV8a3;%JzzL zFJh5QNHw}9tXC*p#5XB)C7i;IGTY4w_1aL}3GS0!gRQkj4a(605fadI31ZiysXxl* z7|B%RIY#N>@c5t2_I6-ZMd_FayLjnc8m#3fh9Ip=gYVEuEgzMbwiQ1Gs!Y`D(i&qY zh|)nUMGDlxds-)06AkwVlLzqonhLhU10>1>MpeWWvTc>7b)f=v(OxS%(Uz&{N>~#6 zrE5MaUGjg0=E-dHCc26o?^UiZdqO+5eFgvQbm;E{&Wi;2K0x>;o^~-zosns5Fx|)l zyf-g-!)NMQ;>Y)&KO7KlPJcjCISNS!3nX9B3@UpU>R$Y$2p{W<-coETzH zsIfMj(Emd3s~0m0Ap-uS#c{?=nh(NMbQ0LTb)3`DTDsF_rj;xAPw&3}_CR6sbCRy< z<3wK;LU;Ep#`4Ju@HOfTZBl`>?k0EPlb|HlufNm{;3-Yv57n`8TQ4bsvH$=807*qo IM6N<$f?b^!EdT%j diff --git a/docs/html/img5.png b/docs/html/img5.png deleted file mode 100644 index ad004662323b3bf16443f68bccdf2f4b936f1a5e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 228 zcmeAS@N?(olHy`uVBq!ia0vp^+(0bP!py+HxaE)(ACRLJ;1lBd|NsA)GiN$GJHLDP zPEk?u%$YN*R;}vj=qM{I3keAUsxmS%x_kHT?%lhSc{nEk`HUq&e!&b5&u*jvIT@ZV zjv*W~lM@=6nc6rNUNKDBoyFLZl9rH=oRE-|P>|pt*v^or@GRAVadp^Qr-FzDCc+`H zOal1{2^LZZ8bsGH&DzU#vxcpVS;a3wy5ouE1;%HF&Q}Ue8cxhpPB<6&=2_BaP7W~! ZhLe}YifsS7F9O=h;OXk;vd$@?2>@iNPkaCX diff --git a/docs/html/img50.png b/docs/html/img50.png deleted file mode 100644 index d7303ff459c4b321affde064f6ec66e97a689a26..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 621 zcmV-z0+RiSP)q$gGR5*>@RKHK#KotIhor^Dtaa2SFNR?XF4mDH7fO-Q%yHx%Y zjD&;`5@GMaAys1Rbt(=E?b4N%jsKvYx^!s%0VFqV1xTRde%Of{2#qSb@JYV=eD8gC z@1CC@P)17+*#Qw0z5p|895;YH<{%J;`!_i#1ZMO?vnL=LsB7wo5&lE?(~WoXgVxm( z>o_9{o?%flWtdPQ&j4vz^J=_<#zNyqpOWjLCL3m^McmZ}D%(<`0YRirfUDBclkmW! zLtr`A#mvrWY_%y|c84+lKhXMUn~&P>(#sH3Mk)n&^9lnF@_FAsObk)=;u*i6ROb$8 zHks>a;t*qn6NCc3i>g$4UZpLsXSauZcd5z&DMKb~MaOmUnwo3W?#yYR*w?Ntmwpt? zTHnIo1olSXosYizeFN!;-jjcmKF4JGcduc*P7!>O^Vbb4r?f3XXMfgY^qQze*_+j=k}_t&_>613>5`2{mLJiCzwF$xo2aX*m oXnDxd&pb)UP2{kQga!k{GdbR}hmn8o0iD3$>FVdQ&MBb@03P;M!vFvP diff --git a/docs/html/img52.png b/docs/html/img52.png deleted file mode 100644 index 0c0745732a5bbd1d8071b7dcdc78f03f08a9555b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 251 zcmeAS@N?(olHy`uVBq!ia0vp^;y^6R!py+Hcx1+{WFSX3z$e7@|Ns9pXU=qXc7FHn zouZ=RnKNfrty3td~#8?vK7tG-B>_!@p zQ{(C47$Pw>IROY#9T*td+6pY%Q>B^tE*vOmDrVC2RCtgbz;L;XGvO6umuw4TvNQ7$ zsSRaec6@ARY;4ce6AbnE{P@Zg&Nnpns~CGSzi*PT60nhPJ6d2ipUIthHY2mMQODuK vS=k4Y3uZht=twSSV1NT&C>>Eafk6N+$}hmc&Jf3Nfx-AgLIDF7Fkt~h zrPc&Z4j}Uj0|Q$CTbwADF#{Jir6BMDmCLaKL>~CX5YX_8onbCil(hk58Y6@HaYp8! z-yyDhi_1jffG~pw$Rboh{tG~hIG6MbBr5b5vXnyv6CMEl$_GKWEqLn%Y;9EYzATn008d<0{{R4@aXa}0000mP)t-s|NsA) znVDr}WkW+l?(Xg(AtB7n%&MxYh=_=Gc6L-$Q~&?~GBPsV-Q5rn5WBm(j*D;e00001 zbW%=J06^y0W&i*RRY^oaRCt{2T1|``R}rqBpPuen_x3D~N!A2;0y(fJk04UChbSF| zAbtdy6P6EFI&uOsma`kk#Yo^L7@UNId+kI@lMqjQAo7VlphP(!_5g@TNX!96tc+xH zLE>PkcN2pxB^v7eb-(U;{WCvVFZR@GdwSlhSM{pveO2||G=P#q{CB_$tK@@`A^NH@ z19b4uNe_kshMF%iz}Z+uEhQm@RRA|M<2E}fA(H`mF+<%pI>Ym;N)ljjc9`L6%urcX zF^ob!nB27`;Zcr-m=K0QUGLheL}P(S_u2 zqmAyZt`<)o;KzJLB`2>rCcK~(X$R={yyS4A-3m$#|71wz?=`a0+4?xfg4d=h5KyEuze$? zohbLZDec7e?nK&Ev_`Kqh{@WkF0K-6NN7I^ydkCCP)tWbW-HauG|a^)1fK_ZVgRsM zVZqNnXrTEVUO(UT$vp1@-|$-83lo!zwl|HGcCzAd21)G%Z=3$qwfoVMm9+zGhaOQP zYj1cQu48JqQs42(b7wr3e)20Y0ONe>$@5sJ&_2$DTvFtuwNu-zly+i!6ltfVeV0>Q zB&40z6E_VjMDJBZO=v_Rtv*MugTa7&K4rG%SbL4sYaf#Y(05qNm+7@Hx_K+~T`KW3 zSkFwumeD9KIpuKDi|*#3x_Sj|)sB#Fan02sk3{YI#BH1OwYGAns zB^nOAe|35m6;ZMvR9YSRy44gTGOXslo`*fV+-j1=IJwD=p15IFn=D5O?wZkM@f@25B4E*MKjB}E?E5s;Gr}sP(TMKAJm3}kchDVN4qxJpJa-qJ5 zFz9?NZYfUSUW>1A&7zDp^t&7IenBy9kvY)3{>js&Wdi6fv0gN(t)}4%eT~-VTP=Kz z*6(twPen_7h0jfG^<~pH-s;CDBV}4m;$vhoQm)lgHaXbN?~hjaU)!QdzX>@j9I5u{ z4n^XVJ><$;;n3<+#?V5pB3~oo^@3+piuB%ng*?>P_Micp%qm;cLA= ze@m>M(GJtzvW(T}&dp+JRzM4U#)xajsAe&;WwwvzMmf2{2lP%Hkv*lixQMDw89nPi zoR!uUaQ9$93-EOlu0(>9SvaIiQq(zJlOJX^Os2Z!Rk_4u0is9enhvDW^{bgy5yJi4 zH+L}#${kUFTp8+WhB|EYFz~D~MzU4#6i2o|&O3TEkh1LpodCTX^0kM#nu+jUp^OGx zaealaufm4KHeT3cZ{vmyyzaWf*WEg>V-&b(Qi+-Y9Y5RGz&0RcVtuGNMZTs}h1zBz z(=DJea1B|$7PvOxF7h?U*BsaLOlpp=xmNT~fv-8PaYt3)>o&XdZ1;}ywVyuM$|A|V zSqEm!*YS@OPA!9x`T7?wxyGA9$o92icA39Aj3d+67;@#^W45oGZJ+KQ!Dk$qzP9w# zHnZ5*#T>VcoL)hK*&8@7F8vDReeT^##tLkNU5w$pQVhi*?jm)Nc;KezoWQ_LVmNM+ zUiuMbw9je24<<8hxJcYf(#}&+~mP%s`*#`}*H}5{K`<<9uyGp|hE<=eD8-HK>KJO%{Sf>6aO` zuY=?CuqSdf>B{mo`Zjhn`wmK9lk<_t(U9$Hc=JQa(NOGb=4dG6>z#LWnN2&R)vNja zB8HRQJtu8d#mHhf@c~WgG!>JZ%ovVDj(kYZ%{Fr7#c<3ZEEW66l^4TF;ck;a)J3kG z7!GH?z*6x^!c_v-HeC_rPD*#|JQbhkg?2f{YVl8#4A*?t zbDL~m$HzF;d|wM(H?f?{^|iqD9DFC=*8* zZXJ>aU3LQ)hv-WIIx*jR+mvH^?ZdI;$@I80v4~wy$|7z8vehSXrAa#<1TV{wRtOvo z(igFq@gzvg0*4`8jAi|I2*OSh(zT!b`UetVWJnidx!K0$znX-!4o{E|6{L%?e7q0( zztWJ_I+kRz4C!Jl|1mg+rC<`$FFkwkv?Nf5^tf2&Gz{q}V42hH3F-fjyu7#^#HT`n zM!|AAFB9PWIqDq;%gMYcFn5MjjGv8Na{1fFR{0!h;r|DEWVpTma_cAorJa|Agwx??RCnn?0 zDqIc)q_0Vx0@9%I7%?~s@gn+qQj-1$_|qd`Ao%Mzx6dc~ysH0gNuUSSJ{NTaek+*L zSU&DR(1LlK*Xx*sexKC#4Js~%bj4$$?2fdTOhucg0WQ%;c-;l4Bz7l_-V!^i<_K)T zi(HhYf6IyaQfIJV$^L2JZ~XNpF0j@YqQ3U`5d*H0JaU$uSB#1e-XIQ>{>DVRvb5jK~Zsx8Hw~mmJ z3CURgXt3Rmd-74ts5jgsWBEb3${s>7qcN}y%XJr2C}uP=mZ3&!WCe=(#7D;R4=cVI zn=GN2(dbyV9QNAU5Q-U13P5ifLhe8cpgC1U!#jh0iq`UwmTK(9AXp>ss=X<7=R&%t z5}2y7t=Ifx@5a4pNRL}%XBXMy*4SBzdCVF+yT~3lFJ~s^DZ$Vqml>o>PzocH)7+`8 zZf0j$EHe;mL4a$VhnW$I?A~ybl$ST()n6kEBe%#NJuep(*`w#>{33hwyj)OZ&#*kB d8O=yV{{vPqPNn{m?Vg??N z?%g{@Ma45`&a7Iss-vT$tgI{~Bm}6?$jIpK-Maz;0=swb?(5F~3>0E43GxeOaCmkj z4af=cba4#fn3;Wu`+j>uC1miPV!umx}mFfg<%=d4LzW)KK8pTX1B K&t;ucLK6UH$VssP diff --git a/docs/html/img56.png b/docs/html/img56.png deleted file mode 100644 index a2d8c23cf4b43a65f0f31bcf5248dcd38053efa5..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 233 zcmeAS@N?(olHy`uVBq!ia0vp^fCnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR@xJzX3_IA$g%I5f=U;mN5<5PQzTmY2pBw}VHVnSDY^(vEWn4pbMZF>?vbd&w}# z>cD{srxOkw*wB#3%zT(_8w=Yx4^g(51ydUxk1?L9;xM_xaO43;LPA0)!^R&h5)#i2 fOsVxvNMK<2e~FJl&usBppp^`su6{1-oD!M<%komy diff --git a/docs/html/img57.png b/docs/html/img57.png deleted file mode 100644 index e49a3dc80e403d2f6165ea59a7512229410caaec..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 444 zcmV;t0YmSU;qP7W`+q2P>{KR7-2rP!#^AdCg5HO$1?lQRg2RaiQWSvr*KA=`ZMA z)PjN#5iAA4v4VAHijU5K(kXW5W)}W{EL};UA{1J1;ih2WiqywK@SfbvbY2z(g)aIf zIrnkScXD#hxdFOhcV+<`5(E>wBFW@5Syj$+XFzWa?C9e>pE2m4z>xy+?l1XE^uIHS z13=5?ndGQGjpLYhH+iX56;30h{Try{LDC{cp#Rgr{s24+-ocl4PVQ5F+OSmoOg_mZ zFBx`;A-ft4A-^S_y@DjEniork=KAYWExnj7%3N4gP1@y|(cq7i9$?%ybS{J))TA0w z{*ILxqN^fqUw|ty`yb!EXON=UnGd#ejYOD`WU@3O+jRZz2G&$2v%GnoJzq_F8r^Lx zVP0_ksmLl&5o=UUY3X9!FoWxMNt=qIuhtV`6=YJAzf?6k-(p5hMXEBw=_``hBmG9qCat_5LMnZL#k$wHGD{i*l!2NQyua=>+%Xr zG6}V|s!l1|$xW>QG-Nzn=^D4D?XC=E2RXDx>V%<}UA>?zw?VVMdHrH+QOg@i+ zOFcy9E5#5rdRB^dt-Mt@OhX0i-n{86mn`bGlrE*Bc%r-jtR3?7#d$ajW#Z^99EdUZ zdDbJgq8VPXA{yCH2(iUt<aKF_v1l*(hU{$vV%J&u3~J1*ornXb8Ln^%m!!qXi9(n zA8!|+bssMG`KBiow&$D{?9n2YzDKBk^N6#09Q7KOv3fUSYkg<(Cgplf&6fu1ur|Cr uz3hIP`;+7g62$>VuJ}EOJ&d-GJ%wKxL9ruNCTTJN0000PbXFR5*?8RKH8zP!#^|OLCL@OiYAQ>E!5|p+mdfsfAA2IyRtA zLJi$o5Hkr*-mO2NRR4fNhc4Y5q^{{w5Elp0NeHwSGR1T5dq#N?S}k~sVZf4TK#H?RPRJ0M5z%z-UH41^N`&)T+zM@=#@%u6)fO@B5pvBrS; zFG{G=anCqa+G}Nn($!RP@Golldpo!aV&q&;?OUZ#v0)dYeGSmQOF*rv@}0ISbML09 zfG?zjd#sqOOjQlB*0zw;z6Pps6!D0k9cMpN`s#(EQ$q;=$;m;hf$H z5IM6U-k>_1crNMGd^eGO$%H9ez%|E#1??n>~rgP04p#!s8bv>>wSXL{tRVVvbtt- zTlB8>Yw!TJ*Se9Y?(}D&4yaZWxLoDlyPM|GXg~?@gCn4=wNZz$Wvwb2MME2`rhzVF zrJ>T9n|@G@IaTkQ`I= zGi&GfmQZETPe8Xletp@W;M|n}hw(qb9^lvK?|Yt0fb$scO3=ihRlCqBdkAst6%|c| z#@R54G3P!Rqol=5onYhu*Ngw+lI0nx!26Gt~ANoNyu zb1*Wyc%vPR_#gZMPIe{6LH`9NYSIbsy;4fiMXie;;kev8j{ClM51@u%#RhuH6Sb9) zuVqpTt+2LaDPsU0T2zE0Y7XnQzl9TB5s<)QNDem@Au)l~Xk5NX6L_vSI#+n57mjIy z^$E0H$@2_hCb$O@l6>Mvp#|gS6}Uv|VLgI~T~Vn7SKACo|FZR8!YjSZPBkrw!Oh{}(%hSI=-P#R`4Z4u%Itbl7ebC%>k;H%TpN>OM<^#G6g=X{sb zhPYL(CPB4=goK3lfC@%-0b{3|3Y(=RBxX!#>0t6nn11jJOS9)Q7K5XFg2GKVo;IxM bQ($0NA;_$#rX6|#XdHv5tDnm{r-UW|(sw$a diff --git a/docs/html/img62.png b/docs/html/img62.png deleted file mode 100644 index 8e0ff8da46d62ec664809a9838e599f594cecbdc..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 416 zcmV;R0bl-!P)vDyKZ?RxuX<7xr7Z3tgHj>K9 zB9AbYm_n|w7Sh_~5w1P%B~pl$g)^IIE*h}$zz=r*zRd176QF~FQrN_vm?_X;h@BTJ z?t6KNSs$iA6#@!@8gKXwOVrff%#vJ2%dhx8*t1Rg67Qk$5Z9V#pA$^pv#vrS8*54&8{(Dmp`WzAaP^GqcN($KPe+Uf zw!%8)RGl2;sDXz9Q7;C#I)4_o&PrevDvObs)T`J>KJf_qfAIlLbUaOzv8~wv0000< KMNUMnLSTZ$47+~- diff --git a/docs/html/img63.png b/docs/html/img63.png deleted file mode 100644 index 819da0099851045ed4c675a8cff541368b8a0bbf..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 467 zcmV;^0WAKBP)zQ?W|KKop#~F_#UV35cW;QVDhee;{aKVQ*_bA=p_Q zrnXwJu~Bn>Vx?^g8#_NCf{2B1zPIbfM8iSg3J3P>yV=QblYIgD$YMlrevvu69Dm`O z5_YIU4d|95qjgS;Y!tRqGN=T#)lSE%mZNQ#Au*fOoisr_AYLpQ`spEWB<<=uA>mWG zn7?h{8ug2P+WL%7yiz1)b9CpxtACD!t`sZ)e3)Am)LqVUL{cX|<;a4%b*NC8o6POA z0tFs?ZM??ZZIt+DB~S`UCl=gE^rpa|M!CwM{}DrDX}KBnTi1wtijVyc_e|>%ce#7ig1wye6M1%-ZunM}USWWFIli5}`O^edo9gD2_i zL+$+~9hp~_!2NP;-Av66sN^lWvC)ljDA{5s1!A!ry!DpFoB!1F_t*u_ z@bcm4d9d12;%xi2!fq8RcW2Z4(_#elS?_g)eg~f5zRxj`K@rn$UuiV7!~{4Oz$J%w z`wSl89P*LFtCPJ8Yy&qba9GI}2eZ|8k$%u*zY|98X8M!-O~L}_T{c2eh4#(>0000< KMNUMnLSTZFCnKP?at?KCLC@U)q2?+rzynFZV?%liBe)h8hau`d3{DK)Ap4|W$(dX&n z7@{#TIiZ2cjGfKGAi;rss)SMmV=>bN0fjJAj)H>{(h?F$@9*tBaNz8L158goH5`#C zc)3U}W5%fi8yGx_3)mXoq^{XpEuQmU$&am#Tj9H=PlCk+hQQN@-KxI_@I**W7nNtY zw1-K9DTimH0$=ivSOJD#JZcFHd@oaW)NODGUzo=|V>yFpD|Z4T!=g}GJB#I441g|U N@O1TaS?83{1ORn)UuFOR diff --git a/docs/html/img66.png b/docs/html/img66.png deleted file mode 100644 index 099c7bbd31f1cd385c8cb6336cdfed74a60addbb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2084 zcmV+<2;29GP)NuG6V)9k|s;CJ1mk;K+VR7Dcxl!J0?yGfz3v6`$ZuPi!DAFU)*}g5Bb9p zC6K_7o9WDEcAd<4&b?LL)z#HMyR#tZ8M@~Fob#P??z#7zTLlcIK*BARBoY*+d9`xR8iENH~(vl3a-rKLXS(p1%WV0sn++ z(-5$gTLfuR(s_F9!$EGZT07hBfXc#1FJdwbZHtlVwu`~g3lf{A%cxf|oN$AUA?-_zZEow8F2z#?s0GyX-7q{iMIwd9@+OQx$~pw` z>@SFtCuplq8$nPfh!+YEUnSm!DRPYZ9&2$*?7k^;%KcTws_H1OP+LifyX+^6{($al_+ry=82)| zY8hkv$k^K9h~9sXhQ~aykFxVqdQ=QFJk(A2aXj1~)$GviEyCP?wE(LP| z1-$lG)(Y$Rp1HlkO+tCSkF4oV{pKhJsL zvc(C;^k{E!s$ddjGn94NUImKL0t(JKlDNi2&4u+$tOG5hW^hvqd|4Vc7s#l1BPiQD z;R(LHU}`7UK{u>{anlrN$oQX`YM#buMU7eHM^zE*Da#@FpQxp3G@j;{`KZ9>J zr)Q}3QGh3id(pFybDK)Uz8TMBS?(vX;vS9C!M6kPEoWZ$K0UMU%;#r}H+1(GE%8C_ z2*Hq|mQUrNdj{#+)3P*I_BK!@uGTBcquBKW@7BF8Kdn@oK4CQ;XZauIrru3gbO zwg}fH7=mu0Vt8F0)xa>74wG~gQKKclv!{dn<`p=Q(xGFPn`s#MER061gK%Afq3u5x zP{}!u^Q_}ZZ!svYW2JR|Nfj=tKFGD#RLz+>5uU@cKNpl+UwcZg_BPHhi8YJX>Wm6q zXw8>`jk1p17cLU+O9ay&v8?zKNSwft&Q%S z_;cLKWfpbnT&Go8sT0*WapwDs$mv*6qneI zoXf8^HrsFg!%yH9S`>|98)vbxU}|(GC6*vov_UsiZfGpv%C6iXy3aR09B|{!klqcO zWU_fN9-4*u4rbZ4BB`#Tz;2koOa`N{s@>o;u%ywMM~S7}=tOR4Ea2oW+^}w?MYwC> z=G*o#+uY%bj7p}ev}bM|}E+_$;Z5WfrX;4wZIWNz-e_}jCv{}2P- zf9&U9qS*${K6XZqsl zoW346+F6RPsfrI+IhG-Y?@bsUre&o{7t>0ZsvC!>fED@E?}k^@bwM1)VgAs&#t7yi zyan}@5_kK3=X@65kmedL;AeP9qcbV7e&aMAHSYGDc5?11+(PG_N5$GEI_Bv#ytcQ~ zg(U+|@tn1HYp{xw*GGTvGxs0kA*$l{FRLnUyL|CiRUFSG)z~a(U)uQ?h1(BnbS5R1 zazo)!gP3kh&Xqp%$ZNhDRki*nUK(E8+v&p6YUZU`#lKP6Nx9J`99zg4X7cexB2n;?)c?y>upQVdJO7>ePZ#azkZ6C zx)7fFQW1-$1Qoop*N`Zp7|2|@FB*aL;0RI6oGFnKUH02`z O0000hWZKjt6R}`TSdvFe7$qwT-bE(~# z!ww?&4J>uR8Ch^(aRyJ*!s0TgO=o3TokNcwKn!s~BoEu@$%D|iAdDc$-efN=2#)T> z&dQ9)h=O( zUz#Rg3L=+z7FRjOn0Ael`8`)jIZE}x6*fcCw|1VN&Y=2mI=NbhioYx*Y1)&2)@9^= zM{GOuxBDy`BUysB={wTB-g$vcTw2c!F*+#@cTWF?E`Mf(C5?-rcB@dFhq3b!28FpSMj%MolYJmvtQzI2u9VQqKGiuAp}O4i3_u&i%6VCw$cOpZr^n zf3H;;eqaPxojbTX+9icYwuYl7F(Nn2L04A$VIysSP-}rC*1n^C$IqIh{SqMsEfNbY zz(WOthbA<7RSM@Bm{ zhnd!}X!CehmEL?>6^2J&uS(@KZa1kilo0HLQ)~k z=Tt0A`lU1>wfta!$)>1NR^8D{fnEZX-dou8`k7X+RGZF2!a!ehH5{nEu0#y^D|&=o z=LEqZaUr_UfgrRl*<1gd3&9;hh5MJkKsuseBtFLdgfXk7=@_x;eoWV4O&!sgh_n{g z5vh^^AqlYV6?AXJyG-hQ6Euy(!(r#JRA*sfp#s7vt$qt()5|lhVA&qy!L((&m9EI9 z!HsEm;pBJ%9R#LbJYr0oc2QdW$JmGITq;%VsHzH5>JtgLIpkX6e15VF)N5`!rCsB~ z0GR149!~n99vMzbH=NP48d+=AFJw`%ClPnFiZ)x-@Nbm0yZX1$A;4o(j5~ zz%WW&#Q{PNC)xBWo5tF;sS;du4^wx^UHDo64jeTor{C%ePM1t6(}iIMg)?0k9O+V> z2E2n>-ZFbU-oLA>yuDkMwzsv#Z=7hgx1VSqPp4YAftr5Pu)ln@Dr|nFSr5!cp-0;E zcBZ|J-_WKXfi$MlFopl=Ql?R7I~w9gCq`Wx+?niY;d{7ggm#iO&mnaYu*X7od@-vQ zA_Gi7D9F`gU+5T&MIV-d;AojBBuw{*8c^cBjta31rfvjAn1?bLDwpx&MO^4$q=jsn zO|xk>jn)ndV~Mmxsv{XPo<2ttX+PX2rUJimG?B)W@5Ic!!35@;7N{_6Iz6wah13l} z7dn7YSVH(1EqCgJZvm(swQHpgdowN8(KKG0O|xk>onYG9+*1#3FgjPzBDO&Y$52;F zUd)odkg%SZCK=7MOzxbS)dwC+?xMiW1XeSG$sM)?hbMPwyPd4B$0{f!(*L#WGHjYn zv*}eaU5`877xd?>(C{P>A&$%j4FZ2$2yE2!+G`6;1)f7O{E2-wo-d1cG=bemUftKl zw0nB;@Nc+X$2#t$MRFGkaS$~-kq?JBYuaVl^b$;i?U*^T@iO z+LFVO&sw>HBcHI;FiIS+aUnfk-`}t$j=^9igwHY~`?KS5`N?_Ev`7$^C$|UI`3oDz z=nb(eq|fMg|KO`OjYI6!Ng7nC8j79-BCNecqo=j(GHjYnv*}ea-Rss9FmCp-^`y~M zKxHtFfeW_vM23W-lg;x;XkB4+G2lV~6&JGU^I=+j@VGbAzyGv1)0>}8`!c=L+YPZ^ z)V)S6BxV|^9Tbv@m6^b>r2$Zhx1O{%oqj`np@`m)j<=q8wt+=N2%rWmvS~KWrrC5C zrm@i7RKm8NSfRTDLL5U4qpO6Y*EDG*x1L1FOkg!5c(3aT4A}50C1&_RVfrg~nAVT# zCH_no>L2!aq6_u+)9PP98G{08da4WNrw>NPTkUrOO$-oTLFPAvp4-!<7oow8V_o`z z5$@{3r4!tA<#=~E$UNSw;?Td;SH9oQiq;{PAaf-cP^y>=|H* z&v~rj;la~?dA!@twqF8jKmOw$P8kT-u7<=ee49c@kFdwmm005MuQ5Dpn=gjh4oqff4i!4H2s>(C^}8;rRD7{*KzV`j`0ts!QK ztRf@f3bq>rTYtuCwst^JS}Zz0^;heQKQE$Gux8%c0Y%bOaI5zj^CvnWsZl-{Q)^!n zQzL0n%+b5m1LnlGL8`T{8CN4oBB}~ru>}2Xe(v|098pVl&|tJ%!||ChGiH()Gh?QR zF*9b07&BwW=`;)jpL^vnU_;`%!U<9n1Z=okiUSI=_U>Y789&PgHCx2b!_nQ*orY;d zn|!c&o-+J3*uJjmR(2~}$$aq6A=tiN(Z;=R-GH3V7W1WBze2}(#>C?poa(F`E#wiQu`POKNGi5%x_fR z@LsJPwmfbQrzmE(ep)KuzCE{dKvL?Oj6(K5!d@p8Fz6!P7F^qnC|4%XnEA@Q0N zHA*Ae$NX&^kW^t_rO(=;)c!V{-F+t8R-f%T(E&|)>yOa${@)ow(Hf4=jF~Z$#F!Z~ zMU0s-Q^c5;gBkm-2ePo-`kf((%hV0t8A80$BVid{A~lsrTIUx~4RJt`G!@+Ht%CUl zK2K?pTR|^a8iA;t#phNFV@9m?jXCkrHF?6VYGP_6Nkmn_D<(eg?(Ur-&EC(?#Kd&Q z^dG=MHq;LuP62OY23X~{1YCOk7_i>jhYs#RYc%~AvXBk+H>ZI0qZ7a?za`+%_RkS8 z;5W6z&OV|>62y#dsNeG$ zScE|SgKR#)QZPhdMsm{f=%gg#irhnxaS0s#dA!MEUx0)Z&; zCDT3A_4VGXuCDGLO|RaA?X7w5)qB70u8;SsYkGtbM`9$zuGkQBnu&=JC!&_5DJrL+ z79wS9IAyy=Q$Fq&(ckLQugq1R%UtBDJmfj;H;G?fD_dt#-t%hAxml-vwNNUXwJQMa zYSj+?Dnx_eN88_0k$zE24N-eWl*x9X_tPNUDtHuL_0Nn_jWG(uS*`QrC;SYnDXP6RjvwNmu}}*61|hE z-NgP>;e11AyUiVyx^A4z$5s9NPSUI@Z0N4Lq)Zr+NDIga^7H*{$dSrRG2Jg)(Szb}9r6#ga6!{zsNE_QCq)=rju>wihrbtx znXre4C8In{i^%5B#iz3W6;{g7aVHar}3uh1>?;g4@%VALx52eFo?;Xip2{zU|=*YiEtLn;}^{Z5SW!XdtFz%>ns!SJSvkLY!DV_|Vfc57mm zXz10rQS-G$>2sJvIBLG)`1e|sv4F?O0F7M*rBkgP9NA#)v{BRbUAGYO$gfGH_U%U6 ze!!W41Z&^EQgp=8Fq$!3q|fsVSg*afgQ0w@W!_LXUm8(D2GbK28Q!-3^h9x(6^DIY zvb)WZ5Q~S9WtFKGmxsej!=lZT!)58^`xWn*Z!Qbd?^mo_dTr*N$+9rXD#z289>ko< zFetbRjR8&u%xi?bp{^%gC9?0!kdRHE8q*4vOdX_lP>4Hspdu3o zI2Gl}DZ9=GWcI*J+d_hr{;w(zm9l-x;EEVEOL%bZ3n3qEZsP%d4nt~uY}%LW#%D4Y z34}5ztcQ(t87)caGN87K?&!g;YA^QclF7mlp|xPFfRLgAwGcMFI@1c4ZOdS^$Ay4K zmuKCDljV~m{JgMfHyBRVO}mJ_A>773Oy^Rmaz~Yv<*usYQ2uGIEna@eA-5>xC3h95 z2W~ppt^*K)?K(Sb9!}!IIZfP+d!A~CV+iGC2)B_YZZG-p*|tV=)9!o#XC zx>uD<8t?{cc}wr{c=twCI={OtOeU4ZZ|R4JKf7D`xIe4ZHc-(g3k4KfO0bDo?$ih0!C@ed0fpPOQpdfS7DF^$SDQ_fL*TA{lc z`Rd&vq*Qe65U-0eiA|AXu@Y?@88 z>2)!UjzB>nqDH|B461g*0FsB`p!&iK9Zm(~pWC0N<$8BV6WD88B(S#A?(M%p)4sv3 zf(1L%h9QoXzroC}KExShmtoT@Fm1MDN_snH4!2|G)^<#{(kf81>C_1?Hb~qvhHge}JmNI0W1w zY>}C|kp=?{i!h;qP#ZlBvdge(HqEBj#q^4{p3unf6*D+XdUd);?jG6dWYcLk2DOpu zxv|-`#xpG9^PLB1UAqjM?$@;X;7)I*fB$K3rZ+#G^<{dew+mvusCz&y1g~wc zDnTKl23M$j%Q`E7`CH^SHxjm<`0}L?&t)*`C<9xi>68oN3+dHKaPP4k-7<&e=rze* zq;So;44Y=tZ2HuiUdyc~_;<0KIvuS}qSgnw^#nPm$m9+$n@T-yJz+W(WS01|s$hQD z<40A&d_T?n0?HH=NYk^bFwrdJ3wis{#0cRPv{@C->{X?wq3Mm2s-#cE{C?Eg2e|2_ ze$DgSXMG2kW`{R{n)qQ5s7>Px-im84 zJ_po(`IUPvXKQwE-`}io{tUo8SDVg&+V~bw`{Ohg^YqD+&-lEzzWDGVRQs&Q8Xq6s z|Ch(R_E7wE=BvH_(H>BH`iAh;j-oL$F;P^^+unp(%&z_;zCuMIYMwQPs6hvUa1c3h zOYO>a?4gNNQ&6pi1B&Q~ux{;wR!grL7qSl#^NQLAqL$t^N@ef#s6Oa-RaleigJ})| zglJ+L1LD-Mpgr9INmwI7Oh#t8>1s_h+E5VHX;JH*VhRI&^&!NHtl7jt?PR=NX<(jRxUjrr5_K{C;c%m-`JnREvvwZ)uro!er@?n&gW zqtw!C#tt1tFY;9tJYxwh7B&6upTlm6sl_=6&=ALG#>|*0V$6)0BF4;^DPqiw87C~R z%V8uoR|5~$kbq4h0UPcBQ6pb22c3vsN!~%3kF4%X9}cNn}kYZkY$K z8L1ZIfTrP%&y1Nd)5Mq=GewMIU>q4gN5=e}#?NE|5}Bverj6+iNE#yM^jp_9?{1M>Nl<+??+o$P z_?;m%i{})^+!D;=g}MAb?6r5hG}-@kzL?$l+Hd5&4o$8A^TEfLK9umwrE85j6O-S` ze{^WF|MvXJ1tC8F)T~33JZ_wF%(+T`X9%pBBQFC?trENj?avlF_XlY88bzU znK4tum{)^2?#&;OF9S(eYw!~_*eg8>AD$m2@O6Gf&0{rike*vDtgZ3$6f)6^%m-`J znREvv^^Q3`NhS%qCy}>~QcJHHJ9HGvX|MFao_DY6ogqw2OploU131Wr`qAwftOSV1NU*1z?Ju0SOo|%wxa;_!t-}89p#D31E{%046xg z3`{bHPk?X_;Ma!?cu{y8fGz@4jP?KjGw^?4FyLljV1dc<8(eT8-egL^2Na$N8_e1T zK+O9A?8t_x5QhOBID<0)#Af{ubTc+|NogYXQrm6Iy*bR zd-qOJQSr=~Gpkmu>gebwD=P~L2>~iJGBUb*_pX3|!0z3<`?~W#1BDn%g8YIR9G=}s z19H4QT^vI=W+o>zFu5^nG~aA!oXpsApkeMp29KiVBjxf54h*T@Y-Mr^XIYQrIIKBv zprCp?12bEJ-h+0jIqaev8>D0y7QVMA@JnD|*ptqYuzB7c6`-*Up00i_>zopr05N(- A;s5{u diff --git a/docs/html/img70.png b/docs/html/img70.png deleted file mode 100644 index 1e347c622a4aca6e42765a09e936100617422ba1..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 258 zcmeAS@N?(olHy`uVBq!ia0vp^0zfRs!py+HxZuL(EkKSzfKQ0)|NsAI&YYQ=n(FNA z{O;X5MMcFkXU?ozwW_0|qpYkfBqRi=(8$Q>?%lfr0s^~t@9yi){|ppjED7=pW^j0R zBMr!D@N{tuk(ipCz`&FyaB#!SMsXkG56(XX3K(5#7`TiUFsrq(^Y92ev@Fu-h;LrV z#MQ7%(&dJXM1{S9gh4^`mjY%};{u~4jH>T`H&4kqxKv#H#FXh?3>S^~czDDVj>|9z z9dr02ogsa@PNDgC^L}T!h_g$geA(GM%vMJ(i2{0QhOnr`LIZ^rK({b>y85}Sb4q9e E0P$m3b^rhX diff --git a/docs/html/img71.png b/docs/html/img71.png deleted file mode 100644 index d0d4e7a673d72e28a20fe4f5f6f9e372007d4e6f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 250 zcmeAS@N?(olHy`uVBq!ia0vp^Vn8g%!py+Hxc1!P&p?iDfKQ0)|NsAI&YYQ=n(FNA z{O;X5MMcFkXU=qVbd;5qg@l9vRT&u>-MxEPKtN#k?%gY0DtLiHj3q&S!3+-1ZlnP@ z)t)YnAre!Q6B-&AG|rwqaNu|Y{|6>R>lt4eR@+z~W)V1g^&!I|E{O`M4^r)X5t1Sf zBFfE-9jjh2aK|My1hKIuuw}YEV(U38E30d8PKB*aPh)Z}FY|pXz<3Gs4AhJbtL(=?|VxU79JYD@<);T3K0RS1l BRvrKV diff --git a/docs/html/img73.png b/docs/html/img73.png deleted file mode 100644 index ec9322e9321b69118a78d7f0782dbd6da88ec5ff..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2512 zcmV;>2`~1EP)R#1#k?UNR4bl)|cu z;H3{yZ`dT--EOm-`!n{8?e#i|6D3lQ*4M{p&fh)v+;h*J1key;5JVh2pzktD?_wO> zaR#!l2DN#o8UdxLYKXfRkjKWq;uRkeyA$m79E)>x!Nsp$vEPq42H4zS3xFe(vTOJI z5OAEE`O8&A^7lFv*8xU-M&72`$8ZzjYb4&r1< z-Qo0f9LYQr4pJ>+rNmN+ox18@PTG}!GhX+^c^H? zrSrjDN#=$@IqiH-4C(Ai(l?1!_fD#*(ZMgrM2xD8G}ND`!Dx`SqH{44iNNwvP3&*B zr?6a&LJC+kb-}UWupdW6FTP}dbCJe>&`3!wgH35zkUtPfY>pNNN>P8aLWWor`CBp?bH*lh85<4R1tj!E?C{f?x@yG{##v`RMuL(MaOfB$N2yu1&z|99IFs2z1y(SqVpA zDFa3-oxK#@OGl`;324wKFHftR=TK{qLrN6A+wFRwHEUE7hiXy5LM?iNEr13*kwJbS);9v)rf&??^z) z8V1olXQWG3^Gg-39co36i58Wfit87B=@2boOV*VT^4n$Hl-E$;A%!BtW`~yQ9sa6tG$!THB#4!~=f44>tkkI`zg*)gk7k_D`{A z;bawevQ4Ag-52x_y5K+-*NeY$VN99pUl_Zo!hY1B(6`?;vUm~qM(l!i$le;6i+Gjf z+)12Tus2o+5z7mTf5ZC!xs&U1lMV?6 zs$+)xhF+iC`q02e7$LC|9twv-I)wH|)IwcRUH;jIGl{A3(lmwK20PDYDcNg(k!fHZ z8s8rtiws_xCIN`9jT*ZO-z=6#wp_9!+jRQDBY4d^BnaPVP|v3b)U!=DU&9!Ph1xgS z^98XrS&S}~6khz6#Iq&VLl4NT?|m`U1^O1+Q?R=-zOZ^tU-eWR?KQ_=l_N~y?2o`w zZ;kC<%Ju%`>aJhJy)`JF3fpJJL5!Hw5NnZSF^2iCtYddSI9c^-=%O)rj3Z zFn=-WgH7FqY=rDxA39DCPb_jQtvRe{?lEHBaEjeSPuE6rYWwK3c4933YQX&InlrFY z9#+B+eefAcRTerx8OU}WBopjoPb(QZ({4@Atk);$p|Hql@@3t{Z4a{H2wYj6xhd~(~4o-UU!9+>T?!4=TB}BTL%U; z4kw0FahriNx^*Ar8;kehHUj&)bI1%v;Kq%DuDrg6jY-q%-9UR1ml5P@K zu5i_sYNOr_-&vu0%E-f_)!5}J++gW-%-K- z?DBFfgq=j6vXG6C3G@MCLgHSA z=<{`zO%fi6We%BDDZCf=N~*HZxmctlr1Yj#EQ!1j4wzpij5YBN1&nc_R7NsYfA7AkW~02=nx>oo#ozo6UECF2u`Yi{H_Xv>4W=82^-qE< zSu^ic#)1T6ZOn}W$*P2BG*w%;++(P%H>G06)ed0BqQ{aRwE3h&OtF<$z6?j(T%c`f zEm_;XoP(R$_8t06nsi@3f0eht8t#%bl^|~o#qRchx7JBXK8Ti;)6J)gvw7mk* aS^a-u&;;%i(i?XG0000Xz<3Gs4AhJbtL(=?|VxU79JYD@<);T3K0RS1l BRvrKV diff --git a/docs/html/img75.png b/docs/html/img75.png deleted file mode 100644 index 82f4ee3c71b8e36929fc0933c2bd4460b9e29bd9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 337 zcmV-X0j~auP)SU;qIwAYRFU0yr527>->)74w<^A{Q{=2V5Y{5Ho?` zCIb%v^=S6a1X?n4CPM&_&CT$Dfnft5C&=0~295@{1ehv*6Os(Y4<-lz3E`Oz42+gj z*gyhI3>z326u7}Y$mLI9V7u_G8)WqY2DrC?Dm)svp-zrvIFK+E9#$(FsOUB_0i(R& zM*&RX5{9=71z=Vy1H&Q&gF^wT;2{IUVFZH@>L-q!Gl8Ll%m4$v26P4(^Z_yRg&7bA jD)`9|@PQ293_1V+dS@(WW*K8i00000NkvXXu0mjf7?E|K diff --git a/docs/html/img76.png b/docs/html/img76.png deleted file mode 100644 index 83bc19693c045a67a08aaa60e507c00a3594c635..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 789 zcmV+w1M2*VP)KRY7RfKootG&15&(#tF4qXi_A57-Yd;ib;{7Ghj49w{}>rC;hk z91!HrKrE+?PPSR>Us1`}>3e_-uTX;Wcn|^)3%v*s%DgQ9dMr{Y;)&xQIZf-CNR7&; zCm;ECW%xf(04Dp6okEhFBhKU@jt zefC&=%zos~B7dnzS30#)q9~o}bVmTKlkj*ZkPN>!A6m9$$5d?6YdybNAh#0N%>vzE zI*0aqD zS0PyqMi&e7y!Nsi)8^4)O;TDm^$Pd5P5(Db^d{9g+q7mZYDynqub?F-R^|is+5{-= z4>zN6iq371^>!hjTJT#}F~?R;5c{Tk8?vDaZ7I2Bif%@f-`|`>jD#`VUL3=WU}cbS z?8747q?4|RNe)HI(<;iEXfnGSTXCB3<|0`HHNC{ TV<4uX00000NkvXXu0mjfk_c}T diff --git a/docs/html/img77.png b/docs/html/img77.png deleted file mode 100644 index 2a05686fb7f65bf41e7c0826bfeb56324d8656fd..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 5441 zcmbVPXH-+$whki2P!ED2RYXA$K~WGwl_Et562Kr3IwD<204YIGsS1ap2!zlfBtS%^ zCNzmO1*AytqO?c?QYAuOJomlv&N%Phd)|9{tg-fwwf35Gesg}`Tsz?=*pLe-3A3bR3U@RowG_^9I)9G1RS;3@WIv!6a65WaJbY5P%`>#i- zL`f1Y$ynCY)1y!*fZqYr>(g`!g|4U9v)m&oDcRH0lQo!y!{O*XJ#TLN?z$L;_C{O-p3*R1a6tf9Fcp;Y){zfR4dC!^94Vlr`NUK0~$SLf;U zCgz{rac;&&B+kgZQnGuTU@zyR$4@Vrpw)yORAOJm6=PnM%%8m&Gtbg>{jm9n)6IL zDyovq=5b4+WsS3smr_z`-8ycA#98EQN9*mQDY`qm5({;|wekRRQ@?M>HIuqgBi|<` z+zxNmW=z!Dd#CIFhV;Y*`_B4#RYLV0kF;`$#{qd1ulo$pqF@_)neTv9gJaR11#Kh_ zhuo+HXC*00{WbgiQNN#y*K^auQoX10?-Gf{A&>a$FR`0nEtRm?sdmt)ms3J&EjtG) zMNm7uO7L{$>JtkS(l??6G=R_I1RFI%uh-hupeNX@dAuH!n_H?EL>oq{kolo57skVM z>yJhq*8n1B*uI(CRA)eXZMh5&Amg@5eqT+zg@^jq-k$P)AOyNvT~obY88iGAD4Lm%tHP3sW?dr}XUYwnx zerVhtXc5g@PCr(}pSirrQ?j?*(l>Joy7ncdGfPeYDs71o`tfb*}1~lJP^qYKqn8 zvwcf@#!^O4_dW^}K`lBAHG&)C@FRDd>~9$lBdMFOf!6+(s8hS|vcE&|>Rf4QW2E? z5K~myl2()i0LL-2S~Ca>0F0!36v6sln?vv=g|6O3apWu(@-1R>OlCgpv<%1jx8U;1 zS6a$qna*$99qcK7(S?cEN7?`S5RqAW|Bgsr!`+lnuYs_W)meydzT8f^peiv|_(1m( zw$#zM;?Zc8{~z+?CEYji5$Gf@Cr= zM*vYW6Eg0rd2_eZg?(b#8nVSHo{{TI7T(4hxf!6Rk?I7Q`&xqn28A_Qh#T(xC(S74 z18bHU!`fzT=k0LbMYR_YBGZVx2jQI?Wgpu&%4SQ)@5n=LWSiZEqzZc}R+4Y0W85o; zw3DI42b+rys!d=)KVOcUC&?7&Yh|OD}7`2ViX`gCrnJ?j8lIdinJsM97lr*6#OaL|mfA_ck}R zbfR`dOEC1db!^|QQbSmYb!}mPar0|21k%8rLnRgfXq8e$zEOYV|3qS@U({!Z9}OJ> zrTKD(j_~Kp<4*}(I@PFhrCQC)E(D#TBBII_vEZ|S1%s=XWTa7PF7Rkes!G7`-QB*$ zr*RCd{iFmee7WxhieTft;8E$5Mg~?W=A5bPa)lG3b6->-zYQ+}Wa?5A%T(A@8{tO1eD8%cX@!=vfIkWI&%Dwd6vJL z{`X$zstDxZ{Xb`~v7R*_Fvs`NXtvH`2Fpvcs∨r-oIEpMj-Dg^*VWdKU>io zBQ$Dy8|EFvz$8}9=m-7pV839BWa%}z=j=Z{Z-ygI*aE^{*fisnF^q{6st zqCO3gCLR|9()M0>omEi!%lA(_UY9g@ydJ*&^hq3D`FrHWuZZ4imAebyYZ_WTWx(N| zd*A=^vXU9%%mB}VkzBEq#Pdcm0*stm>(>P7$W{C!ts_iqT>`~zK(JpCBiEo)0?<2= zy;r(4dE2MW1yOwNM2{Y2%i}qpYkJy|awo8It`0oeAQm1x`)r9z(abr8%w#7YFywh@ z1`TB4J-tbOq+}i1cv3NWR^rsQ!IguUJE2=|EO9lF+cf6lbHS(&ID@62vSXgLq(Wi4 z5F|}XoTpS;>;a0SdGun*SlHY<8t`vDE(q1{_)70{DVR91>0*x22x1;t2hli_-q$k3 z`+w9d#*F2MvZ)v90wbUy;n%*FkL*veFl9M|Z;F39s>P_#DN!Frjm+`0U3VVKsH>cF zg+CkuzY{(4FK97ITMMQUA(NHP==fgvYplHG_=DQX2Zye+VcMLYxp1&y#7u7r zS=>*vzXwc*tG#<%Nc|@D@r1O%!($pL+`iy!Updw7q=G;Tq1v+@w~oGN!=SrveF;O;*%=s`8JH6o;B2)QqkspHUu=Gz2xBm+sgV-X=^T zoKD)5H@(1jS`bmT=8h{>V?xQ^di8aNBb?owhVgHUPe{88CC8mH9+oyvgX)E@BE0fS z*)W5eD}zV^c*;b}afB>GHd!rJKlXe0L9}y!$%mi!)(5_dEU}t1Wrv?VJyqg4>dO z!u|6IGza1NdiJcs{OH%J8=soPWX(vgz{~amg6Q{R#Of!02a8r_GO(c2-6e9_3ZV;E zBJB}Dcr>wbh_?y>%2<6<>!ksMPKQ#Y5ctG5crC?ypyPzvD z&foZJHDH)Dw(j^8c1;?;*=yL8d1FWjo((uG|kgVcKcFY?K<9tYGP(xHa5f zD71G0Mq!L_*`LK&!~|{pHW6{*M^^1<}M!Ok0k&s0w5$he>u9`B`gde08E+X{0@W zvawRVe|*I!rkQYVYqEBe6(mkj<-ETT>UgFG+;>peOgPLdO9?dX8XiBkWFhcnK?YH5 zly%&+{EZ-l>|(+BQ^gXUp0Xclq4ANQP(?7>1N{N(-{z9r?e?Y=v3Ww_PV@;Z%CLUA zy#OZ!wF*o=wtVF&K1z~t0Gf46pnp6XcRx^UAGplg8p?t|_Cs|%*l?e_gM_Z-i?rGZ zoKLqP>F;K}A5a4xqh3~~QoKu4p$5)2*)jMU94V5o;7tV(O6Z*=Fr(3Zx0cI^pVc20 z|G1Nv^I-K?u!Jhm6I>U(BrS+w9(UC#Co7xyEHHqkHl;$j>|W%3p@gX94|GkRqN{a< zw(t8Q57hd%)*WM``fhp1L=@YJT3ZXyaB}bKXf3nByO|-cGCC(eI{QmgWeY?O^{fTR zddeyCgxKRVmxs1Db}WZL3k~|b=%y5mf-hBLvbk;HAkk&+>LN%+vH`zLKXF5le31A= z0)M#xGZ1iTLjHT|Kh-R179i?#+eSH~L7!X-(_shM>O_hE9#qi3#12q#ou zM&Ws8He&mZ-YM;e{Q>Sh2PT*V-0_m|A4lgvbwZe=*b&In%?lSO&E~Qo!};5D72fRO z4i-Wgh0C_(9i!L=a^F$Sm&+>tWNt)2P)3`@lE8|Rw&*jEcv>+M<E|EwOVJ31v6F`XnRZ!VQo9^`jP>@M1gn@`_E zF(<+A?x-xi4kK>K`E#)h&ZjGQ%Y*3vS?Zv>+_tRy^b~7E`Ei1A(8l!?Rz{##IdMlo z{udu=Jm+2#=-+k5=!G8QzAXUdyue=D3wG9b3wN z*N!aP9j7+i0q3|F(raRE9kBo7rTpYbOXKd$r@Q|73kB-X_80QBSDMgvDAg=!=a(9k z$~ibV99pbG1ekJ#erYkn{=?jd2Dw9W6L#QN8^AdDp-DHac@@Vc{_AM5)zmY9ekO=DK_5&UNPt`@{VOwdo(>uS_Cs|3-u=}-`Y~gQY6zT?!KWdzB)GMFOMY}T)f^9{6fqcfX4}heMQZYl@pr-|FJ)+J z?yJWYla~k2Dm3lv_R0ofE0zMD7T=IRH5j*#t^VOXx66zhNv`1y`9|F7-O6v9oVDn$CV8=hzIL>Fzx&hnimhAHUPa24H=>uG7Q+0G^|R^8f$< diff --git a/docs/html/img78.png b/docs/html/img78.png deleted file mode 100644 index 089b17f68aa07803d55581f1f6ab05a4bf24c073..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 6161 zcmb_f2{@E(+qOiOMA3{bOC`%|NQCT5M93N$!$=8PMr5C{MV7IYY}qEe5Mjg^CS)l~ zvI}GELXDAa5c7@q{oeom-uM6h|9HRS_~v+y`*@DI@B4bL>pZXXyq_n=(4kN$FJ8RxeeX-bVjZ!L6b=rG{IJzsELPJCG z^^J~>_VxAEF4v}%mReX?P@hAwu;57LAnp(^U%rgT<0;Y6*cmJZkLRF1>+b9I zs?P0%;9TkP_T3WY)fUOaOU7y%{DNnNStjhAf$cA}mrB)a-C@w(FIg3-b(QC|vwwNY z`Dl&SaB(y$D6v_BdVBj$nvGx~34;&xh$3CsYoxdh7D%}Cc62u>tu#@dHZv!eBPa~m9g$V zHCLkCnY#KZzm)!Bl+BOr{?(;VbtO5w*qY5O9sAP71Z>5 zUV1-n^!2CQb&zeH67-;q6pstg>UzDaZ3@;`MybScaSRSTPEQqRLvIQd6&{xXsYbgj zYZ@A`JAeZ@2CLb`>%1OEy#9bU;(jtBy7lc+u*+H18QuO9t<7TpZUe6)hOc01A)%#(KEHFz%6*-#EF?q@1?ahZxn9phsZ+KO1*Q6ZM(gPd% zmGIt5jhAl&>y)DLW)bPB@mmbKcig$CX|+NimsEjSI-l{N2Jb3=WfQ5hy0=|r$SIN4 zJ7;2tES4%o9xa9EFdin@a+TEQAV){Gf7Tw8U=)fRvG)x8*8-`vkNlFWZpAeEp;BDy z_p(pl?x?%S>BK!}v#XtLgBvm0Km+34{+K`7HFq~l{h^vWSMOov0N?pwE-gZCpMLzX|vkzS3Ed^9bw!o92x zTDi#{bHd2L=MdCkqfUQET+T0-JRV!Jznao~X0gq`W<0$iUF5>h8za^5hOc1_iocCX zgH}>XPffIK`891JOo1@Vf%6gp#<6dSt+soW5uol80 zxV5*znPTWayy_$*8M!Extc7hfN-0+s?c^J+e%yM+&745XRgo(-_0RD)l&Lkc#@O$D z)Z}9uy?zo*Gd~$!@-W~Am}!2p9lgnk$_!J+_n^s&9Nxj*3A!>z< zTSUi9qaEycX=vIyLyCH~{S<7wh9RE~g6vGZWuWYeHiqO9rQPB(g;9Kis1ATUOIR3-a+11HL{11XYLhj+wYrhB zGfX*V)q|{-_$l3Gi8KXfMjd`hQXcOJBF-;4tOc2{Pq;5kY`Ms-LC_g%>u)pGxZcNa zb2%bRWu)6;gM{U!g^X3NRPJ?+x?pul3$+Tu3z=ZRA^G~AIX>e*>G_}Fc2!6UKyU=DFc zdwm1uG*^92VYW;pKr0q*FrF=>4Q3j`Cgg6VRlST4Pxm0^vz;Gq6pL+gGW{gqwjzrl_B`s z6{;M|1k;b2u1k3b(8(NDo7x^1hj9#9baD1W;K8bQ7)G&LE&C3ww<%-pi(0($Ku`o1HT>hJ)d0G!3Uk*3M>N`$W3bmfes%B( z;95=EEZ%emtp(jscfQFQzS{oZ0rAfnBHJ@!c0$TiBNwN$SsNPWQ`754!d@Zo(Z4C! z6$eIAAOg?5*D6wUT2veCY?D7>RPxx`LbvDD_w@~6Qg*S27?q+$zJZ*T)}Za@!Vk7D z=qw8{#D56c=1e=tQ$%&o)uM7G-Cw^mEZNpI2jXf_=;*hvAS4Ky_UFXVed%^=zL)mK z$?!oIcMwwr&;Tr1j{s4-1;EFAm}>X|AHTSzk`?(y%9^iuj!j`PL;Q#D*B>bO_08CtjG=;J+h!#Pga zTaI&^&4UMeG@hV2%;s$d?lT$<*GJO*h-$#3`6|@Y&c9^PG<5nd(8G@o9}J%ktoj@B zd;Vj2eSJMKkNkstuw8wWagT@9w?k7oAk;&ui&|P6+Pi8$A44AP)xl6To{lFD61(pz z3o8H@s0=wIc#{bCrEpV_WGYE9SBJG_fr7AKHx|Ih&x+0r3f5Txiv*;L|LO$MJQ^p# zLJ;FvUXjnUt&u%CeA=-PgAASzPXTn89%G~&kn!a!-Z~SFLlcFafhW^wXT9T>fFLFZ zCG$}+9Ds2Y`Cs&!f0aq!gE(h>)`(T{YTd33fk_%km%Dn;T=iw?c?PsD`9Lg6buw7# zKU>7xhzW(1WG3?}q^5)A3aAn~0{^Nr_2Y-8p8b&1Q!<@1z?0YSW@3giq0@5FCQh;M zlcJ?su4+_#B7OcDo5dc5NiL}av)*W*M%nNFOW`RJQmB4;_TbUf7lhf5(oLS6{1Fsd zS&?qlsWbb#`2;KGzO-3gRVnT_us6j@^&wI)v%QBJ@~?Hnb{#hI-B#tCyZbvRd!%ETlTgktn=a2 zZ5bES)2b*|rLT9g5DVRTCxXbLclXE2UY=i;4_*AyWv6a8=K!+7_8A){Sq_%7ka4DA};C#R00*0#_RDm$k-0| zP}dz*Rom|NHkY)lW%!Fa!G8_{|5)!f_Tk;<{cQ%GLR>dV67Ko%o@cS>d6a+A7DDST zFB7gr?V$Mr2iz1P#!5Ckb}?)kxuR{|>~!uD^D(G}U>BVlXPCYaId9JdKzhMsNY?@! zj;apryJmm-XlpV9{36|R4U*1QuH>}rsq|yv(xvQXtnC|f60(Q+b41YNe z_3J-@(Eqx$GhvCi8;{u^n0|uYX;zpj7EF%_bK4?-TNS=}ubI8?^mpzyxppM0kW8q6qXsBz7@3$uzcEH@Id8hI|ulS2^0*9YQH4 zZ}0SN?OFK?(rcfNyQizxZ%F7Al>>BEJ4;Utw?!#B3Qr}sIElOwkA@P0Z74sDCp4_b zHt~g$Qf$eQMn^T%hY=3HB)9i@i^KOxYg>DD?5IfXbTwXb&wm3U>BrSVN>Bqtm@avC zj|xq9QYBUl?y~%6WE!tS8;cdTG@f62`ufnufcykOw0%(jg{T^^+rhImYY@pvoTNoL zLM5VI3U}faT8mGxP2N~JzXO1KLA4nD0;f6mH|YnDxLH2_cW8CWm-NNr*YlbJn{XZg z(+oq6B>(R!tn6t80goMJUX{e|HnJ?unzLs?XdfT-i+mTIE9+gg^ZNjE<)a39^ER|k zOK2OkI9+23xNXC|afd*s#u_#j-P7V!E;&-JbfSMNB~SV@xj_XEoAhrWJP@gujCQHQ zeaf3d;B{s)7x`=extkmN-zVXB{j^AL<6CFiADFA9 zy+2EWne5iyXsU+<>gH2^g(ur`*TSl^YpkMTEujWh74W6e_T)Wwf^6FXVlECt21MnF zBbSOKSJGDZrHywA5^GYUx)(_PjEsuM;N!R=N%{TzHq~EQMdx8A3Q^sKqEkF^X^OaY zT{5_f_*@~-U6?!>&gj9g7aq5w<^@}rHQ2_quWINfUPv{*7g1?YfMAuTN(L2Z|C9Zl z&5=3^o7?!FeKFjDz&pCMSg6Wzayx%6k}5D+OTbw47>Q>h`lX~BIW8rVi>jNx72Wx* z`pMlucn#A7Gk=Y&#+(cZJLR>ZS%5%r!(0d%5#b?4i)zvMX4BJMYzH8df=;TH?E}J& z$mkdWh_UjieY0uyd)Lh8iu`!==U83nTJRA8-BbcDWT{_WMTDm2N`Lm3ciwLmv^SVX zAc@@0{<+aqt05U}XUAY+{ZzY|VU@jsXbrnLQ74u*987=+Qf+xjAmuB^= z`lPxR+$ft9MthPL)c^~q59IBO!>2T^Bex!V z17$!b9WqHe+iWV{pn=3!x}H3mV|5c5+5>&#QADUCxui*Q&lPLc1F`VsbK_O0c|zF5V0(ye0Bd znUUAd`7;xW8G3qe_dp)*$HKpA5Y9)O+7Lj@R!1*lU2RX?Lx#vQLm~fk?L;Gj;$0%n zLUHEPS(5d3VfffZ_z2=-eVouYwvGMuNL76Yg5$CfR7oXBbuNyCC#11ZYdbmt{)RVi zHB*SbSoL=y_ye*X7xZwijEvsb9y5>YZ$9!qBiIH%mbiQ|oT|1#_W$tM`r9XAnx=IYP84wH zUgd)GBiWdNpe%os^L=M!Rl4Lm7Ivq8hN$YjjX^pt8obvaH`|h|w?tZd1?t{&_BnYs zP^~;7^ZS(SCnka|{FTsKW|R+9qGIIm&RTl$eye~Ae7t8tA@@0)j(VK``l3J`G>H5; zRxLSR*57x+%d5v(1`;e%+I+?;Eepjw#H-w?uTbxwH!d5vePfcP2&*Fx`%&!=Fx*+p4Jb-YLchMp=>=!GXY)~IOwX!!JfP5xQ+$y_ bc8x--2ZrZKRljQ#K@|S>_Q&nq-DW4Kq>zx#U)A^*WI+spAYNtb zHYp?#)dAzGlDT3qrFd=Tg0JdCSDBdAv_Gq{hN$c6W|{O zqkqz^l1hh!?Kv(FW*^h>r~u0a23oBIBIZI$?Yf9pi7A+f;U_NnD-AZ;4htL4hrGZpeO#6*^ltJaAxdpSm$?ag4(K*Yl4%oE>0lQ#q0omGdx9jWOq`KwKaL1yf2HiC#&p^idKaK+6h&L6 zEBB#o){R=;uchrq*Ia2oc@33LC0?Q{+cxWl?g7hqMbRg{ihmCGNf+w!3Ux-kO`7x` zSg-MhNYfxe(ikgnC2})0&dn~<&Lv9HtyU6i1%0y--YOSksiPCOTM7V8VZy^_TH+ce zT8auL)h{!Ru$(RK{OQWXR{jgHD4r6jgCVnk}JY77c=j6LOIJ*_l(@l#M!BT%GEnc%0z=v3Rx@Y`mE8^8tN>F94h hG002ovPDHLkV1i9mY_b3V diff --git a/docs/html/img8.png b/docs/html/img8.png deleted file mode 100644 index 1b047adf84c55634bbbb57add608cdef62494032..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 242 zcmeAS@N?(olHy`uVBq!ia0vp^{6H+g!py+H=u^+J5XdnI@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3 zqyaevo-U3d95a&>5)zUU5@sAYU^l<9n~}wWNkT%e!9_u#U$L?AA)_`k^ZIKdY$*as z>?+$BR3+}oGYGNTIjmLKTv2AWU`6td1D{xZ?&lSKV4fYNd%#FmC+UghSIdsH+lLMq o@E=JCOMei{loXTrn|~1l%XZOMA3w~#4YZrV)78&qol`;+0OBB4ng9R* diff --git a/docs/html/img80.png b/docs/html/img80.png deleted file mode 100644 index d3448151e918609c869127e3f6081034aed15c05..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 387 zcmV-}0et?6P)SU;qLRMm7dyz}@A5;4m`?07-U*cxwjSU;)S!h6xRf z1`G@iEDVen7%K6oMh6oZ82F*gfCm!{I0FWT^002ovPDHLkV1k=tj=ul^ diff --git a/docs/html/img81.png b/docs/html/img81.png deleted file mode 100644 index 94fe3652d8537d68dd79897452c2449d2bd395ad..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 523 zcmV+m0`&cfP)@Q$0w-Kp1`bF+WYy21QU@Ite<(*(D&N;F8JJEIK*F z+NDDwqjtK2sGI4cxOH&rq9EvIgo27lom>r67bh=CjZH1u4laFg$M@d7`|i8%5+H)a z2<>S9-9-{g*=R>D$;B!MEsn+9+B_g1Lmx%|h|iHg97b;wg9p>(Cm`A=2AstQb3Z`V z-XK8sr)oYET{d&Dd^zM_MO2@(Bl}RPSKsI+_YTluom1WK+TYFp4Qh=R+iQXJ)GGzt zYF9wHl#m%bK+}DK5sZaGbZc<3(!{Ik(KqF=m7k=o+N*l>)G5y2MNz5e9S#B~2Q74| z&d71faj(pZDVDe!4(+g)EJMJsV>_H#(x3Y#oFDsep5Q{%v1z2OSyU)@II;?{(_w#y zDUvnQzHo+2sfO!7S)rrVVb1CuZhKK{NrH(vRhMbuqB}#sBI+*KFEUw(+~QKkI*9!1 z;63mbeN7{v4On6BhU8>0?W+cLtHzFc8T<>U%YSr2`+YeHeh~9e;1dE*Ry2KGnsNXD N002ovPDHLkV1f}C?6Lp= diff --git a/docs/html/img82.png b/docs/html/img82.png deleted file mode 100644 index e58c5e69115e601b611398f60657d85c85417cd0..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 334 zcmV-U0kQsxP)SU;u*z24t{91i@y8((wTdgusLej0Ox04lE3eHz5M- z1hs&4A+rrQ4K6SweBftb;1!r(FkgE2!Y^FJ7=jz{ZoqCA3&TZ$iv|>UFd4{c zV4e`h;13e!`M|b?fv;=}M3Fa4^=A&Y00u)K_5kW!pvf?yi_@%07*qoM6N<$f*{>~BLDyZ diff --git a/docs/html/img83.png b/docs/html/img83.png deleted file mode 100644 index ba4e52685df24da3b09109bf393ba8c705e6f841..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 363 zcmV-x0hIoUP)u&B700001 zbW%=J06^y0W&i*H=}AOER2Y?ok1Pyd-YrAI3rL~3BvIMK!+{#7Z_mux(-toIbchK`@^s@_FBXqMX$>W;`xyBTJxs91u zBo)W*Uh}&SyvXDcABUa;pVwVxM_VP=XWYHTr#`~1*Fy9DlrKH?GF(SRD8T>#002ov JPDHLkV1ntPp#%T` diff --git a/docs/html/img84.png b/docs/html/img84.png deleted file mode 100644 index 40453aa09d2d752fe10257d413bdc3fb52406a70..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 312 zcmV-80muG{P)SU;qMkMj*k>00RvS3{0F12*AOR&wvAPU0|5Wz|0Fa zqyd*ARKUu>&%nUR4m7r?A%UC0KL94-LY#h_fJMvzND3q{FtG76d|=?80Onqpz`zi2 z0O(SAhXvCZ3=6N8(@;G7q}gOR29<% zPIjLQ{6N{yzyJpVUI#V?26X|3Zww3KNzP+mgO?guTDCGCp%!B3e&Y8y0U zMJYrmxouwBycpi|+ey10Lgng{tJ} zwnqa8>TgwQSQ^Ix2NsQw>g0A&15P$^XDG#7J}->pDN8;kC>94@3#LPn=z{sK<3T4R zYjykmz+87?T@&R^-8yWPp`CF#t_s=7NT(Ei)<=5LlZoomSRX5L+ZN9S@zhWRLQFOx zc}zUSym+y05iyG%>V-wPsTgv&<z{q)c*loCt*qV>1{G{=+a*gcn&qO zvbv+v*M={1bF5qyv3`J@t6*Zuz#ui`WX6PTr2szR1e~)=Vli~JYZ#ss(@ulAidu4= zc#ed#c;dw^!g4(|F2^&PL=f6VJLW~gaLjcaO;zbY%}_%mLjTlTbs$MIwMM|NCPcpV z?X)p`-d!vg0(=_BH0UidF^xbIO0y-VNeBA76P61UP6bUm25{wEtwUIHjb$!0d=wBG z67DX@b!NVt6E#;2Iak_psULudN0ByOt}OoOPnt6zRXaFeGg50lk|XxAZ4R(Wljgt= zBiIG2R7At4sVKndk<9b%XY6&FS?0mnT2(STHf@B}8Vwp@6z>B@$eX;|qhU|6bTk?a zTchP-uaj+qz^EcHje$q7T(=BR^$?|~eT6ZS+)rXklIGmmT97j9YiflVdglvbEsix+ zo(+Pn^H#$Z#__Rs9D*&Vy2wzo-QIa}o2_SOlF50+&Cbb|Y$4^jNwYCPIaavB+Xqdn zY^fmT-|Chc#Vw<0z)RM)LPy29NC&EdW|y`UxNk85D;Bt3kg{SucITKCQ9K@we6?8# z!EU$hQ5one7Huh7TQW?NYdR*ABW@gOm4hY0zy5?ZgW1VSr}Pr0o-&%{ldW>I98jIB zyvTax$Aql?v08|>h&Y%IiZkeF-8W$o6s8Yi9&_Gw&}mOSrC3X>cV!|VLmZbDq(2=P z&5<>3A@gRz$Zw+eNB&q^LpJIykT+7I_m4z>2WZJ$1QDNQZSvF};I!zkkiQYNq_Pjd z+Q?no#(RPtswZ2LZcnepu#LcE%%xDM7W$zsYGkif6BneYaa7iX?4CGO!|hUKh4G!p z9dFmlR9rdjbU&&GoXV@7RL>gUS|uZ0Y!(N_XJS}~nJ+LAwARE%y2^DO=jek<*(99< z$C9$Ruu;?I$Oxh^EVQf3_`DQv69%QtLPML@4Sjlr|L{bI;V@$PHnX>h_R^d z&2n5e~sLO^ht;q`1mBY>%$#P+EkUeIPhd`bsRDw1ikA9_1>(kKcSa{XTG@ zh7`aYD|_w({2$U)*gB@=m51nvznBP?-dqgNuabmI&cM@jAK__o~lyfn;cmka0ymZ zRVrSX62XeW$v!MJOF$SoSS^P23#ABlI?xyWCDpy1YgzBG18${Vd6Dk^s=rj@)Bchu z2}gS3Rwr4f-S~5Kg=5~+d8JdR2B-+@Pn|99r#4{;4Q7&@Lgbn7d2>X7B{Sml1c*uS@{Oc@xF#E2> zk;X1Y*eRS<$bN2&Cd!Qa2kptRify*wQ`upI5e{L=OD$KVj_37<*(EruQRP-T#?}4F zOW0_^cy`7Gn_Z7=vgU(p=`?Ozeje-(Yom$V^U*_-xc+t>+Mh^vbss&7^M^_GjsQhr zSX_Vlpm1TI5I$qOJEkViWS|M>!oFj`_B)RaSJ-yoE-qagb2oURCXmxaTj<)R8T#Vz ziK7ZJMKUG{A|5hc-~@hzq6^cj^4!W^Me!`I%^HIBSJgqhEKdAmIH%_F8hx9<&qc)& zZ?bSzctyJS5b%wZ-S-S+=NOH z`H0qjk&-3a;pqzl$=YYBt~@PR_o|=|t#x6%fhm`S;>S9fta1!fBwIT0gmm!};Oi;7 zZ5#5*mMDa}nOu@N1+%A;6=lw9#cB#Um#h;dD-m9m6PbtKdP{t%dfc9Va*1NdL1AKyOcd&bi8GjHQJ6&eN(b<&@FU`<826%AfZdZ|$) zk8<|RuAZ#zCYt$>yXxcoe`N=yG(LwauhpUZwJ?|LHJAE?pW+8#JL!Uww7b{^F4%*m>ztQ&{{C&8>6z=8HbxHj9RIDbE zQzY)$UDzd~k%(!cm?VfoQpp|`|2IT^-iDil9Tas;=9hK}Ry5D+O_J`JI~T7kH5Jb+ zFNggOYNEbZx*(rlOxao4I7r`epa)ihl~b^!rF6ab_ge7|$jVD|c!w%QpnX(J+6K9GA z{XmR=;#C*Bu_diQ!6-7msaDpgTb#Q0NKGO4wKB;{#I%rj5=0@1cx4-4i!JmQR_oO++G(yt|9eHogHt$PtxBEeXU4wAIW-rC;f6UdGv`TUN07v6GNg!Y6>}} zm8K|;tgsIv*v7~r!hSvQ9npC9;yQPfK1wuq+duxwv5^Y)sx{}*Y6`1stt7mF{{ZI( V|CEWBkb(dJ002ovPDHLkV1j@!@ml}@ diff --git a/docs/html/img86.png b/docs/html/img86.png deleted file mode 100644 index 5dd0b395e190f087dd037b4c51400937ee8f0771..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 438 zcmV;n0ZIOeP)00002bW%=J0RLN& zBDDYj0dGk}K~zYI?N!lj!Y~khAO;}a07fAF=)c_oDv=SI5gbNHx`8tS9l;&}kI;+| zMtJ=&307mkLRHmDeLrWNpWj{1=gW*3Fh|jzmb1`1;_RK5T~z>p418xIzd{pSkxTaE zRtS=$U=Sr1E)w?|ZH@*ln(7$%NW+y8q!7kulB$*BisgUvU>>1JU=CXVXdxv~Sr=|w zYpwN5Qj@F|mDy9&lR{H1b+oQYA9OeCXCodbEE{3f02XNSu0-`vbrxAwG;u*vlY&&5 zf}60M2V;yO70Cr$33RYeFL2no9FV8j;hl0zQkgw#MVfwcL1v?(U3ga|{yrn=gTI^(*zXXu{7<~O9G(02; gjrg5?^)HoKRKH8ZP!PT(P101;7f{e{annJF;O?88GdkuEaL6Qd zD|YG@+yY`F6#NJJ2Xt_8OWit%gR|JdA6SI=?j_MA7#oldLO*)V-TS_KclY`lfDGtn zCwS+c$38NYp$;}|prd+RS^>Huzr2A6x>HI13yfSO;Fr|^qG@fQb$1;=;!9w%c@9}! zl<+0cc&n=a*A6NJ%ZgzVOquN#$S9h!M}y)VmS$-qfB{=JEI~pp=^HNMnFHv%efOFB z4c)ymv*dpStw7>$cAKt^*hMlk8t?0Y*LFJ?8{^gh2#duQY?&#kL{Xw40Xtmd0JvtR zlAwcJW*@9&6L^9L;I-stXxo`uYxpC#5J+WWM43gne4ven<4GS z=lW&{$`G0-%-UX_U@yI9CND00002bW%=J0RLN& zBDDYj17t}=K~z|U?U*fh+(s0J-%U~2rvE@HG?NR>X8R9hTDA!c8anUR&DVsf~ zq;Lca$7L>?g*BTPmOTaf*tNZJyovYZ^fWIR9nIYLe(7rFN;7l-FAh!Wg_=eib&|BX zT&<<;N*i$(9)Q_VdZm>lHS0~I)ncW!RuaH+Qk(1}dOxW4qqvl$tukZ)S}*_via8Mx zv5;ZTu?{@9ug8ln9$W3Cg|r@TX>m}eG2w0UmcnLB09xT(4Rx}j2nApmWL*J7Z-(c; zBwz%Fc2^so#}Q7G*Qeu%w0?1=%@NX_bUxiQcP`yd>hgu8h14vxl_ZtJ`g+rKUDruc zv(;MLQY)!ZccoIzSU#m*Nzz)2a`AfNzxn3J+w<$$)!XaY)%Wk-y}Z$17graO&dVE(A?>|?X^?bd)zuz2# zzLp=LJ?5=`I{r%~_5W77oqZ~`um6Ex?&cc_dqibc`;{5TY6U2E^BHAG&XJr4vWvr} zi<@M;$2y{0V(VWDOLUQCTSve;p8?xac_zM>1&6_rfJmTsrU)T~5P%|NL&C8nKm{(Q zP=f{6AI%1Az>a*Zlmg7dfRAB_)`P*KL_zqCltw;QCeT`FJ(6k{ zGBvQ*CxjLo9Nu|MOUSf-Oipsb1Z?nlJMl>eHk6N@RwFF#;8V7rwV`acWqEMnB)il} zl%4`7dG$|$uZ})9zB>9iHrr#QSCRx{!~X0jrr{paoxSpo{pG>K(gp<8!KUqlsGllm z?Ks>=b@y)1{-M(Xz-09S#VSJ;iB-mq5w>6~MT9)*$_Mp@0fn^PL>JKC~aKf}tfAfN}jb4}!jCX~E)iHGQ!XrY>keoJXkhK#c}M zfdge+KV%JB+rEY98>-rq3r8@tj1DBTS1gl#zC@2$YMa}qw!_ID^_S(#;$PjL98JHyIoJRI N002ovPDHLkV1lIc$g}_e diff --git a/docs/html/img9.png b/docs/html/img9.png deleted file mode 100644 index 67fce13f6e07538f34052ccc7723aa4a5879ac8a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 246 zcmeAS@N?(olHy`uVBq!ia0vp^fCnKP?at?KCLC@U)q2?+rzG%_-}d-tw@fWYqEyZgHHKLdprOM?7@862M7 zNCR?8JY5_^IA$g%G%)3{#j#l=JWEeVN=Wc&D7yJmQmP^3>lsdmO^u(Gn2jzloiZ#m z)-W(A_+({Zkm1MLCHsI)h&w`5Vgu8$X<2M-)ec*EIC&;ZO7u0e{#5?|--Kbag_uD> rJ;UZaYl9PpF$^24Bqh4ON=h&sej)T=p2#O(p#2PKP)rg=aFKR+XfK>-5_H~b!u!M0zj>BZOBkTbT+zvp*c7$O34V`NmG zP%-Y4G!^KeF4*7zlo2QTt}=7Q@97{&&6$F^+D3ezuO1MZ8xs0k^7Yit*b6QVqgu_X(xI$dCdpTJGcJex0G0>z6IGjX2 zMoHq-iP?w}O$zRxu@L#fq(m9&SS8UTi|I;Ng#ME96aO{iZ z-x#ulR$_6K1!mMLuXsjvR-AF(l9-aXLImI{RM`hx-B(i_r0A?roL!LPs+FZyL@7bR zwo17S<%S(Iy+Wgjy4`}fDn!|r2&O5&ED^UB2km6FqE^>8!}ccJ26s)m_3b_BHK1O|1)7=&AGyOd zDMrYQ#g7U*=t~TfDz^O+W)%Z{yurITuNwI@k>3M1245MK{X@|WNJ;fmZ63Qpp`!R- zZLqeY%=Sv382KzLhz85W{CtKk_}gnhxD8}T?a|R^~SI(xPC%d-i zFnzo{_yPO{>(pDqE~Dd%hMNi8KfCzin~}!QwZ$N2a0Fh6N>o<`I%xD-BA=%Z$1ePD zjf!TKHeLbV#(6_3`yYphO`wQ1%{8`_0+eU^vECn1Zn5OAJxo59H}1$ekfElk9V}vP z-Zdy$bmfdN<|ZAsJlIiqoiZk^)0e{bS)=b-5oiouQ;Y&)Dn#;3^)9Zr9zEfoF?!Xq~=v^Ji*T)1fhRO)-K_TYb+p;EDOUvyflMxPG~p>!qPD!;*0Yz7QV%`8eyWA14-vc{ThuHxxPF1KV`N(Mk zayZJ@NQ_Qj7;Y}`({noxFb2+{i@_QG!8yuVHz1ejZvnV#xJP5S$w+A{hpoLftFdX| qnUQMWg76NQUj47L{!c>xF8l*aGrj%_{9RK30000BbKotH8mU0c!n)r*2$vAdng~;E)+{HmARyU%F zzosf0WzcBCj{g7&e}U<29QYGzG*J?hdiUBh2eb@^jjy@)dhfgM-Mx1$AYo7W1TeS` z;4?MmMNR{X2y=08B|XPn*ra9323A0`)tf#Aorucm|J+~(23dxWi6}41a*4}89_CHY zqGgM6w_uWn!Qu}?yPj+6vJo74H5F^aS=3<{0B!PmskmYMdOSfz^_ae3veS&^&|T#v zV_bh(W`Q(5`eBv7NzKS}nT{Qvs){Ci~X$pSV1NS$1oHq8D=;7dR>?>P?0_9v_k#%xENl!3IFzD* z3k(Gl7#R2y6c!wq@Qr~JC}MD-M8JTt0Bj(aCj&nN!vtas!VP#CIAF{PJPaQY5(Yqv z4Fn4089p;KfSkg`&k0lvRKU;A#mdI81Z;5v11rcU1|SWb4M2swl(~j%!1#fIJ%JZB zET(};FR-*E!+QqK#&$LX5R-wk04VlhCc}Tm0EV}m6F^J`evoFi0EPzU0!{_?2@LE9 z5*RqZ2AY>M@Gg|T0E}?X4h9D13sB<=8GyQOf|>JSR`UM^k#m6<9;!430DV&~O-h-R QW&i*H07*qoM6N<$f>)Y?{{R30 diff --git a/docs/html/img94.png b/docs/html/img94.png deleted file mode 100644 index d92528021402059ab8cd2eb5558113c66aff72e3..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 252 zcmeAS@N?(olHy`uVBq!ia0vp^B0wz5!py+HsJ}ij0mv~3@CkAK|NsBYnKM&UQ=Ofi z-@SXMsHk}6%$ZfIR&{iAl$Di*goFSU8W|bgy?a+cKw$Uo-F@BppMgS*B|(0{3=Yq3 zqyafqo-U3d5>t~C5)vL{Cp0iJT6AxXZDeFFaCqtEqbc!V{s+YejLglJhYxWpykozk zHIeag3%@Y8goIj6%8mmEjvY9|DWdg!D%DDji<&I~Z(dW}eN?EVDt| yK$T&o4_lk2!z&f$!!j&K=N!mm2ztzHBE?W!#8dd&F18nFID@CFpUXO@geCy=z(Ah> diff --git a/docs/html/img97.png b/docs/html/img97.png deleted file mode 100644 index e7744ab3c0a3a94f8c79eadd4b06a4b76a9b513f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 440 zcmV;p0Z0CcP)zQn5uMCVouYH3%wJOTky>Q4V=&_u?Bthx|}BBZf2pfF>+_x$ov@{_zt(NLzmWzqjN z;4RDlMYzUg(RYFU>Xgj{P7p{S_NvkSEjJnb5Qu=|b@6Sh*Q9Vn;P!v5iX+BC`U(`Y9VmH_4CWz2Yv4im+WKbN9 zi&zjX{R75D6e?B_T=NHnfP-tGlZw#QL5Os5^uDC@gJkHShzIiSz2}|#l?M#)D34kd zHH;&)0Tq$FLI#{zUx2mE>|GwbOgdgWqnNpLM0t&-EN=l0RWL*vD{?H+*VYZw@gYzG z3mp$WHNI1dl`4%cV8Y;785@lcy(zc)QLv%cq)+J3$oTyM=gHw>&?Xp-7b<|xU8@MO zFG(AXEeHd!(Ay~>FjHmOL`>;QbHR;0Uz22v8S6|sDqM}JfSXpN2UjpLNQ&q;HvVI< zRp5~9%R>?tVyO0npc^nhajw$Xs3zuu9zaY8O&^=mssUzwXy+%QD`Rf)c|30000< KMNUMnLSTYELgOR= diff --git a/docs/html/img99.png b/docs/html/img99.png deleted file mode 100644 index 302cd0093a0c6fcd351ccfcebc3d6d42d41c32dd..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 229 zcmeAS@N?(olHy`uVBq!ia0vp^fCnKP?at?KCLC@U)isxmS%x_kGofPld6-MhcXoAv{R7)yfuf*Bm1-ADs+ z(mY)pLpWw8CjbFcQd!anV@H<7Du->Su_nAVmb_Q!$FT7RlZ4csiUV0^PD}EgHZ)*h Y*y<$6>&|~=2GB+ZPgg&ebxsLQ01K;3t^fc4 diff --git a/docs/html/index.html b/docs/html/index.html deleted file mode 100644 index cccebd92f..000000000 --- a/docs/html/index.html +++ /dev/null @@ -1,414 +0,0 @@ - - - - - -userhtml - - - - - - - - - - - - - - - -
      - -next -up -previous - -contents -
      - Next: Contents -   Contents -
      -
      - -language=Fortran - -

      -PSBLAS -
      -
      -User's and Reference - Guide       -
      A reference guide for the Parallel Sparse BLAS library -
      -
      -
      -
      Salvatore Filippone -
      -Alfredo Buttari       -
      -Software version: 3.6.0 -
      -Dec 1st, 2018 - -

      - - - - - -
      - - - diff --git a/docs/html/internals.pl b/docs/html/internals.pl deleted file mode 100644 index f4977f148..000000000 --- a/docs/html/internals.pl +++ /dev/null @@ -1,206 +0,0 @@ -# LaTeX2HTML 2018 (Released Feb 1, 2018) -# Associate internals original text with physical files. - - -$key = q/cite_2007c/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_2007d/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLACS/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS1/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS2/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS3/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_DesPat:11/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_DesignPatterns/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_KIVA3PSBLAS/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_METIS/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_MPI1/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_PARA04FOREST/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_PSBLAS/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_RouXiaXu:11/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_Sparse03/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_machiels/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_metcalf/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_sblas02/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_sblas97/; -$ref_files{$key} = "$dir".q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_con/; -$ref_files{$key} = "$dir".q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_no_tra/; -$ref_files{$key} = "$dir".q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_tra/; -$ref_files{$key} = "$dir".q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:desctype/; -$ref_files{$key} = "$dir".q|node10.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:errormsg/; -$ref_files{$key} = "$dir".q|node120.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:points/; -$ref_files{$key} = "$dir".q|node4.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:prectype/; -$ref_files{$key} = "$dir".q|node50.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:psblas/; -$ref_files{$key} = "$dir".q|node3.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:routerr/; -$ref_files{$key} = "$dir".q|node120.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:spmattype/; -$ref_files{$key} = "$dir".q|node23.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8/; -$ref_files{$key} = "$dir".q|node70.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8_ov/; -$ref_files{$key} = "$dir".q|node71.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:vectype/; -$ref_files{$key} = "$dir".q|node43.html|; -$noresave{$key} = "$nosave"; - -$key = q/krylov/; -$ref_files{$key} = "$dir".q|node136.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:appstruct/; -$ref_files{$key} = "$dir".q|node6.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:cd_constants/; -$ref_files{$key} = "$dir".q|node22.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:datastruct/; -$ref_files{$key} = "$dir".q|node9.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:desc/; -$ref_files{$key} = "$dir".q|node10.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:intro/; -$ref_files{$key} = "$dir".q|node2.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:methods/; -$ref_files{$key} = "$dir".q|node135.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:overview/; -$ref_files{$key} = "$dir".q|node3.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:parenv/; -$ref_files{$key} = "$dir".q|node102.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:prec/; -$ref_files{$key} = "$dir".q|node50.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:precs/; -$ref_files{$key} = "$dir".q|node128.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:psprecs/; -$ref_files{$key} = "$dir".q|node128.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:sp_constants/; -$ref_files{$key} = "$dir".q|node42.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:spmat/; -$ref_files{$key} = "$dir".q|node23.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:toolsrout/; -$ref_files{$key} = "$dir".q|node74.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:usermaps/; -$ref_files{$key} = "$dir".q|node7.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:util/; -$ref_files{$key} = "$dir".q|node121.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:vecttype/; -$ref_files{$key} = "$dir".q|node43.html|; -$noresave{$key} = "$nosave"; - -1; - diff --git a/docs/html/labels.pl b/docs/html/labels.pl deleted file mode 100644 index 3c07d876a..000000000 --- a/docs/html/labels.pl +++ /dev/null @@ -1,421 +0,0 @@ -# LaTeX2HTML 2018 (Released Feb 1, 2018) -# Associate labels original text with physical files. - - -$key = q/cite_2007c/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_2007d/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLACS/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS1/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS2/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_BLAS3/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_DesPat:11/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_DesignPatterns/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_KIVA3PSBLAS/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_METIS/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_MPI1/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_PARA04FOREST/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_PSBLAS/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_RouXiaXu:11/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_Sparse03/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_machiels/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_metcalf/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_sblas02/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/cite_sblas97/; -$external_labels{$key} = "$URL/" . q|node137.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_con/; -$external_labels{$key} = "$URL/" . q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_no_tra/; -$external_labels{$key} = "$URL/" . q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_tra/; -$external_labels{$key} = "$URL/" . q|node64.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:desctype/; -$external_labels{$key} = "$URL/" . q|node10.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:errormsg/; -$external_labels{$key} = "$URL/" . q|node120.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:points/; -$external_labels{$key} = "$URL/" . q|node4.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:prectype/; -$external_labels{$key} = "$URL/" . q|node50.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:psblas/; -$external_labels{$key} = "$URL/" . q|node3.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:routerr/; -$external_labels{$key} = "$URL/" . q|node120.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:spmattype/; -$external_labels{$key} = "$URL/" . q|node23.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8/; -$external_labels{$key} = "$URL/" . q|node70.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8_ov/; -$external_labels{$key} = "$URL/" . q|node71.html|; -$noresave{$key} = "$nosave"; - -$key = q/fig:vectype/; -$external_labels{$key} = "$URL/" . q|node43.html|; -$noresave{$key} = "$nosave"; - -$key = q/krylov/; -$external_labels{$key} = "$URL/" . q|node136.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:appstruct/; -$external_labels{$key} = "$URL/" . q|node6.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:cd_constants/; -$external_labels{$key} = "$URL/" . q|node22.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:datastruct/; -$external_labels{$key} = "$URL/" . q|node9.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:desc/; -$external_labels{$key} = "$URL/" . q|node10.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:intro/; -$external_labels{$key} = "$URL/" . q|node2.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:methods/; -$external_labels{$key} = "$URL/" . q|node135.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:overview/; -$external_labels{$key} = "$URL/" . q|node3.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:parenv/; -$external_labels{$key} = "$URL/" . q|node102.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:prec/; -$external_labels{$key} = "$URL/" . q|node50.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:precs/; -$external_labels{$key} = "$URL/" . q|node128.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:psprecs/; -$external_labels{$key} = "$URL/" . q|node128.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:sp_constants/; -$external_labels{$key} = "$URL/" . q|node42.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:spmat/; -$external_labels{$key} = "$URL/" . q|node23.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:toolsrout/; -$external_labels{$key} = "$URL/" . q|node74.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:usermaps/; -$external_labels{$key} = "$URL/" . q|node7.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:util/; -$external_labels{$key} = "$URL/" . q|node121.html|; -$noresave{$key} = "$nosave"; - -$key = q/sec:vecttype/; -$external_labels{$key} = "$URL/" . q|node43.html|; -$noresave{$key} = "$nosave"; - -1; - - -# LaTeX2HTML 2018 (Released Feb 1, 2018) -# labels from external_latex_labels array. - - -$key = q/_/; -$external_latex_labels{$key} = q|<|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_con/; -$external_latex_labels{$key} = q|3|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_no_tra/; -$external_latex_labels{$key} = q|1|; -$noresave{$key} = "$nosave"; - -$key = q/eq:f90spmm_tra/; -$external_latex_labels{$key} = q|2|; -$noresave{$key} = "$nosave"; - -$key = q/fig:desctype/; -$external_latex_labels{$key} = q|3|; -$noresave{$key} = "$nosave"; - -$key = q/fig:errormsg/; -$external_latex_labels{$key} = q|10|; -$noresave{$key} = "$nosave"; - -$key = q/fig:points/; -$external_latex_labels{$key} = q|2|; -$noresave{$key} = "$nosave"; - -$key = q/fig:prectype/; -$external_latex_labels{$key} = q|6|; -$noresave{$key} = "$nosave"; - -$key = q/fig:psblas/; -$external_latex_labels{$key} = q|1|; -$noresave{$key} = "$nosave"; - -$key = q/fig:routerr/; -$external_latex_labels{$key} = q|9|; -$noresave{$key} = "$nosave"; - -$key = q/fig:spmattype/; -$external_latex_labels{$key} = q|4|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8/; -$external_latex_labels{$key} = q|7|; -$noresave{$key} = "$nosave"; - -$key = q/fig:try8x8_ov/; -$external_latex_labels{$key} = q|8|; -$noresave{$key} = "$nosave"; - -$key = q/fig:vectype/; -$external_latex_labels{$key} = q|5|; -$noresave{$key} = "$nosave"; - -$key = q/krylov/; -$external_latex_labels{$key} = q|11|; -$noresave{$key} = "$nosave"; - -$key = q/sec:appstruct/; -$external_latex_labels{$key} = q|2.3|; -$noresave{$key} = "$nosave"; - -$key = q/sec:cd_constants/; -$external_latex_labels{$key} = q|3.1.2|; -$noresave{$key} = "$nosave"; - -$key = q/sec:datastruct/; -$external_latex_labels{$key} = q|3|; -$noresave{$key} = "$nosave"; - -$key = q/sec:desc/; -$external_latex_labels{$key} = q|3.1|; -$noresave{$key} = "$nosave"; - -$key = q/sec:intro/; -$external_latex_labels{$key} = q|1|; -$noresave{$key} = "$nosave"; - -$key = q/sec:methods/; -$external_latex_labels{$key} = q|11|; -$noresave{$key} = "$nosave"; - -$key = q/sec:overview/; -$external_latex_labels{$key} = q|2|; -$noresave{$key} = "$nosave"; - -$key = q/sec:parenv/; -$external_latex_labels{$key} = q|7|; -$noresave{$key} = "$nosave"; - -$key = q/sec:prec/; -$external_latex_labels{$key} = q|3.4|; -$noresave{$key} = "$nosave"; - -$key = q/sec:precs/; -$external_latex_labels{$key} = q|10|; -$noresave{$key} = "$nosave"; - -$key = q/sec:psprecs/; -$external_latex_labels{$key} = q|10|; -$noresave{$key} = "$nosave"; - -$key = q/sec:sp_constants/; -$external_latex_labels{$key} = q|3.2.2|; -$noresave{$key} = "$nosave"; - -$key = q/sec:spmat/; -$external_latex_labels{$key} = q|3.2|; -$noresave{$key} = "$nosave"; - -$key = q/sec:toolsrout/; -$external_latex_labels{$key} = q|6|; -$noresave{$key} = "$nosave"; - -$key = q/sec:usermaps/; -$external_latex_labels{$key} = q|2.3.1|; -$noresave{$key} = "$nosave"; - -$key = q/sec:util/; -$external_latex_labels{$key} = q|9|; -$noresave{$key} = "$nosave"; - -$key = q/sec:vecttype/; -$external_latex_labels{$key} = q|3.3|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90amax/; -$external_latex_labels{$key} = q|4|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90asum/; -$external_latex_labels{$key} = q|6|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90asums/; -$external_latex_labels{$key} = q|7|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90axpby/; -$external_latex_labels{$key} = q|1|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90div/; -$external_latex_labels{$key} = q|15|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90dot/; -$external_latex_labels{$key} = q|2|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90halo/; -$external_latex_labels{$key} = q|17|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90inv/; -$external_latex_labels{$key} = q|16|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90mamax/; -$external_latex_labels{$key} = q|5|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90mdot/; -$external_latex_labels{$key} = q|3|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90mlt/; -$external_latex_labels{$key} = q|14|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90nrm1/; -$external_latex_labels{$key} = q|10|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90nrm2/; -$external_latex_labels{$key} = q|8|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90nrm2s/; -$external_latex_labels{$key} = q|9|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90nrmi/; -$external_latex_labels{$key} = q|11|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90ovrl/; -$external_latex_labels{$key} = q|18|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90spmm/; -$external_latex_labels{$key} = q|12|; -$noresave{$key} = "$nosave"; - -$key = q/tab:f90spsm/; -$external_latex_labels{$key} = q|13|; -$noresave{$key} = "$nosave"; - -$key = q/tab:gather/; -$external_latex_labels{$key} = q|19|; -$noresave{$key} = "$nosave"; - -$key = q/tab:scatter/; -$external_latex_labels{$key} = q|20|; -$noresave{$key} = "$nosave"; - -1; - diff --git a/docs/html/next.png b/docs/html/next.png deleted file mode 100644 index 1628652aac7cff4b24228abd9908c320c6026a7c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 245 zcmVQ2aP`rsfsL)H8>rF50IrEKQ7U2mrM!9=R9*Dw1X+@W9RTx^a-#5T6$bi^4|h!q3s vo9V3RdqZP$JTTh9!JZ)`voZLAB<&|;0_>J~#QNZkD16SAR=O4@7anKqmC5&ngT;#rH1+qK z20S~FlZynq-MY=T{~%>KNs884sExd44P^%bf!zNDPxW#x21^f><@$FgzM-=J5cLN5 WGDyh~oC>l40000 - - - - -Contents - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous -
      - Next: Introduction - Up: userhtml - Previous: userhtml -
      -
      - -
      - -

      -Contents -

      - - - - -

      - -

      - -

      -

      - - - diff --git a/docs/html/node10.html b/docs/html/node10.html deleted file mode 100644 index c4571f559..000000000 --- a/docs/html/node10.html +++ /dev/null @@ -1,298 +0,0 @@ - - - - - -Descriptor data structure - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Descriptor Methods - Up: Data Structures and Classes - Previous: Data Structures and Classes -   Contents -
      -
      - - -

      - -
      -Descriptor data structure -

      -All the general matrix informations and elements to be -exchanged among processes are stored within a data structure of the -type descdatapsb_desc_type. -Every structure of this type is associated with a discretization -pattern and enables data communications and other operations that are -necessary for implementing the various algorithms of interest to us. - -

      -The data structure itself psb_desc_type can be treated as an -opaque object handled via the tools routines of -Sec. 6 or the query routines detailed below; -nevertheless we include here a description for the curious -reader. - -

      -First we describe the psb_indx_map type. This is a data -structure that keeps track of a certain number of basic issues such -as: - -

        -
      • The value of the communication/MPI context; -
        • -
      • The number of indices in the index space, i.e. global number of - rows and columns of a sparse matrix; -
        • -
      • The local set of indices, including: - -
          -
        • The number of local indices (and local rows); -
          • -
        • The number of halo indices (and therefore local columns); -
          • -
        • The global indices corresponding to the local ones. -
          • -
        -
        • -
      -There are many different schemes for storing these data; therefore -there are a number of types extending the base one, and the descriptor -structure holds a polymorphic object whose dynamic type can be any of -the extended types. -The methods associated with this data type answer the following -queries: - -
        -
      • For a given set of local indices, find the corresponding indices - in the global numbering; -
        • -
      • For a given set of global indices, find the corresponding - indices in the local numbering, if any, or return an invalid -
        • -
      • Add a global index to the set of halo indices; -
        • -
      • Find the process owner of each member of a set of global - indices. -
        • -
      -All methods but the last are purely local; the last method potentially -requires communication among processes, and thus is a synchronous -method. The choice of a specific dynamic type for the index map is -made at the time the descriptor is initially allocated, according to -the mode of initialization (see also 6). - -

      -The descriptor contents are as follows: -

      -
      indxmap
      -
      A polymorphic variable of a type that is any - extension of the indx_map type described above. -
      -
      halo_index
      -
      A list of the halo and boundary elements for -the current process to be exchanged with other processes; for each -processes with which it is necessary to communicate: - -
        -
      1. Process identifier; -
        2. -
      2. Number of points to be received; -
        3. -
      3. Indices of points to be received; -
        4. -
      4. Number of points to be sent; -
        5. -
      5. Indices of points to be sent; -
        6. -
      -Specified as: a vector of integer type, see 3.3. -
      -
      ext_index
      -
      A list of element indices to be exchanged to - implement the mapping between a base descriptor and a descriptor - with overlap. -
      -Specified as: a vector of integer type, see 3.3. -
      -
      ovrlap_index
      -
      A list of the overlap elements for the -current process, organized in groups like the previous vector: - -
        -
      1. Process identifier; -
        2. -
      2. Number of points to be received; -
        3. -
      3. Indices of points to be received; -
        4. -
      4. Number of points to be sent; -
        5. -
      5. Indices of points to be sent; -
        6. -
      -Specified as: a vector of integer type, see 3.3. -
      -
      ovr_mst_idx
      -
      A list to retrieve the value of each - overlap element from the respective master process. -
      -Specified as: a vector of integer type, see 3.3. -
      -
      ovrlap_elem
      -
      For all overlap points belonging to th -ecurrent process: - -
        -
      1. Overlap point index; -
        2. -
      2. Number of processes sharing that overlap points; -
        3. -
      3. Index of a “master” process: -
        4. -
      -Specified as: an allocatable integer array of rank two. -
      -
      bnd_elem
      -
      A list of all boundary points, i.e. points - that have a connection with other processes. -
      -
      -The Fortran 2003 declaration for psb_desc_type structures is -as follows: - -
      - - - -
      Figure 3: -The PSBLAS defined data type that - contains the communication descriptor.
      -
      - -
      -
       
-type psb_desc_type 
-    class(psb_indx_map), allocatable :: indxmap
-    type(psb_i_vect_type) :: v_halo_index
-    type(psb_i_vect_type) :: v_ext_index
-    type(psb_i_vect_type) :: v_ovrlap_index
-    type(psb_i_vect_type) :: v_ovr_mst_idx 
-    integer, allocatable  :: ovrlap_elem(:,:)
-    integer, allocatable  :: bnd_elem(:)
-end type psb_desc_type
-
      -
      -
      -
      -A communication descriptor associated with a sparse matrix has a -state, which can take the following values: -
      -
      Build:
      -
      State entered after the first allocation, and before the - first assembly; in this state it is possible to add communication - requirements among different processes. -
      -
      Assembled:
      -
      State entered after the assembly; computations using - the associated sparse matrix, such as matrix-vector products, are - only possible in this state. -
      -
      - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: Descriptor Methods - Up: Data Structures and Classes - Previous: Data Structures and Classes -   Contents
      - - - - diff --git a/docs/html/node100.html b/docs/html/node100.html deleted file mode 100644 index dac90c998..000000000 --- a/docs/html/node100.html +++ /dev/null @@ -1,125 +0,0 @@ - - - - - -psb_sizeof -- Memory occupation - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Sorting utilities - Up: Data management routines - Previous: psb_sp_getrow Extract -   Contents -
      -
      - - -

      -psb_sizeof -- Memory occupation -

      - -

      -This function computes the memory occupation of a PSBLAS object. - -

      -

      -isz = psb_sizeof(a)
-isz = psb_sizeof(desc_a)
-isz = psb_sizeof(prec)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      A sparse matrix -$A$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      Communication descriptor. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      prec
      -
      Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      On Return
      -
      -
      -
      Function value
      -
      The memory occupation of the object specified in - the calling sequence, in bytes. -
      -Scope: local -
      -Returned as: an integer(psb_long_int_k_) number. -
      -
      - -

      -

      - - - diff --git a/docs/html/node101.html b/docs/html/node101.html deleted file mode 100644 index 50a232c89..000000000 --- a/docs/html/node101.html +++ /dev/null @@ -1,291 +0,0 @@ - - - - - -Sorting utilities -- - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Parallel environment routines - Up: Data management routines - Previous: psb_sizeof Memory -   Contents -
      -
      - - -

      -Sorting utilities -- -

      - -

      -psb_msort -- Sorting by the Merge-sort - algorithm - -

      -psb_qsort -- Sorting by the Quicksort - algorithm - -

      -psb_hsort -- Sorting by the Heapsort algorithm -

      -call psb_msort(x,ix,dir,flag)
-call psb_qsort(x,ix,dir,flag)
-call psb_hsort(x,ix,dir,flag)
-
      - -

      -These serial routines sort a sequence $X$ 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). -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      The sequence to be sorted. -
      -Type:required. -
      -Specified as: an integer, real or complex array of rank 1. -
      -
      ix
      -
      A vector of indices. -
      -Type:optional. -
      -Specified as: an integer array of (at least) the same size as $X$. -
      -
      dir
      -
      The desired ordering. -
      -Type:optional. -
      -Specified as: an integer value:
      -
      Integer and real data:
      -
      psb_sort_up_, -psb_sort_down_, psb_asort_up_, psb_asort_down_; -default psb_sort_up_. -
      -
      Complex data:
      -
      psb_lsort_up_, -psb_lsort_down_, psb_asort_up_, psb_asort_down_; -default psb_lsort_up_. -
      -
      -
      -
      flag
      -
      Whether to keep the original values in $IX$. -
      -Type:optional. -
      -Specified as: an integer value psb_sort_ovw_idx_ or -psb_sort_keep_idx_; default psb_sort_ovw_idx_. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      The sequence of values, in the chosen ordering. -
      -Type:required. -
      -Specified as: an integer, real or complex array of rank 1. -
      -
      ix
      -
      A vector of indices. -
      -Type: Optional -
      -An integer array of rank 1, whose entries are moved to the same -position as the corresponding entries in $x$. -
      -
      - -

      - -

      -Notes - -

        -
      1. For integer or real data the sorting can be performed in the up/down direction, on the - natural or absolute values; -
        2. -
      2. For complex data the sorting can be done in a lexicographic - order (i.e.: sort on the real part with ties broken according to - the imaginary part) or on the absolute values; -
        3. -
      3. The routines return the items in the chosen ordering; the - output difference is the handling of ties (i.e. items with an - equal value) in the original input. With the merge-sort algorithm - ties are preserved in the same relative order as they had in the - original sequence, while this is not guaranteed for quicksort or - heapsort; -
        4. -
      4. If -$flag = psb\_sort\_ovw\_idx\_$ then the entries in $ix(1:n)$ - where $n$ is the size of $x$ are initialized to -$ix(i) \leftarrow -i$; thus, upon return from the subroutine, for each - index $i$ we have in $ix(i)$ the position that the item $x(i)$ - occupied in the original data sequence; -
        5. -
      5. If -$flag = psb\_sort\_keep\_idx\_$ the routine will assume that - the entries in $ix(:)$ have already been initialized by the user; -
        6. -
      6. The three sorting algorithms have a similar $O(n \log n)$ expected - running time; in the average case quicksort will be the - fastest and merge-sort the slowest. However note that: - -
          -
        1. The worst case running time for quicksort is $O(n^2)$; the algorithm - implemented here follows the well-known median-of-three heuristics, - but the worst case may still apply; -
          2. -
        2. The worst case running time for merge-sort and heap-sort is - $O(n \log n)$ as the average case; -
          3. -
        3. The merge-sort algorithm is implemented to take advantage of - subsequences that may be already in the desired ordering prior to - the subroutine call; this situation is relatively common when - dealing with groups of indices of sparse matrix entries, thus - merge-sort is the preferred choice when a sorting is needed - by other routines in the library. -
          4. -
        -
        7. -
      - -

      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Parallel environment routines - Up: Data management routines - Previous: psb_sizeof Memory -   Contents
      - - - - diff --git a/docs/html/node102.html b/docs/html/node102.html deleted file mode 100644 index 10f2e3675..000000000 --- a/docs/html/node102.html +++ /dev/null @@ -1,106 +0,0 @@ - - - - - -Parallel environment routines - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_init Initializes - Up: userhtml - Previous: Sorting utilities -   Contents -
      -
      - - -

      - -
      -Parallel environment routines -

      - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node103.html b/docs/html/node103.html deleted file mode 100644 index 419c426d2..000000000 --- a/docs/html/node103.html +++ /dev/null @@ -1,177 +0,0 @@ - - - - - -psb_init -- Initializes PSBLAS parallel environment - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_info Return - Up: Parallel environment routines - Previous: Parallel environment routines -   Contents -
      -
      - - -

      -psb_init -- Initializes PSBLAS parallel - environment -

      - -

      -

      -call psb_init(icontxt, np, basectxt, ids)
-
      - -

      -This subroutine initializes the PSBLAS parallel environment, defining -a virtual parallel machine. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      np
      -
      Number of processes in the PSBLAS virtual parallel machine. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value. Default: use all available processes. -
      -
      basectxt
      -
      the initial communication context. The new context - will be defined from the processes participating in the initial one. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value. Default: use MPI_COMM_WORLD. -
      -
      ids
      -
      Identities of the processes to use for the new context; the - argument is ignored when np is not specified. This allows the - processes in the new environment to be in an order different from the - original one. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer array. Default: use the indices $(0\dots np-1)$. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. Note that this is always a duplicate of - basectxt, so that library communications are completely - separated from other communication operations. -
      -Scope: global. -
      -Type: required. -
      -Intent: out. -
      -Specified as: an integer variable. -
      -
      - -

      -Notes - -

        -
      1. A call to this routine must precede any other PSBLAS call. -
        2. -
      2. It is an error to specify a value for $np$ greater than the - number of processes available in the underlying base parallel - environment. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_info Return - Up: Parallel environment routines - Previous: Parallel environment routines -   Contents
      - - - - diff --git a/docs/html/node104.html b/docs/html/node104.html deleted file mode 100644 index 6eda8e7e9..000000000 --- a/docs/html/node104.html +++ /dev/null @@ -1,146 +0,0 @@ - - - - - -psb_info -- Return information about PSBLAS parallel environment - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_exit Exit - Up: Parallel environment routines - Previous: psb_init Initializes -   Contents -
      -
      - - -

      -psb_info -- Return information about PSBLAS parallel - environment -

      - -

      -

      -call psb_info(icontxt, iam, np)
-
      - -

      -This subroutine returns information about the PSBLAS parallel environment, defining -a virtual parallel machine. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      iam
      -
      Identifier of current process in the PSBLAS virtual parallel machine. -
      -Scope: local. -
      -Type: required. -
      -Intent: out. -
      -Specified as: an integer value. -$-1 \le iam \le np-1$
      -
      np
      -
      Number of processes in the PSBLAS virtual parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: out. -
      -Specified as: an integer variable.
      -
      - -

      -Notes - -

        -
      1. For processes in the virtual parallel machine the identifier - will satisfy -$0 \le iam \le np-1$; -
        2. -
      2. If the user has requested on psb_init a number of - processes less than the total available in the parallel execution - environment, the remaining processes will have on return $iam=-1$; - the only call involving icontxt that any such process may - execute is to psb_exit. -
        3. -
      - -

      -

      - - - diff --git a/docs/html/node105.html b/docs/html/node105.html deleted file mode 100644 index a9efb2cb1..000000000 --- a/docs/html/node105.html +++ /dev/null @@ -1,149 +0,0 @@ - - - - - -psb_exit -- Exit from PSBLAS parallel environment - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_get_mpicomm Get - Up: Parallel environment routines - Previous: psb_info Return -   Contents -
      -
      - - -

      -psb_exit -- Exit from PSBLAS parallel - environment -

      - -

      -

      -call psb_exit(icontxt)
-call psb_exit(icontxt,close)
-
      - -

      -This subroutine exits from the PSBLAS parallel virtual machine. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      close
      -
      Whether to close all data structures related to the - virtual parallel machine, besides those associated with icontxt. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical variable, default value: true. -
      -
      - -

      -Notes - -

        -
      1. This routine may be called even if a previous call to - psb_info has returned with $iam=-1$; indeed, it it is the only - routine that may be called with argument icontxt in this - situation. -
        2. -
      2. A call to this routine with close=.true. implies a call - to MPI_Finalize, after which no parallel routine may be called. -
        3. -
      3. If the user whishes to use multiple communication contexts in the - same program, or to enter and exit multiple times into the parallel - environment, this routine may be called to - selectively close the contexts with close=.false., while on - the last call it should be called with close=.true. to - shutdown in a clean way the entire parallel environment. -
        4. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_get_mpicomm Get - Up: Parallel environment routines - Previous: psb_info Return -   Contents
      - - - - diff --git a/docs/html/node106.html b/docs/html/node106.html deleted file mode 100644 index 047d0ff4f..000000000 --- a/docs/html/node106.html +++ /dev/null @@ -1,103 +0,0 @@ - - - - - -psb_get_mpicomm -- Get the MPI communicator - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_get_rank Get - Up: Parallel environment routines - Previous: psb_exit Exit -   Contents -
      -
      - - -

      -psb_get_mpicomm -- Get the MPI communicator -

      - -

      -

      -call psb_get_mpicomm(icontxt, icomm)
-
      - -

      -This subroutine returns the MPI communicator associated with a PSBLAS context -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      icomm
      -
      The MPI communicator associated with the PSBLAS virtual parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: out. -
      -
      - -

      -

      - - - diff --git a/docs/html/node107.html b/docs/html/node107.html deleted file mode 100644 index a7b9c7202..000000000 --- a/docs/html/node107.html +++ /dev/null @@ -1,125 +0,0 @@ - - - - - -psb_get_rank -- Get the MPI rank - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_wtime Wall - Up: Parallel environment routines - Previous: psb_get_mpicomm Get -   Contents -
      -
      - - -

      -psb_get_rank -- Get the MPI rank -

      - -

      -

      -call psb_get_rank(rank, icontxt, id)
-
      - -

      -This subroutine returns the MPI rank of the PSBLAS process $id$ -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      id
      -
      Identifier of a process in the PSBLAS virtual parallel machine. -
      -Scope: local. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer value. -$0 \le id \le np-1$
      -
      - -

      -

      -
      On Return
      -
      -
      -
      rank
      -
      The MPI rank associated with the PSBLAS process $id$. -
      -Scope: local. -
      -Type: required. -
      -Intent: out. -
      -
      - -

      -

      - - - diff --git a/docs/html/node108.html b/docs/html/node108.html deleted file mode 100644 index 813dd87f9..000000000 --- a/docs/html/node108.html +++ /dev/null @@ -1,81 +0,0 @@ - - - - - -psb_wtime -- Wall clock timing - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_barrier Sinchronization - Up: Parallel environment routines - Previous: psb_get_rank Get -   Contents -
      -
      - - -

      -psb_wtime -- Wall clock timing -

      - -

      -

      -time = psb_wtime()
-
      - -

      -This function returns a wall clock timer. The resolution of the timer -is dependent on the underlying parallel environment implementation. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Exit
      -
      -
      -
      Function value
      -
      the elapsed time in seconds. -
      -Returned as: a real(psb_dpk_) variable. -
      -
      - -

      -

      - - - diff --git a/docs/html/node109.html b/docs/html/node109.html deleted file mode 100644 index e97259523..000000000 --- a/docs/html/node109.html +++ /dev/null @@ -1,89 +0,0 @@ - - - - - -psb_barrier -- Sinchronization point parallel environment - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_abort Abort - Up: Parallel environment routines - Previous: psb_wtime Wall -   Contents -
      -
      - - -

      -psb_barrier -- Sinchronization point parallel - environment -

      - -

      -

      -call psb_barrier(icontxt)
-
      - -

      -This subroutine acts as an explicit synchronization point for the PSBLAS -parallel virtual machine. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      - -

      -

      - - - diff --git a/docs/html/node11.html b/docs/html/node11.html deleted file mode 100644 index 4952cd9bd..000000000 --- a/docs/html/node11.html +++ /dev/null @@ -1,59 +0,0 @@ - - - - - -Descriptor Methods - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_local_rows Get - Up: Descriptor data structure - Previous: Descriptor data structure -   Contents -
      -
      - - -

      -Descriptor Methods -

      - -

      -

      - - - diff --git a/docs/html/node110.html b/docs/html/node110.html deleted file mode 100644 index df63b41ce..000000000 --- a/docs/html/node110.html +++ /dev/null @@ -1,87 +0,0 @@ - - - - - -psb_abort -- Abort a computation - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_bcast Broadcast - Up: Parallel environment routines - Previous: psb_barrier Sinchronization -   Contents -
      -
      - - -

      -psb_abort -- Abort a computation -

      - -

      -

      -call psb_abort(icontxt)
-
      - -

      -This subroutine aborts computation on the parallel virtual machine. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      - -

      -

      - - - diff --git a/docs/html/node111.html b/docs/html/node111.html deleted file mode 100644 index febe6db20..000000000 --- a/docs/html/node111.html +++ /dev/null @@ -1,136 +0,0 @@ - - - - - -psb_bcast -- Broadcast data - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_sum Global - Up: Parallel environment routines - Previous: psb_abort Abort -   Contents -
      -
      - - -

      -psb_bcast -- Broadcast data -

      - -

      -

      -call psb_bcast(icontxt, dat, root)
-
      - -

      -This subroutine implements a broadcast operation based on the -underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      On the root process, the data to be broadcast. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical variable, -which may be a scalar or rank 1 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Root process holding data to be broadcast. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$0<= root <= np-1$, default 0
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On processes other than root, the data to be broadcast. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind, rank and size must agree on all processes. -
      -
      - -

      -

      - - - diff --git a/docs/html/node112.html b/docs/html/node112.html deleted file mode 100644 index 7038a6b64..000000000 --- a/docs/html/node112.html +++ /dev/null @@ -1,177 +0,0 @@ - - - - - -psb_sum -- Global sum - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_max Global - Up: Parallel environment routines - Previous: psb_bcast Broadcast -   Contents -
      -
      - - -

      -psb_sum -- Global sum -

      - -

      -

      -call psb_sum(icontxt, dat, root)
-
      - -

      -This subroutine implements a sum reduction operation based on the -underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global sum. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final sum, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1.
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the sum operation. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. -
      -Type, kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        2. -
      2. The dat argument may also be a long integer scalar. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_max Global - Up: Parallel environment routines - Previous: psb_bcast Broadcast -   Contents
      - - - - diff --git a/docs/html/node113.html b/docs/html/node113.html deleted file mode 100644 index f1e003d07..000000000 --- a/docs/html/node113.html +++ /dev/null @@ -1,176 +0,0 @@ - - - - - -psb_max -- Global maximum - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_min Global - Up: Parallel environment routines - Previous: psb_sum Global -   Contents -
      -
      - - -

      -psb_max -- Global maximum -

      - -

      -

      -call psb_max(icontxt, dat, root)
-
      - -

      -This subroutine implements a maximum valuereduction -operation based on the underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global maximum. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final maximum, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the maximum operation. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        2. -
      2. The dat argument may also be a long integer scalar. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_min Global - Up: Parallel environment routines - Previous: psb_sum Global -   Contents
      - - - - diff --git a/docs/html/node114.html b/docs/html/node114.html deleted file mode 100644 index 15ca157e8..000000000 --- a/docs/html/node114.html +++ /dev/null @@ -1,178 +0,0 @@ - - - - - -psb_min -- Global minimum - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_amx Global - Up: Parallel environment routines - Previous: psb_max Global -   Contents -
      -
      - - -

      -psb_min -- Global minimum -

      - -

      -

      -call psb_min(icontxt, dat, root)
-
      - -

      -This subroutine implements a minimum value reduction -operation based on the underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global minimum. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final value, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the minimum operation. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer or real variable, which may be a -scalar, or a rank 1 or 2 array. -
      -Type, kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        2. -
      2. The dat argument may also be a long integer scalar. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_amx Global - Up: Parallel environment routines - Previous: psb_max Global -   Contents
      - - - - diff --git a/docs/html/node115.html b/docs/html/node115.html deleted file mode 100644 index afa24b62e..000000000 --- a/docs/html/node115.html +++ /dev/null @@ -1,176 +0,0 @@ - - - - - -psb_amx -- Global maximum absolute value - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_amn Global - Up: Parallel environment routines - Previous: psb_min Global -   Contents -
      -
      - - -

      -psb_amx -- Global maximum absolute value -

      - -

      -

      -call psb_amx(icontxt, dat, root)
-
      - -

      -This subroutine implements a maximum absolute value reduction -operation based on the underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global maximum. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final value, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the maximum operation. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        2. -
      2. The dat argument may also be a long integer scalar. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_amn Global - Up: Parallel environment routines - Previous: psb_min Global -   Contents
      - - - - diff --git a/docs/html/node116.html b/docs/html/node116.html deleted file mode 100644 index 6ed398342..000000000 --- a/docs/html/node116.html +++ /dev/null @@ -1,178 +0,0 @@ - - - - - -psb_amn -- Global minimum absolute value - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_nrm2 Global - Up: Parallel environment routines - Previous: psb_amx Global -   Contents -
      -
      - - -

      -psb_amn -- Global minimum absolute value -

      - -

      -

      -call psb_amn(icontxt, dat, root)
-
      - -

      -This subroutine implements a minimum absolute value reduction -operation based on the underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global minimum. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. Type, kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final value, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the minimum operation. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array. -
      -Type, kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        2. -
      2. The dat argument may also be a long integer scalar. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_nrm2 Global - Up: Parallel environment routines - Previous: psb_amx Global -   Contents
      - - - - diff --git a/docs/html/node117.html b/docs/html/node117.html deleted file mode 100644 index 765c68358..000000000 --- a/docs/html/node117.html +++ /dev/null @@ -1,210 +0,0 @@ - - - - - -psb_nrm2 -- Global 2-norm reduction - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_snd Send - Up: Parallel environment routines - Previous: psb_amn Global -   Contents -
      -
      - - -

      -psb_nrm2 -- Global 2-norm reduction -

      - -

      -

      -call psb_nrm2(icontxt, dat, root)
-
      - -

      -This subroutine implements a 2-norm value reduction -operation based on the underlying communication library. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The local contribution to the global minimum. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: a real variable, which may be a -scalar, or a rank 1 array. Kind, rank and size must agree on all processes. -
      -
      root
      -
      Process to hold the final value, or $-1$ to make it available - on all processes. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value -$-1<= root <= np-1$, default -1. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      On destination process(es), the result of the 2-norm reduction. -
      -Scope: global. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: a real variable, which may be a -scalar, or a rank 1 array. -
      -Kind, rank and size must agree on all processes. -
      -
      - -

      -Notes - -

        -
      1. This reduction is appropriate to compute the results of multiple - (local) NRM2 operations at the same time. -
        2. -
      2. Denoting by $dat_i$ the value of the variable $dat$ on process - $i$, the output $res$ is equivalent to the computation of -

        -
        - - -\begin{displaymath}res = \sqrt{\sum_i dat_i^2},\end{displaymath} -
        -
        -

        -with care taken to avoid unnecessary overflow. -
        3. -
      3. The dat argument is both input and output, and its - value may be changed even on processes different from the final - result destination. -
        4. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_snd Send - Up: Parallel environment routines - Previous: psb_amn Global -   Contents
      - - - - diff --git a/docs/html/node118.html b/docs/html/node118.html deleted file mode 100644 index 43baeea3b..000000000 --- a/docs/html/node118.html +++ /dev/null @@ -1,190 +0,0 @@ - - - - - -psb_snd -- Send data - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_rcv Receive - Up: Parallel environment routines - Previous: psb_nrm2 Global -   Contents -
      -
      - - -

      -psb_snd -- Send data -

      - -

      -

      -call psb_snd(icontxt, dat, dst, m)
-
      - -

      -This subroutine sends a packet of data to a destination. -

      -
      Type:
      -
      Synchronous: see usage notes. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      dat
      -
      The data to be sent. -
      -Scope: local. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is -not specified, size must agree as well. -
      -
      dst
      -
      Destination process. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer value -$0<= dst <= np-1$. -
      -
      m
      -
      Number of rows. -
      -Scope: global. -
      -Type: Optional. -
      -Intent: in. -
      -Specified as: an integer value -$0<= m <= size(dat,1)$. -
      -When $dat$ is a rank 2 array, specifies the number of rows to be sent -independently of the leading dimension $size(dat,1)$; must have the -same value on sending and receiving processes. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      - -

      -Notes - -

        -
      1. This subroutine implies a synchronization, but only between the - calling process and the destination process $dst$. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_rcv Receive - Up: Parallel environment routines - Previous: psb_nrm2 Global -   Contents
      - - - - diff --git a/docs/html/node119.html b/docs/html/node119.html deleted file mode 100644 index 2d94be946..000000000 --- a/docs/html/node119.html +++ /dev/null @@ -1,189 +0,0 @@ - - - - - -psb_rcv -- Receive data - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Error handling - Up: Parallel environment routines - Previous: psb_snd Send -   Contents -
      -
      - - -

      -psb_rcv -- Receive data -

      - -

      -

      -call psb_rcv(icontxt, dat, src, m)
-
      - -

      -This subroutine receives a packet of data to a destination. -

      -
      Type:
      -
      Synchronous: see usage notes. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context identifying the virtual - parallel machine. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer variable. -
      -
      src
      -
      Source process. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer value -$0<= src <= np-1$. -
      -
      m
      -
      Number of rows. -
      -Scope: global. -
      -Type: Optional. -
      -Intent: in. -
      -Specified as: an integer value -$0<= m <= size(dat,1)$. -
      -When $dat$ is a rank 2 array, specifies the number of rows to be sent -independently of the leading dimension $size(dat,1)$; must have the -same value on sending and receiving processes. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      dat
      -
      The data to be received. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: an integer, real or complex variable, which may be a -scalar, or a rank 1 or 2 array, or a character or logical scalar. Type, kind and rank must agree on sender and receiver process; if $m$ is -not specified, size must agree as well. -
      -
      - -

      -Notes - -

        -
      1. This subroutine implies a synchronization, but only between the - calling process and the source process $src$. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Error handling - Up: Parallel environment routines - Previous: psb_snd Send -   Contents
      - - - - diff --git a/docs/html/node12.html b/docs/html/node12.html deleted file mode 100644 index 019a46a12..000000000 --- a/docs/html/node12.html +++ /dev/null @@ -1,98 +0,0 @@ - - - - - -get_local_rows -- Get number of local rows - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_local_cols Get - Up: Descriptor data structure - Previous: Descriptor Methods -   Contents -
      -
      - - -

      -get_local_rows -- Get number of local rows -

      - -

      -

      -nr = desc%get_local_rows()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of local rows, i.e. the number of - rows owned by the current process; as explained in 1, - it is equal to -$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$. The returned value is - specific to the calling process. -
      -
      - -

      -

      - - - diff --git a/docs/html/node120.html b/docs/html/node120.html deleted file mode 100644 index 21a186b79..000000000 --- a/docs/html/node120.html +++ /dev/null @@ -1,342 +0,0 @@ - - - - - -Error handling - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Utilities - Up: userhtml - Previous: psb_rcv Receive -   Contents -
      -
      - - -

      -Error handling -

      - -

      -The PSBLAS library error handling policy has been completely rewritten -in version 2.0. The idea behind the design of this new error handling -strategy is to keep error messages on a stack allowing the user to -trace back up to the point where the first error message has been -generated. Every routine in the PSBLAS-2.0 library has, as last -non-optional argument, an integer info variable; whenever, -inside the routine, an error is detected, this variable is set to a -value corresponding to a specific error code. Then this error code is -also pushed on the error stack and then either control is returned to -the caller routine or the execution is aborted, depending on the users -choice. At the time when the execution is aborted, an error message is -printed on standard output with a level of verbosity than can be -chosen by the user. If the execution is not aborted, then, the caller -routine checks the value returned in the info variable and, if -not zero, an error condition is raised. This process continues on all the -levels of nested calls until the level where the user decides to abort -the program execution. - -

      -Figure 9 shows the layout of a generic psb_foo -routine with respect to the PSBLAS-2.0 error handling policy. It is -possible to see how, whenever an error condition is detected, the -info variable is set to the corresponding error code which is, -then, pushed on top of the stack by means of the -psb_errpush. An error condition may be directly detected inside -a routine or indirectly checking the error code returned returned by a -called routine. Whenever an error is encountered, after it has been -pushed on stack, the program execution skips to a point where the -error condition is handled; the error condition is handled either by -returning control to the caller routine or by calling the -psb\_error routine which prints the content of the error stack -and aborts the program execution, according to the choice made by the -user with psb_set_erraction. The default is to print the error -and terminate the program, but the user may choose to handle the error -explicitly. - -

      - -

      - - - -
      Figure 9: -The layout of a generic psb_foo - routine with respect to PSBLAS-2.0 error handling policy.
      -
      - -
      - -\fbox{\TheSbox} -
      -
      - -

      -Figure 10 reports a sample error message generated by -the PSBLAS-2.0 library. This error has been generated by the fact that -the user has chosen the invalid “FOO” storage format to represent -the sparse matrix. From this error message it is possible to see that -the error has been detected inside the psb_cest subroutine -called by psb_spasb ... by process 0 (i.e. the root process). - -

      - -

      - - - -
      Figure 10: -A sample PSBLAS-2.0 error - message. Process 0 detected an error condition inside the psb_cest subroutine
      -
      - -
      - -\fbox{\TheSbox} -
      -
      - -

      -ifstarsubroutinesubroutinepsb_errpushPushes an error code onto the error - stack - -

      -
      -\begin{lstlisting} -call psb_errpush(err_c, r_name, i_err, a_err) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      err_c
      -
      the error code -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an integer. -
      -
      r_name
      -
      the soutine where the error has been caught. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a string. -
      -
      i_err
      -
      addional info for error code -
      -Scope: local -
      -Type: optional -
      -Specified as: an integer array -
      -
      a_err
      -
      addional info for error code -
      -Scope: local -
      -Type: optional -
      -Specified as: a string. -
      -
      - -

      -ifstarsubroutinesubroutinepsb_errorPrints the error stack content and aborts - execution - -

      -
      -\begin{lstlisting} -call psb_error(icontxt) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context. -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: an integer. -
      -
      - -

      -ifstarsubroutinesubroutinepsb_set_errverbositySets the verbosity of error - messages. - -

      -
      -\begin{lstlisting} -call psb_set_errverbosity(v) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      v
      -
      the verbosity level -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: an integer. -
      -
      - -

      -ifstarsubroutinesubroutinepsb_set_erractionSet the type of action to be - taken upon error condition. - -

      -
      -\begin{lstlisting} -call psb_set_erraction(err_act) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      err_act
      -
      the type of action. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: an integer. Possible values: psb_act_ret, -psb_act_abort. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Utilities - Up: userhtml - Previous: psb_rcv Receive -   Contents
      - - - - diff --git a/docs/html/node121.html b/docs/html/node121.html deleted file mode 100644 index 384e43c76..000000000 --- a/docs/html/node121.html +++ /dev/null @@ -1,91 +0,0 @@ - - - - - -Utilities - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: hb_read Read - Up: userhtml - Previous: Error handling -   Contents -
      -
      - - -

      - -
      -Utilities -

      - -

      -We have some utilities available for input and output of -sparse matrices; the interfaces to these routines are available in the -module psb_util_mod. - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node122.html b/docs/html/node122.html deleted file mode 100644 index b3438b339..000000000 --- a/docs/html/node122.html +++ /dev/null @@ -1,159 +0,0 @@ - - - - - -hb_read -- Read a sparse matrix from a file in the Harwell-Boeing format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: hb_write Write - Up: Utilities - Previous: Utilities -   Contents -
      -
      - - -

      - hb_read -- Read a sparse matrix from a file in the - Harwell-Boeing format -

      - -

      -
      -\begin{lstlisting} -call hb_read(a, iret, iunit, filename, b, mtitle) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      filename
      -
      The name of the file to be read. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      a
      -
      the sparse matrix read from file. -
      -Type:required. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      b
      -
      Rigth hand side(s). -
      -Type: Optional -
      -An array of type real or complex, rank 2 and having the ALLOCATABLE -attribute; will be allocated and filled in if the input file contains -a right hand side, otherwise will be left in the UNALLOCATED state. -
      -
      mtitle
      -
      Matrix title. -
      -Type: Optional -
      -A charachter variable of length 72 holding a copy of the -matrix title as specified by the Harwell-Boeing format and contained -in the input file. -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: hb_write Write - Up: Utilities - Previous: Utilities -   Contents
      - - - - diff --git a/docs/html/node123.html b/docs/html/node123.html deleted file mode 100644 index f8e65c336..000000000 --- a/docs/html/node123.html +++ /dev/null @@ -1,168 +0,0 @@ - - - - - -hb_write -- Write a sparse matrix to a file in the Harwell-Boeing format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: mm_mat_read Read - Up: Utilities - Previous: hb_read Read -   Contents -
      -
      - - -

      -hb_write -- Write a sparse matrix to a file - in the Harwell-Boeing format -

      - -

      -
      -\begin{lstlisting} -call hb_write(a, iret, iunit, filename, key, rhs, mtitle) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix to be written. -
      -Type:required. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      b
      -
      Rigth hand side. -
      -Type: Optional -
      -An array of type real or complex, rank 1 and having the ALLOCATABLE -attribute; will be allocated and filled in if the input file contains -a right hand side. -
      -
      filename
      -
      The name of the file to be written to. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default output unit 6 (i.e. standard output -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      key
      -
      Matrix key. -
      -Type: Optional -
      -A charachter variable of length 8 holding the -matrix key as specified by the Harwell-Boeing format and to be -written to file. -
      -
      mtitle
      -
      Matrix title. -
      -Type: Optional -
      -A charachter variable of length 72 holding the -matrix title as specified by the Harwell-Boeing format and to be -written to file. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: mm_mat_read Read - Up: Utilities - Previous: hb_read Read -   Contents
      - - - - diff --git a/docs/html/node124.html b/docs/html/node124.html deleted file mode 100644 index f1307a9d2..000000000 --- a/docs/html/node124.html +++ /dev/null @@ -1,117 +0,0 @@ - - - - - -mm_mat_read -- Read a sparse matrix from a file in the MatrixMarket format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: mm_array_read Read - Up: Utilities - Previous: hb_write Write -   Contents -
      -
      - - -

      -mm_mat_read -- Read a sparse matrix from a - file in the MatrixMarket format -

      - -

      -
      -\begin{lstlisting} -call mm_mat_read(a, iret, iunit, filename) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      filename
      -
      The name of the file to be read. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      a
      -
      the sparse matrix read from file. -
      -Type:required. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node125.html b/docs/html/node125.html deleted file mode 100644 index 07ecfc91b..000000000 --- a/docs/html/node125.html +++ /dev/null @@ -1,119 +0,0 @@ - - - - - -mm_array_read -- Read a dense array from a file in the MatrixMarket format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: mm_mat_write Write - Up: Utilities - Previous: mm_mat_read Read -   Contents -
      -
      - - -

      -mm_array_read -- Read a dense array from a - file in the MatrixMarket format -

      - -

      -
      -\begin{lstlisting} -call mm_array_read(b, iret, iunit, filename) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      filename
      -
      The name of the file to be read. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      b
      -
      Rigth hand side(s). -
      -Type: required -
      -An array of type real or complex, rank 1 or 2 and having the ALLOCATABLE -attribute; will be allocated and filled in if the input file contains -a right hand side, otherwise will be left in the UNALLOCATED state. -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node126.html b/docs/html/node126.html deleted file mode 100644 index 6f5c409c4..000000000 --- a/docs/html/node126.html +++ /dev/null @@ -1,123 +0,0 @@ - - - - - -mm_mat_write -- Write a sparse matrix to a file in the MatrixMarket format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: mm_array_write Write - Up: Utilities - Previous: mm_array_read Read -   Contents -
      -
      - - -

      -mm_mat_write -- Write a sparse matrix to a - file in the MatrixMarket format -

      - -

      -
      -\begin{lstlisting} -call mm_mat_write(a, mtitle, iret, iunit, filename) -\end{lstlisting} -
      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix to be written. -
      -Type:required. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      mtitle
      -
      Matrix title. -
      -Type: required -
      -A charachter variable holding a descriptive title for the matrix to be - written to file. -
      -
      filename
      -
      The name of the file to be written to. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default output unit 6 (i.e. standard output -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node127.html b/docs/html/node127.html deleted file mode 100644 index 2f598cdfc..000000000 --- a/docs/html/node127.html +++ /dev/null @@ -1,115 +0,0 @@ - - - - - -mm_array_write -- Write a dense array from a file in the MatrixMarket format - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Preconditioner routines - Up: Utilities - Previous: mm_mat_write Write -   Contents -
      -
      - - -

      -mm_array_write -- Write a dense array from a - file in the MatrixMarket format -

      - -

      -
      -\begin{lstlisting} -call mm_array_write(b, iret, iunit, filename) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      b
      -
      Rigth hand side(s). -
      -Type: required -
      -An array of type real or complex, rank 1 or 2; will be written..
      -
      filename
      -
      The name of the file to be written. -
      -Type:optional. -
      -Specified as: a character variable containing a valid file name, or --, in which case the default input unit 5 (i.e. standard input -in Unix jargon) is used. Default: -. -
      -
      iunit
      -
      The Fortran file unit number. -
      -Type:optional. -
      -Specified as: an integer value. Only meaningful if filename is not -. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      iret
      -
      Error code. -
      -Type: required -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node128.html b/docs/html/node128.html deleted file mode 100644 index 06233ef98..000000000 --- a/docs/html/node128.html +++ /dev/null @@ -1,98 +0,0 @@ - - - - - -Preconditioner routines - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: init Initialize - Up: userhtml - Previous: mm_array_write Write -   Contents -
      -
      - - -

      - -
      -Preconditioner routines -

      - -

      -The base PSBLAS library contains the implementation of two simple -preconditioning techniques: - -

        -
      • Diagonal Scaling -
        • -
      • Block Jacobi with ILU(0) factorization -
        • -
      -The supporting data type and subroutine interfaces are defined in the -module psb_prec_mod. -The old interfaces psb_precinit and psb_precbld are still supported for -backward compatibility - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node129.html b/docs/html/node129.html deleted file mode 100644 index 0ff25da70..000000000 --- a/docs/html/node129.html +++ /dev/null @@ -1,150 +0,0 @@ - - - - - -init -- Initialize a preconditioner - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: build Builds - Up: Preconditioner routines - Previous: Preconditioner routines -   Contents -
      -
      - - -

      -init -- Initialize a preconditioner -

      - -

      -

      -call prec%init(icontxt,ptype, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      icontxt
      -
      the communication context. -
      -Scope:global. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer value. -
      -
      ptype
      -
      the type of preconditioner. -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a character string, see usage notes. -
      -
      On Exit
      -

      -

      -
      prec
      -
      Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      info
      -
      Scope: global -
      -Type: required -
      -Intent: out. -
      -Error code: if no error, 0 is returned. -
      -
      -Notes -Legal inputs to this subroutine are interpreted depending on the -$ptype$ string as follows4: -
      -
      NONE
      -
      No preconditioning, i.e. the preconditioner is just a copy - operator. -
      -
      DIAG
      -
      Diagonal scaling; each entry of the input vector is - multiplied by the reciprocal of the sum of the absolute values of - the coefficients in the corresponding row of matrix $A$; -
      -
      BJAC
      -
      Precondition by a factorization of the - block-diagonal of matrix $A$, where block boundaries are determined - by the data allocation boundaries for each process; requires no - communication. Only the incomplete factorization $ILU(0)$ is - currently implemented. -
      -
      - -

      -

      - - - diff --git a/docs/html/node13.html b/docs/html/node13.html deleted file mode 100644 index bbbcaa1b3..000000000 --- a/docs/html/node13.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - -get_local_cols -- Get number of local cols - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_global_rows Get - Up: Descriptor data structure - Previous: get_local_rows Get -   Contents -
      -
      - - -

      -get_local_cols -- Get number of local cols -

      - -

      -

      -nc = desc%get_local_cols()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of local cols, i.e. the number of - indices used by the current process, including both local and halo - indices; as explained in 1, - it is equal to -$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$. The - returned value is specific to the calling process. -
      -
      - -

      -

      - - - diff --git a/docs/html/node130.html b/docs/html/node130.html deleted file mode 100644 index 532b6c53f..000000000 --- a/docs/html/node130.html +++ /dev/null @@ -1,194 +0,0 @@ - - - - - -build -- Builds a preconditioner - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: apply Preconditioner - Up: Preconditioner routines - Previous: init Initialize -   Contents -
      -
      - - -

      -build -- Builds a preconditioner -

      - -

      -

      -call prec%build(a, desc_a, info[,amold,vmold,imold])
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the system sparse matrix. -Scope: local -
      -Type: required -
      -Intent: in, target. -
      -Specified as: a sparse matrix data structure spdatapsb_Tspmat_type. -
      -
      prec
      -
      the preconditioner. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an already initialized precondtioner data structure precdatapsb_prec_type -
      -
      desc_a
      -
      the problem communication descriptor. -Scope: local -
      -Type: required -
      -Intent: in, target. -
      -Specified as: a communication descriptor data structure descdatapsb_desc_type. -
      -
      amold
      -
      The desired dynamic type for the internal matrix storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat. -
      -
      vmold
      -
      The desired dynamic type for the internal vector storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type. -
      -
      imold
      -
      The desired dynamic type for the internal integer vector storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from (integer) vbasedatapsb_T_base_vect_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      prec
      -
      the preconditioner. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a precondtioner data structure precdatapsb_prec_type -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      -The amold, vmold and imold arguments may be -employed to interface with special devices, such as GPUs and other -accelerators. - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: apply Preconditioner - Up: Preconditioner routines - Previous: init Initialize -   Contents
      - - - - diff --git a/docs/html/node131.html b/docs/html/node131.html deleted file mode 100644 index 289b69abd..000000000 --- a/docs/html/node131.html +++ /dev/null @@ -1,153 +0,0 @@ - - - - - -apply -- Preconditioner application routine - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: descr Prints - Up: Preconditioner routines - Previous: build Builds -   Contents -
      -
      - - -

      -apply -- Preconditioner application - routine -

      - -

      -

      -call prec%apply(x,y,desc_a,info,trans,work)
-call prec%apply(x,desc_a,info,trans)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      prec
      -
      the preconditioner. -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      x
      -
      the source vector. -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
      -
      desc_a
      -
      the problem communication descriptor. -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a communication data structure descdatapsb_desc_type. -
      -
      trans
      -
      Scope: -
      -Type: optional -
      -Intent: in. -
      -Specified as: a character. -
      -
      work
      -
      an optional work space -Scope: local -
      -Type: optional -
      -Intent: inout. -
      -Specified as: a double precision array. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      the destination vector. -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node132.html b/docs/html/node132.html deleted file mode 100644 index 6244d986c..000000000 --- a/docs/html/node132.html +++ /dev/null @@ -1,114 +0,0 @@ - - - - - -descr -- Prints a description of current preconditioner - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: clone clone - Up: Preconditioner routines - Previous: apply Preconditioner -   Contents -
      -
      - - -

      -descr -- Prints a description of current - preconditioner -

      - -

      -

      -call prec%descr()
-call prec%descr(iout, root)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      prec
      -
      the preconditioner. -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      iout
      -
      output unit. -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Specified as: an integer number. Default: default output unit. -
      -
      root
      -
      Process from which to print -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Specified as: an integer number between 0 and $np-1$, in which case -the specified process will print the description, or $-1$, in which case -all processes will print. Default: 0. -
      -
      - -

      -

      - - - diff --git a/docs/html/node133.html b/docs/html/node133.html deleted file mode 100644 index fadd4e4bb..000000000 --- a/docs/html/node133.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -clone -- clone current preconditioner - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: free Free - Up: Preconditioner routines - Previous: descr Prints -   Contents -
      -
      - - -

      -clone -- clone current - preconditioner -

      - -
      -call  prec%clone(precout,info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      prec
      -
      the preconditioner. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      precout
      -
      A copy of the input object. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node134.html b/docs/html/node134.html deleted file mode 100644 index c98f860ce..000000000 --- a/docs/html/node134.html +++ /dev/null @@ -1,107 +0,0 @@ - - - - - -free -- Free a preconditioner - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Iterative Methods - Up: Preconditioner routines - Previous: clone clone -   Contents -
      -
      - - -

      -free -- Free a preconditioner -

      - -

      -

      -call prec%free(info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      prec
      -
      the preconditioner. -
      -Scope: local. -
      -Type: required -
      -Intent: inout. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      On Exit
      -

      -

      -
      prec
      -
      Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a preconditioner data structure precdatapsb_prec_type. -
      -
      info
      -
      Scope: global -
      -Type: required -
      -Intent: out. -
      -Error code: if no error, 0 is returned. -
      -
      -Notes -Releases all internal storage. - -

      -

      - - - diff --git a/docs/html/node135.html b/docs/html/node135.html deleted file mode 100644 index 9dda94793..000000000 --- a/docs/html/node135.html +++ /dev/null @@ -1,76 +0,0 @@ - - - - - -Iterative Methods - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_krylov Krylov - Up: userhtml - Previous: free Free -   Contents -
      -
      - - -

      - -
      -Iterative Methods -

      - -

      -In this chapter we provide routines for preconditioners and iterative -methods. The interfaces for Krylov subspace methods are available in -the module psb_krylov_mod. - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node136.html b/docs/html/node136.html deleted file mode 100644 index 1899d05d4..000000000 --- a/docs/html/node136.html +++ /dev/null @@ -1,440 +0,0 @@ - - - - - -psb_krylov -- Krylov Methods Driver Routine - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Bibliography - Up: Iterative Methods - Previous: Iterative Methods -   Contents -
      -
      - - -

      -
      -psb_krylov -- Krylov Methods Driver - Routine -

      - -

      -This subroutine is a driver that provides a general interface for all -the Krylov-Subspace family methods implemented in PSBLAS version 2. - -

      -The stopping criterion can take the following values: -

      -
      1
      -
      normwise backward error in the infinity -norm; the iteration is stopped when -

      -
      - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{(\Vert A\Vert\Vert x_i\Vert+\Vert b\Vert)} < eps \end{displaymath} -
      -
      -

      -
      -
      2
      -
      Relative residual in the 2-norm; the iteration is stopped -when -

      -
      - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert b\Vert _2} < eps \end{displaymath} -
      -
      -

      -
      -
      3
      -
      Relative residual reduction in the 2-norm; the iteration is stopped -when -

      -
      - - -\begin{displaymath}err = \frac{\Vert r_i\Vert}{\Vert r_0\Vert _2} < eps \end{displaymath} -
      -
      -

      -
      -
      -The behaviour is controlled by the istop argument (see -later). In the above formulae, $x_i$ is the tentative solution and -$r_i=b-Ax_i$ the corresponding residual at the $i$-th iteration. - -

      -
      -\begin{lstlisting} -call psb_krylov(method,a,prec,b,x,eps,desc_a,info,& -& itmax,iter,err,itrace,irst,istop,cond) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      method
      -
      a string that defines the iterative method to be - used. Supported values are: -
      -
      CG:
      -
      the Conjugate Gradient method; - -
      -
      CGS:
      -
      the Conjugate Gradient Stabilized method; - -

      -

      -
      GCR:
      -
      the Generalized Conjugate Residual method; - -
      -
      FCG:
      -
      the Flexible Conjugate Gradient method5; - -

      -

      -
      BICG:
      -
      the Bi-Conjugate Gradient method; - -
      -
      BICGSTAB:
      -
      the Bi-Conjugate Gradient Stabilized method; - -
      -
      BICGSTABL:
      -
      the Bi-Conjugate Gradient Stabilized method with restarting; - -
      -
      RGMRES:
      -
      the Generalized Minimal Residual method with restarting. - -
      -
      -
      -
      a
      -
      the local portion of global sparse matrix -$A$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      prec
      -
      The data structure containing the preconditioner. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type precdatapsb_prec_type. -
      -
      b
      -
      The RHS vector. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
      -
      x
      -
      The initial guess. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
      -
      eps
      -
      The stopping tolerance. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a real number. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      itmax
      -
      The maximum number of iterations to perform. -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: $itmax = 1000$. -
      -Specified as: an integer variable $itmax \ge 1$. -
      -
      itrace
      -
      If $>0$ print out an informational message about - convergence every $itrace$ iterations. If $=0$ print a message in - case of convergence failure. -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: $itrace = -1$. -
      -
      irst
      -
      An integer specifying the restart parameter. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Values: $irst>0$. This is employed for the BiCGSTABL or RGMRES -methods, otherwise it is ignored. - -

      -

      -
      istop
      -
      An integer specifying the stopping criterion. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Values: 1: use the normwise backward error, 2: use the scaled 2-norm -of the residual, 3: use the residual reduction in the 2-norm. Default: 2. -
      -
      On Return
      -
      -
      -
      x
      -
      The computed solution. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one array or an object of type vdatapsb_T_vect_type. -
      -
      iter
      -
      The number of iterations performed. -
      -Scope: global -
      -Type: optional -
      -Intent: out. -
      -Returned as: an integer variable. -
      -
      err
      -
      The convergence estimate on exit. -
      -Scope: global -
      -Type: optional -
      -Intent: out. -
      -Returned as: a real number. -
      -
      cond
      -
      An estimate of the condition number of matrix $A$; only - available with the $CG$ method on real data. -
      -Scope: global -
      -Type: optional -
      -Intent: out. -
      -Returned as: a real number. A correct result will be greater than or -equal to one; if specified for non-real data, or an error occurred, -zero is returned. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - -

      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Bibliography - Up: Iterative Methods - Previous: Iterative Methods -   Contents
      - - - - diff --git a/docs/html/node137.html b/docs/html/node137.html deleted file mode 100644 index 4717ee2dd..000000000 --- a/docs/html/node137.html +++ /dev/null @@ -1,180 +0,0 @@ - - - - - -Bibliography - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: About this document ... - Up: userhtml - Previous: psb_krylov Krylov -   Contents -

      - - -

      -Bibliography -

      1 -
      - D. Barbieri, V. Cardellini, S. Filippone and D. Rouson -Design Patterns for Scientific Computations on Sparse Matrices, - HPSS 2011, Algorithms and Programming Tools for Next-Generation High-Performance Scientific Software, Bordeaux, Sep. 2011 - -

      -

      2 -
      -G. Bella, S. Filippone, A. De Maio and M. Testa, -A Simulation Model for Forest Fires, -in J. Dongarra, K. Madsen, J. Wasniewski, editors, -Proceedings of PARA 04 Workshop on State of the Art -in Scientific Computing, pp. 546-553, Lecture Notes in Computer Science, -Springer, 2005. -

      3 -
      A. Buttari, D. di Serafino, P. D'Ambra, S. Filippone,
      -2LEV-D2P4: a package of high-performance preconditioners,
      -Applicable Algebra in Engineering, Communications and Computing, -Volume 18, Number 3, May, 2007, pp. 223-239 -

      4 -
      P. D'Ambra, S. Filippone, D. Di Serafino
      -On the Development of PSBLAS-based Parallel Two-level Schwarz Preconditioners -
      -Applied Numerical Mathematics, Elsevier Science, -Volume 57, Issues 11-12, November-December 2007, Pages 1181-1196. - -

      -

      5 -
      - Dongarra, J. J., DuCroz, J., Hammarling, S. and Hanson, R., -An Extended Set of Fortran Basic Linear Algebra Subprograms, -ACM Trans. Math. Softw. vol. 14, 1-17, 1988. -

      6 -
      - Dongarra, J., DuCroz, J., Hammarling, S. and Duff, I., -A Set of level 3 Basic Linear Algebra Subprograms, -ACM Trans. Math. Softw. vol. 16, 1-17, 1990. -

      7 -
      -J. J. Dongarra and R. C. Whaley, -A User's Guide to the BLACS v. 1.1, -Lapack Working Note 94, Tech. Rep. UT-CS-95-281, University of -Tennessee, March 1995 (updated May 1997). -

      8 -
      -I. Duff, M. Marrone, G. Radicati and C. Vittoli, -Level 3 Basic Linear Algebra Subprograms for Sparse Matrices: -a User Level Interface, -ACM Transactions on Mathematical Software, 23(3), pp. 379-401, 1997. -

      9 -
      -I. Duff, M. Heroux and R. Pozo, -An Overview of the Sparse Basic Linear -Algebra Subprograms: the New Standard from the BLAS Technical Forum, -ACM Transactions on Mathematical Software, 28(2), pp. 239-267, 2002. -

      10 -
      -S. Filippone and M. Colajanni, -PSBLAS: A Library for Parallel Linear Algebra -Computation on Sparse Matrices, -
      -ACM Transactions on Mathematical Software, 26(4), pp. 527-550, 2000. -

      11 -
      -S. Filippone and A. Buttari, -Object-Oriented Techniques for Sparse Matrix Computations in Fortran 2003, -
      -ACM Transactions on Mathematical Software, 38(4), 2012. -

      12 -
      -S. Filippone, P. D'Ambra, M. Colajanni, -Using a Parallel Library of Sparse Linear Algebra in a Fluid Dynamics -Applications Code on Linux Clusters, -in G. Joubert, A. Murli, F. Peters, M. Vanneschi, editors, -Parallel Computing - Advances & Current Issues, -pp. 441-448, Imperial College Press, 2002. -

      13 -
      - Gamma, E., Helm, R., Johnson, R., and Vlissides, - J. 1995. - Design Patterns: Elements of Reusable Object-Oriented Software. - Addison-Wesley. - -

      -

      14 -
      -Karypis, G. and Kumar, V., -METIS: Unstructured Graph Partitioning and Sparse Matrix - Ordering System. -Minneapolis, MN 55455: University of Minnesota, Department of - Computer Science, 1995. -Internet Address: http://www.cs.umn.edu/~karypis. -

      15 -
      -Lawson, C., Hanson, R., Kincaid, D. and Krogh, F., - Basic Linear Algebra Subprograms for Fortran usage, -ACM Trans. Math. Softw. vol. 5, 38-329, 1979. - -

      -

      16 -
      -Machiels, L. and Deville, M. -Fortran 90: An entry to object-oriented programming for the solution - of partial differential equations. -ACM Trans. Math. Softw. vol. 23, 32-49. -

      17 -
      -Metcalf, M., Reid, J. and Cohen, M. -Fortran 95/2003 explained. -Oxford University Press, 2004. -

      18 -
      -Rouson, D.W.I., Xia, J., Xu, X.: Scientific Software Design: The - Object-Oriented Way. Cambridge University Press (2011) - -

      -

      19 -
      -M. Snir, S. Otto, S. Huss-Lederman, D. Walker and J. Dongarra, -MPI: The Complete Reference. Volume 1 - The MPI Core, second edition, -MIT Press, 1998. -
      - -

      -

      - - - diff --git a/docs/html/node138.html b/docs/html/node138.html deleted file mode 100644 index 6fd05bf82..000000000 --- a/docs/html/node138.html +++ /dev/null @@ -1,67 +0,0 @@ - - - - - -About this document ... - - - - - - - - - - - - - - - - -
      -next - -up - -previous - -contents -
      - Up: userhtml - Previous: Bibliography -   Contents -
      -
      - - -

      -About this document ... -

      -

      -This document was generated using the -LaTeX2HTML translator Version 2018 (Released Feb 1, 2018) -

      -Copyright © 1993, 1994, 1995, 1996, -Nikos Drakos, -Computer Based Learning Unit, University of Leeds. -
      -Copyright © 1997, 1998, 1999, -Ross Moore, -Mathematics Department, Macquarie University, Sydney. -

      -The command line arguments were:
      - latex2html -local_icons -noaddress -dir ../../html userhtml.tex -

      -The translation was initiated on 2019-11-21 -

      - - - diff --git a/docs/html/node14.html b/docs/html/node14.html deleted file mode 100644 index 914b0e58c..000000000 --- a/docs/html/node14.html +++ /dev/null @@ -1,90 +0,0 @@ - - - - - -get_global_rows -- Get number of global rows - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_global_cols Get - Up: Descriptor data structure - Previous: get_local_cols Get -   Contents -
      -
      - - -

      -get_global_rows -- Get number of global rows -

      - -

      -

      -nr = desc%get_global_rows()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of global rows, i.e. the size of the - global index space. -
      -
      - -

      -

      - - - diff --git a/docs/html/node15.html b/docs/html/node15.html deleted file mode 100644 index 0f9aa78af..000000000 --- a/docs/html/node15.html +++ /dev/null @@ -1,90 +0,0 @@ - - - - - -get_global_cols -- Get number of global cols - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_global_indices Get - Up: Descriptor data structure - Previous: get_global_rows Get -   Contents -
      -
      - - -

      -get_global_cols -- Get number of global cols -

      - -

      -

      -nr = desc%get_global_cols()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of global cols; usually this is equal - to the number of global rows. -
      -
      - -

      -

      - - - diff --git a/docs/html/node16.html b/docs/html/node16.html deleted file mode 100644 index e938a3c29..000000000 --- a/docs/html/node16.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - -get_global_indices -- Get vector of global indices - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_context Get - Up: Descriptor data structure - Previous: get_global_cols Get -   Contents -
      -
      - - -

      -get_global_indices -- Get vector of global indices -

      - -

      -

      -myidx = desc%get_global_indices([owned])
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -Type: required. -
      -
      owned
      -
      Choose if you only want owned indices - (owned=.true.) or also halo indices (owned=.false.). -Scope: local. -
      -Type: optional; default: .true.. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The global indices, returned as an allocatable - integer array of rank 1. -
      -
      - -

      -

      - - - diff --git a/docs/html/node17.html b/docs/html/node17.html deleted file mode 100644 index 80c4cf41d..000000000 --- a/docs/html/node17.html +++ /dev/null @@ -1,89 +0,0 @@ - - - - - -get_context -- Get communication context - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Clone clone - Up: Descriptor data structure - Previous: get_global_indices Get -   Contents -
      -
      - - -

      -get_context -- Get communication context -

      - -

      -

      -ictxt = desc%get_context()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The communication context. -
      -
      - -

      -

      - - - diff --git a/docs/html/node18.html b/docs/html/node18.html deleted file mode 100644 index 422ddc253..000000000 --- a/docs/html/node18.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -Clone -- clone current object - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: CNV convert - Up: Descriptor data structure - Previous: get_context Get -   Contents -
      -
      - - -

      -Clone -- clone current object -

      - -

      -

      -call  desc%clone(descout,info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      descout
      -
      A copy of the input object. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node19.html b/docs/html/node19.html deleted file mode 100644 index af94fa1c1..000000000 --- a/docs/html/node19.html +++ /dev/null @@ -1,89 +0,0 @@ - - - - - -CNV -- convert internal storage format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cd_get_large_threshold Get - Up: Descriptor data structure - Previous: Clone clone -   Contents -
      -
      - - -

      -CNV -- convert internal storage format -

      - -

      -

      -call  desc%cnv(mold)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope: local. -
      -
      mold
      -
      the desred integer storage format. -
      -Scope: local. -
      -Specified as: a object of type derived from (integer) vbasedatapsb_T_base_vect_type. -
      -
      -The mold arguments may be -employed to interface with special devices, such as GPUs and other -accelerators. - -

      -

      - - - diff --git a/docs/html/node2.html b/docs/html/node2.html deleted file mode 100644 index cc966d25f..000000000 --- a/docs/html/node2.html +++ /dev/null @@ -1,169 +0,0 @@ - - - - - -Introduction - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: General overview - Up: userhtml - Previous: Contents -   Contents -
      -
      - - -

      -
      -Introduction -

      - -

      -The PSBLAS library, developed with the aim to facilitate the -parallelization of computationally intensive scientific applications, -is designed to address parallel implementation of iterative solvers -for sparse linear systems through the distributed memory paradigm. It -includes routines for multiplying sparse matrices by dense matrices, -solving block diagonal systems with triangular diagonal entries, -preprocessing sparse matrices, and contains additional routines for -dense matrix operations. The current implementation of PSBLAS -addresses a distributed memory execution model operating with message -passing. - -

      -The PSBLAS library version 3 is implemented in - the Fortran 2003 [17] programming language, with reuse and/or - adaptation of existing Fortran 77 and Fortran 95 software, plus a - handful of C routines. - -

      -The use of Fortran 2003 offers a number of advantages over Fortran 95, -mostly in the handling of requirements for evolution and adaptation of -the library to new computing architectures and integration of -new algorithms. -For a detailed discussion of our design see [11]; other -works discussing advanced programming in Fortran 2003 -include [1,18]; sufficient support for -Fortran 2003 is now available from many compilers, including the GNU -Fortran compiler from the Free Software Foundation (as of version 4.8). - -

      -Previous approaches have been based on mixing Fortran 95, with its -support for object-based design, with other languages; these have -been advocated by a number of authors, -e.g. [16]. Moreover, the Fortran 95 facilities for dynamic -memory management and interface overloading greatly enhance the -usability of the PSBLAS -subroutines. In this way, the library can take care of runtime memory -requirements that are quite difficult or even impossible to predict at -implementation or compilation time. - -

      -The presentation of the -PSBLAS library follows the general structure of the proposal for -serial Sparse BLAS [8,9], which in its turn is based on the -proposal for BLAS on dense matrices [15,5,6]. - -

      -The applicability of sparse iterative solvers to many different areas -causes some terminology problems because the same concept may be -denoted through different names depending on the application area. The -PSBLAS features presented in this document will be discussed referring -to a finite difference discretization of a Partial Differential -Equation (PDE). However, the scope of the library is wider than -that: for example, it can be applied to finite element discretizations -of PDEs, and even to different classes of problems such as nonlinear -optimization, for example in optimal control problems. - -

      -The design of a solver for sparse linear systems is driven by many -conflicting objectives, such as limiting occupation of storage -resources, exploiting regularities in the input data, exploiting -hardware characteristics of the parallel platform. To achieve an -optimal communication to computation ratio on distributed memory -machines it is essential to keep the data locality as high as -possible; this can be done through an appropriate data allocation -strategy. The choice of the preconditioner is another very important -factor that affects efficiency of the implemented application. Optimal -data distribution requirements for a given preconditioner may conflict -with distribution requirements of the rest of the solver. Finding the -optimal trade-off may be very difficult because it is application -dependent. Possible solutions to these problems and other important -inputs to the development of the PSBLAS software package have come from -an established experience in applying the PSBLAS solvers to -computational fluid dynamics applications. - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: General overview - Up: userhtml - Previous: Contents -   Contents
      - - - - diff --git a/docs/html/node20.html b/docs/html/node20.html deleted file mode 100644 index f5816c702..000000000 --- a/docs/html/node20.html +++ /dev/null @@ -1,80 +0,0 @@ - - - - - -psb_cd_get_large_threshold -- Get threshold for index mapping switch - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cd_set_large_threshold Set - Up: Descriptor data structure - Previous: CNV convert -   Contents -
      -
      - - -

      -psb_cd_get_large_threshold -- Get threshold for - index mapping switch -

      - -

      -

      -ith = psb_cd_get_large_threshold()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Return
      -
      -
      -
      Function value
      -
      The current value for the size threshold. - -

      -

      -
      - -

      -

      - - - diff --git a/docs/html/node21.html b/docs/html/node21.html deleted file mode 100644 index 2e6a31b63..000000000 --- a/docs/html/node21.html +++ /dev/null @@ -1,91 +0,0 @@ - - - - - -psb_cd_set_large_threshold -- Set threshold for index mapping switch - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Named Constants - Up: Descriptor data structure - Previous: psb_cd_get_large_threshold Get -   Contents -
      -
      - - -

      -psb_cd_set_large_threshold -- Set threshold for - index mapping switch -

      - -

      -

      -call psb_cd_set_large_threshold(ith)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      ith
      -
      the new threshold for communication descriptors. -
      -Scope: global. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer value greater than zero. -
      -
      -Note: the threshold value is only queried by the library at the time a -call to psb_cdall is executed, therefore changing the threshold -has no effect on communication descriptors that have already been -initialized. Moreover the threshold must have the same value on all -processes. - -

      -

      - - - diff --git a/docs/html/node22.html b/docs/html/node22.html deleted file mode 100644 index 2f9f2a6ac..000000000 --- a/docs/html/node22.html +++ /dev/null @@ -1,98 +0,0 @@ - - - - - -Named Constants - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Sparse Matrix class - Up: Descriptor data structure - Previous: psb_cd_set_large_threshold Set -   Contents -
      -
      - - -

      - -
      -Named Constants -

      -
      -
      psb_none_
      -
      Generic no-op; -
      -
      psb_root_
      -
      Default root process for broadcast and scatter operations; -
      -
      psb_nohalo_
      -
      Do not fetch halo elements; -
      -
      psb_halo_
      -
      Fetch halo elements from neighbouring processes; -
      -
      psb_sum_
      -
      Sum overlapped elements -
      -
      psb_avg_
      -
      Average overlapped elements -
      -
      psb_comm_halo_
      -
      Exchange data based on the halo_index - list; -
      -
      psb_comm_ext_
      -
      Exchange data based on the ext_index - list; -
      -
      psb_comm_ovr_
      -
      Exchange data based on the ovrlap_index - list; -
      -
      psb_comm_mov_
      -
      Exchange data based on the ovr_mst_idx - list; - -

      -

      -
      - -

      -

      - - - diff --git a/docs/html/node23.html b/docs/html/node23.html deleted file mode 100644 index 1105c101c..000000000 --- a/docs/html/node23.html +++ /dev/null @@ -1,216 +0,0 @@ - - - - - -Sparse Matrix class - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Sparse Matrix Methods - Up: Data Structures and Classes - Previous: Named Constants -   Contents -
      -
      - - -

      - -
      -Sparse Matrix class -

      -The spdatapsb_Tspmat_type class -contains all information about the local portion of the sparse matrix and -its storage mode. Its design is -based on the STATE design pattern [13] as detailed -in [11]; the type declaration is shown in -figure 4 where T is a placeholder for the -data type and precision variants -
      -
      S
      -
      Single precision real; -
      -
      D
      -
      Double precision real; -
      -
      C
      -
      Single precision complex; -
      -
      Z
      -
      Double precision complex. -
      -
      -The actual data is contained in the polymorphic component a%a -of type spbasedatapsb_T_base_sparse_mat; its -specific layout can be chosen dynamically among the predefined types, -or an entirely new storage layout can be implemented and passed to the -library at runtime via the psb_spasb routine. - -
      - - - -
      Figure 4: - The PSBLAS defined data type that - contains a sparse matrix.
      -
      - -
      -
      -  type :: psb_Tspmat_type
-    class(psb_T_base_sparse_mat), allocatable  :: a 
-  end type  psb_Tspmat_type
-
      -
      -
      -
      -The following very common formats are precompiled in PSBLAS and thus -are always available: -
      -
      psb_T_coo_sparse_mat
      -
      Coordinate storage; -
      -
      psb_T_csr_sparse_mat
      -
      Compressed storage by rows; -
      -
      psb_T_csc_sparse_mat
      -
      Compressed storage by columns; -
      -
      -The inner sparse matrix has an associated state, which can take the -following values: -
      -
      Build:
      -
      State entered after the first allocation, and before the - first assembly; in this state it is possible to add nonzero entries. -
      -
      Assembled:
      -
      State entered after the assembly; computations using - the sparse matrix, such as matrix-vector products, are only possible - in this state; -
      -
      Update:
      -
      State entered after a reinitalization; this is used to - handle applications in which the same sparsity pattern is used - multiple times with different coefficients. In this state it is only - possible to enter coefficients for already existing nonzero entries. -
      -
      -The only storage variant supporting the build state is COO; all other -variants are obtained by conversion to/from it. - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: Sparse Matrix Methods - Up: Data Structures and Classes - Previous: Named Constants -   Contents
      - - - - diff --git a/docs/html/node24.html b/docs/html/node24.html deleted file mode 100644 index 95bed484d..000000000 --- a/docs/html/node24.html +++ /dev/null @@ -1,59 +0,0 @@ - - - - - -Sparse Matrix Methods - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_nrows Get - Up: Sparse Matrix class - Previous: Sparse Matrix class -   Contents -
      -
      - - -

      -Sparse Matrix Methods -

      - -

      -

      - - - diff --git a/docs/html/node25.html b/docs/html/node25.html deleted file mode 100644 index 892822632..000000000 --- a/docs/html/node25.html +++ /dev/null @@ -1,89 +0,0 @@ - - - - - -get_nrows -- Get number of rows in a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_ncols Get - Up: Sparse Matrix class - Previous: Sparse Matrix Methods -   Contents -
      -
      - - -

      -get_nrows -- Get number of rows in a sparse matrix -

      - -

      -

      -nr = a%get_nrows()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of rows of sparse matrix a. -
      -
      - -

      -

      - - - diff --git a/docs/html/node26.html b/docs/html/node26.html deleted file mode 100644 index b354b89f4..000000000 --- a/docs/html/node26.html +++ /dev/null @@ -1,90 +0,0 @@ - - - - - -get_ncols -- Get number of columns in a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_nnzeros Get - Up: Sparse Matrix class - Previous: get_nrows Get -   Contents -
      -
      - - -

      -get_ncols -- Get number of columns in a sparse - matrix -

      - -

      -

      -nc = a%get_ncols()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of columns of sparse matrix a. -
      -
      - -

      -

      - - - diff --git a/docs/html/node27.html b/docs/html/node27.html deleted file mode 100644 index 79142d1ed..000000000 --- a/docs/html/node27.html +++ /dev/null @@ -1,100 +0,0 @@ - - - - - -get_nnzeros -- Get number of nonzero elements in a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_size Get - Up: Sparse Matrix class - Previous: get_ncols Get -   Contents -
      -
      - - -

      -get_nnzeros -- Get number of nonzero elements - in a sparse matrix -

      - -

      -

      -nz = a%get_nnzeros()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of nonzero elements stored in sparse matrix a. -
      -
      - -

      -Notes - -

        -
      1. The function value is specific to the storage format of matrix - a; some storage formats employ padding, thus the returned - value for the same matrix may be different for different storage choices. -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node28.html b/docs/html/node28.html deleted file mode 100644 index 93fa1562f..000000000 --- a/docs/html/node28.html +++ /dev/null @@ -1,91 +0,0 @@ - - - - - -get_size -- Get maximum number of nonzero elements in a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: sizeof Get - Up: Sparse Matrix class - Previous: get_nnzeros Get -   Contents -
      -
      - - -

      -get_size -- Get maximum number of nonzero elements - in a sparse matrix -

      - -

      -

      -maxnz = a%get_size()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The maximum number of nonzero elements that can - be stored in sparse matrix a using its current memory allocation. -
      -
      - -

      -

      - - - diff --git a/docs/html/node29.html b/docs/html/node29.html deleted file mode 100644 index 6543ee2dd..000000000 --- a/docs/html/node29.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -sizeof -- Get memory occupation in bytes -of a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_fmt Short - Up: Sparse Matrix class - Previous: get_size Get -   Contents -
      -
      - - -

      -sizeof -- Get memory occupation in bytes -of a sparse matrix -

      - -

      -

      -memory_size = a%sizeof()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The memory occupation in bytes. -
      -
      - -

      -

      - - - diff --git a/docs/html/node3.html b/docs/html/node3.html deleted file mode 100644 index 0d4479c1f..000000000 --- a/docs/html/node3.html +++ /dev/null @@ -1,196 +0,0 @@ - - - - - -General overview - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Basic Nomenclature - Up: userhtml - Previous: Introduction -   Contents -
      -
      - - -

      - -
      -General overview -

      -The PSBLAS library is designed to handle the implementation of -iterative solvers for sparse linear systems on distributed memory -parallel computers. The system coefficient matrix $A$ must be square; -it may be real or complex, nonsymmetric, and its sparsity pattern -needs not to be symmetric. The serial computation parts are based on -the serial sparse BLAS, so that any extension made to the data -structures of the serial kernels is available to the parallel -version. The overall design and parallelization strategy have been -influenced by the structure of the ScaLAPACK parallel -library. The layered structure of the PSBLAS library -is shown in figure 1; lower layers of the library -indicate an encapsulation relationship with upper layers. The ongoing -discussion focuses on the Fortran 2003 layer immediately below the -application layer. -The serial parts of the computation on each process are executed through -calls to the serial sparse BLAS subroutines. -In a similar way, the inter-process message exchanges are encapsulated -in an applicaiton layer that has been strongly inspired by the Basic -Linear Algebra Communication Subroutines (BLACS) library [7]. -Usually there is no need to deal directly with MPI; however, in some -cases, MPI routines are used directly to improve efficiency. For -further details on our communication layer see Sec. 7. - -

      - -

      - - - -
      Figure 1: -PSBLAS library components hierarchy.
      -
      -\includegraphics[scale=0.65]{figures/psblas.eps} - -\includegraphics[scale=0.65]{figures/psblas} - -
      -
      - -

      -The type of linear system matrices that we address typically arise in the -numerical solution of PDEs; in such a context, -it is necessary to pay special attention to the -structure of the problem from which the application originates. -The nonzero pattern of a matrix arising from the -discretization of a PDE is influenced by various factors, such as the -shape of the domain, the discretization strategy, and -the equation/unknown ordering. The matrix itself can be interpreted as -the adjacency matrix of the graph associated with the discretization -mesh. - -

      -The distribution of the coefficient matrix for the linear system is -based on the “owner computes” rule: -the variable associated to each mesh point is assigned to a process -that will own the corresponding row in the coefficient matrix and -will carry out all related computations. This allocation strategy -is equivalent to a partition of the discretization mesh into sub-domains. -Our library supports any distribution that keeps together -the coefficients of each matrix row; there are no other constraints on -the variable assignment. -This choice is consistent with simple data distributions -such as CYCLIC(N) and BLOCK, -as well as completely arbitrary assignments of -equation indices to processes. -In particular it is consistent with the -usage of graph partitioning tools commonly available in the -literature, e.g. METIS [14]. -Dense vectors conform to sparse -matrices, that is, the entries of a vector follow the same distribution -of the matrix rows. - -

      -We assume that the sparse matrix is built in parallel, where each -process generates its own portion. We never require that the entire -matrix be available on a single node. However, it is possible -to hold the entire matrix in one process and distribute it -explicitly1, even though the resulting memory -bottleneck would make this option unattractive in most cases. - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: Basic Nomenclature - Up: userhtml - Previous: Introduction -   Contents
      - - - - diff --git a/docs/html/node30.html b/docs/html/node30.html deleted file mode 100644 index 6bb1780dc..000000000 --- a/docs/html/node30.html +++ /dev/null @@ -1,91 +0,0 @@ - - - - - -get_fmt -- Short description of the dynamic type - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: is_bld, is_upd, is_asb - Up: Sparse Matrix class - Previous: sizeof Get -   Contents -
      -
      - - -

      -get_fmt -- Short description of the dynamic type -

      - -

      -

      -write(*,*) a%get_fmt()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      A short string describing the dynamic type of - the matrix. Predefined values include NULL, COO, - CSR and CSC. -
      -
      - -

      -

      - - - diff --git a/docs/html/node31.html b/docs/html/node31.html deleted file mode 100644 index 1b942045c..000000000 --- a/docs/html/node31.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -is_bld, is_upd, is_asb -- Status check - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: is_lower, is_upper, is_triangle, is_unit - Up: Sparse Matrix class - Previous: get_fmt Short -   Contents -
      -
      - - -

      -is_bld, is_upd, is_asb -- Status check -

      - -

      -

      -if (a%is_bld()) then 
-if (a%is_upd()) then 
-if (a%is_asb()) then 
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      A logical value indicating whether the - matrix is in the Build, Update or Assembled state, respectively. -
      -
      - -

      -

      - - - diff --git a/docs/html/node32.html b/docs/html/node32.html deleted file mode 100644 index a515bd961..000000000 --- a/docs/html/node32.html +++ /dev/null @@ -1,96 +0,0 @@ - - - - - -is_lower, is_upper, is_triangle, is_unit -- Format check - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: cscnv Convert - Up: Sparse Matrix class - Previous: is_bld, is_upd, is_asb -   Contents -
      -
      - - -

      -is_lower, is_upper, is_triangle, is_unit -- - Format check -

      - -

      -

      -if (a%is_triangle()) then 
-if (a%is_upper()) then 
-if (a%is_lower()) then 
-if (a%is_unit()) then 
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      A logical value indicating whether the - matrix is triangular; if is_triangle() returns .true. - check also if it is lower, upper and with a unit (i.e. assumed) - diagonal. -
      -
      - -

      -

      - - - diff --git a/docs/html/node33.html b/docs/html/node33.html deleted file mode 100644 index 7d7e9b278..000000000 --- a/docs/html/node33.html +++ /dev/null @@ -1,114 +0,0 @@ - - - - - -cscnv -- Convert to a different storage format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: csclip Reduce - Up: Sparse Matrix class - Previous: is_lower, is_upper, is_triangle, is_unit -   Contents -
      -
      - - -

      -cscnv -- Convert to a different storage format -

      - -

      -

      -call  a%cscnv(b,info [, type, mold, dupl])
-call  a%cscnv(info [, type, mold, dupl])
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      type
      -
      a string requesting a new format. -
      -Type: optional. -
      -
      mold
      -
      a variable of class(psb_T_base_sparse_mat) requesting a new format. -
      -Type: optional. -
      -
      dupl
      -
      an integer value specifing how to handle duplicates (see - Named Constants below) -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      b,a
      -
      A copy of a with a new storage format. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      -The mold arguments may be -employed to interface with special devices, such as GPUs and other -accelerators. - -

      -

      - - - diff --git a/docs/html/node34.html b/docs/html/node34.html deleted file mode 100644 index 79ac9113e..000000000 --- a/docs/html/node34.html +++ /dev/null @@ -1,106 +0,0 @@ - - - - - -csclip -- Reduce to a submatrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: clean_zeros Eliminate - Up: Sparse Matrix class - Previous: cscnv Convert -   Contents -
      -
      - - -

      -csclip -- Reduce to a submatrix -

      - -
      -    call a%csclip(b,info[,&
-       & imin,imax,jmin,jmax,rscale,cscale])
-
      - -

      -Returns the submatrix A(imin:imax,jmin:jmax), optionally -rescaling row/col indices to the range -1:imax-imin+1,1:jmax-jmin+1. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      imin,imax,jmin,jmax
      -
      Minimum and maximum row and column indices. -
      -Type: optional. -
      -
      rscale,cscale
      -
      Whether to rescale row/column indices. -Type: optional. -
      -
      -
      -
      On Return
      -
      -
      -
      b
      -
      A copy of a submatrix of a. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node35.html b/docs/html/node35.html deleted file mode 100644 index 87018a14c..000000000 --- a/docs/html/node35.html +++ /dev/null @@ -1,98 +0,0 @@ - - - - - -clean_zeros -- Eliminate zero coefficients - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_diag Get - Up: Sparse Matrix class - Previous: csclip Reduce -   Contents -
      -
      - - -

      -clean_zeros -- Eliminate zero coefficients -

      - -
      -    call a%clean_zeros(info)
-
      - -

      -Eliminates zero coefficients in the input matrix. Note that depending -on the internal storage format, there may still be some amount of -zero padding in the output. - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      -
      -
      On Return
      -
      -
      -
      a
      -
      The matrix a without zero coefficients. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node36.html b/docs/html/node36.html deleted file mode 100644 index 542aa3f78..000000000 --- a/docs/html/node36.html +++ /dev/null @@ -1,94 +0,0 @@ - - - - - -get_diag -- Get main diagonal - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: clip_diag Cut - Up: Sparse Matrix class - Previous: clean_zeros Eliminate -   Contents -
      -
      - - -

      -get_diag -- Get main diagonal -

      - -
      -    call a%get_diag(d,info)
-
      - -

      -Returns a copy of the main diagonal. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      -
      -
      On Return
      -
      -
      -
      d
      -
      A copy of the main diagonal. -
      -A one-dimensional array of the appropriate type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node37.html b/docs/html/node37.html deleted file mode 100644 index 1fc5b6e4e..000000000 --- a/docs/html/node37.html +++ /dev/null @@ -1,94 +0,0 @@ - - - - - -clip_diag -- Cut out main diagonal - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: tril Return - Up: Sparse Matrix class - Previous: get_diag Get -   Contents -
      -
      - - -

      -clip_diag -- Cut out main diagonal -

      - -
      -    call a%clip_diag(b,info)
-
      - -

      -Returns a copy of a without the main diagonal. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      -
      -
      On Return
      -
      -
      -
      b
      -
      A copy of a without the main diagonal. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node38.html b/docs/html/node38.html deleted file mode 100644 index 7a7e8e5d0..000000000 --- a/docs/html/node38.html +++ /dev/null @@ -1,117 +0,0 @@ - - - - - -tril -- Return the lower triangle - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: triu Return - Up: Sparse Matrix class - Previous: clip_diag Cut -   Contents -
      -
      - - -

      -tril -- Return the lower triangle -

      - -
      -    call a%tril(l,info[,&
-       & diag,imin,imax,jmin,jmax,rscale,cscale,u])
-
      - -

      -Returns the lower triangular part of submatrix -A(imin:imax,jmin:jmax), optionally rescaling row/col indices to -the range 1:imax-imin+1,1:jmax-jmin+1 and returing the -complementary upper triangle. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      diag
      -
      Include diagonals up to this one; diag=1 means the - first superdiagonal, diag=-1 means the first subdiagonal. -Default 0. -
      -
      imin,imax,jmin,jmax
      -
      Minimum and maximum row and column indices. -
      -Type: optional. -
      -
      rscale,cscale
      -
      Whether to rescale row/column indices. -Type: optional. -
      -
      -
      -
      On Return
      -
      -
      -
      l
      -
      A copy of the lower triangle of a. -
      -A variable of type psb_Tspmat_type. -
      -
      u
      -
      (optional) A copy of the upper triangle of a. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node39.html b/docs/html/node39.html deleted file mode 100644 index 30ece33f7..000000000 --- a/docs/html/node39.html +++ /dev/null @@ -1,117 +0,0 @@ - - - - - -triu -- Return the upper triangle - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_set_mat_default Set - Up: Sparse Matrix class - Previous: tril Return -   Contents -
      -
      - - -

      -triu -- Return the upper triangle -

      - -
      -    call a%triu(u,info[,&
-       & diag,imin,imax,jmin,jmax,rscale,cscale,l])
-
      - -

      -Returns the upper triangular part of submatrix -A(imin:imax,jmin:jmax), optionally rescaling row/col indices to -the range 1:imax-imin+1,1:jmax-jmin+1, and returing the -complementary lower triangle. -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -A variable of type psb_Tspmat_type. -
      -Scope: local. -
      -
      diag
      -
      Include diagonals up to this one; diag=1 means the - first superdiagonal, diag=-1 means the first subdiagonal. -Default 0. -
      -
      imin,imax,jmin,jmax
      -
      Minimum and maximum row and column indices. -
      -Type: optional. -
      -
      rscale,cscale
      -
      Whether to rescale row/column indices. -Type: optional. -
      -
      -
      -
      On Return
      -
      -
      -
      u
      -
      A copy of the upper triangle of a. -
      -A variable of type psb_Tspmat_type. -
      -
      l
      -
      (optional) A copy of the lower triangle of a. -
      -A variable of type psb_Tspmat_type. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node4.html b/docs/html/node4.html deleted file mode 100644 index 81bbea421..000000000 --- a/docs/html/node4.html +++ /dev/null @@ -1,222 +0,0 @@ - - - - - -Basic Nomenclature - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Library contents - Up: General overview - Previous: General overview -   Contents -
      -
      - - -

      -Basic Nomenclature -

      - -

      -Our computational model implies that the data allocation on the -parallel distributed memory machine is guided by the structure of the -physical model, and specifically by the discretization mesh of the -PDE. - -

      -Each point of the discretization mesh will have (at least) one -associated equation/variable, and therefore one index. We say that -point $i$ depends on point $j$ if the equation for a -variable associated with $i$ contains a term in $j$, or equivalently -if $a_{ij} \ne0$. -After the partition of the discretization mesh into sub-domains -assigned to the parallel processes, -we classify the points of a given sub-domain as following. -

      -
      Internal.
      -
      An internal point of - a given domain depends only on points of the -same domain. -If all points of a domain are assigned to one -process, then a computational step (e.g., a -matrix-vector product) of the -equations associated with the internal points requires no data -items from other domains and no communications. - -

      -

      -
      Boundary.
      -
      A point of -a given domain is a boundary point if it depends on points -belonging to other domains. - -

      -

      -
      Halo.
      -
      A halo point for a given domain is a point belonging to -another domain such that there is a boundary point which depends -on it. Whenever performing a computational step, such as a -matrix-vector product, the values associated with halo points are -requested from other domains. A boundary point of a given -domain is usually a halo point for some other domain2; therefore -the cardinality of the boundary points set denotes the amount of data - sent to other domains. -
      -
      Overlap.
      -
      An overlap point is a boundary point assigned to -multiple domains. Any operation that involves an overlap point -has to be replicated for each assignment. -
      -
      -Overlap points do not usually exist in the basic data -distributions; however they are a feature of Domain Decomposition -Schwarz preconditioners which are the subject of related research -work [4,3]. - -

      -We denote the sets of internal, boundary and halo points for a given -subdomain by $\cal I$, $\cal B$ and $\cal H$. -Each subdomain is assigned to one process; each process usually -owns one subdomain, although the user may choose to assign more than -one subdomain to a process. If each process $i$ owns one -subdomain, the number of rows in the local sparse matrix is - -$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert$, and the number of local columns -(i.e. those for which there exists at least one non-zero entry in the -local rows) is -$\vert{\cal I}_i\vert + \vert{\cal B}_i\vert +\vert{\cal H}_i\vert$. - -

      - -

      - - - -
      Figure 2: -Point classfication.
      -
      -\includegraphics[scale=0.65]{figures/points.eps} - -\rotatebox{-90}{\includegraphics[scale=0.65]{figures/points}} - -
      -
      - -

      -This classification of mesh points guides the naming scheme that we -adopted in the library internals and in the data structures. We -explicitly note that “Halo” points are also often called “ghost” -points in the literature. - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Library contents - Up: General overview - Previous: General overview -   Contents
      - - - - diff --git a/docs/html/node40.html b/docs/html/node40.html deleted file mode 100644 index aef8c0c1d..000000000 --- a/docs/html/node40.html +++ /dev/null @@ -1,80 +0,0 @@ - - - - - -psb_set_mat_default -- Set default storage format - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: clone Clone - Up: Sparse Matrix class - Previous: triu Return -   Contents -
      -
      - - -

      -psb_set_mat_default -- Set default storage format -

      - -

      -

      -call  psb_set_mat_default(a)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      a variable of class(psb_T_base_sparse_mat) requesting - a new default storage format. -
      -Type: required. -
      -
      - -

      -

      - - - diff --git a/docs/html/node41.html b/docs/html/node41.html deleted file mode 100644 index 83caf8851..000000000 --- a/docs/html/node41.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -clone -- Clone current object - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Named Constants - Up: Sparse Matrix class - Previous: psb_set_mat_default Set -   Contents -
      -
      - - -

      -clone -- Clone current object -

      - -

      -

      -call  a%clone(b,info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the sparse matrix. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      b
      -
      A copy of the input object. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node42.html b/docs/html/node42.html deleted file mode 100644 index 34e452e09..000000000 --- a/docs/html/node42.html +++ /dev/null @@ -1,82 +0,0 @@ - - - - - -Named Constants - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Dense Vector Data Structure - Up: Sparse Matrix class - Previous: clone Clone -   Contents -
      -
      - - -

      - -
      -Named Constants -

      -
      -
      psb_dupl_ovwrt_
      -
      Duplicate coefficients should be overwritten - (i.e. ignore duplications) -
      -
      psb_dupl_add_
      -
      Duplicate coefficients should be added; -
      -
      psb_dupl_err_
      -
      Duplicate coefficients should trigger an error conditino -
      -
      psb_upd_dflt_
      -
      Default update strategy for matrix coefficients; -
      -
      psb_upd_srch_
      -
      Update strategy based on search into the data structure; -
      -
      psb_upd_perm_
      -
      Update strategy based on additional - permutation data (see tools routine description). -
      -
      - -

      -

      - - - diff --git a/docs/html/node43.html b/docs/html/node43.html deleted file mode 100644 index 096acda1a..000000000 --- a/docs/html/node43.html +++ /dev/null @@ -1,164 +0,0 @@ - - - - - -Dense Vector Data Structure - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Vector Methods - Up: Data Structures and Classes - Previous: Named Constants -   Contents -
      -
      - - -

      - -
      -Dense Vector Data Structure -

      -The vdatapsb_T_vect_type data structure -encapsulates the dense vectors in a way similar to sparse matrices, -i.e. including a base type vbasedata psb_T_base_vect_type. -The user will not, in general, access the vector components directly, -but rather via the routines of sec. 6. Among other -simple things, we define here an extraction method that can be used to -get a full copy of the part of the vector stored on the local -process. - -

      -The type declaration is shown in -figure 5 where T is a placeholder for the -data type and precision variants -

      -
      I
      -
      Integer; -
      -
      S
      -
      Single precision real; -
      -
      D
      -
      Double precision real; -
      -
      C
      -
      Single precision complex; -
      -
      Z
      -
      Double precision complex. -
      -
      -The actual data is contained in the polymorphic component v%v; -the separation between the application and the actual data is -essential for cases where it is necessary to link to data storage made -available elsewhere outside the direct control of the -compiler/application, e.g. data stored in a graphics accelerator's -private memory. - -
      - - - -
      Figure 5: - The PSBLAS defined data type that - contains a dense vector.
      -
      - -
      -
      -  type psb_T_base_vect_type
-    TYPE(KIND_), allocatable :: v(:)
-  end type psb_T_base_vect_type
-
-  type psb_T_vect_type
-    class(psb_T_base_vect_type), allocatable :: v 
-  end type  psb_T_vect_type
-
      -
      -
      -
      - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: Vector Methods - Up: Data Structures and Classes - Previous: Named Constants -   Contents
      - - - - diff --git a/docs/html/node44.html b/docs/html/node44.html deleted file mode 100644 index 59a5574b7..000000000 --- a/docs/html/node44.html +++ /dev/null @@ -1,57 +0,0 @@ - - - - - -Vector Methods - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_nrows Get - Up: Dense Vector Data Structure - Previous: Dense Vector Data Structure -   Contents -
      -
      - - -

      -Vector Methods -

      -
      - - - diff --git a/docs/html/node45.html b/docs/html/node45.html deleted file mode 100644 index 41ef895e2..000000000 --- a/docs/html/node45.html +++ /dev/null @@ -1,89 +0,0 @@ - - - - - -get_nrows -- Get number of rows in a dense vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: sizeof Get - Up: Dense Vector Data Structure - Previous: Vector Methods -   Contents -
      -
      - - -

      -get_nrows -- Get number of rows in a dense vector -

      - -

      -

      -nr = v%get_nrows()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      v
      -
      the dense vector -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The number of rows of dense vector v. -
      -
      - -

      -

      - - - diff --git a/docs/html/node46.html b/docs/html/node46.html deleted file mode 100644 index 18fa65e1d..000000000 --- a/docs/html/node46.html +++ /dev/null @@ -1,92 +0,0 @@ - - - - - -sizeof -- Get memory occupation in bytes -of a dense vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: set Set - Up: Dense Vector Data Structure - Previous: get_nrows Get -   Contents -
      -
      - - -

      -sizeof -- Get memory occupation in bytes -of a dense vector -

      - -

      -

      -memory_size = v%sizeof()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      v
      -
      the dense vector -
      -Scope: local -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      The memory occupation in bytes. -
      -
      - -

      -

      - - - diff --git a/docs/html/node47.html b/docs/html/node47.html deleted file mode 100644 index 2feec7f95..000000000 --- a/docs/html/node47.html +++ /dev/null @@ -1,134 +0,0 @@ - - - - - -set -- Set contents of the vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: get_vect Get - Up: Dense Vector Data Structure - Previous: sizeof Get -   Contents -
      -
      - - -

      -set -- Set contents of the vector -

      - -

      -

      - call  v%set(alpha[,first,last])
- call  v%set(vect[,first,last])
- call  v%zero()
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      v
      -
      the dense vector -
      -Scope: local -
      -
      alpha
      -
      A scalar value. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data -type indicated in Table 1. - -

      -

      -
      first,last
      -
      Boundaries for setting in the vector. -
      -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Specified - as: integers. -
      -
      vect
      -
      An array -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data -type indicated in Table 1. -
      -
      -Note that a call to v%zero() is provided as a shorthand, but -is equivalent to a call to v%set(zero) with the zero -constant having the appropriate type and kind. - -

      -

      -
      On Return
      -
      -
      -
      v
      -
      the dense vector, with updated entries -
      -Scope: local -
      -
      - -

      -

      - - - diff --git a/docs/html/node48.html b/docs/html/node48.html deleted file mode 100644 index 4bc79826d..000000000 --- a/docs/html/node48.html +++ /dev/null @@ -1,111 +0,0 @@ - - - - - -get_vect -- Get a copy of the vector contents - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: clone Clone - Up: Dense Vector Data Structure - Previous: set Set -   Contents -
      -
      - - -

      -get_vect -- Get a copy of the vector contents -

      - -

      -

      -extv = v%get_vect([n])
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      v
      -
      the dense vector -
      -Scope: local -
      -
      n
      -
      Size to be returned -
      -Scope: local. -
      -Type: optional; default: entire vector. -
      -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      An allocatable array holding a copy of the dense - 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. -
      -
      - -

      -

      - - - diff --git a/docs/html/node49.html b/docs/html/node49.html deleted file mode 100644 index 8344bc75f..000000000 --- a/docs/html/node49.html +++ /dev/null @@ -1,90 +0,0 @@ - - - - - -clone -- Clone current object - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Preconditioner data structure - Up: Dense Vector Data Structure - Previous: get_vect Get -   Contents -
      -
      - - -

      -clone -- Clone current object -

      - -
      -call  x%clone(y,info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the dense vector. -
      -Scope: local. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      A copy of the input object. -
      -
      info
      -
      Return code. -
      -
      - -

      -

      - - - diff --git a/docs/html/node5.html b/docs/html/node5.html deleted file mode 100644 index f2b0e0341..000000000 --- a/docs/html/node5.html +++ /dev/null @@ -1,194 +0,0 @@ - - - - - -Library contents - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Application structure - Up: General overview - Previous: Basic Nomenclature -   Contents -
      -
      - - -

      -Library contents -

      - -

      -The PSBLAS library consists of various classes of subroutines: -

      -
      Computational routines
      -
      comprising: - -
        -
      • Sparse matrix by dense matrix product; -
        • -
      • Sparse triangular -systems solution for block diagonal matrices; -
        • -
      • Vector and matrix norms; -
        • -
      • Dense matrix sums; -
        • -
      • Dot products. -
        • -
      -
      -
      Communication routines
      -
      handling halo and overlap - communications; -
      -
      Data management and auxiliary routines
      -
      including: - -
        -
      • Parallel environment management -
        • -
      • Communication descriptors allocation; -
        • -
      • Dense and sparse matrix allocation; -
        • -
      • Dense and sparse matrix build and update; -
        • -
      • Sparse matrix and data distribution preprocessing. -
        • -
      -
      -
      Preconditioner routines
      -
      -
      -
      Iterative methods
      -
      a subset of Krylov subspace iterative - methods -
      -
      -The following naming scheme has been adopted for all the symbols -internally defined in the PSBLAS software package: - -
        -
      • all symbols (i.e. subroutine names, data types...) are - prefixed by psb_ -
        • -
      • all data type names are suffixed by _type -
        • -
      • all constants are suffixed by _ -
        • -
      • all top-level subroutine names follow the rule psb_xxname where - xx can be either: - -
          -
        • ge: the routine is related to dense data, -
          • -
        • sp: the routine is related to sparse data, -
          • -
        • cd: the routine is related to communication descriptor - (see 3). - -
          • -
        - For example the psb_geins, psb_spins and - psb_cdins perform the same action (see 6) on - dense matrices, sparse matrices and communication descriptors - respectively. - Interface overloading allows the usage of the same subroutine - names for both real and complex data. -
        • -
      -In the description of the subroutines, arguments or argument entries -are classified as: -
      -
      global
      -
      For input arguments, the value must be the same on all processes - participating in the subroutine call; for output arguments the value - is guaranteed to be the same. -
      -
      local
      -
      Each process has its own value(s) independently. -
      -
      -To finish our general description, we define a version string with the -constant -

      -
      - - -\begin{displaymath}\verb\vert psb_version_string_\vert\end{displaymath} -
      -
      -

      -whose current value is 3.4.0 - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Application structure - Up: General overview - Previous: Basic Nomenclature -   Contents
      - - - - diff --git a/docs/html/node50.html b/docs/html/node50.html deleted file mode 100644 index e61abc77d..000000000 --- a/docs/html/node50.html +++ /dev/null @@ -1,88 +0,0 @@ - - - - - -Preconditioner data structure - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Heap data structure - Up: Data Structures and Classes - Previous: clone Clone -   Contents -
      -
      - - -

      - -
      -Preconditioner data structure -

      -Our base library offers support for simple well known preconditioners -like Diagonal Scaling or Block Jacobi with incomplete -factorization ILU(0). - -

      -A preconditioner is held in the precdata psb_prec_type data structure reported in -figure 6. The psb_prec_type -data type may contain a simple preconditioning matrix with the -associated communication descriptor.The internal preconditioner is allocated appropriately with the -dynamic type corresponding to the desired preconditioner. - -

      - - - -
      Figure 6: -The PSBLAS defined data type that contains a preconditioner.
      -
      - -
      -
      -  type psb_Tprec_type
-    class(psb_T_base_prec_type), allocatable :: prec
-  end type psb_Tprec_type
-
      -
      -
      - -

      -

      - - - diff --git a/docs/html/node51.html b/docs/html/node51.html deleted file mode 100644 index 41816dcff..000000000 --- a/docs/html/node51.html +++ /dev/null @@ -1,97 +0,0 @@ - - - - - -Heap data structure - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Computational routines - Up: Data Structures and Classes - Previous: Preconditioner data structure -   Contents -
      -
      - - -

      -Heap data structure -

      - -

      -Among the tools routines of sec. 6, we have a number -of sorting utilities; the heap sort is implemented in terms of heaps -having the following signatures: -

      -
      psb_T_heap
      -
      : a heap containing elements of type T, where T - can be i,s,c,d,z for integer, real and complex data; -
      -
      psb_T_idx_heap
      -
      : a heap containing elements of type T, as - above, together with an integer index. -
      -
      -Given a heap object, the following methods are defined on it: -
      -
      init
      -
      Initialize memory; also choose ascending or descending - order; -
      -
      howmany
      -
      Current heap occupancy; -
      -
      insert
      -
      Add an item (or an item and its index); -
      -
      get_first
      -
      Remove and return the first element; -
      -
      dump
      -
      Print on file; -
      -
      free
      -
      Release memory. -
      -
      -These objects are used in MLD2P4 to implement the factorization -algorithms. - -

      -

      - - - diff --git a/docs/html/node52.html b/docs/html/node52.html deleted file mode 100644 index 1d9cf8ca3..000000000 --- a/docs/html/node52.html +++ /dev/null @@ -1,99 +0,0 @@ - - - - - -Computational routines - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geaxpby General - Up: userhtml - Previous: Heap data structure -   Contents -
      -
      - - -

      -Computational routines -

      - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node53.html b/docs/html/node53.html deleted file mode 100644 index b3c9a66e6..000000000 --- a/docs/html/node53.html +++ /dev/null @@ -1,280 +0,0 @@ - - - - - -psb_geaxpby -- General Dense Matrix Sum - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gedot Dot - Up: Computational routines - Previous: Computational routines -   Contents -
      -
      - - -

      -psb_geaxpby -- General Dense Matrix Sum -

      - -

      -This subroutine is an interface to the computational kernel for -dense matrix sum: -

      -
      - - -\begin{displaymath}y \leftarrow \alpha\> x+ \beta y \end{displaymath} -
      -
      -

      - -

      -

      -call psb_geaxpby(alpha, x, beta, y, desc_a, info)
-
      - -

      -

      -
      - - - -
      Table 1: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $x$, $y$, $\alpha$, $\beta$Subroutine
      Short Precision Realpsb_geaxpby
      Long Precision Realpsb_geaxpby
      Short Precision Complexpsb_geaxpby
      Long Precision Complexpsb_geaxpby
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      alpha
      -
      the scalar $\alpha$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data -type indicated in Table 1. -
      -
      x
      -
      the local portion of global dense matrix -$x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type -specified in Table 1. The rank of $x$ must be the same of $y$. -
      -
      beta
      -
      the scalar $\beta$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data type indicated in Table 1. -
      -
      y
      -
      the local portion of the global dense matrix -$y$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of the type -indicated in Table 1. The rank of $y$ must be the same of $x$. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      the local portion of result submatrix $y$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type containing numbers of the type -indicated in Table 1. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_gedot Dot - Up: Computational routines - Previous: Computational routines -   Contents
      - - - - diff --git a/docs/html/node54.html b/docs/html/node54.html deleted file mode 100644 index 9ab3fd9c3..000000000 --- a/docs/html/node54.html +++ /dev/null @@ -1,317 +0,0 @@ - - - - - -psb_gedot -- Dot Product - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gedots Generalized - Up: Computational routines - Previous: psb_geaxpby General -   Contents -
      -
      - - -

      -psb_gedot -- Dot Product -

      - -

      -This function computes dot product between two vectors $x$ and -$y$. -
      -If $x$ and $y$ are real vectors -it computes dot-product as: -

      -
      - - -\begin{displaymath}dot \leftarrow x^T y\end{displaymath} -
      -
      -

      -Else if $x$ and $y$ are complex vectors then it computes dot-product as: -

      -
      - - -\begin{displaymath}dot \leftarrow x^H y\end{displaymath} -
      -
      -

      - -

      -

      -psb_gedot(x, y, desc_a, info [,global])
-
      -

      -
      - - - -
      Table 2: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $dot$, $x$, $y$Function
      Short Precision Realpsb_gedot
      Long Precision Realpsb_gedot
      Short Precision Complexpsb_gedot
      Long Precision Complexpsb_gedot
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 2. The rank of $x$ must be the same of $y$. -
      -
      y
      -
      the local portion of global dense matrix -$y$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 2. The rank of $y$ must be the same of $x$. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      global
      -
      Specifies whether the computation should include the - global reduction across all processes. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical scalar. -Default: global=.true. -
      -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      is the dot product of vectors $x$ and $y$. -
      -Scope: global unless the optional variable -global=.false. has been specified -
      -Specified as: a number of the data type indicated in Table 2. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. The computation of a global result requires a global - communication, which entails a significant overhead. It may be - necessary and/or advisable to compute multiple dot products at the same - time; in this case, it is possible to improve the runtime efficiency - by using the following scheme: -
        -\begin{lstlisting} -vres(1) = psb_gedot(x1,y1,desc_a,info,global=.false.) -vres(... -...,y3,desc_a,info,global=.false.) -call psb_sum(ictxt,vres(1:3)) -\end{lstlisting} -
        -In this way the global communication, which for small sizes is a - latency-bound operation, is invoked only once. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_gedots Generalized - Up: Computational routines - Previous: psb_geaxpby General -   Contents
      - - - - diff --git a/docs/html/node55.html b/docs/html/node55.html deleted file mode 100644 index 1244a8d8c..000000000 --- a/docs/html/node55.html +++ /dev/null @@ -1,264 +0,0 @@ - - - - - -psb_gedots -- Generalized Dot Product - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_normi Infinity-Norm - Up: Computational routines - Previous: psb_gedot Dot -   Contents -
      -
      - - -

      -psb_gedots -- Generalized Dot Product -

      - -

      -This subroutine computes a series of dot products among the columns of -two dense matrices $x$ and $y$: -

      -
      - - -\begin{displaymath}res(i) \leftarrow x(:,i)^T y(:,i)\end{displaymath} -
      -
      -

      -If the matrices are complex, then the -usual convention applies, i.e. the conjugate transpose of $x$ is -used. If $x$ and $y$ are of rank one, then $res$ is a scalar, else it -is a rank one array. - -

      -

      -call psb_gedots(res, x, y, desc_a, info)
-
      -

      -
      - - - -
      Table 3: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $res$, $x$, $y$Subroutine
      Short Precision Realpsb_gedots
      Long Precision Realpsb_gedots
      Short Precision Complexpsb_gedots
      Long Precision Complexpsb_gedots
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 3. The rank of $x$ must be the same of $y$. -
      -
      y
      -
      the local portion of global dense matrix -$y$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 3. The rank of $y$ must be the same of $x$. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      On Return
      -
      -
      -
      res
      -
      is the dot product of vectors $x$ and $y$. -
      -Scope: global -
      -Intent: out. -
      -Specified as: a number or a rank-one array of the data type indicated -in Table 2. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_normi Infinity-Norm - Up: Computational routines - Previous: psb_gedot Dot -   Contents
      - - - - diff --git a/docs/html/node56.html b/docs/html/node56.html deleted file mode 100644 index 7f1ecd2b2..000000000 --- a/docs/html/node56.html +++ /dev/null @@ -1,283 +0,0 @@ - - - - - -psb_normi -- Infinity-Norm of Vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geamaxs Generalized - Up: Computational routines - Previous: psb_gedots Generalized -   Contents -
      -
      - - -

      -psb_normi -- Infinity-Norm of Vector -

      - -

      -This function computes - the infinity-norm of a vector $x$. -
      -If $x$ is a real vector -it computes infinity norm as: -

      -
      - - -\begin{displaymath}amax \leftarrow \max_i \vert x_i\vert\end{displaymath} -
      -
      -

      -else if $x$ is a complex vector then it computes the infinity-norm as: -

      -
      - - -\begin{displaymath}amax \leftarrow \max_i {(\vert re(x_i)\vert + \vert im(x_i)\vert)}\end{displaymath} -
      -
      -

      - -

      -

      -psb_geamax(x, desc_a, info [,global])
-psb_normi(x, desc_a, info [,global])
-
      - -

      -

      -
      - - - -
      Table 4: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $amax$$x$Function
      Short Precision RealShort Precision Realpsb_geamax
      Long Precision RealLong Precision Realpsb_geamax
      Short Precision RealShort Precision Complexpsb_geamax
      Long Precision RealLong Precision Complexpsb_geamax
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 4. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      global
      -
      Specifies whether the computation should include the - global reduction across all processes. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical scalar. -Default: global=.true. -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      is the infinity norm of vector $x$. -
      -Scope: global unless the optional variable -global=.false. has been specified -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. The computation of a global result requires a global - communication, which entails a significant overhead. It may be - necessary and/or advisable to compute multiple norms at the same - time; in this case, it is possible to improve the runtime efficiency - by using the following scheme: -
        -\begin{lstlisting} -vres(1) = psb_geamax(x1,desc_a,info,global=.false.) -vres(2)... -...(x3,desc_a,info,global=.false.) -call psb_amx(ictxt,vres(1:3)) -\end{lstlisting} -
        -In this way the global communication, which for small sizes is a - latency-bound operation, is invoked only once. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_geamaxs Generalized - Up: Computational routines - Previous: psb_gedots Generalized -   Contents
      - - - - diff --git a/docs/html/node57.html b/docs/html/node57.html deleted file mode 100644 index 60bc14e4e..000000000 --- a/docs/html/node57.html +++ /dev/null @@ -1,216 +0,0 @@ - - - - - -psb_geamaxs -- Generalized Infinity Norm - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_norm1 1-Norm - Up: Computational routines - Previous: psb_normi Infinity-Norm -   Contents -
      -
      - - -

      -psb_geamaxs -- Generalized Infinity Norm -

      - -

      -This subroutine computes a series of infinity norms on the columns of -a dense matrix $x$: -

      -
      - - -\begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath} -
      -
      -

      - -

      -

      -call psb_geamaxs(res, x, desc_a, info)
-
      - -

      -

      -
      - - - -
      Table 5: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $res$$x$Subroutine
      Short Precision RealShort Precision Realpsb_geamaxs
      Long Precision RealLong Precision Realpsb_geamaxs
      Short Precision RealShort Precision Complexpsb_geamaxs
      Long Precision RealLong Precision Complexpsb_geamaxs
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 5. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      On Return
      -
      -
      -
      res
      -
      is the infinity norm of the columns of $x$. -
      -Scope: global -
      -Intent: out. -
      -Specified as: a number or a rank-one array of long precision real numbers. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_norm1 1-Norm - Up: Computational routines - Previous: psb_normi Infinity-Norm -   Contents
      - - - - diff --git a/docs/html/node58.html b/docs/html/node58.html deleted file mode 100644 index 489a80f31..000000000 --- a/docs/html/node58.html +++ /dev/null @@ -1,281 +0,0 @@ - - - - - -psb_norm1 -- 1-Norm of Vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geasums Generalized - Up: Computational routines - Previous: psb_geamaxs Generalized -   Contents -
      -
      - - -

      -psb_norm1 -- 1-Norm of Vector -

      - -

      -This function computes the 1-norm of a vector $x$. -
      -If $x$ is a real vector -it computes 1-norm as: -

      -
      - - -\begin{displaymath}asum \leftarrow \Vert x_i\Vert\end{displaymath} -
      -
      -

      -else if $x$ is a complex vector then it computes 1-norm as: -

      -
      - - -\begin{displaymath}asum \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath} -
      -
      -

      - -

      -

      -psb_geasum(x, desc_a, info [,global])
-psb_norm1(x, desc_a, info [,global])
-
      - -

      -

      -
      - - - -
      Table 6: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $asum$$x$Function
      Short Precision RealShort Precision Realpsb_geasum
      Long Precision RealLong Precision Realpsb_geasum
      Short Precision RealShort Precision Complexpsb_geasum
      Long Precision RealLong Precision Complexpsb_geasum
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 6. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      global
      -
      Specifies whether the computation should include the - global reduction across all processes. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical scalar. -Default: global=.true. -
      -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      is the 1-norm of vector $x$. -
      -Scope: global unless the optional variable -global=.false. has been specified -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. The computation of a global result requires a global - communication, which entails a significant overhead. It may be - necessary and/or advisable to compute multiple norms at the same - time; in this case, it is possible to improve the runtime efficiency - by using the following scheme: -
        -\begin{lstlisting} -vres(1) = psb_geasum(x1,desc_a,info,global=.false.) -vres(2)... -...(x3,desc_a,info,global=.false.) -call psb_sum(ictxt,vres(1:3)) -\end{lstlisting} -
        -In this way the global communication, which for small sizes is a - latency-bound operation, is invoked only once. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_geasums Generalized - Up: Computational routines - Previous: psb_geamaxs Generalized -   Contents
      - - - - diff --git a/docs/html/node59.html b/docs/html/node59.html deleted file mode 100644 index bed7c2508..000000000 --- a/docs/html/node59.html +++ /dev/null @@ -1,264 +0,0 @@ - - - - - -psb_geasums -- Generalized 1-Norm of Vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_norm2 2-Norm - Up: Computational routines - Previous: psb_norm1 1-Norm -   Contents -
      -
      - - -

      -psb_geasums -- Generalized 1-Norm of Vector -

      - -

      -This subroutine computes a series of 1-norms on the columns of -a dense matrix $x$: -

      -
      - - -\begin{displaymath}res(i) \leftarrow \max_k \vert x(k,i)\vert \end{displaymath} -
      -
      -

      -This function computes the 1-norm of a vector $x$. -
      -If $x$ is a real vector -it computes 1-norm as: -

      -
      - - -\begin{displaymath}res(i) \leftarrow \Vert x_i\Vert\end{displaymath} -
      -
      -

      -else if $x$ is a complex vector then it computes 1-norm as: -

      -
      - - -\begin{displaymath}res(i) \leftarrow \Vert re(x)\Vert _1 + \Vert im(x)\Vert _1\end{displaymath} -
      -
      -

      - -

      -

      -call psb_geasums(res, x, desc_a, info)
-
      - -

      -

      -
      - - - -
      Table 7: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $res$$x$Subroutine
      Short Precision RealShort Precision Realpsb_geasums
      Long Precision RealLong Precision Realpsb_geasums
      Short Precision RealShort Precision Complexpsb_geasums
      Long Precision RealLong Precision Complexpsb_geasums
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 7. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -

      -

      -
      On Return
      -
      -
      -
      res
      -
      contains the 1-norm of (the columns of) $x$. -
      -Scope: global -
      -Intent: out. -
      -Short as: a long precision real number. -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_norm2 2-Norm - Up: Computational routines - Previous: psb_norm1 1-Norm -   Contents
      - - - - diff --git a/docs/html/node6.html b/docs/html/node6.html deleted file mode 100644 index 15321ca34..000000000 --- a/docs/html/node6.html +++ /dev/null @@ -1,281 +0,0 @@ - - - - - -Application structure - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: User-defined index mappings - Up: General overview - Previous: Library contents -   Contents -
      -
      - - -

      - -
      -Application structure -

      - -

      -The main underlying principle of the PSBLAS library is that the -library objects are created and exist with reference to a discretized -space to which there corresponds an index space and a matrix sparsity -pattern. As an example, consider a cell-centered finite-volume -discretization of the Navier-Stokes equations on a simulation domain; -the index space $1\dots n$ is isomorphic to the set of cell centers, -whereas the pattern of the associated linear system matrix is -isomorphic to the adjacency graph imposed on the discretization mesh -by the discretization stencil. - -

      -Thus the first order of business is to establish an index space, and -this is done with a call to psb_cdall in which we specify the -size of the index space $n$ and the allocation of the elements of the -index space to the various processes making up the MPI (virtual) -parallel machine. - -

      -The index space is partitioned among processes, and this creates a -mapping from the “global” numbering $1\dots n$ to a numbering -“local” to each process; each process $i$ will own a certain subset - -$1\dots n_{\hbox{row}_i}$, each element of which corresponds to a certain -element of $1\dots n$. The user does not set explicitly this mapping; -when the application needs to indicate to which element of the index -space a certain item is related, such as the row and column index of a -matrix coefficient, it does so in the “global” numbering, and the -library will translate into the appropriate “local” numbering. - -

      -For a given index space $1\dots n$ there are many possible associated -topologies, i.e. many different discretization stencils; thus the -description of the index space is not completed until the user has -defined a sparsity pattern, either explicitly through psb_cdins -or implicitly through psb_spins. The descriptor is finalized -with a call to psb_cdasb and a sparse matrix with a call to -psb_spasb. After psb_cdasb each process $i$ will have -defined a set of “halo” (or “ghost”) indices - -$n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$, denoting elements of the index -space that are not assigned to process $i$; however the -variables associated with them are needed to complete computations -associated with the sparse matrix $A$, and thus they have to be -fetched from (neighbouring) processes. The descriptor of the index -space is built exactly for the purpose of properly sequencing the -communication steps required to achieve this objective. - -

      -A simple application structure will walk through the index space -allocation, matrix/vector creation and linear system solution as -follows: - -

        -
      1. Initialize parallel environment with psb_init -
        2. -
      2. Initialize index space with psb_cdall -
        3. -
      3. Allocate sparse matrix and dense vectors with psb_spall - and psb_geall -
        4. -
      4. Loop over all local rows, generate matrix and vector entries, - and insert them with psb_spins and psb_geins -
        5. -
      5. Assemble the various entities: - -
          -
        1. psb_cdasb -
          2. -
        2. psb_spasb -
          3. -
        3. psb_geasb -
          4. -
        -
        6. -
      6. Choose the preconditioner to be used with prec%init and - build it with prec%build3. -
        7. -
      7. Call the iterative method of choice, e.g. psb_bicgstab -
        8. -
      -This is the structure of the sample programs in the directory -test/pargen/. - -

      -For a simulation in which the same discretization mesh is used over -multiple time steps, the following structure may be more appropriate: - -

        -
      1. Initialize parallel environment with psb_init -
        2. -
      2. Initialize index space with psb_cdall -
        3. -
      3. Loop over the topology of the discretization mesh and build the - descriptor with psb_cdins -
        4. -
      4. Assemble the descriptor with psb_cdasb -
        5. -
      5. Allocate the sparse matrices and dense vectors with - psb_spall and psb_geall -
        6. -
      6. Loop over the time steps: - -
          -
        1. If after first time step, - reinitialize the sparse matrix with psb_sprn; also zero out - the dense vectors; -
          2. -
        2. Loop over the mesh, generate the coefficients and insert/update - them with psb_spins and psb_geins -
          3. -
        3. Assemble with psb_spasb and psb_geasb -
          4. -
        4. Choose and build preconditioner with prec%init and - prec%build -
          5. -
        5. Call the iterative method of choice, e.g. psb_bicgstab - -
          6. -
        -
        7. -
      -The insertion routines will be called as many times as needed; -they only need to be called on the data that is actually -allocated to the current process, i.e. each process generates its own -data. - -

      -In principle there is no specific order in the calls to -psb_spins, nor is there a requirement to build a matrix row in -its entirety before calling the routine; this allows the application -programmer to walk through the discretization mesh element by element, -generating the main part of a given matrix row but also contributions -to the rows corresponding to neighbouring elements. - -

      -From a functional point of view it is even possible to execute one -call for each nonzero coefficient; however this would have a -substantial computational overhead. It is therefore advisable to pack -a certain amount of data into each call to the insertion routine, say -touching on a few tens of rows; the best performng value would depend -on both the architecture of the computer being used and on the problem -structure. -At the opposite extreme, it would be possible to generate the entire -part of a coefficient matrix residing on a process and pass it in a -single call to psb_spins; this, however, would entail a -doubling of memory occupation, and thus would be almost always far -from optimal. - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: User-defined index mappings - Up: General overview - Previous: Library contents -   Contents
      - - - - diff --git a/docs/html/node60.html b/docs/html/node60.html deleted file mode 100644 index 231ca72d5..000000000 --- a/docs/html/node60.html +++ /dev/null @@ -1,283 +0,0 @@ - - - - - -psb_norm2 -- 2-Norm of Vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_genrm2s Generalized - Up: Computational routines - Previous: psb_geasums Generalized -   Contents -
      -
      - - -

      -psb_norm2 -- 2-Norm of Vector -

      - -

      -This function computes the 2-norm of a vector $x$. -
      -If $x$ is a real vector -it computes 2-norm as: -

      -
      - - -\begin{displaymath}nrm2 \leftarrow \sqrt{x^T x}\end{displaymath} -
      -
      -

      -else if $x$ is a complex vector then it computes 2-norm as: -

      -
      - - -\begin{displaymath}nrm2 \leftarrow \sqrt{x^H x}\end{displaymath} -
      -
      -

      - -

      -

      -
      - - - -
      Table 8: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $nrm2$$x$Function
      Short Precision RealShort Precision Realpsb_genrm2
      Long Precision RealLong Precision Realpsb_genrm2
      Short Precision RealShort Precision Complexpsb_genrm2
      Long Precision RealLong Precision Complexpsb_genrm2
      -
      -
      -

      -
      - -

      -

      -psb_genrm2(x, desc_a, info [,global])
-psb_norm2(x, desc_a, info [,global])
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 8. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      global
      -
      Specifies whether the computation should include the - global reduction across all processes. -
      -Scope: global -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical scalar. -Default: global=.true. -
      - -

      -

      -
      On Return
      -
      -
      -
      Function Value
      -
      is the 2-norm of vector $x$. -
      -Scope: global unless the optional variable -global=.false. has been specified -
      -Type: required -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. The computation of a global result requires a global - communication, which entails a significant overhead. It may be - necessary and/or advisable to compute multiple norms at the same - time; in this case, it is possible to improve the runtime efficiency - by using the following scheme: -
        -\begin{lstlisting} -vres(1) = psb_genrm2(x1,desc_a,info,global=.false.) -vres(2)... -...x3,desc_a,info,global=.false.) -call psb_nrm2(ictxt,vres(1:3)) -\end{lstlisting} -
        -In this way the global communication, which for small sizes is a - latency-bound operation, is invoked only once. -
        2. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_genrm2s Generalized - Up: Computational routines - Previous: psb_geasums Generalized -   Contents
      - - - - diff --git a/docs/html/node61.html b/docs/html/node61.html deleted file mode 100644 index bdbc1061f..000000000 --- a/docs/html/node61.html +++ /dev/null @@ -1,219 +0,0 @@ - - - - - -psb_genrm2s -- Generalized 2-Norm of Vector - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_norm1 1-Norm - Up: Computational routines - Previous: psb_norm2 2-Norm -   Contents -
      -
      - - -

      -psb_genrm2s -- Generalized 2-Norm of Vector -

      - -

      -This subroutine computes a series of 2-norms on the columns of -a dense matrix $x$: -

      -
      - - -\begin{displaymath}res(i) \leftarrow \Vert x(:,i)\Vert _2 \end{displaymath} -
      -
      -

      - -

      -

      -call psb_genrm2s(res, x, desc_a, info)
-
      - -

      -

      -
      - - - -
      Table 9: -Data types
      -
      - - - - - - - - - - - - - - - - - - - - - -
      $res$$x$Subroutine
      Short Precision RealShort Precision Realpsb_genrm2s
      Long Precision RealLong Precision Realpsb_genrm2s
      Short Precision RealShort Precision Complexpsb_genrm2s
      Long Precision RealLong Precision Complexpsb_genrm2s
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 9. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -

      -

      -
      On Return
      -
      -
      -
      res
      -
      contains the 1-norm of (the columns of) $x$. -
      -Scope: global -
      -Intent: out. -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_norm1 1-Norm - Up: Computational routines - Previous: psb_norm2 2-Norm -   Contents
      - - - - diff --git a/docs/html/node62.html b/docs/html/node62.html deleted file mode 100644 index 497fbdd5f..000000000 --- a/docs/html/node62.html +++ /dev/null @@ -1,194 +0,0 @@ - - - - - -psb_norm1 -- 1-Norm of Sparse Matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_normi Infinity - Up: Computational routines - Previous: psb_genrm2s Generalized -   Contents -
      -
      - - -

      -psb_norm1 -- 1-Norm of Sparse Matrix -

      - -

      -This function computes the 1-norm of a matrix $A$: -
      -

      -

      -
      - - -\begin{displaymath}nrm1 \leftarrow \Vert A\Vert _1 \end{displaymath} -
      -
      -

      -where: -
      -
      $A$
      -
      represents the global matrix $A$ -
      -
      - -

      -

      -
      - - - -
      Table 10: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $A$Function
      Short Precision Realpsb_spnrm1
      Long Precision Realpsb_spnrm1
      Short Precision Complexpsb_spnrm1
      Long Precision Complexpsb_spnrm1
      -
      -
      -

      -
      - -

      -

      -psb_spnrm1(A, desc_a, info)
-psb_norm1(A, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the local portion of the global sparse matrix -$A$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      On Return
      -
      -
      -
      Function value
      -
      is the 1-norm of sparse submatrix $A$. -
      -Scope: global -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node63.html b/docs/html/node63.html deleted file mode 100644 index a4d426808..000000000 --- a/docs/html/node63.html +++ /dev/null @@ -1,194 +0,0 @@ - - - - - -psb_normi -- Infinity Norm of Sparse Matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spmm Sparse - Up: Computational routines - Previous: psb_norm1 1-Norm -   Contents -
      -
      - - -

      -psb_normi -- Infinity Norm of Sparse Matrix -

      - -

      -This function computes the infinity-norm of a matrix $A$: -
      -

      -

      -
      - - -\begin{displaymath}nrmi \leftarrow \Vert A\Vert _\infty \end{displaymath} -
      -
      -

      -where: -
      -
      $A$
      -
      represents the global matrix $A$ -
      -
      - -

      -

      -
      - - - -
      Table 11: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $A$Function
      Short Precision Realpsb_spnrmi
      Long Precision Realpsb_spnrmi
      Short Precision Complexpsb_spnrmi
      Long Precision Complexpsb_spnrmi
      -
      -
      -

      -
      - -

      -

      -psb_spnrmi(A, desc_a, info)
-psb_normi(A, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the local portion of the global sparse matrix -$A$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      On Return
      -
      -
      -
      Function value
      -
      is the infinity-norm of sparse submatrix $A$. -
      -Scope: global -
      -Specified as: a long precision real number. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node64.html b/docs/html/node64.html deleted file mode 100644 index 12cdf45b1..000000000 --- a/docs/html/node64.html +++ /dev/null @@ -1,427 +0,0 @@ - - - - - -psb_spmm -- Sparse Matrix by Dense Matrix Product - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spsm Triangular - Up: Computational routines - Previous: psb_normi Infinity -   Contents -
      -
      - - -

      -psb_spmm -- Sparse Matrix by Dense Matrix - Product -

      - -

      -This subroutine computes the Sparse Matrix by Dense Matrix Product: - -

      -
      -

      - - - - - - -
      \begin{displaymath} -y \leftarrow \alpha A x + \beta y -\end{displaymath} -(1)
      -

      -
      -
      - - - - - - -
      \begin{displaymath} -y \leftarrow \alpha A^T x + \beta y -\end{displaymath} -(2)
      -

      -
      -
      - - - - - - -
      \begin{displaymath} -y \leftarrow \alpha A^H x + \beta y -\end{displaymath} -(3)
      -

      - -

      -where: -

      -
      $x$
      -
      is the global dense matrix $x_{:, :}$ -
      -
      $y$
      -
      is the global dense matrix $y_{:, :}$ -
      -
      $A$
      -
      is the global sparse matrix $A$ -
      -
      - -

      -

      -
      - - - -
      Table 12: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $A$, $x$, $y$, $\alpha$, $\beta$Subroutine
      Short Precision Realpsb_spmm
      Long Precision Realpsb_spmm
      Short Precision Complexpsb_spmm
      Long Precision Complexpsb_spmm
      -
      -
      -

      -
      - -

      -

      -call psb_spmm(alpha, a, x, beta, y, desc_a, info)
-call psb_spmm(alpha, a, x, beta, y,desc_a, info, &
-             & trans, work)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      alpha
      -
      the scalar $\alpha$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data type indicated in -Table 12. -
      -
      a
      -
      the local portion of the sparse matrix -$A$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type spdatapsb_Tspmat_type. -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 12. The rank of $x$ must be the same of $y$. -
      -
      beta
      -
      the scalar $\beta$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data type indicated in Table 12. -
      -
      y
      -
      the local portion of global dense matrix -$y$. - -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 12. The rank of $y$ must be the same of $x$. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      trans
      -
      indicates what kind of operation to perform. -
      -
      trans = N
      -
      the operation is specified by equation 1 -
      -
      trans = T
      -
      the operation is specified by equation -2 -
      -
      trans = C
      -
      the operation is specified by equation -3 -
      -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: $trans = N$ -
      -Specified as: a character variable. - -

      -

      -
      work
      -
      work array. -
      -Scope: local -
      -Type: optional -
      -Intent: inout. -
      -Specified as: a rank one array of the same type of $x$ and $y$ with -the TARGET attribute. - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      the local portion of result matrix $y$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an array of rank one or two -containing numbers of type specified in -Table 12. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_spsm Triangular - Up: Computational routines - Previous: psb_normi Infinity -   Contents
      - - - - diff --git a/docs/html/node65.html b/docs/html/node65.html deleted file mode 100644 index 0283a958e..000000000 --- a/docs/html/node65.html +++ /dev/null @@ -1,470 +0,0 @@ - - - - - -psb_spsm -- Triangular System Solve - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gemlt Entrywise - Up: Computational routines - Previous: psb_spmm Sparse -   Contents -
      -
      - - -

      -psb_spsm -- Triangular System Solve -

      - -

      -This subroutine computes the Triangular System Solve: - -

      -

      -
      - -\begin{eqnarray*} -y &\leftarrow& \alpha T^{-1} x + \beta y\\ -y &\leftarrow& \al... -...-H} x + \beta y\\ -y &\leftarrow& \alpha T^{-H} D x + \beta y\\ -\end{eqnarray*}
      -

      -

      - -

      -where: -

      -
      $x$
      -
      is the global dense matrix $x_{:, :}$ -
      -
      $y$
      -
      is the global dense matrix $y_{:, :}$ -
      -
      $T$
      -
      is the global sparse block triangular submatrix $T$ -
      -
      $D$
      -
      is the scaling diagonal matrix. -
      -
      - -

      -

      -call psb_spsm(alpha, t, x, beta, y, desc_a, info)
-call psb_spsm(alpha, t, x, beta, y, desc_a, info,&
-             & trans, unit, choice, diag, work)
-
      - -

      -

      -
      - - - -
      Table 13: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $T$, $x$, $y$, $D$, $\alpha$, $\beta$Subroutine
      Short Precision Realpsb_spsm
      Long Precision Realpsb_spsm
      Short Precision Complexpsb_spsm
      Long Precision Complexpsb_spsm
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      alpha
      -
      the scalar $\alpha$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data type indicated in -Table 13. -
      -
      t
      -
      the global portion of the sparse matrix -$T$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object type specified in -§ 3. -
      -
      x
      -
      the local portion of global dense matrix -$x$. - -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 13. The rank of $x$ must be the same of $y$. -
      -
      beta
      -
      the scalar $\beta$. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a number of the data type indicated in Table 13. -
      -
      y
      -
      the local portion of global dense matrix -$y$. - -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 13. The rank of $y$ must be the same of $x$. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. -
      -
      trans
      -
      specify with unitd the operation to perform. -
      -
      trans = 'N'
      -
      the operation is with no transposed matrix -
      -
      trans = 'T'
      -
      the operation is with transposed matrix. -
      -
      trans = 'C'
      -
      the operation is with conjugate transposed matrix. -
      -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: $trans = N$ -
      -Specified as: a character variable. -
      -
      unitd
      -
      specify with trans the operation to perform. -
      -
      unitd = 'U'
      -
      the operation is with no scaling -
      -
      unitd = 'L'
      -
      the operation is with left scaling -
      -
      unitd = 'R'
      -
      the operation is with right scaling. -
      -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: $unitd = U$ -
      -Specified as: a character variable. -
      -
      choice
      -
      specifies the update of overlap elements to be performed - on exit: -
      -
      -
      psb_none_ -
      -
      -
      psb_sum_ -
      -
      -
      psb_avg_ -
      -
      -
      psb_square_root_ -
      -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Default: psb_avg_ -
      -Specified as: an integer variable. -
      -
      diag
      -
      the diagonal scaling matrix. -
      -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Default: -$diag(1) = 1 (no scaling)$ -
      -Specified as: a rank one array containing numbers of the type -indicated in Table 13. -
      -
      work
      -
      a work array. -
      -Scope: local -
      -Type: optional -
      -Intent: inout. -
      -Specified as: a rank one array of the same type of $x$ with the -TARGET attribute. - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      the local portion of global dense matrix -$y$. - -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an array of rank one or two -containing numbers of type specified in -Table 13. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_gemlt Entrywise - Up: Computational routines - Previous: psb_spmm Sparse -   Contents
      - - - - diff --git a/docs/html/node66.html b/docs/html/node66.html deleted file mode 100644 index 7112a9500..000000000 --- a/docs/html/node66.html +++ /dev/null @@ -1,239 +0,0 @@ - - - - - -psb_gemlt -- Entrywise Product - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gediv Entrywise - Up: Computational routines - Previous: psb_spsm Triangular -   Contents -
      -
      - - -

      -psb_gemlt -- Entrywise Product -

      - -

      -This function computes the entrywise product between two vectors $x$ and -$y$ -

      -
      - - -\begin{displaymath}dot \leftarrow x(i) y(i).\end{displaymath} -
      -
      -

      - -

      -

      -psb_gemlt(x, y, desc_a, info)
-
      -

      -
      - - - -
      Table 14: -Data types
      - - - - - - - - - - - - - - - - -
      $dot$, $x$, $y$Function
      Short Precision Realpsb_gemlt
      Long Precision Realpsb_gemlt
      Short Precision Complexpsb_gemlt
      Long Precision Complexpsb_gemlt
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. - -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense vector - $x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type vdatapsb_T_vect_type - containing numbers of type specified in - Table 2. - -
      -
      y
      -
      the local portion of global dense vector - $y$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type vdatapsb_T_vect_type - containing numbers of type specified in - Table 2. - -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -
      -
      On Return
      -
      -
      -
      y
      -
      the local portion of result submatrix $y$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type - indicated in Table 14. - -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_gediv Entrywise - Up: Computational routines - Previous: psb_spsm Triangular -   Contents
      - - - - diff --git a/docs/html/node67.html b/docs/html/node67.html deleted file mode 100644 index ff68685c8..000000000 --- a/docs/html/node67.html +++ /dev/null @@ -1,253 +0,0 @@ - - - - - -psb_gediv -- Entrywise Division - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geinv Entrywise - Up: Computational routines - Previous: psb_gemlt Entrywise -   Contents -
      -
      - - -

      -psb_gediv -- Entrywise Division -

      - -

      -This function computes the entrywise division between two vectors $x$ and -$y$ -

      -
      - - -\begin{displaymath}/ \leftarrow x(i)/y(i).\end{displaymath} -
      -
      -

      - -

      -

      -psb_gediv(x, y, desc_a, info, [flag)
-
      -

      -
      - - - -
      Table 15: -Data types
      - - - - - - - - - - - - - - - - -
      $/$, $x$, $y$Function
      Short Precision Realpsb_gediv
      Long Precision Realpsb_gediv
      Short Precision Complexpsb_gediv
      Long Precision Complexpsb_gediv
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. - -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense vector - $x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type vdatapsb_T_vect_type - containing numbers of type specified in - Table 2. - -
      -
      y
      -
      the local portion of global dense vector - $y$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type vdatapsb_T_vect_type - containing numbers of type specified in - Table 2. - -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -
      -
      flag
      -
      check if any of the $y(i) = 0$, and in case returns error halting the computation. -
      -Scope: local -
      -Type: optional - Intent: in. -
      -Specified as: the logical value flag=.true. - -
      -
      On Return
      -
      -
      -
      x
      -
      the local portion of result submatrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type - indicated in Table 14. - -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_geinv Entrywise - Up: Computational routines - Previous: psb_gemlt Entrywise -   Contents
      - - - - diff --git a/docs/html/node68.html b/docs/html/node68.html deleted file mode 100644 index 56b7396a1..000000000 --- a/docs/html/node68.html +++ /dev/null @@ -1,234 +0,0 @@ - - - - - -psb_geinv -- Entrywise Inversion - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Communication routines - Up: Computational routines - Previous: psb_gediv Entrywise -   Contents -
      -
      - - -

      -psb_geinv -- Entrywise Inversion -

      - -

      -This function computes the entrywise inverse of a vector $x$ and puts it into -$y$ -

      -
      - - -\begin{displaymath}/ \leftarrow 1/x(i).\end{displaymath} -
      -
      -

      - -

      -

      -psb_geinv(x, y, desc_a, info, [flag)
-
      -

      -
      - - - -
      Table 16: -Data types
      - - - - - - - - - - - - - - - - -
      $/$, $x$, $y$Function
      Short Precision Realpsb_geinv
      Long Precision Realpsb_geinv
      Short Precision Complexpsb_geinv
      Long Precision Complexpsb_geinv
      -
      -
      -

      -
      - -

      -

      -
      Type:
      -
      Synchronous. - -
      -
      On Entry
      -
      -
      -
      x
      -
      the local portion of global dense vector - $x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type vdatapsb_T_vect_type - containing numbers of type specified in - Table 2. - -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an object of type descdatapsb_desc_type. - -
      -
      flag
      -
      check if any of the $x(i) = 0$, and in case returns error halting the computation. -
      -Scope: local -
      -Type: optional - Intent: in. -
      -Specified as: the logical value flag=.true. - -
      -
      On Return
      -
      -
      -
      y
      -
      the local portion of result submatrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: an object of type vdatapsb_T_vect_type containing numbers of the type - indicated in Table 16. - -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Communication routines - Up: Computational routines - Previous: psb_gediv Entrywise -   Contents
      - - - - diff --git a/docs/html/node69.html b/docs/html/node69.html deleted file mode 100644 index dd04cb65d..000000000 --- a/docs/html/node69.html +++ /dev/null @@ -1,77 +0,0 @@ - - - - - -Communication routines - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_halo Halo - Up: userhtml - Previous: psb_geinv Entrywise -   Contents -
      -
      - - -

      -Communication routines -

      -The routines in this chapter implement various global communication operators -on vectors associated with a discretization mesh. For auxiliary communication -routines not tied to a discretization space see 6. - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node7.html b/docs/html/node7.html deleted file mode 100644 index 2823bee49..000000000 --- a/docs/html/node7.html +++ /dev/null @@ -1,108 +0,0 @@ - - - - - -User-defined index mappings - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Programming model - Up: Application structure - Previous: Application structure -   Contents -
      -
      - - -

      - -
      -User-defined index mappings -

      -PSBLAS supports user-defined global to local index mappings, subject -to the constraints outlined in sec. 2.3: - -
        -
      1. The set of indices owned locally must be mapped to the set - -$1\dots n_{\hbox{row}_i}$; -
        2. -
      2. The set of halo points must be mapped to the set - -$n_{\hbox{row}_i}+1\dots n_{\hbox{col}_i}$; -
        3. -
      -but otherwise the mapping is arbitrary. The user application is -responsible to ensure consistency of this mapping; some errors may be -caught by the library, but this is not guaranteed. -The application structure to -support this usage is as follows: - -
        -
      1. Initialize index space with - psb_cdall(ictx,desc,info,vl=vl,lidx=lidx) passing the vectors - vl(:) containing the set of global indices owned by the - current process and lidx(:) containing the corresponding - local indices; -
        2. -
      2. Add the halo points ja(:) and their associated local - indices lidx(:) with a(some) call(s) to - psb_cdins(nz,ja,desc,info,lidx=lidx); -
        3. -
      3. Assemble the descriptor with psb_cdasb; -
        4. -
      4. Build the sparse matrices and vectors, optionally making use in - psb_spins and psb_geins of the local argument - specifying that the indices in ia, ja and irw, - respectively, are already local indices. -
        5. -
      - -

      -

      - - - diff --git a/docs/html/node70.html b/docs/html/node70.html deleted file mode 100644 index cca8cb371..000000000 --- a/docs/html/node70.html +++ /dev/null @@ -1,633 +0,0 @@ - - - - - -psb_halo -- Halo Data Communication - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_ovrl Overlap - Up: Communication routines - Previous: Communication routines -   Contents -
      -
      - - -

      -psb_halo -- Halo Data Communication -

      - -

      -These subroutines gathers the values of the halo -elements: - -

      -

      -
      - - -\begin{displaymath}x \leftarrow x \end{displaymath} -
      -
      -

      -where: -
      -
      $x$
      -
      is a global dense submatrix. -
      -
      - -

      -

      -
      - - - -
      Table 17: -Data types
      -
      - - - - - - - - - - - - - - - - - - - -
      $\alpha$, $x$Subroutine
      Integerpsb_halo
      Short Precision Realpsb_halo
      Long Precision Realpsb_halo
      Short Precision Complexpsb_halo
      Long Precision Complexpsb_halo
      -
      -
      -

      -
      - -

      -
      -\begin{lstlisting} -call psb_halo(x, desc_a, info) -call psb_halo(x, desc_a, info, work, data) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      global dense matrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 17. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      work
      -
      the work array. -
      -Scope: local -
      -Type: optional -
      -Intent: inout. -
      -Specified as: a rank one array of the same type of $x$. -
      -
      data
      -
      index list selector. -
      -Scope: global -
      -Type: optional -
      -Specified as: an integer. Values:psb_comm_halo_,psb_comm_mov_, -psb_comm_ext_, default: psb_comm_halo_. Chooses the -index list on which to base the data exchange. - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      global dense result matrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Returned as: a rank one or two array -containing numbers of type specified in -Table 17. -
      -
      info
      -
      the local portion of result submatrix $y$. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value that contains an error code. -
      -
      - -
      - - - -
      Figure 7: -Sample discretization mesh.
      -
      -\includegraphics[scale=0.45]{figures/try8x8.eps} - -\includegraphics[scale=0.45]{figures/try8x8} - -
      -
      - -

      -Usage Example -Consider the discretization mesh depicted in fig. 7, -partitioned among two processes as shown by the dashed line; the data -distribution is such that each process will own 32 entries in the -index space, with a halo made of 8 entries placed at local indices 33 -through 40. If process 0 assigns an initial value of 1 to its entries -in the $x$ vector, and process 1 assigns a value of 2, then after a -call to psb_halo the contents of the local vectors will be the -following: -
      -

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      -Process 0  -Process 1
      - I GLOB(I) X(I)   I GLOB(I) X(I)
      - 1 1 1.0   1 33 2.0
      - 2 2 1.0   2 34 2.0
      - 3 3 1.0   3 35 2.0
      - 4 4 1.0   4 36 2.0
      - 5 5 1.0   5 37 2.0
      - 6 6 1.0   6 38 2.0
      - 7 7 1.0   7 39 2.0
      - 8 8 1.0   8 40 2.0
      - 9 9 1.0   9 41 2.0
      - 10 10 1.0   10 42 2.0
      - 11 11 1.0   11 43 2.0
      - 12 12 1.0   12 44 2.0
      - 13 13 1.0   13 45 2.0
      - 14 14 1.0   14 46 2.0
      - 15 15 1.0   15 47 2.0
      - 16 16 1.0   16 48 2.0
      - 17 17 1.0   17 49 2.0
      - 18 18 1.0   18 50 2.0
      - 19 19 1.0   19 51 2.0
      - 20 20 1.0   20 52 2.0
      -21 21 1.0   21 53 2.0
      -22 22 1.0   22 54 2.0
      -23 23 1.0   23 55 2.0
      -24 24 1.0   24 56 2.0
      -25 25 1.0   25 57 2.0
      -26 26 1.0   26 58 2.0
      -27 27 1.0   27 59 2.0
      -28 28 1.0   28 60 2.0
      -29 29 1.0   29 61 2.0
      -30 30 1.0   30 62 2.0
      -31 31 1.0   31 63 2.0
      -32 32 1.0   32 64 2.0
      -33 33 2.0   33 25 1.0
      -34 34 2.0   34 26 1.0
      -35 35 2.0   35 27 1.0
      -36 36 2.0   36 28 1.0
      -37 37 2.0   37 29 1.0
      -38 38 2.0   38 30 1.0
      -39 39 2.0   39 31 1.0
      -40 40 2.0   40 32 1.0
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_ovrl Overlap - Up: Communication routines - Previous: Communication routines -   Contents
      - - - - diff --git a/docs/html/node71.html b/docs/html/node71.html deleted file mode 100644 index 1947ee48f..000000000 --- a/docs/html/node71.html +++ /dev/null @@ -1,761 +0,0 @@ - - - - - -psb_ovrl -- Overlap Update - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gather Gather - Up: Communication routines - Previous: psb_halo Halo -   Contents -
      -
      - - -

      -psb_ovrl -- Overlap Update -

      - -

      -These subroutines applies an overlap operator to the input vector: - -

      -

      -
      - - -\begin{displaymath}x \leftarrow Q x \end{displaymath} -
      -
      -

      -where: -
      -
      $x$
      -
      is the global dense submatrix $x$ -
      -
      $Q$
      -
      is the overlap operator; it is the composition of two -operators $P_a$ and $P^{T}$. -
      -
      - -

      -

      -
      - - - -
      Table 18: -Data types
      -
      - - - - - - - - - - - - - - - - -
      $x$Subroutine
      Short Precision Realpsb_ovrl
      Long Precision Realpsb_ovrl
      Short Precision Complexpsb_ovrl
      Long Precision Complexpsb_ovrl
      -
      -
      -

      -
      - -

      -
      -\begin{lstlisting} -call psb_ovrl(x, desc_a, info) -call psb_ovrl(x, desc_a, info, update=update_type, work=work) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      global dense matrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -containing numbers of type specified in -Table 18. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      update
      -
      Update operator. -
      -
      update = psb_none_
      -
      Do nothing; -
      -
      update = psb_add_
      -
      Sum overlap entries, i.e. apply $P^T$; -
      -
      update = psb_avg_
      -
      Average overlap entries, i.e. apply $P_aP^T$; -
      -
      -Scope: global -
      -Intent: in. -
      -Default: -$update\_type = psb\_avg\_ $ -
      -Scope: global -
      -Specified as: a integer variable. -
      -
      work
      -
      the work array. -
      -Scope: local -
      -Type: optional -
      -Intent: inout. -
      -Specified as: a one dimensional array of the same type of $x$. - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      global dense result matrix $x$. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: an array of rank one or two -containing numbers of type specified in -Table 18. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. If there is no overlap in the data distribution associated with - the descriptor, no operations are performed; -
        2. -
      2. The operator $P^{T}$ performs the reduction sum of overlap -elements; it is a “prolongation” operator $P^T$ that -replicates overlap elements, accounting for the physical replication -of data; -
        3. -
      3. The operator $P_a$ performs a scaling on the overlap elements by -the amount of replication; thus, when combined with the reduction -operator, it implements the average of replicated elements over all of -their instances. -
        4. -
      - -

      - -

      - - - -
      Figure 8: -Sample discretization mesh.
      -
      -\includegraphics[scale=0.65]{figures/try8x8_ov.eps} - -\includegraphics[scale=0.65]{figures/try8x8_ov} - -
      -
      - -Example of use -Consider the discretization mesh depicted in fig. 8, -partitioned among two processes as shown by the dashed lines, with an -overlap of 1 extra layer with respect to the partition of -fig. 7; the data -distribution is such that each process will own 40 entries in the -index space, with an overlap of 16 entries placed at local indices 25 -through 40; the halo will run from local index 41 through local index 48.. If process 0 assigns an initial value of 1 to its entries -in the $x$ vector, and process 1 assigns a value of 2, then after a -call to psb_ovrl with psb_avg_ and a call to -psb_halo_ the contents of the local vectors will be the -following (showing a transition among the two subdomains) - -

      -
      -

      - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      -Process 0  -Process 1
      - I GLOB(I) X(I)   I GLOB(I) X(I)
      - 1 1 1.0   1 33 1.5
      - 2 2 1.0   2 34 1.5
      - 3 3 1.0   3 35 1.5
      - 4 4 1.0   4 36 1.5
      - 5 5 1.0   5 37 1.5
      - 6 6 1.0   6 38 1.5
      - 7 7 1.0   7 39 1.5
      - 8 8 1.0   8 40 1.5
      - 9 9 1.0   9 41 2.0
      - 10 10 1.0   10 42 2.0
      - 11 11 1.0   11 43 2.0
      - 12 12 1.0   12 44 2.0
      - 13 13 1.0   13 45 2.0
      - 14 14 1.0   14 46 2.0
      - 15 15 1.0   15 47 2.0
      - 16 16 1.0   16 48 2.0
      - 17 17 1.0   17 49 2.0
      - 18 18 1.0   18 50 2.0
      - 19 19 1.0   19 51 2.0
      - 20 20 1.0   20 52 2.0
      - 21 21 1.0   21 53 2.0
      - 22 22 1.0   22 54 2.0
      - 23 23 1.0   23 55 2.0
      - 24 24 1.0   24 56 2.0
      - 25 25 1.5   25 57 2.0
      - 26 26 1.5   26 58 2.0
      - 27 27 1.5   27 59 2.0
      - 28 28 1.5   28 60 2.0
      - 29 29 1.5   29 61 2.0
      - 30 30 1.5   30 62 2.0
      - 31 31 1.5   31 63 2.0
      - 32 32 1.5   32 64 2.0
      - 33 33 1.5   33 25 1.5
      - 34 34 1.5   34 26 1.5
      - 35 35 1.5   35 27 1.5
      - 36 36 1.5   36 28 1.5
      - 37 37 1.5   37 29 1.5
      - 38 38 1.5   38 30 1.5
      - 39 39 1.5   39 31 1.5
      - 40 40 1.5   40 32 1.5
      - 41 41 2.0   41 17 1.0
      - 42 42 2.0   42 18 1.0
      - 43 43 2.0   43 19 1.0
      - 44 44 2.0   44 20 1.0
      - 45 45 2.0   45 21 1.0
      - 46 46 2.0   46 22 1.0
      - 47 47 2.0   47 23 1.0
      - 48 48 2.0   48 24 1.0
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_gather Gather - Up: Communication routines - Previous: psb_halo Halo -   Contents
      - - - - diff --git a/docs/html/node72.html b/docs/html/node72.html deleted file mode 100644 index dbff365ae..000000000 --- a/docs/html/node72.html +++ /dev/null @@ -1,270 +0,0 @@ - - - - - -psb_gather -- Gather Global Dense Matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_scatter Scatter - Up: Communication routines - Previous: psb_ovrl Overlap -   Contents -
      -
      - - -

      -psb_gather -- Gather Global Dense Matrix -

      - -

      -These subroutines collect the portions of global dense matrix -distributed over all process into one single array stored on one -process. - -

      -

      -
      - - -\begin{displaymath}glob\_x \leftarrow collect(loc\_x_i) \end{displaymath} -
      -
      -

      -where: -
      -
      $glob\_x$
      -
      is the global submatrix -$glob\_x_{1:m,1:n}$ -
      -
      $loc\_x_i$
      -
      is the local portion of global dense matrix on -process $i$. -
      -
      $collect$
      -
      is the collect function. -
      -
      - -

      -

      -
      - - - -
      Table 19: -Data types
      -
      - - - - - - - - - - - - - - - - - - - -
      $x_i, y$Subroutine
      Integerpsb_gather
      Short Precision Realpsb_gather
      Long Precision Realpsb_gather
      Short Precision Complexpsb_gather
      Long Precision Complexpsb_gather
      -
      -
      -

      -
      - -

      -
      -\begin{lstlisting} -call psb_gather(glob_x, loc_x, desc_a, info, root) -call psb_gather(glob_x, loc_x, desc_a, info, root) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      loc_x
      -
      the local portion of global dense matrix -$glob\_x$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type -indicated in Table 19. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      root
      -
      The process that holds the global copy. If $root=-1$ all - the processes will have a copy of the global vector. -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: an integer variable -$-1\le root\le np-1$, default $-1$. -
      -
      On Return
      -
      -
      -
      glob_x
      -
      The array where the local parts must be gathered. -
      -Scope: global -
      -Type: required -
      -Intent: out. -
      -Specified as: a rank one or two array with the ALLOCATABLE attribute. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_scatter Scatter - Up: Communication routines - Previous: psb_ovrl Overlap -   Contents
      - - - - diff --git a/docs/html/node73.html b/docs/html/node73.html deleted file mode 100644 index 924e3506b..000000000 --- a/docs/html/node73.html +++ /dev/null @@ -1,277 +0,0 @@ - - - - - -psb_scatter -- Scatter Global Dense Matrix - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Data management routines - Up: Communication routines - Previous: psb_gather Gather -   Contents -
      -
      - - -

      -psb_scatter -- Scatter Global Dense Matrix -

      - -

      -These subroutines scatters the portions of global dense matrix owned -by a process to all the processes in the processes grid. - -

      -

      -
      - - -\begin{displaymath}loc\_x_i \leftarrow scatter(glob\_x) \end{displaymath} -
      -
      -

      -where: -
      -
      $glob\_x$
      -
      is the global matrix -$glob\_x_{1:m,1:n}$ -
      -
      $loc\_x_i$
      -
      is the local portion of global dense matrix on -process $i$. -
      -
      $scatter$
      -
      is the scatter function. -
      -
      - -

      -

      -
      - - - -
      Table 20: -Data types
      -
      - - - - - - - - - - - - - - - - - - - -
      $x_i, y$Subroutine
      Integerpsb_scatter
      Short Precision Realpsb_scatter
      Long Precision Realpsb_scatter
      Short Precision Complexpsb_scatter
      Long Precision Complexpsb_scatter
      -
      -
      -

      -
      - -

      -
      -\begin{lstlisting} -call psb_scatter(glob_x, loc_x, desc_a, info, root, mold) -\end{lstlisting} -
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      glob_x
      -
      The array that must be scattered into local pieces. -
      -Scope: global -
      -Type: required -
      -Intent: in. -
      -Specified as: a rank one or two array. -
      -
      desc_a
      -
      contains data structures for communications. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      root
      -
      The process that holds the global copy. If $root=-1$ all - the processes have a copy of the global vector. -
      -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: an integer variable -$-1\le root\le np-1$, default -psb_root_, i.e. process 0. -
      -
      mold
      -
      The desired dynamic type for the internal vector storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is -only allowed when loc_x is of type vdatapsb_T_vect_type. -
      -
      On Return
      -
      -
      -
      loc_x
      -
      the local portion of global dense matrix -$glob\_x$. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a rank one or two ALLOCATABLE array or an object of type vdatapsb_T_vect_type containing numbers of the type -indicated in Table 20. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Data management routines - Up: Communication routines - Previous: psb_gather Gather -   Contents
      - - - - diff --git a/docs/html/node74.html b/docs/html/node74.html deleted file mode 100644 index 4d97a7eb7..000000000 --- a/docs/html/node74.html +++ /dev/null @@ -1,133 +0,0 @@ - - - - - -Data management routines - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdall Allocates - Up: userhtml - Previous: psb_scatter Scatter -   Contents -
      -
      - - -

      - -
      -Data management routines -

      - -

      -

      - -Subsections - - - -
      - - - diff --git a/docs/html/node75.html b/docs/html/node75.html deleted file mode 100644 index dc27405d4..000000000 --- a/docs/html/node75.html +++ /dev/null @@ -1,450 +0,0 @@ - - - - - -psb_cdall -- Allocates a communication descriptor - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdins Communication - Up: Data management routines - Previous: Data management routines -   Contents -
      -
      - - -

      -psb_cdall -- Allocates a communication descriptor -

      - -

      -

      -call psb_cdall(icontxt, desc_a, info,mg=mg,parts=parts)
-call psb_cdall(icontxt, desc_a, info,vg=vg,[mg=mg,flag=flag])
-call psb_cdall(icontxt, desc_a, info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx])
-call psb_cdall(icontxt, desc_a, info,nl=nl)
-call psb_cdall(icontxt, desc_a, info,mg=mg,repl=.true.)
-
      - -

      -This subroutine initializes the communication descriptor associated -with an index space. One of the optional arguments -parts, vg, vl, nl or repl -must be specified, thereby choosing -the specific initialization strategy. -

      -
      On Entry
      -
      -
      -
      Type:
      -
      Synchronous. -
      -
      icontxt
      -
      the communication context. -
      -Scope:global. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer value. -
      -
      vg
      -
      Data allocation: each index -$i\in \{1\dots mg\}$ is allocated - to process $vg(i)$. -
      -Scope:global. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer array. -
      -
      flag
      -
      Specifies whether entries in $vg$ are zero- or one-based. -
      -Scope:global. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer value $0,1$, default $0$. - -

      -

      -
      mg
      -
      the (global) number of rows of the problem. -
      -Scope:global. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer value. It is required if parts or -repl is specified, it is optional if vg is specified. -
      -
      parts
      -
      the subroutine that defines the partitioning scheme. -
      -Scope:global. -
      -Type:required. -
      -Specified as: a subroutine. -
      -
      vl
      -
      Data allocation: the set of global indices - $vl(1:nl)$ belonging to the calling process. -
      -Scope:local. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer array. -
      -
      nl
      -
      Data allocation: in a generalized block-row distribution the - number of indices belonging to the current process. -
      -Scope:local. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer value. May be specified together with -vl. -
      -
      repl
      -
      Data allocation: build a replicated index space - (i.e. all processes own all indices). -
      -Scope:global. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: the logical value .true. -
      -
      globalcheck
      -
      Data allocation: do global checks on the local - index lists vl -
      -Scope:global. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: a logical value, default: .false. -
      -
      lidx
      -
      Data allocation: the set of local indices - $lidx(1:nl)$ to be assigned to the global indices $vl$. -
      -Scope:local. -
      -Type:optional. -
      -Intent: in. -
      -Specified as: an integer array. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: out. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. One of the optional arguments parts, vg, - vl, nl or repl must be specified, thereby choosing the - initialization strategy as follows: -
        -
        parts
        -
        In this case we have a subroutine specifying the mapping - between global indices and process/local index pairs. If this - optional argument is specified, then it is mandatory to - specify the argument mg as well. - The subroutine must conform to the following interface: -
        -  interface 
-     subroutine psb_parts(glob_index,mg,np,pv,nv)
-       integer, intent (in)  :: glob_index,np,mg
-       integer, intent (out) :: nv, pv(*)
-     end subroutine psb_parts
-  end interface
-
        - The input arguments are: -
        -
        glob_index
        -
        The global index to be mapped; - -
        -
        np
        -
        The number of processes in the mapping; - -
        -
        mg
        -
        The total number of global rows in the mapping; - -
        -
        - The output arguments are: -
        -
        nv
        -
        The number of entries in pv; - -
        -
        pv
        -
        A vector containing the indices of the processes to - which the global index should be assigend; each entry must satisfy - -$0\le pv(i) < np$; if $nv>1$ we have an index assigned to multiple - processes, i.e. we have an overlap among the subdomains. - -
        -
        -
        -
        vg
        -
        In this case the association between an index and a process - is specified via an integer vector vg(1:mg); - each index -$i\in \{1\dots mg\}$ is assigned to process $vg(i)$. - The vector vg must be identical on all - calling processes; its entries may have the ranges $(0\dots np-1)$ - or $(1\dots np)$ according to the value of flag. - The size $mg$ may be specified via the optional argument mg; - the default is to use the entire vector vg, thus having - mg=size(vg). -
        -
        vl
        -
        In this case we are specifying the list of indices - vl(1:nl) assigned to the current process; thus, the global - problem size $mg$ is given by - the range of the aggregate of the individual vectors vl specified - in the calling processes. The size may be specified via the optional - argument nl; the default is to use the entire vector - vl, thus having nl=size(vl). - If globalcheck=.true. the subroutine will check how many - times each entry in the global index space $(1\dots mg)$ is - specified in the input lists vl, thus allowing for the - presence of overlap in the input, and checking for “orphan” - indices. If globalcheck=.false., the subroutine will not - check for overlap, and may be significantly faster, but the user - is implicitly guaranteeing that there are neither orphan nor - overlap indices. -
        -
        lidx
        -
        The optional argument lidx is available for - those cases in which the user has already established a - global-to-local mapping; if it is specified, each index in - vl(i) will be mapped to the corresponding local index - lidx(i). When specifying the argument lidx the user - would also likely employ lidx in calls to psb_cdins - and local in calls to psb_spins and psb_geins; - see also sec. 2.3.1. -
        -
        nl
        -
        If this argument is specified alone (i.e. without vl) - the result is a generalized row-block distribution in which each - process $I$ gets assigned a consecutive chunk of $N_I=nl$ global - indices. -
        -
        repl
        -
        This arguments specifies to replicate all indices on - all processes. This is a special purpose data allocation that is - useful in the construction of some multilevel preconditioners. -
        -
        -
        2. -
      2. On exit from this routine the descriptor is in the build - state. -
        3. -
      3. Calling the routine with vg or parts implies that - every process will scan the entire index space to figure out the - local indices. -
        4. -
      4. Overlapped indices are possible with both parts and - vl invocations. -
        5. -
      5. When the subroutine is invoked with vl in - conjunction with globalcheck=.true., it will perform a scan - of the index space to search for overlap or orphan indices. -
        6. -
      6. When the subroutine is invoked with vl in - conjunction with globalcheck=.false., no index space scan - will take place. Thus it is the responsibility of the user to make - sure that the indices specified in vl have neither orphans nor - overlaps; if this assumption fails, results will be - unpredictable. -
        7. -
      7. Orphan and overlap indices are - impossible by construction when the subroutine is invoked with - nl (alone), or vg. -
        8. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_cdins Communication - Up: Data management routines - Previous: Data management routines -   Contents
      - - - - diff --git a/docs/html/node76.html b/docs/html/node76.html deleted file mode 100644 index 46ac92530..000000000 --- a/docs/html/node76.html +++ /dev/null @@ -1,259 +0,0 @@ - - - - - -psb_cdins -- Communication descriptor insert routine - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdasb Communication - Up: Data management routines - Previous: psb_cdall Allocates -   Contents -
      -
      - - -

      -psb_cdins -- Communication descriptor insert - routine -

      - -

      -

      -call psb_cdins(nz, ia, ja, desc_a, info [,ila,jla])
-call psb_cdins(nz,ja,desc,info[,jla,mask,lidx])
-
      - -

      -This subroutine examines the edges of the graph associated with the -discretization mesh (and isomorphic to the sparsity pattern of a -linear system coefficient matrix), storing them as necessary into the -communication descriptor. In the first form the edges are specified as -pairs of indices $ia(i),ja(i)$; the starting index $ia(i)$ should -belong to the current process. -In the second form only the remote indices $ja(i)$ are specified. - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      nz
      -
      the number of points being inserted. -
      -Scope: local. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer value. -
      -
      ia
      -
      the indices of the starting vertex of the edges being inserted. -
      -Scope: local. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer array of length $nz$. -
      -
      ja
      -
      the indices of the end vertex of the edges being inserted. -
      -Scope: local. -
      -Type: required. -
      -Intent: in. -
      -Specified as: an integer array of length $nz$. -
      -
      mask
      -
      Mask entries in ja, they are inserted only when the - corresponding mask entries are .true. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a logical array of length $nz$, default .true.. -
      -
      lidx
      -
      User defined local indices for ja. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer array of length $nz$. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      desc_a
      -
      the updated communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      ila
      -
      the local indices of the starting vertex of the edges being inserted. -
      -Scope: local. -
      -Type: optional. -
      -Intent: out. -
      -Specified as: an integer array of length $nz$. -
      -
      jla
      -
      the local indices of the end vertex of the edges being inserted. -
      -Scope: local. -
      -Type: optional. -
      -Intent: out. -
      -Specified as: an integer array of length $nz$. - -

      -

      -
      -Notes - -
        -
      1. This routine may only be called if the descriptor is in the - build state; -
        2. -
      2. This routine automatically ignores edges that do not -insist on the current process, i.e. edges for which neither the starting -nor the end vertex belong to the current process. -
        3. -
      3. The second form of this routine will be useful when dealing with - user-specified index mappings; see also 2.3.1. -
        4. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_cdasb Communication - Up: Data management routines - Previous: psb_cdall Allocates -   Contents
      - - - - diff --git a/docs/html/node77.html b/docs/html/node77.html deleted file mode 100644 index 507c1f1c2..000000000 --- a/docs/html/node77.html +++ /dev/null @@ -1,133 +0,0 @@ - - - - - -psb_cdasb -- Communication descriptor assembly routine - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdcpy Copies - Up: Data management routines - Previous: psb_cdins Communication -   Contents -
      -
      - - -

      -psb_cdasb -- Communication descriptor assembly - routine -

      - -

      -

      -call psb_cdasb(desc_a, info [, mold])
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      mold
      -
      The desired dynamic type for the internal index storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: a object of type derived from (integer) vbasedatapsb_T_base_vect_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      -Notes - -
        -
      1. On exit from this routine the descriptor is in the assembled - state. -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node78.html b/docs/html/node78.html deleted file mode 100644 index 4319c0670..000000000 --- a/docs/html/node78.html +++ /dev/null @@ -1,116 +0,0 @@ - - - - - -psb_cdcpy -- Copies a communication descriptor - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdfree Frees - Up: Data management routines - Previous: psb_cdasb Communication -   Contents -
      -
      - - -

      -psb_cdcpy -- Copies a communication descriptor -

      - -

      -

      -call psb_cdcpy(desc_in, desc_out, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc_in
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      desc_out
      -
      the communication descriptor copy. -
      -Scope:local. -
      -Type:required. -
      -Intent: out. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node79.html b/docs/html/node79.html deleted file mode 100644 index 17081ee52..000000000 --- a/docs/html/node79.html +++ /dev/null @@ -1,103 +0,0 @@ - - - - - -psb_cdfree -- Frees a communication descriptor - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_cdbldext Build - Up: Data management routines - Previous: psb_cdcpy Copies -   Contents -
      -
      - - -

      -psb_cdfree -- Frees a communication descriptor -

      - -

      -

      -call psb_cdfree(desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      the communication descriptor to be freed. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node8.html b/docs/html/node8.html deleted file mode 100644 index 6501ef055..000000000 --- a/docs/html/node8.html +++ /dev/null @@ -1,121 +0,0 @@ - - - - - -Programming model - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Data Structures and Classes - Up: General overview - Previous: User-defined index mappings -   Contents -
      -
      - - -

      -Programming model -

      - -

      -The PSBLAS librarary is based on the Single Program Multiple Data -(SPMD) programming model: each process participating in the -computation performs the same actions on a chunk of data. Parallelism -is thus data-driven. - -

      -Because of this structure, many subroutines coordinate their action -across the various processes, thus providing an implicit -synchronization point, and therefore must be -called simultaneously by all processes participating in the -computation. This is certainly true for the data allocation and -assembly routines, for all the computational routines and for some of -the tools routines. - -

      -However there are many cases where no synchronization, and indeed no -communication among processes, is implied; for instance, all the routines in -sec. 3 are only acting on the local data structures, -and thus may be called independently. The most important case is that -of the coefficient insertion routines: since the number of -coefficients in the sparse and dense matrices varies among the -processors, and since the user is free to choose an arbitrary order in -builiding the matrix entries, these routines cannot imply a -synchronization. - -

      -Throughout this user's guide each subroutine will be clearly indicated -as: -

      -
      Synchronous:
      -
      must be called simultaneously by all the - processes in the relevant communication context; -
      -
      Asynchronous:
      -
      may be called in a totally independent manner. -
      -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: Data Structures and Classes - Up: General overview - Previous: User-defined index mappings -   Contents
      - - - - diff --git a/docs/html/node80.html b/docs/html/node80.html deleted file mode 100644 index 346afbdd8..000000000 --- a/docs/html/node80.html +++ /dev/null @@ -1,198 +0,0 @@ - - - - - -psb_cdbldext -- Build an extended communication descriptor - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spall Allocates - Up: Data management routines - Previous: psb_cdfree Frees -   Contents -
      -
      - - -

      -psb_cdbldext -- Build an extended communication - descriptor -

      - -

      -

      -call psb_cdbldext(a,desc_a,nl,desc_out, info, extype)
-
      - -

      -This subroutine builds an extended communication descriptor, based on -the input descriptor desc_a and on the stencil specified -through the input sparse matrix a. -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      A sparse matrix -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data type. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      nl
      -
      the number of additional layers desired. -
      -Scope:global. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer value $nl\ge 0$. -
      -
      extype
      -
      the kind of estension required. -
      -Scope:global. -
      -Type:optional . -
      -Intent: in. -
      -Specified as: an integer value -psb_ovt_xhal_, psb_ovt_asov_, default: psb_ovt_xhal_ - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      desc_out
      -
      the extended communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. Specifying psb_ovt_xhal_ for the extype argument - the user will obtain a descriptor for a domain partition in which - the additional layers are fetched as part of an (extended) halo; - however the index-to-process mapping is identical to that of the - base descriptor; -
        2. -
      2. Specifying psb_ovt_asov_ for the extype argument - the user will obtain a descriptor with an overlapped decomposition: - the additional layer is aggregated to the local subdomain (and thus - is an overlap), and a new halo extending beyond the last additional - layer is formed. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_spall Allocates - Up: Data management routines - Previous: psb_cdfree Frees -   Contents
      - - - - diff --git a/docs/html/node81.html b/docs/html/node81.html deleted file mode 100644 index 8480c728e..000000000 --- a/docs/html/node81.html +++ /dev/null @@ -1,143 +0,0 @@ - - - - - -psb_spall -- Allocates a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spins Insert - Up: Data management routines - Previous: psb_cdbldext Build -   Contents -
      -
      - - -

      -psb_spall -- Allocates a sparse matrix -

      - -

      -

      -call psb_spall(a, desc_a, info, nnz)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      nnz
      -
      An estimate of the number of nonzeroes in the local - part of the assembled matrix. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an integer value. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      a
      -
      the matrix to be allocated. -
      -Scope:local -
      -Type:required -
      -Intent: out. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      -Notes - -
        -
      1. On exit from this routine the sparse matrix is in the build - state. -
        2. -
      2. The descriptor may be in either the build or assembled state. -
        3. -
      3. 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. -
        4. -
      - -

      -

      - - - diff --git a/docs/html/node82.html b/docs/html/node82.html deleted file mode 100644 index fb0084f45..000000000 --- a/docs/html/node82.html +++ /dev/null @@ -1,335 +0,0 @@ - - - - - -psb_spins -- Insert a set of coefficients into a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spasb Sparse - Up: Data management routines - Previous: psb_spall Allocates -   Contents -
      -
      - - -

      -psb_spins -- Insert a set of coefficients into a sparse - matrix -

      - -

      -

      -call psb_spins(nz, ia, ja, val, a, desc_a, info [,local])
-call psb_spins(nr, irw, irp, ja, val, a, desc_a, info [,local])
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      nz
      -
      the number of coefficients to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer scalar. -
      -
      nr
      -
      the number of rows to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer scalar. -
      -
      irw
      -
      the first row to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer scalar. -
      -
      ia
      -
      the row indices of the coefficients to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer array of size $nz$. -
      -
      irp
      -
      the row pointers of the coefficients to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer array of size $nr+1$. -
      -
      ja
      -
      the column indices of the coefficients to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer array of size $nz$. -
      -
      val
      -
      the coefficients to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an array of size $nz$. Must be of the same type and kind -of the coefficients of the sparse matrix $a$. -
      -
      desc_a
      -
      The communication descriptor. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: a variable of type descdatapsb_desc_type. -
      -
      local
      -
      Whether the entries in the indices vectors ia, - ja are already in local numbering. -
      -Scope:local. -
      -Type:optional. -
      -Specified as: a logical value; default: .false.. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      a
      -
      the matrix into which coefficients will be inserted. -
      -Scope:local -
      -Type:required -
      -Intent: inout. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      The communication descriptor. -
      -Scope: local. -
      -Type: required. -
      -Intent: inout. -
      -Specified as: a variable of type descdatapsb_desc_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. On entry to this routine the descriptor may be in either the - build or assembled state. -
        2. -
      2. On entry to this routine the sparse matrix may be in either the - build or update state. -
        3. -
      3. If the descriptor is in the build state, then the sparse matrix - must also be in the build state; the action of the routine is to - (implicitly) call psb_cdins to add entries to the sparsity - pattern; each sparse matrix entry implicitly defines a graph edge, - that is passed to the descriptor routine for the appropriate - processing; -
        4. -
      4. The input data can be passed in either COO or CSR formats; -
        5. -
      5. 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; -
        6. -
      6. 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$; - these triples should belong to the current process, i.e. $i+irw-1$ - should be one of the local indices, but are otherwise arbitrary; -
        7. -
      7. There is no requirement that a given row must be passed in its - entirety to a single call to this routine: the buildup of a row - may be split into as many calls as desired (even in the CSR format); -
        8. -
      8. Coefficients from different rows may also be mixed up freely - in a single call, according to the application needs; -
        9. -
      9. Any coefficients from matrix rows not owned by the calling - process are silently ignored; -
        10. -
      10. If the descriptor is in the assembled state, then any entries in - the sparse matrix that would generate additional communication - requirements are ignored; -
        11. -
      11. If the matrix is in the update state, any entries in positions - that were not present in the original matrix are ignored. -
        12. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_spasb Sparse - Up: Data management routines - Previous: psb_spall Allocates -   Contents
      - - - - diff --git a/docs/html/node83.html b/docs/html/node83.html deleted file mode 100644 index b44e36758..000000000 --- a/docs/html/node83.html +++ /dev/null @@ -1,209 +0,0 @@ - - - - - -psb_spasb -- Sparse matrix assembly routine - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_spfree Frees - Up: Data management routines - Previous: psb_spins Insert -   Contents -
      -
      - - -

      -psb_spasb -- Sparse matrix assembly routine -

      - -

      -

      -call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      afmt
      -
      the storage format for the sparse matrix. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an array of characters. Defalt: 'CSR'. -
      -
      upd
      -
      Provide for updates to the matrix coefficients. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: integer, possible values: psb_upd_srch_, psb_upd_perm_ -
      -
      dupl
      -
      How to handle duplicate coefficients. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: integer, possible values: psb_dupl_ovwrt_, -psb_dupl_add_, psb_dupl_err_. -
      -
      mold
      -
      The desired dynamic type for the internal matrix storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from spbasedatapsb_T_base_sparse_mat. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      a
      -
      the matrix to be assembled. -
      -Scope:local -
      -Type:required -
      -Intent: inout. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. On entry to this routine the descriptor must be in the - assembled state, i.e. psb_cdasb must already have been called. -
        2. -
      2. The sparse matrix may be in either the build or update state; -
        3. -
      3. Duplicate entries are detected and handled in both build and - update state, with the exception of the error action that is only - taken in the build state, i.e. on the first assembly; -
        4. -
      4. If the update choice is psb_upd_perm_, then subsequent - calls to psb_spins to update the matrix must be arranged in - such a way as to produce exactly the same sequence of coefficient - values as encountered at the first assembly; -
        5. -
      5. The output storage format need not be the same on all - processes; -
        6. -
      6. On exit from this routine the matrix is in the assembled state, - and thus is suitable for the computational routines. -
        7. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_spfree Frees - Up: Data management routines - Previous: psb_spins Insert -   Contents
      - - - - diff --git a/docs/html/node84.html b/docs/html/node84.html deleted file mode 100644 index 2ae76326e..000000000 --- a/docs/html/node84.html +++ /dev/null @@ -1,114 +0,0 @@ - - - - - -psb_spfree -- Frees a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_sprn Reinit - Up: Data management routines - Previous: psb_spasb Sparse -   Contents -
      -
      - - -

      -psb_spfree -- Frees a sparse matrix -

      - -

      -

      -call psb_spfree(a, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the matrix to be freed. -
      -Scope:local -
      -Type:required -
      -Intent: inout. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node85.html b/docs/html/node85.html deleted file mode 100644 index 199f1af90..000000000 --- a/docs/html/node85.html +++ /dev/null @@ -1,133 +0,0 @@ - - - - - -psb_sprn -- Reinit sparse matrix structure for psblas routines. - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geall Allocates - Up: Data management routines - Previous: psb_spfree Frees -   Contents -
      -
      - - -

      -psb_sprn -- Reinit sparse matrix structure for psblas - routines. -

      - -

      -

      -call psb_sprn(a, decsc_a, info, clear)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      a
      -
      the matrix to be reinitialized. -
      -Scope:local -
      -Type:required -
      -Intent: inout. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      clear
      -
      Choose whether to zero out matrix coefficients -
      -Scope:local. -
      -Type:optional. -
      -Intent: in. -
      -Default: true. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      -Notes - -
        -
      1. On exit from this routine the sparse matrix is in the update - state. -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node86.html b/docs/html/node86.html deleted file mode 100644 index 72ad8bf66..000000000 --- a/docs/html/node86.html +++ /dev/null @@ -1,151 +0,0 @@ - - - - - -psb_geall -- Allocates a dense matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geins Dense - Up: Data management routines - Previous: psb_sprn Reinit -   Contents -
      -
      - - -

      -psb_geall -- Allocates a dense matrix -

      - -

      -

      -call psb_geall(x, desc_a, info, n, lb)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      The communication descriptor. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a variable of type descdatapsb_desc_type. -
      -
      n
      -
      The number of columns of the dense matrix to be allocated. -
      -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a -rank-1 array. -
      -
      lb
      -
      The lower bound for the column index range of the dense matrix to be allocated. -
      -Scope: local -
      -Type: optional -
      -Intent: in. -
      -Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a -rank-1 array. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      The dense matrix to be allocated. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a rank one or two array with the ALLOCATABLE attribute -or an object of type vdatapsb_T_vect_type, of type real, complex or integer. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node87.html b/docs/html/node87.html deleted file mode 100644 index 7e7dff181..000000000 --- a/docs/html/node87.html +++ /dev/null @@ -1,221 +0,0 @@ - - - - - -psb_geins -- Dense matrix insertion routine - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_geasb Assembly - Up: Data management routines - Previous: psb_geall Allocates -   Contents -
      -
      - - -

      -psb_geins -- Dense matrix insertion routine -

      - -

      -

      -call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      m
      -
      Number of rows in $val$ to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer value. -
      -
      irw
      -
      Indices of the rows to be inserted. Specifically, row $i$ - of $val$ will be inserted into the local row corresponding to the - global row index $irw(i)$. -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: an integer array. -
      -
      val
      -
      the dense submatrix to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a rank 1 or 2 array. -Specified as: an integer value. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      dupl
      -
      How to handle duplicate coefficients. -
      -Scope: global. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: integer, possible values: psb_dupl_ovwrt_, -psb_dupl_add_. -
      -
      local
      -
      Whether the entries in the index vector irw, - are already in local numbering. -
      -Scope:local. -
      -Type:optional. -
      -Specified as: a logical value; default: .false.. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      the output dense matrix. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array or an object of type vdatapsb_T_vect_type, of -type real, complex or integer. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. Dense vectors/matrices do not have an associated state; -
        2. -
      2. Duplicate entries are either overwritten or added, there is no - provision for raising an error condition. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_geasb Assembly - Up: Data management routines - Previous: psb_geall Allocates -   Contents
      - - - - diff --git a/docs/html/node88.html b/docs/html/node88.html deleted file mode 100644 index 705998d9c..000000000 --- a/docs/html/node88.html +++ /dev/null @@ -1,128 +0,0 @@ - - - - - -psb_geasb -- Assembly a dense matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gefree Frees - Up: Data management routines - Previous: psb_geins Dense -   Contents -
      -
      - - -

      -psb_geasb -- Assembly a dense matrix -

      - -

      -

      -call psb_geasb(x, desc_a, info, mold)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      desc_a
      -
      The communication descriptor. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a variable of type descdatapsb_desc_type. -
      -
      mold
      -
      The desired dynamic type for the internal vector storage. -
      -Scope: local. -
      -Type: optional. -
      -Intent: in. -
      -Specified as: an object of a class derived from vbasedatapsb_T_base_vect_type; this is -only allowed when $x$ is of type vdatapsb_T_vect_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      The dense matrix to be assembled. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array with the ALLOCATABLE or an -object of type vdatapsb_T_vect_type, of type real, complex or integer. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      -
      - - - diff --git a/docs/html/node89.html b/docs/html/node89.html deleted file mode 100644 index 48f987c13..000000000 --- a/docs/html/node89.html +++ /dev/null @@ -1,118 +0,0 @@ - - - - - -psb_gefree -- Frees a dense matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_gelp Applies - Up: Data management routines - Previous: psb_geasb Assembly -   Contents -
      -
      - - -

      -psb_gefree -- Frees a dense matrix -

      - -

      -

      -call psb_gefree(x, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Synchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      The dense matrix to - be freed. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one or two array with the ALLOCATABLE or an -object of type vdatapsb_T_vect_type, of type real, complex or integer. -
      -

      -

      -
      desc_a
      -
      The communication descriptor. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a variable of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node9.html b/docs/html/node9.html deleted file mode 100644 index 7e75eada3..000000000 --- a/docs/html/node9.html +++ /dev/null @@ -1,247 +0,0 @@ - - - - - -Data Structures and Classes - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: Descriptor data structure - Up: userhtml - Previous: Programming model -   Contents -
      -
      - - -

      - -
      -Data Structures and Classes -

      - -

      -In this chapter we illustrate the data structures used for definition of -routines interfaces. They include data structures for sparse matrices, -communication descriptors and preconditioners. -

      -All the data types and the basic subroutine interfaces related to -descriptors and sparse matrices are defined in -the module psb_base_mod; this will have to be included by every -user subroutine that makes use of the library. The preconditioners are -defined in the module psb_prec_mod - -

      -Integer, real and complex data types are parametrized with a kind type -defined in the library as follows: -

      -
      psb_spk_
      -
      Kind parameter for short precision real and complex - data; corresponds to a REAL declaration and is - normally 4 bytes; -
      -
      psb_dpk_
      -
      Kind parameter for long precision real and complex - data; corresponds to a DOUBLE PRECISION declaration and is - normally 8 bytes; -
      -
      psb_mpk_
      -
      Kind parameter for 4-bytes integer data, as is - always used by MPI; -
      -
      psb_epk_
      -
      Kind parameter for 8-bytes integer data, as is - always used by the sizeof methods; -
      -
      psb_ipk_
      -
      Kind parameter for “local” integer indices and data; - with default build options this is a 4 bytes integer; -
      -
      psb_lpk_
      -
      Kind parameter for “global” integer indices and data; - with default build options this is an 8 bytes integer; -
      -
      -The integer kinds for local and global indices can be chosen at -configure time to hold 4 or 8 bytes, with the global indices at least -as large as the local ones. -Together with the classes attributes we also discuss their -methods. Most methods detailed here only act on the local variable, -i.e. their action is purely local and asynchronous unless otherwise -stated. -The list of methods here is not completely exhaustive; many methods, -especially those that alter the contents of the various objects, are -usually not needed by the end-user, and therefore are described in the -developer's documentation. - -

      -

      - -Subsections - - - - -
      - - -next - -up - -previous - -contents -
      - Next: Descriptor data structure - Up: userhtml - Previous: Programming model -   Contents
      - - - - diff --git a/docs/html/node90.html b/docs/html/node90.html deleted file mode 100644 index 9de2f117a..000000000 --- a/docs/html/node90.html +++ /dev/null @@ -1,138 +0,0 @@ - - - - - -psb_gelp -- Applies a left permutation to a dense matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_glob_to_loc Global - Up: Data management routines - Previous: psb_gefree Frees -   Contents -
      -
      - - -

      -psb_gelp -- Applies a left permutation to a dense - matrix -

      - -

      -

      -call psb_gelp(trans, iperm, x, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      trans
      -
      A character that specifies whether to permute $A$ or $A^T$. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a single character with value 'N' for $A$ or 'T' for $A^T$. -
      -
      iperm
      -
      An integer array containing permutation information. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: an integer one-dimensional array. -
      -
      x
      -
      The dense matrix to be permuted. -
      -Scope: local -
      -Type: required -
      -Intent: inout. -
      -Specified as: a one or two dimensional array. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node91.html b/docs/html/node91.html deleted file mode 100644 index 053654184..000000000 --- a/docs/html/node91.html +++ /dev/null @@ -1,213 +0,0 @@ - - - - - -psb_glob_to_loc -- Global to local indices convertion - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_loc_to_glob Local - Up: Data management routines - Previous: psb_gelp Applies -   Contents -
      -
      - - -

      -psb_glob_to_loc -- Global to local indices - convertion -

      - -

      -

      -call psb_glob_to_loc(x, y, desc_a, info, iact,owned)
-call psb_glob_to_loc(x, desc_a, info, iact,owned)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      An integer vector of indices to be converted. -
      -Scope: local -
      -Type: required -
      -Intent: in, inout. -
      -Specified as: a rank one integer array. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      iact
      -
      specifies action to be taken in case of range errors. -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
      -
      owned
      -
      Specfies valid range of input -Scope: global -
      -Type: optional -
      -Intent: in. -
      -If true, then only indices strictly owned by the current process are -considered valid, if false then halo indices are also -accepted. Default: false. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      If $y$ is not present, - then $x$ is overwritten with the translated integer indices. -Scope: global -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one integer array. -
      -
      y
      -
      If $y$ is present, - then $y$ is overwritten with the translated integer indices, and $x$ - is left unchanged. -Scope: global -
      -Type: optional -
      -Intent: out. -
      -Specified as: a rank one integer array. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. If an input index is out of range, then the corresponding output - index is set to a negative number; -
        2. -
      2. The default Ignore means that the negative output is the - only action taken on an out-of-range input. -
        3. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_loc_to_glob Local - Up: Data management routines - Previous: psb_gelp Applies -   Contents
      - - - - diff --git a/docs/html/node92.html b/docs/html/node92.html deleted file mode 100644 index 666b0bf51..000000000 --- a/docs/html/node92.html +++ /dev/null @@ -1,165 +0,0 @@ - - - - - -psb_loc_to_glob -- Local to global indices conversion - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_is_owned - Up: Data management routines - Previous: psb_glob_to_loc Global -   Contents -
      -
      - - -

      -psb_loc_to_glob -- Local to global indices - conversion -

      - -

      -

      -call psb_loc_to_glob(x, y, desc_a, info, iact)
-call psb_loc_to_glob(x, desc_a, info, iact)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      An integer vector of indices to be converted. -
      -Scope: local -
      -Type: required -
      -Intent: in, inout. -
      -Specified as: a rank one integer array. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      iact
      -
      specifies action to be taken in case of range errors. -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      x
      -
      If $y$ is not present, - then $x$ is overwritten with the translated integer indices. -Scope: global -
      -Type: required -
      -Intent: inout. -
      -Specified as: a rank one integer array. -
      -
      y
      -
      If $y$ is not present, - then $y$ is overwritten with the translated integer indices, and $x$ - is left unchanged. -Scope: global -
      -Type: optional -
      -Intent: out. -
      -Specified as: a rank one integer array. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -

      - - - diff --git a/docs/html/node93.html b/docs/html/node93.html deleted file mode 100644 index 133899aa9..000000000 --- a/docs/html/node93.html +++ /dev/null @@ -1,125 +0,0 @@ - - - - - -psb_is_owned -- - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_owned_index - Up: Data management routines - Previous: psb_loc_to_glob Local -   Contents -
      -
      - - -

      -psb_is_owned -- -

      - -

      -

      -call psb_is_owned(x, desc_a)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      Integer index. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a scalar integer. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      A logical mask which is true if - $x$ is owned by the current process -Scope: local -
      -Type: required -
      -Intent: out. -
      -
      - -

      -Notes - -

        -
      1. This routine returns a .true. value for an index - that is strictly owned by the current process, excluding the halo - indices -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node94.html b/docs/html/node94.html deleted file mode 100644 index 56bfb76ff..000000000 --- a/docs/html/node94.html +++ /dev/null @@ -1,149 +0,0 @@ - - - - - -psb_owned_index -- - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_is_local - Up: Data management routines - Previous: psb_is_owned -   Contents -
      -
      - - -

      -psb_owned_index -- -

      - -

      -

      -call psb_owned_index(y, x, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      Integer indices. -
      -Scope: local -
      -Type: required -
      -Intent: in, inout. -
      -Specified as: a scalar or a rank one integer array. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      iact
      -
      specifies action to be taken in case of range errors. -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      A logical mask which is true for all corresponding entries of - $x$ that are owned by the current process -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a scalar or rank one logical array. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. This routine returns a .true. value for those indices - that are strictly owned by the current process, excluding the halo - indices -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node95.html b/docs/html/node95.html deleted file mode 100644 index 79dba935f..000000000 --- a/docs/html/node95.html +++ /dev/null @@ -1,125 +0,0 @@ - - - - - -psb_is_local -- - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_local_index - Up: Data management routines - Previous: psb_owned_index -   Contents -
      -
      - - -

      -psb_is_local -- -

      - -

      -

      -call psb_is_local(x, desc_a)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      Integer index. -
      -Scope: local -
      -Type: required -
      -Intent: in. -
      -Specified as: a scalar integer. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      Function value
      -
      A logical mask which is true if - $x$ is local to the current process -Scope: local -
      -Type: required -
      -Intent: out. -
      -
      - -

      -Notes - -

        -
      1. This routine returns a .true. value for an index - that is local to the current process, including the halo - indices -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node96.html b/docs/html/node96.html deleted file mode 100644 index d7e2ac978..000000000 --- a/docs/html/node96.html +++ /dev/null @@ -1,149 +0,0 @@ - - - - - -psb_local_index -- - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_get_boundary Extract - Up: Data management routines - Previous: psb_is_local -   Contents -
      -
      - - -

      -psb_local_index -- -

      - -

      -

      -call psb_local_index(y, x, desc_a, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      x
      -
      Integer indices. -
      -Scope: local -
      -Type: required -
      -Intent: in, inout. -
      -Specified as: a scalar or a rank one integer array. -
      -
      desc_a
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      iact
      -
      specifies action to be taken in case of range errors. -Scope: global -
      -Type: optional -
      -Intent: in. -
      -Specified as: a character variable Ignore, Warning or -Abort, default Ignore. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      y
      -
      A logical mask which is true for all corresponding entries of - $x$ that are local to the current process -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a scalar or rank one logical array. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. This routine returns a .true. value for those indices - that are local to the current process, including the halo - indices. -
        2. -
      - -

      -

      - - - diff --git a/docs/html/node97.html b/docs/html/node97.html deleted file mode 100644 index 184f952e2..000000000 --- a/docs/html/node97.html +++ /dev/null @@ -1,130 +0,0 @@ - - - - - -psb_get_boundary -- Extract list of boundary elements - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_get_overlap Extract - Up: Data management routines - Previous: psb_local_index -   Contents -
      -
      - - -

      -psb_get_boundary -- Extract list of boundary - elements -

      - -

      -

      -call psb_get_boundary(bndel, desc, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      bndel
      -
      The list of boundary elements on the calling process, in - local numbering. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a rank one array with the ALLOCATABLE -attribute, of type integer. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. If there are no boundary elements (i.e., if the local part of - the connectivity graph is self-contained) the output vector is set - to the “not allocated” state. -
        2. -
      2. Otherwise the size of bndel will be exactly equal to the - number of boundary elements. -
        3. -
      - -

      -

      - - - diff --git a/docs/html/node98.html b/docs/html/node98.html deleted file mode 100644 index 4f8e69381..000000000 --- a/docs/html/node98.html +++ /dev/null @@ -1,129 +0,0 @@ - - - - - -psb_get_overlap -- Extract list of overlap elements - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_sp_getrow Extract - Up: Data management routines - Previous: psb_get_boundary Extract -   Contents -
      -
      - - -

      -psb_get_overlap -- Extract list of overlap - elements -

      - -

      -

      -call psb_get_overlap(ovrel, desc, info)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      desc
      -
      the communication descriptor. -
      -Scope:local. -
      -Type:required. -
      -Intent: in. -
      -Specified as: a structured data of type descdatapsb_desc_type. -
      -
      - -

      -

      -
      On Return
      -
      -
      -
      ovrel
      -
      The list of overlap elements on the calling process, in - local numbering. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -Specified as: a rank one array with the ALLOCATABLE -attribute, of type integer. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. If there are no overlap elements the output vector is set - to the “not allocated” state. -
        2. -
      2. Otherwise the size of ovrel will be exactly equal to the - number of overlap elements. -
        3. -
      - -

      -

      - - - diff --git a/docs/html/node99.html b/docs/html/node99.html deleted file mode 100644 index 57f6c73e4..000000000 --- a/docs/html/node99.html +++ /dev/null @@ -1,256 +0,0 @@ - - - - - -psb_sp_getrow -- Extract row(s) from a sparse matrix - - - - - - - - - - - - - - - - - - -
      - -next - -up - -previous - -contents -
      - Next: psb_sizeof Memory - Up: Data management routines - Previous: psb_get_overlap Extract -   Contents -
      -
      - - -

      -psb_sp_getrow -- Extract row(s) from a sparse - matrix -

      - -

      -

      -call psb_sp_getrow(row, a, nz, ia, ja, val, info, &
-              & append, nzin, lrw)
-
      - -

      -

      -
      Type:
      -
      Asynchronous. -
      -
      On Entry
      -
      -
      -
      row
      -
      The (first) row to be extracted. -
      -Scope:local -
      -Type:required -
      -Intent: in. -
      -Specified as: an integer $>0$. -
      -
      a
      -
      the matrix from which to get rows. -
      -Scope:local -
      -Type:required -
      -Intent: in. -
      -Specified as: a structured data of type spdatapsb_Tspmat_type. -
      -
      append
      -
      Whether to append or overwrite existing output. -
      -Scope:local -
      -Type:optional -
      -Intent: in. -
      -Specified as: a logical value default: false (overwrite). -
      -
      nzin
      -
      Input size to be appended to. -
      -Scope:local -
      -Type:optional -
      -Intent: in. -
      -Specified as: an integer $>0$. When append is true, specifies how many -entries in the output vectors are already filled. -
      -
      lrw
      -
      The last row to be extracted. -
      -Scope:local -
      -Type:optional -
      -Intent: in. -
      -Specified as: an integer $>0$, default: $row$. - -

      -

      -
      - -

      -

      -
      On Return
      -
      -
      -
      nz
      -
      the number of elements returned by this call. -
      -Scope:local. -
      -Type:required. -
      -Intent: out. -
      -Returned as: an integer scalar. -
      -
      ia
      -
      the row indices. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: an integer array with the ALLOCATABLE attribute. -
      -
      ja
      -
      the column indices of the elements to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: an integer array with the ALLOCATABLE attribute. -
      -
      val
      -
      the elements to be inserted. -
      -Scope:local. -
      -Type:required. -
      -Intent: inout. -
      -Specified as: a real array with the ALLOCATABLE attribute. -
      -
      info
      -
      Error code. -
      -Scope: local -
      -Type: required -
      -Intent: out. -
      -An integer value; 0 means no error has been detected. -
      -
      - -

      -Notes - -

        -
      1. The output $nz$ is always the size of the output generated by - the current call; thus, if append=.true., the total output - size will be $nzin+nz$, with the newly extracted coefficients stored in - entries nzin+1:nzin+nz of the array arguments; -
        2. -
      2. When append=.true. the output arrays are reallocated as - necessary; -
        3. -
      3. The row and column indices are returned in the local numbering - scheme; if the global numbering is desired, the user may employ the - psb_loc_to_glob routine on the output. -
        4. -
      - -

      - -

      - - -next - -up - -previous - -contents -
      - Next: psb_sizeof Memory - Up: Data management routines - Previous: psb_get_overlap Extract -   Contents
      - - - - diff --git a/docs/html/prev.png b/docs/html/prev.png deleted file mode 100644 index e60b8b4073572dcd83b07c60b082ea6e2ba394c9..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 279 zcmV+y0qFjTP)fWJ4@hJr9=)Yx5|PDs2VC9?nk002ovPDHLkV1i^Ya=-up diff --git a/docs/html/prev_g.png b/docs/html/prev_g.png deleted file mode 100644 index 476d9568c900e2ada6c2019b67eeee166a5f1288..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 327 zcmV-N0l5B&P)18~ zIpil5yY|hg&aw;rvXQ~olHp&x|G5Aw{ug* Z|8M28X+2RX!WaMm002ovPDHLkV1gF^iYx#C diff --git a/docs/html/up.png b/docs/html/up.png deleted file mode 100644 index 3937e168f44bc997766dbe3b9383bd1db44f094d..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 211 zcmeAS@N?(olHy`uVBq!ia0vp^Qa~)h#LU3J`0lmo0U(Dbz$e6Y|Ni~?`T5VEKaXZ$ zILr2UCs3TRB*-tA!Qt7BG$5zc)5S5QVoq$YAz!lrkL&!DV=`*aVJGv=2TrrsUKR?`=XF~0x$5q(BOL&qeQ?X^G$FnGH9 KxvX2RVNRAoooEaAn8>@(e1sRI!V#<^f)p#-WVQt^!{}{R!<_yH~7!&%|GmpxjXG& eckJV{U(78Bbom$-1qlM(%HZkh=d#Wzp$Pz8Iac=o diff --git a/docs/html/userhtml.css b/docs/html/userhtml.css deleted file mode 100644 index d1824aff4..000000000 --- a/docs/html/userhtml.css +++ /dev/null @@ -1,30 +0,0 @@ -/* Century Schoolbook font is very similar to Computer Modern Math: cmmi */ -.MATH { font-family: "Century Schoolbook", serif; } -.MATH I { font-family: "Century Schoolbook", serif; font-style: italic } -.BOLDMATH { font-family: "Century Schoolbook", serif; font-weight: bold } - -/* implement both fixed-size and relative sizes */ -SMALL.XTINY { font-size : xx-small } -SMALL.TINY { font-size : x-small } -SMALL.SCRIPTSIZE { font-size : smaller } -SMALL.FOOTNOTESIZE { font-size : small } -SMALL.SMALL { } -BIG.LARGE { } -BIG.XLARGE { font-size : large } -BIG.XXLARGE { font-size : x-large } -BIG.HUGE { font-size : larger } -BIG.XHUGE { font-size : xx-large } - -/* heading styles */ -H1 { } -H2 { } -H3 { } -H4 { } -H5 { } - -/* mathematics styles */ -DIV.displaymath { } /* math displays */ -TD.eqno { } /* equation-number cells */ - - -/* document-specific styles come next */ diff --git a/docs/html/userhtml.html b/docs/html/userhtml.html deleted file mode 100644 index cccebd92f..000000000 --- a/docs/html/userhtml.html +++ /dev/null @@ -1,414 +0,0 @@ - - - - - -userhtml - - - - - - - - - - - - - - - -
      - -next -up -previous - -contents -
      - Next: Contents -   Contents -
      -
      - -language=Fortran - -

      -PSBLAS -
      -
      -User's and Reference - Guide       -
      A reference guide for the Parallel Sparse BLAS library -
      -
      -
      -
      Salvatore Filippone -
      -Alfredo Buttari       -
      -Software version: 3.6.0 -
      -Dec 1st, 2018 - -

      - - - - - -
      - - - From 8118df17044554060d75d188b79a386273e96405 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 17 Dec 2019 19:42:26 +0000 Subject: [PATCH 09/61] Regenerated docs. --- docs/psblas-3.7.pdf | 20950 +----------------------------------------- 1 file changed, 290 insertions(+), 20660 deletions(-) diff --git a/docs/psblas-3.7.pdf b/docs/psblas-3.7.pdf index 6ce20a284..0cefd9c20 100644 --- a/docs/psblas-3.7.pdf +++ b/docs/psblas-3.7.pdf @@ -225,22 +225,6 @@ endobj << /Type /ObjStm /N 100 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/First 869 -/Length 4562 ->> -stream -202 0 206 47 207 85 210 127 211 166 214 210 215 239 218 283 219 310 222 354 -223 382 226 426 227 453 230 497 231 526 234 570 235 597 238 641 239 670 242 714 -243 741 246 785 247 814 250 858 251 885 254 929 255 956 258 1000 259 1026 262 1070 -263 1096 266 1140 267 1167 270 1211 271 1238 274 1282 275 1309 278 1351 279 1390 282 1434 -283 1460 286 1504 287 1530 290 1574 291 1602 294 1646 295 1675 298 1717 299 1758 302 1802 -303 1829 306 1873 307 1900 310 1944 311 1971 314 2015 315 2042 318 2086 319 2114 322 2158 -323 2188 326 2232 327 2259 330 2303 331 2330 334 2374 335 2401 338 2445 339 2473 342 2517 -343 2543 346 2587 347 2614 350 2658 351 2685 354 2729 355 2756 358 2800 359 2828 362 2872 -363 2898 366 2942 367 2981 370 3025 371 3064 374 3108 375 3142 378 3186 379 3223 382 3267 -383 3301 386 3345 387 3382 390 3426 391 3463 394 3507 395 3543 398 3587 399 3621 402 3665 -======= /First 877 /Length 6351 >> @@ -255,7 +239,6 @@ stream 343 3778 346 3825 347 3892 350 3940 351 4000 354 4048 355 4136 358 4184 359 4246 362 4294 363 4362 366 4410 367 4471 370 4519 371 4578 374 4626 375 4707 378 4755 379 4839 382 4887 383 4971 386 5019 387 5063 390 5111 391 5158 394 5206 395 5250 398 5298 399 5345 402 5393 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 202 0 obj << /S /GoTo /D (subsubsection.3.3.5) >> % 206 0 obj @@ -317,23 +300,6 @@ stream % 262 0 obj (4.10 psb\137norm1 \204 1-Norm of Sparse Matrix) % 263 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -<< /S /GoTo /D (section*.47) >> -% 266 0 obj -(psb\137gemlt) -% 267 0 obj -<< /S /GoTo /D (section*.48) >> -% 270 0 obj -(psb\137gediv) -% 271 0 obj -<< /S /GoTo /D (section*.49) >> -% 274 0 obj -(psb\137geinv) -% 275 0 obj -<< /S /GoTo /D (section.5) >> -% 278 0 obj -(5 Communication routines) -======= << /S /GoTo /D (subsection.4.11) >> % 266 0 obj (4.11 psb\137normi \204 Infinity Norm of Sparse Matrix) @@ -349,29 +315,9 @@ stream << /S /GoTo /D (subsection.4.14) >> % 278 0 obj (4.14 psb\137gemlt \204 Entrywise Product) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 279 0 obj << /S /GoTo /D (subsection.4.15) >> % 282 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137halo) -% 283 0 obj -<< /S /GoTo /D (section*.51) >> -% 286 0 obj -(psb\137ovrl) -% 287 0 obj -<< /S /GoTo /D (section*.52) >> -% 290 0 obj -(psb\137gather) -% 291 0 obj -<< /S /GoTo /D (section*.53) >> -% 294 0 obj -(psb\137scatter) -% 295 0 obj -<< /S /GoTo /D (section.6) >> -% 298 0 obj -(6 Data management routines) -======= (4.15 psb\137gediv \204 Entrywise Division) % 283 0 obj << /S /GoTo /D (subsection.4.16) >> @@ -389,209 +335,101 @@ stream << /S /GoTo /D (subsection.5.2) >> % 298 0 obj (5.2 psb\137ovrl \204 Overlap Update) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 299 0 obj << /S /GoTo /D (subsection.5.3) >> % 302 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdall) -======= (5.3 psb\137gather \204 Gather Global Dense Matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 303 0 obj << /S /GoTo /D (subsection.5.4) >> % 306 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdins) -======= (5.4 psb\137scatter \204 Scatter Global Dense Matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 307 0 obj << /S /GoTo /D (section.6) >> % 310 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdasb) -======= (6 Data management routines) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 311 0 obj << /S /GoTo /D (subsection.6.1) >> % 314 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdcpy) -======= (6.1 psb\137cdall \204 Allocates a communication descriptor) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 315 0 obj << /S /GoTo /D (subsection.6.2) >> % 318 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdfree) -======= (6.2 psb\137cdins \204 Communication descriptor insert routine) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 319 0 obj << /S /GoTo /D (subsection.6.3) >> % 322 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137cdbldext) -======= (6.3 psb\137cdasb \204 Communication descriptor assembly routine) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 323 0 obj << /S /GoTo /D (subsection.6.4) >> % 326 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137spall) -======= (6.4 psb\137cdcpy \204 Copies a communication descriptor) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 327 0 obj << /S /GoTo /D (subsection.6.5) >> % 330 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137spins) -======= (6.5 psb\137cdfree \204 Frees a communication descriptor) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 331 0 obj << /S /GoTo /D (subsection.6.6) >> % 334 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137spasb) -======= (6.6 psb\137cdbldext \204 Build an extended communication descriptor) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 335 0 obj << /S /GoTo /D (subsection.6.7) >> % 338 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137spfree) -======= (6.7 psb\137spall \204 Allocates a sparse matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 339 0 obj << /S /GoTo /D (subsection.6.8) >> % 342 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137sprn) -======= (6.8 psb\137spins \204 Insert a set of coefficients into a sparse matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 343 0 obj << /S /GoTo /D (subsection.6.9) >> % 346 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137geall) -======= (6.9 psb\137spasb \204 Sparse matrix assembly routine) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 347 0 obj << /S /GoTo /D (subsection.6.10) >> % 350 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137geins) -======= (6.10 psb\137spfree \204 Frees a sparse matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 351 0 obj << /S /GoTo /D (subsection.6.11) >> % 354 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137geasb) -======= (6.11 psb\137sprn \204 Reinit sparse matrix structure for psblas routines.) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 355 0 obj << /S /GoTo /D (subsection.6.12) >> % 358 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137gefree) -======= (6.12 psb\137geall \204 Allocates a dense matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 359 0 obj << /S /GoTo /D (subsection.6.13) >> % 362 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137gelp) -======= (6.13 psb\137geins \204 Dense matrix insertion routine) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 363 0 obj << /S /GoTo /D (subsection.6.14) >> % 366 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137glob\137to\137loc) -======= (6.14 psb\137geasb \204 Assembly a dense matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 367 0 obj << /S /GoTo /D (subsection.6.15) >> % 370 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137loc\137to\137glob) -======= (6.15 psb\137gefree \204 Frees a dense matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 371 0 obj << /S /GoTo /D (subsection.6.16) >> % 374 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137is\137owned ) -======= (6.16 psb\137gelp \204 Applies a left permutation to a dense matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 375 0 obj << /S /GoTo /D (subsection.6.17) >> % 378 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137owned\137index ) -======= (6.17 psb\137glob\137to\137loc \204 Global to local indices convertion) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 379 0 obj << /S /GoTo /D (subsection.6.18) >> % 382 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137is\137local ) -======= (6.18 psb\137loc\137to\137glob \204 Local to global indices conversion) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 383 0 obj << /S /GoTo /D (subsection.6.19) >> % 386 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137local\137index ) -======= (6.19 psb\137is\137owned \204 ) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 387 0 obj << /S /GoTo /D (subsection.6.20) >> % 390 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137get\137boundary) -======= (6.20 psb\137owned\137index \204 ) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 391 0 obj << /S /GoTo /D (subsection.6.21) >> % 394 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137get\137overlap) -% 395 0 obj -<< /S /GoTo /D (section*.78) >> -% 398 0 obj -(psb\137sp\137getrow) -% 399 0 obj -<< /S /GoTo /D (section*.79) >> -% 402 0 obj -(psb\137sizeof) - -endstream -endobj -567 0 obj -======= (6.21 psb\137is\137local \204 ) % 395 0 obj << /S /GoTo /D (subsection.6.22) >> @@ -605,7 +443,6 @@ endobj endstream endobj 579 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 584 >> @@ -616,11 +453,7 @@ stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 24.7871 Tf 135.453 563.395 Td [(PSBLAS)-375(3.6.0)-375(User's)-375(guide)]TJ -======= /F16 24.7871 Tf 135.453 563.395 Td [(PSBLAS)-375(3.7.0)-375(User's)-375(guide)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ET q 1 0 0 1 125.3 547.151 cm @@ -630,22 +463,14 @@ BT /F18 14.3462 Tf 132.314 525.468 Td [(A)-350(r)50(efer)50(enc)50(e)-350(guide)-350(for)-350(the)-350(Par)50(al)-50(lel)-350(Sp)50(arse)-350(BLAS)-350(libr)50(ary)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf 223.567 -135.228 Td [(b)32(y)-383(Salv)63(atore)-383(Filipp)-32(one)]TJ 12.889 -11.955 Td [(and)-383(Alfredo)-384(Buttari)]TJ/F8 9.9626 Tf 41.655 -11.955 Td [(Dec)-333(1st,)-334(2018)]TJ -======= /F27 9.9626 Tf 223.567 -135.228 Td [(b)32(y)-383(Salv)63(atore)-383(Filipp)-32(one)]TJ 12.889 -11.955 Td [(and)-383(Alfredo)-384(Buttari)]TJ/F8 9.9626 Tf 40.88 -11.955 Td [(Jan)-333(7th,)-334(2020)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -577 0 obj -======= 589 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 77 >> @@ -660,11 +485,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -628 0 obj -======= 636 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 15926 >> @@ -1262,30 +1083,6 @@ endobj << /Type /ObjStm /N 100 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/First 866 -/Length 6480 ->> -stream -403 0 407 44 408 76 411 118 412 164 415 208 416 234 419 278 420 304 423 348 -424 374 427 418 428 454 431 498 432 531 435 575 436 602 439 646 440 675 443 719 -444 746 447 790 448 817 451 861 452 886 455 930 456 955 459 999 460 1024 463 1068 -464 1093 467 1137 468 1162 471 1206 472 1232 475 1276 476 1301 479 1345 480 1370 483 1412 -484 1443 487 1487 488 1516 491 1560 492 1587 495 1632 496 1673 499 1718 500 1756 503 1798 -504 1824 507 1869 508 1894 511 1939 512 1965 515 2010 516 2042 519 2087 520 2121 523 2166 -524 2199 527 2244 528 2279 531 2322 532 2363 535 2408 536 2435 539 2480 540 2508 543 2553 -544 2581 547 2626 548 2654 551 2699 552 2719 555 2764 556 2791 559 2834 560 2869 563 2914 -564 2942 565 2987 568 3101 569 3157 3 3213 566 3267 576 3372 578 3486 575 3543 627 3609 -579 4103 580 4249 581 4395 582 4547 583 4699 584 4851 585 5008 586 5160 587 5306 588 5458 -% 403 0 obj -<< /S /GoTo /D (section*.80) >> -% 407 0 obj -(Sorting utilities) -% 408 0 obj -<< /S /GoTo /D (section.7) >> -% 411 0 obj -(7 Parallel environment routines) -======= /First 877 /Length 7331 >> @@ -1308,133 +1105,61 @@ stream << /S /GoTo /D (subsection.6.25) >> % 411 0 obj (6.25 psb\137sp\137getrow \204 Extract row\(s\) from a sparse matrix) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 412 0 obj << /S /GoTo /D (subsection.6.26) >> % 415 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137init) -======= (6.26 psb\137sizeof \204 Memory occupation) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 416 0 obj << /S /GoTo /D (subsection.6.27) >> % 419 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137info) -======= (6.27 Sorting utilities \204 ) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 420 0 obj << /S /GoTo /D (section.7) >> % 423 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137exit) -======= (7 Parallel environment routines) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 424 0 obj << /S /GoTo /D (subsection.7.1) >> % 427 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137get\137mpicomm) -======= (7.1 psb\137init \204 Initializes PSBLAS parallel environment) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 428 0 obj << /S /GoTo /D (subsection.7.2) >> % 431 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137get\137rank) -======= (7.2 psb\137info \204 Return information about PSBLAS parallel environment) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 432 0 obj << /S /GoTo /D (subsection.7.3) >> % 435 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137wtime) -======= (7.3 psb\137exit \204 Exit from PSBLAS parallel environment) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 436 0 obj << /S /GoTo /D (subsection.7.4) >> % 439 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137barrier) -======= (7.4 psb\137get\137mpi\137comm \204 Get the MPI communicator) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 440 0 obj << /S /GoTo /D (subsection.7.5) >> % 443 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137abort) -======= (7.5 psb\137get\137mpi\137rank \204 Get the MPI rank) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 444 0 obj << /S /GoTo /D (subsection.7.6) >> % 447 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137bcast) -======= (7.6 psb\137wtime \204 Wall clock timing) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 448 0 obj << /S /GoTo /D (subsection.7.7) >> % 451 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137sum) -======= (7.7 psb\137barrier \204 Sinchronization point parallel environment) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 452 0 obj << /S /GoTo /D (subsection.7.8) >> % 455 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137max) -======= (7.8 psb\137abort \204 Abort a computation) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 456 0 obj << /S /GoTo /D (subsection.7.9) >> % 459 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137min) -======= (7.9 psb\137bcast \204 Broadcast data) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 460 0 obj << /S /GoTo /D (subsection.7.10) >> % 463 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137amx) -======= (7.10 psb\137sum \204 Global sum) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 464 0 obj << /S /GoTo /D (subsection.7.11) >> % 467 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137amn) -% 468 0 obj -<< /S /GoTo /D (section*.95) >> -% 471 0 obj -(psb\137nrm2) -% 472 0 obj -<< /S /GoTo /D (section*.96) >> -% 475 0 obj -(psb\137snd) -% 476 0 obj -<< /S /GoTo /D (section*.97) >> -% 479 0 obj -(psb\137rcv) -% 480 0 obj -<< /S /GoTo /D (section.8) >> -% 483 0 obj -(8 Error handling) -======= (7.11 psb\137max \204 Global maximum) % 468 0 obj << /S /GoTo /D (subsection.7.12) >> @@ -1452,29 +1177,9 @@ stream << /S /GoTo /D (subsection.7.15) >> % 483 0 obj (7.15 psb\137nrm2 \204 Global 2-norm reduction) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 484 0 obj << /S /GoTo /D (subsection.7.16) >> % 487 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(psb\137errpush) -% 488 0 obj -<< /S /GoTo /D (section*.99) >> -% 491 0 obj -(psb\137error) -% 492 0 obj -<< /S /GoTo /D (section*.100) >> -% 495 0 obj -(psb\137set\137errverbosity) -% 496 0 obj -<< /S /GoTo /D (section*.101) >> -% 499 0 obj -(psb\137set\137erraction) -% 500 0 obj -<< /S /GoTo /D (section.9) >> -% 503 0 obj -(9 Utilities) -======= (7.16 psb\137snd \204 Send data) % 488 0 obj << /S /GoTo /D (subsection.7.17) >> @@ -1492,45 +1197,17 @@ stream << /S /GoTo /D (subsection.8.2) >> % 503 0 obj (8.2 psb\137error) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 504 0 obj << /S /GoTo /D (subsection.8.3) >> % 507 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(hb\137read) -======= (8.3 psb\137set\137errverbosity) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 508 0 obj << /S /GoTo /D (subsection.8.4) >> % 511 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(hb\137write) -======= (8.4 psb\137set\137erraction) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 512 0 obj << /S /GoTo /D (section.9) >> % 515 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(mm\137mat\137read) -% 516 0 obj -<< /S /GoTo /D (section*.105) >> -% 519 0 obj -(mm\137array\137read) -% 520 0 obj -<< /S /GoTo /D (section*.106) >> -% 523 0 obj -(mm\137mat\137write) -% 524 0 obj -<< /S /GoTo /D (section*.107) >> -% 527 0 obj -(mm\137array\137write) -% 528 0 obj -<< /S /GoTo /D (section.10) >> -% 531 0 obj -(10 Preconditioner routines) -======= (9 Utilities) % 516 0 obj << /S /GoTo /D (subsection.9.1) >> @@ -1548,103 +1225,17 @@ stream << /S /GoTo /D (subsection.9.4) >> % 531 0 obj (9.4 mm\137array\137read \204 Read a dense array from a file in the MatrixMarket format) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 532 0 obj << /S /GoTo /D (subsection.9.5) >> % 535 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(prec\045init) -======= (9.5 mm\137mat\137write \204 Write a sparse matrix to a file in the MatrixMarket format) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 536 0 obj << /S /GoTo /D (subsection.9.6) >> % 539 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(prec\045build) -======= (9.6 mm\137array\137write \204 Write a dense array from a file in the MatrixMarket format) ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 540 0 obj << /S /GoTo /D (section.10) >> % 543 0 obj -<<<<<<< HEAD:docs/psblas-3.6.pdf -(prec\045apply) -% 544 0 obj -<< /S /GoTo /D (section*.111) >> -% 547 0 obj -(prec\045descr) -% 548 0 obj -<< /S /GoTo /D (section*.112) >> -% 551 0 obj -(clone) -% 552 0 obj -<< /S /GoTo /D (section*.113) >> -% 555 0 obj -(prec\045free) -% 556 0 obj -<< /S /GoTo /D (section.11) >> -% 559 0 obj -(11 Iterative Methods) -% 560 0 obj -<< /S /GoTo /D (section*.114) >> -% 563 0 obj -(psb\137krylov) -% 564 0 obj -<< /S /GoTo /D [565 0 R /Fit] >> -% 565 0 obj -<< -/Type /Page -/Contents 567 0 R -/Resources 566 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R ->> -% 568 0 obj -<< -/D [565 0 R /XYZ 98.895 753.953 null] ->> -% 569 0 obj -<< -/D [565 0 R /XYZ 99.895 716.092 null] ->> -% 3 0 obj -<< -/D [565 0 R /XYZ 99.895 716.092 null] ->> -% 566 0 obj -<< -/Font << /F16 570 0 R /F18 571 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 576 0 obj -<< -/Type /Page -/Contents 577 0 R -/Resources 575 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R ->> -% 578 0 obj -<< -/D [576 0 R /XYZ 149.705 753.953 null] ->> -% 575 0 obj -<< -/Font << /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 627 0 obj -<< -/Type /Page -/Contents 628 0 R -/Resources 626 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R -/Annots [ 579 0 R 580 0 R 581 0 R 582 0 R 583 0 R 584 0 R 585 0 R 586 0 R 587 0 R 588 0 R 589 0 R 590 0 R 591 0 R 592 0 R 593 0 R 594 0 R 595 0 R 596 0 R 597 0 R 598 0 R 599 0 R 600 0 R 601 0 R 602 0 R 603 0 R 604 0 R 605 0 R 606 0 R 607 0 R 608 0 R 609 0 R 610 0 R 611 0 R 612 0 R 613 0 R 614 0 R 615 0 R 616 0 R 617 0 R 618 0 R 619 0 R 620 0 R 621 0 R 622 0 R 623 0 R 624 0 R ] ->> -% 579 0 obj -======= (10 Preconditioner routines) % 544 0 obj << /S /GoTo /D (subsection.10.1) >> @@ -1732,7 +1323,6 @@ stream /Annots [ 591 0 R 592 0 R 593 0 R 594 0 R 595 0 R 596 0 R 597 0 R 598 0 R 599 0 R 600 0 R 601 0 R 602 0 R 603 0 R 604 0 R 605 0 R 606 0 R 607 0 R 608 0 R 609 0 R 639 0 R 610 0 R 640 0 R 611 0 R 612 0 R 613 0 R 614 0 R 615 0 R 616 0 R 617 0 R 618 0 R 619 0 R 641 0 R 620 0 R 642 0 R 621 0 R 622 0 R 623 0 R 624 0 R 625 0 R 626 0 R 627 0 R 628 0 R 629 0 R 630 0 R 631 0 R 632 0 R ] >> % 591 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -1740,11 +1330,7 @@ stream /Rect [98.899 682.988 179.001 691.899] /A << /S /GoTo /D (section.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 580 0 obj -======= % 592 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -1752,11 +1338,7 @@ stream /Rect [98.899 660.844 202.863 669.755] /A << /S /GoTo /D (section.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 581 0 obj -======= % 593 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -1764,11 +1346,7 @@ stream /Rect [113.843 648.753 225.868 657.664] /A << /S /GoTo /D (subsection.2.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 582 0 obj -======= % 594 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -1776,69 +1354,12 @@ stream /Rect [113.843 634.725 210.675 645.573] /A << /S /GoTo /D (subsection.2.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 583 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 622.706 232.122 633.554] -/A << /S /GoTo /D (subsection.2.3) >> ->> -% 584 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [136.757 610.626 296.409 621.474] -/A << /S /GoTo /D (subsubsection.2.3.1) >> ->> -% 585 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 598.546 227.777 609.394] -/A << /S /GoTo /D (subsection.2.4) >> ->> -% 586 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [98.899 578.358 258.112 587.269] -/A << /S /GoTo /D (section.3) >> ->> -% 587 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 564.341 249.529 575.189] -/A << /S /GoTo /D (subsection.3.1) >> ->> -% 588 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [136.757 552.261 257.001 563.11] -/A << /S /GoTo /D (subsubsection.3.1.1) >> ->> - -endstream -endobj -681 0 obj -<< -/Length 20368 -======= endstream endobj 693 0 obj << /Length 15806 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -2121,62 +1642,6 @@ BT [-1084(50)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.079 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 478.848 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 478.649 Td [(gemlt)]TJ -0 g 0 G - [-662(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(52)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 466.569 Td [(gediv)]TJ -0 g 0 G - [-801(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(54)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 454.688 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 454.489 Td [(gein)28(v)]TJ -0 g 0 G - [-829(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(56)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -22.125 Td [(5)-925(Comm)32(unication)-383(r)-1(ou)1(t)-1(ines)]TJ -0 g 0 G - [-19454(57)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 420.483 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 420.284 Td [(halo)]TJ -======= -41.5 -12.079 Td [(4.14)-522(psb)]TJ ET q @@ -2185,23 +1650,12 @@ q Q BT /F8 9.9626 Tf 207.149 394.091 Td [(gemlt)-333(|)-334(En)28(trywise)-333(Pro)-28(duct)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-906(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(58)]TJ + [-1084(53)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 408.404 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 408.204 Td [(o)28(vrl)]TJ -======= -41.5 -12.08 Td [(4.15)-522(psb)]TJ ET q @@ -2210,23 +1664,9 @@ q Q BT /F8 9.9626 Tf 207.149 382.011 Td [(gediv)-333(|)-334(En)28(trywise)-333(Division)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1015(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(61)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.079 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 396.324 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 396.125 Td [(gather)]TJ -======= [-1084(55)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -2238,57 +1678,27 @@ q Q BT /F8 9.9626 Tf 207.149 369.931 Td [(gein)28(v)-334(|)-333(En)28(trywise)-333(In)27(v)28(ersion)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-664(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(65)]TJ -======= [-1084(57)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG /F27 9.9626 Tf -56.444 -22.125 Td [(5)-925(Comm)32(unication)-383(r)-1(ou)1(t)-1(ines)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-19454(58)]TJ 0 0 1 rg 0 0 1 RG /F8 9.9626 Tf 14.944 -12.08 Td [(5.1)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 384.244 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 384.045 Td [(scatter)]TJ -======= 1 0 0 1 204.16 335.925 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 335.726 Td [(halo)-333(|)-334(Halo)-333(Data)-333(Comm)27(un)1(ic)-1(ati)1(o)-1(n)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-320(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(67)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -22.125 Td [(6)-925(Data)-383(managem)-1(e)1(n)31(t)-383(routines)]TJ -0 g 0 G - [-18205(69)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 350.039 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 349.84 Td [(cdall)]TJ -======= [-1084(59)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -2300,53 +1710,29 @@ q Q BT /F8 9.9626 Tf 207.149 323.647 Td [(o)28(vrl)-333(|)-334(Ov)28(erlap)-333(Up)-28(date)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-579(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(69)]TJ -======= [-1084(62)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(5.3)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 337.96 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 337.76 Td [(cdins)]TJ -======= 1 0 0 1 204.16 311.766 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 311.567 Td [(gather)-333(|)-334(Gather)-333(Global)-333(Dense)-334(Matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-903(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(73)]TJ -======= [-1084(66)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(5.4)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 325.88 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 325.681 Td [(cdasb)]TJ -======= 1 0 0 1 204.16 299.686 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q @@ -2354,77 +1740,39 @@ BT /F8 9.9626 Tf 207.149 299.487 Td [(scatter)-333(|)-334(Scatter)-333(Global)-333(Dense)-334(Matrix)]TJ 0 g 0 G [-682(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1084(68)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(75)]TJ -======= 0 0 1 rg 0 0 1 RG /F27 9.9626 Tf -56.444 -22.125 Td [(6)-925(Data)-383(managem)-1(e)1(n)31(t)-383(routines)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-18205(70)]TJ 0 0 1 rg 0 0 1 RG /F8 9.9626 Tf 14.944 -12.08 Td [(6.1)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 313.8 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 313.601 Td [(cdcp)28(y)]TJ -======= 1 0 0 1 204.16 265.481 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 265.282 Td [(cdall)-333(|)-334(Allo)-27(cates)-334(a)-333(comm)27(u)1(nication)-334(descriptor)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-817(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(76)]TJ -======= [-1084(70)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.2)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 301.72 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 301.521 Td [(cdfree)]TJ -======= 1 0 0 1 204.16 253.402 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 253.202 Td [(cdins)-333(|)-334(Comm)28(unication)-333(descriptor)-333(inse)-1(r)1(t)-334(routine)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-861(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(77)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 289.641 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 289.441 Td [(cdbldext)]TJ -======= [-1084(74)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -2436,23 +1784,9 @@ q Q BT /F8 9.9626 Tf 207.149 241.123 Td [(cdasb)-333(|)-334(Comm)28(unication)-333(descriptor)-334(assem)28(bly)-333(routine)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-748(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(78)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.079 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 277.561 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 277.362 Td [(spall)]TJ -======= [-1084(76)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -2464,223 +1798,121 @@ q Q BT /F8 9.9626 Tf 207.149 229.043 Td [(cdcp)28(y)-334(|)-333(Copies)-333(a)-334(comm)28(unication)-333(descriptor)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-706(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(80)]TJ -======= [-1084(77)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.5)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 265.481 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 265.282 Td [(spins)]TJ -======= 1 0 0 1 204.16 217.162 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 216.963 Td [(cdfree)-333(|)-334(F)84(rees)-334(a)-333(comm)28(unication)-334(descriptor)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-492(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(81)]TJ -======= [-1084(78)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.079 Td [(6.6)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 253.402 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 253.202 Td [(spasb)]TJ -======= 1 0 0 1 204.16 205.083 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 204.884 Td [(cdbldext)-333(|)-334(Build)-333(an)-333(extended)-333(co)-1(mm)28(unication)-333(descriptor)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-614(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(84)]TJ -======= [-1084(79)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.7)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 241.322 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 241.123 Td [(spfree)]TJ -======= 1 0 0 1 204.16 193.003 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 192.804 Td [(spall)-333(|)-334(Allo)-27(cates)-334(a)-333(sparse)-334(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-806(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(86)]TJ + [-1084(81)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.8)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 229.242 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 229.043 Td [(sprn)]TJ -======= 1 0 0 1 204.16 180.923 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 180.724 Td [(spins)-333(|)-334(Insert)-333(a)-333(set)-334(of)-333(co)-28(e\016cien)28(ts)-334(in)28(to)-333(a)-333(sparse)-334(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-814(.)-500(.)-500(.)]TJ 0 g 0 G - [-1084(87)]TJ + [-1084(82)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.9)-1022(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 217.162 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 216.963 Td [(geall)]TJ -======= 1 0 0 1 204.16 168.844 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 168.644 Td [(spasb)-333(|)-334(Sparse)-333(matrix)-333(assem)27(bly)-333(routine)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-853(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(88)]TJ -======= [-1084(85)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.079 Td [(6.10)-522(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 205.083 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 204.884 Td [(geins)]TJ -======= 1 0 0 1 204.16 156.764 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 156.565 Td [(spfree)-333(|)-334(F)84(rees)-334(a)-333(sparse)-334(matri)1(x)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-482(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(89)]TJ -======= [-1084(87)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.11)-522(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 193.003 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 192.804 Td [(geasb)]TJ -======= 1 0 0 1 204.16 144.684 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 144.485 Td [(sprn)-333(|)-334(Reinit)-333(sparse)-333(matrix)-334(structure)-333(for)-333(psblas)-333(routines.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1012(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(91)]TJ -======= [-1084(88)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.08 Td [(6.12)-522(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 180.923 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 180.724 Td [(gefree)]TJ -======= 1 0 0 1 204.16 132.605 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT /F8 9.9626 Tf 207.149 132.405 Td [(geall)-333(|)-334(Allo)-27(cates)-334(a)-333(dense)-334(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-320(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(92)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.08 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 168.844 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 168.644 Td [(gelp)]TJ -======= [-1084(89)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -2692,7 +1924,6 @@ q Q BT /F8 9.9626 Tf 207.149 120.326 Td [(geins)-333(|)-334(Dense)-333(matrix)-333(insertion)-334(routine)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-656(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G @@ -2711,33 +1942,6 @@ endobj >> stream 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1084(93)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.079 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 156.764 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 156.565 Td [(glob)]TJ -ET -q -1 0 0 1 203.097 156.764 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 206.086 156.565 Td [(to)]TJ -ET -q -1 0 0 1 215.54 156.764 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 218.528 156.565 Td [(lo)-28(c)]TJ -======= 0 g 0 G 0 0 1 rg 0 0 1 RG BT @@ -2777,41 +1981,15 @@ q Q BT /F8 9.9626 Tf 156.339 681.941 Td [(gelp)-333(|)-334(Applies)-333(a)-333(left)-334(p)-27(erm)27(utation)-333(to)-333(a)-334(dense)-333(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-317(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(94)]TJ -======= [-1084(94)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.095 Td [(6.17)-522(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 144.684 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 144.485 Td [(lo)-28(c)]TJ -ET -q -1 0 0 1 197.286 144.684 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 200.275 144.485 Td [(to)]TJ -ET -q -1 0 0 1 209.728 144.684 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 212.717 144.485 Td [(glob)]TJ -======= 1 0 0 1 153.351 670.046 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q @@ -2831,15 +2009,10 @@ q Q BT /F8 9.9626 Tf 190.633 669.846 Td [(lo)-28(c)-333(|)-333(G)-1(l)1(obal)-334(to)-333(lo)-28(cal)-333(indices)-334(con)28(v)28(ertion)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-821(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(96)]TJ -======= [-1083(95)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 0 1 rg 0 0 1 RG -75.794 -12.094 Td [(6.18)-522(psb)]TJ @@ -2852,20 +2025,6 @@ BT /F8 9.9626 Tf 156.339 657.752 Td [(lo)-28(c)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 132.605 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 132.405 Td [(is)]TJ -ET -q -1 0 0 1 191.53 132.605 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 194.518 132.405 Td [(o)28(wned)]TJ -======= 1 0 0 1 169.39 657.951 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q @@ -2878,7 +2037,6 @@ q Q BT /F8 9.9626 Tf 184.822 657.752 Td [(glob)-333(|)-334(Lo)-27(cal)-334(to)-333(global)-333(indices)-334(con)28(v)28(ersion)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-753(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G @@ -2888,20 +2046,6 @@ BT -69.983 -12.094 Td [(6.19)-522(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 181.246 120.525 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 120.326 Td [(o)28(wned)]TJ -ET -q -1 0 0 1 212.23 120.525 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 215.219 120.326 Td [(index)]TJ -======= 1 0 0 1 153.351 645.857 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q @@ -2914,68 +2058,9 @@ q Q BT /F8 9.9626 Tf 166.623 645.658 Td [(o)28(wned)-334(|)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1135(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-1083(98)]TJ -0 g 0 G -0 g 0 G - 104.574 -29.888 Td [(ii)]TJ -0 g 0 G -ET - -endstream -endobj -730 0 obj -<< -/Length 19093 ->> -stream -0 g 0 G -0 g 0 G -0 0 1 rg 0 0 1 RG -BT -/F8 9.9626 Tf 114.839 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 706.129 Td [(is)]TJ -ET -q -1 0 0 1 140.72 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 143.709 706.129 Td [(lo)-28(cal)]TJ -0 g 0 G - [-824(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-1084(99)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -28.87 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 693.675 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 693.476 Td [(lo)-28(cal)]TJ -ET -q -1 0 0 1 154.225 693.675 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 157.214 693.476 Td [(index)]TJ -0 g 0 G - [-691(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -======= [-1084(98)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3017,28 +2102,10 @@ BT /F8 9.9626 Tf 166.623 621.47 Td [(lo)-28(cal)-333(|)]TJ 0 g 0 G [-1080(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-584(100)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -42.375 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 681.022 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 680.822 Td [(get)]TJ -ET -q -1 0 0 1 147.307 681.022 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 680.822 Td [(b)-28(oundary)]TJ -======= -51.784 -12.095 Td [(6.22)-522(psb)]TJ ET q @@ -3054,30 +2121,9 @@ q Q BT /F8 9.9626 Tf 180.128 609.375 Td [(index)-333(|)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-947(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(101)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -35.456 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 668.368 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 668.169 Td [(get)]TJ -ET -q -1 0 0 1 147.307 668.368 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 668.169 Td [(o)28(v)28(e)-1(r)1(lap)]TJ -======= [-584(101)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3117,30 +2163,9 @@ q Q BT /F8 9.9626 Tf 173.209 585.187 Td [(o)28(v)28(e)-1(r)1(lap)-334(|)-333(Extract)-333(list)-334(of)-333(o)28(v)28(erlap)-334(elemen)28(ts)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-830(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(102)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -35.456 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 655.715 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 655.516 Td [(sp)]TJ -ET -q -1 0 0 1 143.488 655.715 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 146.476 655.516 Td [(getro)28(w)]TJ -======= [-584(103)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3159,23 +2184,9 @@ q Q BT /F8 9.9626 Tf 169.39 573.093 Td [(getro)28(w)-334(|)-333(Extract)-333(ro)28(w\050s)-1(\051)-333(from)-333(a)-333(s)-1(p)1(arse)-334(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-810(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(103)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -31.637 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 643.062 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 642.862 Td [(sizeof)]TJ -======= [-584(104)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3187,41 +2198,16 @@ q Q BT /F8 9.9626 Tf 156.339 560.999 Td [(sizeof)-333(|)-334(Memory)-333(o)-28(ccupation)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-520(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(105)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(Sorting)-333(utilities)]TJ -======= [-583(106)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.094 Td [(6.27)-522(Sorting)-333(utilities)-334(|)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-775(.)-500(.)-499(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(106)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -14.944 -23.081 Td [(7)-925(P)32(arallel)-384(en)32(vironmen)32(t)-383(routines)]TJ -0 g 0 G - [-16316(108)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 594.674 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 594.475 Td [(init)]TJ -======= [-584(107)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3237,23 +2223,9 @@ q Q BT /F8 9.9626 Tf 156.339 514.661 Td [(init)-333(|)-334(Initializes)-333(PSBLAS)-333(parallel)-333(e)-1(n)28(vironmen)28(t)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-920(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(109)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 582.021 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 581.821 Td [(info)]TJ -======= [-584(110)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3265,23 +2237,9 @@ q Q BT /F8 9.9626 Tf 156.339 502.567 Td [(info)-329(|)-328(Return)-329(information)-329(ab)-27(out)-329(PSBLAS)-329(parallel)-328(en)27(vir)1(on-)]TJ -18.586 -11.956 Td [(men)28(t)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-478(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(110)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 569.367 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 569.168 Td [(exit)]TJ -======= [-584(111)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3293,30 +2251,9 @@ q Q BT /F8 9.9626 Tf 156.339 478.517 Td [(exit)-333(|)-334(Exit)-333(from)-333(PSBLAS)-334(p)1(arallel)-334(en)28(vironmen)28(t)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-742(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(111)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 556.714 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 556.515 Td [(get)]TJ -ET -q -1 0 0 1 147.307 556.714 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 556.515 Td [(mpicomm)]TJ -======= [-584(112)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3342,44 +2279,9 @@ q Q BT /F8 9.9626 Tf 193.4 466.423 Td [(comm)-334(|)-333(Get)-333(the)-334(MPI)-333(comm)28(unicator)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-868(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(112)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -35.456 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 544.061 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 543.861 Td [(get)]TJ -ET -q -1 0 0 1 147.307 544.061 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 150.295 543.861 Td [(rank)]TJ -0 g 0 G - [-994(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-584(113)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -35.456 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 531.407 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 531.208 Td [(wtime)]TJ -======= [-584(113)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3405,23 +2307,12 @@ q Q BT /F8 9.9626 Tf 193.4 454.329 Td [(rank)-333(|)-334(Get)-333(the)-333(MPI)-334(rank)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-282(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(114)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 518.754 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 518.555 Td [(barrier)]TJ -======= -78.561 -12.094 Td [(7.6)-1022(psb)]TJ ET q @@ -3430,23 +2321,12 @@ q Q BT /F8 9.9626 Tf 156.339 442.235 Td [(wtime)-333(|)-334(W)84(all)-334(clo)-28(c)28(k)-333(timing)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-445(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(115)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 506.101 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 505.902 Td [(ab)-28(ort)]TJ -======= -41.5 -12.094 Td [(7.7)-1022(psb)]TJ ET q @@ -3455,23 +2335,12 @@ q Q BT /F8 9.9626 Tf 156.339 430.141 Td [(barrier)-333(|)-334(Sinc)28(hronization)-333(p)-28(oin)28(t)-333(parallel)-333(en)27(vironmen)28(t)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-845(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(116)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 493.448 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 493.248 Td [(b)-28(cast)]TJ -======= -41.5 -12.095 Td [(7.8)-1022(psb)]TJ ET q @@ -3480,23 +2349,9 @@ q Q BT /F8 9.9626 Tf 156.339 418.046 Td [(ab)-28(ort)-333(|)-333(Ab)-28(ort)-333(a)-334(computation)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-717(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(117)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 480.794 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 480.595 Td [(sum)]TJ -======= [-583(117)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3508,23 +2363,12 @@ q Q BT /F8 9.9626 Tf 156.339 405.952 Td [(b)-28(cast)-333(|)-334(Broadcast)-333(data)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-278(.)-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 [-584(118)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 468.141 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 467.942 Td [(max)]TJ -======= -41.5 -12.094 Td [(7.10)-522(psb)]TJ ET q @@ -3533,23 +2377,9 @@ q Q BT /F8 9.9626 Tf 156.339 393.858 Td [(sum)-333(|)-334(Global)-333(sum)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-900(.)-500(.)-499(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(119)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 455.488 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 455.289 Td [(min)]TJ -======= [-584(119)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3561,23 +2391,9 @@ q Q BT /F8 9.9626 Tf 156.339 381.764 Td [(max)-333(|)-334(Global)-333(maxim)28(um)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-605(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(120)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 442.835 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 442.635 Td [(amx)]TJ -======= [-583(120)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3589,23 +2405,9 @@ q Q BT /F8 9.9626 Tf 156.339 369.67 Td [(min)-333(|)-334(Global)-333(minim)28(um)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-994(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(121)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 430.181 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 429.982 Td [(amn)]TJ -======= [-584(121)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3617,23 +2419,12 @@ q Q BT /F8 9.9626 Tf 156.339 357.576 Td [(amx)-333(|)-334(Global)-333(maxim)28(um)-334(absolute)-333(v)56(alue)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-294(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(122)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 417.528 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 417.329 Td [(nrm2)]TJ -======= -41.5 -12.095 Td [(7.14)-522(psb)]TJ ET q @@ -3642,23 +2433,12 @@ q Q BT /F8 9.9626 Tf 156.339 345.481 Td [(amn)-333(|)-334(Global)-333(minim)28(um)-334(absolu)1(te)-334(v)56(alue)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-461(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(123)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 404.875 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 404.675 Td [(snd)]TJ -======= -41.5 -12.094 Td [(7.15)-522(psb)]TJ ET q @@ -3667,23 +2447,12 @@ q Q BT /F8 9.9626 Tf 156.339 333.387 Td [(nrm2)-333(|)-334(Global)-333(2-norm)-333(reduction)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-847(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(124)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 392.221 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 392.022 Td [(rcv)]TJ -======= -41.5 -12.094 Td [(7.16)-522(psb)]TJ ET q @@ -3692,27 +2461,10 @@ q Q BT /F8 9.9626 Tf 156.339 321.293 Td [(snd)-333(|)-334(Send)-333(data)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1023(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ 0 g 0 G [-584(125)]TJ -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -33.53 -23.081 Td [(8)-925(Error)-383(handling)]TJ -0 g 0 G - [-23812(126)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 356.487 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 356.288 Td [(errpush)]TJ -======= 0 g 0 G 0 0 1 rg 0 0 1 RG -41.5 -12.094 Td [(7.17)-522(psb)]TJ @@ -3723,23 +2475,9 @@ q Q BT /F8 9.9626 Tf 156.339 309.199 Td [(rcv)-333(|)-334(Receiv)28(e)-333(data)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-762(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(128)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -18.586 -12.654 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 343.833 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 343.634 Td [(error)]TJ -======= [-583(126)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3755,30 +2493,12 @@ q Q BT /F8 9.9626 Tf 156.339 274.955 Td [(errpush)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-629(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 [-584(129)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -18.586 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 331.18 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 330.981 Td [(set)]TJ -ET -q -1 0 0 1 146.255 331.18 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 149.244 330.981 Td [(errv)28(erb)-28(osit)28(y)]TJ -======= -41.5 -12.094 Td [(8.2)-1022(psb)]TJ ET q @@ -3787,62 +2507,12 @@ q Q BT /F8 9.9626 Tf 156.339 262.861 Td [(error)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-1020(.)-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(.)-499(.)]TJ 0 g 0 G [-584(130)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG -<<<<<<< HEAD:docs/psblas-3.6.pdf - -34.405 -12.653 Td [(psb)]TJ -ET -q -1 0 0 1 130.436 318.527 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 133.425 318.328 Td [(set)]TJ -ET -q -1 0 0 1 146.255 318.527 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 149.244 318.328 Td [(erraction)]TJ -0 g 0 G - [-735(.)-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(.)-499(.)-500(.)]TJ -0 g 0 G - [-584(131)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -49.349 -23.082 Td [(9)-925(Utilities)]TJ -0 g 0 G - [-27238(132)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.653 Td [(h)28(b)]TJ -ET -q -1 0 0 1 126.23 282.792 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 129.219 282.593 Td [(read)]TJ -0 g 0 G - [-859(.)-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(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-584(133)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -14.38 -12.653 Td [(h)28(b)]TJ -ET -q -1 0 0 1 126.23 270.139 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 129.219 269.94 Td [(write)]TJ -======= -41.5 -12.094 Td [(8.3)-1022(psb)]TJ ET q @@ -3879,30 +2549,9 @@ q Q BT /F8 9.9626 Tf 172.158 238.673 Td [(erraction)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-769(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(134)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -14.38 -12.654 Td [(mm)]TJ -ET -q -1 0 0 1 132.042 257.486 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 135.03 257.286 Td [(mat)]TJ -ET -q -1 0 0 1 152.786 257.486 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.775 257.286 Td [(read)]TJ -======= [-584(132)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3918,30 +2567,9 @@ q Q BT /F8 9.9626 Tf 156.792 204.429 Td [(read)-468(|)-467(Read)-468(a)-468(sparse)-468(matri)1(x)-468(from)-468(a)-467(\014le)-468(in)-468(the)-467(Harw)27(ell{)]TJ -19.039 -11.955 Td [(Bo)-28(eing)-333(format)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-294(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(135)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -40.936 -12.653 Td [(mm)]TJ -ET -q -1 0 0 1 132.042 244.832 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 135.03 244.633 Td [(arra)28(y)]TJ -ET -q -1 0 0 1 158.376 244.832 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 161.365 244.633 Td [(read)]TJ -======= [-583(134)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3953,30 +2581,9 @@ q Q BT /F8 9.9626 Tf 152.133 180.38 Td [(write)-291(|)-290(W)83(rite)-290(a)-291(sparse)-290(matrix)-291(to)-290(a)-291(\014le)-290(in)-291(the)-290(Harw)28(ell{Bo)-28(eing)]TJ -14.38 -11.956 Td [(format)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-530(.)-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(.)-499(.)-500(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-584(136)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -46.526 -12.653 Td [(mm)]TJ -ET -q -1 0 0 1 132.042 232.179 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 135.03 231.98 Td [(mat)]TJ -ET -q -1 0 0 1 152.786 232.179 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.775 231.98 Td [(write)]TJ -======= [-584(135)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -3995,83 +2602,9 @@ q Q BT /F8 9.9626 Tf 178.689 156.33 Td [(read)-313(|)-314(Read)-313(a)-313(sparse)-314(matrix)-313(from)-313(a)-314(\014le)-313(in)-313(the)-314(Matr)1(ix-)]TJ -40.935 -11.955 Td [(Mark)28(et)-333(format)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-945(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-583(137)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - -40.936 -12.653 Td [(mm)]TJ -ET -q -1 0 0 1 132.042 219.526 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 135.03 219.327 Td [(arra)28(y)]TJ -ET -q -1 0 0 1 158.376 219.526 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 161.365 219.327 Td [(write)]TJ -0 g 0 G - [-410(.)-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 - [-583(138)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG -/F27 9.9626 Tf -61.47 -23.082 Td [(10)-350(Preconditioner)-383(routi)-1(n)1(es)]TJ -0 g 0 G - [-19367(139)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -12.653 Td [(prec%init)]TJ -0 g 0 G - [-803(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(140)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -12.653 Td [(prec%build)]TJ -0 g 0 G - [-858(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-584(141)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -12.654 Td [(prec%apply)]TJ -0 g 0 G - [-664(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-584(143)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -12.653 Td [(prec%descr)]TJ -0 g 0 G - [-850(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ -0 g 0 G - [-584(144)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -12.653 Td [(clone)]TJ -0 g 0 G - [-417(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(145)]TJ -0 g 0 G -0 0 1 rg 0 0 1 RG - 0 -12.653 Td [(prec%free)]TJ -0 g 0 G - [-717(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(146)]TJ -0 g 0 G -0 g 0 G - 152.761 -29.888 Td [(iii)]TJ -======= [-584(136)]TJ 0 g 0 G 0 0 1 rg 0 0 1 RG @@ -4097,33 +2630,11 @@ BT 0 g 0 G 0 g 0 G 129.847 -29.888 Td [(iii)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -631 0 obj -<< -/Type /ObjStm -/N 100 -/First 924 -/Length 16094 ->> -stream -589 0 590 147 591 294 592 442 593 590 594 737 595 885 596 1033 597 1181 598 1330 -599 1479 600 1636 601 1788 602 1944 603 2093 604 2242 605 2391 606 2539 607 2688 608 2837 -609 2986 610 3135 611 3284 612 3433 613 3582 614 3731 615 3880 616 4029 617 4178 618 4326 -619 4475 620 4632 621 4784 622 4940 623 5089 624 5237 629 5386 630 5442 626 5498 680 5590 -625 6092 632 6241 633 6390 634 6542 635 6694 636 6841 637 6990 638 7138 639 7285 640 7433 -641 7582 642 7731 643 7880 644 8029 645 8177 646 8326 647 8475 648 8622 649 8771 650 8920 -651 9067 652 9216 653 9363 654 9512 655 9661 656 9810 657 9958 658 10104 659 10252 660 10401 -661 10550 662 10699 663 10848 664 10997 665 11146 666 11295 667 11444 668 11593 669 11742 670 11890 -671 12038 672 12186 673 12335 674 12484 675 12632 676 12779 677 12927 682 13075 679 13132 729 13211 -678 13689 683 13838 684 13986 685 14134 686 14283 687 14432 688 14577 689 14726 690 14872 691 15021 -% 589 0 obj -======= 643 0 obj << /Type /ObjStm @@ -4143,158 +2654,61 @@ stream 677 12460 678 12612 679 12764 680 12916 681 13067 682 13218 683 13369 684 13520 685 13672 686 13824 687 13976 688 14127 689 14279 694 14431 691 14488 738 14567 690 15069 695 15222 696 15375 697 15527 % 595 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 540.182 231.021 551.03] -/A << /S /GoTo /D (section*.2) >> ->> -% 590 0 obj -======= /Rect [113.843 622.634 232.122 633.482] /A << /S /GoTo /D (subsection.2.3) >> >> % 596 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 528.102 227.395 538.95] -/A << /S /GoTo /D (section*.3) >> ->> -% 591 0 obj -======= /Rect [136.757 610.543 296.409 621.391] /A << /S /GoTo /D (subsubsection.2.3.1) >> >> % 597 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 516.022 236.832 526.871] -/A << /S /GoTo /D (section*.4) >> ->> -% 592 0 obj -======= /Rect [113.843 598.452 227.777 609.3] /A << /S /GoTo /D (subsection.2.4) >> >> % 598 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 503.943 233.207 514.791] -/A << /S /GoTo /D (section*.5) >> ->> -% 593 0 obj -======= /Rect [98.899 578.245 258.112 587.156] /A << /S /GoTo /D (section.3) >> >> % 599 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 491.863 246.49 502.711] -/A << /S /GoTo /D (section*.6) >> ->> -% 594 0 obj -======= /Rect [113.843 564.217 249.529 575.065] /A << /S /GoTo /D (subsection.3.1) >> >> % 600 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 479.783 219.602 490.133] -/A << /S /GoTo /D (section*.7) >> ->> -% 595 0 obj -======= /Rect [136.757 552.126 257.001 562.974] /A << /S /GoTo /D (subsubsection.3.1.1) >> >> % 601 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 469.641 195.537 478.552] -/A << /S /GoTo /D (section*.8) >> ->> -% 596 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 457.561 192.769 466.361] -/A << /S /GoTo /D (section*.9) >> ->> -% 597 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 443.544 284.769 454.392] -/A << /S /GoTo /D (section*.10) >> ->> -% 598 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [168.638 431.464 283.717 442.313] -/A << /S /GoTo /D (section*.11) >> ->> -% 599 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [136.757 421.322 248.228 430.233] -/A << /S /GoTo /D (subsubsection.3.1.2) >> ->> -% 600 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 407.305 223.654 418.153] -/A << /S /GoTo /D (subsection.3.2) >> ->> -% 601 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [136.757 395.225 273.19 406.074] -/A << /S /GoTo /D (subsubsection.3.2.1) >> ->> -======= /Rect [136.757 540.035 357.948 550.883] /A << /S /GoTo /D (subsubsection.3.1.2) >> >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 602 0 obj << /Type /Annot @@ -4359,11 +2773,7 @@ stream /Rect [136.757 443.306 444.603 454.155] /A << /S /GoTo /D (subsubsection.3.1.10) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 610 0 obj -======= % 639 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4371,11 +2781,7 @@ stream /Rect [98.899 431.351 220.222 442.199] /A << /S /GoTo /D (subsubsection.3.1.10) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 611 0 obj -======= % 610 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4383,11 +2789,7 @@ stream /Rect [136.757 419.26 444.603 430.108] /A << /S /GoTo /D (subsubsection.3.1.11) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 612 0 obj -======= % 640 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4395,11 +2797,7 @@ stream /Rect [98.899 407.305 220.222 418.153] /A << /S /GoTo /D (subsubsection.3.1.11) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 613 0 obj -======= % 611 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4407,11 +2805,7 @@ stream /Rect [136.757 395.214 359.885 406.062] /A << /S /GoTo /D (subsubsection.3.1.12) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 614 0 obj -======= % 612 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4419,11 +2813,7 @@ stream /Rect [136.757 383.123 356.55 393.971] /A << /S /GoTo /D (subsubsection.3.1.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 615 0 obj -======= % 613 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4431,11 +2821,7 @@ stream /Rect [136.757 371.032 411.273 381.88] /A << /S /GoTo /D (subsubsection.3.1.14) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 616 0 obj -======= % 614 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4443,11 +2829,7 @@ stream /Rect [136.757 360.878 248.228 369.789] /A << /S /GoTo /D (subsubsection.3.1.15) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 617 0 obj -======= % 615 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4455,11 +2837,7 @@ stream /Rect [113.843 346.85 223.654 357.698] /A << /S /GoTo /D (subsection.3.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 618 0 obj -======= % 616 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4467,11 +2845,7 @@ stream /Rect [136.757 334.759 273.19 345.607] /A << /S /GoTo /D (subsubsection.3.2.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 619 0 obj -======= % 617 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4479,27 +2853,7 @@ stream /Rect [136.757 322.668 398.529 333.516] /A << /S /GoTo /D (subsubsection.3.2.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 620 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 167.648 265.358 176.448] -/A << /S /GoTo /D (subsection.3.3) >> ->> -% 621 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [136.757 155.568 239.898 164.48] -/A << /S /GoTo /D (subsubsection.3.3.1) >> ->> -% 622 0 obj -======= % 618 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4507,11 +2861,7 @@ stream /Rect [136.757 310.577 410.65 321.425] /A << /S /GoTo /D (subsubsection.3.2.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 623 0 obj -======= % 619 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4519,48 +2869,15 @@ stream /Rect [136.757 298.486 444.603 309.334] /A << /S /GoTo /D (subsubsection.3.2.4) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 624 0 obj -======= % 641 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [168.638 119.329 186.183 127.742] -/A << /S /GoTo /D (section*.31) >> ->> -% 629 0 obj -<< -/D [627 0 R /XYZ 98.895 753.953 null] ->> -% 630 0 obj -<< -/D [627 0 R /XYZ 99.895 724.062 null] ->> -% 626 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 680 0 obj -<< -/Type /Page -/Contents 681 0 R -/Resources 679 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R -/Annots [ 625 0 R 632 0 R 633 0 R 634 0 R 635 0 R 636 0 R 637 0 R 638 0 R 639 0 R 640 0 R 641 0 R 642 0 R 643 0 R 644 0 R 645 0 R 646 0 R 647 0 R 648 0 R 649 0 R 650 0 R 651 0 R 652 0 R 653 0 R 654 0 R 655 0 R 656 0 R 657 0 R 658 0 R 659 0 R 660 0 R 661 0 R 662 0 R 663 0 R 664 0 R 665 0 R 666 0 R 667 0 R 668 0 R 669 0 R 670 0 R 671 0 R 672 0 R 673 0 R 674 0 R 675 0 R 676 0 R 677 0 R ] ->> -% 625 0 obj -======= /Rect [98.899 288.468 199.716 297.114] /A << /S /GoTo /D (subsubsection.3.2.4) >> >> % 620 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4568,11 +2885,7 @@ stream /Rect [136.757 274.44 444.603 285.288] /A << /S /GoTo /D (subsubsection.3.2.5) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 632 0 obj -======= % 642 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -4580,7 +2893,7 @@ stream /Rect [98.899 262.484 238.044 273.068] /A << /S /GoTo /D (subsubsection.3.2.5) >> >> -% 633 0 obj +% 621 0 obj << /Type /Annot /Subtype /Link @@ -4588,7 +2901,7 @@ stream /Rect [136.757 250.393 429.161 261.242] /A << /S /GoTo /D (subsubsection.3.2.6) >> >> -% 634 0 obj +% 622 0 obj << /Type /Annot /Subtype /Link @@ -4596,7 +2909,7 @@ stream /Rect [136.757 238.302 384.927 249.151] /A << /S /GoTo /D (subsubsection.3.2.7) >> >> -% 635 0 obj +% 623 0 obj << /Type /Annot /Subtype /Link @@ -4604,7 +2917,7 @@ stream /Rect [136.757 226.211 330 237.06] /A << /S /GoTo /D (subsubsection.3.2.8) >> >> -% 636 0 obj +% 624 0 obj << /Type /Annot /Subtype /Link @@ -4612,7 +2925,7 @@ stream /Rect [136.757 214.12 404.072 224.969] /A << /S /GoTo /D (subsubsection.3.2.9) >> >> -% 637 0 obj +% 625 0 obj << /Type /Annot /Subtype /Link @@ -4620,7 +2933,7 @@ stream /Rect [136.757 202.029 371.765 212.878] /A << /S /GoTo /D (subsubsection.3.2.10) >> >> -% 638 0 obj +% 626 0 obj << /Type /Annot /Subtype /Link @@ -4628,7 +2941,7 @@ stream /Rect [136.757 189.938 310.661 200.787] /A << /S /GoTo /D (subsubsection.3.2.11) >> >> -% 639 0 obj +% 627 0 obj << /Type /Annot /Subtype /Link @@ -4636,7 +2949,7 @@ stream /Rect [136.757 179.784 348.314 188.695] /A << /S /GoTo /D (subsubsection.3.2.12) >> >> -% 640 0 obj +% 628 0 obj << /Type /Annot /Subtype /Link @@ -4644,7 +2957,7 @@ stream /Rect [136.757 165.756 303.247 176.604] /A << /S /GoTo /D (subsubsection.3.2.13) >> >> -% 641 0 obj +% 629 0 obj << /Type /Annot /Subtype /Link @@ -4652,7 +2965,7 @@ stream /Rect [136.757 153.665 323.657 164.513] /A << /S /GoTo /D (subsubsection.3.2.14) >> >> -% 642 0 obj +% 630 0 obj << /Type /Annot /Subtype /Link @@ -4660,7 +2973,7 @@ stream /Rect [136.757 141.574 310.91 152.422] /A << /S /GoTo /D (subsubsection.3.2.15) >> >> -% 643 0 obj +% 631 0 obj << /Type /Annot /Subtype /Link @@ -4668,89 +2981,11 @@ stream /Rect [136.757 129.483 316.168 140.331] /A << /S /GoTo /D (subsubsection.3.2.16) >> >> -% 644 0 obj +% 632 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 536.114 221.29 546.962] -/A << /S /GoTo /D (section*.42) >> ->> -% 645 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 524.034 212.933 534.882] -/A << /S /GoTo /D (section*.43) >> ->> -% 646 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 511.954 210.719 522.802] -/A << /S /GoTo /D (section*.44) >> ->> -% 647 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 499.875 211.3 510.723] -/A << /S /GoTo /D (section*.45) >> ->> -% 648 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 487.795 206.927 498.643] -/A << /S /GoTo /D (section*.46) >> ->> -% 649 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 475.715 209.584 486.563] -/A << /S /GoTo /D (section*.47) >> ->> -% 650 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 463.635 208.2 474.484] -/A << /S /GoTo /D (section*.48) >> ->> -% 651 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 451.556 207.924 462.404] -/A << /S /GoTo /D (section*.49) >> ->> -% 652 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [149.709 431.368 290.134 440.279] -/A << /S /GoTo /D (section.5) >> ->> -% 653 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 417.351 203.496 428.199] -/A << /S /GoTo /D (section*.50) >> ->> -% 654 0 obj -======= /Rect [136.757 117.392 386.676 128.24] /A << /S /GoTo /D (subsubsection.3.2.17) >> >> @@ -4777,313 +3012,186 @@ stream /Annots [ 633 0 R 644 0 R 645 0 R 646 0 R 647 0 R 648 0 R 649 0 R 650 0 R 651 0 R 652 0 R 653 0 R 654 0 R 655 0 R 656 0 R 657 0 R 658 0 R 659 0 R 660 0 R 661 0 R 662 0 R 663 0 R 664 0 R 665 0 R 666 0 R 667 0 R 668 0 R 669 0 R 670 0 R 671 0 R 672 0 R 673 0 R 674 0 R 675 0 R 676 0 R 677 0 R 678 0 R 679 0 R 680 0 R 681 0 R 682 0 R 683 0 R 684 0 R 685 0 R 686 0 R 687 0 R 688 0 R 689 0 R ] >> % 633 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 405.271 201.863 416.119] -/A << /S /GoTo /D (section*.51) >> -======= /Rect [187.567 703.195 349.903 714.044] /A << /S /GoTo /D (subsubsection.3.2.18) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +>> +% 644 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 693.053 299.038 701.964] +/A << /S /GoTo /D (subsubsection.3.2.19) >> +>> +% 645 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 680.973 316.168 689.774] +/A << /S /GoTo /D (subsection.3.3) >> +>> +% 646 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 668.894 290.708 677.805] +/A << /S /GoTo /D (subsubsection.3.3.1) >> +>> +% 647 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 654.877 443.997 665.725] +/A << /S /GoTo /D (subsubsection.3.3.2) >> +>> +% 648 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 642.797 479.97 653.645] +/A << /S /GoTo /D (subsubsection.3.3.3) >> +>> +% 649 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 632.654 361.885 641.565] +/A << /S /GoTo /D (subsubsection.3.3.4) >> +>> +% 650 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 618.638 418.066 629.486] +/A << /S /GoTo /D (subsubsection.3.3.5) >> +>> +% 651 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [187.567 606.558 349.903 617.406] +/A << /S /GoTo /D (subsubsection.3.3.6) >> +>> +% 652 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 596.415 318.825 605.326] +/A << /S /GoTo /D (subsection.3.4) >> +>> +% 653 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [164.653 582.398 277.397 593.247] +/A << /S /GoTo /D (subsection.3.5) >> +>> +% 654 0 obj +<< +/Type /Annot +/Subtype /Link +/Border[0 0 0]/H/I/C[1 0 0] +/Rect [149.709 560.273 285.838 571.121] +/A << /S /GoTo /D (section.4) >> >> % 655 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 393.191 212.933 404.039] -/A << /S /GoTo /D (section*.52) >> -======= -/Rect [187.567 693.053 299.038 701.964] -/A << /S /GoTo /D (subsubsection.3.2.19) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 548.193 379.489 559.042] +/A << /S /GoTo /D (subsection.4.1) >> >> % 656 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 381.112 214.648 391.96] -/A << /S /GoTo /D (section*.53) >> -======= -/Rect [164.653 680.973 316.168 689.774] -/A << /S /GoTo /D (subsection.3.3) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 536.114 303.648 546.962] +/A << /S /GoTo /D (subsection.4.2) >> >> % 657 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [149.709 358.986 302.58 369.834] -/A << /S /GoTo /D (section.6) >> +/Rect [164.653 524.034 361.916 534.882] +/A << /S /GoTo /D (subsection.4.3) >> >> % 658 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 346.906 205.71 357.755] -/A << /S /GoTo /D (section*.54) >> -======= -/Rect [187.567 668.894 290.708 677.805] -/A << /S /GoTo /D (subsubsection.3.3.1) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 511.954 352.963 522.802] +/A << /S /GoTo /D (subsection.4.4) >> >> % 659 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 334.827 207.426 345.675] -/A << /S /GoTo /D (section*.55) >> -======= -/Rect [187.567 654.877 443.997 665.725] -/A << /S /GoTo /D (subsubsection.3.3.2) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 499.875 375.753 510.723] +/A << /S /GoTo /D (subsection.4.5) >> >> % 660 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 322.747 209.639 333.595] -/A << /S /GoTo /D (section*.56) >> -======= -/Rect [187.567 642.797 479.97 653.645] -/A << /S /GoTo /D (subsubsection.3.3.3) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 487.795 328.334 498.643] +/A << /S /GoTo /D (subsection.4.6) >> >> % 661 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 310.667 210.138 321.516] -/A << /S /GoTo /D (section*.57) >> -======= -/Rect [187.567 632.654 361.885 641.565] -/A << /S /GoTo /D (subsubsection.3.3.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 475.715 391.057 486.563] +/A << /S /GoTo /D (subsection.4.7) >> >> % 662 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 298.588 210.996 309.436] -/A << /S /GoTo /D (section*.58) >> -======= -/Rect [187.567 618.638 418.066 629.486] -/A << /S /GoTo /D (subsubsection.3.3.5) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 463.635 328.334 474.484] +/A << /S /GoTo /D (subsection.4.8) >> >> % 663 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 286.508 222.591 297.356] -/A << /S /GoTo /D (section*.59) >> -======= -/Rect [187.567 606.558 349.903 617.406] -/A << /S /GoTo /D (subsubsection.3.3.6) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 451.556 391.029 462.404] +/A << /S /GoTo /D (subsection.4.9) >> >> % 664 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 274.428 205.212 285.276] -/A << /S /GoTo /D (section*.60) >> -======= -/Rect [164.653 596.415 318.825 605.326] -/A << /S /GoTo /D (subsection.3.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/Rect [164.653 439.476 361.625 450.324] +/A << /S /GoTo /D (subsection.4.10) >> >> % 665 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 262.349 206.927 273.197] -/A << /S /GoTo /D (section*.61) >> -======= -/Rect [164.653 582.398 277.397 593.247] -/A << /S /GoTo /D (subsection.3.5) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 666 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 250.269 209.141 261.117] -/A << /S /GoTo /D (section*.62) >> -======= -/Rect [149.709 560.273 285.838 571.121] -/A << /S /GoTo /D (section.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 667 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 238.189 210.497 249.037] -/A << /S /GoTo /D (section*.63) >> -======= -/Rect [164.653 548.193 379.489 559.042] -/A << /S /GoTo /D (subsection.4.1) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 668 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 226.109 204.132 236.958] -/A << /S /GoTo /D (section*.64) >> -======= -/Rect [164.653 536.114 303.648 546.962] -/A << /S /GoTo /D (subsection.4.2) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 669 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 214.03 205.156 224.878] -/A << /S /GoTo /D (section*.65) >> -======= -/Rect [164.653 524.034 361.916 534.882] -/A << /S /GoTo /D (subsection.4.3) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 670 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 201.95 206.872 212.798] -/A << /S /GoTo /D (section*.66) >> -======= -/Rect [164.653 511.954 352.963 522.802] -/A << /S /GoTo /D (subsection.4.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 671 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 189.87 209.086 200.719] -/A << /S /GoTo /D (section*.67) >> -======= -/Rect [164.653 499.875 375.753 510.723] -/A << /S /GoTo /D (subsection.4.5) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 672 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 177.791 210.442 188.639] -/A << /S /GoTo /D (section*.68) >> -======= -/Rect [164.653 487.795 328.334 498.643] -/A << /S /GoTo /D (subsection.4.6) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 673 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 165.711 202.942 176.559] -/A << /S /GoTo /D (section*.69) >> -======= -/Rect [164.653 475.715 391.057 486.563] -/A << /S /GoTo /D (subsection.4.7) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 674 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 153.631 231.978 164.48] -/A << /S /GoTo /D (section*.70) >> -======= -/Rect [164.653 463.635 328.334 474.484] -/A << /S /GoTo /D (subsection.4.8) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 675 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 141.552 231.978 152.4] -/A << /S /GoTo /D (section*.71) >> -======= -/Rect [164.653 451.556 391.029 462.404] -/A << /S /GoTo /D (subsection.4.9) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 676 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 129.472 226.233 140.32] -/A << /S /GoTo /D (section*.72) >> -======= -/Rect [164.653 439.476 361.625 450.324] -/A << /S /GoTo /D (subsection.4.10) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 677 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [164.653 117.392 243.059 128.24] -/A << /S /GoTo /D (section*.73) >> ->> -% 682 0 obj -<< -/D [680 0 R /XYZ 149.705 753.953 null] -======= /Rect [164.653 427.396 386.255 438.245] /A << /S /GoTo /D (subsection.4.11) >> >> @@ -5094,25 +3202,9 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [164.653 415.317 427.324 426.165] /A << /S /GoTo /D (subsection.4.12) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 679 0 obj +% 667 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 729 0 obj -<< -/Type /Page -/Contents 730 0 R -/Resources 728 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R -/Annots [ 678 0 R 683 0 R 684 0 R 685 0 R 686 0 R 687 0 R 688 0 R 689 0 R 690 0 R 691 0 R 692 0 R 693 0 R 694 0 R 695 0 R 696 0 R 697 0 R 698 0 R 699 0 R 700 0 R 701 0 R 702 0 R 703 0 R 704 0 R 705 0 R 706 0 R 707 0 R 708 0 R 709 0 R 710 0 R 711 0 R 712 0 R 713 0 R 714 0 R 715 0 R 716 0 R 717 0 R 718 0 R 719 0 R 720 0 R 721 0 R 722 0 R 723 0 R 724 0 R 725 0 R ] ->> -% 678 0 obj -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -5136,56 +3228,34 @@ stream /A << /S /GoTo /D (subsection.4.15) >> >> % 670 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 703.195 168.228 714.044] -/A << /S /GoTo /D (section*.74) >> -======= /Rect [164.653 366.998 333.536 377.846] /A << /S /GoTo /D (subsection.4.16) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 683 0 obj +% 671 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 690.542 185.054 701.39] -/A << /S /GoTo /D (section*.75) >> -======= /Rect [149.709 346.81 290.134 355.721] /A << /S /GoTo /D (section.5) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 684 0 obj +% 672 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 677.889 192.83 688.737] -/A << /S /GoTo /D (section*.76) >> -======= /Rect [164.653 332.793 360.214 343.641] /A << /S /GoTo /D (subsection.5.1) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 685 0 obj +% 673 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 665.236 182.591 676.084] -/A << /S /GoTo /D (section*.77) >> ->> -% 686 0 obj -======= /Rect [164.653 320.713 311.148 331.561] /A << /S /GoTo /D (subsection.5.2) >> >> @@ -5198,123 +3268,55 @@ stream /A << /S /GoTo /D (subsection.5.3) >> >> % 675 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 652.582 176.558 663.431] -/A << /S /GoTo /D (section*.78) >> -======= /Rect [164.653 296.554 379.849 307.402] /A << /S /GoTo /D (subsection.5.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 687 0 obj +% 676 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 639.929 158 650.777] -/A << /S /GoTo /D (section*.79) >> -======= /Rect [149.709 274.428 302.58 285.276] /A << /S /GoTo /D (section.6) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 688 0 obj +% 677 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 627.276 183.443 638.124] -/A << /S /GoTo /D (section*.80) >> -======= /Rect [164.653 262.349 409.502 273.197] /A << /S /GoTo /D (subsection.6.1) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 689 0 obj +% 678 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [98.899 606.132 264.868 615.043] -/A << /S /GoTo /D (section.7) >> -======= /Rect [164.653 250.269 424.556 261.117] /A << /S /GoTo /D (subsection.6.2) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 690 0 obj +% 679 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 591.541 149.366 602.389] -/A << /S /GoTo /D (section*.81) >> -======= /Rect [164.653 238.189 441.188 249.037] /A << /S /GoTo /D (subsection.6.3) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 691 0 obj +% 680 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 578.888 150.749 589.736] -/A << /S /GoTo /D (section*.82) >> -======= /Rect [164.653 226.109 402.86 236.958] /A << /S /GoTo /D (subsection.6.4) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> - -endstream -endobj -735 0 obj +% 681 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Length 660 ->> -stream -0 g 0 G -0 g 0 G -0 0 1 rg 0 0 1 RG -BT -/F27 9.9626 Tf 150.705 706.129 Td [(11)-350(Iterativ)32(e)-384(M)1(etho)-32(ds)]TJ -0 g 0 G - [-22176(147)]TJ -0 0 1 rg 0 0 1 RG -/F8 9.9626 Tf 14.944 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 181.246 694.373 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 184.235 694.174 Td [(krylo)28(v)]TJ -0 g 0 G - [-382(.)-500(.)-500(.)-500(.)-500(.)-500(.)-499(.)-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 - [-583(148)]TJ -0 g 0 G -0 g 0 G - 134.313 -603.736 Td [(iv)]TJ -0 g 0 G -ET - -endstream -endobj -749 0 obj -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -5362,7 +3364,6 @@ endobj /A << /S /GoTo /D (subsection.6.10) >> >> % 687 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -5616,11 +3617,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -769 0 obj -======= 795 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5579 >> @@ -5667,33 +3664,20 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -765 0 obj -======= 791 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/psblas.pdf) /PTEX.PageNumber 1 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/PTEX.InfoDict 772 0 R -======= /PTEX.InfoDict 798 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /BBox [0 0 197 215] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/R7 773 0 R ->>/Font << /R8 774 0 R>> -======= /R7 799 0 R >>/Font << /R8 800 0 R>> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> /Length 898 /Filter /FlateDecode @@ -5714,11 +3698,7 @@ x «Ͻ'ƒÇ›ÇÇùaÚ>=|9Êh±Büuæ¹£$îËLËàq·–ÑÃÊŸ5×k^Þ½;>íN÷Ûi™ZŠ\V+9D£­8îNËLÓG™÷×»~0+¾’”àŠ'¢ˆ±íúmw>o÷;{·=ŸŽûEý—»a¥ÃѲîîÝâ8SË4Â%ÕÇ¥_¾œžNÛ#OαéƒùüÐ endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -776 0 obj -======= 802 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Filter /FlateDecode /Subtype /Type1C @@ -5738,11 +3718,7 @@ p IZ¹t4¤w!}^€gì½—ú€h9@±^è Ò…s2•=3B2H>ÉçynÞÌû7ŠC‰#ˆþhñÚï-whèÇGtBŒV²Õºø`uÞ1èFæ3ÑvðøçÓ÷à´ÛoÝ34\z"ž“,P&+š´®¿Ú»oB03¼å㣶xsÉÝä!FáŽ/†m'~¼êŒn?àßvaÝDëÑ÷ì+°¥¸5ïšôt0Ü ¶æ+ÉÔ·ÆsRz…t¥J–xFzëþƒöÁQîè`û¼/dŠº2›åž™j@7GÛú.º?Üwyc$O‘œÀI‘(S¥ME®ƒßŒô| Áõ^`‚2!-›’"VîIN™"Ì‚B-ÌÎe³/uV9:Î6:.Ç°ÿMɪH endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -782 0 obj -======= 808 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 8854 >> @@ -5791,11 +3767,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -798 0 obj -======= 824 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5346 >> @@ -5872,33 +3844,20 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -795 0 obj -======= 821 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /XObject /Subtype /Form /FormType 1 /PTEX.FileName (./figures/points.pdf) /PTEX.PageNumber 1 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/PTEX.InfoDict 801 0 R -======= /PTEX.InfoDict 827 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /BBox [0 0 274 308] /Resources << /ProcSet [ /PDF /Text ] /ExtGState << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/R7 802 0 R ->>/Font << /R8 803 0 R>> -======= /R7 828 0 R >>/Font << /R8 829 0 R>> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> /Length 1397 /Filter /FlateDecode @@ -5908,11 +3867,7 @@ x – 󣄠¹3ÊBü=®§«æ±bA‡HŒ}Ï©c·í²»?­é”ׄÿäïÍeùö]_?ü¾¤Ó©d êwßGüðaù´d"®òçæ²¾¾ä}ÍíëÕûe4­ß ,äýÔ×sÿ»º,_ýx÷Ç/w×·¯®~[¾»ZÞ.ø›Œ1¸ð™âuóâ¯ïÿ¼ûùúáoO*žþx/þÃõí½Î22Tø<ᜇd†&Âoî/×ïV˜âÿõèCê1V^õd¨æõãR ¬Û9ŸÎç¶^–ºµÓ¾ÍšÚýÝz¦zõ¯7‹!€S®ûj짔êJÚR¿–ðWZSöN•m˜´ ide«3çûfyÿõROÛú×|J_F¿~]~z2ò–}×òVÐÕämë¦Î€sQ<I<³¦uiüd¸r͵9.Ö¤¢ÆR’ÉÑãY~ОÐCÑÝ¥Ÿ}öçÙ^â<3LA ‰c‹YÒ¶®ôçY¯qž&mCÙØâÌû懣ç—Ñ#|H–_rƧšÇÒ³,wš0s>}yüÇ5ÒNóË p%U¤ –ðW@E’§$§•|¡pxõE`&ÆøåU ™¤ó«›%AÝIUÍ0Gš]ý‘&ûÖM’ î Jšx÷¬…T.ù)~¼C²8˜}~‚­ÛÍWÛ¢íÁvKÑö¶K,8ÛÍ—&†`[C*—ü¨ONÔÇs­ƒ ½m‚ê ò9؆Áu¶!×`{P9¦m‚êKI7oÛB*—ü¨O샹~ñ̳·Ç'­¡Á^ÝIaÏvRy!œzw'ó¤`Íx"0.Ѥb'…iÄù|ùÌs¼žP:-%X/[´^º“#Àa°há…dÞPÓY/)Z‡Ýqˆ&-VŠÖ½ON¬Çtnƒ®G±À¹ÍY–& é›Ë’וB¿Ìœ¤¡¹M…ÁnngäŽ%¤Ò#ØœÃÉÙÇ‚"d;’Àô)ùÃ(˜\X‹³Ž¥²£0}Z¡pø#`Ó†Sò‹%Hvt§Ð̧f£`ú`-Î+”ÐŽQ4ó9ƒ…Ç,x›O/,îf,z»âißn«ªÝìv«$½úæ-ÜŒå`?›“禩™|,ˆ7cïó™;Ìñº@!osõé]Š¦?ݲta0€yýÒ¥¤Zdy›«OïRÜ<%9­äƒ€[}拇ú6m8uõIPžþhǃf>m))…YÞæê“ Ò<%9­äƒ€[}ækçÿÜæ“WO’rõ= A} £ Ñ0'Ë 9‘S,irêÕ÷+\_ã­uâÝ¿›ÑÆE?æóé{¦ƒÙÇá'È‹ÎB#4_²$&†`[–’qq‘‘&/> Mõ5^_'†`[Bý˜OõºÖÁ–%©¡ ª/]07o[šqq ’&/M Íõ5^_'nÞ¶†4.ú1Ÿ6ØsýÜ¥%]Š!ƒCÞgVe@Ù–‹’…$)š5-ƒÃØ5}‡ä²?ÖLg+‡ |>{é>hO‘jøX5~,ê>–0àxÕ},1’š¬ác ”ø±ŠûX€5‹ûXb$3òø³ Ú…t¡í¡=Å>tpº8Õ‡’Ô$iÎ>´-ö¡Ç%ÀšTÔXJR#ÞgL¼í“-J/0®jãȶw.Þâªick£Z,”Ô¤š^”Ñk·ì«éUÝ ‹¯WjÇ‚µÛçƒ.ÁºUE³zÉgýãPˆ,é"›Ñe±ûÌ‹:t˜!*%~ Ö *«QÊÒ@emPMÓ1:¾Þ’àX¼÷(˜®4æ ¤Nƒ¾]þÎJ¦' endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -810 0 obj -======= 746 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /ObjStm /N 100 @@ -5920,184 +3875,6 @@ endobj /Length 15220 >> stream -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(Data)-383(m)-1(anagemen)32(t)-383(and)-383(auxiliary)-384(routines)]TJ -0 g 0 G -/F8 9.9626 Tf 210.717 0 Td [(including:)]TJ -0 g 0 G -/F14 9.9626 Tf -173.855 -24.208 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(P)28(arallel)-333(en)27(vironmen)28(t)-333(managemen)28(t)]TJ -0 g 0 G -/F14 9.9626 Tf -9.963 -18.081 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Comm)28(unication)-334(d)1(e)-1(scriptor)1(s)-334(allo)-28(cation;)]TJ -0 g 0 G -/F14 9.9626 Tf -9.963 -18.082 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Dense)-333(and)-334(sparse)-333(matrix)-333(allo)-28(cation;)]TJ -0 g 0 G -/F14 9.9626 Tf -9.963 -18.081 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Dense)-333(and)-334(sparse)-333(matrix)-333(build)-334(an)1(d)-334(up)-27(date;)]TJ -0 g 0 G -/F14 9.9626 Tf -9.963 -18.082 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Sparse)-333(matrix)-334(and)-333(data)-333(distribution)-333(prepro)-28(cessing.)]TJ -0 g 0 G -/F27 9.9626 Tf -46.825 -24.207 Td [(Preconditioner)-383(routi)-1(n)1(es)]TJ -0 g 0 G -0 g 0 G - 0 -24.208 Td [(Iterativ)32(e)-384(metho)-32(ds)]TJ -0 g 0 G -/F8 9.9626 Tf 94.307 0 Td [(a)-333(subset)-334(of)-333(Krylo)28(v)-334(sub)1(s)-1(p)1(ac)-1(e)-333(iterativ)28(e)-333(me)-1(th)1(o)-28(ds)]TJ -94.307 -23.137 Td [(The)-391(follo)27(wing)-391(naming)-391(sc)27(heme)-391(has)-392(b)-27(een)-392(adopted)-391(for)-391(all)-392(the)-391(sym)27(b)-27(ols)-392(in)28(ternally)]TJ 0 -11.955 Td [(de\014ned)-333(in)-334(the)-333(PSBLAS)-333(soft)28(w)27(are)-333(pac)28(k)55(age:)]TJ -0 g 0 G -/F14 9.9626 Tf 14.944 -23.137 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(all)-333(sym)27(b)-27(ols)-334(\050i.e.)-444(subroutine)-333(names,)-334(data)-333(t)28(yp)-28(es...\051)-444(are)-334(pre\014xed)-333(b)28(y)]TJ/F30 9.9626 Tf 286.233 0 Td [(psb_)]TJ -0 g 0 G -/F14 9.9626 Tf -296.196 -24.208 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(all)-333(data)-334(t)28(yp)-28(e)-333(names)-333(are)-334(su\016xed)-333(b)28(y)]TJ/F30 9.9626 Tf 156.22 0 Td [(_type)]TJ -0 g 0 G -/F14 9.9626 Tf -166.183 -24.208 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(all)-333(constan)27(ts)-333(are)-333(su\016xed)-334(b)28(y)]TJ/F30 9.9626 Tf 124.727 0 Td [(_)]TJ -0 g 0 G -/F14 9.9626 Tf -134.69 -24.208 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(all)-390(top-lev)28(e)-1(l)-390(subroutine)-390(names)-390(follo)28(w)-391(the)-390(rule)]TJ/F30 9.9626 Tf 203.944 0 Td [(psb_xxname)]TJ/F8 9.9626 Tf 56.192 0 Td [(where)]TJ/F30 9.9626 Tf 29.376 0 Td [(xx)]TJ/F8 9.9626 Tf 14.348 0 Td [(can)]TJ -303.86 -11.955 Td [(b)-28(e)-333(either:)]TJ -0 g 0 G -/F27 9.9626 Tf 11.208 -24.208 Td [({)]TJ -0 g 0 G -/F30 9.9626 Tf 10.71 0 Td [(ge)]TJ/F8 9.9626 Tf 10.461 0 Td [(:)-444(the)-334(routine)-333(is)-333(related)-334(to)-333(dense)-333(data,)]TJ -0 g 0 G -/F27 9.9626 Tf -21.171 -18.081 Td [({)]TJ -0 g 0 G -/F30 9.9626 Tf 10.71 0 Td [(sp)]TJ/F8 9.9626 Tf 10.461 0 Td [(:)-444(the)-334(routine)-333(is)-333(related)-334(to)-333(sparse)-333(data,)]TJ -0 g 0 G -/F27 9.9626 Tf -21.171 -18.081 Td [({)]TJ -0 g 0 G -/F30 9.9626 Tf 10.71 0 Td [(cd)]TJ/F8 9.9626 Tf 10.461 0 Td [(:)-444(the)-334(routine)-333(is)-333(related)-334(to)-333(comm)28(unication)-334(d)1(e)-1(scriptor)-333(\050see)]TJ -0 0 1 rg 0 0 1 RG - [-333(3)]TJ -0 g 0 G - [(\051.)]TJ -32.379 -24.208 Td [(F)83(or)-275(example)-276(the)]TJ/F30 9.9626 Tf 72.33 0 Td [(psb_geins)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)]TJ/F30 9.9626 Tf 5.628 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 49.818 0 Td [(and)]TJ/F30 9.9626 Tf 18.797 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf 49.818 0 Td [(p)-28(erform)-275(the)-276(same)]TJ -243.464 -11.955 Td [(action)-343(\050see)]TJ -0 0 1 rg 0 0 1 RG - [-343(6)]TJ -0 g 0 G - [(\051)-343(on)-342(dense)-343(matrices,)-345(s)-1(p)1(ars)-1(e)-342(matrices)-343(and)-343(comm)28(unication)-343(de-)]TJ 0 -11.956 Td [(scriptors)-357(resp)-28(ectiv)28(ely)83(.)-514(In)27(terface)-356(o)27(v)28(erloading)-357(allo)28(ws)-357(the)-357(u)1(s)-1(age)-356(of)-357(the)-357(same)]TJ 0 -11.955 Td [(subroutine)-333(names)-334(for)-333(b)-28(oth)-333(real)-333(and)-334(complex)-333(data.)]TJ -24.907 -23.137 Td [(In)-320(the)-320(desc)-1(r)1(iption)-321(of)-320(the)-320(subroutines,)-323(argumen)28(ts)-320(or)-320(argumen)27(t)-320(en)28(tries)-320(are)-320(clas)-1(si-)]TJ 0 -11.955 Td [(\014ed)-333(as:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -23.137 Td [(global)]TJ -0 g 0 G -/F8 9.9626 Tf 34.738 0 Td [(F)83(or)-228(input)-228(argumen)28(ts,)-250(the)-228(v)56(alue)-229(m)28(ust)-228(b)-28(e)-228(the)-228(same)-229(on)-228(all)-228(pro)-28(cesses)-229(part)1(ic)-1(i)1(-)]TJ -9.831 -11.955 Td [(pating)-253(i)1(n)-253(the)-253(subroutin)1(e)-253(call;)-280(for)-252(output)-253(argumen)28(ts)-252(the)-253(v)56(alue)-253(is)-253(guaran)28(teed)]TJ 0 -11.955 Td [(to)-333(b)-28(e)-333(the)-334(same.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -24.208 Td [(lo)-32(cal)]TJ -0 g 0 G -/F8 9.9626 Tf 28.055 0 Td [(Eac)28(h)-334(p)1(ro)-28(cess)-334(has)-333(its)-333(o)27(wn)-333(v)56(alue\050s\051)-334(indep)-27(enden)27(tly)84(.)]TJ -28.055 -23.137 Td [(T)83(o)-333(\014nish)-333(our)-334(general)-333(description,)-333(w)28(e)-334(de\014ne)-333(a)-333(v)27(ersion)-333(string)-333(with)-334(th)1(e)-334(constan)28(t)]TJ/F30 9.9626 Tf 122.168 -24.059 Td [(psb_version_string_)]TJ/F8 9.9626 Tf -122.168 -24.059 Td [(whose)-333(curren)27(t)-333(v)56(alue)-334(is)]TJ/F30 9.9626 Tf 99.793 0 Td [(3.4.0)]TJ -0 g 0 G -/F8 9.9626 Tf 69.572 -29.888 Td [(5)]TJ -0 g 0 G -ET - -endstream -endobj -815 0 obj -<< -/Length 8659 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(2.3)-1125(Application)-375(structure)]TJ/F8 9.9626 Tf 0 -18.928 Td [(The)-274(main)-275(und)1(e)-1(r)1(lying)-275(principle)-274(of)-274(the)-274(PSBLAS)-275(librar)1(y)-275(is)-274(that)-274(the)-275(library)-274(ob)-55(jects)]TJ 0 -11.955 Td [(are)-311(created)-311(and)-311(exist)-311(with)-312(r)1(e)-1(f)1(e)-1(rence)-311(to)-311(a)-311(discretized)-311(space)-311(to)-311(whic)27(h)-311(there)-311(corre-)]TJ 0 -11.955 Td [(sp)-28(onds)-339(an)-340(index)-339(space)-340(and)-339(a)-340(matrix)-340(sparsit)28(y)-339(pattern.)-463(As)-340(an)-340(example,)-341(consider)]TJ 0 -11.955 Td [(a)-355(cell-cen)27(tered)-355(\014nite-v)28(olume)-355(discretization)-356(of)-355(the)-355(Na)28(vier-Stok)28(es)-356(equations)-355(on)-355(a)]TJ 0 -11.956 Td [(sim)28(ulation)-371(domain;)-390(the)-371(index)-371(space)-371(1)]TJ/F11 9.9626 Tf 166.003 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 22.959 0 Td [(is)-371(isomorphic)-371(to)-371(the)-371(set)-371(of)-371(cell)-371(cen-)]TJ -188.962 -11.955 Td [(ters,)-388(whereas)-378(the)-377(pattern)-377(of)-377(the)-378(asso)-28(ciated)-377(linear)-377(system)-377(m)-1(atr)1(ix)-378(is)-377(isomorphic)]TJ 0 -11.955 Td [(to)-277(the)-278(adjacency)-278(grap)1(h)-278(imp)-28(osed)-277(on)-278(the)-277(discretization)-278(mesh)-277(b)27(y)-277(the)-278(discretization)]TJ 0 -11.955 Td [(stencil.)]TJ 14.944 -12.245 Td [(Th)28(us)-409(the)-408(\014rst)-408(order)-409(of)-408(business)-408(is)-409(to)-408(establish)-409(an)-408(index)-408(space,)-427(and)-409(this)-408(is)]TJ -14.944 -11.955 Td [(done)-371(with)-371(a)-371(call)-371(to)]TJ/F30 9.9626 Tf 87.109 0 Td [(psb_cdall)]TJ/F8 9.9626 Tf 50.768 0 Td [(in)-371(whic)28(h)-371(w)28(e)-371(sp)-28(ecify)-371(the)-371(size)-371(of)-371(the)-371(index)-371(space)]TJ/F11 9.9626 Tf -137.877 -11.955 Td [(n)]TJ/F8 9.9626 Tf 9.142 0 Td [(and)-317(the)-318(allo)-28(cation)-317(of)-317(the)-318(elemen)28(ts)-318(of)-317(the)-317(index)-318(space)-317(to)-318(the)-317(v)55(arious)-317(pro)-28(cesses)]TJ -9.142 -11.955 Td [(making)-333(up)-334(th)1(e)-334(MPI)-333(\050virtual\051)-333(parallel)-334(mac)28(hine.)]TJ 14.944 -12.245 Td [(The)-308(index)-309(space)-308(is)-309(parti)1(tioned)-309(among)-308(pro)-28(cesses,)-314(an)1(d)-309(this)-308(creates)-309(a)-308(mapping)]TJ -14.944 -11.955 Td [(from)-249(the)-249(\134global")-249(n)28(um)28(b)-28(ering)-249(1)]TJ/F11 9.9626 Tf 132.852 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 21.744 0 Td [(to)-249(a)-249(n)28(um)28(b)-28(ering)-249(\134lo)-28(cal")-249(to)-249(eac)28(h)-249(pro)-28(cess;)-277(eac)27(h)]TJ -154.596 -11.955 Td [(pro)-28(cess)]TJ/F11 9.9626 Tf 33.771 0 Td [(i)]TJ/F8 9.9626 Tf 5.794 0 Td [(will)-237(o)28(wn)-237(a)-237(certain)-237(subset)-237(1)]TJ/F11 9.9626 Tf 113.508 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 19.264 -1.494 Td [(ro)28(w)]TJ/F9 4.9813 Tf 15.801 -0.997 Td [(i)]TJ/F8 9.9626 Tf 3.655 2.491 Td [(,)-256(eac)27(h)-237(elemen)28(t)-237(of)-237(whic)28(h)-237(corresp)-28(onds)]TJ -191.793 -11.955 Td [(to)-390(a)-389(certain)-390(elemen)28(t)-390(of)-389(1)]TJ/F11 9.9626 Tf 111.313 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 19.264 0 Td [(.)-613(The)-390(user)-389(do)-28(es)-390(not)-389(s)-1(et)-389(explicitly)-390(this)-389(mapping;)]TJ -130.577 -11.955 Td [(when)-392(the)-393(appl)1(ic)-1(ati)1(on)-393(needs)-392(to)-392(indicate)-393(to)-392(whic)28(h)-392(e)-1(lemen)28(t)-392(of)-392(the)-393(index)-392(space)-392(a)]TJ 0 -11.955 Td [(certain)-273(item)-273(is)-273(related,)-285(suc)28(h)-273(as)-273(the)-273(ro)28(w)-273(and)-273(column)-273(index)-273(of)-273(a)-273(matrix)-273(co)-27(e\016c)-1(ien)28(t,)]TJ 0 -11.956 Td [(it)-449(do)-27(es)-449(so)-449(in)-448(the)-449(\134global")-449(n)28(um)28(b)-28(ering,)-477(and)-449(the)-448(library)-449(will)-448(translate)-449(in)28(to)-449(the)]TJ 0 -11.955 Td [(appropriate)-333(\134lo)-28(cal")-333(n)28(um)27(b)-27(ering.)]TJ 14.944 -12.244 Td [(F)83(or)-273(a)-274(giv)28(en)-274(index)-274(space)-273(1)]TJ/F11 9.9626 Tf 109.331 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 21.99 0 Td [(there)-274(are)-273(m)-1(an)28(y)-273(p)-28(ossible)-274(asso)-28(ciated)-274(top)-27(ologies,)]TJ -146.265 -11.955 Td [(i.e.)-418(man)28(y)-254(di\013eren)27(t)-254(discretization)-254(stencils;)-281(th)28(us)-254(the)-254(description)-254(of)-254(the)-254(index)-255(space)]TJ 0 -11.956 Td [(is)-355(not)-355(completed)-355(un)28(til)-356(th)1(e)-356(user)-355(has)-355(de\014ned)-355(a)-355(sparsit)28(y)-355(pattern,)-361(either)-355(explicitly)]TJ 0 -11.955 Td [(through)]TJ/F30 9.9626 Tf 36.93 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf 49.66 0 Td [(or)-260(implicitly)-259(through)]TJ/F30 9.9626 Tf 92.223 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 47.073 0 Td [(.)-420(The)-260(descriptor)-259(is)-260(\014nalized)]TJ -225.886 -11.955 Td [(with)-354(a)-355(call)-354(to)]TJ/F30 9.9626 Tf 62.274 0 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 50.603 0 Td [(and)-354(a)-355(sparse)-354(matrix)-354(with)-355(a)-354(call)-354(to)]TJ/F30 9.9626 Tf 153.217 0 Td [(psb_spasb)]TJ/F8 9.9626 Tf 47.073 0 Td [(.)-507(After)]TJ/F30 9.9626 Tf -313.167 -11.955 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 50.443 0 Td [(eac)28(h)-338(pro)-28(cess)]TJ/F11 9.9626 Tf 57.244 0 Td [(i)]TJ/F8 9.9626 Tf 6.802 0 Td [(will)-338(ha)28(v)27(e)-338(de\014ned)-338(a)-338(set)-339(of)-338(\134halo")-338(\050or)-338(\134ghost"\051)-339(i)1(ndices)]TJ/F11 9.9626 Tf -114.489 -11.955 Td [(n)]TJ/F8 9.9626 Tf 5.98 -1.495 Td [(ro)28(w)]TJ/F9 4.9813 Tf 15.802 -0.996 Td [(i)]TJ/F8 9.9626 Tf 5.985 2.491 Td [(+)-234(1)]TJ/F11 9.9626 Tf 16.722 0 Td [(:)-167(:)-166(:)-167(n)]TJ/F8 9.9626 Tf 19.263 -3.487 Td [(col)]TJ/F9 4.9813 Tf 12.176 -0.996 Td [(i)]TJ/F8 9.9626 Tf 3.655 4.483 Td [(,)-355(denoting)-351(elemen)27(ts)-351(of)-351(th)1(e)-351(index)-351(space)-351(that)-351(are)]TJ/F17 9.9626 Tf 209.596 0 Td [(not)]TJ/F8 9.9626 Tf 18.445 0 Td [(assigned)]TJ -307.624 -11.955 Td [(to)-284(pro)-28(cess)]TJ/F11 9.9626 Tf 45.92 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(;)-300(ho)28(w)27(ev)28(er)-284(the)-284(v)56(ariables)-284(asso)-28(ciated)-283(with)-284(them)-284(are)-284(needed)-284(to)-283(c)-1(omplete)]TJ -49.353 -11.956 Td [(computations)-409(a)-1(sso)-27(ciated)-410(with)-409(the)-410(sparse)-409(m)-1(atr)1(ix)]TJ/F11 9.9626 Tf 216.316 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(,)-429(an)1(d)-410(th)28(us)-410(they)-409(ha)28(v)27(e)-409(to)-410(b)-27(e)]TJ -223.788 -11.955 Td [(fetc)28(hed)-464(from)-464(\050)1(neigh)27(b)-27(ouring\051)-464(pro)-28(cesses.)-835(The)-464(descriptor)-464(of)-463(the)-464(index)-463(space)-464(is)]TJ 0 -11.955 Td [(built)-394(exactly)-394(for)-393(the)-394(purp)-28(ose)-394(of)-394(prop)-27(e)-1(r)1(ly)-394(sequencing)-394(the)-394(comm)28(unication)-394(steps)]TJ 0 -11.955 Td [(required)-333(to)-334(ac)28(hiev)28(e)-333(this)-334(ob)-55(jectiv)28(e)-1(.)]TJ 14.944 -12.245 Td [(A)-306(simple)-306(application)-305(structure)-306(will)-306(w)28(alk)-306(through)-306(the)-306(in)1(dex)-306(space)-306(allo)-28(cation,)]TJ -14.944 -11.955 Td [(matrix/v)28(ector)-334(creation)-333(and)-333(linear)-333(syste)-1(m)-333(solution)-333(as)-334(f)1(o)-1(l)1(lo)27(ws:)]TJ -0 g 0 G - 12.177 -20.793 Td [(1.)]TJ -0 g 0 G - [-500(Initialize)-333(parallel)-334(en)28(vironmen)28(t)-333(with)]TJ/F30 9.9626 Tf 169.42 0 Td [(psb_init)]TJ -0 g 0 G -/F8 9.9626 Tf -169.42 -21.082 Td [(2.)]TJ -0 g 0 G - [-500(Initialize)-333(index)-334(space)-333(with)]TJ/F30 9.9626 Tf 130.123 0 Td [(psb_cdall)]TJ -0 g 0 G -/F8 9.9626 Tf -130.123 -21.083 Td [(3.)]TJ -0 g 0 G - [-500(Allo)-28(cate)-301(sparse)-302(matrix)-301(and)-302(dense)-302(v)28(ectors)-301(with)]TJ/F30 9.9626 Tf 215.329 0 Td [(psb_spall)]TJ/F8 9.9626 Tf 50.077 0 Td [(and)]TJ/F30 9.9626 Tf 19.055 0 Td [(psb_geall)]TJ -0 g 0 G -/F8 9.9626 Tf -284.461 -21.082 Td [(4.)]TJ -0 g 0 G - [-500(Lo)-28(op)-411(o)28(v)28(er)-411(all)-411(lo)-28(cal)-411(ro)27(ws,)-430(generate)-411(matrix)-411(and)-411(v)27(ector)-411(en)28(tries,)-431(an)1(d)-412(in)1(s)-1(ert)]TJ 12.73 -11.955 Td [(them)-333(with)]TJ/F30 9.9626 Tf 48.153 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 50.393 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(psb_geins)]TJ -0 g 0 G -/F8 9.9626 Tf -130.648 -21.083 Td [(5.)]TJ -0 g 0 G - [-500(Assem)28(ble)-334(the)-333(v)56(arious)-334(en)28(tities:)]TJ -0 g 0 G - 16.936 -21.082 Td [(\050a\051)]TJ -0 g 0 G -/F30 9.9626 Tf 17.711 0 Td [(psb_cdasb)]TJ -0 g 0 G -/F8 9.9626 Tf -18.264 -16.519 Td [(\050b\051)]TJ -0 g 0 G -/F30 9.9626 Tf 18.264 0 Td [(psb_spasb)]TJ -0 g 0 G -/F8 9.9626 Tf -17.157 -16.519 Td [(\050c\051)]TJ -0 g 0 G -/F30 9.9626 Tf 17.157 0 Td [(psb_geasb)]TJ -0 g 0 G -/F8 9.9626 Tf 122.541 -29.888 Td [(6)]TJ -0 g 0 G -ET - -endstream -endobj -732 0 obj -<< -/Type /ObjStm -/N 100 -/First 915 -/Length 13601 ->> -stream -692 0 693 149 694 296 695 445 696 594 697 742 698 891 699 1040 700 1188 701 1337 -702 1486 703 1634 704 1782 705 1931 706 2079 707 2228 708 2374 709 2523 710 2672 711 2822 -712 2972 713 3117 714 3267 715 3417 716 3566 717 3714 718 3863 719 4013 720 4159 721 4308 -722 4457 723 4607 724 4755 725 4905 731 5055 728 5111 734 5190 726 5332 727 5480 736 5629 -733 5686 748 5765 737 5971 738 6120 739 6271 740 6423 741 6577 742 6728 743 6877 744 7026 -745 7174 746 7322 7 7470 747 7524 768 7616 772 7766 773 8007 774 8049 775 8435 762 8735 -763 8880 764 9028 11 9175 771 9231 767 9286 781 9406 766 9556 778 9702 779 9851 783 9999 -15 10055 789 10110 791 10167 780 10224 797 10419 801 10561 802 10675 803 10717 793 10786 794 10934 -799 11082 800 11139 19 11196 796 11252 809 11411 806 11553 807 11699 811 11846 808 11902 814 12007 -816 12121 23 12178 818 12234 819 12291 820 12348 821 12404 822 12461 823 12517 824 12572 825 12629 -% 692 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 566.235 150.749 577.083] -/A << /S /GoTo /D (section*.83) >> ->> -% 693 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 553.581 193.91 564.43] -/A << /S /GoTo /D (section*.84) >> ->> -% 694 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 540.928 170.968 551.776] -/A << /S /GoTo /D (section*.85) >> ->> -% 695 0 obj -======= 698 0 699 153 700 306 701 458 702 611 703 763 704 916 705 1068 706 1221 707 1374 708 1527 709 1672 710 1824 741 1976 711 2127 712 2279 713 2430 714 2582 715 2733 716 2884 717 3035 718 3187 719 3340 720 3492 721 3644 722 3796 723 3949 724 4101 725 4253 726 4406 @@ -6117,116 +3894,50 @@ stream /A << /S /GoTo /D (subsection.6.18) >> >> % 699 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 528.275 160.989 539.123] -/A << /S /GoTo /D (section*.86) >> ->> -% 696 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 515.621 163.839 526.47] -/A << /S /GoTo /D (section*.87) >> ->> -% 697 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 502.968 157.972 513.816] -/A << /S /GoTo /D (section*.88) >> ->> -% 698 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 490.315 157.446 501.163] -/A << /S /GoTo /D (section*.89) >> ->> -% 699 0 obj -======= /Rect [113.843 642.725 211.621 653.573] /A << /S /GoTo /D (subsection.6.19) >> >> % 700 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 477.662 152.188 488.51] -/A << /S /GoTo /D (section*.90) >> ->> -% 700 0 obj -======= /Rect [113.843 630.63 228.447 641.479] /A << /S /GoTo /D (subsection.6.20) >> >> % 701 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 465.008 152.963 475.857] -/A << /S /GoTo /D (section*.91) >> ->> -% 701 0 obj -======= /Rect [113.843 618.536 204.426 629.384] /A << /S /GoTo /D (subsection.6.21) >> >> % 702 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 452.355 151.026 463.203] -/A << /S /GoTo /D (section*.92) >> ->> -% 702 0 obj -======= /Rect [113.843 606.442 221.252 617.29] /A << /S /GoTo /D (subsection.6.22) >> >> % 703 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 439.702 152.963 450.55] -/A << /S /GoTo /D (section*.93) >> ->> -% 703 0 obj -======= /Rect [113.843 594.348 379.049 605.196] /A << /S /GoTo /D (subsection.6.23) >> >> % 704 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 427.049 153.24 437.897] -/A << /S /GoTo /D (section*.94) >> ->> -% 704 0 obj -======= /Rect [113.843 582.254 358.57 593.102] /A << /S /GoTo /D (subsection.6.24) >> >> @@ -6239,367 +3950,170 @@ stream /A << /S /GoTo /D (subsection.6.25) >> >> % 706 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 414.395 157.142 425.243] -/A << /S /GoTo /D (section*.95) >> ->> -% 705 0 obj -======= /Rect [113.843 558.065 284.166 568.913] /A << /S /GoTo /D (subsection.6.26) >> >> % 707 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 401.742 149.421 412.59] -/A << /S /GoTo /D (section*.96) >> ->> -% 706 0 obj -======= /Rect [113.843 545.971 222.962 556.819] /A << /S /GoTo /D (subsection.6.27) >> >> % 708 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 389.089 148.009 399.937] -/A << /S /GoTo /D (section*.97) >> ->> -% 707 0 obj -======= /Rect [98.899 525.759 264.868 534.67] /A << /S /GoTo /D (section.7) >> >> % 709 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [98.899 366.007 190.188 376.856] -/A << /S /GoTo /D (section.8) >> ->> -% 708 0 obj -======= /Rect [113.843 511.727 365.417 522.576] /A << /S /GoTo /D (subsection.7.1) >> >> % 710 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 353.354 167.188 364.202] -/A << /S /GoTo /D (section*.98) >> ->> -% 709 0 obj -======= /Rect [113.843 499.633 444.603 510.481] /A << /S /GoTo /D (subsection.7.2) >> >> % 741 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 340.701 155.537 351.549] -/A << /S /GoTo /D (section*.99) >> ->> -% 710 0 obj -======= /Rect [98.899 489.615 160.612 498.028] /A << /S /GoTo /D (subsection.7.2) >> >> % 711 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 328.048 202.129 338.896] -/A << /S /GoTo /D (section*.100) >> ->> -% 711 0 obj -======= /Rect [113.843 475.584 367.188 486.432] /A << /S /GoTo /D (subsection.7.3) >> >> % 712 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 315.394 189.039 326.242] -/A << /S /GoTo /D (section*.101) >> ->> -% 712 0 obj -======= /Rect [113.843 463.49 358.186 474.338] /A << /S /GoTo /D (subsection.7.4) >> >> % 713 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [98.899 294.25 156.061 303.161] -/A << /S /GoTo /D (section.9) >> ->> -% 713 0 obj -======= /Rect [113.843 451.395 309.784 462.244] /A << /S /GoTo /D (subsection.7.5) >> >> % 714 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 281.597 149.061 290.508] -/A << /S /GoTo /D (section*.102) >> ->> -% 714 0 obj -======= /Rect [113.843 439.301 277.164 450.15] /A << /S /GoTo /D (subsection.7.6) >> >> % 715 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 268.944 152.382 277.855] -/A << /S /GoTo /D (section*.103) >> ->> -% 715 0 obj -======= /Rect [113.843 427.207 389.41 438.055] /A << /S /GoTo /D (subsection.7.7) >> >> % 716 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 256.29 175.617 265.201] -/A << /S /GoTo /D (section*.104) >> ->> -% 716 0 obj -======= /Rect [113.843 415.113 289.95 425.961] /A << /S /GoTo /D (subsection.7.8) >> >> % 717 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 241.7 181.207 252.548] -/A << /S /GoTo /D (section*.105) >> ->> -% 717 0 obj -======= /Rect [113.843 403.019 263.327 413.867] /A << /S /GoTo /D (subsection.7.9) >> >> % 718 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 230.984 178.938 239.63] -/A << /S /GoTo /D (section*.106) >> ->> -% 718 0 obj -======= /Rect [113.843 390.925 241.645 401.773] /A << /S /GoTo /D (subsection.7.10) >> >> % 719 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 216.393 184.528 226.977] -/A << /S /GoTo /D (section*.107) >> ->> -% 719 0 obj -======= /Rect [113.843 378.83 267.824 389.679] /A << /S /GoTo /D (subsection.7.11) >> >> % 720 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [98.899 195.249 234.475 204.16] -/A << /S /GoTo /D (section.10) >> ->> -% 720 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [113.843 180.659 157.374 192.06] -/A << /S /GoTo /D (section*.108) >> -======= /Rect [113.843 366.736 263.95 377.584] /A << /S /GoTo /D (subsection.7.12) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 721 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 168.005 164.57 179.407] -/A << /S /GoTo /D (section*.109) >> -======= /Rect [113.843 354.642 332.914 365.49] /A << /S /GoTo /D (subsection.7.13) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 722 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 155.352 166.507 166.754] -/A << /S /GoTo /D (section*.110) >> -======= /Rect [113.843 342.548 331.253 353.396] /A << /S /GoTo /D (subsection.7.14) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 723 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 142.699 164.653 154.1] -/A << /S /GoTo /D (section*.111) >> -======= /Rect [113.843 330.454 304.16 341.302] /A << /S /GoTo /D (subsection.7.15) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 724 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 131.983 137.975 140.894] -/A << /S /GoTo /D (section*.112) >> -======= /Rect [113.843 318.36 232.664 329.208] /A << /S /GoTo /D (subsection.7.16) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 725 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [113.843 117.392 158.232 128.794] -/A << /S /GoTo /D (section*.113) >> ->> -% 731 0 obj -<< -/D [729 0 R /XYZ 98.895 753.953 null] ->> -% 728 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 734 0 obj -<< -/Type /Page -/Contents 735 0 R -/Resources 733 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 574 0 R -/Annots [ 726 0 R 727 0 R ] ->> -% 726 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [149.709 705.133 257.299 714.044] -/A << /S /GoTo /D (section.11) >> ->> -% 727 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [164.653 691.24 212.379 702.088] -/A << /S /GoTo /D (section*.114) >> ->> -% 736 0 obj -<< -/D [734 0 R /XYZ 149.705 753.953 null] ->> -% 733 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 748 0 obj -<< -/Type /Page -/Contents 749 0 R -/Resources 747 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R -/Annots [ 737 0 R 738 0 R 739 0 R 740 0 R 741 0 R 742 0 R 743 0 R 744 0 R 745 0 R 746 0 R ] ->> -% 737 0 obj -======= /Rect [113.843 306.265 243.014 317.114] /A << /S /GoTo /D (subsection.7.17) >> >> @@ -6644,7 +4158,6 @@ stream /A << /S /GoTo /D (subsection.8.4) >> >> % 731 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6652,11 +4165,7 @@ stream /Rect [98.899 215.527 156.061 224.438] /A << /S /GoTo /D (section.9) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 738 0 obj -======= % 732 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6664,9 +4173,6 @@ stream /Rect [113.843 201.495 444.603 212.344] /A << /S /GoTo /D (subsection.9.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 739 0 obj -======= % 742 0 obj << /Type /Annot @@ -6880,7 +4386,6 @@ stream /A << /S /GoTo /D (cite.Sparse03) >> >> % 765 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6888,11 +4393,7 @@ stream /Rect [265.763 502.958 272.737 511.371] /A << /S /GoTo /D (cite.DesPat:11) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 740 0 obj -======= % 766 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6900,11 +4401,7 @@ stream /Rect [276.283 502.958 288.238 511.371] /A << /S /GoTo /D (cite.RouXiaXu:11) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 741 0 obj -======= % 767 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6912,11 +4409,7 @@ stream /Rect [210.166 442.916 222.121 451.329] /A << /S /GoTo /D (cite.machiels) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 742 0 obj -======= % 768 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6924,11 +4417,7 @@ stream /Rect [241.566 370.919 248.54 379.332] /A << /S /GoTo /D (cite.sblas97) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 743 0 obj -======= % 769 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6936,11 +4425,7 @@ stream /Rect [252.056 370.919 259.03 379.332] /A << /S /GoTo /D (cite.sblas02) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 744 0 obj -======= % 770 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6948,11 +4433,7 @@ stream /Rect [227.473 358.964 239.428 367.377] /A << /S /GoTo /D (cite.BLAS1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 745 0 obj -======= % 771 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6960,11 +4441,7 @@ stream /Rect [243.524 358.964 250.498 367.377] /A << /S /GoTo /D (cite.BLAS2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 746 0 obj -======= % 772 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -6974,25 +4451,6 @@ stream >> % 7 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [748 0 R /XYZ 99.895 716.092 null] ->> -% 747 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F17 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 768 0 obj -<< -/Type /Page -/Contents 769 0 R -/Resources 767 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R -/Annots [ 762 0 R 763 0 R 764 0 R ] ->> -% 772 0 obj -======= /D [774 0 R /XYZ 99.895 716.092 null] >> % 773 0 obj @@ -7010,7 +4468,6 @@ stream /Annots [ 788 0 R 789 0 R 790 0 R ] >> % 798 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Producer (GPL Ghostscript 9.04) /CreationDate (D:20111215145523+01'00') @@ -7019,26 +4476,15 @@ stream /Creator (fig2dev Version 3.2 Patchlevel 5d) /Author (sfilippo@donald \(Salvatore Filippone\)) >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 773 0 obj -======= % 799 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /ExtGState /OPM 1 >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 774 0 obj -<< -/BaseFont /JEJNJE+Times-Roman -/FontDescriptor 775 0 R -======= % 800 0 obj << /BaseFont /JEJNJE+Times-Roman /FontDescriptor 801 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Type /Font /FirstChar 32 /LastChar 116 @@ -7046,11 +4492,7 @@ stream /Encoding /WinAnsiEncoding /Subtype /Type1 >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 775 0 obj -======= % 801 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /JEJNJE+Times-Roman @@ -7064,15 +4506,9 @@ stream /MissingWidth 500 /XHeight 460 /CharSet (/A/B/F/I/L/M/P/S/a/c/e/f/g/i/l/n/o/p/r/s/space/t/three/two/zero) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile3 776 0 R ->> -% 762 0 obj -======= /FontFile3 802 0 R >> % 788 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7080,11 +4516,7 @@ stream /Rect [310.543 541.042 317.517 551.89] /A << /S /GoTo /D (figure.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 763 0 obj -======= % 789 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7092,11 +4524,7 @@ stream /Rect [446.018 471.248 452.992 479.661] /A << /S /GoTo /D (cite.BLACS) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 764 0 obj -======= % 790 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7106,30 +4534,6 @@ stream >> % 11 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [768 0 R /XYZ 150.705 677.433 null] ->> -% 771 0 obj -<< -/D [768 0 R /XYZ 258.703 263.3 null] ->> -% 767 0 obj -<< -/Font << /F8 573 0 R /F16 570 0 R /F11 770 0 R >> -/XObject << /Im1 765 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 781 0 obj -<< -/Type /Page -/Contents 782 0 R -/Resources 780 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R -/Annots [ 766 0 R 778 0 R 779 0 R ] ->> -% 766 0 obj -======= /D [794 0 R /XYZ 150.705 677.433 null] >> % 797 0 obj @@ -7152,7 +4556,6 @@ stream /Annots [ 792 0 R 804 0 R 805 0 R ] >> % 792 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7160,11 +4563,7 @@ stream /Rect [219.5 609.491 231.455 617.904] /A << /S /GoTo /D (cite.METIS) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 778 0 obj -======= % 804 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7172,11 +4571,7 @@ stream /Rect [210.854 546.467 217.316 558.506] /A << /S /GoTo /D (Hfootnote.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 779 0 obj -======= % 805 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7184,39 +4579,6 @@ stream /Rect [155.908 188.124 162.37 200.163] /A << /S /GoTo /D (Hfootnote.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 783 0 obj -<< -/D [781 0 R /XYZ 98.895 753.953 null] ->> -% 15 0 obj -<< -/D [781 0 R /XYZ 99.895 515.919 null] ->> -% 789 0 obj -<< -/D [781 0 R /XYZ 115.138 167.688 null] ->> -% 791 0 obj -<< -/D [781 0 R /XYZ 115.138 158.184 null] ->> -% 780 0 obj -<< -/Font << /F8 573 0 R /F17 750 0 R /F30 784 0 R /F7 785 0 R /F16 570 0 R /F11 770 0 R /F10 786 0 R /F14 787 0 R /F27 572 0 R /F32 788 0 R /F31 790 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 797 0 obj -<< -/Type /Page -/Contents 798 0 R -/Resources 796 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R -/Annots [ 793 0 R 794 0 R ] ->> -% 801 0 obj -======= % 809 0 obj << /D [807 0 R /XYZ 98.895 753.953 null] @@ -7248,36 +4610,23 @@ stream /Annots [ 819 0 R 820 0 R ] >> % 827 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Producer (ESP Ghostscript 815.03) /CreationDate (D:20070123225315) /ModDate (D:20070123225315) >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 802 0 obj -======= % 828 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /ExtGState /OPM 1 >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 803 0 obj -======= % 829 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /BaseFont /Times-Roman /Type /Font /Subtype /Type1 >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 793 0 obj -======= % 819 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7285,11 +4634,7 @@ stream /Rect [294.665 637.885 301.639 646.297] /A << /S /GoTo /D (cite.2007c) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 794 0 obj -======= % 820 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -7297,215 +4642,12 @@ stream /Rect [305.735 637.885 312.709 646.297] /A << /S /GoTo /D (cite.2007d) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 799 0 obj -<< -/D [797 0 R /XYZ 149.705 753.953 null] ->> -% 800 0 obj -<< -/D [797 0 R /XYZ 303.562 347.015 null] ->> -% 19 0 obj -<< -/D [797 0 R /XYZ 150.705 272.271 null] ->> -% 796 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R /F16 570 0 R >> -/XObject << /Im2 795 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 809 0 obj -<< -/Type /Page -/Contents 810 0 R -/Resources 808 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R -/Annots [ 806 0 R 807 0 R ] ->> -% 806 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [406.358 354.515 413.331 366.47] -/A << /S /GoTo /D (section.3) >> ->> -% 807 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [173.863 318.352 180.837 330.307] -/A << /S /GoTo /D (section.6) >> ->> -% 811 0 obj -<< -/D [809 0 R /XYZ 98.895 753.953 null] ->> -% 808 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F14 787 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 814 0 obj -<< -/Type /Page -/Contents 815 0 R -/Resources 813 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 751 0 R ->> -% 816 0 obj -<< -/D [814 0 R /XYZ 149.705 753.953 null] ->> -% 23 0 obj -<< -/D [814 0 R /XYZ 150.705 716.092 null] ->> -% 818 0 obj -<< -/D [814 0 R /XYZ 150.705 284.758 null] ->> -% 819 0 obj -<< -/D [814 0 R /XYZ 150.705 263.953 null] ->> -% 820 0 obj -<< -/D [814 0 R /XYZ 150.705 242.87 null] ->> -% 821 0 obj -<< -/D [814 0 R /XYZ 150.705 221.788 null] ->> -% 822 0 obj -<< -/D [814 0 R /XYZ 150.705 188.75 null] ->> -% 823 0 obj -<< -/D [814 0 R /XYZ 150.705 167.6 null] ->> -% 824 0 obj -<< -/D [814 0 R /XYZ 150.705 148.591 null] ->> -% 825 0 obj -<< -/D [814 0 R /XYZ 150.705 132.072 null] ->> - -endstream -endobj -830 0 obj -<< -/Length 7719 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 112.072 706.129 Td [(6.)]TJ -0 g 0 G - [-500(Cho)-28(ose)-382(the)-382(preconditioner)-382(to)-382(b)-28(e)-382(used)-382(with)]TJ/F30 9.9626 Tf 205.032 0 Td [(prec%init)]TJ/F8 9.9626 Tf 50.879 0 Td [(and)-382(build)-382(it)-382(with)]TJ/F30 9.9626 Tf -243.181 -11.955 Td [(prec%build)]TJ -0 0 1 rg 0 0 1 RG -/F7 6.9738 Tf 52.303 3.615 Td [(3)]TJ -0 g 0 G -/F8 9.9626 Tf 4.47 -3.615 Td [(.)]TJ -0 g 0 G - -69.503 -22.397 Td [(7.)]TJ -0 g 0 G - [-500(Call)-333(the)-334(iterativ)28(e)-333(metho)-28(d)-333(of)-334(c)28(hoice,)-333(e.g.)]TJ/F30 9.9626 Tf 189.595 0 Td [(psb_bicgstab)]TJ/F8 9.9626 Tf -201.772 -21.778 Td [(This)-333(is)-334(the)-333(structure)-333(of)-334(the)-333(sample)-333(programs)-334(in)-333(the)-333(directory)]TJ/F30 9.9626 Tf 269.435 0 Td [(test/pargen/)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ -317.255 -12.573 Td [(F)83(or)-291(a)-292(sim)28(ulation)-292(in)-291(whic)27(h)-291(the)-292(same)-292(discretization)-291(mes)-1(h)-291(is)-292(used)-291(o)27(v)28(er)-292(m)28(ultiple)]TJ -14.944 -11.955 Td [(time)-333(ste)-1(p)1(s)-1(,)-333(the)-333(follo)28(wing)-334(structure)-333(ma)28(y)-333(b)-28(e)-334(more)-333(appropriate:)]TJ -0 g 0 G - 12.177 -21.779 Td [(1.)]TJ -0 g 0 G - [-500(Initialize)-333(parallel)-334(en)28(vironmen)28(t)-333(with)]TJ/F30 9.9626 Tf 169.421 0 Td [(psb_init)]TJ -0 g 0 G -/F8 9.9626 Tf -169.421 -22.397 Td [(2.)]TJ -0 g 0 G - [-500(Initialize)-333(index)-334(space)-333(with)]TJ/F30 9.9626 Tf 130.123 0 Td [(psb_cdall)]TJ -0 g 0 G -/F8 9.9626 Tf -130.123 -22.396 Td [(3.)]TJ -0 g 0 G - [-500(Lo)-28(op)-271(o)28(v)27(er)-271(the)-272(top)-27(ology)-272(of)-271(the)-272(discretization)-271(mesh)-272(and)-271(build)-271(the)-272(descriptor)]TJ 12.73 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.693 0 Td [(psb_cdins)]TJ -0 g 0 G -/F8 9.9626 Tf -35.423 -22.397 Td [(4.)]TJ -0 g 0 G - [-500(Assem)28(ble)-334(the)-333(descriptor)-333(with)]TJ/F30 9.9626 Tf 143.019 0 Td [(psb_cdasb)]TJ -0 g 0 G -/F8 9.9626 Tf -143.019 -22.396 Td [(5.)]TJ -0 g 0 G - [-500(Allo)-28(cate)-222(the)-222(sparse)-223(matrices)-222(and)-222(dense)-222(v)27(ectors)-222(with)]TJ/F30 9.9626 Tf 233.375 0 Td [(psb_spall)]TJ/F8 9.9626 Tf 49.287 0 Td [(and)]TJ/F30 9.9626 Tf 18.265 0 Td [(psb_geall)]TJ -0 g 0 G -/F8 9.9626 Tf -300.927 -22.396 Td [(6.)]TJ -0 g 0 G - [-500(Lo)-28(op)-333(o)28(v)28(e)-1(r)-333(the)-333(time)-334(steps:)]TJ -0 g 0 G - 16.936 -22.397 Td [(\050a\051)]TJ -0 g 0 G - [-500(If)-340(after)-339(\014rst)-340(time)-339(step,)-341(reinitialize)-340(the)-339(s)-1(p)1(a)-1(r)1(s)-1(e)-339(matrix)-340(with)]TJ/F30 9.9626 Tf 269.988 0 Td [(psb_sprn)]TJ/F8 9.9626 Tf 41.843 0 Td [(;)]TJ -294.119 -11.955 Td [(also)-333(zero)-334(out)-333(the)-333(dense)-334(v)28(ectors;)]TJ -0 g 0 G - -18.265 -17.176 Td [(\050b\051)]TJ -0 g 0 G - [-500(Lo)-28(op)-252(o)28(v)27(er)-252(the)-253(mesh,)-268(generate)-253(the)-253(co)-27(e\016cie)-1(n)28(ts)-252(and)-253(insert/up)-27(date)-253(them)]TJ 18.265 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.693 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 50.394 0 Td [(and)]TJ/F30 9.9626 Tf 19.371 0 Td [(psb_geins)]TJ -0 g 0 G -/F8 9.9626 Tf -109.616 -17.176 Td [(\050c\051)]TJ -0 g 0 G - [-500(Assem)28(ble)-334(with)]TJ/F30 9.9626 Tf 83.686 0 Td [(psb_spasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(psb_geasb)]TJ -0 g 0 G -/F8 9.9626 Tf -154.559 -17.176 Td [(\050d\051)]TJ -0 g 0 G - [-500(Cho)-28(ose)-333(and)-333(build)-334(pr)1(e)-1(condi)1(tioner)-334(with)]TJ/F30 9.9626 Tf 186.357 0 Td [(prec%init)]TJ/F8 9.9626 Tf 50.394 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(prec%build)]TJ -0 g 0 G -/F8 9.9626 Tf -255.016 -17.175 Td [(\050e\051)]TJ -0 g 0 G - [-500(Call)-333(the)-334(iterativ)28(e)-333(metho)-28(d)-333(of)-334(c)28(hoice,)-333(e.g.)]TJ/F30 9.9626 Tf 194.023 0 Td [(psb_bicgstab)]TJ/F8 9.9626 Tf -223.69 -22.397 Td [(The)-370(insertion)-370(routines)-370(will)-370(b)-27(e)-370(c)-1(all)1(e)-1(d)-369(as)-370(man)27(y)-370(times)-370(as)-370(needed;)-388(they)-370(only)-370(need)]TJ 0 -11.955 Td [(to)-404(b)-27(e)-404(called)-404(on)-404(the)-403(data)-404(that)-404(is)-403(actually)-404(allo)-28(cated)-403(to)-404(the)-404(curren)28(t)-404(pro)-27(ce)-1(ss,)-421(i.e.)]TJ 0 -11.955 Td [(eac)28(h)-334(pro)-27(cess)-334(generates)-333(its)-334(o)28(wn)-333(data.)]TJ 14.944 -12.573 Td [(In)-326(principle)-326(there)-327(is)-326(no)-326(sp)-28(eci\014c)-326(order)-327(in)-326(the)-326(calls)-327(to)]TJ/F30 9.9626 Tf 225.879 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)-328(nor)-326(is)-326(there)]TJ -287.896 -11.955 Td [(a)-393(requiremen)27(t)-393(to)-393(build)-394(a)-393(matrix)-393(ro)28(w)-394(in)-393(its)-394(en)28(tiret)28(y)-393(b)-28(efore)-393(c)-1(alli)1(ng)-394(the)-393(routine;)]TJ 0 -11.955 Td [(this)-288(allo)28(ws)-288(the)-288(application)-288(programmer)-288(to)-288(w)27(alk)-288(through)-288(the)-288(discretization)-288(mesh)]TJ 0 -11.956 Td [(elemen)28(t)-402(b)28(y)-401(elemen)28(t,)-419(generating)-401(the)-401(main)-401(part)-401(of)-402(a)-401(giv)28(en)-401(matrix)-402(ro)28(w)-401(but)-401(also)]TJ 0 -11.955 Td [(con)28(tributions)-333(to)-334(the)-333(ro)28(ws)-334(corresp)-28(on)1(ding)-334(to)-333(neigh)28(b)-28(ouring)-333(elemen)28(ts)-1(.)]TJ 14.944 -12.573 Td [(F)83(rom)-410(a)-410(functional)-410(p)-28(oin)28(t)-410(of)-410(view)-410(it)-410(is)-410(ev)27(en)-410(p)-27(os)-1(sibl)1(e)-411(to)-410(execute)-410(one)-410(call)-410(for)]TJ -14.944 -11.955 Td [(eac)28(h)-372(nonzero)-372(co)-28(e\016cien)28(t;)-391(ho)27(w)28(ev)28(er)-372(this)-372(w)28(ould)-372(ha)28(v)28(e)-372(a)-372(substan)27(tial)-371(com)-1(p)1(utational)]TJ 0 -11.955 Td [(o)28(v)28(e)-1(r)1(head.)-412(It)-236(is)-236(therefore)-236(advisable)-236(to)-235(pac)27(k)-236(a)-235(certain)-236(amoun)28(t)-236(of)-236(data)-236(in)28(to)-236(eac)28(h)-236(call)]TJ 0 -11.955 Td [(to)-308(the)-307(insertion)-308(routin)1(e)-1(,)-312(sa)28(y)-308(touc)28(hing)-308(on)-307(a)-308(few)-307(tens)-308(of)-307(ro)27(ws;)-316(the)-307(b)-28(est)-308(p)-27(erformng)]TJ 0 -11.955 Td [(v)56(alue)-386(w)28(ould)-385(dep)-28(end)-386(on)-385(b)-28(oth)-385(the)-385(arc)27(hitecture)-385(of)-385(the)-386(computer)-385(b)-28(eing)-385(used)-386(and)]TJ 0 -11.956 Td [(on)-450(the)-450(problem)-450(structure.)-794(A)28(t)-450(the)-450(opp)-27(os)-1(i)1(te)-450(extrem)-1(e,)-479(it)-449(w)27(ould)-449(b)-28(e)-450(p)-28(ossible)-450(to)]TJ 0 -11.955 Td [(generate)-310(the)-311(en)28(tire)-310(part)-310(of)-311(a)-310(co)-28(e\016cien)28(t)-311(matrix)-310(residing)-310(on)-310(a)-311(pro)-27(ces)-1(s)-310(and)-310(pass)-310(it)]TJ 0 -11.955 Td [(in)-309(a)-309(single)-309(call)-309(to)]TJ/F30 9.9626 Tf 76.89 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 47.073 0 Td [(;)-317(this,)-314(ho)28(w)28(ev)27(er,)-314(w)28(ould)-309(en)28(tail)-309(a)-309(doubling)-309(of)-309(memory)]TJ -123.963 -11.955 Td [(o)-28(ccupation,)-333(and)-333(th)27(u)1(s)-334(w)28(ould)-333(b)-28(e)-333(almos)-1(t)-333(alw)28(a)28(ys)-334(far)-333(from)-333(optimal.)]TJ -0 g 0 G -ET -q -1 0 0 1 99.895 139.245 cm -[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S -Q -BT -/F32 5.9776 Tf 110.987 132.603 Td [(3)]TJ/F31 7.9701 Tf 4.151 -2.813 Td [(The)-323(subroutine)-324(st)30(yle)]TJ/F45 7.9701 Tf 78.401 0 Td [(psb)]TJ -ET -q -1 0 0 1 206.75 129.989 cm -[]0 d 0 J 0.398 w 0 0 m 2.541 0 l S -Q -BT -/F45 7.9701 Tf 209.29 129.79 Td [(precinit)]TJ/F31 7.9701 Tf 36.45 0 Td [(and)]TJ/F45 7.9701 Tf 16.22 0 Td [(psb)]TJ -ET -q -1 0 0 1 275.171 129.989 cm -[]0 d 0 J 0.398 w 0 0 m 2.541 0 l S -Q -BT -/F45 7.9701 Tf 277.711 129.79 Td [(precbl)]TJ/F31 7.9701 Tf 27.982 0 Td [(are)-323(still)-324(supp)-29(orted)-323(for)-324(ba)1(c)29(kw)30(ard)-324(com-)]TJ -205.798 -9.464 Td [(patibilit)29(y)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 169.365 -29.888 Td [(7)]TJ -0 g 0 G -ET - -endstream -endobj -851 0 obj -<< -/Length 7473 -======= endstream endobj 837 0 obj << /Length 5462 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -7593,11 +4735,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -862 0 obj -======= 842 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 8659 >> @@ -7645,11 +4783,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -870 0 obj -======= 856 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7719 >> @@ -7743,11 +4877,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -881 0 obj -======= 877 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7473 >> @@ -8070,11 +5200,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -900 0 obj -======= 907 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5178 >> @@ -8185,11 +5311,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -905 0 obj -======= 922 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5236 >> @@ -8436,11 +5558,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -913 0 obj -======= 931 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4956 >> @@ -8607,11 +5725,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -921 0 obj -======= 832 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /ObjStm /N 100 @@ -8619,180 +5733,6 @@ endobj /Length 9084 >> stream -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F30 9.9626 Tf 186.943 710.003 Td [(type)-525(::)-525(psb_Tspmat_type)]TJ 10.46 -11.955 Td [(class\050psb_T_base_sparse_mat\051,)-525(allocatable)-1050(::)-525(a)]TJ -10.46 -11.955 Td [(end)-525(type)-1050(psb_Tspmat_type)]TJ -0 g 0 G -/F8 9.9626 Tf -24.74 -30.054 Td [(Figure)-333(4:)-889(The)-334(P)1(SBLAS)-334(de\014ned)-333(data)-333(t)27(yp)-27(e)-334(that)-333(con)28(tains)-333(a)-334(sparse)-333(matrix.)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -11.498 -32.583 Td [(psb)]TJ -ET -q -1 0 0 1 168.641 623.655 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 172.078 623.456 Td [(T)]TJ -ET -q -1 0 0 1 180.736 623.655 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 184.173 623.456 Td [(csr)]TJ -ET -q -1 0 0 1 199.19 623.655 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 202.627 623.456 Td [(sparse)]TJ -ET -q -1 0 0 1 234.257 623.655 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 237.694 623.456 Td [(mat)]TJ -0 g 0 G -/F8 9.9626 Tf 24.553 0 Td [(Compressed)-333(s)-1(torage)-333(b)28(y)-333(ro)27(ws;)]TJ -0 g 0 G -/F27 9.9626 Tf -111.542 -21.441 Td [(psb)]TJ -ET -q -1 0 0 1 168.641 602.214 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 172.078 602.015 Td [(T)]TJ -ET -q -1 0 0 1 180.736 602.214 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 184.173 602.015 Td [(csc)]TJ -ET -q -1 0 0 1 199.563 602.214 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 203.001 602.015 Td [(sparse)]TJ -ET -q -1 0 0 1 234.63 602.214 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 238.067 602.015 Td [(mat)]TJ -0 g 0 G -/F8 9.9626 Tf 24.554 0 Td [(Compressed)-333(storage)-334(b)28(y)-333(columns;)]TJ -111.916 -21.062 Td [(The)-373(inner)-373(sparse)-373(matrix)-373(has)-373(an)-373(asso)-28(ciated)-373(state,)-383(whic)28(h)-373(can)-373(tak)28(e)-373(the)-373(follo)27(win)1(g)]TJ 0 -11.955 Td [(v)56(alues:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.062 Td [(Build:)]TJ -0 g 0 G -/F8 9.9626 Tf 35.409 0 Td [(State)-306(en)28(tered)-306(after)-307(th)1(e)-307(\014rst)-306(allo)-28(cation)1(,)-312(and)-306(b)-28(efore)-306(the)-306(\014rst)-306(assem)27(bly;)-315(in)]TJ -10.503 -11.956 Td [(this)-333(state)-334(it)-333(is)-333(p)-28(ossible)-334(to)-333(add)-333(nonzero)-333(e)-1(n)28(tries.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -21.441 Td [(Assem)32(bled:)]TJ -0 g 0 G -/F8 9.9626 Tf 61.508 0 Td [(State)-373(en)27(tered)-373(after)-373(the)-373(a)-1(ssem)28(bly;)-393(computations)-373(using)-374(the)-373(sparse)]TJ -36.602 -11.955 Td [(matrix,)-333(suc)27(h)-333(as)-333(matrix-v)28(e)-1(ctor)-333(pro)-28(du)1(c)-1(ts,)-333(are)-333(only)-334(p)-27(ossible)-334(in)-333(this)-333(state;)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -21.441 Td [(Up)-32(date:)]TJ -0 g 0 G -/F8 9.9626 Tf 45.302 0 Td [(State)-233(en)27(tered)-233(after)-233(a)-234(r)1(e)-1(in)1(italization;)-267(this)-233(is)-234(used)-233(to)-233(handle)-234(appli)1(c)-1(ation)1(s)]TJ -20.396 -11.955 Td [(in)-395(whic)28(h)-396(the)-395(same)-395(sparsit)28(y)-395(pattern)-396(is)-395(used)-395(m)28(ultiple)-395(times)-396(with)-395(di\013eren)28(t)]TJ 0 -11.955 Td [(co)-28(e\016cien)28(ts.)-427(In)-280(this)-280(state)-280(it)-281(i)1(s)-281(only)-280(p)-27(os)-1(sibl)1(e)-281(to)-280(en)28(ter)-280(co)-28(e\016cien)28(ts)-281(f)1(or)-281(already)]TJ 0 -11.955 Td [(existing)-333(nonzero)-334(en)28(tries.)]TJ -24.906 -21.062 Td [(The)-358(only)-357(storage)-358(v)56(arian)28(t)-358(supp)-28(orting)-357(the)-358(build)-357(state)-358(is)-358(COO;)-357(all)-358(other)-358(v)56(arian)28(ts)]TJ 0 -11.956 Td [(are)-333(obtained)-334(b)28(y)-333(con)28(v)27(ersion)-333(to/from)-333(it.)]TJ/F27 9.9626 Tf 0 -27.906 Td [(3.2.1)-1150(Sparse)-383(Matrix)-384(Metho)-32(ds)]TJ 0 -19.095 Td [(get)]TJ -ET -q -1 0 0 1 166.827 365.459 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 170.264 365.259 Td [(nro)32(ws)-383(|)-384(Get)-383(n)32(um)32(b)-32(er)-383(of)-384(ro)32(ws)-383(in)-383(a)-384(sparse)-383(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -19.559 -19.094 Td [(nr)-525(=)-525(a%get_nrows\050\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -23.055 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 -21.441 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -21.441 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)]TJ 14.355 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ -0 g 0 G - -57.285 -35.01 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -21.441 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(ro)28(ws)-334(of)-333(sparse)-333(matrix)]TJ/F30 9.9626 Tf 164.937 0 Td [(a)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ/F27 9.9626 Tf -248.554 -27.906 Td [(get)]TJ -ET -q -1 0 0 1 166.827 184.115 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 170.264 183.916 Td [(ncols)-383(|)-384(Get)-383(n)32(um)32(b)-32(er)-383(of)-384(columns)-383(in)-384(a)-383(sparse)-383(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -19.559 -19.095 Td [(nc)-525(=)-525(a%get_ncols\050\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -23.054 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 -21.441 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 166.874 -29.888 Td [(16)]TJ -0 g 0 G -ET - -endstream -endobj -826 0 obj -<< -/Type /ObjStm -/N 100 -/First 867 -/Length 9119 ->> -stream -813 0 829 130 812 264 831 412 832 468 833 524 834 580 835 635 836 691 837 747 -838 803 839 859 840 915 841 971 842 1027 843 1083 844 1139 845 1195 828 1252 850 1382 -827 1524 848 1676 852 1823 27 1880 853 1936 854 1993 855 2050 856 2107 857 2164 858 2221 -31 2278 849 2334 861 2477 859 2611 863 2758 35 2814 39 2869 864 2924 860 2981 869 3099 -865 3249 866 3396 867 3548 871 3700 872 3757 873 3814 874 3871 875 3928 876 3985 868 4042 -880 4134 877 4276 878 4428 882 4580 883 4636 884 4692 885 4748 886 4803 887 4859 888 4915 -889 4971 890 5027 891 5083 879 5140 895 5232 892 5374 893 5520 897 5666 43 5723 47 5779 -51 5835 55 5891 894 5947 899 6065 901 6179 59 6235 63 6290 67 6345 898 6400 904 6492 -906 6606 71 6663 75 6719 907 6775 79 6832 83 6888 903 6944 912 7036 908 7186 909 7343 -910 7493 914 7639 87 7695 91 7750 915 7805 916 7862 911 7919 920 8024 922 8138 918 8195 -% 813 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F9 817 0 R /F17 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 829 0 obj -<< -/Type /Page -/Contents 830 0 R -/Resources 828 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 812 0 R ] -======= 825 0 826 57 19 114 822 170 836 329 833 471 834 617 838 764 835 820 841 925 843 1039 23 1096 845 1152 846 1209 847 1266 848 1322 849 1379 850 1435 851 1490 852 1547 840 1604 855 1734 839 1868 857 2016 858 2072 859 2128 860 2184 861 2239 862 2295 863 2351 @@ -8814,93 +5754,9 @@ stream % 19 0 obj << /D [823 0 R /XYZ 150.705 272.271 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 812 0 obj +% 822 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [176.109 690.964 182.571 703.28] -/A << /S /GoTo /D (Hfootnote.3) >> ->> -% 831 0 obj -<< -/D [829 0 R /XYZ 98.895 753.953 null] ->> -% 832 0 obj -<< -/D [829 0 R /XYZ 99.895 716.092 null] ->> -% 833 0 obj -<< -/D [829 0 R /XYZ 99.895 686.739 null] ->> -% 834 0 obj -<< -/D [829 0 R /XYZ 99.895 618.93 null] ->> -% 835 0 obj -<< -/D [829 0 R /XYZ 99.895 596.257 null] ->> -% 836 0 obj -<< -/D [829 0 R /XYZ 99.895 573.861 null] ->> -% 837 0 obj -<< -/D [829 0 R /XYZ 99.895 539.509 null] ->> -% 838 0 obj -<< -/D [829 0 R /XYZ 99.895 517.113 null] ->> -% 839 0 obj -<< -/D [829 0 R /XYZ 99.895 494.716 null] ->> -% 840 0 obj -<< -/D [829 0 R /XYZ 99.895 469.986 null] ->> -% 841 0 obj -<< -/D [829 0 R /XYZ 99.895 440.855 null] ->> -% 842 0 obj -<< -/D [829 0 R /XYZ 99.895 411.448 null] ->> -% 843 0 obj -<< -/D [829 0 R /XYZ 99.895 393.995 null] ->> -% 844 0 obj -<< -/D [829 0 R /XYZ 99.895 376.819 null] ->> -% 845 0 obj -<< -/D [829 0 R /XYZ 115.138 139.255 null] ->> -% 828 0 obj -<< -/Font << /F8 573 0 R /F30 784 0 R /F7 785 0 R /F32 788 0 R /F31 790 0 R /F45 846 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 850 0 obj -<< -/Type /Page -/Contents 851 0 R -/Resources 849 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 827 0 R 848 0 R ] ->> -% 827 0 obj -======= /Font << /F27 584 0 R /F8 585 0 R /F14 813 0 R /F11 796 0 R /F10 812 0 R /F16 582 0 R >> /XObject << /Im2 821 0 R >> /ProcSet [ /PDF /Text ] @@ -9084,7 +5940,6 @@ stream /Annots [ 853 0 R 874 0 R ] >> % 853 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9092,11 +5947,7 @@ stream /Rect [269.731 674.788 284.454 683.699] /A << /S /GoTo /D (subsection.2.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 848 0 obj -======= % 874 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9104,59 +5955,6 @@ stream /Rect [169.998 271.903 176.972 282.751] /A << /S /GoTo /D (section.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 852 0 obj -<< -/D [850 0 R /XYZ 149.705 753.953 null] ->> -% 27 0 obj -<< -/D [850 0 R /XYZ 150.705 716.092 null] ->> -% 853 0 obj -<< -/D [850 0 R /XYZ 150.705 671.799 null] ->> -% 854 0 obj -<< -/D [850 0 R /XYZ 150.705 649.383 null] ->> -% 855 0 obj -<< -/D [850 0 R /XYZ 150.705 576.158 null] ->> -% 856 0 obj -<< -/D [850 0 R /XYZ 150.705 530.385 null] ->> -% 857 0 obj -<< -/D [850 0 R /XYZ 150.705 497.951 null] ->> -% 858 0 obj -<< -/D [850 0 R /XYZ 150.705 478.303 null] ->> -% 31 0 obj -<< -/D [850 0 R /XYZ 150.705 424.511 null] ->> -% 849 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F9 817 0 R /F30 784 0 R /F16 570 0 R /F17 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 861 0 obj -<< -/Type /Page -/Contents 862 0 R -/Resources 860 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 859 0 R ] ->> -% 859 0 obj -======= % 878 0 obj << /D [876 0 R /XYZ 149.705 753.953 null] @@ -9208,7 +6006,6 @@ stream /Annots [ 885 0 R ] >> % 885 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9216,39 +6013,6 @@ stream /Rect [269.318 174.287 276.292 185.135] /A << /S /GoTo /D (section.6) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 863 0 obj -<< -/D [861 0 R /XYZ 98.895 753.953 null] ->> -% 35 0 obj -<< -/D [861 0 R /XYZ 99.895 716.092 null] ->> -% 39 0 obj -<< -/D [861 0 R /XYZ 99.895 280.417 null] ->> -% 864 0 obj -<< -/D [861 0 R /XYZ 342.427 237.273 null] ->> -% 860 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R /F27 572 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 869 0 obj -<< -/Type /Page -/Contents 870 0 R -/Resources 868 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 865 0 R 866 0 R 867 0 R ] ->> -% 865 0 obj -======= % 889 0 obj << /D [887 0 R /XYZ 98.895 753.953 null] @@ -9280,7 +6044,6 @@ stream /Annots [ 891 0 R 892 0 R 893 0 R ] >> % 891 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9288,11 +6051,7 @@ stream /Rect [452.103 399.657 459.077 411.612] /A << /S /GoTo /D (section.6) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 866 0 obj -======= % 892 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9300,11 +6059,7 @@ stream /Rect [356.323 194.074 371.046 204.923] /A << /S /GoTo /D (subsection.3.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 867 0 obj -======= % 893 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9312,47 +6067,6 @@ stream /Rect [356.323 149.756 371.046 160.604] /A << /S /GoTo /D (subsection.3.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 871 0 obj -<< -/D [869 0 R /XYZ 149.705 753.953 null] ->> -% 872 0 obj -<< -/D [869 0 R /XYZ 150.705 294.274 null] ->> -% 873 0 obj -<< -/D [869 0 R /XYZ 150.705 278.093 null] ->> -% 874 0 obj -<< -/D [869 0 R /XYZ 150.705 261.911 null] ->> -% 875 0 obj -<< -/D [869 0 R /XYZ 150.705 245.729 null] ->> -% 876 0 obj -<< -/D [869 0 R /XYZ 150.705 229.547 null] ->> -% 868 0 obj -<< -/Font << /F14 787 0 R /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 880 0 obj -<< -/Type /Page -/Contents 881 0 R -/Resources 879 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 877 0 R 878 0 R ] ->> -% 877 0 obj -======= % 897 0 obj << /D [895 0 R /XYZ 149.705 753.953 null] @@ -9392,7 +6106,6 @@ stream /Annots [ 903 0 R 904 0 R ] >> % 903 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9400,11 +6113,7 @@ stream /Rect [305.513 611.433 320.236 622.281] /A << /S /GoTo /D (subsection.3.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 878 0 obj -======= % 904 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9412,63 +6121,6 @@ stream /Rect [305.513 564.905 320.236 575.753] /A << /S /GoTo /D (subsection.3.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 882 0 obj -<< -/D [880 0 R /XYZ 98.895 753.953 null] ->> -% 883 0 obj -<< -/D [880 0 R /XYZ 99.895 716.092 null] ->> -% 884 0 obj -<< -/D [880 0 R /XYZ 99.895 701.526 null] ->> -% 885 0 obj -<< -/D [880 0 R /XYZ 99.895 684.24 null] ->> -% 886 0 obj -<< -/D [880 0 R /XYZ 99.895 666.954 null] ->> -% 887 0 obj -<< -/D [880 0 R /XYZ 99.895 649.667 null] ->> -% 888 0 obj -<< -/D [880 0 R /XYZ 99.895 535.287 null] ->> -% 889 0 obj -<< -/D [880 0 R /XYZ 99.895 518.001 null] ->> -% 890 0 obj -<< -/D [880 0 R /XYZ 99.895 500.715 null] ->> -% 891 0 obj -<< -/D [880 0 R /XYZ 147.412 273.553 null] ->> -% 879 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 895 0 obj -<< -/Type /Page -/Contents 896 0 R -/Resources 894 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 847 0 R -/Annots [ 892 0 R 893 0 R ] ->> -% 892 0 obj -======= % 908 0 obj << /D [906 0 R /XYZ 98.895 753.953 null] @@ -9524,7 +6176,6 @@ stream /Annots [ 918 0 R 919 0 R ] >> % 918 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9532,11 +6183,7 @@ stream /Rect [351.231 524.53 358.204 536.485] /A << /S /GoTo /D (section.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 893 0 obj -======= % 919 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -9544,73 +6191,6 @@ stream /Rect [186.34 314.707 193.314 326.662] /A << /S /GoTo /D (section.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 897 0 obj -<< -/D [895 0 R /XYZ 149.705 753.953 null] ->> -% 43 0 obj -<< -/D [895 0 R /XYZ 150.705 716.092 null] ->> -% 47 0 obj -<< -/D [895 0 R /XYZ 150.705 699.536 null] ->> -% 51 0 obj -<< -/D [895 0 R /XYZ 150.705 501.668 null] ->> -% 55 0 obj -<< -/D [895 0 R /XYZ 150.705 291.844 null] ->> -% 894 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F14 787 0 R /F10 786 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 899 0 obj -<< -/Type /Page -/Contents 900 0 R -/Resources 898 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R ->> -% 901 0 obj -<< -/D [899 0 R /XYZ 98.895 753.953 null] ->> -% 59 0 obj -<< -/D [899 0 R /XYZ 99.895 718.084 null] ->> -% 63 0 obj -<< -/D [899 0 R /XYZ 99.895 532.754 null] ->> -% 67 0 obj -<< -/D [899 0 R /XYZ 99.895 279.429 null] ->> -% 898 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 904 0 obj -<< -/Type /Page -/Contents 905 0 R -/Resources 903 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R ->> -% 906 0 obj -<< -/D [904 0 R /XYZ 149.705 753.953 null] -======= % 923 0 obj << /D [921 0 R /XYZ 149.705 753.953 null] @@ -9672,206 +6252,13 @@ stream /Resources 929 0 R /MediaBox [0 0 595.276 841.89] /Parent 928 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> endstream endobj 937 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [904 0 R /XYZ 150.705 718.084 null] ->> -% 75 0 obj -<< -/D [904 0 R /XYZ 150.705 519.229 null] ->> -% 907 0 obj -<< -/D [904 0 R /XYZ 395.482 355.253 null] ->> -% 79 0 obj -<< -/D [904 0 R /XYZ 150.705 305.167 null] ->> -% 83 0 obj -<< -/D [904 0 R /XYZ 150.705 194.677 null] ->> -% 903 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 912 0 obj -<< -/Type /Page -/Contents 913 0 R -/Resources 911 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R -/Annots [ 908 0 R 909 0 R 910 0 R ] ->> -% 908 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [137.251 300.628 149.206 309.041] -/A << /S /GoTo /D (cite.DesignPatterns) >> ->> -% 909 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[0 1 0] -/Rect [218.095 300.628 230.05 309.041] -/A << /S /GoTo /D (cite.Sparse03) >> ->> -% 910 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [408.687 298.137 415.661 310.092] -/A << /S /GoTo /D (figure.4) >> ->> -% 914 0 obj -<< -/D [912 0 R /XYZ 98.895 753.953 null] ->> -% 87 0 obj -<< -/D [912 0 R /XYZ 99.895 583.867 null] ->> -% 91 0 obj -<< -/D [912 0 R /XYZ 99.895 356.203 null] ->> -% 915 0 obj -<< -/D [912 0 R /XYZ 120.548 325.535 null] ->> -% 916 0 obj -<< -/D [912 0 R /XYZ 404.863 188.353 null] ->> -% 911 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 920 0 obj -<< -/Type /Page -/Contents 921 0 R -/Resources 919 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R ->> -% 922 0 obj -<< -/D [920 0 R /XYZ 149.705 753.953 null] ->> -% 918 0 obj -<< -/D [920 0 R /XYZ 205.817 667.994 null] ->> - -endstream -endobj -926 0 obj -<< -/Length 3499 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)]TJ 14.356 -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.92 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -25.32 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(columns)-333(of)-334(sparse)-333(matrix)]TJ/F30 9.9626 Tf 180.683 0 Td [(a)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ/F27 9.9626 Tf -264.301 -33.052 Td [(get)]TJ -ET -q -1 0 0 1 116.018 598.081 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 119.455 597.882 Td [(nnzeros)-383(|)-384(Get)-383(n)32(um)32(b)-32(er)-383(of)-384(nonzero)-383(elemen)32(ts)-383(in)-384(a)-383(sparse)-383(ma)-1(trix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -19.56 -20.9 Td [(nz)-525(=)-525(a%get_nnzeros\050\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -25.964 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.32 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -25.321 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)]TJ 14.356 -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.919 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -25.321 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(nonzero)-333(elem)-1(en)28(ts)-333(stored)-333(in)-334(sparse)-333(matrix)]TJ/F30 9.9626 Tf 249.979 0 Td [(a)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ/F27 9.9626 Tf -333.597 -27.313 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -23.971 Td [(1.)]TJ -0 g 0 G - [-500(The)-462(function)-462(v)55(alue)-462(is)-462(sp)-28(eci\014c)-462(to)-462(the)-463(storage)-462(format)-462(of)-462(matrix)]TJ/F30 9.9626 Tf 296.649 0 Td [(a)]TJ/F8 9.9626 Tf 5.23 0 Td [(;)-527(some)]TJ -289.149 -11.955 Td [(storage)-465(formats)-466(emplo)28(y)-465(padding,)-498(th)27(u)1(s)-466(the)-465(returned)-465(v)55(alue)-465(for)-465(the)-466(same)]TJ 0 -11.956 Td [(matrix)-333(ma)27(y)-333(b)-28(e)-333(di\013eren)28(t)-334(f)1(o)-1(r)-333(di\013eren)28(t)-333(storage)-334(c)28(hoices.)]TJ/F27 9.9626 Tf -24.907 -33.052 Td [(get)]TJ -ET -q -1 0 0 1 116.018 317.135 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 119.455 316.936 Td [(size)-503(|)-503(Get)-503(maxim)32(um)-503(n)32(um)32(b)-32(er)-503(of)-503(nonzero)-503(elemen)32(ts)-503(in)-503(a)-503(sparse)]TJ -19.56 -11.956 Td [(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -20.899 Td [(maxnz)-525(=)-525(a%get_size\050\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -25.964 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.321 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -25.32 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)]TJ 14.356 -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.92 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -25.32 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(The)-253(maxim)28(um)-254(n)28(um)28(b)-28(er)-253(of)-253(nonzero)-254(elemen)28(ts)-253(that)-253(can)-254(b)-27(e)-254(stored)]TJ -53.48 -11.955 Td [(in)-333(sparse)-334(matrix)]TJ/F30 9.9626 Tf 74.056 0 Td [(a)]TJ/F8 9.9626 Tf 8.551 0 Td [(using)-333(its)-334(curren)28(t)-333(memory)-334(allo)-27(cation.)]TJ -0 g 0 G - 59.361 -29.888 Td [(17)]TJ -0 g 0 G -ET - -endstream -endobj -931 0 obj -<< -/Length 3707 -======= /Length 5918 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -9965,11 +6352,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -935 0 obj -======= 944 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 9167 >> @@ -10259,11 +6642,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -940 0 obj -======= 952 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5963 >> @@ -10441,11 +6820,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -944 0 obj -======= 956 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 3543 >> @@ -10531,11 +6906,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -948 0 obj -======= 961 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 3749 >> @@ -10642,11 +7013,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -954 0 obj -======= 966 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4632 >> @@ -10748,11 +7115,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -960 0 obj -======= 970 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4114 >> @@ -10833,11 +7196,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -966 0 obj -======= 974 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4061 >> @@ -10927,11 +7286,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -974 0 obj -======= 978 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5497 >> @@ -10991,45 +7346,7 @@ BT 0 g 0 G /F27 9.9626 Tf -64.84 -18.824 Td [(imin,imax,jmin,jma)-1(x)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 11.028 0 Td [(A)-333(cop)27(y)-333(of)-333(the)-333(input)-334(ob)-55(ject.)]TJ -0 g 0 G -/F27 9.9626 Tf -11.028 -21.66 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Return)-333(co)-28(de.)]TJ/F16 11.9552 Tf -23.758 -30.189 Td [(3.4)-1125(Preconditioner)-375(data)-375(structure)]TJ/F8 9.9626 Tf 0 -19.197 Td [(Our)-383(base)-383(library)-383(o\013ers)-383(supp)-28(ort)-383(for)-383(simple)-383(w)28(ell)-383(kno)27(wn)-383(precondition)1(e)-1(r)1(s)-384(lik)28(e)-383(Di-)]TJ 0 -11.955 Td [(agonal)-333(Scaling)-334(or)-333(Blo)-28(c)28(k)-333(Jacobi)-334(with)-333(incomplete)-333(factorization)-333(ILU\0500\051.)]TJ 14.944 -12.389 Td [(A)-427(preconditioner)-428(is)-427(held)-428(in)-427(the)]TJ/F30 9.9626 Tf 142.723 0 Td [(psb)]TJ -ET -q -1 0 0 1 324.691 168.346 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 327.829 168.146 Td [(prec)]TJ -ET -q -1 0 0 1 349.378 168.346 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 352.516 168.146 Td [(type)]TJ/F8 9.9626 Tf 25.18 0 Td [(data)-427(structure)-428(rep)-28(orted)-427(in)]TJ -226.991 -11.955 Td [(\014gure)]TJ -0 0 1 rg 0 0 1 RG - [-361(6)]TJ -0 g 0 G - [(.)-527(The)]TJ/F30 9.9626 Tf 61.729 0 Td [(psb_prec_type)]TJ/F8 9.9626 Tf 71.59 0 Td [(data)-361(t)28(yp)-28(e)-361(ma)28(y)-361(con)28(tain)-361(a)-361(simple)-361(preconditionin)1(g)]TJ -133.319 -11.955 Td [(matrix)-488(with)-487(the)-488(asso)-28(ciated)-488(comm)28(unication)-487(des)-1(crip)1(tor.The)-488(in)28(ternal)-488(precondi-)]TJ 0 -11.955 Td [(tioner)-417(is)-417(allo)-28(cated)-417(app)1(ropriately)-417(with)-417(the)-417(dynamic)-417(t)28(yp)-28(e)-417(corresp)-28(onding)-417(to)-417(th)1(e)]TJ 0 -11.955 Td [(desired)-333(preconditioner.)]TJ -0 g 0 G - 166.874 -29.888 Td [(26)]TJ -0 g 0 G -ET - -endstream -endobj -980 0 obj -<< -/Length 3656 ->> -stream -======= /F8 9.9626 Tf 108.413 0 Td [(Minim)28(um)-333(and)-334(maxim)28(um)-333(ro)27(w)-333(and)-333(column)-333(indices.)]TJ -83.506 -11.955 Td [(T)28(yp)-28(e:)-444(optional.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -18.824 Td [(rscale,cscale)]TJ 0 g 0 G @@ -11111,42 +7428,18 @@ BT /F27 9.9626 Tf -33.797 -19.532 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -ET - -endstream -endobj -985 0 obj -<< -/Length 158 ->> -stream -======= 0 -19.532 Td [(a)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix.)]TJ 14.355 -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 0 g 0 G /F27 9.9626 Tf -80.358 -32.89 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -ET - -endstream -endobj -996 0 obj -<< -/Length 7361 ->> -stream -======= 0 -19.532 Td [(b)]TJ 0 g 0 G /F8 9.9626 Tf 11.346 0 Td [(A)-333(cop)27(y)-333(of)-333(the)-334(in)1(put)-334(ob)-55(ject.)]TJ 0 g 0 G /F27 9.9626 Tf -11.346 -19.532 Td [(info)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Return)-333(co)-28(de.)]TJ/F27 9.9626 Tf -23.758 -25.727 Td [(3.2.19)-1150(Named)-383(Constan)32(ts)]TJ 0 g 0 G @@ -11279,17 +7572,6 @@ Q BT /F27 9.9626 Tf 172.078 262.075 Td [(up)-32(d)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1002 0 obj -<< -/Length 2655 ->> -stream -0 g 0 G -======= q 1 0 0 1 192.179 262.275 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S @@ -11301,7 +7583,6 @@ q 1 0 0 1 222.504 262.275 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G BT /F8 9.9626 Tf 230.922 262.075 Td [(Up)-28(date)-398(strategy)-398(based)-398(on)-398(additional)-398(p)-28(erm)28(utation)-398(data)-398(\050s)-1(ee)]TJ -55.311 -11.955 Td [(to)-28(ols)-333(routine)-333(desc)-1(r)1(iption\051.)]TJ/F16 11.9552 Tf -24.906 -27.719 Td [(3.3)-1125(Dense)-375(V)94(ector)-375(Data)-375(Structure)]TJ/F8 9.9626 Tf 0 -18.389 Td [(The)]TJ/F30 9.9626 Tf 21.256 0 Td [(psb)]TJ @@ -11369,11 +7650,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1011 0 obj -======= 990 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 3718 >> @@ -11615,83 +7892,6 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -923 0 obj -<< -/Type /ObjStm -/N 100 -/First 889 -/Length 10064 ->> -stream -95 0 99 56 103 112 919 169 925 261 927 375 107 431 928 487 111 543 924 599 -930 691 932 805 115 862 119 919 123 976 929 1033 934 1125 936 1239 127 1295 131 1351 -933 1407 939 1499 941 1613 135 1670 139 1727 938 1783 943 1875 945 1989 143 2045 147 2101 -151 2157 942 2213 947 2305 949 2419 155 2476 946 2533 953 2625 950 2767 951 2914 955 3060 -159 3116 163 3172 167 3228 171 3284 956 3340 952 3397 959 3502 961 3616 957 3673 175 3730 -179 3787 183 3844 958 3901 965 3993 962 4135 963 4280 967 4425 187 4481 964 4537 973 4629 -970 4763 975 4909 191 4966 195 5023 199 5080 976 5137 972 5194 979 5312 971 5446 981 5593 -977 5649 204 5706 978 5762 984 5880 986 5994 208 6051 983 6108 995 6187 987 6361 988 6506 -989 6649 990 6794 991 6939 992 7082 997 7227 212 7283 969 7339 994 7395 1001 7526 993 7679 -998 7825 999 7967 1003 8112 1000 8171 1010 8277 1004 8452 1005 8595 1006 8741 1007 8884 1008 9029 -% 95 0 obj -<< -/D [920 0 R /XYZ 150.705 394.197 null] ->> -% 99 0 obj -<< -/D [920 0 R /XYZ 150.705 377.215 null] ->> -% 103 0 obj -<< -/D [920 0 R /XYZ 150.705 195.871 null] ->> -% 919 0 obj -<< -/Font << /F30 784 0 R /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 925 0 obj -<< -/Type /Page -/Contents 926 0 R -/Resources 924 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R ->> -% 927 0 obj -<< -/D [925 0 R /XYZ 98.895 753.953 null] ->> -% 107 0 obj -<< -/D [925 0 R /XYZ 99.895 609.837 null] ->> -% 928 0 obj -<< -/D [925 0 R /XYZ 99.895 392.536 null] ->> -% 111 0 obj -<< -/D [925 0 R /XYZ 99.895 328.891 null] ->> -% 924 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 930 0 obj -<< -/Type /Page -/Contents 931 0 R -/Resources 929 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 902 0 R ->> -% 932 0 obj -<< -/D [930 0 R /XYZ 149.705 753.953 null] -======= 1010 0 obj << /Length 3667 @@ -11841,46 +8041,17 @@ stream % 75 0 obj << /D [930 0 R /XYZ 150.705 527.714 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 933 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [930 0 R /XYZ 150.705 718.084 null] -======= /D [930 0 R /XYZ 395.482 368.65 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 79 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [930 0 R /XYZ 150.705 528.904 null] -======= /D [930 0 R /XYZ 150.705 321.259 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 83 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [930 0 R /XYZ 150.705 327.768 null] ->> -% 929 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 934 0 obj -<< -/Type /Page -/Contents 935 0 R -/Resources 933 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R ->> -% 936 0 obj -<< -/D [934 0 R /XYZ 98.895 753.953 null] -======= /D [930 0 R /XYZ 150.705 203.963 null] >> % 929 0 obj @@ -11899,38 +8070,13 @@ stream % 938 0 obj << /D [936 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 87 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [934 0 R /XYZ 99.895 718.084 null] -======= /D [936 0 R /XYZ 99.895 585.142 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 91 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [934 0 R /XYZ 99.895 477.598 null] ->> -% 933 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 939 0 obj -<< -/Type /Page -/Contents 940 0 R -/Resources 938 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R ->> -% 941 0 obj -<< -/D [939 0 R /XYZ 149.705 753.953 null] -======= /D [936 0 R /XYZ 99.895 467.965 null] >> % 95 0 obj @@ -11950,42 +8096,17 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 928 0 R /Annots [ 939 0 R 940 0 R 941 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 939 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [939 0 R /XYZ 150.705 718.084 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[0 1 0] /Rect [188.06 277.052 200.015 285.465] /A << /S /GoTo /D (cite.DesignPatterns) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 940 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [939 0 R /XYZ 150.705 383.68 null] ->> -% 938 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 943 0 obj -<< -/Type /Page -/Contents 944 0 R -/Resources 942 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R ->> -% 945 0 obj -<< -/D [943 0 R /XYZ 98.895 753.953 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[0 1 0] @@ -12007,46 +8128,17 @@ stream % 99 0 obj << /D [943 0 R /XYZ 150.705 553.709 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 103 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [943 0 R /XYZ 99.895 718.084 null] -======= /D [943 0 R /XYZ 150.705 332.359 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 946 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [943 0 R /XYZ 99.895 483.063 null] -======= /D [943 0 R /XYZ 171.358 301.959 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 947 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [943 0 R /XYZ 99.895 248.041 null] ->> -% 942 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 947 0 obj -<< -/Type /Page -/Contents 948 0 R -/Resources 946 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R ->> -% 949 0 obj -<< -/D [947 0 R /XYZ 149.705 753.953 null] -======= /D [943 0 R /XYZ 455.673 168.146 null] >> % 942 0 obj @@ -12061,29 +8153,9 @@ stream /Resources 950 0 R /MediaBox [0 0 595.276 841.89] /Parent 928 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 953 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [947 0 R /XYZ 150.705 476.867 null] ->> -% 946 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 953 0 obj -<< -/Type /Page -/Contents 954 0 R -/Resources 952 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R -/Annots [ 950 0 R 951 0 R ] ->> -% 950 0 obj -======= /D [951 0 R /XYZ 98.895 753.953 null] >> % 949 0 obj @@ -12095,87 +8167,36 @@ stream /D [951 0 R /XYZ 99.895 382.599 null] >> % 111 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [951 0 R /XYZ 99.895 364.643 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 951 0 obj -======= % 115 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [951 0 R /XYZ 99.895 191.212 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 955 0 obj -<< -/D [953 0 R /XYZ 98.895 753.953 null] -======= % 950 0 obj << /Font << /F30 810 0 R /F8 585 0 R /F27 584 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 955 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [953 0 R /XYZ 99.895 718.084 null] -======= /Type /Page /Contents 956 0 R /Resources 954 0 R /MediaBox [0 0 595.276 841.89] /Parent 928 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 957 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [953 0 R /XYZ 99.895 590.059 null] -======= /D [955 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 119 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [953 0 R /XYZ 99.895 402.035 null] -======= /D [955 0 R /XYZ 150.705 611.35 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 958 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [953 0 R /XYZ 99.895 233.858 null] ->> -% 956 0 obj -<< -/D [953 0 R /XYZ 121.151 204.012 null] ->> -% 952 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 959 0 obj -<< -/Type /Page -/Contents 960 0 R -/Resources 958 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 937 0 R ->> -% 961 0 obj -<< -/D [959 0 R /XYZ 149.705 753.953 null] ->> -% 957 0 obj -<< -/D [959 0 R /XYZ 208.488 433.055 null] -======= /D [955 0 R /XYZ 150.705 387.487 null] >> % 123 0 obj @@ -12198,39 +8219,22 @@ stream % 962 0 obj << /D [960 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 127 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [959 0 R /XYZ 150.705 391.443 null] -======= /D [960 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 131 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [959 0 R /XYZ 150.705 374.163 null] -======= /D [960 0 R /XYZ 99.895 527.657 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 135 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [959 0 R /XYZ 150.705 195.076 null] ->> -% 958 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -======= /D [960 0 R /XYZ 99.895 326.521 null] >> % 959 0 obj << /Font << /F27 584 0 R /F30 810 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 965 0 obj @@ -12239,72 +8243,18 @@ stream /Contents 966 0 R /Resources 964 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 968 0 R -/Annots [ 962 0 R 963 0 R ] ->> -% 962 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 385.356 389.062 396.204] -/A << /S /GoTo /D (table.1) >> ->> -% 963 0 obj -======= /Parent 963 0 R >> % 967 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [965 0 R /XYZ 149.705 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 967 0 obj -<< -/D [965 0 R /XYZ 98.895 753.953 null] -======= % 139 0 obj << /D [965 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 143 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [965 0 R /XYZ 99.895 613.581 null] ->> -% 964 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 973 0 obj -<< -/Type /Page -/Contents 974 0 R -/Resources 972 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 968 0 R -/Annots [ 970 0 R ] ->> -% 970 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [177.685 152.981 184.659 164.106] -/A << /S /GoTo /D (figure.6) >> ->> -% 975 0 obj -<< -/D [973 0 R /XYZ 149.705 753.953 null] ->> -% 191 0 obj -<< -/D [973 0 R /XYZ 150.705 718.084 null] -======= /D [965 0 R /XYZ 150.705 475.461 null] >> % 964 0 obj @@ -12319,41 +8269,13 @@ stream /Resources 968 0 R /MediaBox [0 0 595.276 841.89] /Parent 963 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 971 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [973 0 R /XYZ 150.705 430.016 null] -======= /D [969 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 147 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [973 0 R /XYZ 150.705 226.068 null] ->> -% 976 0 obj -<< -/D [973 0 R /XYZ 308.372 168.146 null] ->> -% 972 0 obj -<< -/Font << /F27 572 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 979 0 obj -<< -/Type /Page -/Contents 980 0 R -/Resources 978 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 968 0 R -/Annots [ 971 0 R ] ->> -% 971 0 obj -======= /D [969 0 R /XYZ 99.895 716.092 null] >> % 151 0 obj @@ -12374,19 +8296,9 @@ stream /Parent 963 0 R >> % 975 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [973 0 R /XYZ 149.705 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 981 0 obj -<< -/D [979 0 R /XYZ 98.895 753.953 null] ->> -% 977 0 obj -<< -/D [979 0 R /XYZ 155.478 656.371 null] -======= % 155 0 obj << /D [973 0 R /XYZ 150.705 716.092 null] @@ -12394,30 +8306,9 @@ stream % 159 0 obj << /D [973 0 R /XYZ 150.705 483.063 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 163 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [979 0 R /XYZ 99.895 622.553 null] ->> -% 978 0 obj -<< -/Font << /F47 982 0 R /F8 573 0 R /F16 570 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 984 0 obj -<< -/Type /Page -/Contents 985 0 R -/Resources 983 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 968 0 R ->> -% 986 0 obj -<< -/D [984 0 R /XYZ 149.705 753.953 null] -======= /D [973 0 R /XYZ 150.705 248.041 null] >> % 972 0 obj @@ -12436,29 +8327,9 @@ stream % 979 0 obj << /D [977 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 167 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [984 0 R /XYZ 150.705 716.092 null] ->> -% 983 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 995 0 obj -<< -/Type /Page -/Contents 996 0 R -/Resources 994 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 968 0 R -/Annots [ 987 0 R 988 0 R 989 0 R 990 0 R 991 0 R 992 0 R ] ->> -% 987 0 obj -======= /D [977 0 R /XYZ 99.895 476.867 null] >> % 976 0 obj @@ -12476,7 +8347,6 @@ stream /Annots [ 980 0 R 981 0 R ] >> % 980 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -12484,11 +8354,7 @@ stream /Rect [250.191 165.213 257.165 176.061] /A << /S /GoTo /D (section.6) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 988 0 obj -======= % 981 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -12496,35 +8362,19 @@ stream /Rect [343.178 129.347 350.152 140.196] /A << /S /GoTo /D (figure.5) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 989 0 obj -======= % 985 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [983 0 R /XYZ 149.705 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 990 0 obj -======= % 171 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [983 0 R /XYZ 150.705 716.092 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 991 0 obj -======= % 175 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [983 0 R /XYZ 150.705 588.122 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 992 0 obj -======= % 179 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [983 0 R /XYZ 150.705 402.035 null] >> @@ -12536,38 +8386,13 @@ stream << /D [983 0 R /XYZ 171.961 204.012 null] >> -% 997 0 obj +% 982 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [995 0 R /XYZ 98.895 753.953 null] -======= /Font << /F27 584 0 R /F30 810 0 R /F8 585 0 R /F16 582 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 989 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [995 0 R /XYZ 99.895 720.077 null] ->> -% 969 0 obj -<< -/D [995 0 R /XYZ 267.641 539.42 null] ->> -% 994 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1001 0 obj -<< -/Type /Page -/Contents 1002 0 R -/Resources 1000 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 968 0 R -/Annots [ 993 0 R 998 0 R 999 0 R ] -======= /Type /Page /Contents 990 0 R /Resources 988 0 R @@ -12607,7 +8432,6 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 992 0 R /Annots [ 993 0 R 994 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 993 0 obj << @@ -12617,11 +8441,7 @@ stream /Rect [432.897 385.356 439.871 396.204] /A << /S /GoTo /D (table.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 998 0 obj -======= % 994 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -12629,35 +8449,10 @@ stream /Rect [432.897 241.508 439.871 252.356] /A << /S /GoTo /D (table.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 999 0 obj -======= % 998 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [996 0 R /XYZ 149.705 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1003 0 obj -<< -/D [1001 0 R /XYZ 149.705 753.953 null] ->> -% 1000 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1010 0 obj -<< -/Type /Page -/Contents 1011 0 R -/Resources 1009 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R -/Annots [ 1004 0 R 1005 0 R 1006 0 R 1007 0 R 1008 0 R ] ->> -% 1004 0 obj -======= % 199 0 obj << /D [996 0 R /XYZ 150.705 612.689 null] @@ -12677,7 +8472,6 @@ stream /Annots [ 1000 0 R ] >> % 1000 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -12687,46 +8481,12 @@ stream >> % 1005 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.333 343.787 335.307 354.635] -/A << /S /GoTo /D (table.2) >> ->> -% 1006 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 264.06 444.603 275.185] -/A << /S /GoTo /D (vdata) >> ->> -% 1007 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [328.544 252.382 335.518 263.23] -/A << /S /GoTo /D (table.2) >> ->> -% 1008 0 obj -======= /D [1003 0 R /XYZ 98.895 753.953 null] >> % 204 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1003 0 R /XYZ 99.895 716.092 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1019 0 obj -<< -/Length 5114 -======= % 208 0 obj << /D [1003 0 R /XYZ 99.895 430.45 null] @@ -12785,96 +8545,11 @@ endobj /Resources 1013 0 R /MediaBox [0 0 595.276 841.89] /Parent 992 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -stream -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 175.611 706.129 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(scalar.)-445(Default:)]TJ/F30 9.9626 Tf 168.812 0 Td [(global=.true.)]TJ -0 g 0 G -/F27 9.9626 Tf -193.718 -31.881 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(is)-333(the)-334(dot)-333(pro)-28(duct)-333(of)-333(v)28(e)-1(ctors)]TJ/F11 9.9626 Tf 127.467 0 Td [(x)]TJ/F8 9.9626 Tf 9.014 0 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -214.575 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 31.841 0 Td [(global)]TJ/F8 9.9626 Tf 32.002 0 Td [(unless)-225(the)-226(optional)-225(v)55(ariable)]TJ/F30 9.9626 Tf 118.434 0 Td [(global=.false.)]TJ/F8 9.9626 Tf 75.471 0 Td [(has)-225(b)-28(een)-226(sp)-27(ec-)]TJ -257.748 -11.955 Td [(i\014ed)]TJ 0 -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)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(2)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(The)-241(computation)-240(of)-241(a)-241(gl)1(obal)-241(result)-241(requires)-240(a)-241(global)-241(comm)28(unication,)-259(whic)28(h)]TJ 12.73 -11.955 Td [(en)28(tails)-421(a)-420(s)-1(i)1(gni\014can)27(t)-420(o)28(v)27(erhead.)-706(It)-420(ma)27(y)-420(b)-28(e)-421(necessary)-420(and/or)-421(advisable)-420(to)]TJ 0 -11.955 Td [(compute)-265(m)27(ultiple)-265(dot)-265(pro)-28(ducts)-265(at)-266(the)-265(same)-266(time;)-288(in)-265(this)-265(case,)-279(it)-266(is)-265(p)-28(ossible)]TJ 0 -11.955 Td [(to)-333(impro)27(v)28(e)-333(the)-333(run)27(time)-333(e\016ciency)-333(b)27(y)-333(using)-333(the)-334(f)1(ollo)27(wing)-333(sc)28(heme:)]TJ 25.19 -17.933 Td [(v)-128(r)-129(e)-128(s)-259(\050)-130(1)-131(\051)-642(=)-625(p)-115(s)-114(b)]TJ -ET -q -1 0 0 1 279.461 443.314 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 283.591 443.115 Td [(g)-115(e)-114(d)-115(o)-114(t)-220(\050)-149(x)-43(1)-247(,)-204(y)-43(1)-248(,)-273(d)-113(e)-113(s)-112(c)]TJ -ET -q -1 0 0 1 379.47 443.314 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 383.581 443.115 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-415(,)-302(g)-141(l)-142(o)-141(b)-141(a)-141(l)-190(=)-48(.)]TJ/F27 9.9626 Tf 92.224 0 Td [(f)-132(a)-131(l)-132(s)-131(e)]TJ/F8 9.9626 Tf 30.348 0 Td [(.)-178(\051)]TJ -305.352 -11.955 Td [(v)-128(r)-129(e)-128(s)-259(\050)-130(2)-131(\051)-642(=)-625(p)-115(s)-114(b)]TJ -ET -q -1 0 0 1 279.461 431.359 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 283.591 431.16 Td [(g)-115(e)-114(d)-115(o)-114(t)-220(\050)-149(x)-43(2)-247(,)-204(y)-43(2)-248(,)-273(d)-113(e)-113(s)-112(c)]TJ -ET -q -1 0 0 1 379.47 431.359 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 383.581 431.16 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-415(,)-302(g)-141(l)-142(o)-141(b)-141(a)-141(l)-190(=)-48(.)]TJ/F27 9.9626 Tf 92.224 0 Td [(f)-132(a)-131(l)-132(s)-131(e)]TJ/F8 9.9626 Tf 30.348 0 Td [(.)-178(\051)]TJ -305.352 -11.955 Td [(v)-128(r)-129(e)-128(s)-259(\050)-130(3)-131(\051)-642(=)-625(p)-115(s)-114(b)]TJ -ET -q -1 0 0 1 279.461 419.404 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 283.591 419.205 Td [(g)-115(e)-114(d)-115(o)-114(t)-220(\050)-149(x)-43(3)-247(,)-204(y)-43(3)-248(,)-273(d)-113(e)-113(s)-112(c)]TJ -ET -q -1 0 0 1 379.47 419.404 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 383.581 419.205 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-415(,)-302(g)-141(l)-142(o)-141(b)-141(a)-141(l)-190(=)-48(.)]TJ/F27 9.9626 Tf 92.224 0 Td [(f)-132(a)-131(l)-132(s)-131(e)]TJ/F8 9.9626 Tf 30.348 0 Td [(.)-178(\051)]TJ/F27 9.9626 Tf -305.254 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.198 0 Td [(p)-69(s)-69(b)]TJ -ET -q -1 0 0 1 247.753 407.449 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 251.428 407.25 Td [(s)-69(u)-69(m)-174(\050)-245(i)-139(c)-139(t)-138(x)-139(t)-439(,)-290(v)-128(r)-128(e)-129(s)-293(\050)-165(1)-165(:)-165(3)-165(\051)-165(\051)]TJ -0 g 0 G -0 g 0 G - -75.817 -21.918 Td [(In)-354(th)1(is)-354(w)28(a)28(y)-354(the)-353(global)-354(comm)28(unication,)-359(whic)28(h)-353(for)-354(small)-353(size)-1(s)-353(is)-354(a)-353(latency-)]TJ 0 -11.955 Td [(b)-28(ound)-333(op)-28(eration,)-333(is)-333(in)27(v)28(ok)28(ed)-333(only)-334(once.)]TJ -0 g 0 G - 141.968 -282.939 Td [(32)]TJ -0 g 0 G -ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1035 0 obj -======= 1027 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7331 >> @@ -13092,16 +8767,6 @@ BT 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1040 0 obj -<< -/Length 625 ->> -stream -======= q 1 0 0 1 385.864 592.754 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S @@ -13122,7 +8787,6 @@ q Q BT /F30 9.9626 Tf 422.685 592.555 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(the)-334(t)28(yp)-28(e)-333(indicated)-333(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG @@ -13140,11 +8804,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1047 0 obj -======= 1043 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7709 >> @@ -13331,11 +8991,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1052 0 obj -======= 1049 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5125 >> @@ -13635,11 +9291,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1074 0 obj -======= 1077 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 6875 >> @@ -13796,11 +9448,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1079 0 obj -======= 1082 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4549 >> @@ -13879,11 +9527,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1092 0 obj -======= 1096 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 6320 >> @@ -14029,18 +9673,6 @@ BT 0 g 0 G /F27 9.9626 Tf -225.63 -19.925 Td [(On)-383(Return)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -ET - -endstream -endobj -1097 0 obj -<< -/Length 624 ->> -stream -======= ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 -19.925 Td [(res)]TJ 0 g 0 G @@ -14292,11 +9924,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1123 0 obj -======= 1122 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7328 >> @@ -14453,103 +10081,6 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1015 0 obj -<< -/Type /ObjStm -/N 100 -/First 977 -/Length 10805 ->> -stream -1012 0 216 58 1013 115 1009 174 1018 319 1016 458 1020 604 1021 663 1022 722 1023 781 -1024 839 1025 898 1026 956 1017 1015 1034 1134 1027 1318 1028 1462 1029 1607 1030 1751 1031 1897 -1032 2044 1036 2189 220 2247 1037 2304 1033 2363 1039 2508 1041 2626 1038 2685 1046 2765 1042 2922 -1043 3065 1044 3210 1048 3357 224 3415 1049 3472 1045 3530 1051 3675 1053 3793 1054 3852 1055 3911 -1056 3970 1057 4029 1058 4088 1059 4147 1050 4206 1064 4325 1060 4482 1061 4626 1062 4772 1066 4918 -228 4976 1067 5033 1063 5092 1073 5237 1069 5394 1070 5538 1071 5684 1075 5831 232 5890 1076 5948 -1072 6007 1078 6164 1080 6282 1081 6340 1082 6398 1083 6456 1084 6515 1085 6574 1086 6633 1077 6692 -1091 6785 1087 6942 1088 7085 1089 7230 1093 7376 236 7435 1094 7493 1090 7552 1096 7709 1098 7827 -1095 7885 1103 7965 1099 8122 1100 8266 1101 8412 1105 8559 240 8618 1106 8676 1102 8735 1108 8880 -1110 8998 1111 9056 1112 9114 1113 9172 1114 9231 1115 9290 1116 9349 1107 9408 1122 9527 1118 9684 -% 1012 0 obj -<< -/D [1010 0 R /XYZ 98.895 753.953 null] ->> -% 216 0 obj -<< -/D [1010 0 R /XYZ 99.895 720.077 null] ->> -% 1013 0 obj -<< -/D [1010 0 R /XYZ 267.641 490.516 null] ->> -% 1009 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1018 0 obj -<< -/Type /Page -/Contents 1019 0 R -/Resources 1017 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R -/Annots [ 1016 0 R ] ->> -% 1016 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [432.897 603.569 439.871 614.417] -/A << /S /GoTo /D (table.2) >> ->> -% 1020 0 obj -<< -/D [1018 0 R /XYZ 149.705 753.953 null] ->> -% 1021 0 obj -<< -/D [1018 0 R /XYZ 150.705 512.854 null] ->> -% 1022 0 obj -<< -/D [1018 0 R /XYZ 150.705 453.133 null] ->> -% 1023 0 obj -<< -/D [1018 0 R /XYZ 175.611 455.07 null] ->> -% 1024 0 obj -<< -/D [1018 0 R /XYZ 175.611 443.115 null] ->> -% 1025 0 obj -<< -/D [1018 0 R /XYZ 175.611 431.16 null] ->> -% 1026 0 obj -<< -/D [1018 0 R /XYZ 175.611 419.205 null] ->> -% 1017 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R /F11 770 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1034 0 obj -<< -/Type /Page -/Contents 1035 0 R -/Resources 1033 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R -/Annots [ 1027 0 R 1028 0 R 1029 0 R 1030 0 R 1031 0 R 1032 0 R ] ->> -% 1027 0 obj -======= 1017 0 obj << /Type /ObjStm @@ -14591,7 +10122,6 @@ stream /Annots [ 1018 0 R 1019 0 R 1020 0 R 1021 0 R 1022 0 R 1023 0 R ] >> % 1018 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14599,11 +10129,7 @@ stream /Rect [432.897 401.949 439.871 412.798] /A << /S /GoTo /D (table.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1028 0 obj -======= % 1019 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14611,11 +10137,7 @@ stream /Rect [419.358 333.522 495.412 344.647] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1029 0 obj -======= % 1020 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14623,11 +10145,7 @@ stream /Rect [379.142 321.844 386.116 332.692] /A << /S /GoTo /D (table.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1030 0 obj -======= % 1021 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14635,11 +10153,7 @@ stream /Rect [432.897 241.738 439.871 252.586] /A << /S /GoTo /D (table.1) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1031 0 obj -======= % 1022 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14647,64 +10161,11 @@ stream /Rect [419.358 173.311 495.412 184.436] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1032 0 obj -======= % 1023 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [151.203 119.329 158.177 128.24] -/A << /S /GoTo /D (table.2) >> ->> -% 1036 0 obj -<< -/D [1034 0 R /XYZ 98.895 753.953 null] ->> -% 220 0 obj -<< -/D [1034 0 R /XYZ 99.895 720.077 null] ->> -% 1037 0 obj -<< -/D [1034 0 R /XYZ 267.641 510.309 null] ->> -% 1033 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1039 0 obj -<< -/Type /Page -/Contents 1040 0 R -/Resources 1038 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R ->> -% 1041 0 obj -<< -/D [1039 0 R /XYZ 149.705 753.953 null] ->> -% 1038 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1046 0 obj -<< -/Type /Page -/Contents 1047 0 R -/Resources 1045 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R -/Annots [ 1042 0 R 1043 0 R 1044 0 R ] ->> -% 1042 0 obj -======= /Rect [396.435 161.632 403.409 172.481] /A << /S /GoTo /D (table.1) >> >> @@ -14735,7 +10196,6 @@ stream /Annots [ 1024 0 R 1029 0 R 1030 0 R ] >> % 1024 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14743,11 +10203,7 @@ stream /Rect [259.464 679.008 326.522 690.133] /A << /S /GoTo /D (descdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1043 0 obj -======= % 1029 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -14755,49 +10211,16 @@ stream /Rect [368.549 589.345 444.603 600.47] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1044 0 obj -======= % 1030 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [259.464 233.372 326.522 244.497] -/A << /S /GoTo /D (descdata) >> ->> -% 1048 0 obj -<< -/D [1046 0 R /XYZ 98.895 753.953 null] ->> -% 224 0 obj -<< -/D [1046 0 R /XYZ 99.895 720.077 null] -======= /Rect [345.558 577.666 352.532 588.514] /A << /S /GoTo /D (table.1) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1049 0 obj +% 1034 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1046 0 R /XYZ 267.641 459.44 null] ->> -% 1045 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1051 0 obj -<< -/Type /Page -/Contents 1052 0 R -/Resources 1050 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1014 0 R -======= /D [1032 0 R /XYZ 98.895 753.953 null] >> % 1031 0 obj @@ -14829,75 +10252,25 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [379.142 343.787 386.116 354.635] /A << /S /GoTo /D (table.2) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1053 0 obj +% 1038 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1051 0 R /XYZ 149.705 753.953 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [419.358 264.06 495.412 275.185] /A << /S /GoTo /D (vdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1054 0 obj +% 1039 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1051 0 R /XYZ 150.705 576.615 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [379.353 252.382 386.327 263.23] /A << /S /GoTo /D (table.2) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1055 0 obj +% 1040 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1051 0 R /XYZ 150.705 516.894 null] ->> -% 1056 0 obj -<< -/D [1051 0 R /XYZ 175.611 518.831 null] ->> -% 1057 0 obj -<< -/D [1051 0 R /XYZ 175.611 506.876 null] ->> -% 1058 0 obj -<< -/D [1051 0 R /XYZ 175.611 494.921 null] ->> -% 1059 0 obj -<< -/D [1051 0 R /XYZ 175.611 482.966 null] ->> -% 1050 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1064 0 obj -<< -/Type /Page -/Contents 1065 0 R -/Resources 1063 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1068 0 R -/Annots [ 1060 0 R 1061 0 R 1062 0 R ] ->> -% 1060 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 401.031 444.603 412.156] -/A << /S /GoTo /D (vdata) >> -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -14929,9 +10302,8 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1035 0 R /Annots [ 1046 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1061 0 obj +% 1046 0 obj << /Type /Annot /Subtype /Link @@ -14939,47 +10311,16 @@ stream /Rect [382.088 603.569 389.062 614.417] /A << /S /GoTo /D (table.2) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1062 0 obj -======= % 1050 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1048 0 R /XYZ 98.895 753.953 null] >> -% 1066 0 obj +% 1051 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1064 0 R /XYZ 98.895 753.953 null] -======= /D [1048 0 R /XYZ 99.895 512.854 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1052 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1064 0 R /XYZ 99.895 720.077 null] ->> -% 1067 0 obj -<< -/D [1064 0 R /XYZ 267.641 537.464 null] ->> -% 1063 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1073 0 obj -<< -/Type /Page -/Contents 1074 0 R -/Resources 1072 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1068 0 R -/Annots [ 1069 0 R 1070 0 R 1071 0 R ] ->> -% 1069 0 obj -======= /D [1048 0 R /XYZ 99.895 453.133 null] >> % 1053 0 obj @@ -15013,7 +10354,6 @@ stream /Annots [ 1057 0 R 1058 0 R 1059 0 R 1060 0 R 1061 0 R 1062 0 R ] >> % 1057 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -15021,11 +10361,7 @@ stream /Rect [419.358 382.111 495.412 393.236] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1070 0 obj -======= % 1058 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -15033,11 +10369,7 @@ stream /Rect [379.142 370.432 386.116 381.28] /A << /S /GoTo /D (table.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1071 0 obj -======= % 1059 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -15045,48 +10377,16 @@ stream /Rect [419.358 291.951 495.412 303.076] /A << /S /GoTo /D (vdata) >> >> -% 1075 0 obj +% 1060 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1073 0 R /XYZ 149.705 753.953 null] ->> -% 232 0 obj -<< -/D [1073 0 R /XYZ 150.705 720.077 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [379.353 280.273 386.327 291.121] /A << /S /GoTo /D (table.3) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1076 0 obj +% 1061 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1073 0 R /XYZ 318.451 490.109 null] ->> -% 1072 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1078 0 obj -<< -/Type /Page -/Contents 1079 0 R -/Resources 1077 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1068 0 R ->> -% 1080 0 obj -<< -/D [1078 0 R /XYZ 98.895 753.953 null] ->> -% 1081 0 obj -<< -/D [1078 0 R /XYZ 99.895 632.405 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -15108,73 +10408,43 @@ stream % 232 0 obj << /D [1064 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1082 0 obj +% 1067 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1078 0 R /XYZ 99.895 572.685 null] ->> -% 1083 0 obj -<< -/D [1078 0 R /XYZ 124.802 574.622 null] -======= /D [1064 0 R /XYZ 318.451 510.309 null] >> % 1063 0 obj << /Font << /F16 582 0 R /F8 585 0 R /F11 796 0 R /F14 813 0 R /F10 812 0 R /F30 810 0 R /F27 584 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1084 0 obj +% 1069 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1078 0 R /XYZ 124.802 562.667 null] ->> -% 1085 0 obj -<< -/D [1078 0 R /XYZ 124.802 550.712 null] -======= /Type /Page /Contents 1070 0 R /Resources 1068 0 R /MediaBox [0 0 595.276 841.89] /Parent 1035 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1086 0 obj +% 1071 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1078 0 R /XYZ 124.802 538.757 null] ->> -% 1077 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F16 570 0 R >> -======= /D [1069 0 R /XYZ 98.895 753.953 null] >> % 1068 0 obj << /Font << /F27 584 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1091 0 obj +% 1076 0 obj << /Type /Page -/Contents 1092 0 R -/Resources 1090 0 R +/Contents 1077 0 R +/Resources 1075 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1068 0 R -/Annots [ 1087 0 R 1088 0 R 1089 0 R ] -======= /Parent 1035 0 R /Annots [ 1072 0 R 1073 0 R 1074 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1087 0 obj +% 1072 0 obj << /Type /Annot /Subtype /Link @@ -15182,7 +10452,7 @@ stream /Rect [419.358 315.41 495.412 326.535] /A << /S /GoTo /D (vdata) >> >> -% 1088 0 obj +% 1073 0 obj << /Type /Annot /Subtype /Link @@ -15190,7 +10460,7 @@ stream /Rect [376.221 303.732 383.195 314.58] /A << /S /GoTo /D (table.4) >> >> -% 1089 0 obj +% 1074 0 obj << /Type /Annot /Subtype /Link @@ -15198,157 +10468,53 @@ stream /Rect [310.273 233.372 377.331 244.497] /A << /S /GoTo /D (descdata) >> >> -% 1093 0 obj +% 1078 0 obj << -/D [1091 0 R /XYZ 149.705 753.953 null] +/D [1076 0 R /XYZ 149.705 753.953 null] >> % 236 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1091 0 R /XYZ 150.705 720.077 null] -======= /D [1076 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1094 0 obj +% 1079 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1091 0 R /XYZ 318.451 432.072 null] -======= /D [1076 0 R /XYZ 318.451 459.44 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1090 0 obj +% 1075 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> -======= /Font << /F16 582 0 R /F8 585 0 R /F11 796 0 R /F14 813 0 R /F10 812 0 R /F30 810 0 R /F27 584 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1096 0 obj +% 1081 0 obj << /Type /Page -/Contents 1097 0 R -/Resources 1095 0 R +/Contents 1082 0 R +/Resources 1080 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1068 0 R -======= /Parent 1090 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1098 0 obj +% 1083 0 obj << -/D [1096 0 R /XYZ 98.895 753.953 null] +/D [1081 0 R /XYZ 98.895 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1095 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1103 0 obj -<< -/Type /Page -/Contents 1104 0 R -/Resources 1102 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1068 0 R -/Annots [ 1099 0 R 1100 0 R 1101 0 R ] ->> -% 1099 0 obj -======= % 1084 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1081 0 R /XYZ 99.895 576.615 null] >> -% 1100 0 obj +% 1085 0 obj << /D [1081 0 R /XYZ 99.895 516.894 null] >> -% 1101 0 obj +% 1086 0 obj << /D [1081 0 R /XYZ 124.802 518.831 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1105 0 obj -<< -/D [1103 0 R /XYZ 149.705 753.953 null] -======= % 1087 0 obj << /D [1081 0 R /XYZ 124.802 506.876 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1088 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1103 0 R /XYZ 150.705 720.077 null] ->> -% 1106 0 obj -<< -/D [1103 0 R /XYZ 318.451 500.643 null] ->> -% 1102 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1108 0 obj -<< -/Type /Page -/Contents 1109 0 R -/Resources 1107 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R ->> -% 1110 0 obj -<< -/D [1108 0 R /XYZ 98.895 753.953 null] ->> -% 1111 0 obj -<< -/D [1108 0 R /XYZ 99.895 564.659 null] ->> -% 1112 0 obj -<< -/D [1108 0 R /XYZ 99.895 504.939 null] ->> -% 1113 0 obj -<< -/D [1108 0 R /XYZ 124.802 506.876 null] ->> -% 1114 0 obj -<< -/D [1108 0 R /XYZ 124.802 494.921 null] ->> -% 1115 0 obj -<< -/D [1108 0 R /XYZ 124.802 482.966 null] ->> -% 1116 0 obj -<< -/D [1108 0 R /XYZ 124.802 471.011 null] ->> -% 1107 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1122 0 obj -<< -/Type /Page -/Contents 1123 0 R -/Resources 1121 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R -/Annots [ 1118 0 R 1119 0 R 1120 0 R ] ->> -% 1118 0 obj -======= /D [1081 0 R /XYZ 124.802 494.921 null] >> % 1089 0 obj @@ -15420,7 +10586,6 @@ stream /Annots [ 1099 0 R 1100 0 R 1101 0 R ] >> % 1099 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -15428,14 +10593,6 @@ stream /Rect [368.549 359.763 444.603 370.887] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1131 0 obj -<< -/Length 5516 -======= % 1100 0 obj << /Type /Annot @@ -15542,161 +10699,10 @@ endobj /Border[0 0 0]/H/I/C[1 0 0] /Rect [259.464 208.355 326.522 219.48] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(norm1)-375(|)-375(1-Norm)-375(of)-375(Sparse)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(1-norm)-334(of)-333(a)-333(matrix)]TJ/F11 9.9626 Tf 209.659 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(:)]TJ/F11 9.9626 Tf -76.216 -33.873 Td [(nr)-28(m)]TJ/F8 9.9626 Tf 19.499 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\040)-278(k)]TJ/F11 9.9626 Tf 17.711 0 Td [(A)]TJ/F14 9.9626 Tf 7.472 0 Td [(k)]TJ/F7 6.9738 Tf 4.981 -1.495 Td [(1)]TJ/F8 9.9626 Tf -198.327 -20.423 Td [(where:)]TJ -0 g 0 G -/F11 9.9626 Tf 0 -19.926 Td [(A)]TJ -0 g 0 G -/F8 9.9626 Tf 12.454 0 Td [(represen)28(ts)-334(the)-333(global)-333(matrix)]TJ/F11 9.9626 Tf 125.834 0 Td [(A)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -ET -q -1 0 0 1 180.183 589.962 cm -[]0 d 0 J 0.398 w 0 0 m 183.136 0 l S -Q -BT -/F11 9.9626 Tf 186.161 581.394 Td [(A)]TJ/F27 9.9626 Tf 120.409 0 Td [(F)96(unction)]TJ -ET -q -1 0 0 1 180.183 577.608 cm -[]0 d 0 J 0.398 w 0 0 m 183.136 0 l S -Q -BT -/F8 9.9626 Tf 186.161 569.04 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ -ET -q -1 0 0 1 322.167 569.24 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 325.156 569.04 Td [(spnrm1)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 322.167 557.284 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 325.156 557.085 Td [(spnrm1)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ -ET -q -1 0 0 1 322.167 545.329 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 325.156 545.13 Td [(spnrm1)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 322.167 533.374 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 325.156 533.175 Td [(spnrm1)]TJ -ET -q -1 0 0 1 180.183 529.389 cm -[]0 d 0 J 0.398 w 0 0 m 183.136 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 225.577 501.35 Td [(T)83(able)-333(10:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -125.682 -33.873 Td [(psb_spnrm1\050A,)-525(desc_a,)-525(info\051)]TJ 0 -11.956 Td [(psb_norm1\050A,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.917 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(the)-333(global)-333(sparse)-334(matrix)]TJ/F11 9.9626 Tf 196.126 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -189.242 -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(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 135.658 0 Td [(psb)]TJ -ET -q -1 0 0 1 276.779 346.132 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 279.917 345.932 Td [(Tspmat)]TJ -ET -q -1 0 0 1 311.927 346.132 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.065 345.932 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -236.091 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 326.206 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 326.007 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 135.658 0 Td [(psb)]TJ -ET -q -1 0 0 1 276.779 278.386 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 279.917 278.186 Td [(desc)]TJ -ET -q -1 0 0 1 301.466 278.386 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 304.604 278.186 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -225.631 -19.925 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(is)-333(the)-334(1-norm)-333(of)-333(sparse)-334(submatrix)]TJ/F11 9.9626 Tf 150.297 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -211.249 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(long)-333(precision)-333(real)-334(n)28(um)28(b)-28(er.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -56.242 Td [(45)]TJ -0 g 0 G -ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1138 0 obj -======= 1128 0 obj << /Length 625 @@ -15717,7 +10723,6 @@ ET endstream endobj 1135 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 6477 >> @@ -15888,11 +10893,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1149 0 obj -======= 1141 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 4643 >> @@ -16044,22 +11045,6 @@ Q BT /F8 9.9626 Tf 228.067 528.968 Td [(T)83(able)-333(9:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [(.)-470(The)-342(rank)-342(of)]TJ/F11 9.9626 Tf 274.694 0 Td [(x)]TJ/F8 9.9626 Tf 9.101 0 Td [(m)28(ust)-342(b)-28(e)]TJ -283.795 -11.955 Td [(the)-333(same)-334(of)]TJ/F11 9.9626 Tf 53.466 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -0 g 0 G - 83.26 -29.888 Td [(47)]TJ -0 g 0 G -ET - -endstream -endobj -1164 0 obj -<< -/Length 6976 ->> -stream -======= ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G /F27 9.9626 Tf -128.172 -33.596 Td [(T)32(yp)-32(e:)]TJ @@ -16069,42 +11054,13 @@ stream /F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -18.597 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -167.482 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-56(j)1(e)-1(ct)-254(of)-255(t)28(yp)-28(e)]TJ -======= 0 -19.926 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -167.933 -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.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 436.673 592.09 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 439.811 591.891 Td [(T)]TJ -ET -q -1 0 0 1 445.669 592.09 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 448.807 591.891 Td [(vect)]TJ -ET -q -1 0 0 1 470.356 592.09 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 473.495 591.891 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf -297.884 -11.956 Td [(con)28(taining)-345(n)28(um)28(b)-28(ers)-345(of)-345(t)28(yp)-28(e)-345(sp)-28(eci\014ed)-345(in)-345(T)84(able)]TJ -======= 1 0 0 1 385.864 407.9 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -16126,22 +11082,11 @@ BT /F30 9.9626 Tf 422.685 407.701 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)28(yp)-28(e)-334(sp)-27(eci\014ed)-334(in)-333(T)83(able)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG [-333(9)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -84.067 -18.597 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 549.583 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 549.383 Td [(a)]TJ -======= /F27 9.9626 Tf -24.907 -19.926 Td [(desc)]TJ ET q @@ -16150,61 +11095,12 @@ q Q BT /F27 9.9626 Tf 125.247 375.82 Td [(a)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 135.658 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 327.588 501.762 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 330.727 501.563 Td [(desc)]TJ -ET -q -1 0 0 1 352.275 501.762 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 355.414 501.563 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -225.63 -18.597 Td [(trans)]TJ -0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(indicates)-333(what)-334(kind)-333(of)-333(op)-28(eration)-333(to)-333(p)-28(erform.)]TJ -0 g 0 G -/F27 9.9626 Tf -5.703 -18.597 Td [(trans)-383(=)-384(N)]TJ -0 g 0 G -/F8 9.9626 Tf 56.124 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-28(eci\014ed)-333(b)28(y)-333(equation)]TJ -0 0 1 rg 0 0 1 RG - [-334(1)]TJ -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -56.124 -14.612 Td [(trans)-383(=)-384(T)]TJ -0 g 0 G -/F8 9.9626 Tf 55.128 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-28(eci\014ed)-333(b)28(y)-333(equation)]TJ -0 0 1 rg 0 0 1 RG - [-334(2)]TJ -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -55.128 -14.612 Td [(trans)-383(=)-384(C)]TJ -0 g 0 G -/F8 9.9626 Tf 55.433 0 Td [(the)-333(op)-28(eration)-333(is)-334(sp)-27(ec)-1(i\014)1(e)-1(d)-333(b)28(y)-333(equation)]TJ -0 0 1 rg 0 0 1 RG - [-334(3)]TJ -0 g 0 G - -55.433 -18.597 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(tr)-28(ans)]TJ/F8 9.9626 Tf 27.052 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(N)]TJ/F8 9.9626 Tf -77.005 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(c)28(haracter)-334(v)56(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -18.596 Td [(w)32(ork)]TJ -0 g 0 G -/F8 9.9626 Tf 29.431 0 Td [(w)28(ork)-334(arr)1(a)27(y)84(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-487(as:)-753(a)-487(rank)-488(one)-487(arra)28(y)-488(of)-487(the)-488(same)-487(t)27(yp)-27(e)-488(of)]TJ/F11 9.9626 Tf 239.183 0 Td [(x)]TJ/F8 9.9626 Tf 10.551 0 Td [(and)]TJ/F11 9.9626 Tf 20.907 0 Td [(y)]TJ/F8 9.9626 Tf 10.099 0 Td [(with)-487(the)]TJ -280.74 -11.955 Td [(T)83(AR)28(GET)-333(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -18.597 Td [(On)-383(Return)]TJ -======= 1 0 0 1 276.779 328.199 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -16219,46 +11115,25 @@ BT /F30 9.9626 Tf 304.604 328 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -225.631 -19.926 Td [(On)-383(Return)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -18.597 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 147.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -138.728 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-475(of)-474(rank)-475(one)-474(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(um)28(b)-28(ers)-474(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(12)]TJ -======= 0 g 0 G 0 -19.925 Td [(res)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 19.47 0 Td [(con)28(tains)-334(the)-333(1-norm)-333(of)-334(\050th)1(e)-334(columns)-333(of)-78(\051)]TJ/F11 9.9626 Tf 177.751 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -178.008 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(long)-333(precision)-333(real)-334(n)28(um)28(b)-28(er.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -18.597 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ -0 g 0 G - 141.968 -36.529 Td [(48)]TJ -======= /F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G 141.968 -94.1 Td [(45)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1170 0 obj -======= 1161 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5520 >> @@ -16412,11 +11287,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1182 0 obj -======= 1168 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 5557 >> @@ -16570,11 +11441,7 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1188 0 obj -======= 1179 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length 7334 >> @@ -16613,155 +11480,12 @@ BT 0 g 0 G /F11 9.9626 Tf -135.822 -17.433 Td [(A)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 25.827 0 Td [(the)-333(diagonal)-334(scaling)-333(matrix.)]TJ -0.92 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(diag)]TJ/F8 9.9626 Tf 18.993 0 Td [(\0501\051)-278(=)-277(1\050)]TJ/F11 9.9626 Tf 34.869 0 Td [(noscal)-20(ing)]TJ/F8 9.9626 Tf 42.747 0 Td [(\051)]TJ -136.045 -11.955 Td [(Sp)-28(eci\014ed)-382(as:)-543(a)-382(rank)-382(one)-383(arra)28(y)-382(con)27(taining)-382(n)28(um)28(b)-28(ers)-383(of)-382(the)-382(t)27(yp)-27(e)-383(indicated)]TJ 0 -11.955 Td [(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(13)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(w)32(ork)]TJ -0 g 0 G -/F8 9.9626 Tf 29.432 0 Td [(a)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-377(as:)-531(a)-377(rank)-376(one)-377(arra)28(y)-377(of)-377(the)-377(same)-377(t)28(yp)-28(e)-377(of)]TJ/F11 9.9626 Tf 225.953 0 Td [(x)]TJ/F8 9.9626 Tf 9.448 0 Td [(with)-377(the)-377(T)84(AR)28(GET)]TJ -235.401 -11.955 Td [(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -167.481 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-474(of)-475(rank)-475(on)1(e)-475(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(u)1(m)27(b)-27(e)-1(r)1(s)-475(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(13)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -73.723 Td [(51)]TJ -0 g 0 G -ET - -endstream -endobj -1199 0 obj -<< -/Length 7422 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(gemlt)-375(|)-375(En)31(trywise)-375(Pro)-31(duct)]TJ/F8 9.9626 Tf -25.091 -19.771 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(pro)-28(duct)-333(b)-28(et)28(w)28(een)-334(t)28(w)28(o)-333(v)27(ectors)]TJ/F11 9.9626 Tf 296.14 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)]TJ/F11 9.9626 Tf 19.371 0 Td [(y)]TJ -185.258 -23.403 Td [(dot)]TJ/F14 9.9626 Tf 16.38 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(:)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -201.675 -24.145 Td [(psb_gemlt\050x,)-525(y,)-525(desc_a,)-525(info\051)]TJ -======= /F8 9.9626 Tf 12.453 0 Td [(is)-333(the)-334(global)-333(sparse)-333(matrix)]TJ/F11 9.9626 Tf 118.943 0 Td [(A)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G 0 g 0 G ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 234.474 610.766 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F11 9.9626 Tf 240.452 602.198 Td [(dot)]TJ/F8 9.9626 Tf 13.612 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 88.927 0 Td [(F)96(unction)]TJ -ET -q -1 0 0 1 234.474 598.412 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F8 9.9626 Tf 240.452 589.845 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ -ET -q -1 0 0 1 376.459 590.044 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 589.845 Td [(gemlt)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 376.459 578.089 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 577.889 Td [(gemlt)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ -ET -q -1 0 0 1 376.459 566.134 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 565.934 Td [(gemlt)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 376.459 554.178 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 553.979 Td [(gemlt)]TJ -ET -q -1 0 0 1 234.474 550.193 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 276.386 522.154 Td [(T)83(able)-333(14:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -125.681 -37.309 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -22.895 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -22.895 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 333.957 391.433 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 391.234 Td [(T)]TJ -ET -q -1 0 0 1 342.953 391.433 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 391.234 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 391.433 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 391.234 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ -0 0 1 rg 0 0 1 RG - [-334(2)]TJ -======= 1 0 0 1 228.797 525.728 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S Q @@ -16898,15 +11622,8 @@ endobj >> stream 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -22.895 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -164.99 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -======= BT /F27 9.9626 Tf 99.895 706.129 Td [(b)-32(eta)]TJ 0 g 0 G @@ -16919,36 +11636,10 @@ BT /F27 9.9626 Tf -24.907 -18.597 Td [(y)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -167.481 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ +/F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 333.957 308.762 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 308.563 Td [(T)]TJ -ET -q -1 0 0 1 342.953 308.762 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 308.563 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 308.762 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 308.563 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ -0 0 1 rg 0 0 1 RG - [-334(2)]TJ -======= 1 0 0 1 385.864 592.09 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -16972,38 +11663,9 @@ BT /F8 9.9626 Tf -297.883 -11.956 Td [(con)28(taining)-345(n)28(um)28(b)-28(ers)-345(of)-345(t)28(yp)-28(e)-345(sp)-28(eci\014ed)-345(in)-345(T)84(able)]TJ 0 0 1 rg 0 0 1 RG [-345(12)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [(.)-479(The)-345(rank)-345(of)]TJ/F11 9.9626 Tf 275.086 0 Td [(y)]TJ/F8 9.9626 Tf 8.678 0 Td [(m)28(ust)-345(b)-28(e)]TJ -283.764 -11.955 Td [(the)-333(same)-334(of)]TJ/F11 9.9626 Tf 53.466 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -22.895 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 273.912 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 273.713 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ -ET -q -1 0 0 1 327.588 226.091 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 330.727 225.892 Td [(desc)]TJ -ET -q -1 0 0 1 352.275 226.091 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 355.414 225.892 Td [(type)]TJ -======= /F27 9.9626 Tf -84.067 -18.597 Td [(desc)]TJ ET q @@ -17030,13 +11692,9 @@ q Q BT /F30 9.9626 Tf 304.604 501.563 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -225.63 -22.895 Td [(On)-383(Return)]TJ -======= /F27 9.9626 Tf -225.631 -18.597 Td [(trans)]TJ 0 g 0 G /F8 9.9626 Tf 30.609 0 Td [(indicates)-333(what)-334(kind)-333(of)-333(op)-28(eration)-333(to)-334(p)-27(erform.)]TJ @@ -17104,56 +11762,9 @@ q Q BT /F16 11.9552 Tf 213.156 706.129 Td [(spsm)-375(|)-375(T)94(riangular)-375(System)-375(Solv)31(e)]TJ/F8 9.9626 Tf -62.451 -19.095 Td [(This)-333(subroutine)-334(computes)-333(the)-333(T)83(riangular)-333(System)-334(S)1(o)-1(l)1(v)27(e:)]TJ/F11 9.9626 Tf 121.692 -35.01 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F7 6.9738 Tf 6.226 0 Td [(1)]TJ/F11 9.9626 Tf 4.47 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.907 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -77.312 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(D)-27(T)]TJ/F13 6.9738 Tf 22.141 4.113 Td [(\000)]TJ/F7 6.9738 Tf 6.226 0 Td [(1)]TJ/F11 9.9626 Tf 4.47 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.907 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -85.837 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F7 6.9738 Tf 6.226 0 Td [(1)]TJ/F11 9.9626 Tf 4.47 -4.113 Td [(D)-28(x)]TJ/F8 9.9626 Tf 16.432 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -85.837 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(T)]TJ/F11 9.9626 Tf 6.276 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.908 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -79.119 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(D)-27(T)]TJ/F13 6.9738 Tf 22.141 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(T)]TJ/F11 9.9626 Tf 6.276 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.908 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -87.644 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(T)]TJ/F11 9.9626 Tf 6.276 -4.113 Td [(D)-28(x)]TJ/F8 9.9626 Tf 16.433 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -87.644 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(H)]TJ/F11 9.9626 Tf 7.557 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.907 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -80.399 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(D)-27(T)]TJ/F13 6.9738 Tf 22.141 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(H)]TJ/F11 9.9626 Tf 7.557 -4.113 Td [(x)]TJ/F8 9.9626 Tf 7.907 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ -88.924 -14.944 Td [(y)]TJ/F14 9.9626 Tf 15.205 0 Td [(\040)]TJ/F11 9.9626 Tf 19.925 0 Td [(\013)-4(T)]TJ/F13 6.9738 Tf 13.616 4.113 Td [(\000)]TJ/F10 6.9738 Tf 6.226 0 Td [(H)]TJ/F11 9.9626 Tf 7.557 -4.113 Td [(D)-28(x)]TJ/F8 9.9626 Tf 16.432 0 Td [(+)]TJ/F11 9.9626 Tf 9.963 0 Td [(\014)-53(y)]TJ/F8 9.9626 Tf -195.672 -37.999 Td [(where:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F11 9.9626 Tf -14.944 -21.063 Td [(x)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -22.896 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -153.727 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 333.957 132.48 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 132.281 Td [(T)]TJ -ET -q -1 0 0 1 342.953 132.48 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 132.281 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 132.48 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 132.281 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(14)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G - 141.968 -29.888 Td [(52)]TJ -0 g 0 G -ET - -endstream -endobj -1204 0 obj -<< -/Length 624 ->> -stream -======= /F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 116.093 0 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(:)]TJ/F10 6.9738 Tf 2.255 0 Td [(;)]TJ/F7 6.9738 Tf 2.366 0 Td [(:)]TJ 0 g 0 G /F11 9.9626 Tf -137.083 -19.948 Td [(y)]TJ @@ -17227,20 +11838,11 @@ BT 0 g 0 G 0 g 0 G /F27 9.9626 Tf -125.681 -35.492 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -21.442 Td [(On)-383(En)32(try)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F27 9.9626 Tf 99.895 706.129 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -567.87 Td [(53)]TJ -======= 0 g 0 G 0 -21.442 Td [(alpha)]TJ 0 g 0 G @@ -17251,39 +11853,18 @@ BT [(.)]TJ 0 g 0 G 141.968 -29.888 Td [(50)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1215 0 obj -<< -/Length 7410 -======= 1212 0 obj << /Length 7790 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(gediv)-375(|)-375(En)31(trywise)-375(Division)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(division)-333(b)-28(et)28(w)28(een)-334(t)28(w)28(o)-334(v)28(ectors)]TJ/F11 9.9626 Tf 295.614 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(y)]TJ -182.908 -21.715 Td [(=)]TJ/F14 9.9626 Tf 7.748 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(=y)]TJ/F8 9.9626 Tf 10.224 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(:)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -199.851 -21.715 Td [(psb_gediv\050x,)-525(y,)-525(desc_a,)-525(info,)-525([flag\051)]TJ -======= 0 g 0 G BT /F27 9.9626 Tf 99.895 706.129 Td [(t)]TJ @@ -17291,7 +11872,6 @@ BT /F8 9.9626 Tf 9.437 0 Td [(the)-333(global)-334(p)-27(ortion)-334(of)-333(the)-333(sparse)-334(matrix)]TJ/F11 9.9626 Tf 172.603 0 Td [(T)]TJ/F8 9.9626 Tf 7.206 0 Td [(.)]TJ -164.339 -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.956 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(an)-333(ob)-55(ject)-334(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-333(in)]TJ/F14 9.9626 Tf 176.118 0 Td [(x)]TJ 0 0 1 rg 0 0 1 RG /F8 9.9626 Tf 7.748 0 Td [(3)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [(.)]TJ 0 g 0 G @@ -17302,96 +11882,6 @@ BT /F30 9.9626 Tf 244.743 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 234.474 620.263 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F11 9.9626 Tf 240.452 611.695 Td [(=)]TJ/F8 9.9626 Tf 4.981 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 97.558 0 Td [(F)96(unction)]TJ -ET -q -1 0 0 1 234.474 607.909 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F8 9.9626 Tf 240.452 599.341 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ -ET -q -1 0 0 1 376.459 599.54 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 599.341 Td [(gediv)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 376.459 587.585 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 587.386 Td [(gediv)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ -ET -q -1 0 0 1 376.459 575.63 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 575.431 Td [(gediv)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 376.459 563.675 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 563.475 Td [(gediv)]TJ -ET -q -1 0 0 1 234.474 559.69 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 276.386 531.65 Td [(T)83(able)-333(15:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -125.681 -33.312 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.844 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.844 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 333.957 411.028 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 410.829 Td [(T)]TJ -ET -q -1 0 0 1 342.953 411.028 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 410.829 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 411.028 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 410.829 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ -0 0 1 rg 0 0 1 RG - [-334(2)]TJ -======= 1 0 0 1 385.864 590.037 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -17665,46 +12155,15 @@ BT /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -22.895 Td [(On)-383(En)32(try)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -19.844 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -164.99 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -11.956 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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -======= 0 -22.895 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -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 [(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)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 142.027 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 333.957 331.408 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 331.209 Td [(T)]TJ -ET -q -1 0 0 1 342.953 331.408 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 331.209 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 331.408 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 331.209 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ -======= 1 0 0 1 283.148 391.433 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -17726,299 +12185,11 @@ BT /F30 9.9626 Tf 319.969 391.234 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.319 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-333(in)-334(T)84(able)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG [-334(2)]TJ 0 g 0 G [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.906 -19.844 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 299.609 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 299.41 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ -ET -q -1 0 0 1 327.588 251.788 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 330.727 251.589 Td [(desc)]TJ -ET -q -1 0 0 1 352.275 251.788 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 355.414 251.589 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -225.63 -19.844 Td [(\015ag)]TJ -0 g 0 G -/F8 9.9626 Tf 22.644 0 Td [(c)28(hec)27(k)-351(if)-352(an)28(y)-352(of)-351(the)]TJ/F11 9.9626 Tf 84.211 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-308(=)-309(0,)-356(and)-351(in)-352(case)-352(returns)-351(error)-352(halting)-351(the)-352(compu-)]TJ -94.497 -11.955 Td [(tation.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 43.897 0 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 -116.542 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(flag=.true.)]TJ -0 g 0 G -/F27 9.9626 Tf -156.69 -19.844 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.844 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(.)]TJ -154.179 -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.612 0 Td [(required)]TJ -0 g 0 G -/F8 9.9626 Tf 112.356 -29.888 Td [(54)]TJ -0 g 0 G -ET - -endstream -endobj -1220 0 obj -<< -/Length 1487 ->> -stream -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 124.802 706.129 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 283.148 694.373 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 286.286 694.174 Td [(T)]TJ -ET -q -1 0 0 1 292.144 694.373 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 295.282 694.174 Td [(vect)]TJ -ET -q -1 0 0 1 316.831 694.373 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 319.969 694.174 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.319 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(14)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -524.035 Td [(55)]TJ -0 g 0 G -ET - -endstream -endobj -1230 0 obj -<< -/Length 7473 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(gein)31(v)-375(|)-375(En)31(trywise)-375(In)32(v)31(ersion)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(en)28(trywise)-334(in)28(v)28(erse)-334(of)-333(a)-333(v)27(ector)]TJ/F11 9.9626 Tf 250.201 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(and)-333(puts)-334(i)1(t)-334(in)28(to)]TJ/F11 9.9626 Tf 71.731 0 Td [(y)]TJ -184.133 -17.8 Td [(=)]TJ/F14 9.9626 Tf 7.748 0 Td [(\040)]TJ/F8 9.9626 Tf 12.73 0 Td [(1)]TJ/F11 9.9626 Tf 4.982 0 Td [(=x)]TJ/F8 9.9626 Tf 10.675 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(:)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -194.13 -17.8 Td [(psb_geinv\050x,)-525(y,)-525(desc_a,)-525(info,)-525([flag\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -ET -q -1 0 0 1 234.474 633.574 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F11 9.9626 Tf 240.452 625.006 Td [(=)]TJ/F8 9.9626 Tf 4.981 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(y)]TJ/F27 9.9626 Tf 97.558 0 Td [(F)96(unction)]TJ -ET -q -1 0 0 1 234.474 621.22 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -BT -/F8 9.9626 Tf 240.452 612.652 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ -ET -q -1 0 0 1 376.459 612.852 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 612.652 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 376.459 600.897 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 600.697 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ -ET -q -1 0 0 1 376.459 588.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 588.742 Td [(gein)28(v)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 376.459 576.986 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 379.447 576.787 Td [(gein)28(v)]TJ -ET -q -1 0 0 1 234.474 573.001 cm -[]0 d 0 J 0.398 w 0 0 m 176.173 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 276.386 544.962 Td [(T)83(able)-333(16:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -125.681 -27.831 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -18.278 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -18.278 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-627(an)-425(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 333.957 432.953 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 432.754 Td [(T)]TJ -ET -q -1 0 0 1 342.953 432.953 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 432.754 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 432.953 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 432.754 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(t)28(yp)-28(e)-333(sp)-28(eci\014ed)-334(i)1(n)-334(T)84(able)]TJ -0 0 1 rg 0 0 1 RG - [-334(2)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -18.278 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 402.72 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 402.521 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 135.659 0 Td [(psb)]TJ -ET -q -1 0 0 1 327.588 354.899 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 330.727 354.7 Td [(desc)]TJ -ET -q -1 0 0 1 352.275 354.899 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 355.414 354.7 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -225.63 -18.278 Td [(\015ag)]TJ -0 g 0 G -/F8 9.9626 Tf 22.644 0 Td [(c)28(hec)27(k)-348(if)-349(an)28(y)-349(of)-349(the)]TJ/F11 9.9626 Tf 84.075 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-304(=)-303(0,)-353(and)-349(in)-349(case)-349(returns)-349(error)-349(halting)-348(the)-349(compu-)]TJ -94.813 -11.955 Td [(tation.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 43.897 0 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 -116.542 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(flag=.true.)]TJ -0 g 0 G -/F27 9.9626 Tf -156.69 -18.278 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -18.278 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(x)]TJ/F8 9.9626 Tf 5.693 0 Td [(.)]TJ -154.179 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 142.027 0 Td [(psb)]TJ -ET -q -1 0 0 1 333.957 204.424 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 337.095 204.224 Td [(T)]TJ -ET -q -1 0 0 1 342.953 204.424 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 346.092 204.224 Td [(vect)]TJ -ET -q -1 0 0 1 367.64 204.424 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.779 204.224 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 25.152 0 Td [(con)28(taining)-425(n)28(um)28(b)-28(ers)-425(of)]TJ -220.32 -11.955 Td [(the)-333(t)27(yp)-27(e)-334(indicated)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(16)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -18.278 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -35.732 Td [(56)]TJ -0 g 0 G -======= /F27 9.9626 Tf -24.907 -22.895 Td [(y)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -164.99 -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 [(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)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ @@ -18119,32 +12290,10 @@ BT 0 g 0 G 141.968 -29.888 Td [(53)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1126 0 obj -<< -/Type /ObjStm -/N 100 -/First 998 -/Length 13051 ->> -stream -1119 0 1120 145 1124 292 244 351 1125 409 1121 468 1130 612 1127 760 1128 905 1132 1052 -248 1110 1133 1167 1129 1226 1137 1370 1134 1518 1135 1663 1139 1810 252 1869 1141 1927 1136 1986 -1148 2132 1142 2298 1143 2445 1144 2590 1145 2734 1150 2881 256 2939 1151 2996 1152 3055 1153 3114 -1154 3173 1147 3232 1163 3389 1146 3591 1155 3738 1156 3881 1157 4027 1158 4174 1159 4325 1160 4476 -1161 4626 1165 4771 1162 4830 1169 4936 1166 5075 1171 5221 260 5279 1172 5336 1168 5395 1181 5566 -1167 5759 1174 5907 1175 6051 1176 6198 1177 6345 1178 6489 1179 6636 1183 6782 1180 6841 1187 6973 -1184 7121 1185 7268 1189 7415 1186 7473 1198 7579 1190 7772 1191 7916 1192 8062 1193 8206 1194 8352 -1195 8499 1196 8643 1200 8789 264 8848 1201 8906 1197 8965 1203 9097 1205 9215 1202 9273 1214 9353 -1206 9528 1207 9672 1208 9817 1209 9961 1210 10106 1216 10253 268 10312 1217 10370 1213 10429 1219 10561 -1211 10709 1212 10853 1221 11000 1218 11058 1229 11151 1223 11326 1224 11470 1225 11616 1226 11762 1227 11906 -% 1119 0 obj -======= 1125 0 obj << /Type /ObjStm @@ -18348,59 +12497,35 @@ stream /Annots [ 1157 0 R 1158 0 R ] >> % 1157 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 392.812 383.195 403.66] -/A << /S /GoTo /D (table.9) >> +/Rect [310.273 342.722 387.792 353.847] +/A << /S /GoTo /D (spdata) >> >> % 1158 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 324.789 377.331 335.914] +/Rect [310.273 274.976 377.331 286.101] /A << /S /GoTo /D (descdata) >> >> % 1162 0 obj << /D [1160 0 R /XYZ 149.705 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 244 0 obj -======= % 260 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1160 0 R /XYZ 150.705 716.092 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1125 0 obj -<< -/D [1122 0 R /XYZ 318.451 540.923 null] -======= % 1163 0 obj << /D [1160 0 R /XYZ 320.941 513.305 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1159 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1130 0 obj -<< -/Type /Page -/Contents 1131 0 R -/Resources 1129 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R -/Annots [ 1127 0 R 1128 0 R ] -======= /Font << /F16 582 0 R /F8 585 0 R /F11 796 0 R /F14 813 0 R /F7 811 0 R /F27 584 0 R /F30 810 0 R >> /ProcSet [ /PDF /Text ] >> @@ -18412,7 +12537,6 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1138 0 R /Annots [ 1164 0 R 1165 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1164 0 obj << @@ -18461,175 +12585,30 @@ stream /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [259.464 342.722 336.983 353.847] -/A << /S /GoTo /D (spdata) >> -======= /Rect [432.897 274.798 444.852 285.646] /A << /S /GoTo /D (table.12) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1173 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [259.464 274.976 326.522 286.101] -/A << /S /GoTo /D (descdata) >> ->> -% 1132 0 obj -<< -/D [1130 0 R /XYZ 98.895 753.953 null] ->> -% 248 0 obj -<< -/D [1130 0 R /XYZ 99.895 720.077 null] ->> -% 1133 0 obj -<< -/D [1130 0 R /XYZ 270.132 513.305 null] -======= /Rect [310.273 207.773 387.792 218.898] /A << /S /GoTo /D (spdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1174 0 obj << -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1137 0 obj -<< -/Type /Page -/Contents 1138 0 R -/Resources 1136 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R -/Annots [ 1134 0 R 1135 0 R ] ->> -% 1134 0 obj -<< /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [310.273 342.722 387.792 353.847] -/A << /S /GoTo /D (spdata) >> ->> -% 1135 0 obj -======= /Rect [419.358 141.026 495.412 152.151] /A << /S /GoTo /D (vdata) >> >> % 1175 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [310.273 274.976 377.331 286.101] -/A << /S /GoTo /D (descdata) >> ->> -% 1139 0 obj -<< -/D [1137 0 R /XYZ 149.705 753.953 null] ->> -% 252 0 obj -<< -/D [1137 0 R /XYZ 150.705 720.077 null] ->> -% 1141 0 obj -<< -/D [1137 0 R /XYZ 320.941 513.305 null] ->> -% 1136 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F13 1140 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1148 0 obj -<< -/Type /Page -/Contents 1149 0 R -/Resources 1147 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R -/Annots [ 1142 0 R 1143 0 R 1144 0 R 1145 0 R ] ->> -% 1142 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [382.088 276.095 394.043 286.943] -/A << /S /GoTo /D (table.12) >> ->> -% 1143 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [259.464 208.422 336.983 219.547] -/A << /S /GoTo /D (spdata) >> ->> -% 1144 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 141.026 444.603 152.151] -/A << /S /GoTo /D (vdata) >> ->> -% 1145 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [326.008 129.347 337.963 140.196] -/A << /S /GoTo /D (table.12) >> ->> -% 1150 0 obj -<< -/D [1148 0 R /XYZ 98.895 753.953 null] ->> -% 256 0 obj -<< -/D [1148 0 R /XYZ 99.895 720.077 null] ->> -% 1151 0 obj -<< -/D [1148 0 R /XYZ 239.804 675.784 null] ->> -% 1152 0 obj -<< -/D [1148 0 R /XYZ 236.666 658.376 null] ->> -% 1153 0 obj -<< -/D [1148 0 R /XYZ 236.025 640.968 null] ->> -% 1154 0 obj -<< -/D [1148 0 R /XYZ 270.132 455.558 null] ->> -% 1147 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1163 0 obj -<< -/Type /Page -/Contents 1164 0 R -/Resources 1162 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1117 0 R -/Annots [ 1146 0 R 1155 0 R 1156 0 R 1157 0 R 1158 0 R 1159 0 R 1160 0 R 1161 0 R ] ->> -% 1146 0 obj -======= /Rect [376.818 129.347 388.773 140.196] /A << /S /GoTo /D (table.12) >> >> @@ -18672,7 +12651,6 @@ stream /Annots [ 1176 0 R 1185 0 R 1186 0 R 1187 0 R 1188 0 R 1189 0 R 1190 0 R 1191 0 R ] >> % 1176 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18680,129 +12658,59 @@ stream /Rect [382.088 655.375 394.043 666.223] /A << /S /GoTo /D (table.12) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1155 0 obj -======= % 1185 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [419.358 588.68 495.412 599.805] -/A << /S /GoTo /D (vdata) >> ->> -% 1156 0 obj -======= /Rect [368.549 588.68 444.603 599.805] /A << /S /GoTo /D (vdata) >> >> % 1186 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [377.029 577.002 388.984 587.85] -/A << /S /GoTo /D (table.12) >> ->> -% 1157 0 obj -======= /Rect [326.219 577.002 338.174 587.85] /A << /S /GoTo /D (table.12) >> >> % 1187 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [310.273 498.352 377.331 509.477] -/A << /S /GoTo /D (descdata) >> ->> -% 1158 0 obj -======= /Rect [259.464 498.352 326.522 509.477] /A << /S /GoTo /D (descdata) >> >> % 1188 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [397.199 461.435 404.172 472.284] -/A << /S /GoTo /D (equation.4.1) >> ->> -% 1159 0 obj -======= /Rect [346.389 461.435 353.363 472.284] /A << /S /GoTo /D (equation.4.1) >> >> % 1189 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [396.202 446.823 403.176 457.672] -/A << /S /GoTo /D (equation.4.2) >> ->> -% 1160 0 obj -======= /Rect [345.393 446.823 352.367 457.672] /A << /S /GoTo /D (equation.4.2) >> >> % 1190 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [396.507 432.212 403.481 443.06] -/A << /S /GoTo /D (equation.4.3) >> ->> -% 1161 0 obj -======= /Rect [345.697 432.212 352.671 443.06] /A << /S /GoTo /D (equation.4.3) >> >> % 1191 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [253.818 190.452 265.774 201.3] -/A << /S /GoTo /D (table.12) >> ->> -% 1165 0 obj -<< -/D [1163 0 R /XYZ 149.705 753.953 null] ->> -% 1162 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1169 0 obj -<< -/Type /Page -/Contents 1170 0 R -/Resources 1168 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R -/Annots [ 1166 0 R ] ->> -% 1166 0 obj -======= /Rect [203.009 190.452 214.964 201.3] /A << /S /GoTo /D (table.12) >> >> @@ -18825,7 +12733,6 @@ stream /Annots [ 1197 0 R ] >> % 1197 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18833,41 +12740,12 @@ stream /Rect [432.897 117.392 444.852 128.24] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1171 0 obj -<< -/D [1169 0 R /XYZ 98.895 753.953 null] -======= % 1202 0 obj << /D [1200 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 272 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1169 0 R /XYZ 99.895 720.077 null] ->> -% 1172 0 obj -<< -/D [1169 0 R /XYZ 270.132 258.477 null] ->> -% 1168 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F13 1140 0 R /F7 785 0 R /F10 786 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1181 0 obj -<< -/Type /Page -/Contents 1182 0 R -/Resources 1180 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R -/Annots [ 1167 0 R 1174 0 R 1175 0 R 1176 0 R 1177 0 R 1178 0 R 1179 0 R ] ->> -% 1167 0 obj -======= /D [1200 0 R /XYZ 150.705 716.092 null] >> % 1203 0 obj @@ -18889,7 +12767,6 @@ stream /Annots [ 1198 0 R 1204 0 R 1205 0 R 1206 0 R 1207 0 R 1208 0 R 1209 0 R ] >> % 1198 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18897,11 +12774,7 @@ stream /Rect [307.672 655.375 314.646 666.223] /A << /S /GoTo /D (section.3) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1174 0 obj -======= % 1204 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18909,11 +12782,7 @@ stream /Rect [368.549 586.627 444.603 597.752] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1175 0 obj -======= % 1205 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18921,11 +12790,7 @@ stream /Rect [326.008 574.949 337.963 585.797] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1176 0 obj -======= % 1206 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18933,11 +12798,7 @@ stream /Rect [382.088 494.523 394.043 505.372] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1177 0 obj -======= % 1207 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18945,11 +12806,7 @@ stream /Rect [368.549 425.776 444.603 436.901] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1178 0 obj -======= % 1208 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18957,11 +12814,7 @@ stream /Rect [326.219 414.098 338.174 424.946] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1179 0 obj -======= % 1209 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -18969,27 +12822,6 @@ stream /Rect [259.464 333.395 326.522 344.52] /A << /S /GoTo /D (descdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1183 0 obj -<< -/D [1181 0 R /XYZ 149.705 753.953 null] ->> -% 1180 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F17 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1187 0 obj -<< -/Type /Page -/Contents 1188 0 R -/Resources 1186 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R -/Annots [ 1184 0 R 1185 0 R ] ->> -% 1184 0 obj -======= % 1213 0 obj << /D [1211 0 R /XYZ 98.895 753.953 null] @@ -19009,7 +12841,6 @@ stream /Annots [ 1214 0 R 1215 0 R ] >> % 1214 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -19017,11 +12848,7 @@ stream /Rect [213.636 410.238 225.591 419.149] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1185 0 obj -======= % 1215 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -19029,43 +12856,6 @@ stream /Rect [253.818 228.974 265.774 239.822] /A << /S /GoTo /D (table.13) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1189 0 obj -<< -/D [1187 0 R /XYZ 98.895 753.953 null] ->> -% 1186 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R /F11 770 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1198 0 obj -<< -/Type /Page -/Contents 1199 0 R -/Resources 1197 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R -/Annots [ 1190 0 R 1191 0 R 1192 0 R 1193 0 R 1194 0 R 1195 0 R 1196 0 R ] ->> -% 1190 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [316.642 388.024 392.696 399.149] -/A << /S /GoTo /D (vdata) >> ->> -% 1191 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [276.234 376.346 283.208 387.194] -/A << /S /GoTo /D (table.2) >> ->> -% 1192 0 obj -======= % 1219 0 obj << /D [1217 0 R /XYZ 149.705 753.953 null] @@ -19085,528 +12875,94 @@ stream /Annots [ 1220 0 R 1221 0 R 1222 0 R 1223 0 R 1224 0 R 1225 0 R 1226 0 R ] >> % 1220 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [316.642 305.353 392.696 316.478] -/A << /S /GoTo /D (vdata) >> ->> -% 1193 0 obj -======= /Rect [265.833 388.024 341.887 399.149] /A << /S /GoTo /D (vdata) >> >> % 1221 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [276.234 293.674 283.208 304.523] -/A << /S /GoTo /D (table.2) >> ->> -% 1194 0 obj -======= /Rect [225.425 376.346 232.399 387.194] /A << /S /GoTo /D (table.2) >> >> % 1222 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [310.273 222.682 377.331 233.807] -/A << /S /GoTo /D (descdata) >> ->> -% 1195 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [316.642 129.071 392.696 140.196] -/A << /S /GoTo /D (vdata) >> ->> -% 1196 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [296.381 117.392 308.336 128.24] -/A << /S /GoTo /D (table.14) >> ->> -% 1200 0 obj -<< -/D [1198 0 R /XYZ 149.705 753.953 null] ->> -% 264 0 obj -<< -/D [1198 0 R /XYZ 150.705 720.077 null] ->> -% 1201 0 obj -<< -/D [1198 0 R /XYZ 320.941 534.109 null] ->> -% 1197 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1203 0 obj -<< -/Type /Page -/Contents 1204 0 R -/Resources 1202 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R ->> -% 1205 0 obj -<< -/D [1203 0 R /XYZ 98.895 753.953 null] ->> -% 1202 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1214 0 obj -<< -/Type /Page -/Contents 1215 0 R -/Resources 1213 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1173 0 R -/Annots [ 1206 0 R 1207 0 R 1208 0 R 1209 0 R 1210 0 R ] ->> -% 1206 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [316.642 407.619 392.696 418.744] -/A << /S /GoTo /D (vdata) >> ->> -% 1207 0 obj -======= /Rect [265.833 305.353 341.887 316.478] /A << /S /GoTo /D (vdata) >> >> % 1223 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [276.234 395.94 283.208 406.789] -/A << /S /GoTo /D (table.2) >> ->> -% 1208 0 obj -======= /Rect [225.425 293.674 232.399 304.523] /A << /S /GoTo /D (table.2) >> >> % 1224 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [316.642 327.999 392.696 339.124] -/A << /S /GoTo /D (vdata) >> ->> -% 1209 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [276.234 316.32 283.208 327.169] -/A << /S /GoTo /D (table.2) >> ->> -% 1210 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 248.379 377.331 259.504] -/A << /S /GoTo /D (descdata) >> ->> -% 1216 0 obj -<< -/D [1214 0 R /XYZ 149.705 753.953 null] ->> -% 268 0 obj -<< -/D [1214 0 R /XYZ 150.705 720.077 null] ->> -% 1217 0 obj -<< -/D [1214 0 R /XYZ 320.941 543.606 null] ->> -% 1213 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1219 0 obj -<< -/Type /Page -/Contents 1220 0 R -/Resources 1218 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R -/Annots [ 1211 0 R 1212 0 R ] ->> -% 1211 0 obj -======= /Rect [259.464 222.682 326.522 233.807] /A << /S /GoTo /D (descdata) >> >> % 1225 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [265.833 690.964 341.887 702.088] -/A << /S /GoTo /D (vdata) >> ->> -% 1212 0 obj -======= /Rect [265.833 129.071 341.887 140.196] /A << /S /GoTo /D (vdata) >> >> % 1226 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [245.572 679.285 257.527 690.133] -/A << /S /GoTo /D (table.14) >> ->> -% 1221 0 obj -<< -/D [1219 0 R /XYZ 98.895 753.953 null] ->> -% 1218 0 obj -<< -/Font << /F8 573 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1229 0 obj -<< -/Type /Page -/Contents 1230 0 R -/Resources 1228 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R -/Annots [ 1223 0 R 1224 0 R 1225 0 R 1226 0 R 1227 0 R ] ->> -% 1223 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [316.642 429.544 392.696 440.669] -/A << /S /GoTo /D (vdata) >> -======= /Rect [245.572 117.392 257.527 128.24] /A << /S /GoTo /D (table.14) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1230 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [276.234 417.865 283.208 428.713] -/A << /S /GoTo /D (table.2) >> ->> -% 1225 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [310.273 351.49 377.331 362.615] -/A << /S /GoTo /D (descdata) >> -======= /D [1228 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 276 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [316.642 201.014 392.696 212.139] -/A << /S /GoTo /D (vdata) >> ->> -% 1227 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [296.381 189.336 308.336 200.184] -/A << /S /GoTo /D (table.16) >> ->> - -endstream -endobj -1237 0 obj -<< -/Length 632 -======= /D [1228 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -stream -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 706.129 Td [(5)-1125(Comm)31(unication)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-283(routines)-283(in)-283(this)-283(c)28(hapter)-283(implemen)28(t)-283(v)55(arious)-283(global)-283(comm)28(unication)-283(op)-28(erators)]TJ 0 -11.955 Td [(on)-344(v)28(ectors)-344(asso)-28(ciated)-343(with)-344(a)-344(discretization)-343(mesh.)-476(F)84(or)-344(auxiliary)-344(comm)28(unication)]TJ 0 -11.955 Td [(routines)-333(not)-334(tied)-333(to)-333(a)-334(discretization)-333(space)-333(see)]TJ -0 0 1 rg 0 0 1 RG - [-334(6)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G - 166.875 -569.96 Td [(57)]TJ -0 g 0 G -ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1245 0 obj -<< -/Length 7227 -======= 1235 0 obj << /Length 625 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(halo)-375(|)-375(Halo)-375(Data)-375(Comm)31(unication)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(subroutines)-334(gathers)-333(the)-333(v)55(alues)-333(of)-333(the)-334(halo)-333(elemen)28(ts:)]TJ/F11 9.9626 Tf 158.413 -23.188 Td [(x)]TJ/F14 9.9626 Tf 8.461 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(x)]TJ/F8 9.9626 Tf -179.604 -21.251 Td [(where:)]TJ 0 g 0 G -/F11 9.9626 Tf 0 -19.391 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 10.675 0 Td [(is)-333(a)-334(global)-333(dense)-333(submatrix.)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -ET -q -1 0 0 1 228.797 602.649 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F11 9.9626 Tf 234.775 594.081 Td [(\013)]TJ/F8 9.9626 Tf 6.41 0 Td [(,)]TJ/F11 9.9626 Tf 6.088 0 Td [(x)]TJ/F27 9.9626 Tf 107.912 0 Td [(Subroutine)]TJ -ET -q -1 0 0 1 228.797 590.295 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F8 9.9626 Tf 234.775 581.727 Td [(In)28(teger)-9028(psb)]TJ -ET -q -1 0 0 1 370.782 581.926 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 373.771 581.727 Td [(halo)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ -ET -q -1 0 0 1 370.782 569.971 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 373.771 569.772 Td [(halo)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ -ET -q -1 0 0 1 370.782 558.016 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 373.771 557.817 Td [(halo)]TJ -138.996 -11.955 Td [(Short)-333(Precision)-334(Complex)-1200(psb)]TJ -ET -q -1 0 0 1 370.782 546.061 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 373.771 545.862 Td [(halo)]TJ -138.996 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 370.782 534.106 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 373.771 533.906 Td [(halo)]TJ -ET -q -1 0 0 1 228.797 530.121 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 276.386 502.081 Td [(T)83(able)-333(17:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -124.304 -29.354 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.73 0 Td [(p)-122(s)-123(b)]TJ -ET -q -1 0 0 1 201.066 472.926 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 205.274 472.727 Td [(h)-122(a)-123(l)-122(o)-228(\050)-129(x)-210(,)-873(d)-113(e)-113(s)-112(c)]TJ -ET -q -1 0 0 1 276.854 472.926 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 280.965 472.727 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.73 0 Td [(p)-122(s)-123(b)]TJ -ET -q -1 0 0 1 201.066 460.971 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 205.274 460.772 Td [(h)-122(a)-123(l)-122(o)-228(\050)-129(x)-210(,)-873(d)-113(e)-113(s)-112(c)]TJ -ET -q -1 0 0 1 276.854 460.971 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 280.965 460.772 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-804(w)-43(o)-43(r)-43(k)-247(,)]TJ/F27 9.9626 Tf 91.303 0 Td [(d)-39(a)-39(t)-40(a)]TJ/F8 9.9626 Tf 24.572 0 Td [(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -246.135 -26.961 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.659 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.658 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)28(o)-255(arra)28(y)-255(or)-255(an)-255(ob)-55(ject)-255(of)-255(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 244.742 0 Td [(psb)]TJ -ET -q -1 0 0 1 436.673 346.872 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 439.811 346.673 Td [(T)]TJ -ET -q -1 0 0 1 445.669 346.872 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 448.807 346.673 Td [(vect)]TJ -ET -q -1 0 0 1 470.356 346.872 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 473.495 346.673 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf -297.884 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)27(yp)-27(e)-334(sp)-27(ec)-1(i)1(\014ed)-334(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(17)]TJ -0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.658 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 315.259 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 315.06 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(con)28(tains)-334(data)-333(structures)-333(for)-333(c)-1(omm)28(unications.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 267.438 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 267.239 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 267.438 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 267.239 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.658 Td [(w)32(ork)]TJ -0 g 0 G -/F8 9.9626 Tf 29.431 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 220.756 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.356 -19.659 Td [(data)]TJ -0 g 0 G -/F8 9.9626 Tf 26.94 0 Td [(index)-333(list)-334(selector.)]TJ -2.034 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger.)-408(V)84(alues:)]TJ/F30 9.9626 Tf 136.48 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.224 0 Td [(,)]TJ/F30 9.9626 Tf 2.768 0 Td [(psb_comm_mov_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_comm_ext_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ -353.663 -11.955 Td [(default:)]TJ/F30 9.9626 Tf 39.089 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.225 0 Td [(.)-705(Cho)-27(ose)-1(s)-420(the)-420(index)-420(list)-420(on)-420(whic)28(h)-420(to)-420(base)-420(the)]TJ -112.314 -11.955 Td [(data)-333(exc)27(hange.)]TJ -0 g 0 G - 141.968 -29.888 Td [(58)]TJ -======= BT /F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G 141.968 -567.87 Td [(54)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1255 0 obj -<< -/Length 3199 -======= 1246 0 obj << /Length 7432 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -19624,33 +12980,9 @@ BT 0 g 0 G /F30 9.9626 Tf -199.851 -21.715 Td [(psb_gediv\050x,)-525(y,)-525(desc_a,)-525(info,)-525([flag\051)]TJ 0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.489 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Returned)-271(as:)-414(a)-271(rank)-271(one)-271(or)-272(t)28(w)28(o)-271(arra)28(y)-272(con)28(taining)-271(n)28(um)28(b)-28(ers)-271(of)-272(t)28(yp)-28(e)-271(sp)-28(eci\014ed)]TJ 0 -11.955 Td [(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(17)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(result)-333(submatrix)]TJ/F11 9.9626 Tf 162.364 0 Td [(y)]TJ/F8 9.9626 Tf 5.242 0 Td [(.)]TJ -166.457 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue)-334(that)-333(con)28(tains)-333(an)-334(error)-333(co)-28(de.)]TJ -0 g 0 G 0 g 0 G 0 g 0 G ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 159.702 337.279 cm -q -.45 0 0 .45 0 0 cm -q -1 0 0 1 0 0 cm -/Im3 Do -======= q 1 0 0 1 183.665 620.263 cm []0 d 0 J 0.398 w 0 0 m 176.173 0 l S @@ -19661,7 +12993,6 @@ ET q 1 0 0 1 183.665 607.909 cm []0 d 0 J 0.398 w 0 0 m 176.173 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf Q BT /F8 9.9626 Tf 189.642 599.341 Td [(Short)-333(Precision)-334(Real)-3102(psb)]TJ @@ -19670,227 +13001,6 @@ q 1 0 0 1 325.649 599.54 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -1 0 0 1 -159.702 -337.279 cm -BT -/F8 9.9626 Tf 189.268 305.398 Td [(Figure)-333(7:)-445(Sample)-333(discretization)-333(mes)-1(h)1(.)]TJ -0 g 0 G -0 g 0 G -/F16 11.9552 Tf -89.373 -23.91 Td [(Usage)-381(Example)]TJ/F8 9.9626 Tf 93.981 0 Td [(Consider)-338(the)-339(discretization)-338(mesh)-339(depicted)-338(in)-338(\014g.)]TJ -0 0 1 rg 0 0 1 RG - [-339(7)]TJ -0 g 0 G - [(,)-339(parti-)]TJ -93.981 -11.955 Td [(tioned)-334(among)-334(t)27(w)28(o)-334(pro)-28(cesses)-334(as)-335(sho)28(wn)-334(b)28(y)-334(the)-335(dashed)-334(line;)-334(the)-335(data)-334(distribution)]TJ 0 -11.955 Td [(is)-422(suc)28(h)-422(that)-422(eac)28(h)-422(pro)-28(cess)-422(will)-421(o)27(wn)-422(32)-421(en)27(tries)-422(in)-421(the)-422(index)-422(space,)-444(with)-422(a)-422(halo)]TJ 0 -11.956 Td [(made)-340(of)-341(8)-340(en)28(tries)-341(placed)-340(at)-340(lo)-28(cal)-341(ind)1(ice)-1(s)-340(33)-340(through)-341(40.)-465(If)-340(pro)-28(cess)-341(0)-340(assigns)-340(an)]TJ 0 -11.955 Td [(initial)-423(v)55(alue)-423(of)-424(1)-423(to)-424(its)-423(en)28(tries)-424(in)-423(the)]TJ/F11 9.9626 Tf 169.006 0 Td [(x)]TJ/F8 9.9626 Tf 9.913 0 Td [(v)28(ector,)-446(and)-424(pr)1(o)-28(cess)-424(1)-423(assigns)-424(a)-423(v)55(alue)]TJ -178.919 -11.955 Td [(of)-349(2,)-353(then)-349(after)-349(a)-349(call)-349(to)]TJ/F30 9.9626 Tf 108.539 0 Td [(psb_halo)]TJ/F8 9.9626 Tf 45.32 0 Td [(the)-349(con)28(ten)27(ts)-349(of)-349(the)-349(lo)-27(c)-1(al)-349(v)28(ectors)-349(will)-349(b)-28(e)-349(the)]TJ -153.859 -11.955 Td [(follo)28(wing:)]TJ -0 g 0 G - 166.875 -119.319 Td [(59)]TJ -0 g 0 G -ET - -endstream -endobj -1251 0 obj -<< -/Type /XObject -/Subtype /Form -/FormType 1 -/PTEX.FileName (./figures/try8x8.pdf) -/PTEX.PageNumber 1 -/PTEX.InfoDict 1258 0 R -/BBox [0 0 498 439] -/Resources << -/ProcSet [ /PDF /Text ] -/ExtGState << -/R7 1259 0 R ->>/Font << /R8 1260 0 R/R10 1261 0 R>> ->> -/Length 3349 -/Filter /FlateDecode ->> -stream -xœ]›½Ž$¹„ý~ŠötkìÿªXtÒj½ÃY}Ð-q’¡×WWfDFr±Æ$ɬªo›1d%ç÷gù¨ÏrÿÃÏ×o¿Ìç¯ÿ}Œãù¿‡=¿üù1Žùœs<³hÔñü÷ã×^Ù½ŽÔ}ì®c©¿õÅþVzê_=ú©þ>⩽¦ÇŽí'ž»!ïˆw È;\)ònÒBBZÃ!-$äݤ…5=ÖOÈztRZHLk€Óâ•/©ÇDµX=&¬·œÖcâZ ¼× b!r+“ÈÙ@¶xå €ì1‘­d‰ì-Gö˜ÈÖ²Ç5ÙGù¬|‡|7ˆ|Ç+_@d‹ùnÙâ@¶-ä»Ed‹k ²¹×И…D¶-^ù {LdkÙc"{Ë‘=&²µ€ìqÍ@ö‘@>Cqò)ÍY¼òD>³ì¬Eä3 Ï[@>³ô¬Eä3‹ÏiŠy´Ÿ…aeMò³xå èf-ËÏZô³–åç-8ZËò³=­eù9M€>åyÝœÅFê@l#mÄH?Ki³h¤œy¤ž1ÒŽ–FêÙb¤®+Ô‘ ¬ü|cîÇÌ3FŒ9FŒ™#7³Fê#Æ#ÆŒcÖH1ÇÈ!€•ŸïÌ¥‰ùŽÅì#ÎÌgƈ1ÇH=cÄ™9âÌ>âÌ1RDàÌ9°òó¹+˜-fŒsŒ3GnfÔ3FŒ9FŒ#Ƭ‘"cŽ‘C+?ߘëÁlq0cĘcĘ9r3k¤ž1bÌ1bÌ1fsŒXùùÎ<¤A‹Å<¤Áqæ! j¤ž1âÌ#k#Î<²922Á!€•ŸoÌ—$xe^à•õwI~WVß%ñ]Y{—¤weå]Þ•tw…ì®MuIt›æ’ä6Å%ÁmzKrÛԖĶi-I-+MBK½ð9 Ë1>úó(çÇ,Ým;V¥¯Ç(ó£ñ7P?#¿Óz_þq"ûýmó»ÜÁëw¿›`ùÁòz|ÛíÌÚÑìwM,¤…fÍ~F~§Ã:Z?kF³ßE±Öš5í©ž, Í]ËÌ`ÍŒf¿ cí/4kÞÈï4R •¹¡U|ö$´»é3Ðü.ßvsò°ohSaAB»›†æù~éhíèÍ~ëÇŽFhÖ´§z~° dáµ2š-Eb‡%4kÞÈï´EG«kmh…Ÿ}éÚÝt€E4ÜåÛn5öM¶|Š=aBëò;Ýhc“­¯bß(4k:@Èwù¶¹‹Eï/õ}3^<1sÁ„˜Ýatε©Û³>øµI`AÌ&GR€0wªÆIØ¿ÿüúOQu}ýçN5h=u÷ |ù§¨z|ù·õœÅîOïžó¶û××cdg¶ÌóôXñ½°ø³y‰ìÛ¶Ö -;ãÍï,_0 Ž 7k‚3ãŠM·à¼¿Dz,íÙ·qž<à¬åõ|Ád8¬Ðlåã…ëͺâM༿Dz¬áçpŸ?,pw SpeŸV.Å<î®cB`jgý%Òc±æp0©È>ðùÃÔxó»åõ|Á$8®¹,vŸÂõf_ñNFpÞ_"=Ve/,ÐÖWøù»­în`\òµmqeqÏ‚0‹÷H ®CHåàÆ&3°x×pÖ€‘œ-¯§,„[áú‰ù˜›&ÔÀd.¹œŒfÅì…e1,jÙ’µ¤07®Æ©Ø•@!Lqu aî\ƒFT7¡ fâJî–÷±ÃÝŽ+ÜM/»Þ·×üÀ"Îw·ÈZh!öùA¾™¿ÂóùÄý­ß˜?´Cœõá¾/¬ƒÏûAúÈ~—ö•ÒïüúÉi™Y“âˆì 1 ÃÄ<qVÖÆ¢4"›,YIsCk1#›0B3¡õ¤‹¹¡ð§ºÙ -U1š\o{¯Wµçlµ…ëé}ùëÑJ“ë­´\ZŽ!¶Ybþín¨جòþÖ_µ«Oâã;¼ª'®7wÓ›þàs×[i¸´"óØ]Œù·»©|Þ_µµOæÃûºªÝ'®7wS"øÜõVZ .-ÊÏÌW9p=òYÕþV<‰ï檶 ä뜸ùÌõVZ .­ËïŸÚÿŠ'óÁõ¦6¨¸Þ]/ÊœÁçý‡Ö†ªp.¾Êy ëÏú§¶ÀâI|t½©=*ù:ç…®>ë?´6T5|t1䜺îoýS»`ñ$>ºÞÔ6×»ëEi9ø¼ÿÐÚP•‹«+󕘸ø¬j#,žÌ7¤ºø:ç…®¾N}0ÿÐ qÖ‡»[”̓Ïû§öÂâI|—ä®ç×ONËÌê˜Gd±J³0|Ìó'aem,J#²gÙ\O…Ÿõ¹¡µ˜‘M¡‹™ÐzÒÅÜÐFøSÝl…ª˜ M®·Õ}›v¬½•p=Uí_^K¸žWƒ‘_´FCl³ÄüÛÝpÁf•÷·þ¦±x+¹M;V\﵇ª¢žçý%%ŠÖh»‹1ÿv7H>ïoÚ‹'ó¡jÛ´cÅõ^€¨ªLàyÞ_Re¢h†xf¾Êy€ë‘Ïú›vÄâI|¬Ð6íXÉ×9/p=òYI剢5šÇîbÌ?8p=Þßú›vÄâI|¬Æ6íXq½—"ªjxž÷—T£(Z£!^™¯Ä<¸ë‘Ïú›vÄâÉ|Cú`á|ó×#_§>˜_´FCœõa7ÁçýM;bñ$¾Kòˆúƒ_?9-3«cR‘]b•f!} ù‹“°²6¥Ùmd×Ëe×–ö¬ñÕ‹oÞöÅã÷n&´žt17´þT7[¡*fBK®—ÎÁx ›ªZèàÏ]-r½SkC”yñÔŒÏòÍÝN.xëŸÚ‹'ñÑõ¦v¬¸WU.ð<ôkm¨S1࣋!ßÜ-5Ÿ÷OíˆÅ“ùàzS;V\²«Šxúµ6Ô òÁÅÀW9t½©ò¦øÊ>¿t½©+ù:ç…®>ï×ÚP§]ÀGCþÁy ëMU0ü¹ÈŸ×îzéÜŠÇp±© -†¸úµ6ÔÉ–O¹¬ÌWbàzSE 0¬àË®—Ψxܳ>P…Uƒ|úˆò¬Öhˆ³>ÜÝâð^ðyÿÔŽX<‰ï’<ÂÇfÔ1â@aÐMŠC5Ú¢"mZ½!qVÖÆ¢4"{^›ëéŠÏúÜÐZÌÈ&ŒÐÅLh=ébnh#ü©n¶BUÌ„&×]Õ ÝÅFS5Cg_QUÍðӂȯZ£!ö²{U5'"ýÈCS5 žßÛæzÖæI¿®+®÷ó'MÕ <Ïû«Ö†:%>A©ªfè\dðy׎X<™§úºv¬¸Þ¡4U3ð<ï¯ZêD ùp¥ªš¡â³þ®±xOðuíXÉ×9/<ŠRUÍÀ‰¿|p+q¥ªš¡³¨Áçý];bñ$>žÖëÚ±âz?ŽÒTÍÀó¼¿jm¨“~/žú[™¯Ä<¸ë‘Ïú»vÄâÉ|Cú€‹‘¯s^x(¥ªšá]ú€[!ÎúðS)MÕ ÞPÌïms=k_’} ×ONËÌê˜Gd×X¥YgSjT3âÔr°-J#²{Ë®ç_ŤŒ¹¡µ˜‘M¡‹™ÐzÒÅÜÐFøSÝl…ª˜ M®÷Ó[ÎÏŸŸåùËãý¤†¿õ8šÇ÷‰<ÿÓ”ÿüúøýQ=Æ×oÏ?~}üøåzÖöüúχÿeK}ŽãýÜò±ž_{üôCýô¹Ï£üÐ>}¥”:~ü<ðóÄωŸ×§Ÿ¿þåíÝíýŸšÇóë/Îñé뿟ߟvñvÿ®Ý¾k×ïÚeoë»öõ]{Þí·¯??·~¢ûCÞŸ#²ÚaYïá÷…–aXŽí)Ãüã—÷'W¯û³êíãýŸ¼žkà®3Ô{οþõÝ*ŸþðøÓ×Çßßÿþ{Ü -endstream -endobj -1264 0 obj -<< -/Filter /FlateDecode -/Subtype /Type1C -/Length 13073 ->> -stream -xœºwxWö?laÏŒ˜ r‘G¶5h†ôB'ZBïL·1`pø˶$K–eK²%«Yr•-˽w Lï%„ ”$$$¤m²›Æî{½ûýÈ–ßû<ïûýãõ<~4£¹ºsçÜs>çs -ÏÇo”dz%!)&cÒ攤}ÉÞ뉚ç7Ê#ñ-VyRŸ/Å<ÌŸâ1¾ÅcüNŽc~G¿8ŽfüÇÑA>~<Þ¬5›íonݼý­ &.II•§'ÄÅKÇOŸ:mÆøhùøÝ¿4&#!.yüëÜIVÌ¡”Ô¤˜déú„¤èÌŒñ/ž<~sL\æ¡}éÿúøïDÿÿ¦æùsïæ³Ý§•À‹åý<*Åw¬ïjßM¾}~´_¤_¬_;ÆÃæbë±d,ëÆð`|<þ -¾—ãýø)üþ þÿ'‘G˜;?€Ì·ò«ø®ÑüÑ£•£¿'7ÇÉÈûà=°,Ù ¨­c|Æ?æ1³ÆèÆÜ;nìkcç]4vÍØð±ÛÆÆ-ûpì+ˆ¤ -ä‚|ApQð‘àgÁßÿôçû ü—û¯ößà¿Í¿Ø¿Ä¿É¿Ó¿×ÿI€0`I@x€2   0 $àTÀÕ€Û¾ ôd_ |#p]`Z`f 5°.ðbàõÀ? šô~Ðò ¸ Â ª Ú æ Ž ž þ ÓA烾 ú6è7¡¿P('|S8[ø¾p±p¥p¿0Gh– -Â&a‡°GxEø¡ð¡ð ! ö ‡³Á¯O^¼*8|=øqð“à?ÿüwʇR¯Ss¨ÔJjµ‹ÚO¤”TUBÕPõT'u’ºI=¦þLý&%"Eþ¢0ÑK¢·DSE³DóEËD«EE[D¢ƒ"¹¨HdÙEu¢ÑIÑ%Ñ ÑmÑ}ÑW¢ŸE#!£CD!lÈÄi!³C„, Y²1$2$>D’b ) q†4„´†t‡9r!äÇ!C~ù-…ú…Ž„ -Sðˆ—¢ÒÑ+F~*þŠÅhÃb8™øÂP©®œÃo€J)®ž«RÏ2ðÑd˜Ž·›¬ÖVÒ8äܪêéü&¼¾‚´Êð»úŠ\óþÈÆåàY“R)Ôz%-ÕV ±p;qFߦldz3÷Ön¤'-ÚµVZ›ÝØXç®·mF;k(5:ìâ–ÎúÃ'[’·2ë 4i½<o ?3[•pP à?žÏ¦P8‡^AQ“:§œÛÌ®½ôôÀ×4Ü ÇAFý%ùÉ–ËìGkgõN ãüŽ—'ö²çvuLB@¼Q½8©êÍt{Ð`‚;èã'Põ‹p¢'œÛÙ,\8.³0O­ 5 -«CÁ -»ªbcé}{ÉÙøCò}ÛÅó†Â¡ßFæÎ3û›bø¥¹¶¬tñª»O[w -v2R¼Åcõ¸pm­©¢ÊI—×jk¹‰”ýƒ4äýè÷Ï·Ü@¡wØ—/î:/>¤ïÚ±#²¸¦#±*­z#§ÈZ<{)2mbиï߀A0èÇgœv…Nù³¹)Ô—' £V.<Ûx8‹M9“sûcñŸŽ_»Ã€%dMù$ p‰`¼ßiÉ©ìÃnâØp}E}²ñÐ*ņÕêœ]E|%<à$vÙò*Œ'ùPNü°ç¢݇kV0­y»,!o»2LAXìp¦¤µT¹‹E&¸1/wg@žïó7j©KvYr7Š†%¡PØtîÔw⣹}imÌ`̬æÉ4j“á÷ -ÊòM‹É|ÍB_Ûk‰ù6u…ñ.î$.˜a>ºŠÁ™øH„ç ÕZî8 /í´3k_œŒÙ¯›`àƒB(Áòð½¾HGë4f[ëJmô{›·/ ïÜÿe{é Ö“]“qH¼'1eÇòøþ_¥LšZ‰—Ù­æ -èår½ÞÄ€¸¶ÊÑif¬eŦr¶uɈaÎh~F/Á´%-&ŒïäçO-äÖy¹–˜nÎ-7>àÃm|f]ýº¹þ´5 tyÆSŽÊs9ÝáP¬aÑ:bòðÖÏÏn>y„9r²öÚc1$bžìLÏÎN—•åÔg3-%%¿"£äÐAñÛ›–ÎKÉ(¯U3y®ÂÆa1Œ!Ú9³®b<ᵈžÿ|yzˆa¸KÇ#_Þ›†¨BþJ|¾¹Àbìå{’óÝÊʇV> p$xý KÀaš‡]ÃhÊc*IŸ—¥fTé©Yt|J÷QÖJ˜® õÃу|p¯z (E ÑgªÎ1ǣݨ.$¾v8Ošä$:@§èó³I˜U“ƒÇ*+ûŠX¸º0W"Ñ’8Ó% ß×£{žM½òNÜÂùì’eû'¼!Füþé0K?yÿ ýëÓ¾»wÙO>éÿî™øYì·‹î2÷Në{‰F?ŽQp œÈ[`8œˆ&¢-h3š„&£ o½ßys³òøÇ߈A¶d“Äl3›îJÀR@yëÈ{ØHðwäEÒ…äĽjU!wßš[a¼Ç÷8ÎœG¨SÔ#¿×ÁùØÈU\‡æcxäÕÕ@ÂÌ?7R„gækféù2àù.¥’Æ'¤"ŸB>*Ã=K=Åœ# D6Z€5ã5¿ô¶A‡iøȪ‘¿bJÏU¢.ÅÄ%ÊZ5 '¿ Š7Kµ 9#k½z·¤iÎ’?ý×JVP@ÂQ*éÎldžΟ:¶…5%P=íIqqÉÉ1ñÉm}½ím½,ðµ‹`®Ï6í³¨Ë}ap-Ç£ V½Eo) -sh,:½8?_§fdJ˜ìÄ÷XÕî;&Ám¡m-0úµTß0„9Ñ^1`,/ÌåÆæªr"˜g6Qh> NÎ߬ K*ÀrSe©©Œî.Í`G²㶢¢¥y|ð¤ì?¯S-vçVpýûv×3†Õ 5ŠRÂU™Ÿ›_˜¯Éc9 ~ K{Š›¾µ•ž²ð]5([áÂOÙòÍSùÓS _ÂòË eâªrG-Sê?fêVôï…£( -Cs±]’e tFÔÈñ<­Ía·Øí¥, €Ó0Á{¸ø©ËyÎʯEÛdD±\—#Ž]„F½ŠøLŒÂoW:/3.$“—+•ËX•E¼ -ù‹à¨>qM¹­Çë3¸ß+¬U^˜W“qzE…²"‡;”Õ™¡h5Ê[>#!-Â&‡%."ÁœWâ;í'®3P7`°$Wµ„@Í"A éYå¦à›«Œ—ÚhDM}Û]±».†­N­Tv§.FãCûð ?–ÓӠЋÙê“}lNcnÅ¡z~âªmkyÔ1½gÅÂiE{:“ÕI¥^R_üHüÉkwN¸yó&P¯áPˆrX_•ï -;žÓ¸‹FÄd4½…‚ïLûí“‹=wŽ°%1Žl§”¯(/Ï·Ó›Ùbg¿Äz ­¢À ¡÷'÷}¢`g¸(Ä ¦wÄ -GCvð‹Û” n¶JêH¯{Ÿ/°pÈ#'nÛ2¿#F‚BgEç*Òiu¾µJÆVeçYtb¦<5®Szúèáê¶6¶¾¾´²ó\í¡B>éï¼næ»P†œ8Y©•j‹‹óÓÙ‚L$B½ˆ ˜ª9¿¥R\ç*ëg*]8(îó|ÙÇûýWÎyjìãܳ® ×Ø.÷=ýIüMòÃðóÌG+¯IhÔ Ãif‰q±Z½Pχ›=7¨Ž2Ç‘¯nä$ 3·ÎD>bDFÏšÉ$ïؤžAïW—v²àeÌÕÒñùåÇYÏ BoŽÌIÈ[¥ãôßa+.¥ûJ5Ñ,šJtƤ–ï!Y ½Œ‚ïÍ€¾úÝ'ºÙ5„µ¾qC®PZ­Z“Çd+Ò4Éô¬­ŸrêwòÞýsÑÛXÐË"ŸXJ²±E<ØÑrübûÁi ŸŠØA[5š™ãÀëœj#[ W¨™ÍsößÀrk5eâ²J{ c¯F‘Üc…&㧈:¶8tÅK[f¨Õ1ú0™Ëskòˆì¼’ -‡Ùæîd?„¼[hV!/Qæ‹só´™L$n•÷óQn?§à\ü’ÑfXÆwA7-ÎJ 7ñÑ\h†“ðßÌéåÓkL¡ø66b”ãÀEfå¼M‚zYŸÝn2•0à0i+.6ß•Õ¼Ò2¥`íО«Cƒug®2 Ø wzh7ÏC<ŸF©q”7rdÿ¤<Í*gIiµj"NZÕ`·7–5±GžaP÷¿U´æ(ŲÜ8&G;\¹xTZÛ×qì0ÔÏ0ÿo(wÉvÎÒ;dÄ]™Æ´ˆþã€v™ -œ ‚‰€„ösÙdÜ´£$ÃÂÔêË:«Þ¦·…™óšR½5,¹ùP»Ñ¯Sd»t´žûËmÚßÇv¨Éj:X¨ Õi±ùoEoÊë,E%6³Éfe._:Ü÷ñU¾nõì¦ô–u1¹á^U±™0³ÓÉ¡eC©b/;âO,(JÏËf4:UŠVjìu -¶A®*Í¡¥rEfâ€ôüÐ᪦¶·³þÖ#1ðúó9®ŒDKJÕBZðݧr -0ñ6š{(Û¨ObáJâvµóÇÄ/Q¶–Z³›þÓ5§¯]?-+ÇRÏÑ$‰0à+¯fªkP–¢¯”ü!0LÖe¶€µš`r'$zqÝY{ÖÌpû'€ob.YÁdNmÞÐNÅä¨ÔRZ•]R*g3*0ḊŒŒ’LZ81E"×Q^íl„8YUØD_€A¸ŽZ³™žÎ!GºpH­ýø-ñæ¾BQè£7ž;Ý2Üͺ+Û\øè £n:ºûOѧÛcVYX #Éò³¸€&l©Äó澞7á= -%kÕ²}FnÄäPæ"ä&lŸY]{] “› (B°kíj¥Xž§KàF÷)Æ^k«)7fÖ§gdffhl -»Œqï°flÇ™”Ö}5|‡LfÓÐR…<-Å©l«(³”6²Îk¤gËÒ3Ü\ çv76f»¥,'®‹›/yBÁθ¸ÕJ¶ ÷"o‡»p-d%ðÊC_xÆRÓ Ç„8Â+WÀlÎMí´èKßñŸ¶Õš†9ò-Z­¸@«W3r˜ü‡·çvã8ÙÓØÐÝ™Y«Õ:Æ 7é]‰£«¥ç|? èrg¡ÖÉ6äa O¢×/Ý>•Ñµa½DÅgHÀšè̃\¤q{óO?ß¾ú»›‘Y°÷Ó#¢WÒ+wœºÕæ¨kè`UmÚº½¶¢Î-­ŒOÏÔçƱ€* ÷ªc8n·Þ8Gº$—蠟-\ŸT#oiuÖtX‹íÆÖXŽ•]憚£tcmÊÎÚsl‡¤bÃÚ™qàØÊd —,$#¬Û$î…Á’Ø­±¬@AÂK25Æ,–î*ñYYk|¼,e[®e¯9‡D?cŽ%TbZZbbsZgGssggZó!?RÝÙö6ºZ[/óÑßÏP¦Ø’Øò8¾‰“ŒQ,_›40|¥¥Žb>?G} òÞS¨æpáþk\¸oj·XZM|8îÿ;ÞXÇ áÛä2 Øÿ²`a„Ïÿ+^íÙå–­¦Õ3½xSDÂÃ.BjÂÀú=Êìýâ §£ïß?5xýXVëò“LêZêpjUö!ñA©4>:µýDWEC ö;vQI8Q”$p8AÀ©$Тä‹ðz<8`k¦…Ÿ'Àóhøµ–GâhªÅvÁ•Ónsž£K)Dã†+°!øµμ|»–.*4 -ÙW·b ]r‚$²Hà,kV:Ó‰£SS£åyÖêL¦J–gË£³•9Y‰íò³Ð÷óKàhGMC«øDdïúuRWÄ3Mrl¨Ã]ÙK÷ÔÉ’bÓ2—IYAÖ{$ðØŸ_šºYgÕš9Ÿ09R+y:bÇ•ú‹¤>³µ½¾¾­MZŸÌ -ŽŸmâ~Þ™>•‰yä‰&n¶¨Ú™el}4½+*}ã&|$™z#Â( -½‹fr1Åø.šwrÇl8 î€;¸«¹h+§¦(ÍE³Ñv´ÎD³¹Øb7à]¸FqCf¡(nH#ùÂ"ÏKn)¢ìƒáÀ¶†¹(¸ͨ5X¿èêøÒÆi{TÔÖð£{€'ŽZž Ñ/:dW…–Y1³½Ää Ûì¹›Yt÷ü‘}íõdžÅO\E~±)ºœh¦@ª)Ê£³4¥µEly¿Ây¸Â!øµ›÷ø¬{æ úȯŀø¸ºj R%ß ³ŸI5è…h2Ujdb@Í—€ç¡T½;UŸ¶ÉÌŽ¼CÌÒ¦eæiJZf(3·<ô†+ ™TÊJJe^äljm¥¦†®sV7ÝÙ2Á¦´]qlRt^¬n<%¯H†<¿æµB.Öžü憓Ȃ‰g?µ"!¯pQ÷†å k·p¶ºø=¯Ãñ°ÙeÕÁ , O)Ì÷æ1ŒÅµûY×e€j¿Ð{üÞÉh4#ÜFíZ¸$rso;#ÈV$drŽ&e;yf(± $A¡¤·JHPÉÙû/`äµ›ž¸‘¸U„ÀE,Êqâ. øJ˜è$¶Z5¥gÅžŸ8v•oЩuaà Ù~¿Žˆ»rk22reà°„ pR|}ÛÑ÷£ÔR)“%ÓÈrv7©B‡ëÁMÞ7¤'&Q#q€bþwâ‘@?’{0@‰=ŸöƒÊÒÊ7HçQgH¸·…Û®ó Ñw–Qk¡ñ:!ym•'η - Fì¬Á)[+nÉcÑ–G¨Ç>?ö)Øõ˜ÅNC–Èi -õ!:+ËVª`OL—Û£èÝß°ÛL@'LGÜ?wze;üHhG‰ˆÐFÜxûÅØpvˆ®¯(Hu±àÊì"œ(rÿÜé†3(OI.I§wïÎ8Â&íÕ(|‡f‘¦øœ|N¹Æ_CZüþ®¼ùO%R¼Ø -¼;ʪaêÖÆÂúá‰Nð{±Ûóí0–<ó…ïŠ8\â|”ÃÏQ_e®§¿¼°iæ»Û¶Ì“ ™X/Ä2£RÉ PQ¡ÆMyTPk?ôÝ9nÐüîWHóBÕ‚—Ƹ°ß®ÊÌ/L1†¡±ø“/±«à)Ïï%9áÎlim¨oÍ#SY çTLZÎ@òbŽ[N—,žÈEøÇ@wQuÑ`_ëvë+èúj¸_1pø}¡çàŽˆ¸ƒ;ØD€N่Ūq×ý–¦|¹|ÉÜ-áÛoßgRiJ2p‰VCq¯³ÝbÀB1|…ÄA9•Š»àÎv8ßͼ»_Àõ_ø‚nˆ{æCÎByCžw†8ÿ}ǃµˆý|ü³+͹yn@Á·Hè(øˆ,ª^Ï?¿'AQ4¦Å}Ö[5¸˜ -Âx±¼â’¹Áêg7Üzòú±÷â®g¹Ç„tƒ“0„Ì¡îÕyº®Úd=ÌáQº"Gª3éÌ:Öª^±ÉœWaºVA€¯AâÒÎë`Éé)h{aÉq±mÉà_鋂İíòO^8Û tf'1Ç’Wþ‰~€Z»ˆÇ=ö¦~öŽaó é|ùˆ/ü€ó¸c®ž\@y5|$ŽÁI5@ÉÝp­ }äÑ|ä Ð<3 Šk<Ó8‰]ò¹®¥¹ÐM?ô p .§<<o„Ç;*£߮×`½-à2v]w¯ø>?H;€üëY5߇„•LØ´Uó3Ù¯ @å1}$$sëŽ*Ž†Ž7êô™,uëõè/|Iô<âyÄ?"pð¾v®î…KZx@QîæT ^¿7Ýßò·x2–]½744´µHSXAC]{{zc+(5•Óàù«ÜdÃôcàCNgÆÌwgÍž3ušÐ'؇òù„ø„ú„ùˆ}}‚|€·ªäç³ÃçSÅ+æyF½2Êéëç»ß·• ´Å÷= ÷xðÛ'¾ž(¡rm±›ò´‘œÚàð=¸{úýÀý‡âŸç>xeËöÌý±Lb‚2Q±´NúçÃ=·9Û<ë½ÝSfMgÑr´ S{Ä„@Ë©Ô·W‚àÇbî?‚“àcêrƒ!¿½.í_.~7|Í¢”l{c,ãJVØ´T©ÊŠ?šyûþ£æÁaöÄ`Ó¥ÅgrŽ§t0Yõ²Š½µ|á—·N4õ¾öüä{‰qLRŠ2=kƒ³0ôÞác×é›C{×Ä)ãÓÓØ$îΊ >÷ZnøÆ Ïûî xìáüÂï=‡`õšgÓ}8² [»ÑE£÷dkcÖ²-pôƒ>pZ3E£ê«“KP u`ý²w¶þ§œv´ºlu]Gi-и=wïñ<[9O1‚ãÑ5ƒÖV^0…Á$íùû‡ñÏ_öJ£õ¹ 5èÂýe÷`ÊG[î À£‚úù\÷à-ñ㥗_çBœ•SW×&?›ÂŸ"Þì¬äåâ·®„8óàæo†ÑØoù«ÔÝíqáâÕQQ«ì¸ô䃺ÁËÃŒðÁÉÔôKqÇ/ˆ/¼~ëèžåëÓö¯ˆbZ¨9êñkåµç{9“‚~•çkoäÿ~ÿ*Òb8g*DLÑHpg.ô9¤zð,f!ßñhb^†Ï©ìÂü¼|Fš£Š£D|ÁÅê+uͬ»¦©¼þêØLô˽`óó f^ã°òG_h>›Ú²/'.–݃4ZŒFu!þ‰pfOßéŒKôé£5=½ì¥óýNJᾩð%Â¥Q_CŠA1{ÆÏœ¹çoðL8G=a½zø<€Ãª„'¾Á6'>_Q>ld9:P`F+§b*Â9Ðh/¥ëJ•‰ìÈN°V¡Z`ä TUžme0ª -ï'ƒ“Âç±Á+ÕdµÚ,k‰Õj3fÀê¶Y­î¢Ì:f,Oà5ó½>Gx8ï,ïþ¨M£®Žºé;Å7Ê7Ú·Ø÷¾ïcßïüÄ~‰~R?›ßE¿ë~ëÂNcÿÄq|4.Ä_Çâ…„¡& -‰ßùß¿0zúè„Ñé£?ýýè¿ÛÈDò6ù|Jþ Ð`&X*Á1pÜCY}#úE„DÿB†CÆ…¼òzÈ„ç^sGJþ@ïÌ6¿ÊG Ä -]Œ"‰‰H]sh!½tWã‰TVÞ©í».†wOJ>õ&šzeÄ£?Mè-úlœyŸôÜ`” †U„ùYyÕg¥|ð|[-eÑ”ÅßCfÏ¡Ù8:0¢^ƒ^WçDÂdpW-‘]ÑVa©²U²Çáh :ñÁ XEª=M%NWl322è Fr9² - ÈzÔŠ8›Z±7y ½yoÛÅdVÞ¯í4\ãëxÁš¶ôN~oÒîºíôÎHyB ºtŽ1wfBâOŸ\†>GôN¤–w÷]¥¯6¦Ì¨dÁƒ–V_ÏAO(50ŸÈRYìÙl¦+KK±¥Ñ“-²¶9æÃlZFV¶:¯¨0,+S—§g–çÉf–lO;+Þö`ÏŸr†éï¨éì_‹\deU‚m5g”V‹Ý]=-¦¨·Ö`¦û;[:Ø®VgÏ)q›¾AÕÉ íˆ˜Òv?Ô¦¿éÊÛ´à¦onj(ufmð{êrkÏñŽfER5S_µ_ž¿{]ô?2% „ó°u8ò¯ºq8ö7(xüäû|'ü…rü¡ÞQ`^ÀGï‰R£Yop ¼þ‡Öo‡N2'^o¹E_8%‹ëgÛ“«ÓšÖóð‡eâÙ:yn­É±Øå¬3*ÒEsaç+è ´÷­–…6²ËoþGÑ_Á€žžÃ,ÜC˜¯–W\´ò'ų È•xgu~N¡QW¤eßFmˆ€%˜®ª°ªLìrÚš'ŠVÍ…5yÄ‘1´"Õd´iø­;«c•âézÅ!&]™%SѺ|oÑÒ.—[sè ™,ý`GúÑ[ÇÏÃ×γp²gbegyY£% dJÞ&ïsÏv*fr\–.GMç+-6%[³k§#’ž3ûЖuì²u1SÐ(1Ú ÃÐ8GI¹ [ºxeÒlzm¸»/»åä¡o Ÿ®úžƒó×.žÉ:p˜éLt¦Ô®æ¢I_eÓ–zK°(´ )[0%á0aæŠ -SÝXš³‡EJ°(_³¢ˆò'¾¨%ŸªÅç˜UU†{PHš?©¬xláŒè”ŒøR_®1KŒ Ôy³¸Á¾ž—áTjYD\ÆfzÊÚO!ñûùÛŸõVjbÊØ’L,ÙáRÔÓÍuµ –˜µkGv\4»sOÊŠybD=š }®îèeZj[Û/óõa×±i$hùw@ò©¾Ray‰¾!F( C døѪ‚ÈÃìÈ:ÂðR®bŽž/ƒêZb¾UYgøïG›jøJsN•á2fGNµ–”ê5åŒÒY¡¯¤5­]Yî„})™Kv²ßqqlxfœ*\–CXªJMtÓ aXÃvnm\½âÍë¿+g%Ï|¹ˆ?RâM‰µH®‹=‘1’zgžw!MÉ­òI*õ„¢0Äà°ÞóæD?EˆÄ\¸ãã*ç5328ªy SzÆ`™£ æ9ñµ–¼2ã¾ç¢Ð¼#'6o©",§„0•W˜tg™*’I#Œ[Uªu…œ¦÷Ãôö>XÙËó¼üßç=. -¾4r5›øÀДŸ)Öåéòd‘\¯ÎÛ«ã+¢ÖH쳦•;Åõ —2­g1¸MÄ Ëµùkó†P™ÇN Á÷° |•*G~þüPšÕVÈê-E5b˜_#>6Ôf;Þç×ÁÜ,\;/[ù²|¡o0•ØÝôW8|­I5µ‚9Ò)ø¼ƒ¡;HJOOLnJoëhnlïHkNbÓé¬vV—•^¹ÙÞyûÓFç‡Þ‚_¡Œ8a,×g‹ãÞæ؇ ˜@|PíºhbÌ¥Å&ëBƒ3$pðÉÅ\U¥o`‹Dð9À_¿Cn¢×$´¨zQ)°gÔBN‡©ŽÔ;ëú®nÓ[ÍF]b±”TF_šÿg¶Èj,Ö•6uÕÔu ðÛz›WŠmz›^—-ÏR0Æ¢CIÉiZ]6¿xr¨6¼lsž7ÙëĽªÚ´T•,.ˤ« -g$$Ï_žNí—ŒÇz×DU®¢ÑVŽÅ½‚ö¬q®iÞɺ⫳ÄLDlèIüäc±×ŽçÞ¢á6.î} ü õ+ïQ¸£ûù{×PÝ«+ç‰Ñæ¹h4 -Ý]{b/“ÞC%ÜPŸÿZ Ã?‡†\”íb@q삵ÿ­ª=¡¼U3ÓB>Ú6{ÏcMü«|&ƒ}ÄÿZnÃáStB¯Ãl¼£Ì1ðÍÿ^eƒø:!ˆ!G"‰eFYɧ|¹­>DYqø.z«ÌµèµbÞÁä+`tÏΨlJcQÜçÀ—;ZZ*Ía5(\QAÔ•iÚB­Zâhögâ¿ÕDZ ÌS¼ "ÔÂF xîõø)2üŒ±¦ C¬)Tk” 'é,ô&LÇòªuMãÄp¥ÈQ˜!Δ&mÙÁ eh&÷¦OÊJ?+ᔬOF<З«Í‹ɼ¼÷½ÒéyÑœRn¼Ç‡ˆæº¿¾Œ=˜vy†X™«K62ú¼b£š•ÁKµÄv“ªlêOH-¡p3ÜxëƒjÇ-[X-rà# ·N"ÿ`’>•ÞÖv“m!¾¶;O™¼Uð”&2•Øg‘—Ë™¤Úœ‹ô@­ò 82íû«Ä“㤶–êíÆù0‚x}nÎÆ}v3ð"¡·Ä«Ó ¶ä„¥¾(â[ÍÅ%ôQGÁ^v$‘0,ÑlÖò•ð“Ød+(7p?×ǴצO6Å-cÑ.°4?o³žOx«xÃC°×Íûۯ𯾵"ØQ‹/,QWïða4¼€¶;HÏFb—mCà6îddY- ¶KRS^7`^5µ&=+5Ö™ì*¶D™kÍ£S¤™éI­™}=í•-Ílcƒ»¿ý!À»¡-wìeö2Sh›$W/WÅ0sQÒ,˜†ÉO­å⺊ò#ã¨A;¸ÓØ­/.>‡$a@FÎjß{ùdã™.&·;.ûÉÖ?‘@wpj«¥~˜½Ñ~øÊ-ña•·áHÚ”YQÓåt–9«ùBOskÍ‘~ñ…¸³;˜Æ½moÓ»÷Q–ºRSýÕíóæn˜¦P›léì?[c™ÉE Ÿýzcë;³Ömž–‘k¶'³‚ÿTf¼€øE9ÎÛ,€·`…Vk•²­&Ý[¼:í"RMGRz‹W+ø*ÔŸzÒÝ~ÖVn¼eñ:¢ÅX¥‘‹Uú\E -G¨P2Á}˜¬½ ¶Z\ï*ëcª\èœo0œÒ6dY^<6™ýNMZj–"á ù"\Ø«7ºžü$†[9·ÿ*ZÃPpÌc4–SíUó@þhôW6Aê˜ÓÜð"ÛÙÖPØI?îÙ’ÄzYÿ6IJœ7J|ûoãOP”ãCzk¾yAKáâ)œ ál)N•pß,ç¾ùÒî²zí+¡Ìßaà+€ÚcV;ŒÍ|ø#¡² r &%J›ª¬VºÄ¬ËdQa”j´û ü NxsÆg ÕÞœqªDJŽý)jˆJ ”âÿñ©Ï,~Vü îìÂn&Ú•mFA&>:(Ç_ýËðÏtåÞØrd?¥ÎJSéMZ¦G“SF§fJS÷ &]‚>WïÀ@ÖƒæOJ½ xÖœÀj< ¸å÷ÊšGvî‹×nÞ¼é ´( &i:=‚+AŸ|3Ÿ+m(‰‚z¾Ð¤.3ÞàÃi„Pv°·As„†à[è_ƒËž¾ ŒS"$_‹ÁŽ"¯A„“èœ7¹>…”‹h9ðL¡ã·:“—–³5xd1ô çfm&Î}ÅÆ©’¯ÄÀâ2WšKùÕ÷K¯´‰ëe.i†L.UTMs½Í€m6Wö Ýý™ƒ=œ°xÏàð3_xÞ¢à0ŠÃAƒ´µ­¡´H€ç\Š¿(6Ψõ6 ÌÄFŠ«IxÙEL“UÝ6²ÀT^ΩSc•*óPZz¢Vo²ªY›2ßœOgæäd¥5(:ï|p÷Ñ™”öZ¥ÑÂTR%ðÀ]‹œ‚ŽƒG»Îö1ÙÕX*0“ph"ÿ(*¥lÛ¿ðŽXG~ÌAyìgÒ³h ±ù@Á gPìçP‘uý=,ÙùåØI yÜ,ÞPäêŸÍ=‘G¢¹Þ´<œûǧÙ{ÍH¸‘ŒÄ!œŽïßA -à= -®B°ÓÛ]9â¥n¯·á6Yâm³1—ü§,PKÊ8ïKüËûþ;oŸõ76þOCáÓ¿ÀJÐ~…ÚÝ‘ÝÔ&nk¨ëê«ÏŒ=¤â8'?“ŽU¶\gA“»º£K|cKßä”\CA"£ËÖ -è\mI¹‘Uáè ViÔ[Œ)HuáÖܪóbøùâ'‹a«‰E5„q9ãÓ½%Ý•‘}£³[!÷ W~` d±Æwó½Ô ÜôêU-þmùÉéOŽïY#d'@5áåý˜£ÉâtŠ;ÔÕÒ,•<-×–Q’ÅO8Õyk½PÙß,nTÔdÄ+¢_Ñ1úyà¸oÕIóï’„À£*‚!žQ0„7À0™´Öÿ 8´JMáv(RÐ÷*÷s†³Á/žÏ¦vã&RpÄÅ!ÈHÜHÜͧ«FâɃ¿]Wž$Ÿ’‚Žòg]Qõïæ¡ yú½%N»©”Ô­®¡ÿ U…··OÀû›ÄëC’¿ð\uƒÏÏnÞ_~å¶ÏCðÀ ›*¤é%™4€Éó¾÷vÜýÉÜ¢%‰كœ‹l0^2”«›ÃFŒ~ 996®=¹¯§­½§/¹ ¼`ðÍ/üvà Ípć0µ´e4:GÕ*ð­Ùîó,ÕÈ-¥%¥|€ 4×TtÐuuúü$5¥”…Û‡+ëJ\Þf§o´Ë[q¼æÁ¯ñ€ˆC +ðÓE€Ï'Ãl>Ž„hà,@Ñ[hZßBÁAñ¾ÿ¸Mrïë òeJ}­×xsi@ŒB¿`Ð_ ðö‡„³À£‚)×y`mq»GÜÚÚúz’Û½bøáÙòMà‚æ| Ët„Zû€®ˆ)Њ ùÙŽ›èuµNÒÁŽc°©pÊM”SWáo3„©°r#€«½å] a×5ÄéÊÍ¿+Wy{ê?q*>;^›Z9ëÚÕ —ºyÞƇŒ¬pºˆ‹€'óÑ‚ó\©h"Õ²¿k¶px”’¦ÑتTŒÛÛRà)ú§°oǤ°„p!ÈUK¹ÍQìÿ,…KŸ -endstream -endobj -1265 0 obj -<< -/Filter /FlateDecode -/Subtype /Type1C -/Length 11578 ->> -stream -xœzwxTÕÚ/CØ…½’I™Ùf³÷F&X*ˆˆ€ô -dÒë¤L’I&½Ìd&½·I2“BHB „Б*Š"¢¢Ç‚¢~õ¨krV<÷® úï»Ï½ß÷™Ì“é{­w½ëWÞwI&M™qxâð«Ã˜t¶t‰t·t¿4Iš*Í‘vJû¤¤Ÿ9Nv”9.s\åxÄÑß1Â1ɱƱÉñ¼ãÇGŽß:N38-rZéôšÓ:§ÍN¾NÉNeN§>§!§»N÷œ8}éôÓÿržê,u~ÆYtžã¼Ðyµó^gogµs–ss›s¯ó€óMçÏsþ§ í¹¼ä²Þ個K˜‹Ê%Î%É%եĥÅeÈå¬Ë—.w\î¹|íò™Df/s–Í’-‘mùËÔ²Y¦¬Tf–õÉÎÊ®ÊnÊÞ—}"ûRöDö£ìWÙ?åùT¹TÎÉÈWÈ7Ê÷È˽åAòpy´<^ž"7È«ä-ò>ù¨ü–üùòoä?Ê“³–fØéìv1»†ÝÄîc°¾lÍjØ46‡5°El9[Ï6³Ýìö2ûûýšý‘ý……5c"{'·>’wKNYŸE«¬ŸR}Ј C7«#Âiš×¹­ •"̦ ¤ßÑb3|E&!Ò/M2Ð0‰ê©,…+ΡéÁ=Æ? µs€õ6¦Têh8Ž<¢©³¹p*NRÁÁêÔpîX’霿A»£©þŒb8•A…Ô’÷G£]5#W„­Ô@µ¹àV1 Æ6ZX¯Ô*è|@DÑÖ&<4¤?­|!%ùHútô²P» -bË›•ÅæÆ BucÉÎ×*+`±ú°ha49 «ÈŒV¤êÒÓUÂ&´=ÜA¨Ïåå•(ª+Š-ùB0£ühª)·(·(=_?´ æ´Gg¦%¸‡U!Ñ\zFI©!ÏhÈ …†ÂE[Œ)P¥<Úr¹³­¼±Ahh2õu= ¬ÏN«=UVÖžGîn»<Mvç”gÄ(´ZeèëBr@F¬6 u »>á3ãD™¢¦¬°'_0#m4Õ›cÐ×o1ä3ò36¡µÓ¢o|KÄdW—+jËŠ[ ð§TÑTsvAVË8œ™f&¡3¼ñ3ºA4‘ð%ëœêî’’–Âé~ ²pN,•”••­å²Ò…±<$¦ †{yËŽ[ú=~ò¨B~aQž=N'D W-dcyQQ)WX¢Ë)SÚFRÛ¸Ç7®ýžr`Þ)qS[„¥SÑÑjéiiNkÔå Õ^4€Ö0ÉÌB3Ðì'ÏÁiÐõ»_àLøìÂ_+BÙ+õûÑJô¢Ú}Ïnõ98®¯½.‚±]c+Y©"ßÉ®ÉW¨µ!QÞ²C;=LÊ-Ôu…Ó“›r**Õ%ý‚Å@XЗ*ªS×o -‚ÛÐçÓжPkKÓÊu÷hx°…‚¾è6}ÈñmÖØ¢‚êü"¡¬¨¦ÐÂ}Óí=k[’_Hœ•”¹VOƒZ"?ÍXù:’-ÝÁ^ñNñ¥9ÊMñÖa¯×w¶œU -‘ÝɉïÒá(¯l.*)©áJÊs3Åijݙƒœÿ÷Ï¡Ë}Ïû[OˆhÞûĪ¾XËÅõS=ïœ>ïRè ¬ 7m¥Á0ßÖu2ìx (5.âÁ¾¤7x`fƒ -´Õ= -«ÚM f”¤|ÒŸÌ Ï4:øøG%ã–îÿÎøåÄÑšêŒÔ"±0=/ÏGqÈPÛÃj6÷^ß|f š1ïYôáÿíÐÿœ  Å›;¯2{ÇñȃsÑsÐÿ8ÉÜsK„2Êø~yÅûx×^®¬ºU*XPˆŠz?Ó·A®Pègë:¨HSmÒÞ3âx8¥ß­ÑnÈ u%\ÊFaé š˜@è´ez:œ„ë<¢yœ¢2Ñ,¢™´|×\gê‘v|þ4•UFe|¶ðÆK8ãà"FQº“5­Ú„üÕT›¾&NçO£áèo¢" šà èc§¡HÊ ‰ÐÓjèx]wMCÛŸßjÕWÇéið -ÓK?ãÒúåkÇÍù?”m¶ÆYg±ç‘+%kÛÌÈz×ó²Ëך\Wô¥hdïù3²E! ˆgà]`U²Æ²¢.¢î3Caƒâ¸º1"2.6L›W'”(‹ƒ ÃiÐØh®hâºj#÷‰(›Ò+µšà\:¦P`yAj¹îm5SÐ1gÔ£ºÔAbü2ymd-£CЩ€7Sºµ©i+0~ƒXE¬6=P'dëµúd=~a Ó_Žs"DcêÓ‹Ö¯ÐÞhªC_oPÒãÅø’ q!z|É -|ŸÈÀÏaû#ÚB”&3ÓMj¤¤†C¦2JÜíõ͆EÓ¾ƒÂ­oÌu׋§›P¬º‚j7«U‰ñšq«á\"©-§¬TQ[[ajMè‚šÉm¸22 h±æ€2Ô—KSÃS<éSm©,ª®n¥«5Hôb@Rž vöÁ“=HÀ¹ðu¸ÔVÀ‹¬ÞlÊ«æ¾8_fÏ·µ_¸©¸|aw»`ò *Þ¡OÕ&r4·:Q·¦ ‹ø5üÔ²„·š§Luø«'š³RkÄ–ø]Šyþǧjò Aº‘ÀöŒà¨cŠ=÷ƒ  \ýÅèö ¼o×ð8¿räl3Õ|âDKK»(ÝÈxk™ ýƒcÈãÙµ9…¹tAn~V¶"--!5U@r$'¬ëÑ®hꄾ:Áà7±¾šøЉ•0SG‹sŠôÃ4$©&ówHAÔ©ŠR2)ÉYz!jÍTjv~EºˆÜ`Ãßm®»Q‚ÿ<Àî†ÏÚÙõÕ -SyE½PjB1j²#£8mIàTÔ=-ü Â?)9!™ËÌ.,‹)Ca^A>¦³Æð UÀ±“ÁÃÃ=7Íä­Äi -‹» xŸÃk\_¥OÌ -O‹äßÞu²í/ì1ðIµ`<¦²O`ÎO(‡'[[Ož ÇïÖߨ­6ôÑ°€ú›ÛÅWwyDìöÀ÷y]ÖtJ~€Ëa|Ó®ÊÞ%a(| -ÐC"tFI"º¢"od×'ŽÒãi”Wdì>ê¬Ù&SEｑ෺„÷ª7—+^P/ ñ<‚ŽÄlå<µ•§E@é®V×u2¹WjêÏézº«®'Gu5ñº=ôx#Š°6ú1¤t//5I¬³ ”=ê–àÃ)Ãk»Ôb|{fGÎæ‘YŸ$ ‡öÐÝ!ž¦ýrXù<šfü”><ÓþÍM•ÁÕ,dòk{Ïr­uI¡%bA|~”á D×^ãÕ¸€îÌ¡#m¡§ ó EB¯Uù¼á.œ—”îJµmˆÀÈÉY8>gØÁB«‹¦.›‡¸M槼ŀ®ó1§¹ó—›ºÅî~ÓÛwð™eÿHA¯ÄáHŒ,Ë"óƒ¶+Ðê„}Ž% ÿ -·Õ\Á¹ºÛZ:¤€_§RhåV"Ž*;^WXÂÕk#DE6$§nãÔ0‡·%á ¸Ào`îóÀzµ+€(cà‹ŸÝ€S¡üåwÑ«±9y¹‡E¿)ÆšÒ¼rîÑо¹‹}ÜÖû¥Tõ‹`´¼©Ôl¢eÖ‹ià”âbÈÙ=íB“·géznzšIÙ¯O†.Zâí¶A©­ê­mSêI™õog®\~ôÈÊœ´p&/è‰VÀÈSY¼q±ª!‚€N|K±|Ú²G᧊RjRŠLqBXsFAx>™®ÕÆ+‚{ãÞèÉa Ýá/îÕ¤—Vä -„rêxtc2Ful¿ÿµ«Ã]˜$ÃBƒý[Ã{ñy -GŠd€o ÓÛÞÞÓzÂ_Ag!%6ÁbêzöñÄ.ázØΓë87ÿ¤QVÚ >dÆœL. ¯6öÁs]ë›úÁÕzƒì‡D ™¾€Ï1š„25§V©Ëµmñ"œµ„°~þ6HãSüž »{GHôáx:%<8+‚Û²½k4\ ?ŸüÞO -è ~nè¸Ó\“¡ÍÑeåf -Y©ºŒL…¦4©"G^î~ŠàU^Úi“#UuH€ø%<W'1¶Y†4US–œª8]½ŽZuFùsK}~y».*ní8ýr´&7=\ÈÑfè29mVQ…˜ˆq®…´dæØÁ>ØÇ¢DÃRß1¦hÇ/K`v`Α¥}’_ óÏ`A€ß²QŠ¦Žmb½}<;‚;;ƒ:½Ei¿’!` ©ÛKQÆ}I‰ k˜ØmvÔ%zW -å{Xƒ‡!*XžÇ^1ÖÆŽ€É?1àÌØÔLÀÞ&ù8+°ˆÀÎ@Ù#(Ûx¨tý·ð6…U'”M(¬–Vï­â;(„Fæ¼®ú/4Ùi)Z9#€®”¾³¢¾¹6ë2 s¶ûäð°²ÃÌ붸´¦¢Rh45U4r£æ]è08ÝÊá¡žž! ¸pê€Gx¸'½Èr—;±—‚ÕP…ð?¼æŽ/ Q‡éèl5 0‘Q…)&CG³“ÛjÁ{ß›4(Žnñûùz€MQ¨)‡ -Ó4vE`éKå.ö™ú,bms±¹p„–FjMF¼æU]o[óÚ#hÖ—dF)ÐEÊ Ô&Ú€:x(•ž‡OúŸÆãVöàùœo9Û*ÔŸ(鹪îÑ^‘b\`Ʊe -€Ò|—òp ¼?2‰À5,æ)¾´šÍ­Oñ…Œ‰‰ŠhŠiiijji‰iŠAÑBºz ëéïïåqÒètw÷i`â¥?3¥%˜õ ê뛹J@þˆù'ඊ - iŽ:ÑÞÜÜ~BÕ,‚ŒÍè©)8ùÚà'@y‘ïí>ÑÞÓÚî'¶ÁÂ"›*p1Q®“V±ç‰ä¯ãkÙS-µB¤Ò–Ôè+4 °ÕS¹"H0“½ ÕÜ© (/-S3NÀiâáéúDò€ÚtQ]4œI4‹2&Ç®¾Vƒýƒ*/ÛöϱI@¬èúEé÷pë)8딜汣à Êa@ Ä6-ãEl½“%;º€!ARyyZ —_dÌ/‰ -Ç݈‰}˜Ð:±ÖkÀx ÌäÝ¢–γ\_S¨hîǃìŸ$èRÜ>uøp°Ïö¨BÛ|ñŒµÙ -(i|½Õ§zU“ ÀˆìŸIò1’m+(,,,((Î/.üÚÞ~ ®ØRb©(+-(¬°wxÚÙ7É<é;Él‰I2,¹+“gOž79rÅäÎÉßÚM±[n·Ù.ÒNm÷Ñ”W¦lšR5¥nÊ}b1L\ ®ïŸ?“!äWÔkTUHÕQŸÐ›èP:—®¢ÿ˜:yê SÓ§~Â,f¶01Œ†IgŒÌ s H€ LžÀ:À5pÓ^jÏÚO·çíØ/³ßn¿ßþ°½—}®}½}“ýÇö_8Lr f9¸9¨RÚ>vøÌá±Ãw¿;ŒK'IIéé*éZé^©Fš*Í•öJ‡¥W¥w¥Hÿp´wtr|ÅñUÇ×}3›O;žs¼êxÇñsÇ_œœ^rÚáäéádp:îÔã4êtÓé§Oþæô›Ó¿œ§9Ïs^îü†ófg/ç`çXçTçRç&çÎ=ÎÎÃÎç?tþÑ…p™á2Óe¹Ëz—Ý.‡]¼]]’]Š]Z]κÜuùÂåw-“ËfÈž“=/[#Û-ó”EÉ2dY™¬ZÖ ë•–Ý½#»'ûJö›œ”?#Vþ¼ü%ù+òuò=òCò ¹Zž&Ï’åeòZy£¼MÞ%‘ß’$$ÿ^>ÆNb¥ì3ìLv»}™]ƾÉîb²Al›Áæ²¥l-{œígÏ°çÙ«ìmö=öûû»ëdW©«Âu®ë‹®Ë]_wÝàºÕu·«›ëWo×`×XWk¶k‘k•«Åõ¤ë°ëˆëE×kc{þ,I?Ènˆ{s¢j9ß[<çuÎà”ñAUå'FŒ¼UÔݬr­ñM}A-h8ü¶—xæfÂûÜï6vˆ§{š?üVq“Ò\èÌ>–àÍù…×uʼn '2:rîÒ°Ìú,i8¤‡î 9jÚÇ!§óÑ\4÷Ó…Ð铳íOn‰˜ÜײÐ>¿®ï,7\„ìŒb¬ÈkêyH‰uí<4úâÛ<|óƒÞh>Þ€ž¢>˜…“o"䇎íÄ -œFÔ,¨¼`è Hé"°†ÝdÓÒˆÜÜ\}6—œYR+Â*êóµ£HŠˆµßð1G÷÷µš;«²+µ5BzYnQ‘¢¡¥æ¤þd‹ÐVy!·:-T¡ÍMÊIÐô=š¿"R;s+ÊæêÒÁ|Áh«vˆtKEõëLéåÑ] §!½ì­“ˆìZ]q©¢­¢t´@° au*«,½ö0 ÿqZ+ wZ£àÚñ(¢…„G­?Vö56tæOI¼‹c¹[Bò²»³Ù·óÙOË0Á]&‘#Ü@¼Dâl .‘pÊR+iaר«ôçik°Æ²rCWRœ›] –¦åé ÏÓÈ -Ë.ŠöUŸ ºÍAúÁïpÙ½äwbÛDSR|Y4çZÓ‘"¶¥çëJ2èÊäâ(¥bÏ[»½:ð u:¢783G¯ÏÁõÀ*{BF®àÁ#^_ÿ§ÈOnKx*òÇ\ š 'ƒ×¨CChÿcûÖp;m:kèDš~n›êÏ*êvn½ÆÊèÝ“S7dÐ*ë} -lÌ3Y]\>âe­'ÍÛyÙéÅŒìÁ«<ø¬ÂM8ÚŸJPbNÿÏ> Ñ”ùhÊÄ>Úbÿ )½öESƒ™%éï4Æ;#Ý+kÅ,3€­{·š¨üâò²2dðpÖ—è±³f©ÙÙKÞx]\¿Ñwá<¢{^y´VØpÿ«ÀŸ¸Ÿ¿ê~ÿ}ñþýžo~UüêÿxÝû‡o,î~–Cß»°p?\„oûá>¸-BûÑ^ôzíZ°æÄíMÂæ;¾Vxm!šÕ‡MbilA‚J‘Ñ?Œ¡Ò{ìÒÑ‘Ð IòëÜуe/ÐpëxºŽ¼ «NèáäÒ jk+yz*2Ùm؇¦h%附IWÈý2©N‰æÂâZú®œ:õq~qk"ŸaryEÙËðŒ™Ý™ŸZ©¿AÃ=Ôhë@GIi¦¦\ˆ¬¯No溛[{†‚:ŽRFm:*Êî~ŠöDS§²ËS&:6i©Þ™8põ 0`L -³Ø(Ò­Úô:Òê8F5ã T:F´’g xºÎÓU: ݆q—?ˆië -H¬/Á ö,"‰’¸‚”tETBª· R˦t2Ú˜Y¬éBeÖŸ¦EÈgütÜÖ°`?Ýt5Tšb©ÀÈzsi~eI£ØóñLg?CžZL‚»le<”˜p±Þ7©ÈCMa„.« Þ¾ZÑ0(~Ú{ññ -Hnú~f§Z–h\_˜`˜VNéÏÖÔàÌ4¡ûj39¢«MЦS)ŸÜÍ9‘™¾ñÓWø¸-™¯˜ñåOý„ØÓWR¯sðE«†ý9ëâkh¦‰û_›“% Ù®sŠö?„¢μôð§"Aú -?ÑæXË'¦Çƒe¼©ë/ð&/ËÜÀÈ6üUÐÑøÚ“-ÙÜÇ1¼6NglUh88 ÿ]ˆ.‚ÙÇ(…œ(6«à]ê*J£€—)«+"¡Š¬5” -å%õE­Ü{ç‚ßê[ܪÖ/W,R/ûïµi˜Œ´t¬Ìª ©…ÚjtÅ*wC·“–Jð–=¥¢fåF+4Ù¡¡ -Cá ¦ŒïWWß+xÊ#­Ó,ÊJ; t¹‰5^E¾+¶, -¬Á®¶QU¯Ž§_‹ôõ;¨8V—p3F,ú^E~–SfÜGÏ¢†ÇnÞîS?,x]Šç†Û†,BlU¶N¯ÏÈ™žÆ\ØÛ9uÉFwz<œÒ¹'§àU¶¾KõBo"’ Ý¢ŽŒ <Ý4opÛ*°CH£~ïS"²\l†ŸG‘ÉhŠ_À, ã©îŠÒ _žO‰hÚ#«Â*7ÓfxhÛ^ÐCÐÀÿÕçm -êZ;ÌüUÅ‘µ5{ç`A½Óí~Â.ö‹ÐL¤6ê ‹55¥-B RW9qm;áËèâ4ôŠ­ ®†_›Â¶ðù—h¸™‚ -ØÒs¿¼|¨hº íS›¨ •&+QƒÍº+üÂB®)Í(Õ}@Ãä ƒµô'íƒ×>R@zÑm´z¢]ÿNvU’q½­]¯ß‘ë™Cç¦ét©"Ô[?b›j+:ux¡IÛS”Q1‚::8sÆ–²K¶Dïß*®Ûî¿MQ`ƒ¤@3 <ˆüþpÇMáÖ¶5í³¹‚@ö÷kh&“ƒÛÐÔ™G=[‡"ÅÐ Éïþª€N¦†/ -µ}œJ©‹U'ëÊ3S²s³²Ò„ô¤œ´TÌ7kTäÎe¾ž[÷Ó‘£èµuÀ÷î¾ãŸö ªrB©Ö$Çq©µ}"¼`ë_)d\xûöAe¸VUs£{ÍÖ®š†Âbºç|us­¢8§ ###G›$èõ:]®y¡•Ór(ŒJ«°»§ïŒÜþ›âî±á]‡‚CÀÓ½­«VÛööÈðêpÝ–@>þjëYÄh²ótQ"$ -Ê Å±»ò - Œ­šãqä¤ÿ𙞓ÃglÕÀþú¦­¦{SëKÈÂ$»S­'ÄNúÀ#h!| ݧÀ #âÐkh-V`xÝÑóXÍÀNr t„ÄEéƶîÐQî››¿`©ê|ø›ÍÑ1!Áõq]Yb_¦A_©¥«‹#<s=·­÷¬í‰Z®V (ÎÄ´(£CyVh:bÛ7ÖÃG¤tÜàI?\cÿ¬¨š¨¨¹åÒ@§@ç`¤ƒið{ÛÒÐjæÌeqØBæàRï=¿ãH@øÆáG -mÙ_¨&òK - ùœyÂn߇ÎÔÄ’1àò"@ýÕ[Á€§E’bKÑ9Zúú¸{¡Yä±?jþ¦Á†âòÖ&Ü:h²¾ZÀ£¿f·%ñà SÀ5Áøê§Ý¡Ò‰îPéŸÝ¡¬¤t]&•cë}eMg‡ë•/¾˜päHBד'uÝgDàþ˜ÖçØ>&F¨çW0î¿´òQ2õÊzâõÕ=©ÿKWßL=íûK­snß¾mج´Ä­£ŽKåÜTW¡²-W¯t´G+«D`s21;ù¿Úä{¡œx@¡^(‹qƒþ«ˆ?ìHðC_j;‘“’¥Ïà|BºßOÑä:6# r{B˜›’Èy©GqèÅ.ö6û ºC”Æk‹Ë -ó‹‹Ê„²êlŽG™ƒýUª€ÝWŽ¶ZmL¤:`"Ò2 ?¯žì…5½.ð,ô_Ä2®’ý:dïzj²Ì¸<Þ,†‰V²›¿z»;mÇ\†Ò‹² Þôÿ›à+5@;L p6È3IÀ+L»©ÎâãáK| ÐùÃçy`3XôæC[—*Þê?zm¤ãĹ¡°ÞÙYyú,AŸ«ËÓq©¥}ý÷GEðSl(ãþž°ÛÃc¼x[3a_b)ÄÉq“ô!vSÆS’ÞPœP©?GÃD˜…)ÝÁDíÛÙ¥o)pÞØÈC¹Jô­#€•€ Ùõ¥¯ç8x³!¿¦¤AŒ?ÞœÞÊõ¶4o©ŠˆÎJÂÛs[BxLt]U Íùp6¯«|ëɧmyœ&`aÿ”6 t®¡ö¶­pø­Šz'פÁ„‚|Qô¥ €1oÚâ›Ybºž´ ZWD¶jcµŒ¿QÆe©aœ)“ü³r|š?n MÀ”±Ä†žh9Z†Qâ \ŽVÀCø¶®À{?[…ˆàd yµ[µ­K0y²¦­EGV+ß„CÝî×|3Hð4ÚÎî2jêuØ#?K=cÑžæ ñðp>œùÆdb  õHœº½nM«l%:Œ¡H°€Qûz¬æ!F\„D©Bþ,ŸhjÅ”5)Ï £h‡³Ë PvÜ¥>' [ -åìe@<˜åщP.‡î8”+ð͇r9|Lœh02à+Æêcb=È]s‰:€Ö·‘…ßœùãû”ƒ=¢þ{¢\ä{ÀÓÎx}sV='›Ñ„¤€n¶Îa;˜/?¯½Ždñ9q…Œøt]—QfÑ‹ C¨ -Š,x‹C;à N 2¾‡ák¸¾Æçܶj·PÒ£¼ídÖ±Cõ¡~Š M\THrÓÈ`AM}« e­s¶ŒXnS?¼=Ž¿t›G[G¼>¼wîÜ=0aKá6“änogm7³ÐÚ£¸x¤oë[îž»|ð°Þ=ŸÞþÁ㋆:îw ðþý€ûî≯¯Š²ŽñgCXUtrf4§Œ7ÛjèÚH2 )=-ŽKO.(‹Í{Ž”ÛúÂ(€B¯A"¾)³²Jaª©hÀŸýÀæþø ÜÅþ¿èy°†æõ4€/ÃÅp6¾¿Œ×îþë@S½ °;`õ¨«ØÒ#ÞÑ‘jn‹÷Íäˆ:0ª={ºaÓ™x“ P·]ú†¥Q ‡9­:Ó7gwÚü:@î‰×I„Áÿ<ˆ/›(ƒ‰Ë©-J»i€Vgó¶îkn5†'yCô9)"¸*×àû×ìÆüŽ¹â£‰ÖPœó;¾yë‘ð@ni—áºnøj¯D«Ô*›š-øäZ×pKBJ• Á¤ãÖD*Р 1¿Â¨¨b÷)ÓÛï`±¿fÁåX[!þnÿ3 ïwre`¦ -ØÎ}àÜ%àr€u=˜8«’€qtK~‡Î6‰jÆ[È…8Cžu;2vä#$ Ñ³”º ©4gÞ3Œí0#@¿ìÌÊ -ÒOWk'T²_Ž–Pài³ì¤®¦$1R¸(Ïlç?Àÿñå¼£ -endstream -endobj -1268 0 obj -<< -/Length 3057 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F46 8.9664 Tf 256.776 645.656 Td [(Pro)-28(cess)-343(0)-8224(Pro)-28(cess)-343(1)]TJ -33.967 -10.959 Td [(I)-1333(GLOB\050I\051)-1334(X)1(\050I\051)-4657(I)-1334(GL)1(OB\050I\051)-1334(X\050I\051)]TJ -1.282 -10.959 Td [(1)-4966(1)-1961(1.0)-4514(1)-4452(33)-1961(2.0)]TJ 0 -10.959 Td [(2)-4966(2)-1961(1.0)-4514(2)-4452(34)-1961(2.0)]TJ 0 -10.959 Td [(3)-4966(3)-1961(1.0)-4514(3)-4452(35)-1961(2.0)]TJ 0 -10.959 Td [(4)-4966(4)-1961(1.0)-4514(4)-4452(36)-1961(2.0)]TJ 0 -10.959 Td [(5)-4966(5)-1961(1.0)-4514(5)-4452(37)-1961(2.0)]TJ 0 -10.959 Td [(6)-4966(6)-1961(1.0)-4514(6)-4452(38)-1961(2.0)]TJ 0 -10.959 Td [(7)-4966(7)-1961(1.0)-4514(7)-4452(39)-1961(2.0)]TJ 0 -10.958 Td [(8)-4966(8)-1961(1.0)-4514(8)-4452(40)-1961(2.0)]TJ 0 -10.959 Td [(9)-4966(9)-1961(1.0)-4514(9)-4452(41)-1961(2.0)]TJ -4.607 -10.959 Td [(10)-4452(10)-1961(1.0)-4000(10)-4452(42)-1961(2.0)]TJ 0 -10.959 Td [(11)-4452(11)-1961(1.0)-4000(11)-4452(43)-1961(2.0)]TJ 0 -10.959 Td [(12)-4452(12)-1961(1.0)-4000(12)-4452(44)-1961(2.0)]TJ 0 -10.959 Td [(13)-4452(13)-1961(1.0)-4000(13)-4452(45)-1961(2.0)]TJ 0 -10.959 Td [(14)-4452(14)-1961(1.0)-4000(14)-4452(46)-1961(2.0)]TJ 0 -10.959 Td [(15)-4452(15)-1961(1.0)-4000(15)-4452(47)-1961(2.0)]TJ 0 -10.959 Td [(16)-4452(16)-1961(1.0)-4000(16)-4452(48)-1961(2.0)]TJ 0 -10.959 Td [(17)-4452(17)-1961(1.0)-4000(17)-4452(49)-1961(2.0)]TJ 0 -10.958 Td [(18)-4452(18)-1961(1.0)-4000(18)-4452(50)-1961(2.0)]TJ 0 -10.959 Td [(19)-4452(19)-1961(1.0)-4000(19)-4452(51)-1961(2.0)]TJ 0 -10.959 Td [(20)-4452(20)-1961(1.0)-4000(20)-4452(52)-1961(2.0)]TJ 0 -10.959 Td [(21)-4452(21)-1961(1.0)-4000(21)-4452(53)-1961(2.0)]TJ 0 -10.959 Td [(22)-4452(22)-1961(1.0)-4000(22)-4452(54)-1961(2.0)]TJ 0 -10.959 Td [(23)-4452(23)-1961(1.0)-4000(23)-4452(55)-1961(2.0)]TJ 0 -10.959 Td [(24)-4452(24)-1961(1.0)-4000(24)-4452(56)-1961(2.0)]TJ 0 -10.959 Td [(25)-4452(25)-1961(1.0)-4000(25)-4452(57)-1961(2.0)]TJ 0 -10.959 Td [(26)-4452(26)-1961(1.0)-4000(26)-4452(58)-1961(2.0)]TJ 0 -10.959 Td [(27)-4452(27)-1961(1.0)-4000(27)-4452(59)-1961(2.0)]TJ 0 -10.958 Td [(28)-4452(28)-1961(1.0)-4000(28)-4452(60)-1961(2.0)]TJ 0 -10.959 Td [(29)-4452(29)-1961(1.0)-4000(29)-4452(61)-1961(2.0)]TJ 0 -10.959 Td [(30)-4452(30)-1961(1.0)-4000(30)-4452(62)-1961(2.0)]TJ 0 -10.959 Td [(31)-4452(31)-1961(1.0)-4000(31)-4452(63)-1961(2.0)]TJ 0 -10.959 Td [(32)-4452(32)-1961(1.0)-4000(32)-4452(64)-1961(2.0)]TJ 0 -10.959 Td [(33)-4452(33)-1961(2.0)-4000(33)-4452(25)-1961(1.0)]TJ 0 -10.959 Td [(34)-4452(34)-1961(2.0)-4000(34)-4452(26)-1961(1.0)]TJ 0 -10.959 Td [(35)-4452(35)-1961(2.0)-4000(35)-4452(27)-1961(1.0)]TJ 0 -10.959 Td [(36)-4452(36)-1961(2.0)-4000(36)-4452(28)-1961(1.0)]TJ 0 -10.959 Td [(37)-4452(37)-1961(2.0)-4000(37)-4452(29)-1961(1.0)]TJ 0 -10.958 Td [(38)-4452(38)-1961(2.0)-4000(38)-4452(30)-1961(1.0)]TJ 0 -10.959 Td [(39)-4452(39)-1961(2.0)-4000(39)-4452(31)-1961(1.0)]TJ 0 -10.959 Td [(40)-4452(40)-1961(2.0)-4000(40)-4452(32)-1961(1.0)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 100.659 -105.903 Td [(60)]TJ -0 g 0 G -ET - -endstream -endobj -1276 0 obj -<< -/Length 8516 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(o)31(vrl)-375(|)-375(Ov)31(erlap)-375(Up)-31(date)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-333(s)-1(u)1(broutines)-334(applies)-333(an)-333(o)27(v)28(erlap)-333(op)-28(erator)-333(to)-333(the)-334(input)-333(v)28(ector:)]TJ/F11 9.9626 Tf 154.475 -22.077 Td [(x)]TJ/F14 9.9626 Tf 8.462 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(Qx)]TJ/F8 9.9626 Tf -175.667 -20.14 Td [(where:)]TJ -0 g 0 G -/F11 9.9626 Tf 0 -18.503 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 10.676 0 Td [(is)-333(the)-334(global)-333(dense)-333(submatrix)]TJ/F11 9.9626 Tf 131.092 0 Td [(x)]TJ -0 g 0 G - -141.768 -19.214 Td [(Q)]TJ -0 g 0 G -/F8 9.9626 Tf 12.858 0 Td [(is)-333(the)-334(o)28(v)28(erlap)-333(op)-28(erator;)-333(it)-334(is)-333(the)-333(comp)-28(osition)-334(of)-333(t)28(w)28(o)-334(op)-27(erators)]TJ/F11 9.9626 Tf 271.842 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.494 Td [(a)]TJ/F8 9.9626 Tf 8.14 1.494 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ -======= BT /F8 9.9626 Tf 328.638 599.341 Td [(gediv)]TJ -138.996 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(psb)]TJ ET @@ -19928,7 +13038,6 @@ BT /F27 9.9626 Tf -125.682 -33.312 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -33.797 -19.844 Td [(On)-383(En)32(try)]TJ 0 g 0 G @@ -19940,52 +13049,6 @@ BT /F30 9.9626 Tf 142.027 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 177.988 587.879 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F11 9.9626 Tf 183.966 579.311 Td [(x)]TJ/F27 9.9626 Tf 120.409 0 Td [(Subroutine)]TJ -ET -q -1 0 0 1 177.988 575.525 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F8 9.9626 Tf 183.966 566.957 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ -ET -q -1 0 0 1 319.972 567.156 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 566.957 Td [(o)28(vrl)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 555.201 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 555.002 Td [(o)28(vrl)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 543.246 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 543.047 Td [(o)28(vrl)]TJ -138.995 -11.956 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 319.972 531.291 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 531.091 Td [(o)28(vrl)]TJ -ET -q -1 0 0 1 177.988 527.306 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -======= 1 0 0 1 283.148 411.028 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -20061,50 +13124,8 @@ ET q 1 0 0 1 276.779 251.788 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 225.577 499.266 Td [(T)83(able)-333(18:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -124.305 -28.465 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ -ET -q -1 0 0 1 150.859 471 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.217 470.801 Td [(o)-138(v)-137(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 226.044 471 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 230.155 470.801 Td [(a)-386(,)-914(i)-152(n)-152(f)-152(o)-258(\051)]TJ/F27 9.9626 Tf -128.883 -11.955 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.881 0 Td [(p)-137(s)-138(b)]TJ -ET -q -1 0 0 1 150.859 459.045 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.217 458.846 Td [(o)-138(v)-137(r)-137(l)-243(\050)-130(x)-209(,)-874(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 226.044 459.045 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 230.155 458.846 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-847(u)-85(p)-86(d)-86(a)-85(t)-86(e)3(=)-13(u)-102(p)-101(d)-102(a)-102(t)-102(e)]TJ -ET -q -1 0 0 1 364.631 459.045 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 368.634 458.846 Td [(t)-102(y)-102(p)-101(e)-365(,)-813(w)-52(o)-51(r)-52(k)37(=)38(w)-52(o)-52(r)-51(k)-158(\051)]TJ -======= /F30 9.9626 Tf 279.917 251.589 Td [(desc)]TJ ET q @@ -20251,24 +13272,11 @@ q 1 0 0 1 183.665 573.001 cm []0 d 0 J 0.398 w 0 0 m 176.173 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G BT /F8 9.9626 Tf 225.577 544.962 Td [(T)83(able)-333(16:)-444(Data)-334(t)28(yp)-28(es)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -268.739 -25.406 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.214 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.214 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -80.732 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ -======= 0 g 0 G /F27 9.9626 Tf -125.682 -27.831 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -20280,49 +13288,10 @@ BT 0 -18.278 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(v)27(ector)]TJ/F11 9.9626 Tf 173.627 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -165.442 -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)-424(as:)-628(an)-424(ob)-56(ject)-424(of)-425(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 142.027 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 385.864 347.39 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 389.002 347.191 Td [(T)]TJ -ET -q -1 0 0 1 394.86 347.39 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 397.998 347.191 Td [(vect)]TJ -ET -q -1 0 0 1 419.547 347.39 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 422.685 347.191 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)28(yp)-28(e)-334(sp)-27(eci\014ed)-334(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(18)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.214 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 316.221 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 316.022 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 1 0 0 1 283.148 432.953 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -20359,61 +13328,10 @@ BT /F27 9.9626 Tf 125.247 402.521 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(an)-333(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 135.658 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 268.401 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 268.201 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 268.401 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 268.201 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.214 Td [(up)-32(date)]TJ -0 g 0 G -/F8 9.9626 Tf 39.671 0 Td [(Up)-28(date)-333(op)-28(erator.)]TJ -0 g 0 G -/F27 9.9626 Tf -14.764 -31.169 Td [(up)-32(date)-383(=)-384(psb)]TJ -ET -q -1 0 0 1 193.977 218.017 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 197.414 217.818 Td [(none)]TJ -ET -q -1 0 0 1 221.811 218.017 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 230.229 217.818 Td [(Do)-333(nothing;)]TJ -0 g 0 G -/F27 9.9626 Tf -105.427 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ -ET -q -1 0 0 1 193.977 202.789 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 197.414 202.589 Td [(add)]TJ -ET -q -1 0 0 1 216.4 202.789 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -======= 1 0 0 1 276.779 354.899 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -20533,26 +13451,8 @@ ET q 1 0 0 1 177.988 590.295 cm []0 d 0 J 0.398 w 0 0 m 187.526 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -Q -0 g 0 G -BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 224.819 202.589 Td [(Sum)-333(o)27(v)28(erlap)-333(en)28(tries,)-334(i.e.)-444(apply)]TJ/F11 9.9626 Tf 136.544 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ -0 g 0 G -/F27 9.9626 Tf -250.617 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ -ET -q -1 0 0 1 193.977 187.56 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q BT -/F27 9.9626 Tf 197.414 187.36 Td [(a)32(vg)]TJ -ET -q -1 0 0 1 215.127 187.56 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -======= /F8 9.9626 Tf 183.966 581.727 Td [(In)28(teger)-9028(psb)]TJ ET q @@ -20565,51 +13465,8 @@ ET q 1 0 0 1 319.972 569.971 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -Q -0 g 0 G -BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 223.546 187.36 Td [(Av)28(erage)-334(o)28(v)28(erlap)-333(en)27(tri)1(e)-1(s,)-333(i.e.)-444(apply)]TJ/F11 9.9626 Tf 152.345 0 Td [(P)]TJ/F10 6.9738 Tf 6.397 -1.494 Td [(a)]TJ/F11 9.9626 Tf 4.819 1.494 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ -276.361 -19.214 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(update)]TJ -ET -q -1 0 0 1 194.239 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -/F11 9.9626 Tf 197.228 144.236 Td [(ty)-36(pe)]TJ/F8 9.9626 Tf 21.258 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(psb)]TJ -ET -q -1 0 0 1 243.558 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 246.547 144.236 Td [(av)-36(g)]TJ -ET -q -1 0 0 1 262.706 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 124.802 132.281 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G - 141.968 -29.888 Td [(61)]TJ -0 g 0 G -ET - -endstream -endobj -1289 0 obj -<< -/Length 5872 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 150.705 706.129 Td [(w)32(ork)]TJ -======= /F8 9.9626 Tf 322.961 569.772 Td [(halo)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ ET q @@ -20671,331 +13528,13 @@ q Q BT /F8 9.9626 Tf 230.155 460.772 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-804(w)-43(o)-43(r)-43(k)-247(,)]TJ/F27 9.9626 Tf 91.304 0 Td [(d)-39(a)-39(t)-40(a)]TJ/F8 9.9626 Tf 24.571 0 Td [(\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 29.431 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(dimensional)-334(arr)1(a)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 252.609 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -/F27 9.9626 Tf -283.209 -19.925 Td [(On)-383(Return)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -======= /F27 9.9626 Tf -246.135 -26.961 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - 0 -19.925 Td [(x)]TJ +/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 11.028 0 Td [(global)-333(dense)-334(result)-333(matrix)]TJ/F11 9.9626 Tf 116.674 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -108.49 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-474(as:)-727(an)-475(arra)28(y)-475(of)-474(rank)-475(one)-474(or)-475(t)28(w)28(o)-475(con)28(taining)-474(n)27(um)28(b)-28(ers)-474(of)-475(t)28(yp)-28(e)]TJ 0 -11.955 Td [(sp)-28(eci\014ed)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(18)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(If)-316(there)-316(is)-317(no)-316(o)28(v)28(erlap)-316(in)-317(t)1(he)-317(data)-316(distribution)-316(asso)-28(ciated)-316(with)-316(the)-316(descrip-)]TJ 12.73 -11.955 Td [(tor,)-333(no)-334(op)-27(erations)-334(are)-333(p)-28(erformed;)]TJ -0 g 0 G - -12.73 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(The)-351(op)-27(e)-1(r)1(ator)]TJ/F11 9.9626 Tf 73.738 0 Td [(P)]TJ/F10 6.9738 Tf 7.779 3.616 Td [(T)]TJ/F8 9.9626 Tf 9.77 -3.616 Td [(p)-28(erforms)-350(the)-351(reduction)-351(sum)-350(of)-351(o)28(v)27(erlap)-350(elemen)27(ts;)-359(it)-351(is)-350(a)]TJ -78.557 -11.955 Td [(\134prolongation")-365(op)-28(erator)]TJ/F11 9.9626 Tf 108.923 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.615 Td [(T)]TJ/F8 9.9626 Tf 9.914 -3.615 Td [(that)-365(replicates)-365(o)27(v)28(erlap)-365(elemen)28(ts,)-373(accoun)27(ting)]TJ -126.617 -11.955 Td [(for)-333(the)-334(ph)28(ysical)-333(replication)-333(of)-334(data;)]TJ -0 g 0 G - -12.73 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(The)-256(op)-27(erator)]TJ/F11 9.9626 Tf 71.841 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.495 Td [(a)]TJ/F8 9.9626 Tf 7.365 1.495 Td [(p)-28(erforms)-255(a)-256(scaling)-255(on)-256(the)-255(o)28(v)27(erlap)-255(elemen)28(ts)-256(b)28(y)-256(th)1(e)-256(amoun)28(t)]TJ -72.872 -11.956 Td [(of)-290(repli)1(c)-1(ation)1(;)-305(th)28(us,)-298(when)-290(com)28(bined)-289(with)-290(the)-289(re)-1(d)1(uction)-290(op)-28(erator,)-298(it)-290(impl)1(e)-1(-)]TJ 0 -11.955 Td [(men)28(ts)-334(the)-333(a)28(v)28(erage)-334(of)-333(replicated)-333(ele)-1(men)28(ts)-333(o)28(v)27(er)-333(all)-333(of)-334(t)1(he)-1(i)1(r)-334(instances.)]TJ/F16 11.9552 Tf -24.906 -19.925 Td [(Example)-388(of)-387(us)-1(e)]TJ/F8 9.9626 Tf 93.468 0 Td [(Consider)-345(the)-344(discretization)-345(mesh)-345(d)1(e)-1(p)1(ic)-1(ted)-344(in)-345(\014g.)]TJ -0 0 1 rg 0 0 1 RG - [-344(8)]TJ -0 g 0 G - [(,)-348(parti-)]TJ -93.468 -11.955 Td [(tioned)-330(among)-330(t)28(w)27(o)-330(pro)-27(ce)-1(sses)-330(as)-330(sho)28(wn)-330(b)28(y)-331(th)1(e)-331(dashed)-330(lines,)-330(w)-1(i)1(th)-331(an)-330(o)28(v)28(erlap)-330(of)-330(1)]TJ 0 -11.955 Td [(extra)-360(la)28(y)28(er)-360(with)-359(resp)-28(ect)-360(to)-359(the)-360(partition)-359(of)-360(\014g.)]TJ -0 0 1 rg 0 0 1 RG - [-359(7)]TJ -0 g 0 G - [(;)-373(the)-359(data)-360(distribution)-359(is)-360(suc)28(h)]TJ 0 -11.956 Td [(that)-351(eac)27(h)-351(pro)-28(cess)-351(will)-351(o)27(wn)-351(40)-351(en)27(tries)-351(in)-351(the)-352(index)-351(space,)-356(with)-351(an)-352(o)28(v)28(erlap)-351(of)-352(16)]TJ 0 -11.955 Td [(en)28(tries)-326(placed)-325(at)-326(lo)-28(cal)-325(indices)-326(25)-326(through)-325(40;)-328(the)-326(halo)-325(will)-326(run)-325(from)-326(lo)-28(cal)-325(index)]TJ 0 -11.955 Td [(41)-290(through)-291(lo)-27(cal)-291(index)-290(48..)-430(If)-291(pro)-27(cess)-291(0)-290(assigns)-291(an)-290(initial)-290(v)55(alue)-290(of)-291(1)-290(to)-290(its)-291(en)28(tries)]TJ 0 -11.955 Td [(in)-298(the)]TJ/F11 9.9626 Tf 28.078 0 Td [(x)]TJ/F8 9.9626 Tf 8.663 0 Td [(v)28(ector,)-305(and)-298(pro)-28(cess)-298(1)-298(ass)-1(i)1(gns)-299(a)-298(v)56(alue)-298(of)-298(2,)-305(then)-298(after)-298(a)-298(call)-298(to)]TJ/F30 9.9626 Tf 265.127 0 Td [(psb_ovrl)]TJ/F8 9.9626 Tf -301.868 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.4 0 Td [(psb_avg_)]TJ/F8 9.9626 Tf 44.871 0 Td [(and)-304(a)-304(call)-304(to)]TJ/F30 9.9626 Tf 56.945 0 Td [(psb_halo_)]TJ/F8 9.9626 Tf 50.102 0 Td [(the)-304(con)28(ten)28(ts)-304(of)-304(the)-304(lo)-28(cal)-304(v)28(ectors)-304(will)-304(b)-28(e)]TJ -174.318 -11.955 Td [(the)-333(follo)28(wing)-334(\050sho)28(wing)-333(a)-334(transition)-333(among)-333(the)-334(t)28(w)28(o)-333(sub)-28(domains\051)]TJ -0 g 0 G - 166.874 -143.462 Td [(62)]TJ -0 g 0 G -ET - -endstream -endobj -1297 0 obj -<< -/Length 3552 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F31 7.9701 Tf 210.112 653.177 Td [(Pro)-29(cess)-355(0)-8986(Pro)-30(cess)-354(1)]TJ -33.382 -9.464 Td [(I)-1500(GLOB\050I\051)-1500(X\050I\051)-5180(I)-1500(GLOB\050I\051)-1500(X\050I\051)]TJ -1.184 -9.465 Td [(1)-5253(1)-2147(1.0)-5032(1)-4722(33)-2147(1.5)]TJ 0 -9.464 Td [(2)-5253(2)-2147(1.0)-5032(2)-4722(34)-2147(1.5)]TJ 0 -9.465 Td [(3)-5253(3)-2147(1.0)-5032(3)-4722(35)-2147(1.5)]TJ 0 -9.464 Td [(4)-5253(4)-2147(1.0)-5032(4)-4722(36)-2147(1.5)]TJ 0 -9.465 Td [(5)-5253(5)-2147(1.0)-5032(5)-4722(37)-2147(1.5)]TJ 0 -9.464 Td [(6)-5253(6)-2147(1.0)-5032(6)-4722(38)-2147(1.5)]TJ 0 -9.465 Td [(7)-5253(7)-2147(1.0)-5032(7)-4722(39)-2147(1.5)]TJ 0 -9.464 Td [(8)-5253(8)-2147(1.0)-5032(8)-4722(40)-2147(1.5)]TJ 0 -9.465 Td [(9)-5253(9)-2147(1.0)-5032(9)-4722(41)-2147(2.0)]TJ -4.235 -9.464 Td [(10)-4722(10)-2147(1.0)-4500(10)-4722(42)-2147(2.0)]TJ 0 -9.465 Td [(11)-4722(11)-2147(1.0)-4500(11)-4722(43)-2147(2.0)]TJ 0 -9.464 Td [(12)-4722(12)-2147(1.0)-4500(12)-4722(44)-2147(2.0)]TJ 0 -9.465 Td [(13)-4722(13)-2147(1.0)-4500(13)-4722(45)-2147(2.0)]TJ 0 -9.464 Td [(14)-4722(14)-2147(1.0)-4500(14)-4722(46)-2147(2.0)]TJ 0 -9.465 Td [(15)-4722(15)-2147(1.0)-4500(15)-4722(47)-2147(2.0)]TJ 0 -9.464 Td [(16)-4722(16)-2147(1.0)-4500(16)-4722(48)-2147(2.0)]TJ 0 -9.465 Td [(17)-4722(17)-2147(1.0)-4500(17)-4722(49)-2147(2.0)]TJ 0 -9.464 Td [(18)-4722(18)-2147(1.0)-4500(18)-4722(50)-2147(2.0)]TJ 0 -9.465 Td [(19)-4722(19)-2147(1.0)-4500(19)-4722(51)-2147(2.0)]TJ 0 -9.464 Td [(20)-4722(20)-2147(1.0)-4500(20)-4722(52)-2147(2.0)]TJ 0 -9.465 Td [(21)-4722(21)-2147(1.0)-4500(21)-4722(53)-2147(2.0)]TJ 0 -9.464 Td [(22)-4722(22)-2147(1.0)-4500(22)-4722(54)-2147(2.0)]TJ 0 -9.465 Td [(23)-4722(23)-2147(1.0)-4500(23)-4722(55)-2147(2.0)]TJ 0 -9.464 Td [(24)-4722(24)-2147(1.0)-4500(24)-4722(56)-2147(2.0)]TJ 0 -9.465 Td [(25)-4722(25)-2147(1.5)-4500(25)-4722(57)-2147(2.0)]TJ 0 -9.464 Td [(26)-4722(26)-2147(1.5)-4500(26)-4722(58)-2147(2.0)]TJ 0 -9.465 Td [(27)-4722(27)-2147(1.5)-4500(27)-4722(59)-2147(2.0)]TJ 0 -9.464 Td [(28)-4722(28)-2147(1.5)-4500(28)-4722(60)-2147(2.0)]TJ 0 -9.465 Td [(29)-4722(29)-2147(1.5)-4500(29)-4722(61)-2147(2.0)]TJ 0 -9.464 Td [(30)-4722(30)-2147(1.5)-4500(30)-4722(62)-2147(2.0)]TJ 0 -9.465 Td [(31)-4722(31)-2147(1.5)-4500(31)-4722(63)-2147(2.0)]TJ 0 -9.464 Td [(32)-4722(32)-2147(1.5)-4500(32)-4722(64)-2147(2.0)]TJ 0 -9.465 Td [(33)-4722(33)-2147(1.5)-4500(33)-4722(25)-2147(1.5)]TJ 0 -9.464 Td [(34)-4722(34)-2147(1.5)-4500(34)-4722(26)-2147(1.5)]TJ 0 -9.465 Td [(35)-4722(35)-2147(1.5)-4500(35)-4722(27)-2147(1.5)]TJ 0 -9.464 Td [(36)-4722(36)-2147(1.5)-4500(36)-4722(28)-2147(1.5)]TJ 0 -9.465 Td [(37)-4722(37)-2147(1.5)-4500(37)-4722(29)-2147(1.5)]TJ 0 -9.464 Td [(38)-4722(38)-2147(1.5)-4500(38)-4722(30)-2147(1.5)]TJ 0 -9.465 Td [(39)-4722(39)-2147(1.5)-4500(39)-4722(31)-2147(1.5)]TJ 0 -9.464 Td [(40)-4722(40)-2147(1.5)-4500(40)-4722(32)-2147(1.5)]TJ 0 -9.465 Td [(41)-4722(41)-2147(2.0)-4500(41)-4722(17)-2147(1.0)]TJ 0 -9.464 Td [(42)-4722(42)-2147(2.0)-4500(42)-4722(18)-2147(1.0)]TJ 0 -9.465 Td [(43)-4722(43)-2147(2.0)-4500(43)-4722(19)-2147(1.0)]TJ 0 -9.464 Td [(44)-4722(44)-2147(2.0)-4500(44)-4722(20)-2147(1.0)]TJ 0 -9.465 Td [(45)-4722(45)-2147(2.0)-4500(45)-4722(21)-2147(1.0)]TJ 0 -9.464 Td [(46)-4722(46)-2147(2.0)-4500(46)-4722(22)-2147(1.0)]TJ 0 -9.465 Td [(47)-4722(47)-2147(2.0)-4500(47)-4722(23)-2147(1.0)]TJ 0 -9.464 Td [(48)-4722(48)-2147(2.0)-4500(48)-4722(24)-2147(1.0)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 95.459 -98.979 Td [(63)]TJ -0 g 0 G -ET - -endstream -endobj -1301 0 obj -<< -/Length 318 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -1 0 0 1 154.862 292.444 cm -q -.65 0 0 .65 0 0 cm -q -1 0 0 1 0 0 cm -/Im4 Do -Q -Q -0 g 0 G -1 0 0 1 -154.862 -292.444 cm -BT -/F8 9.9626 Tf 240.078 260.564 Td [(Figure)-333(8:)-445(Sample)-333(discretization)-333(mesh.)]TJ -0 g 0 G -0 g 0 G -0 g 0 G - 77.501 -170.126 Td [(64)]TJ -0 g 0 G -ET - -endstream -endobj -1284 0 obj -<< -/Type /XObject -/Subtype /Form -/FormType 1 -/PTEX.FileName (./figures/try8x8_ov.pdf) -/PTEX.PageNumber 1 -/PTEX.InfoDict 1303 0 R -/BBox [0 0 516 439] -/Resources << -/ProcSet [ /PDF /Text ] -/ExtGState << -/R7 1304 0 R ->>/Font << /R8 1305 0 R/R10 1306 0 R>> ->> -/Length 3413 -/Filter /FlateDecode ->> -stream -xœ…›Aä¸ …ïõ+ê8s˜^Ë’-é SvÒ·Ážj‘éÃ&‡üýØä{|ÔI°‡¦(ÚõmÑ|%ZšßŸÛ[yn÷øûúxüôµ?û×£½Ï?lîùõO³ögïíùaV+íùÇ_Í.µÐ=äÝ¥Mù÷:éß·šü³†ÿèòןZKúضÅÇÖŸ[J'¥™Ä´8ÍžùºMTÕmÂúÈiÝ&®ÀëvÉ ö™@î%o3ï‘o{æ ˆlv ß#"›È6²Ù|ˆlvÉD¶"ï×Õ@6“È6²Ù3_d·‰l# »Md9²ÛD¶Ý.È>È}òmò= òmÏ|‘Íä{Dd³ÙF@6;ï‘Í.€È6CäZ£âÌ$² €löÌÙm"ÛÈnÙGŽì6‘md·K²Ïòˆò33‡ÊÏì™/ òÈåg#"\~>òÈåg#"\~N³ [‹ò3“È6²Ù3_d·‰l# »Md9²ÛD¶Ý.È>ßòãÐœqhÌtÌÔ3͇ÆL9óÌ.‡æL€CÚ ½·Ðf4f :f š37´fj‹ƒŽƒæL9óÌ.ƒŽ™.ƒÚ ]f h³33Í™Z3µÅŒAÇŒAs¦œyfAÇL€A Í › -ÑlA7bÌ8tS!j¦¶˜qè– ‘3åÌ3»º¥BäÄ– z¨G.á*¹‡jpäªÀ‘ p¨þF.¿¡ê©ø†jo,¥—*o)¼TwKÙ¥ª[Š.ÕÜRr©â–‚Kõ–Ë-U[rCïÌÜŽöVŸç8ßúV]¾c­úz£¿íü½?ZÄ”à+ÄÌ£¾õgD_œßå6^¸û=t‹–×ãûªjn–Œf¿9±¼š ñ…ÖÑêY2šý&Å -\h6´Oõø`Ih®]¦³g4û¡ŒŽ@h6¼!PN¶õ­à»7#¡ÝCèæwù¾*”›uA«H… íšÇMGÛšÑì×?ú¡ÙÐ>ÕãƒEhÐ!3ÇÌh¶$‰¾Kh6¼!P­Ì¹ müî·º ÝC˜DÃ]¾¯jcf]ÊÀ–QÑ)&´Š2@üAZ[ÊÀÖYÑM -͆e€»|_ôŬ롾oÆ‹;2Ñ—"è¨F:çš÷#}]Ëè‰/~.%0QŒ&Gª@_©v&a}þùøwQU=þ}¥j”ž²jþ.ªÿ²®3Ûõ©ìûu¹Ë–:Ù×ÕÉîý 2çË=ÄÇÒïÅe ¥†ñ·p¡?·TòþæwžÄÇ•šÛ%ñ™v©>÷ûÊ®ôÈm—)Æßê¥.=øÜoŸ‹øàÉ|X”Ù"È• -×›€éíAð¹ßÖCˆù\«ÈW˜hùÌï ]|Ûš_®¿Ü®™¯2/7ò™ß×k5ø Ln»`1þ` p¼¿ùís<‰K-³]³p½I™ÞØŸûm•ƒøX¦½¸d›™o‹<¸Ê‘ÏüÎ0ƒ/ÉܲÜ2»æú0=Ó«&ñUÖãcEF¾–ëÃMo£‚ÏýΠúHZ—×XfB¿p}gZz®ŽÎâˆh®ÃGCüdf®ÉÒˆh²äÒH•Ñ´=2²FÔEOh5ÕE_ÐZèSYd…UÑZR½Ôçº ë§T/^†]·=O©Þ©UŸ:á»bÏâMÝüŸg÷7¿3x|ð$>ªžÛ%ñ¹ºÅk¼àsÿ©¥Ÿš^ðQÅoê/ú‚Ïýö¹ˆžÌÕ³¦*æ×»ºÅ Èàsÿ©õŸú[òAÅÀW˜ªøÌï ]|Ûš_ªžÛ5óUæ…ª>óŸZª•U ñó@ÕÃýÍoŸ‹øàI|T=³¡b~½«[¼ô >÷ŸZ ªk}±ƒ™o‹<@õÀg~g˜Á—U/µŸn×\®nñ¶Z|•õÁøS+3ع>\Ýâ…vð¹ßTYõÔqºIóë;ÓÒsutGDŸ±@33tÌã'“0smL–FD“%—FªŒ¾ í‘‘¥0¢.zB«©.ú‚ÖBŸÊ"+¬ŠžÐ¤zË{¿ª^t¯[¨žÞ§¿û¾…êùÛ@Ä­Ñ`[–«v ,«¼¿ù«º]ñ$>¾È«jHq½©›v‚ÏýEkC½TŒñ·ºi¯ øÜ_ÕòŠ'óá]UWŠëMÝ´‡|î/Zê}ù\ÅÈW˜¨ùÌ_Õ÷Š'ññõ\UkJ¾Ê¼@õÈgþ¢µ¡^í*Æøƒy€êñþæ¯j~Å“øø&®ª?Åõ¦nÚ7 ->÷­ õïÅ7z3óm‘W=ò™¿ªOækª¨ù*óÕ#_e}0¾h;ׇ©›öÄ‚ÏýUm°xßPyPÇp}gZz®ŽÎâˆè«43©cˆŸLÂ̵1Y][V½üέ¦†5½xò–Ï]Oh5ÕE_ÐZèSYd…UÑZR½´â6Tl4©^lÉ]·íMª×µ6ÔNÉ‹»&ž%Ä›ºõ)ÕÃýÍ?Ô‹'ñQõ†:V\ïꛉÁ¿Ö†ÚU ñ¦n±Ý|îêˆÅ“ù zC+®wu‹mÐàƒ_kCí*¾Â\Ýb[=øÜ?Ô‹'ñ •Gè˜_ß™–ž«£³8"ºÇ*ÍÌÐ1ŸLÂ̵1Y=Æ¢zÚð¬÷mŒ,…uÑZMuÑ´úTYaUô„&Õ[ö…›:ÖZG¨žvõ_ºP=ß-Fü®5lËãouÃYË*ïoþ¦ŽX<‰½M+®7uÓy„àsÿ®µ¡6‰Ácü­n:±|îoêˆÅ“ù°§ÛÔ±âzS7¤>÷ïZj?˜|®bä+ÌT|æoêˆÅ“ø¸}ÛÔ±’¯2/P=ò™×ÚP[¿àƒŠ1þ` z¼¿ù›:bñ$>îÔ6u¬¸ÞÔM§W‚Ïý»Ö†Úå}qÇwf¾-òàªG>ó7uÄâÉ|Mõ#_e^ z䫬ÆïZ£ÁÎõaꦓ9Áçþ¦ŽX<‰o¨<¨c¸¾3-=WGgqDô«43©cˆŸLÂ̵1YÝö¬zy?¶¥ž5½xò–Ï]Oh5ÕE_ÐZèSYd…UÑZR½tNÆm¨ØÔn†]·ÚÍðÓ3ˆïZ£Áö, ífณguj7 ?ÏUõÒ‘Ø%ñ¹º ífàóÜßµ6Ô¡ðQņv3tè)øÜ?Õ‹'óAõ¦:V\ïê6´›Ïs×ÚPçcÈÚÍÐq-ñ™ª#Oâ£êMu¬ä«Ì Uoh7Ç_jðQõºÖnŒ?˜ªÞÔn†.â繪^:Óâ6Tlj7Cà‚Ïý]kCzyñÌÌ|[äª7µ›†|YõÒñ·k®W·¡Ý òUÖã»Öh°s}¸º ífðþõÁøy®ª§“*nRÇfìfÄàë,Žˆî±J33tlÄnFI ¶ÉÒˆèy.ª§Ó)žõ¾ í‘‘¥0¢.zB«©.ú‚ÖBŸÊ"+¬ŠžÐ¤zíÐn†Û®b­i7Cg _Vµ›á§ _µFƒmYbü­n81iYåýͨ#OâãAÀC+®7uÓ©ÈàsÕÚP‡Ácü­n:7|î?Ô‹'óáÌß¡Ž×›ºé®?Œ÷Æå‡ñ¶ŽùÃxü0î÷øúz~ÙëDõ¹žDí‡E]Ó×…aXŽí!Í>øïŸ×düoõ–‘¿Ö«\¯ç­ÜýÌ•çë»ýô—w-ÿ/Iÿõv×ï!o'ÈŸÿ`[G. -endstream -endobj -1309 0 obj -<< -/Filter /FlateDecode -/Subtype /Type1C -/Length 13073 ->> -stream -xœºwxWö?laÏŒ˜ r‘G¶5h†ôB'ZBïL·1`pø˶$K–eK²%«Yr•-˽w Lï%„ ”$$$¤m²›Æî{½ûýÈ–ßû<ïûýãõ<~4£¹ºsçÜs>çs -ÏÇo”dz%!)&cÒ攤}ÉÞ뉚ç7Ê#ñ-VyRŸ/Å<ÌŸâ1¾ÅcüNŽc~G¿8ŽfüÇÑA>~<Þ¬5›íonݼý­ &.II•§'ÄÅKÇOŸ:mÆøhùøÝ¿4&#!.yüëÜIVÌ¡”Ô¤˜déú„¤èÌŒñ/ž<~sL\æ¡}éÿúøïDÿÿ¦æùsïæ³Ý§•À‹åý<*Åw¬ïjßM¾}~´_¤_¬_;ÆÃæbë±d,ëÆð`|<þ -¾—ãýø)üþ þÿ'‘G˜;?€Ì·ò«ø®ÑüÑ£•£¿'7ÇÉÈûà=°,Ù ¨­c|Æ?æ1³ÆèÆÜ;nìkcç]4vÍØð±ÛÆÆ-ûpì+ˆ¤ -ä‚|ApQð‘àgÁßÿôçû ü—û¯ößà¿Í¿Ø¿Ä¿É¿Ó¿×ÿI€0`I@x€2   0 $àTÀÕ€Û¾ ôd_ |#p]`Z`f 5°.ðbàõÀ? šô~Ðò ¸ Â ª Ú æ Ž ž þ ÓA烾 ú6è7¡¿P('|S8[ø¾p±p¥p¿0Gh– -Â&a‡°GxEø¡ð¡ð ! ö ‡³Á¯O^¼*8|=øqð“à?ÿüwʇR¯Ss¨ÔJjµ‹ÚO¤”TUBÕPõT'u’ºI=¦þLý&%"Eþ¢0ÑK¢·DSE³DóEËD«EE[D¢ƒ"¹¨HdÙEu¢ÑIÑ%Ñ ÑmÑ}ÑW¢ŸE#!£CD!lÈÄi!³C„, Y²1$2$>D’b ) q†4„´†t‡9r!äÇ!C~ù-…ú…Ž„ -Sðˆ—¢ÒÑ+F~*þŠÅhÃb8™øÂP©®œÃo€J)®ž«RÏ2ðÑd˜Ž·›¬ÖVÒ8äܪêéü&¼¾‚´Êð»úŠ\óþÈÆåàY“R)Ôz%-ÕV ±p;qFߦldz3÷Ön¤'-ÚµVZ›ÝØXç®·mF;k(5:ìâ–ÎúÃ'[’·2ë 4i½<o ?3[•pP à?žÏ¦P8‡^AQ“:§œÛÌ®½ôôÀ×4Ü ÇAFý%ùÉ–ËìGkgõN ãüŽ—'ö²çvuLB@¼Q½8©êÍt{Ð`‚;èã'Põ‹p¢'œÛÙ,\8.³0O­ 5 -«CÁ -»ªbcé}{ÉÙøCò}ÛÅó†Â¡ßFæÎ3û›bø¥¹¶¬tñª»O[w -v2R¼Åcõ¸pm­©¢ÊI—×jk¹‰”ýƒ4äýè÷Ï·Ü@¡wØ—/î:/>¤ïÚ±#²¸¦#±*­z#§ÈZ<{)2mbиï߀A0èÇgœv…Nù³¹)Ô—' £V.<Ûx8‹M9“sûcñŸŽ_»Ã€%dMù$ p‰`¼ßiÉ©ìÃnâØp}E}²ñÐ*ņÕêœ]E|%<à$vÙò*Œ'ùPNü°ç¢݇kV0­y»,!o»2LAXìp¦¤µT¹‹E&¸1/wg@žïó7j©KvYr7Š†%¡PØtîÔw⣹}imÌ`̬æÉ4j“á÷ -ÊòM‹É|ÍB_Ûk‰ù6u…ñ.î$.˜a>ºŠÁ™øH„ç ÕZî8 /í´3k_œŒÙ¯›`àƒB(Áòð½¾HGë4f[ëJmô{›·/ ïÜÿe{é Ö“]“qH¼'1eÇòøþ_¥LšZ‰—Ù­æ -èår½ÞÄ€¸¶ÊÑif¬eŦr¶uɈaÎh~F/Á´%-&ŒïäçO-äÖy¹–˜nÎ-7>àÃm|f]ýº¹þ´5 tyÆSŽÊs9ÝáP¬aÑ:bòðÖÏÏn>y„9r²öÚc1$bžìLÏÎN—•åÔg3-%%¿"£äÐAñÛ›–ÎKÉ(¯U3y®ÂÆa1Œ!Ú9³®b<ᵈžÿ|yzˆa¸KÇ#_Þ›†¨BþJ|¾¹Àbìå{’óÝÊʇV> p$xý KÀaš‡]ÃhÊc*IŸ—¥fTé©Yt|J÷QÖJ˜® õÃу|p¯z (E ÑgªÎ1ǣݨ.$¾v8Ošä$:@§èó³I˜U“ƒÇ*+ûŠX¸º0W"Ñ’8Ó% ß×£{žM½òNÜÂùì’eû'¼!Füþé0K?yÿ ýëÓ¾»wÙO>éÿî™øYì·‹î2÷Në{‰F?ŽQp œÈ[`8œˆ&¢-h3š„&£ o½ßys³òøÇ߈A¶d“Äl3›îJÀR@yëÈ{ØHðwäEÒ…äĽjU!wßš[a¼Ç÷8ÎœG¨SÔ#¿×ÁùØÈU\‡æcxäÕÕ@ÂÌ?7R„gækféù2àù.¥’Æ'¤"ŸB>*Ã=K=Åœ# D6Z€5ã5¿ô¶A‡iøȪ‘¿bJÏU¢.ÅÄ%ÊZ5 '¿ Š7Kµ 9#k½z·¤iÎ’?ý×JVP@ÂQ*éÎldžΟ:¶…5%P=íIqqÉÉ1ñÉm}½ím½,ðµ‹`®Ï6í³¨Ë}ap-Ç£ V½Eo) -sh,:½8?_§fdJ˜ìÄ÷XÕî;&Ám¡m-0úµTß0„9Ñ^1`,/ÌåÆæªr"˜g6Qh> NÎ߬ K*ÀrSe©©Œî.Í`G²㶢¢¥y|ð¤ì?¯S-vçVpýûv×3†Õ 5ŠRÂU™Ÿ›_˜¯Éc9 ~ K{Š›¾µ•ž²ð]5([áÂOÙòÍSùÓS _ÂòË eâªrG-Sê?fêVôï…£( -Cs±]’e tFÔÈñ<­Ía·Øí¥, €Ó0Á{¸ø©ËyÎʯEÛdD±\—#Ž]„F½ŠøLŒÂoW:/3.$“—+•ËX•E¼ -ù‹à¨>qM¹­Çë3¸ß+¬U^˜W“qzE…²"‡;”Õ™¡h5Ê[>#!-Â&‡%."ÁœWâ;í'®3P7`°$Wµ„@Í"A éYå¦à›«Œ—ÚhDM}Û]±».†­N­Tv§.FãCûð ?–ÓӠЋÙê“}lNcnÅ¡z~âªmkyÔ1½gÅÂiE{:“ÕI¥^R_üHüÉkwN¸yó&P¯áPˆrX_•ï -;žÓ¸‹FÄd4½…‚ïLûí“‹=wŽ°%1Žl§”¯(/Ï·Ó›Ùbg¿Äz ­¢À ¡÷'÷}¢`g¸(Ä ¦wÄ -GCvð‹Û” n¶JêH¯{Ÿ/°pÈ#'nÛ2¿#F‚BgEç*Òiu¾µJÆVeçYtb¦<5®Szúèáê¶6¶¾¾´²ó\í¡B>éï¼næ»P†œ8Y©•j‹‹óÓÙ‚L$B½ˆ ˜ª9¿¥R\ç*ëg*]8(îó|ÙÇûýWÎyjìãܳ® ×Ø.÷=ýIüMòÃðóÌG+¯IhÔ Ãif‰q±Z½Pχ›=7¨Ž2Ç‘¯nä$ 3·ÎD>bDFÏšÉ$ïؤžAïW—v²àeÌÕÒñùåÇYÏ BoŽÌIÈ[¥ãôßa+.¥ûJ5Ñ,šJtƤ–ï!Y ½Œ‚ïÍ€¾úÝ'ºÙ5„µ¾qC®PZ­Z“Çd+Ò4Éô¬­ŸrêwòÞýsÑÛXÐË"ŸXJ²±E<ØÑrübûÁi ŸŠØA[5š™ãÀëœj#[ W¨™ÍsößÀrk5eâ²J{ c¯F‘Üc…&㧈:¶8tÅK[f¨Õ1ú0™Ëskòˆì¼’ -‡Ùæîd?„¼[hV!/Qæ‹só´™L$n•÷óQn?§à\ü’ÑfXÆwA7-ÎJ 7ñÑ\h†“ðßÌéåÓkL¡ø66b”ãÀEfå¼M‚zYŸÝn2•0à0i+.6ß•Õ¼Ò2¥`íО«Cƒug®2 Ø wzh7ÏC<ŸF©q”7rdÿ¤<Í*gIiµj"NZÕ`·7–5±GžaP÷¿U´æ(ŲÜ8&G;\¹xTZÛ×qì0ÔÏ0ÿo(wÉvÎÒ;dÄ]™Æ´ˆþã€v™ -œ ‚‰€„ösÙdÜ´£$ÃÂÔêË:«Þ¦·…™óšR½5,¹ùP»Ñ¯Sd»t´žûËmÚßÇv¨Éj:X¨ Õi±ùoEoÊë,E%6³Éfe._:Ü÷ñU¾nõì¦ô–u1¹á^U±™0³ÓÉ¡eC©b/;âO,(JÏËf4:UŠVjìu -¶A®*Í¡¥rEfâ€ôüÐ᪦¶·³þÖ#1ðúó9®ŒDKJÕBZðݧr -0ñ6š{(Û¨ObáJâvµóÇÄ/Q¶–Z³›þÓ5§¯]?-+ÇRÏÑ$‰0à+¯fªkP–¢¯”ü!0LÖe¶€µš`r'$zqÝY{ÖÌpû'€ob.YÁdNmÞÐNÅä¨ÔRZ•]R*g3*0ḊŒŒ’LZ81E"×Q^íl„8YUØD_€A¸ŽZ³™žÎ!GºpH­ýø-ñæ¾BQè£7ž;Ý2Üͺ+Û\øè £n:ºûOѧÛcVYX #Éò³¸€&l©Äó澞7á= -%kÕ²}FnÄäPæ"ä&lŸY]{] “› (B°kíj¥Xž§KàF÷)Æ^k«)7fÖ§gdffhl -»Œqï°flÇ™”Ö}5|‡LfÓÐR…<-Å©l«(³”6²Îk¤gËÒ3Ü\ çv76f»¥,'®‹›/yBÁθ¸ÕJ¶ ÷"o‡»p-d%ðÊC_xÆRÓ Ç„8Â+WÀlÎMí´èKßñŸ¶Õš†9ò-Z­¸@«W3r˜ü‡·çvã8ÙÓØÐÝ™Y«Õ:Æ 7é]‰£«¥ç|? èrg¡ÖÉ6äa O¢×/Ý>•Ñµa½DÅgHÀšè̃\¤q{óO?ß¾ú»›‘Y°÷Ó#¢WÒ+wœºÕæ¨kè`UmÚº½¶¢Î-­ŒOÏÔçƱ€* ÷ªc8n·Þ8Gº$—蠟-\ŸT#oiuÖtX‹íÆÖXŽ•]憚£tcmÊÎÚsl‡¤bÃÚ™qàØÊd —,$#¬Û$î…Á’Ø­±¬@AÂK25Æ,–î*ñYYk|¼,e[®e¯9‡D?cŽ%TbZZbbsZgGssggZó!?RÝÙö6ºZ[/óÑßÏP¦Ø’Øò8¾‰“ŒQ,_›40|¥¥Žb>?G} òÞS¨æpáþk\¸oj·XZM|8îÿ;ÞXÇ áÛä2 Øÿ²`a„Ïÿ+^íÙå–­¦Õ3½xSDÂÃ.BjÂÀú=Êìýâ §£ïß?5xýXVëò“LêZêpjUö!ñA©4>:µýDWEC ö;vQI8Q”$p8AÀ©$Тä‹ðz<8`k¦…Ÿ'Àóhøµ–GâhªÅvÁ•Ónsž£K)Dã†+°!øµμ|»–.*4 -ÙW·b ]r‚$²Hà,kV:Ó‰£SS£åyÖêL¦J–gË£³•9Y‰íò³Ð÷óKàhGMC«øDdïúuRWÄ3Mrl¨Ã]ÙK÷ÔÉ’bÓ2—IYAÖ{$ðØŸ_šºYgÕš9Ÿ09R+y:bÇ•ú‹¤>³µ½¾¾­MZŸÌ -ŽŸmâ~Þ™>•‰yä‰&n¶¨Ú™el}4½+*}ã&|$™z#Â( -½‹fr1Åø.šwrÇl8 î€;¸«¹h+§¦(ÍE³Ñv´ÎD³¹Øb7à]¸FqCf¡(nH#ùÂ"ÏKn)¢ìƒáÀ¶†¹(¸ͨ5X¿èêøÒÆi{TÔÖð£{€'ŽZž Ñ/:dW…–Y1³½Ää Ûì¹›Yt÷ü‘}íõdžÅO\E~±)ºœh¦@ª)Ê£³4¥µEly¿Ây¸Â!øµ›÷ø¬{æ úȯŀø¸ºj R%ß ³ŸI5è…h2Ujdb@Í—€ç¡T½;UŸ¶ÉÌŽ¼CÌÒ¦eæiJZf(3·<ô†+ ™TÊJJe^äljm¥¦†®sV7ÝÙ2Á¦´]qlRt^¬n<%¯H†<¿æµB.Öžü憓Ȃ‰g?µ"!¯pQ÷†å k·p¶ºø=¯Ãñ°ÙeÕÁ , O)Ì÷æ1ŒÅµûY×e€j¿Ð{üÞÉh4#ÜFíZ¸$rso;#ÈV$drŽ&e;yf(± $A¡¤·JHPÉÙû/`äµ›ž¸‘¸U„ÀE,Êqâ. øJ˜è$¶Z5¥gÅžŸ8v•oЩuaà Ù~¿Žˆ»rk22reà°„ pR|}ÛÑ÷£ÔR)“%ÓÈrv7©B‡ëÁMÞ7¤'&Q#q€bþwâ‘@?’{0@‰=ŸöƒÊÒÊ7HçQgH¸·…Û®ó Ñw–Qk¡ñ:!ym•'η - Fì¬Á)[+nÉcÑ–G¨Ç>?ö)Øõ˜ÅNC–Èi -õ!:+ËVª`OL—Û£èÝß°ÛL@'LGÜ?wze;üHhG‰ˆÐFÜxûÅØpvˆ®¯(Hu±àÊì"œ(rÿÜé†3(OI.I§wïÎ8Â&íÕ(|‡f‘¦øœ|N¹Æ_CZüþ®¼ùO%R¼Ø -¼;ʪaêÖÆÂúá‰Nð{±Ûóí0–<ó…ïŠ8\â|”ÃÏQ_e®§¿¼°iæ»Û¶Ì“ ™X/Ä2£RÉ PQ¡ÆMyTPk?ôÝ9nÐüîWHóBÕ‚—Ƹ°ß®ÊÌ/L1†¡±ø“/±«à)Ïï%9áÎlim¨oÍ#SY çTLZÎ@òbŽ[N—,žÈEøÇ@wQuÑ`_ëvë+èúj¸_1pø}¡çàŽˆ¸ƒ;ØD€N่Ūq×ý–¦|¹|ÉÜ-áÛoßgRiJ2p‰VCq¯³ÝbÀB1|…ÄA9•Š»àÎv8ßͼ»_Àõ_ø‚nˆ{æCÎByCžw†8ÿ}ǃµˆý|ü³+͹yn@Á·Hè(øˆ,ª^Ï?¿'AQ4¦Å}Ö[5¸˜ -Âx±¼â’¹Áêg7Üzòú±÷â®g¹Ç„tƒ“0„Ì¡îÕyº®Úd=ÌáQº"Gª3éÌ:Öª^±ÉœWaºVA€¯AâÒÎë`Éé)h{aÉq±mÉà_鋂İíòO^8Û tf'1Ç’Wþ‰~€Z»ˆÇ=ö¦~öŽaó é|ùˆ/ü€ó¸c®ž\@y5|$ŽÁI5@ÉÝp­ }äÑ|ä Ð<3 Šk<Ó8‰]ò¹®¥¹ÐM?ô p .§<<o„Ç;*£߮×`½-à2v]w¯ø>?H;€üëY5߇„•LØ´Uó3Ù¯ @å1}$$sëŽ*Ž†Ž7êô™,uëõè/|Iô<âyÄ?"pð¾v®î…KZx@QîæT ^¿7Ýßò·x2–]½744´µHSXAC]{{zc+(5•Óàù«ÜdÃôcàCNgÆÌwgÍž3ušÐ'؇òù„ø„ú„ùˆ}}‚|€·ªäç³ÃçSÅ+æyF½2Êéëç»ß·• ´Å÷= ÷xðÛ'¾ž(¡rm±›ò´‘œÚàð=¸{úýÀý‡âŸç>xeËöÌý±Lb‚2Q±´NúçÃ=·9Û<ë½ÝSfMgÑr´ S{Ä„@Ë©Ô·W‚àÇbî?‚“àcêrƒ!¿½.í_.~7|Í¢”l{c,ãJVØ´T©ÊŠ?šyûþ£æÁaöÄ`Ó¥ÅgrŽ§t0Yõ²Š½µ|á—·N4õ¾öüä{‰qLRŠ2=kƒ³0ôÞác×é›C{×Ä)ãÓÓØ$îΊ >÷ZnøÆ Ïûî xìáüÂï=‡`õšgÓ}8² [»ÑE£÷dkcÖ²-pôƒ>pZ3E£ê«“KP u`ý²w¶þ§œv´ºlu]Gi-и=wïñ<[9O1‚ãÑ5ƒÖV^0…Á$íùû‡ñÏ_öJ£õ¹ 5èÂýe÷`ÊG[î À£‚úù\÷à-ñ㥗_çBœ•SW×&?›ÂŸ"Þì¬äåâ·®„8óàæo†ÑØoù«ÔÝíqáâÕQQ«ì¸ô䃺ÁËÃŒðÁÉÔôKqÇ/ˆ/¼~ëèžåëÓö¯ˆbZ¨9êñkåµç{9“‚~•çkoäÿ~ÿ*Òb8g*DLÑHpg.ô9¤zð,f!ßñhb^†Ï©ìÂü¼|Fš£Š£D|ÁÅê+uͬ»¦©¼þêØLô˽`óó f^ã°òG_h>›Ú²/'.–݃4ZŒFu!þ‰pfOßéŒKôé£5=½ì¥óýNJᾩð%Â¥Q_CŠA1{ÆÏœ¹çoðL8G=a½zø<€Ãª„'¾Á6'>_Q>ld9:P`F+§b*Â9Ðh/¥ëJ•‰ìÈN°V¡Z`ä TUžme0ª -ï'ƒ“Âç±Á+ÕdµÚ,k‰Õj3fÀê¶Y­î¢Ì:f,Oà5ó½>Gx8ï,ïþ¨M£®Žºé;Å7Ê7Ú·Ø÷¾ïcßïüÄ~‰~R?›ßE¿ë~ëÂNcÿÄq|4.Ä_Çâ…„¡& -‰ßùß¿0zúè„Ñé£?ýýè¿ÛÈDò6ù|Jþ Ð`&X*Á1pÜCY}#úE„DÿB†CÆ…¼òzÈ„ç^sGJþ@ïÌ6¿ÊG Ä -]Œ"‰‰H]sh!½tWã‰TVÞ©í».†wOJ>õ&šzeÄ£?Mè-úlœyŸôÜ`” †U„ùYyÕg¥|ð|[-eÑ”ÅßCfÏ¡Ù8:0¢^ƒ^WçDÂdpW-‘]ÑVa©²U²Çáh :ñÁ XEª=M%NWl322è Fr9² - ÈzÔŠ8›Z±7y ½yoÛÅdVÞ¯í4\ãëxÁš¶ôN~oÒîºíôÎHyB ºtŽ1wfBâOŸ\†>GôN¤–w÷]¥¯6¦Ì¨dÁƒ–V_ÏAO(50ŸÈRYìÙl¦+KK±¥Ñ“-²¶9æÃlZFV¶:¯¨0,+S—§g–çÉf–lO;+Þö`ÏŸr†éï¨éì_‹\deU‚m5g”V‹Ý]=-¦¨·Ö`¦û;[:Ø®VgÏ)q›¾AÕÉ íˆ˜Òv?Ô¦¿éÊÛ´à¦onj(ufmð{êrkÏñŽfER5S_µ_ž¿{]ô?2% „ó°u8ò¯ºq8ö7(xüäû|'ü…rü¡ÞQ`^ÀGï‰R£Yop ¼þ‡Öo‡N2'^o¹E_8%‹ëgÛ“«ÓšÖóð‡eâÙ:yn­É±Øå¬3*ÒEsaç+è ´÷­–…6²ËoþGÑ_Á€žžÃ,ÜC˜¯–W\´ò'ų È•xgu~N¡QW¤eßFmˆ€%˜®ª°ªLìrÚš'ŠVÍ…5yÄ‘1´"Õd´iø­;«c•âézÅ!&]™%SѺ|oÑÒ.—[sè ™,ý`GúÑ[ÇÏÃ×γp²gbegyY£% dJÞ&ïsÏv*fr\–.GMç+-6%[³k§#’ž3ûЖuì²u1SÐ(1Ú ÃÐ8GI¹ [ºxeÒlzm¸»/»åä¡o Ÿ®úžƒó×.žÉ:p˜éLt¦Ô®æ¢I_eÓ–zK°(´ )[0%á0aæŠ -SÝXš³‡EJ°(_³¢ˆò'¾¨%ŸªÅç˜UU†{PHš?©¬xláŒè”ŒøR_®1KŒ Ôy³¸Á¾ž—áTjYD\ÆfzÊÚO!ñûùÛŸõVjbÊØ’L,ÙáRÔÓÍuµ –˜µkGv\4»sOÊŠybD=š }®îèeZj[Û/óõa×±i$hùw@ò©¾Ray‰¾!F( C døѪ‚ÈÃìÈ:ÂðR®bŽž/ƒêZb¾UYgøïG›jøJsN•á2fGNµ–”ê5åŒÒY¡¯¤5­]Yî„})™Kv²ßqqlxfœ*\–CXªJMtÓ aXÃvnm\½âÍë¿+g%Ï|¹ˆ?RâM‰µH®‹=‘1’zgžw!MÉ­òI*õ„¢0Äà°ÞóæD?EˆÄ\¸ãã*ç5328ªy SzÆ`™£ æ9ñµ–¼2ã¾ç¢Ð¼#'6o©",§„0•W˜tg™*’I#Œ[Uªu…œ¦÷Ãôö>XÙËó¼üßç=. -¾4r5›øÀДŸ)Öåéòd‘\¯ÎÛ«ã+¢ÖH쳦•;Åõ —2­g1¸MÄ Ëµùkó†P™ÇN Á÷° |•*G~þüPšÕVÈê-E5b˜_#>6Ôf;Þç×ÁÜ,\;/[ù²|¡o0•ØÝôW8|­I5µ‚9Ò)ø¼ƒ¡;HJOOLnJoëhnlïHkNbÓé¬vV—•^¹ÙÞyûÓFç‡Þ‚_¡Œ8a,×g‹ãÞæ؇ ˜@|PíºhbÌ¥Å&ëBƒ3$pðÉÅ\U¥o`‹Dð9À_¿Cn¢×$´¨zQ)°gÔBN‡©ŽÔ;ëú®nÓ[ÍF]b±”TF_šÿg¶Èj,Ö•6uÕÔu ðÛz›WŠmz›^—-ÏR0Æ¢CIÉiZ]6¿xr¨6¼lsž7ÙëĽªÚ´T•,.ˤ« -g$$Ï_žNí—ŒÇz×DU®¢ÑVŽÅ½‚ö¬q®iÞɺ⫳ÄLDlèIüäc±×ŽçÞ¢á6.î} ü õ+ïQ¸£ûù{×PÝ«+ç‰Ñæ¹h4 -Ý]{b/“ÞC%ÜPŸÿZ Ã?‡†\”íb@q삵ÿ­ª=¡¼U3ÓB>Ú6{ÏcMü«|&ƒ}ÄÿZnÃáStB¯Ãl¼£Ì1ðÍÿ^eƒø:!ˆ!G"‰eFYɧ|¹­>DYqø.z«ÌµèµbÞÁä+`tÏΨlJcQÜçÀ—;ZZ*Ía5(\QAÔ•iÚB­Zâhögâ¿ÕDZ ÌS¼ "ÔÂF xîõø)2üŒ±¦ C¬)Tk” 'é,ô&LÇòªuMãÄp¥ÈQ˜!Δ&mÙÁ eh&÷¦OÊJ?+ᔬOF<З«Í‹ɼ¼÷½ÒéyÑœRn¼Ç‡ˆæº¿¾Œ=˜vy†X™«K62ú¼b£š•ÁKµÄv“ªlêOH-¡p3ÜxëƒjÇ-[X-rà# ·N"ÿ`’>•ÞÖv“m!¾¶;O™¼Uð”&2•Øg‘—Ë™¤Úœ‹ô@­ò 82íû«Ä“㤶–êíÆù0‚x}nÎÆ}v3ð"¡·Ä«Ó ¶ä„¥¾(â[ÍÅ%ôQGÁ^v$‘0,ÑlÖò•ð“Ød+(7p?×ǴצO6Å-cÑ.°4?o³žOx«xÃC°×Íûۯ𯾵"ØQ‹/,QWïða4¼€¶;HÏFb—mCà6îddY- ¶KRS^7`^5µ&=+5Ö™ì*¶D™kÍ£S¤™éI­™}=í•-Ílcƒ»¿ý!À»¡-wìeö2Sh›$W/WÅ0sQÒ,˜†ÉO­å⺊ò#ã¨A;¸ÓØ­/.>‡$a@FÎjß{ùdã™.&·;.ûÉÖ?‘@wpj«¥~˜½Ñ~øÊ-ña•·áHÚ”YQÓåt–9«ùBOskÍ‘~ñ…¸³;˜Æ½moÓ»÷Q–ºRSýÕíóæn˜¦P›léì?[c™ÉE Ÿýzcë;³Ömž–‘k¶'³‚ÿTf¼€øE9ÎÛ,€·`…Vk•²­&Ý[¼:í"RMGRz‹W+ø*ÔŸzÒÝ~ÖVn¼eñ:¢ÅX¥‘‹Uú\E -G¨P2Á}˜¬½ ¶Z\ï*ëcª\èœo0œÒ6dY^<6™ýNMZj–"á ù"\Ø«7ºžü$†[9·ÿ*ZÃPpÌc4–SíUó@þhôW6Aê˜ÓÜð"ÛÙÖPØI?îÙ’ÄzYÿ6IJœ7J|ûoãOP”ãCzk¾yAKáâ)œ ál)N•pß,ç¾ùÒî²zí+¡Ìßaà+€ÚcV;ŒÍ|ø#¡² r &%J›ª¬VºÄ¬ËdQa”j´û ü NxsÆg ÕÞœqªDJŽý)jˆJ ”âÿñ©Ï,~Vü îìÂn&Ú•mFA&>:(Ç_ýËðÏtåÞØrd?¥ÎJSéMZ¦G“SF§fJS÷ &]‚>WïÀ@ÖƒæOJ½ xÖœÀj< ¸å÷ÊšGvî‹×nÞ¼é ´( &i:=‚+AŸ|3Ÿ+m(‰‚z¾Ð¤.3ÞàÃi„Pv°·As„†à[è_ƒËž¾ ŒS"$_‹ÁŽ"¯A„“èœ7¹>…”‹h9ðL¡ã·:“—–³5xd1ô çfm&Î}ÅÆ©’¯ÄÀâ2WšKùÕ÷K¯´‰ëe.i†L.UTMs½Í€m6Wö Ýý™ƒ=œ°xÏàð3_xÞ¢à0ŠÃAƒ´µ­¡´H€ç\Š¿(6Ψõ6 ÌÄFŠ«IxÙEL“UÝ6²ÀT^ΩSc•*óPZz¢Vo²ªY›2ßœOgæäd¥5(:ï|p÷Ñ™”öZ¥ÑÂTR%ðÀ]‹œ‚ŽƒG»Îö1ÙÕX*0“ph"ÿ(*¥lÛ¿ðŽXG~ÌAyìgÒ³h ±ù@Á gPìçP‘uý=,ÙùåØI yÜ,ÞPäêŸÍ=‘G¢¹Þ´<œûǧÙ{ÍH¸‘ŒÄ!œŽïßA -à= -®B°ÓÛ]9â¥n¯·á6Yâm³1—ü§,PKÊ8ïKüËûþ;oŸõ76þOCáÓ¿ÀJÐ~…ÚÝ‘ÝÔ&nk¨ëê«ÏŒ=¤â8'?“ŽU¶\gA“»º£K|cKßä”\CA"£ËÖ -è\mI¹‘Uáè ViÔ[Œ)HuáÖܪóbøùâ'‹a«‰E5„q9ãÓ½%Ý•‘}£³[!÷ W~` d±Æwó½Ô ÜôêU-þmùÉéOŽïY#d'@5áåý˜£ÉâtŠ;ÔÕÒ,•<-×–Q’ÅO8Õyk½PÙß,nTÔdÄ+¢_Ñ1úyà¸oÕIóï’„À£*‚!žQ0„7À0™´Öÿ 8´JMáv(RÐ÷*÷s†³Á/žÏ¦vã&RpÄÅ!ÈHÜHÜͧ«FâɃ¿]Wž$Ÿ’‚Žòg]Qõïæ¡ yú½%N»©”Ô­®¡ÿ U…··OÀû›ÄëC’¿ð\uƒÏÏnÞ_~å¶ÏCðÀ ›*¤é%™4€Éó¾÷vÜýÉÜ¢%‰كœ‹l0^2”«›ÃFŒ~ 996®=¹¯§­½§/¹ ¼`ðÍ/üvà Ípć0µ´e4:GÕ*ð­Ùîó,ÕÈ-¥%¥|€ 4×TtÐuuúü$5¥”…Û‡+ëJ\Þf§o´Ë[q¼æÁ¯ñ€ˆC +ðÓE€Ï'Ãl>Ž„hà,@Ñ[hZßBÁAñ¾ÿ¸Mrïë òeJ}­×xsi@ŒB¿`Ð_ ðö‡„³À£‚)×y`mq»GÜÚÚúz’Û½bøáÙòMà‚æ| Ët„Zû€®ˆ)Њ ùÙŽ›èuµNÒÁŽc°©pÊM”SWáo3„©°r#€«½å] a×5ÄéÊÍ¿+Wy{ê?q*>;^›Z9ëÚÕ —ºyÞƇŒ¬pºˆ‹€'óÑ‚ó\©h"Õ²¿k¶px”’¦ÑتTŒÛÛRà)ú§°oǤ°„p!ÈUK¹ÍQìÿ,…KŸ -endstream -endobj -1310 0 obj -<< -/Filter /FlateDecode -/Subtype /Type1C -/Length 11578 ->> -stream -xœzwxTÕÚ/CØ…½’I™Ùf³÷F&X*ˆˆ€ô -dÒë¤L’I&½Ìd&½·I2“BHB „Б*Š"¢¢Ç‚¢~õ¨krV<÷® úï»Ï½ß÷™Ì“é{­w½ëWÞwI&M™qxâð«Ã˜t¶t‰t·t¿4Iš*Í‘vJû¤¤Ÿ9Nv”9.s\åxÄÑß1Â1ɱƱÉñ¼ãÇGŽß:N38-rZéôšÓ:§ÍN¾NÉNeN§>§!§»N÷œ8}éôÓÿržê,u~ÆYtžã¼Ðyµó^gogµs–ss›s¯ó€óMçÏsþ§ í¹¼ä²Þ個K˜‹Ê%Î%É%եĥÅeÈå¬Ë—.w\î¹|íò™Df/s–Í’-‘mùËÔ²Y¦¬Tf–õÉÎÊ®ÊnÊÞ—}"ûRöDö£ìWÙ?åùT¹TÎÉÈWÈ7Ê÷È˽åAòpy´<^ž"7È«ä-ò>ù¨ü–üùòoä?Ê“³–fØéìv1»†ÝÄîc°¾lÍjØ46‡5°El9[Ï6³Ýìö2ûûýšý‘ý……5c"{'·>’wKNYŸE«¬ŸR}Ј C7«#Âiš×¹­ •"̦ ¤ßÑb3|E&!Ò/M2Ð0‰ê©,…+ΡéÁ=Æ? µs€õ6¦Têh8Ž<¢©³¹p*NRÁÁêÔpîX’霿A»£©þŒb8•A…Ô’÷G£]5#W„­Ô@µ¹àV1 Æ6ZX¯Ô*è|@DÑÖ&<4¤?­|!%ùHútô²P» -bË›•ÅæÆ BucÉÎ×*+`±ú°ha49 «ÈŒV¤êÒÓUÂ&´=ÜA¨Ïåå•(ª+Š-ùB0£ühª)·(·(=_?´ æ´Gg¦%¸‡U!Ñ\zFI©!ÏhÈ …†ÂE[Œ)P¥<Úr¹³­¼±Ahh2õu= ¬ÏN«=UVÖžGîn»<Mvç”gÄ(´ZeèëBr@F¬6 u »>á3ãD™¢¦¬°'_0#m4Õ›cÐ×o1ä3ò36¡µÓ¢o|KÄdW—+jËŠ[ ð§TÑTsvAVË8œ™f&¡3¼ñ3ºA4‘ð%ëœêî’’–Âé~ ²pN,•”••­å²Ò…±<$¦ †{yËŽ[ú=~ò¨B~aQž=N'D W-dcyQQ)WX¢Ë)SÚFRÛ¸Ç7®ýžr`Þ)qS[„¥SÑÑjéiiNkÔå Õ^4€Ö0ÉÌB3Ðì'ÏÁiÐõ»_àLøìÂ_+BÙ+õûÑJô¢Ú}Ïnõ98®¯½.‚±]c+Y©"ßÉ®ÉW¨µ!QÞ²C;=LÊ-Ôu…Ó“›r**Õ%ý‚Å@XЗ*ªS×o -‚ÛÐçÓжPkKÓÊu÷hx°…‚¾è6}ÈñmÖØ¢‚êü"¡¬¨¦ÐÂ}Óí=k[’_Hœ•”¹VOƒZ"?ÍXù:’-ÝÁ^ñNñ¥9ÊMñÖa¯×w¶œU -‘ÝɉïÒá(¯l.*)©áJÊs3Åijݙƒœÿ÷Ï¡Ë}Ïû[OˆhÞûĪ¾XËÅõS=ïœ>ïRè ¬ 7m¥Á0ßÖu2ìx (5.âÁ¾¤7x`fƒ -´Õ= -«ÚM f”¤|ÒŸÌ Ï4:øøG%ã–îÿÎøåÄÑšêŒÔ"±0=/ÏGqÈPÛÃj6÷^ß|f š1ïYôáÿíÐÿœ  Å›;¯2{ÇñȃsÑsÐÿ8ÉÜsK„2Êø~yÅûx×^®¬ºU*XPˆŠz?Ó·A®Pègë:¨HSmÒÞ3âx8¥ß­ÑnÈ u%\ÊFaé š˜@è´ez:œ„ë<¢yœ¢2Ñ,¢™´|×\gê‘v|þ4•UFe|¶ðÆK8ãà"FQº“5­Ú„üÕT›¾&NçO£áèo¢" šà èc§¡HÊ ‰ÐÓjèx]wMCÛŸßjÕWÇéið -ÓK?ãÒúåkÇÍù?”m¶ÆYg±ç‘+%kÛÌÈz×ó²Ëך\Wô¥hdïù3²E! ˆgà]`U²Æ²¢.¢î3Caƒâ¸º1"2.6L›W'”(‹ƒ ÃiÐØh®hâºj#÷‰(›Ò+µšà\:¦P`yAj¹îm5SÐ1gÔ£ºÔAbü2ymd-£CЩ€7Sºµ©i+0~ƒXE¬6=P'dëµúd=~a Ó_Žs"DcêÓ‹Ö¯ÐÞhªC_oPÒãÅø’ q!z|É -|ŸÈÀÏaû#ÚB”&3ÓMj¤¤†C¦2JÜíõ͆EÓ¾ƒÂ­oÌu׋§›P¬º‚j7«U‰ñšq«á\"©-§¬TQ[[ajMè‚šÉm¸22 h±æ€2Ô—KSÃS<éSm©,ª®n¥«5Hôb@Rž vöÁ“=HÀ¹ðu¸ÔVÀ‹¬ÞlÊ«æ¾8_fÏ·µ_¸©¸|aw»`ò *Þ¡OÕ&r4·:Q·¦ ‹ø5üÔ²„·š§Luø«'š³RkÄ–ø]Šyþǧjò Aº‘ÀöŒà¨cŠ=÷ƒ  \ýÅèö ¼o×ð8¿räl3Õ|âDKK»(ÝÈxk™ ýƒcÈãÙµ9…¹tAn~V¶"--!5U@r$'¬ëÑ®hꄾ:Áà7±¾šøЉ•0SG‹sŠôÃ4$©&ówHAÔ©ŠR2)ÉYz!jÍTjv~EºˆÜ`Ãßm®»Q‚ÿ<Àî†ÏÚÙõÕ -SyE½PjB1j²#£8mIàTÔ=-ü Â?)9!™ËÌ.,‹)Ca^A>¦³Æð UÀ±“ÁÃÃ=7Íä­Äi -‹» xŸÃk\_¥OÌ -O‹äßÞu²í/ì1ðIµ`<¦²O`ÎO(‡'[[Ož ÇïÖߨ­6ôÑ°€ú›ÛÅWwyDìöÀ÷y]ÖtJ~€Ëa|Ó®ÊÞ%a(| -ÐC"tFI"º¢"od×'ŽÒãi”Wdì>ê¬Ù&SEｑ෺„÷ª7—+^P/ ñ<‚ŽÄlå<µ•§E@é®V×u2¹WjêÏézº«®'Gu5ñº=ôx#Š°6ú1¤t//5I¬³ ”=ê–àÃ)Ãk»Ôb|{fGÎæ‘YŸ$ ‡öÐÝ!ž¦ýrXù<šfü”><ÓþÍM•ÁÕ,dòk{Ïr­uI¡%bA|~”á D×^ãÕ¸€îÌ¡#m¡§ ó EB¯Uù¼á.œ—”îJµmˆÀÈÉY8>gØÁB«‹¦.›‡¸M槼ŀ®ó1§¹ó—›ºÅî~ÓÛwð™eÿHA¯ÄáHŒ,Ë"óƒ¶+Ðê„}Ž% ÿ -·Õ\Á¹ºÛZ:¤€_§RhåV"Ž*;^WXÂÕk#DE6$§nãÔ0‡·%á ¸Ào`îóÀzµ+€(cà‹ŸÝ€S¡üåwÑ«±9y¹‡E¿)ÆšÒ¼rîÑо¹‹}ÜÖû¥Tõ‹`´¼©Ôl¢eÖ‹ià”âbÈÙ=íB“·géznzšIÙ¯O†.Zâí¶A©­ê­mSêI™õog®\~ôÈÊœ´p&/è‰VÀÈSY¼q±ª!‚€N|K±|Ú²G᧊RjRŠLqBXsFAx>™®ÕÆ+‚{ãÞèÉa Ýá/îÕ¤—Vä -„rêxtc2Ful¿ÿµ«Ã]˜$ÃBƒý[Ã{ñy -GŠd€o ÓÛÞÞÓzÂ_Ag!%6ÁbêzöñÄ.ázØΓë87ÿ¤QVÚ >dÆœL. ¯6öÁs]ë›úÁÕzƒì‡D ™¾€Ï1š„25§V©Ëµmñ"œµ„°~þ6HãSüž »{GHôáx:%<8+‚Û²½k4\ ?ŸüÞO -è ~nè¸Ó\“¡ÍÑeåf -Y©ºŒL…¦4©"G^î~ŠàU^Úi“#UuH€ø%<W'1¶Y†4US–œª8]½ŽZuFùsK}~y».*ní8ýr´&7=\ÈÑfè29mVQ…˜ˆq®…´dæØÁ>ØÇ¢DÃRß1¦hÇ/K`v`Α¥}’_ óÏ`A€ß²QŠ¦Žmb½}<;‚;;ƒ:½Ei¿’!` ©ÛKQÆ}I‰ k˜ØmvÔ%zW -å{Xƒ‡!*XžÇ^1ÖÆŽ€É?1àÌØÔLÀÞ&ù8+°ˆÀÎ@Ù#(Ûx¨tý·ð6…U'”M(¬–Vï­â;(„Fæ¼®ú/4Ùi)Z9#€®”¾³¢¾¹6ë2 s¶ûäð°²ÃÌ붸´¦¢Rh45U4r£æ]è08ÝÊá¡žž! ¸pê€Gx¸'½Èr—;±—‚ÕP…ð?¼æŽ/ Q‡éèl5 0‘Q…)&CG³“ÛjÁ{ß›4(Žnñûùz€MQ¨)‡ -Ó4vE`éKå.ö™ú,bms±¹p„–FjMF¼æU]o[óÚ#hÖ—dF)ÐEÊ Ô&Ú€:x(•ž‡OúŸÆãVöàùœo9Û*ÔŸ(鹪îÑ^‘b\`Ʊe -€Ò|—òp ¼?2‰À5,æ)¾´šÍ­Oñ…Œ‰‰ŠhŠiiijji‰iŠAÑBºz ëéïïåqÒètw÷i`â¥?3¥%˜õ ê뛹J@þˆù'ඊ - iŽ:ÑÞÜÜ~BÕ,‚ŒÍè©)8ùÚà'@y‘ïí>ÑÞÓÚî'¶ÁÂ"›*p1Q®“V±ç‰ä¯ãkÙS-µB¤Ò–Ôè+4 °ÕS¹"H0“½ ÕÜ© (/-S3NÀiâáéúDò€ÚtQ]4œI4‹2&Ç®¾Vƒýƒ*/ÛöϱI@¬èúEé÷pë)8딜汣à Êa@ Ä6-ãEl½“%;º€!ARyyZ —_dÌ/‰ -Ç݈‰}˜Ð:±ÖkÀx ÌäÝ¢–γ\_S¨hîǃìŸ$èRÜ>uøp°Ïö¨BÛ|ñŒµÙ -(i|½Õ§zU“ ÀˆìŸIò1’m+(,,,((Î/.üÚÞ~ ®ØRb©(+-(¬°wxÚÙ7É<é;Él‰I2,¹+“gOž79rÅäÎÉßÚM±[n·Ù.ÒNm÷Ñ”W¦lšR5¥nÊ}b1L\ ®ïŸ?“!äWÔkTUHÕQŸÐ›èP:—®¢ÿ˜:yê SÓ§~Â,f¶01Œ†IgŒÌ s H€ LžÀ:À5pÓ^jÏÚO·çíØ/³ßn¿ßþ°½—}®}½}“ýÇö_8Lr f9¸9¨RÚ>vøÌá±Ãw¿;ŒK'IIéé*éZé^©Fš*Í•öJ‡¥W¥w¥Hÿp´wtr|ÅñUÇ×}3›O;žs¼êxÇñsÇ_œœ^rÚáäéádp:îÔã4êtÓé§Oþæô›Ó¿œ§9Ïs^îü†ófg/ç`çXçTçRç&çÎ=ÎÎÃÎç?tþÑ…p™á2Óe¹Ëz—Ý.‡]¼]]’]Š]Z]κÜuùÂåw-“ËfÈž“=/[#Û-ó”EÉ2dY™¬ZÖ ë•–Ý½#»'ûJö›œ”?#Vþ¼ü%ù+òuò=òCò ¹Zž&Ï’åeòZy£¼MÞ%‘ß’$$ÿ^>ÆNb¥ì3ìLv»}™]ƾÉîb²Al›Áæ²¥l-{œígÏ°çÙ«ìmö=öûû»ëdW©«Âu®ë‹®Ë]_wÝàºÕu·«›ëWo×`×XWk¶k‘k•«Åõ¤ë°ëˆëE×kc{þ,I?Ènˆ{s¢j9ß[<çuÎà”ñAUå'FŒ¼UÔݬr­ñM}A-h8ü¶—xæfÂûÜï6vˆ§{š?üVq“Ò\èÌ>–àÍù…×uʼn '2:rîÒ°Ìú,i8¤‡î 9jÚÇ!§óÑ\4÷Ó…Ð铳íOn‰˜ÜײÐ>¿®ï,7\„ìŒb¬ÈkêyH‰uí<4úâÛ<|óƒÞh>Þ€ž¢>˜…“o"䇎íÄ -œFÔ,¨¼`è Hé"°†ÝdÓÒˆÜÜ\}6—œYR+Â*êóµ£HŠˆµßð1G÷÷µš;«²+µ5BzYnQ‘¢¡¥æ¤þd‹ÐVy!·:-T¡ÍMÊIÐô=š¿"R;s+ÊæêÒÁ|Áh«vˆtKEõëLéåÑ] §!½ì­“ˆìZ]q©¢­¢t´@° au*«,½ö0 ÿqZ+ wZ£àÚñ(¢…„G­?Vö56tæOI¼‹c¹[Bò²»³Ù·óÙOË0Á]&‘#Ü@¼Dâl .‘pÊR+iaר«ôçik°Æ²rCWRœ›] –¦åé ÏÓÈ -Ë.ŠöUŸ ºÍAúÁïpÙ½äwbÛDSR|Y4çZÓ‘"¶¥çëJ2èÊäâ(¥bÏ[»½:ð u:¢783G¯ÏÁõÀ*{BF®àÁ#^_ÿ§ÈOnKx*òÇ\ š 'ƒ×¨CChÿcûÖp;m:kèDš~n›êÏ*êvn½ÆÊèÝ“S7dÐ*ë} -lÌ3Y]\>âe­'ÍÛyÙéÅŒìÁ«<ø¬ÂM8ÚŸJPbNÿÏ> Ñ”ùhÊÄ>Úbÿ )½öESƒ™%éï4Æ;#Ý+kÅ,3€­{·š¨üâò²2dðpÖ—è±³f©ÙÙKÞx]\¿Ñwá<¢{^y´VØpÿ«ÀŸ¸Ÿ¿ê~ÿ}ñþýžo~UüêÿxÝû‡o,î~–Cß»°p?\„oûá>¸-BûÑ^ôzíZ°æÄíMÂæ;¾Vxm!šÕ‡MbilA‚J‘Ñ?Œ¡Ò{ìÒÑ‘Ð IòëÜуe/ÐpëxºŽ¼ «NèáäÒ jk+yz*2Ùm؇¦h%附IWÈý2©N‰æÂâZú®œ:õq~qk"ŸaryEÙËðŒ™Ý™ŸZ©¿AÃ=Ôhë@GIi¦¦\ˆ¬¯No溛[{†‚:ŽRFm:*Êî~ŠöDS§²ËS&:6i©Þ™8põ 0`L -³Ø(Ò­Úô:Òê8F5ã T:F´’g xºÎÓU: ݆q—?ˆië -H¬/Á ö,"‰’¸‚”tETBª· R˦t2Ú˜Y¬éBeÖŸ¦EÈgütÜÖ°`?Ýt5Tšb©ÀÈzsi~eI£ØóñLg?CžZL‚»le<”˜p±Þ7©ÈCMa„.« Þ¾ZÑ0(~Ú{ññ -Hnú~f§Z–h\_˜`˜VNéÏÖÔàÌ4¡ûj39¢«MЦS)ŸÜÍ9‘™¾ñÓWø¸-™¯˜ñåOý„ØÓWR¯sðE«†ý9ëâkh¦‰û_›“% Ù®sŠö?„¢μôð§"Aú -?ÑæXË'¦Çƒe¼©ë/ð&/ËÜÀÈ6üUÐÑøÚ“-ÙÜÇ1¼6NglUh88 ÿ]ˆ.‚ÙÇ(…œ(6«à]ê*J£€—)«+"¡Š¬5” -å%õE­Ü{ç‚ßê[ܪÖ/W,R/ûïµi˜Œ´t¬Ìª ©…ÚjtÅ*wC·“–Jð–=¥¢fåF+4Ù¡¡ -Cá ¦ŒïWWß+xÊ#­Ó,ÊJ; t¹‰5^E¾+¶, -¬Á®¶QU¯Ž§_‹ôõ;¨8V—p3F,ú^E~–SfÜGÏ¢†ÇnÞîS?,x]Šç†Û†,BlU¶N¯ÏÈ™žÆ\ØÛ9uÉFwz<œÒ¹'§àU¶¾KõBo"’ Ý¢ŽŒ <Ý4opÛ*°CH£~ïS"²\l†ŸG‘ÉhŠ_À, ã©îŠÒ _žO‰hÚ#«Â*7ÓfxhÛ^ÐCÐÀÿÕçm -êZ;ÌüUÅ‘µ5{ç`A½Óí~Â.ö‹ÐL¤6ê ‹55¥-B RW9qm;áËèâ4ôŠ­ ®†_›Â¶ðù—h¸™‚ -ØÒs¿¼|¨hº íS›¨ •&+QƒÍº+üÂB®)Í(Õ}@Ãä ƒµô'íƒ×>R@zÑm´z¢]ÿNvU’q½­]¯ß‘ë™Cç¦ét©"Ô[?b›j+:ux¡IÛS”Q1‚::8sÆ–²K¶Dïß*®Ûî¿MQ`ƒ¤@3 <ˆüþpÇMáÖ¶5í³¹‚@ö÷kh&“ƒÛÐÔ™G=[‡"ÅÐ Éïþª€N¦†/ -µ}œJ©‹U'ëÊ3S²s³²Ò„ô¤œ´TÌ7kTäÎe¾ž[÷Ó‘£èµuÀ÷î¾ãŸö ªrB©Ö$Çq©µ}"¼`ë_)d\xûöAe¸VUs£{ÍÖ®š†Âbºç|us­¢8§ ###G›$èõ:]®y¡•Ór(ŒJ«°»§ïŒÜþ›âî±á]‡‚CÀÓ½­«VÛööÈðêpÝ–@>þjëYÄh²ótQ"$ -Ê Å±»ò - Œ­šãqä¤ÿ𙞓ÃglÕÀþú¦­¦{SëKÈÂ$»S­'ÄNúÀ#h!| ݧÀ #âÐkh-V`xÝÑóXÍÀNr t„ÄEéƶîÐQî››¿`©ê|ø›ÍÑ1!Áõq]Yb_¦A_©¥«‹#<s=·­÷¬í‰Z®V (ÎÄ´(£CyVh:bÛ7ÖÃG¤tÜàI?\cÿ¬¨š¨¨¹åÒ@§@ç`¤ƒið{ÛÒÐjæÌeqØBæàRï=¿ãH@øÆáG -mÙ_¨&òK - ùœyÂn߇ÎÔÄ’1àò"@ýÕ[Á€§E’bKÑ9Zúú¸{¡Yä±?jþ¦Á†âòÖ&Ü:h²¾ZÀ£¿f·%ñà SÀ5Áøê§Ý¡Ò‰îPéŸÝ¡¬¤t]&•cë}eMg‡ë•/¾˜päHBד'uÝgDàþ˜ÖçØ>&F¨çW0î¿´òQ2õÊzâõÕ=©ÿKWßL=íûK­snß¾mج´Ä­£ŽKåÜTW¡²-W¯t´G+«D`s21;ù¿Úä{¡œx@¡^(‹qƒþ«ˆ?ìHðC_j;‘“’¥Ïà|BºßOÑä:6# r{B˜›’Èy©GqèÅ.ö6û ºC”Æk‹Ë -ó‹‹Ê„²êlŽG™ƒýUª€ÝWŽ¶ZmL¤:`"Ò2 ?¯žì…5½.ð,ô_Ä2®’ý:dïzj²Ì¸<Þ,†‰V²›¿z»;mÇ\†Ò‹² Þôÿ›à+5@;L p6È3IÀ+L»©ÎâãáK| ÐùÃçy`3XôæC[—*Þê?zm¤ãĹ¡°ÞÙYyú,AŸ«ËÓq©¥}ý÷GEðSl(ãþž°ÛÃc¼x[3a_b)ÄÉq“ô!vSÆS’ÞPœP©?GÃD˜…)ÝÁDíÛÙ¥o)pÞØÈC¹Jô­#€•€ Ùõ¥¯ç8x³!¿¦¤AŒ?ÞœÞÊõ¶4o©ŠˆÎJÂÛs[BxLt]U Íùp6¯«|ëɧmyœ&`aÿ”6 t®¡ö¶­pø­Šz'פÁ„‚|Qô¥ €1oÚâ›Ybºž´ ZWD¶jcµŒ¿QÆe©aœ)“ü³r|š?n MÀ”±Ä†žh9Z†Qâ \ŽVÀCø¶®À{?[…ˆàd yµ[µ­K0y²¦­EGV+ß„CÝî×|3Hð4ÚÎî2jêuØ#?K=cÑžæ ñðp>œùÆdb  õHœº½nM«l%:Œ¡H°€Qûz¬æ!F\„D©Bþ,ŸhjÅ”5)Ï £h‡³Ë PvÜ¥>' [ -åìe@<˜åщP.‡î8”+ð͇r9|Lœh02à+Æêcb=È]s‰:€Ö·‘…ßœùãû”ƒ=¢þ{¢\ä{ÀÓÎx}sV='›Ñ„¤€n¶Îa;˜/?¯½Ždñ9q…Œøt]—QfÑ‹ C¨ -Š,x‹C;à N 2¾‡ák¸¾Æçܶj·PÒ£¼ídÖ±Cõ¡~Š M\THrÓÈ`AM}« e­s¶ŒXnS?¼=Ž¿t›G[G¼>¼wîÜ=0aKá6“änogm7³ÐÚ£¸x¤oë[îž»|ð°Þ=ŸÞþÁ㋆:îw ðþý€ûî≯¯Š²ŽñgCXUtrf4§Œ7ÛjèÚH2 )=-ŽKO.(‹Í{Ž”ÛúÂ(€B¯A"¾)³²Jaª©hÀŸýÀæþø ÜÅþ¿èy°†æõ4€/ÃÅp6¾¿Œ×îþë@S½ °;`õ¨«ØÒ#ÞÑ‘jn‹÷Íäˆ:0ª={ºaÓ™x“ P·]ú†¥Q ‡9­:Ó7gwÚü:@î‰×I„Áÿ<ˆ/›(ƒ‰Ë©-J»i€Vgó¶îkn5†'yCô9)"¸*×àû×ìÆüŽ¹â£‰ÖPœó;¾yë‘ð@ni—áºnøj¯D«Ô*›š-øäZ×pKBJ• Á¤ãÖD*Р 1¿Â¨¨b÷)ÓÛï`±¿fÁåX[!þnÿ3 ïwre`¦ -ØÎ}àÜ%àr€u=˜8«’€qtK~‡Î6‰jÆ[È…8Cžu;2vä#$ Ñ³”º ©4gÞ3Œí0#@¿ìÌÊ -ÒOWk'T²_Ž–Pài³ì¤®¦$1R¸(Ïlç?Àÿñå¼£ -endstream -endobj -1316 0 obj -<< -/Length 9388 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(gather)-375(|)-375(Gather)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(These)-384(subroutines)-384(collect)-385(the)-384(p)-28(orti)1(ons)-385(of)-384(global)-384(dense)-384(matrix)-384(distributed)-384(o)28(v)27(er)]TJ 0 -11.956 Td [(all)-333(pro)-28(cess)-334(in)28(to)-333(one)-333(single)-334(arra)28(y)-333(stored)-334(on)-333(one)-333(pro)-28(cess.)]TJ/F11 9.9626 Tf 120.435 -22.804 Td [(g)-36(l)-20(ob)]TJ -ET -q -1 0 0 1 238.311 653.179 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 241.299 652.98 Td [(x)]TJ/F14 9.9626 Tf 8.462 0 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(col)-20(l)-19(ect)]TJ/F8 9.9626 Tf 28.025 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(l)-20(oc)]TJ -ET -q -1 0 0 1 307.298 653.179 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 310.287 652.98 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F8 9.9626 Tf 3.316 1.494 Td [(\051)]TJ -219.402 -20.867 Td [(where:)]TJ -0 g 0 G -/F11 9.9626 Tf 0 -19.085 Td [(g)-36(l)-20(ob)]TJ -ET -q -1 0 0 1 117.965 613.227 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F11 9.9626 Tf 121.403 613.028 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(submatrix)]TJ/F11 9.9626 Tf 103.916 0 Td [(g)-36(l)-20(ob)]TJ -ET -q -1 0 0 1 253.974 613.227 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 256.963 613.028 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(m;)]TJ/F7 6.9738 Tf 9.436 0 Td [(1:)]TJ/F10 6.9738 Tf 6.226 0 Td [(n)]TJ -0 g 0 G -/F11 9.9626 Tf -184.651 -18.011 Td [(l)-20(oc)]TJ -ET -q -1 0 0 1 112.892 593.722 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F11 9.9626 Tf 116.329 593.523 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ -0 g 0 G -/F8 9.9626 Tf 8.298 1.494 Td [(is)-333(the)-334(lo)-27(c)-1(al)-333(p)-28(ortion)-333(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.704 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(.)]TJ -0 g 0 G -/F11 9.9626 Tf -268.562 -19.505 Td [(col)-20(l)-19(ect)]TJ -0 g 0 G -/F8 9.9626 Tf 33.007 0 Td [(is)-333(the)-334(collect)-333(function.)]TJ -0 g 0 G -======= /F27 9.9626 Tf -33.797 -19.659 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G @@ -21029,70 +13568,9 @@ BT /F8 9.9626 Tf -297.883 -11.955 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(t)28(yp)-28(e)-334(sp)-27(eci\014ed)-334(in)-333(T)83(able)]TJ 0 0 1 rg 0 0 1 RG [-333(17)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -ET -q -1 0 0 1 177.988 555.154 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F11 9.9626 Tf 183.966 546.587 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.495 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.495 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ -ET -q -1 0 0 1 177.988 542.801 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F8 9.9626 Tf 183.966 534.233 Td [(In)28(teger)-9028(psb)]TJ -ET -q -1 0 0 1 319.972 534.432 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 534.233 Td [(gather)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ -ET -q -1 0 0 1 319.972 522.477 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 522.278 Td [(gather)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 510.522 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 510.323 Td [(gather)]TJ -138.995 -11.956 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 498.567 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 498.367 Td [(gather)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 319.972 486.612 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 486.412 Td [(gather)]TJ -ET -q -1 0 0 1 177.988 482.626 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 225.577 454.587 Td [(T)83(able)-333(19:)-444(Data)-334(t)28(yp)-28(es)]TJ -0 g 0 G -======= /F27 9.9626 Tf -24.907 -19.658 Td [(desc)]TJ ET q @@ -21131,267 +13609,9 @@ BT /F8 9.9626 Tf 26.941 0 Td [(index)-333(list)-334(selector.)]TJ -2.034 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger.)-408(V)84(alues:)]TJ/F30 9.9626 Tf 136.479 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.225 0 Td [(,)]TJ/F30 9.9626 Tf 2.767 0 Td [(psb_comm_mov_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.202 0 Td [(psb_comm_ext_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ -353.663 -11.955 Td [(default:)]TJ/F30 9.9626 Tf 39.089 0 Td [(psb_comm_halo_)]TJ/F8 9.9626 Tf 73.224 0 Td [(.)-705(Cho)-27(os)-1(es)-420(the)-420(index)-420(list)-420(on)-420(whic)28(h)-420(to)-420(base)-420(the)]TJ -112.313 -11.955 Td [(data)-333(exc)27(hange.)]TJ 0 g 0 G 141.968 -29.888 Td [(59)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -0 g 0 G -/F27 9.9626 Tf -124.305 -30.984 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.738 0 Td [(p)-123(s)-123(b)]TJ -ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -q -1 0 0 1 150.286 423.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 154.501 423.603 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ -ET -q -1 0 0 1 219.873 423.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 223.956 423.603 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ -ET -q -1 0 0 1 261.2 423.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 265.456 423.603 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 309.731 423.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 313.842 423.603 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ/F27 9.9626 Tf -212.57 -11.956 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.738 0 Td [(p)-123(s)-123(b)]TJ -ET -q -1 0 0 1 150.286 411.847 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 154.501 411.647 Td [(g)-123(a)-123(t)-123(h)-123(e)-123(r)-229(\050)-215(g)-110(l)-110(o)-110(b)]TJ -ET -q -1 0 0 1 219.873 411.847 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 223.956 411.647 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ -ET -q -1 0 0 1 261.2 411.847 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 265.456 411.647 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 309.731 411.847 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 313.842 411.647 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-885(r)-124(o)-123(o)-124(t)-230(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -213.947 -26.424 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.505 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.505 Td [(lo)-32(c)]TJ -ET -q -1 0 0 1 114.904 346.412 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 118.341 346.213 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.118 0 Td [(g)-36(l)-19(o)-1(b)]TJ -ET -q -1 0 0 1 323.467 346.412 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 326.456 346.213 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.348 -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.956 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)-255(as:)-405(a)-255(rank)-254(one)-255(or)-255(t)28(w)27(o)-254(arra)27(y)-254(or)-255(an)-255(ob)-55(jec)-1(t)-254(of)-255(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 244.743 0 Td [(psb)]TJ -ET -q -1 0 0 1 385.864 298.592 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 389.002 298.392 Td [(T)]TJ -ET -q -1 0 0 1 394.86 298.592 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 397.998 298.392 Td [(vect)]TJ -ET -q -1 0 0 1 419.547 298.592 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 422.685 298.392 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf -297.883 -11.955 Td [(indicated)-333(in)-334(T)84(able)]TJ -0 0 1 rg 0 0 1 RG - [-334(19)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.505 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 267.131 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 266.932 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 219.311 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 219.111 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 219.311 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 219.111 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.505 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(The)-291(pro)-28(cess)-291(that)-291(holds)-291(the)-291(global)-291(cop)28(y)83(.)-430(If)]TJ/F11 9.9626 Tf 182.522 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 20.795 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-291(all)-291(the)-291(pro)-28(cesses)-291(will)]TJ -222.606 -11.955 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F14 9.9626 Tf 142.079 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.795 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)]TJ/F14 9.9626 Tf 44.555 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -299.783 -19.505 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 166.875 -29.888 Td [(65)]TJ 0 g 0 G ET -endstream -endobj -1324 0 obj -<< -/Length 1459 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 150.705 706.129 Td [(glob)]TJ -ET -q -1 0 0 1 172.397 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 175.834 706.129 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(where)-333(the)-334(lo)-27(cal)-334(parts)-333(m)28(ust)-334(b)-27(e)-334(gathered.)]TJ -11.251 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(or)-333(t)28(w)28(o)-334(arra)28(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 204.401 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -290.162 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -500.124 Td [(66)]TJ -0 g 0 G -ET - -endstream -endobj -1330 0 obj -<< -/Length 7828 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(scatter)-375(|)-375(Scatter)-375(Global)-375(Dense)-375(Matrix)]TJ/F8 9.9626 Tf -25.091 -19.28 Td [(These)-315(subroutines)-315(scatters)-315(the)-315(p)-28(ortions)-315(of)-315(global)-315(dense)-315(matrix)-315(o)28(wned)-315(b)27(y)-315(a)-315(pro-)]TJ 0 -11.955 Td [(cess)-334(to)-333(all)-333(the)-334(p)1(ro)-28(cesses)-334(in)-333(the)-333(pro)-28(cesses)-334(grid.)]TJ/F11 9.9626 Tf 119.021 -25.291 Td [(l)-20(oc)]TJ -ET -q -1 0 0 1 231.823 649.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 234.812 649.603 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ/F14 9.9626 Tf 6.084 1.494 Td [(\040)]TJ/F11 9.9626 Tf 12.73 0 Td [(scatter)]TJ/F8 9.9626 Tf 30.853 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(g)-36(l)-19(o)-1(b)]TJ -ET -q -1 0 0 1 312.028 649.802 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 315.017 649.603 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\051)]TJ -220.816 -22.875 Td [(where:)]TJ -0 g 0 G -/F11 9.9626 Tf 0 -21.361 Td [(g)-36(l)-20(ob)]TJ -ET -q -1 0 0 1 117.965 605.567 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F11 9.9626 Tf 121.403 605.367 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 10.675 0 Td [(is)-333(the)-334(global)-333(matrix)]TJ/F11 9.9626 Tf 88.917 0 Td [(g)-36(l)-19(ob)]TJ -ET -q -1 0 0 1 238.975 605.567 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 241.964 605.367 Td [(x)]TJ/F7 6.9738 Tf 5.694 -1.494 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(m;)]TJ/F7 6.9738 Tf 9.435 0 Td [(1:)]TJ/F10 6.9738 Tf 6.227 0 Td [(n)]TJ -0 g 0 G -/F11 9.9626 Tf -169.652 -20.345 Td [(l)-20(oc)]TJ -ET -q -1 0 0 1 112.892 583.727 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F11 9.9626 Tf 116.329 583.528 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.494 Td [(i)]TJ -0 g 0 G -/F8 9.9626 Tf 8.298 1.494 Td [(is)-333(the)-334(lo)-27(c)-1(al)-333(p)-28(ortion)-333(of)-333(global)-333(dense)-334(matrix)-333(on)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 234.704 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(.)]TJ -0 g 0 G -/F11 9.9626 Tf -268.562 -21.839 Td [(scatter)]TJ -0 g 0 G -/F8 9.9626 Tf 35.835 0 Td [(is)-333(the)-334(scatter)-333(function.)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -ET -q -1 0 0 1 177.988 539.65 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -======= - endstream endobj 1285 0 obj @@ -21827,63 +14047,9 @@ ET q 1 0 0 1 272.62 218.017 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf Q 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F11 9.9626 Tf 183.966 531.082 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ/F11 9.9626 Tf 3.317 1.494 Td [(;)-167(y)]TJ/F27 9.9626 Tf 111.399 0 Td [(Subroutine)]TJ -ET -q -1 0 0 1 177.988 527.296 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -BT -/F8 9.9626 Tf 183.966 518.729 Td [(In)28(teger)-9028(psb)]TJ -ET -q -1 0 0 1 319.972 518.928 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 518.729 Td [(scatter)]TJ -138.995 -11.956 Td [(Short)-333(Precision)-333(R)-1(eal)-3102(psb)]TJ -ET -q -1 0 0 1 319.972 506.973 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 506.773 Td [(scatter)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Real)-3314(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 495.017 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 494.818 Td [(scatter)]TJ -138.995 -11.955 Td [(Short)-333(Precision)-333(C)-1(omplex)-1200(p)1(s)-1(b)]TJ -ET -q -1 0 0 1 319.972 483.062 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 482.863 Td [(scatter)]TJ -138.995 -11.955 Td [(Long)-333(Precision)-334(Complex)-1411(psb)]TJ -ET -q -1 0 0 1 319.972 471.107 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 322.961 470.908 Td [(scatter)]TJ -ET -q -1 0 0 1 177.988 467.122 cm -[]0 d 0 J 0.398 w 0 0 m 187.526 0 l S -Q -0 g 0 G -BT -/F8 9.9626 Tf 225.577 439.083 Td [(T)83(able)-333(20:)-444(Data)-334(t)28(yp)-28(es)]TJ -======= /F8 9.9626 Tf 281.039 217.818 Td [(Do)-333(nothing;)]TJ 0 g 0 G /F27 9.9626 Tf -105.428 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ @@ -21899,79 +14065,10 @@ q 1 0 0 1 267.21 202.789 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G BT /F8 9.9626 Tf 275.628 202.589 Td [(Sum)-333(o)27(v)28(erlap)-333(en)28(tries,)-334(i.e.)-444(apply)]TJ/F11 9.9626 Tf 136.544 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -124.305 -33.261 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.991 0 Td [(p)-148(s)-149(b)]TJ -ET -q -1 0 0 1 151.298 406.021 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.766 405.822 Td [(s)-148(c)-149(a)-148(t)-149(t)-148(e)-149(r)-254(\050)-215(g)-110(l)-110(o)-110(b)]TJ -ET -q -1 0 0 1 225.851 406.021 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 229.934 405.822 Td [(x)-381(,)-888(l)-127(o)-127(c)]TJ -ET -q -1 0 0 1 267.178 406.021 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 271.433 405.822 Td [(x)-415(,)-874(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 315.709 406.021 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 319.82 405.822 Td [(a)-386(,)-888(i)-127(n)-127(f)-127(o)-415(,)-864(r)-103(o)-103(o)-104(t)-367(,)-808(m)-47(o)-46(l)-47(d)-152(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -219.925 -30.766 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -21.84 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -21.839 Td [(glob)]TJ -ET -q -1 0 0 1 121.587 331.576 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.024 331.377 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(arra)27(y)-333(that)-333(m)28(ust)-334(b)-27(e)-334(scattered)-333(in)28(to)-334(lo)-28(cal)-333(pieces.)]TJ -11.25 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 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(rank)-333(one)-333(or)-334(t)28(w)28(o)-334(arra)28(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.839 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 261.916 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 261.717 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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 [(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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 214.095 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -======= /F27 9.9626 Tf -250.617 -15.229 Td [(up)-32(date)-383(=)-384(psb)]TJ ET q @@ -21984,28 +14081,9 @@ ET q 1 0 0 1 265.937 187.56 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf Q 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F30 9.9626 Tf 315.174 213.896 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 214.095 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 213.896 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.839 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(The)-420(pro)-27(ces)-1(s)-419(that)-420(holds)-419(the)-420(global)-420(cop)28(y)83(.)-703(If)]TJ/F11 9.9626 Tf 194.21 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 22.228 0 Td [(=)]TJ/F14 9.9626 Tf 11.949 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-420(all)-419(the)-420(pro)-28(cesses)]TJ -237.16 -11.956 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-344(as:)-468(an)-344(in)28(teger)-345(v)55(ariab)1(le)]TJ/F14 9.9626 Tf 142.757 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.937 0 Td [(\024)]TJ/F11 9.9626 Tf 10.704 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.983 0 Td [(\024)]TJ/F11 9.9626 Tf 10.705 0 Td [(np)]TJ/F14 9.9626 Tf 13.281 0 Td [(\000)]TJ/F8 9.9626 Tf 10.038 0 Td [(1,)-348(defau)1(lt)]TJ/F30 9.9626 Tf 44.81 0 Td [(psb_root_)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)]TJ -316.037 -11.955 Td [(i.e.)-444(pro)-28(cess)-334(0.)]TJ -0 g 0 G - 141.968 -29.888 Td [(67)]TJ -======= /F8 9.9626 Tf 274.355 187.36 Td [(Av)28(erage)-334(o)28(v)28(erlap)-333(en)27(tries,)-333(i.e.)-444(apply)]TJ/F11 9.9626 Tf 152.346 0 Td [(P)]TJ/F10 6.9738 Tf 6.396 -1.494 Td [(a)]TJ/F11 9.9626 Tf 4.82 1.494 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(;)]TJ -276.362 -19.214 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(update)]TJ ET q @@ -22030,90 +14108,20 @@ BT /F8 9.9626 Tf 175.611 132.281 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G 141.968 -29.888 Td [(62)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1340 0 obj -<< -/Length 4181 -======= 1319 0 obj << /Length 5866 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf 150.705 706.129 Td [(mold)]TJ -0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.899 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.261 0 Td [(psb)]TJ -ET -q -1 0 0 1 390.19 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 393.329 658.308 Td [(T)]TJ -ET -q -1 0 0 1 399.186 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 402.325 658.308 Td [(base)]TJ -ET -q -1 0 0 1 423.874 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 427.012 658.308 Td [(vect)]TJ -ET -q -1 0 0 1 448.561 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 451.699 658.308 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)-334(lo)-28(c)]TJ -ET -q -1 0 0 1 281.979 646.552 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 284.968 646.353 Td [(x)-333(is)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 52.36 0 Td [(psb)]TJ -ET -q -1 0 0 1 353.646 646.552 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 356.784 646.353 Td [(T)]TJ -ET -q -1 0 0 1 362.642 646.552 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.781 646.353 Td [(vect)]TJ -ET -q -1 0 0 1 387.33 646.552 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.468 646.353 Td [(type)]TJ -======= /F27 9.9626 Tf 99.895 706.129 Td [(w)32(ork)]TJ 0 g 0 G /F8 9.9626 Tf 29.432 0 Td [(the)-333(w)27(ork)-333(arra)28(y)83(.)]TJ -4.525 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(dimensional)-334(ar)1(ra)27(y)-333(of)-333(the)-334(same)-333(t)28(yp)-28(e)-333(of)]TJ/F11 9.9626 Tf 252.609 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ @@ -22132,72 +14140,13 @@ BT /F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.684 -19.925 Td [(On)-383(Return)]TJ -======= [-500(If)-316(there)-316(is)-317(no)-316(o)28(v)28(erlap)-316(in)-316(the)-317(data)-316(distribution)-316(asso)-28(ciated)-316(with)-316(the)-316(descrip-)]TJ 12.73 -11.955 Td [(tor,)-333(no)-334(op)-27(erations)-334(are)-333(p)-28(erformed;)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -12.73 -19.926 Td [(2.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.926 Td [(lo)-32(c)]TJ -ET -q -1 0 0 1 165.713 606.702 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 169.151 606.502 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(dense)-333(matrix)]TJ/F11 9.9626 Tf 176.117 0 Td [(g)-36(l)-20(ob)]TJ -ET -q -1 0 0 1 374.277 606.702 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 377.266 606.502 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -207.349 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-244(as:)-400(a)-244(rank)-244(on)1(e)-245(or)-243(t)27(w)28(o)-244(ALLOCA)83(T)84(ABLE)-244(arra)28(y)-244(or)-244(an)-244(ob)-56(ject)-244(of)-244(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 0 -11.955 Td [(psb)]TJ -ET -q -1 0 0 1 191.93 546.926 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 195.068 546.727 Td [(T)]TJ -ET -q -1 0 0 1 200.926 546.926 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 204.065 546.727 Td [(vect)]TJ -ET -q -1 0 0 1 225.613 546.926 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 228.752 546.727 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 24.242 0 Td [(con)28(taining)-333(n)27(um)28(b)-28(ers)-333(of)-333(the)-334(t)28(yp)-28(e)-333(indicated)-333(in)-333(T)83(able)]TJ -0 0 1 rg 0 0 1 RG - [-333(20)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -102.289 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -388.543 Td [(68)]TJ -======= [-500(The)-351(op)-27(erator)]TJ/F11 9.9626 Tf 73.737 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.616 Td [(T)]TJ/F8 9.9626 Tf 9.77 -3.616 Td [(p)-28(erforms)-350(the)-351(reduction)-351(sum)-350(of)-351(o)28(v)27(erlap)-350(elemen)28(ts)-1(;)-359(it)-351(i)1(s)-351(a)]TJ -78.557 -11.955 Td [(\134prolongation")-365(op)-28(erator)]TJ/F11 9.9626 Tf 108.923 0 Td [(P)]TJ/F10 6.9738 Tf 7.78 3.615 Td [(T)]TJ/F8 9.9626 Tf 9.914 -3.615 Td [(that)-365(replicates)-365(o)27(v)28(erlap)-365(elemen)28(ts,)-373(accoun)27(tin)1(g)]TJ -126.617 -11.955 Td [(for)-333(the)-334(ph)28(ysical)-333(replication)-333(of)-334(data;)]TJ 0 g 0 G -12.73 -19.925 Td [(3.)]TJ @@ -22213,21 +14162,14 @@ BT [(;)-373(the)-359(data)-360(distribution)-359(is)-360(suc)28(h)]TJ 0 -11.956 Td [(that)-351(eac)27(h)-351(pro)-28(cess)-351(will)-352(o)28(wn)-351(40)-352(en)28(tries)-351(in)-351(the)-352(index)-351(space,)-356(with)-351(an)-352(o)28(v)28(erlap)-351(of)-352(16)]TJ 0 -11.955 Td [(en)28(tries)-326(placed)-325(a)-1(t)-325(lo)-28(cal)-325(indices)-326(25)-326(through)-325(40;)-328(the)-326(halo)-325(w)-1(il)1(l)-326(run)-326(fr)1(om)-326(lo)-28(cal)-326(in)1(dex)]TJ 0 -11.955 Td [(41)-290(through)-291(lo)-27(cal)-291(index)-290(48..)-430(If)-291(pro)-27(cess)-291(0)-290(assigns)-291(an)-290(initial)-290(v)55(alue)-290(of)-291(1)-290(to)-290(its)-291(en)28(tries)]TJ 0 -11.955 Td [(in)-298(the)]TJ/F11 9.9626 Tf 28.079 0 Td [(x)]TJ/F8 9.9626 Tf 8.663 0 Td [(v)28(ector,)-305(and)-298(pro)-28(cess)-298(1)-298(assigns)-299(a)-298(v)56(alue)-298(of)-298(2,)-305(then)-298(after)-298(a)-298(call)-298(to)]TJ/F30 9.9626 Tf 265.127 0 Td [(psb_ovrl)]TJ/F8 9.9626 Tf -301.869 -11.955 Td [(with)]TJ/F30 9.9626 Tf 22.401 0 Td [(psb_avg_)]TJ/F8 9.9626 Tf 44.871 0 Td [(and)-304(a)-304(call)-304(to)]TJ/F30 9.9626 Tf 56.945 0 Td [(psb_halo_)]TJ/F8 9.9626 Tf 50.101 0 Td [(the)-304(con)28(ten)28(ts)-304(of)-304(the)-304(lo)-28(cal)-304(v)28(ectors)-304(will)-304(b)-28(e)]TJ -174.318 -11.955 Td [(the)-333(follo)27(win)1(g)-334(\050sho)28(wing)-333(a)-334(transition)-333(among)-333(the)-334(t)28(w)28(o)-333(sub)-28(domains\051)]TJ 0 g 0 G 166.875 -143.462 Td [(63)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1344 0 obj -<< -/Length 6538 -======= 1327 0 obj << /Length 3619 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -22236,24 +14178,6 @@ stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 14.3462 Tf 99.895 706.129 Td [(6)-1125(Data)-375(managemen)31(t)-375(routines)]TJ/F16 11.9552 Tf 0 -23.814 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 682.515 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 682.315 Td [(cdall)-375(|)-375(Allo)-31(cates)-375(a)-375(comm)31(unication)-375(descriptor)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,parts=parts\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vg=vg,[mg=mg,flag=flag]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,nl=nl\051)]TJ 0 -11.956 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,repl=.true.\051)]TJ/F8 9.9626 Tf 14.944 -20.107 Td [(This)-314(subroutine)-314(initializes)-315(the)-314(comm)28(unication)-314(descriptor)-314(as)-1(so)-27(ciated)-315(with)-314(an)]TJ -14.944 -11.955 Td [(index)-326(space.)-442(One)-326(of)-326(the)-327(option)1(al)-327(argumen)28(ts)]TJ/F30 9.9626 Tf 193.68 0 Td [(parts)]TJ/F8 9.9626 Tf 26.151 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(nl)]TJ/F8 9.9626 Tf 13.709 0 Td [(or)]TJ/F30 9.9626 Tf 12.133 0 Td [(repl)]TJ/F8 9.9626 Tf 24.171 0 Td [(m)28(ust)-326(b)-28(e)]TJ -308.859 -11.955 Td [(sp)-28(eci\014ed,)-333(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(sp)-28(eci\014c)-334(in)1(itialization)-334(strategy)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -18.477 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.201 Td [(T)32(yp)-32(e:)]TJ -======= /F31 7.9701 Tf 260.921 653.177 Td [(Pro)-29(ce)-1(ss)-354(0)-8986(Pro)-30(cess)-354(1)]TJ -33.381 -9.464 Td [(I)-1500(GLOB\050I\051)-1500(X\050I\051)-5180(I)-1500(GLOB\050I\051)-1500(X\050I\051)]TJ -1.185 -9.465 Td [(1)-5253(1)-2148(1)1(.)-1(0)-5031(1)-4722(33)-2147(1.5)]TJ 0 -9.464 Td [(2)-5253(2)-2148(1)1(.)-1(0)-5031(2)-4722(34)-2147(1.5)]TJ 0 -9.465 Td [(3)-5253(3)-2148(1)1(.)-1(0)-5031(3)-4722(35)-2147(1.5)]TJ 0 -9.464 Td [(4)-5253(4)-2148(1)1(.)-1(0)-5031(4)-4722(36)-2147(1.5)]TJ 0 -9.465 Td [(5)-5253(5)-2148(1)1(.)-1(0)-5031(5)-4722(37)-2147(1.5)]TJ 0 -9.464 Td [(6)-5253(6)-2148(1)1(.)-1(0)-5031(6)-4722(38)-2147(1.5)]TJ 0 -9.465 Td [(7)-5253(7)-2148(1)1(.)-1(0)-5031(7)-4722(39)-2147(1.5)]TJ 0 -9.464 Td [(8)-5253(8)-2148(1)1(.)-1(0)-5031(8)-4722(40)-2147(1.5)]TJ 0 -9.465 Td [(9)-5253(9)-2148(1)1(.)-1(0)-5031(9)-4722(41)-2147(2.0)]TJ -4.234 -9.464 Td [(10)-4722(10)-2147(1.0)-4500(10)-4722(42)-2147(2.0)]TJ 0 -9.465 Td [(11)-4722(11)-2147(1.0)-4500(11)-4722(43)-2147(2.0)]TJ 0 -9.464 Td [(12)-4722(12)-2147(1.0)-4500(12)-4722(44)-2147(2.0)]TJ 0 -9.465 Td [(13)-4722(13)-2147(1.0)-4500(13)-4722(45)-2147(2.0)]TJ 0 -9.464 Td [(14)-4722(14)-2147(1.0)-4500(14)-4722(46)-2147(2.0)]TJ 0 -9.465 Td [(15)-4722(15)-2147(1.0)-4500(15)-4722(47)-2147(2.0)]TJ 0 -9.464 Td [(16)-4722(16)-2147(1.0)-4500(16)-4722(48)-2147(2.0)]TJ 0 -9.465 Td [(17)-4722(17)-2147(1.0)-4500(17)-4722(49)-2147(2.0)]TJ 0 -9.464 Td [(18)-4722(18)-2147(1.0)-4500(18)-4722(50)-2147(2.0)]TJ 0 -9.465 Td [(19)-4722(19)-2147(1.0)-4500(19)-4722(51)-2147(2.0)]TJ 0 -9.464 Td [(20)-4722(20)-2147(1.0)-4500(20)-4722(52)-2147(2.0)]TJ 0 -9.465 Td [(21)-4722(21)-2147(1.0)-4500(21)-4722(53)-2147(2.0)]TJ 0 -9.464 Td [(22)-4722(22)-2147(1.0)-4500(22)-4722(54)-2147(2.0)]TJ 0 -9.465 Td [(23)-4722(23)-2147(1.0)-4500(23)-4722(55)-2147(2.0)]TJ 0 -9.464 Td [(24)-4722(24)-2147(1.0)-4500(24)-4722(56)-2147(2.0)]TJ 0 -9.465 Td [(25)-4722(25)-2147(1.5)-4500(25)-4722(57)-2147(2.0)]TJ 0 -9.464 Td [(26)-4722(26)-2147(1.5)-4500(26)-4722(58)-2147(2.0)]TJ 0 -9.465 Td [(27)-4722(27)-2147(1.5)-4500(27)-4722(59)-2147(2.0)]TJ 0 -9.464 Td [(28)-4722(28)-2147(1.5)-4500(28)-4722(60)-2147(2.0)]TJ 0 -9.465 Td [(29)-4722(29)-2147(1.5)-4500(29)-4722(61)-2147(2.0)]TJ 0 -9.464 Td [(30)-4722(30)-2147(1.5)-4500(30)-4722(62)-2147(2.0)]TJ 0 -9.465 Td [(31)-4722(31)-2147(1.5)-4500(31)-4722(63)-2147(2.0)]TJ 0 -9.464 Td [(32)-4722(32)-2147(1.5)-4500(32)-4722(64)-2147(2.0)]TJ 0 -9.465 Td [(33)-4722(33)-2147(1.5)-4500(33)-4722(25)-2147(1.5)]TJ 0 -9.464 Td [(34)-4722(34)-2147(1.5)-4500(34)-4722(26)-2147(1.5)]TJ 0 -9.465 Td [(35)-4722(35)-2147(1.5)-4500(35)-4722(27)-2147(1.5)]TJ 0 -9.464 Td [(36)-4722(36)-2147(1.5)-4500(36)-4722(28)-2147(1.5)]TJ 0 -9.465 Td [(37)-4722(37)-2147(1.5)-4500(37)-4722(29)-2147(1.5)]TJ 0 -9.464 Td [(38)-4722(38)-2147(1.5)-4500(38)-4722(30)-2147(1.5)]TJ 0 -9.465 Td [(39)-4722(39)-2147(1.5)-4500(39)-4722(31)-2147(1.5)]TJ 0 -9.464 Td [(40)-4722(40)-2147(1.5)-4500(40)-4722(32)-2147(1.5)]TJ 0 -9.465 Td [(41)-4722(41)-2147(2.0)-4500(41)-4722(17)-2147(1.0)]TJ 0 -9.464 Td [(42)-4722(42)-2147(2.0)-4500(42)-4722(18)-2147(1.0)]TJ 0 -9.465 Td [(43)-4722(43)-2147(2.0)-4500(43)-4722(19)-2147(1.0)]TJ 0 -9.464 Td [(44)-4722(44)-2147(2.0)-4500(44)-4722(20)-2147(1.0)]TJ 0 -9.465 Td [(45)-4722(45)-2147(2.0)-4500(45)-4722(21)-2147(1.0)]TJ 0 -9.464 Td [(46)-4722(46)-2147(2.0)-4500(46)-4722(22)-2147(1.0)]TJ 0 -9.465 Td [(47)-4722(47)-2147(2.0)-4500(47)-4722(23)-2147(1.0)]TJ 0 -9.464 Td [(48)-4722(48)-2147(2.0)-4500(48)-4722(24)-2147(1.0)]TJ 0 g 0 G 0 g 0 G @@ -22268,39 +14192,10 @@ endobj /Length 325 >> stream ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -33.797 -19.201 Td [(icon)32(txt)]TJ -======= ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.907 -19.201 Td [(vg)]TJ -0 g 0 G -/F8 9.9626 Tf 16.757 0 Td [(Data)-333(allo)-28(cation:)-444(e)-1(ac)28(h)-333(index)]TJ/F11 9.9626 Tf 123.565 0 Td [(i)]TJ/F14 9.9626 Tf 6.199 0 Td [(2)-278(f)]TJ/F8 9.9626 Tf 14.391 0 Td [(1)]TJ/F11 9.9626 Tf 6.641 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 8.303 0 Td [(is)-333(allo)-28(cated)-333(to)-334(pro)-27(c)-1(ess)]TJ/F11 9.9626 Tf 99.266 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051.)]TJ -294.958 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.201 Td [(\015ag)]TJ -0 g 0 G -/F8 9.9626 Tf 22.644 0 Td [(Sp)-28(eci\014es)-333(whether)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 121.932 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 13.617 0 Td [(are)-333(zero-)-334(or)-333(one-based.)]TJ -133.286 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 135.409 0 Td [(;)]TJ/F8 9.9626 Tf 4.428 0 Td [(1,)-333(default)-334(0.)]TJ -0 g 0 G -/F27 9.9626 Tf -164.744 -19.2 Td [(mg)]TJ -0 g 0 G -/F8 9.9626 Tf 20.258 0 Td [(the)-333(\050global\051)-334(n)28(um)28(b)-28(er)-333(of)-333(ro)27(ws)-333(of)-333(the)-334(pr)1(oblem)-1(.)]TJ 4.649 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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)-332(as:)-444(an)-333(in)28(teger)-333(v)56(alue.)-445(It)-332(is)-333(required)-332(if)]TJ/F30 9.9626 Tf 203.266 0 Td [(parts)]TJ/F8 9.9626 Tf 29.466 0 Td [(or)]TJ/F30 9.9626 Tf 12.197 0 Td [(repl)]TJ/F8 9.9626 Tf 24.235 0 Td [(is)-333(sp)-27(e)-1(ci\014)1(e)-1(d)1(,)]TJ -269.164 -11.955 Td [(it)-333(is)-334(optional)-333(if)]TJ/F30 9.9626 Tf 67.857 0 Td [(vg)]TJ/F8 9.9626 Tf 13.781 0 Td [(is)-333(sp)-28(eci\014ed.)]TJ -0 g 0 G -/F27 9.9626 Tf -106.545 -19.201 Td [(parts)]TJ -0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(the)-333(subroutine)-334(th)1(at)-334(de\014nes)-333(the)-334(p)1(artitioning)-334(sc)28(heme.)]TJ -5.702 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(subroutine.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.201 Td [(vl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(Data)-363(allo)-28(cation:)-504(the)-363(set)-364(of)-363(global)-363(indices)]TJ/F11 9.9626 Tf 182.789 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(\0501)-328(:)]TJ/F11 9.9626 Tf 18.151 0 Td [(nl)]TJ/F8 9.9626 Tf 9.148 0 Td [(\051)-363(b)-28(elonging)-363(to)-363(the)-364(calling)]TJ -207.747 -11.955 Td [(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ -0 g 0 G - 141.968 -29.888 Td [(69)]TJ -======= 0 g 0 G 1 0 0 1 104.053 292.444 cm q @@ -22318,77 +14213,11 @@ BT 0 g 0 G 0 g 0 G 77.502 -170.126 Td [(65)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1233 0 obj -<< -/Type /ObjStm -/N 100 -/First 986 -/Length 11861 ->> -stream -1231 0 272 59 1232 117 1228 176 1236 308 1234 447 1238 594 276 652 1235 709 1244 789 -1239 946 1240 1090 1241 1237 1246 1383 280 1442 1247 1500 1248 1559 1249 1618 1250 1677 1243 1736 -1254 1868 1258 2016 1259 2143 1260 2186 1261 2393 1262 2631 1263 2907 1242 3143 1252 3290 1256 3437 -1257 3495 1253 3554 1267 3702 1269 3820 1266 3879 1275 3960 1271 4117 1272 4261 1273 4408 1277 4555 -284 4613 1278 4670 1279 4729 1280 4787 1281 4845 1274 4903 1288 5048 1283 5205 1285 5352 1286 5497 -1290 5644 1291 5703 1292 5762 1293 5821 1287 5879 1296 6011 1298 6129 1295 6187 1300 6267 1303 6385 -1304 6512 1305 6555 1306 6762 1307 7000 1308 7276 1302 7512 1294 7571 1299 7630 1315 7726 1311 7883 -1312 8027 1313 8174 1317 8321 288 8379 1318 8436 1319 8495 1320 8553 1321 8611 1314 8669 1323 8826 -1325 8944 1322 9003 1329 9096 1326 9235 1331 9382 292 9440 1332 9497 1333 9556 1334 9614 1328 9672 -1339 9829 1327 9986 1336 10130 1337 10274 1341 10420 1338 10479 1343 10585 1345 10703 296 10761 300 10818 -% 1231 0 obj -<< -/D [1229 0 R /XYZ 149.705 753.953 null] ->> -% 272 0 obj -<< -/D [1229 0 R /XYZ 150.705 720.077 null] ->> -% 1232 0 obj -<< -/D [1229 0 R /XYZ 320.941 556.917 null] ->> -% 1228 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F30 784 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1236 0 obj -<< -/Type /Page -/Contents 1237 0 R -/Resources 1235 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R -/Annots [ 1234 0 R ] ->> -% 1234 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [299.536 657.464 306.51 668.312] -/A << /S /GoTo /D (section.6) >> ->> -% 1238 0 obj -<< -/D [1236 0 R /XYZ 98.895 753.953 null] ->> -% 276 0 obj -<< -/D [1236 0 R /XYZ 99.895 716.092 null] ->> -% 1235 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R >> -======= 1314 0 obj << /Type /XObject @@ -22399,267 +14228,11 @@ stream /PTEX.InfoDict 1333 0 R /BBox [0 0 516 439] /Resources << ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] /ExtGState << /R7 1334 0 R >>/Font << /R8 1335 0 R/R10 1336 0 R>> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1244 0 obj -<< -/Type /Page -/Contents 1245 0 R -/Resources 1243 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R -/Annots [ 1239 0 R 1240 0 R 1241 0 R ] ->> -% 1239 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [419.358 343.463 495.412 354.588] -/A << /S /GoTo /D (vdata) >> ->> -% 1240 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [376.221 331.785 388.176 342.633] -/A << /S /GoTo /D (table.17) >> ->> -% 1241 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 264.029 412.588 275.154] -/A << /S /GoTo /D (descdata) >> ->> -% 1246 0 obj -<< -/D [1244 0 R /XYZ 149.705 753.953 null] ->> -% 280 0 obj -<< -/D [1244 0 R /XYZ 150.705 720.077 null] ->> -% 1247 0 obj -<< -/D [1244 0 R /XYZ 320.941 514.036 null] ->> -% 1248 0 obj -<< -/D [1244 0 R /XYZ 150.705 482.745 null] ->> -% 1249 0 obj -<< -/D [1244 0 R /XYZ 150.705 484.682 null] ->> -% 1250 0 obj -<< -/D [1244 0 R /XYZ 150.705 472.727 null] ->> -% 1243 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1254 0 obj -<< -/Type /Page -/Contents 1255 0 R -/Resources 1253 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R -/Annots [ 1242 0 R 1252 0 R ] ->> -% 1258 0 obj -<< -/Producer (GPL Ghostscript 9.22) -/CreationDate (D:20180323100645Z00'00') -/ModDate (D:20180323100645Z00'00') ->> -% 1259 0 obj -<< -/Type /ExtGState -/OPM 1 ->> -% 1260 0 obj -<< -/BaseFont /XYUGDR+Times-Roman -/FontDescriptor 1262 0 R -/Type /Font -/FirstChar 48 -/LastChar 57 -/Widths [ 500 500 500 500 500 500 500 500 500 500] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1261 0 obj -<< -/BaseFont /XISTAL+Times-Bold -/FontDescriptor 1263 0 R -/Type /Font -/FirstChar 48 -/LastChar 80 -/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] -/Encoding /WinAnsiEncoding -/Subtype /Type1 ->> -% 1262 0 obj -<< -/Type /FontDescriptor -/FontName /XYUGDR+Times-Roman -/FontBBox [ 0 -14 476 688] -/Flags 65568 -/Ascent 688 -/CapHeight 688 -/Descent -14 -/ItalicAngle 0 -/StemV 71 -/MissingWidth 250 -/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) -/FontFile3 1264 0 R ->> -% 1263 0 obj -<< -/Type /FontDescriptor -/FontName /XISTAL+Times-Bold -/FontBBox [ 0 -13 600 688] -/Flags 65568 -/Ascent 688 -/CapHeight 676 -/Descent -13 -/ItalicAngle 0 -/StemV 90 -/MissingWidth 250 -/CharSet (/P/one/zero) -/FontFile3 1265 0 R ->> -% 1242 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [162.826 625.431 174.781 634.343] -/A << /S /GoTo /D (table.17) >> ->> -% 1252 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [407.097 278.167 414.071 290.786] -/A << /S /GoTo /D (figure.7) >> ->> -% 1256 0 obj -<< -/D [1254 0 R /XYZ 98.895 753.953 null] ->> -% 1257 0 obj -<< -/D [1254 0 R /XYZ 232.883 317.353 null] ->> -% 1253 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R /F30 784 0 R >> -/XObject << /Im3 1251 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1267 0 obj -<< -/Type /Page -/Contents 1268 0 R -/Resources 1266 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1222 0 R ->> -% 1269 0 obj -<< -/D [1267 0 R /XYZ 149.705 753.953 null] ->> -% 1266 0 obj -<< -/Font << /F46 1270 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1275 0 obj -<< -/Type /Page -/Contents 1276 0 R -/Resources 1274 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1282 0 R -/Annots [ 1271 0 R 1272 0 R 1273 0 R ] ->> -% 1271 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [368.549 343.981 444.603 355.106] -/A << /S /GoTo /D (vdata) >> ->> -% 1272 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [325.411 332.303 337.366 343.151] -/A << /S /GoTo /D (table.18) >> ->> -% 1273 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 264.991 361.779 276.116] -/A << /S /GoTo /D (descdata) >> ->> -% 1277 0 obj -<< -/D [1275 0 R /XYZ 98.895 753.953 null] ->> -% 284 0 obj -<< -/D [1275 0 R /XYZ 99.895 720.077 null] ->> -% 1278 0 obj -<< -/D [1275 0 R /XYZ 270.132 511.222 null] ->> -% 1279 0 obj -<< -/D [1275 0 R /XYZ 99.895 480.819 null] ->> -% 1280 0 obj -<< -/D [1275 0 R /XYZ 99.895 482.756 null] ->> -% 1281 0 obj -<< -/D [1275 0 R /XYZ 99.895 470.801 null] ->> -% 1274 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1288 0 obj -<< -/Type /Page -/Contents 1289 0 R -/Resources 1287 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1282 0 R -/Annots [ 1283 0 R 1285 0 R 1286 0 R ] ->> -% 1283 0 obj -======= /Length 3413 /Filter /FlateDecode >> @@ -23239,32 +14812,18 @@ stream /Annots [ 1254 0 R 1255 0 R 1256 0 R 1257 0 R 1258 0 R ] >> % 1254 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [253.818 555.748 265.774 566.597] -/A << /S /GoTo /D (table.18) >> ->> -% 1285 0 obj -======= /Rect [265.833 429.544 341.887 440.669] /A << /S /GoTo /D (vdata) >> >> % 1255 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [457.829 326.22 464.803 338.84] -/A << /S /GoTo /D (figure.8) >> ->> -% 1286 0 obj -======= /Rect [225.425 417.865 232.399 428.713] /A << /S /GoTo /D (table.2) >> >> @@ -23285,15 +14844,10 @@ stream /A << /S /GoTo /D (vdata) >> >> % 1258 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [357.569 302.697 364.543 313.546] -/A << /S /GoTo /D (figure.7) >> -======= /Rect [245.572 189.336 257.527 200.184] /A << /S /GoTo /D (table.16) >> >> @@ -23343,17 +14897,9 @@ stream << /Font << /F16 582 0 R /F8 585 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1274 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1288 0 R /XYZ 149.705 753.953 null] ->> -% 1291 0 obj -<< -/D [1288 0 R /XYZ 150.705 465.033 null] -======= /Type /Page /Contents 1275 0 R /Resources 1273 0 R @@ -23384,25 +14930,13 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [294.721 264.029 361.779 275.154] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1276 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1288 0 R /XYZ 150.705 431.215 null] -======= /D [1274 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 292 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1288 0 R /XYZ 150.705 387.38 null] ->> -% 1287 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R /F10 786 0 R /F30 784 0 R >> -======= /D [1274 0 R /XYZ 99.895 716.092 null] >> % 1277 0 obj @@ -23424,7 +14958,6 @@ stream % 1273 0 obj << /Font << /F16 582 0 R /F8 585 0 R /F11 796 0 R /F14 813 0 R /F27 584 0 R /F30 810 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1284 0 obj @@ -23433,9 +14966,6 @@ stream /Contents 1285 0 R /Resources 1283 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1282 0 R -======= /Parent 1249 0 R /Annots [ 1272 0 R 1282 0 R ] >> @@ -23444,13 +14974,9 @@ stream /Producer (GPL Ghostscript 9.22) /CreationDate (D:20180323100645Z00'00') /ModDate (D:20180323100645Z00'00') ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1289 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1296 0 R /XYZ 98.895 753.953 null] -======= /Type /ExtGState /OPM 1 >> @@ -23464,22 +14990,9 @@ stream /Widths [ 500 500 500 500 500 500 500 500 500 500] /Encoding /WinAnsiEncoding /Subtype /Type1 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1291 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F31 790 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1300 0 obj -<< -/Type /Page -/Contents 1301 0 R -/Resources 1299 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1282 0 R -======= /BaseFont /XISTAL+Times-Bold /FontDescriptor 1293 0 R /Type /Font @@ -23503,15 +15016,9 @@ stream /MissingWidth 250 /CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) /FontFile3 1294 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1293 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Producer (GPL Ghostscript 9.22) -/CreationDate (D:20180323100658Z00'00') -/ModDate (D:20180323100658Z00'00') -======= /Type /FontDescriptor /FontName /XISTAL+Times-Bold /FontBBox [ 0 -13 600 688] @@ -23524,7 +15031,6 @@ stream /MissingWidth 250 /CharSet (/P/one/zero) /FontFile3 1295 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1272 0 obj << @@ -23544,109 +15050,28 @@ stream >> % 1286 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /ExtGState -/OPM 1 -======= /D [1284 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1287 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/BaseFont /XYUGDR+Times-Roman -/FontDescriptor 1307 0 R -/Type /Font -/FirstChar 48 -/LastChar 57 -/Widths [ 500 500 500 500 500 500 500 500 500 500] -/Encoding /WinAnsiEncoding -/Subtype /Type1 -======= /D [1284 0 R /XYZ 283.692 317.353 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1283 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/BaseFont /XISTAL+Times-Bold -/FontDescriptor 1308 0 R -/Type /Font -/FirstChar 48 -/LastChar 80 -/Widths [ 500 500 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 611] -/Encoding /WinAnsiEncoding -/Subtype /Type1 -======= /Font << /F27 584 0 R /F8 585 0 R /F11 796 0 R /F16 582 0 R /F30 810 0 R >> /XObject << /Im3 1281 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1297 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /FontDescriptor -/FontName /XYUGDR+Times-Roman -/FontBBox [ 0 -14 476 688] -/Flags 65568 -/Ascent 688 -/CapHeight 688 -/Descent -14 -/ItalicAngle 0 -/StemV 71 -/MissingWidth 250 -/CharSet (/eight/five/four/nine/one/seven/six/three/two/zero) -/FontFile3 1309 0 R -======= /Type /Page /Contents 1298 0 R /Resources 1296 0 R /MediaBox [0 0 595.276 841.89] /Parent 1301 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1299 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /FontDescriptor -/FontName /XISTAL+Times-Bold -/FontBBox [ 0 -13 600 688] -/Flags 65568 -/Ascent 688 -/CapHeight 676 -/Descent -13 -/ItalicAngle 0 -/StemV 90 -/MissingWidth 250 -/CharSet (/P/one/zero) -/FontFile3 1310 0 R ->> -% 1302 0 obj -<< -/D [1300 0 R /XYZ 149.705 753.953 null] ->> -% 1294 0 obj -<< -/D [1300 0 R /XYZ 283.692 272.519 null] ->> -% 1299 0 obj -<< -/Font << /F8 573 0 R >> -/XObject << /Im4 1284 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1315 0 obj -<< -/Type /Page -/Contents 1316 0 R -/Resources 1314 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1282 0 R -/Annots [ 1311 0 R 1312 0 R 1313 0 R ] ->> -% 1311 0 obj -======= /D [1297 0 R /XYZ 98.895 753.953 null] >> % 1296 0 obj @@ -23664,31 +15089,10 @@ stream /Annots [ 1302 0 R 1303 0 R 1304 0 R ] >> % 1302 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [368.549 295.182 444.603 306.307] -/A << /S /GoTo /D (vdata) >> ->> -% 1312 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [205.998 285.441 217.953 294.352] -/A << /S /GoTo /D (table.19) >> ->> -% 1313 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 215.901 361.779 227.026] -/A << /S /GoTo /D (descdata) >> -======= /Rect [419.358 343.981 495.412 355.106] /A << /S /GoTo /D (vdata) >> >> @@ -23723,17 +15127,9 @@ stream % 1310 0 obj << /D [1306 0 R /XYZ 150.705 480.819 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1317 0 obj +% 1311 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1315 0 R /XYZ 98.895 753.953 null] ->> -% 288 0 obj -<< -/D [1315 0 R /XYZ 99.895 720.077 null] -======= /D [1306 0 R /XYZ 150.705 482.756 null] >> % 1312 0 obj @@ -23761,33 +15157,17 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [203.009 555.748 214.964 566.597] /A << /S /GoTo /D (table.18) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1318 0 obj +% 1315 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1315 0 R /XYZ 270.132 466.542 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [407.019 326.22 413.993 338.84] /A << /S /GoTo /D (figure.8) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1316 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1315 0 R /XYZ 99.895 435.558 null] ->> -% 1320 0 obj -<< -/D [1315 0 R /XYZ 99.895 435.558 null] ->> -% 1321 0 obj -<< -/D [1315 0 R /XYZ 99.895 423.603 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -23801,30 +15181,9 @@ stream % 1321 0 obj << /D [1318 0 R /XYZ 99.895 465.033 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1314 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1323 0 obj -<< -/Type /Page -/Contents 1324 0 R -/Resources 1322 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1282 0 R ->> -% 1325 0 obj -<< -/D [1323 0 R /XYZ 149.705 753.953 null] >> % 1322 0 obj << -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -======= /D [1318 0 R /XYZ 99.895 431.215 null] >> % 1323 0 obj @@ -23834,81 +15193,20 @@ stream % 1317 0 obj << /Font << /F27 584 0 R /F8 585 0 R /F11 796 0 R /F16 582 0 R /F10 812 0 R /F30 810 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1329 0 obj -<< -/Type /Page -/Contents 1330 0 R -/Resources 1328 0 R -/MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1335 0 R -/Annots [ 1326 0 R ] ->> % 1326 0 obj << -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 210.686 361.779 221.811] -/A << /S /GoTo /D (descdata) >> ->> -% 1331 0 obj -<< -/D [1329 0 R /XYZ 98.895 753.953 null] ->> -% 292 0 obj -<< -/D [1329 0 R /XYZ 99.895 720.077 null] -======= +/Type /Page +/Contents 1327 0 R +/Resources 1325 0 R +/MediaBox [0 0 595.276 841.89] /Parent 1301 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1332 0 obj -<< -/D [1329 0 R /XYZ 270.132 451.038 null] ->> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1333 0 obj -<< -/D [1329 0 R /XYZ 99.895 417.777 null] ->> -% 1334 0 obj -<< -/D [1329 0 R /XYZ 99.895 417.777 null] >> % 1328 0 obj << -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F10 786 0 R /F14 787 0 R /F7 785 0 R /F27 572 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] +/D [1326 0 R /XYZ 149.705 753.953 null] >> -% 1339 0 obj -<< -/Type /Page -/Contents 1340 0 R -/Resources 1338 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1335 0 R -/Annots [ 1327 0 R 1336 0 R 1337 0 R ] ->> -% 1327 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [336.331 643.143 412.385 654.268] -/A << /S /GoTo /D (vdata) >> ->> -% 1336 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [174.615 543.516 250.669 554.641] -/A << /S /GoTo /D (vdata) >> -======= % 1325 0 obj << /Font << /F31 816 0 R /F8 585 0 R >> @@ -23932,21 +15230,9 @@ stream << /Type /ExtGState /OPM 1 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1337 0 obj +% 1335 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [473.75 543.516 485.705 554.641] -/A << /S /GoTo /D (table.20) >> ->> -% 1341 0 obj -<< -/D [1339 0 R /XYZ 149.705 753.953 null] -======= /BaseFont /XYUGDR+Times-Roman /FontDescriptor 1337 0 R /Type /Font @@ -23996,34 +15282,9 @@ stream /MissingWidth 250 /CharSet (/P/one/zero) /FontFile3 1340 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1338 0 obj +% 1332 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1343 0 obj -<< -/Type /Page -/Contents 1344 0 R -/Resources 1342 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1335 0 R ->> -% 1345 0 obj -<< -/D [1343 0 R /XYZ 98.895 753.953 null] ->> -% 296 0 obj -<< -/D [1343 0 R /XYZ 99.895 716.092 null] ->> -% 300 0 obj -<< -/D [1343 0 R /XYZ 99.895 696.263 null] -======= /D [1330 0 R /XYZ 98.895 753.953 null] >> % 1324 0 obj @@ -24083,7 +15344,6 @@ endobj 1355 0 obj << /Length 1455 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -24111,158 +15371,14 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1350 0 obj -<< -/Length 6631 -======= 1362 0 obj << /Length 7813 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf 150.705 706.129 Td [(nl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Data)-223(allo)-28(cation)1(:)-390(in)-222(a)-223(generalized)-223(blo)-28(c)28(k-ro)28(w)-223(distribution)-223(the)-222(n)27(um)28(b)-28(er)-222(of)-223(indices)]TJ 10.377 -11.955 Td [(b)-28(elonging)-333(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Ma)28(y)-334(b)-28(e)-333(sp)-28(eci\014ed)-333(together)-333(with)]TJ/F30 9.9626 Tf 272.479 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -307.846 -20.135 Td [(repl)]TJ -0 g 0 G -/F8 9.9626 Tf 24.498 0 Td [(Data)-351(allo)-28(cation:)-480(build)-351(a)-351(replicated)-351(index)-351(space)-351(\050i.e.)-498(all)-351(pro)-28(cesses)-351(o)27(wn)-351(all)]TJ 0.408 -11.955 Td [(indices\051.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(the)-333(logical)-333(v)55(alue)]TJ/F30 9.9626 Tf 131.784 0 Td [(.true.)]TJ -0 g 0 G -/F27 9.9626 Tf -156.69 -20.135 Td [(globalc)32(hec)32(k)]TJ -0 g 0 G -/F8 9.9626 Tf 61.948 0 Td [(Data)-333(allo)-28(cation:)-444(do)-334(global)-333(c)28(hec)27(ks)-333(on)-333(the)-334(lo)-27(cal)-334(index)-333(lists)]TJ/F30 9.9626 Tf 250.201 0 Td [(vl)]TJ/F8 9.9626 Tf -287.243 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue,)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ -0 g 0 G -/F27 9.9626 Tf -187.962 -20.135 Td [(lidx)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Data)-353(allo)-28(cation:)-484(the)-353(set)-353(of)-353(lo)-28(cal)-353(indices)]TJ/F11 9.9626 Tf 176.171 0 Td [(l)-20(idx)]TJ/F8 9.9626 Tf 17.481 0 Td [(\0501)-311(:)]TJ/F11 9.9626 Tf 17.814 0 Td [(nl)]TJ/F8 9.9626 Tf 9.149 0 Td [(\051)-353(to)-353(b)-28(e)-353(assigned)-353(to)-353(the)]TJ -219.467 -11.955 Td [(global)-333(indices)]TJ/F11 9.9626 Tf 62.046 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(.)]TJ -70.401 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -22.127 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -20.135 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 376.512 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 376.313 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 328.692 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 328.492 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 328.692 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 328.492 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -20.135 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -22.128 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -20.082 Td [(1.)]TJ -0 g 0 G - [-500(One)-241(of)-241(the)-240(optional)-241(argumen)28(ts)]TJ/F30 9.9626 Tf 144.915 0 Td [(parts)]TJ/F8 9.9626 Tf 26.151 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 5.351 0 Td [(nl)]TJ/F8 9.9626 Tf 12.859 0 Td [(or)]TJ/F30 9.9626 Tf 11.283 0 Td [(repl)]TJ/F8 9.9626 Tf 23.321 0 Td [(m)28(ust)-241(b)-28(e)-241(sp)-27(eci\014ed,)]TJ -242.774 -11.956 Td [(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(initialization)-333(strategy)-334(as)-333(follo)28(ws:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -20.135 Td [(parts)]TJ -0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(In)-337(this)-338(case)-338(w)28(e)-337(ha)27(v)28(e)-337(a)-338(subroutine)-337(sp)-28(ecifying)-337(the)-338(mapping)-337(b)-28(et)28(w)28(ee)-1(n)]TJ -8.691 -11.955 Td [(global)-225(indices)-225(and)-225(pro)-28(cess/lo)-28(cal)-225(in)1(dex)-225(pairs.)-409(If)-225(this)-225(optional)-225(argu)1(m)-1(en)28(t)]TJ 0 -11.955 Td [(is)-316(sp)-28(eci\014ed,)-320(then)-316(it)-317(is)-316(mandatory)-316(to)-317(sp)-28(ecify)-316(the)-316(argumen)27(t)]TJ/F30 9.9626 Tf 251.563 0 Td [(mg)]TJ/F8 9.9626 Tf 13.612 0 Td [(as)-316(w)27(ell.)]TJ -265.175 -11.955 Td [(The)-333(subroutine)-334(m)28(ust)-333(conform)-333(to)-334(the)-333(follo)28(wing)-334(in)28(terface:)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 10.461 -18.09 Td [(interface)]TJ 15.691 -11.955 Td [(subroutine)-525(psb_parts\050glob_index,mg,np,pv,nv\051)]TJ -0 g 0 G -/F8 9.9626 Tf 93.898 -29.888 Td [(70)]TJ -0 g 0 G -ET - -endstream -endobj -1356 0 obj -<< -/Length 10081 >> stream 0 g 0 G 0 g 0 G BT -/F30 9.9626 Tf 183.332 706.129 Td [(integer,)-525(intent)-525(\050in\051)-1050(::)-525(glob_index,np,mg)]TJ 0 -11.955 Td [(integer,)-525(intent)-525(\050out\051)-525(::)-525(nv,)-525(pv\050*\051)]TJ -10.46 -11.955 Td [(end)-525(subroutine)-525(psb_parts)]TJ -15.691 -11.956 Td [(end)-525(interface)]TJ/F8 9.9626 Tf -10.461 -17.586 Td [(The)-333(input)-334(argu)1(m)-1(en)28(ts)-333(are:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -15.594 Td [(glob)]TJ -ET -q -1 0 0 1 168.412 637.283 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 171.849 637.083 Td [(index)]TJ -0 g 0 G -/F8 9.9626 Tf 32.191 0 Td [(The)-333(global)-334(index)-333(to)-333(b)-28(e)-333(mapp)-28(ed;)]TJ -0 g 0 G -/F27 9.9626 Tf -57.32 -13.774 Td [(np)]TJ -0 g 0 G -/F8 9.9626 Tf 17.711 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(pro)-28(cesses)-333(in)-334(the)-333(mapping;)]TJ -0 g 0 G -/F27 9.9626 Tf -17.711 -13.774 Td [(mg)]TJ -0 g 0 G -/F8 9.9626 Tf 20.257 0 Td [(The)-333(total)-334(n)28(um)28(b)-28(er)-333(of)-333(global)-334(ro)28(ws)-333(in)-334(the)-333(mapping;)]TJ -20.257 -15.594 Td [(The)-333(output)-334(argu)1(m)-1(en)28(ts)-333(are:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -15.594 Td [(n)32(v)]TJ -0 g 0 G -/F8 9.9626 Tf 17.075 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(en)28(tries)-334(in)]TJ/F30 9.9626 Tf 111.637 0 Td [(pv)]TJ/F8 9.9626 Tf 10.46 0 Td [(;)]TJ -0 g 0 G -/F27 9.9626 Tf -139.172 -13.774 Td [(p)32(v)]TJ -0 g 0 G -/F8 9.9626 Tf 17.075 0 Td [(A)-481(v)28(ector)-481(con)28(taining)-481(the)-481(ind)1(ice)-1(s)-480(of)-481(the)-481(pro)-28(cesses)-481(to)-481(whic)28(h)-481(the)]TJ 1.555 -11.955 Td [(global)-468(index)-468(should)-468(b)-28(e)-468(assigend;)-535(e)-1(ac)28(h)-468(en)28(try)-468(m)28(ust)-469(satisfy)-468(0)]TJ/F14 9.9626 Tf 270.508 0 Td [(\024)]TJ/F11 9.9626 Tf -270.508 -11.956 Td [(pv)]TJ/F8 9.9626 Tf 10.199 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 8.603 0 Td [(<)-475(np)]TJ/F8 9.9626 Tf 23.47 0 Td [(;)-510(if)]TJ/F11 9.9626 Tf 18.163 0 Td [(nv)-511(>)]TJ/F8 9.9626 Tf 28.373 0 Td [(1)-451(w)27(e)-451(ha)28(v)27(e)-451(an)-452(i)1(ndex)-452(assigned)-451(to)-452(m)28(ultiple)]TJ -96.115 -11.955 Td [(pro)-28(cesses,)-333(i.e.)-445(w)28(e)-333(ha)27(v)28(e)-333(an)-333(o)27(v)28(erlap)-333(among)-333(the)-334(sub)-28(domain)1(s)-1(.)]TJ -0 g 0 G -/F27 9.9626 Tf -40.548 -15.594 Td [(vg)]TJ -0 g 0 G -/F8 9.9626 Tf 16.757 0 Td [(In)-398(t)1(his)-398(case)-398(the)-397(asso)-28(ciation)-398(b)-27(e)-1(t)28(w)28(een)-398(an)-397(index)-398(and)-397(a)-398(pro)-27(ces)-1(s)-397(is)-398(sp)-27(e)-1(c-)]TJ 5.161 -11.955 Td [(i\014ed)-456(via)-456(an)-456(in)28(teger)-457(v)28(ector)]TJ/F30 9.9626 Tf 120.742 0 Td [(vg\0501:mg\051)]TJ/F8 9.9626 Tf 41.843 0 Td [(;)-517(e)-1(ac)28(h)-456(index)]TJ/F11 9.9626 Tf 59.63 0 Td [(i)]TJ/F14 9.9626 Tf 8.238 0 Td [(2)-482(f)]TJ/F8 9.9626 Tf 16.429 0 Td [(1)]TJ/F11 9.9626 Tf 6.642 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F14 9.9626 Tf 27.14 0 Td [(g)]TJ/F8 9.9626 Tf 9.525 0 Td [(is)]TJ -290.189 -11.955 Td [(assigned)-449(to)-449(pro)-28(cess)]TJ/F11 9.9626 Tf 89.776 0 Td [(v)-36(g)]TJ/F8 9.9626 Tf 10.296 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051.)-792(The)-449(v)28(ector)]TJ/F30 9.9626 Tf 67.232 0 Td [(vg)]TJ/F8 9.9626 Tf 14.935 0 Td [(m)28(ust)-449(b)-28(e)-449(iden)28(tical)-450(on)-449(all)]TJ -189.546 -11.955 Td [(calling)-452(pro)-28(cesses;)-513(i)1(ts)-453(en)28(tries)-453(ma)28(y)-453(ha)28(v)28(e)-453(t)1(he)-453(ranges)-453(\0500)]TJ/F11 9.9626 Tf 236.604 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 27.281 0 Td [(\000)]TJ/F8 9.9626 Tf 10.754 0 Td [(1\051)-453(or)]TJ -274.639 -11.955 Td [(\0501)]TJ/F11 9.9626 Tf 10.516 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F8 9.9626 Tf 24.276 0 Td [(\051)-347(according)-347(to)-347(the)-347(v)55(alu)1(e)-348(of)]TJ/F30 9.9626 Tf 119.292 0 Td [(flag)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)-486(The)-347(size)]TJ/F11 9.9626 Tf 47.231 0 Td [(mg)]TJ/F8 9.9626 Tf 17.314 0 Td [(ma)28(y)-347(b)-28(e)-347(sp)-28(ec-)]TJ -239.55 -11.955 Td [(i\014ed)-414(via)-414(the)-415(opti)1(onal)-415(argumen)28(t)]TJ/F30 9.9626 Tf 142.427 0 Td [(mg)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-455(the)-414(default)-414(is)-414(to)-414(use)-415(the)-414(en)28(tire)]TJ -152.888 -11.956 Td [(v)28(ector)]TJ/F30 9.9626 Tf 29.916 0 Td [(vg)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)-333(th)27(u)1(s)-334(ha)28(ving)]TJ/F30 9.9626 Tf 60.108 0 Td [(mg=size\050vg\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -179.936 -15.593 Td [(vl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(In)-356(this)-357(case)-356(w)28(e)-357(are)-356(sp)-28(ecifying)-356(the)-357(list)-356(of)-356(indices)]TJ/F30 9.9626 Tf 210.707 0 Td [(vl\0501:nl\051)]TJ/F8 9.9626 Tf 45.394 0 Td [(assigned)-356(to)]TJ -248.394 -11.955 Td [(the)-462(curren)28(t)-462(pro)-27(ces)-1(s;)-526(th)28(us,)-494(the)-461(global)-462(problem)-462(size)]TJ/F11 9.9626 Tf 229.323 0 Td [(mg)]TJ/F8 9.9626 Tf 18.457 0 Td [(is)-462(giv)28(en)-462(b)28(y)]TJ -247.78 -11.956 Td [(the)-405(range)-405(of)-404(the)-405(aggregate)-405(of)-405(the)-405(in)1(dividual)-405(v)28(ectors)]TJ/F30 9.9626 Tf 233.196 0 Td [(vl)]TJ/F8 9.9626 Tf 14.494 0 Td [(sp)-28(eci\014ed)-405(in)]TJ -247.69 -11.955 Td [(the)-481(calling)-481(p)1(ro)-28(cesses.)-887(The)-481(size)-481(ma)28(y)-481(b)-28(e)-481(sp)-27(eci\014ed)-481(via)-481(the)-481(optional)]TJ 0 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.85 0 Td [(nl)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)-373(the)-361(defaul)1(t)-361(is)-360(to)-360(use)-360(the)-360(en)28(tire)-361(v)28(ector)]TJ/F30 9.9626 Tf 173.727 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-367(th)28(us)-360(ha)28(ving)]TJ/F30 9.9626 Tf -239.499 -11.955 Td [(nl=size\050vl\051)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)-419(If)]TJ/F30 9.9626 Tf 16.132 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 96.699 0 Td [(the)-256(subroutine)-256(will)-256(c)27(h)1(e)-1(c)28(k)-256(ho)28(w)]TJ -170.365 -11.955 Td [(man)28(y)-255(times)-255(eac)28(h)-254(en)27(try)-254(in)-255(the)-254(global)-255(index)-254(s)-1(p)1(ac)-1(e)-254(\0501)]TJ/F11 9.9626 Tf 217.24 0 Td [(:)-167(:)-166(:)-167(mg)]TJ/F8 9.9626 Tf 27.14 0 Td [(\051)-255(is)-254(sp)-28(eci\014ed)]TJ -244.38 -11.955 Td [(in)-331(the)-331(input)-331(lists)]TJ/F30 9.9626 Tf 75.842 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-331(th)27(us)-331(all)1(o)27(wing)-331(for)-330(the)-331(prese)-1(n)1(c)-1(e)-330(of)-331(o)27(v)28(erlap)-331(in)-331(the)]TJ -86.303 -11.956 Td [(input,)-338(and)-337(c)28(hec)27(king)-337(for)-337(\134orphan")-337(indices.)-456(If)]TJ/F30 9.9626 Tf 194.743 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.376 0 Td [(,)]TJ -294.119 -11.955 Td [(the)-409(s)-1(u)1(broutine)-410(will)-409(not)-410(c)28(hec)28(k)-410(for)-409(o)28(v)27(erlap,)-428(and)-409(ma)27(y)-409(b)-28(e)-409(signi\014can)27(tly)]TJ 0 -11.955 Td [(faster,)-362(but)-357(the)-357(user)-356(is)-357(implicitly)-356(g)-1(u)1(aran)27(teeing)-356(that)-357(there)-357(ar)1(e)-357(neither)]TJ 0 -11.955 Td [(orphan)-333(nor)-333(o)27(v)28(erlap)-333(indices.)]TJ -0 g 0 G -/F27 9.9626 Tf -21.918 -15.594 Td [(lidx)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(The)-463(optional)-462(argumen)28(t)]TJ/F30 9.9626 Tf 107.67 0 Td [(lidx)]TJ/F8 9.9626 Tf 25.531 0 Td [(is)-463(a)28(v)56(ailable)-463(for)-462(those)-463(cases)-463(in)-463(whi)1(c)27(h)]TJ -135.041 -11.955 Td [(the)-446(user)-446(has)-446(already)-446(established)-446(a)-446(global-to-lo)-28(cal)-446(mapping;)-502(if)-446(it)-446(is)]TJ 0 -11.955 Td [(sp)-28(eci\014ed,)-373(eac)28(h)-365(index)-365(in)]TJ/F30 9.9626 Tf 105.175 0 Td [(vl\050i\051)]TJ/F8 9.9626 Tf 29.789 0 Td [(will)-365(b)-28(e)-365(mapp)-28(ed)-365(to)-365(the)-365(corresp)-27(onding)]TJ -134.964 -11.955 Td [(lo)-28(cal)-392(index)]TJ/F30 9.9626 Tf 51.539 0 Td [(lidx\050i\051)]TJ/F8 9.9626 Tf 36.613 0 Td [(.)-621(When)-392(sp)-28(ecifying)-392(the)-392(argumen)28(t)]TJ/F30 9.9626 Tf 148.368 0 Td [(lidx)]TJ/F8 9.9626 Tf 24.828 0 Td [(the)-392(user)]TJ -261.348 -11.956 Td [(w)28(ould)-420(also)-420(lik)28(ely)-419(e)-1(mpl)1(o)27(y)]TJ/F30 9.9626 Tf 113.086 0 Td [(lidx)]TJ/F8 9.9626 Tf 25.103 0 Td [(in)-420(calls)-419(to)]TJ/F30 9.9626 Tf 48.576 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf 51.254 0 Td [(and)]TJ/F30 9.9626 Tf 20.232 0 Td [(local)]TJ/F8 9.9626 Tf 30.333 0 Td [(in)]TJ -288.584 -11.955 Td [(calls)-333(to)]TJ/F30 9.9626 Tf 34.371 0 Td [(psb_spins)]TJ/F8 9.9626 Tf 50.394 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(psb_geins)]TJ/F8 9.9626 Tf 47.073 0 Td [(;)-333(see)-334(also)-333(sec.)]TJ -0 0 1 rg 0 0 1 RG - [-334(2.3.1)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -173.128 -15.593 Td [(nl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(If)-307(this)-308(argumen)28(t)-307(is)-308(sp)-28(eci\014ed)-307(alone)-308(\050i.)1(e)-1(.)-435(without)]TJ/F30 9.9626 Tf 206.41 0 Td [(vl)]TJ/F8 9.9626 Tf 10.461 0 Td [(\051)-307(the)-308(result)-307(is)-308(a)-307(gen-)]TJ -209.482 -11.956 Td [(eralized)-313(ro)27(w-blo)-27(c)27(k)-313(distribution)-313(in)-314(whic)28(h)-313(eac)27(h)-313(pro)-28(cess)]TJ/F11 9.9626 Tf 232.18 0 Td [(I)]TJ/F8 9.9626 Tf 8.284 0 Td [(gets)-313(as)-1(signed)]TJ -240.464 -11.955 Td [(a)-333(consecutiv)27(e)-333(c)28(h)28(unk)-334(of)]TJ/F11 9.9626 Tf 101.342 0 Td [(N)]TJ/F10 6.9738 Tf 8.005 -1.494 Td [(I)]TJ/F8 9.9626 Tf 7.338 1.494 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(nl)]TJ/F8 9.9626 Tf 12.47 0 Td [(global)-333(indices.)]TJ -0 g 0 G -/F27 9.9626 Tf -161.589 -15.593 Td [(repl)]TJ -0 g 0 G -/F8 9.9626 Tf 24.498 0 Td [(This)-239(argumen)28(ts)-240(sp)-27(e)-1(ci\014es)-239(to)-239(replicate)-239(all)-239(indices)-240(on)-239(all)-239(pro)-28(cesses.)-413(This)]TJ -2.58 -11.956 Td [(is)-312(a)-311(sp)-28(ecial)-312(purp)-27(ose)-312(data)-312(allo)-27(cation)-312(that)-311(is)-312(useful)-312(in)-311(the)-312(construction)]TJ 0 -11.955 Td [(of)-333(some)-334(m)28(ultilev)28(el)-334(p)1(rec)-1(on)1(ditioners.)]TJ -0 g 0 G - -34.648 -19.579 Td [(2.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(descriptor)-333(is)-333(in)-334(the)-333(build)-333(state.)]TJ -0 g 0 G - 154.698 -29.888 Td [(71)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(5.4)-1125(psb)]TJ ET q @@ -24464,72 +15580,28 @@ BT /F8 9.9626 Tf 25.93 0 Td [(The)-420(pro)-27(ce)-1(ss)-419(that)-420(holds)-419(the)-420(global)-420(cop)28(y)83(.)-703(If)]TJ/F11 9.9626 Tf 194.21 0 Td [(r)-28(oot)]TJ/F8 9.9626 Tf 22.228 0 Td [(=)]TJ/F14 9.9626 Tf 11.949 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-420(all)-419(the)-420(pro)-28(cesses)]TJ -237.16 -11.956 Td [(ha)28(v)28(e)-334(a)-333(cop)28(y)-334(of)-333(the)-333(global)-334(v)28(ector.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-344(as)-1(:)-467(an)-344(in)28(tege)-1(r)-344(v)55(ariabl)1(e)]TJ/F14 9.9626 Tf 142.757 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F14 9.9626 Tf 7.937 0 Td [(\024)]TJ/F11 9.9626 Tf 10.705 0 Td [(r)-28(oot)]TJ/F14 9.9626 Tf 20.983 0 Td [(\024)]TJ/F11 9.9626 Tf 10.704 0 Td [(np)]TJ/F14 9.9626 Tf 13.282 0 Td [(\000)]TJ/F8 9.9626 Tf 10.038 0 Td [(1,)-347(default)]TJ/F30 9.9626 Tf 44.809 0 Td [(psb_root_)]TJ/F8 9.9626 Tf 47.073 0 Td [(,)]TJ -316.037 -11.955 Td [(i.e.)-444(pro)-28(cess)-334(0.)]TJ 0 g 0 G 141.968 -29.888 Td [(68)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1361 0 obj -<< -/Length 2667 -======= 1371 0 obj << /Length 4181 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 162.881 706.129 Td [(3.)]TJ -0 g 0 G - [-500(Calling)-339(the)-339(routine)-339(with)]TJ/F30 9.9626 Tf 121.471 0 Td [(vg)]TJ/F8 9.9626 Tf 13.839 0 Td [(or)]TJ/F30 9.9626 Tf 12.262 0 Td [(parts)]TJ/F8 9.9626 Tf 29.53 0 Td [(implies)-339(that)-339(ev)28(e)-1(ry)-339(pro)-27(cess)-340(will)-339(scan)]TJ -164.372 -11.955 Td [(the)-333(en)27(tire)-333(index)-333(space)-334(to)-333(\014gure)-333(out)-334(t)1(he)-334(lo)-28(cal)-333(indices.)]TJ -0 g 0 G - -12.73 -19.926 Td [(4.)]TJ -0 g 0 G - [-500(Ov)28(erlapp)-28(ed)-333(indices)-334(are)-333(p)-28(ossible)-333(with)-333(b)-28(oth)]TJ/F30 9.9626 Tf 199.198 0 Td [(parts)]TJ/F8 9.9626 Tf 29.473 0 Td [(and)]TJ/F30 9.9626 Tf 19.372 0 Td [(vl)]TJ/F8 9.9626 Tf 13.781 0 Td [(in)28(v)28(o)-28(cations.)]TJ -0 g 0 G - -261.824 -19.925 Td [(5.)]TJ -0 g 0 G - [-500(When)-222(the)-222(subroutine)-223(i)1(s)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.611 0 Td [(vl)]TJ/F8 9.9626 Tf 12.674 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.96 0 Td [(globalcheck=.true.)]TJ/F8 9.9626 Tf 94.146 0 Td [(,)]TJ -349.661 -11.955 Td [(it)-368(will)-369(p)-28(erform)-368(a)-369(scan)-368(of)-368(the)-369(index)-368(space)-369(to)-368(searc)27(h)-368(for)-368(o)27(v)28(erlap)-368(or)-369(orph)1(an)]TJ 0 -11.955 Td [(indices.)]TJ -0 g 0 G - -12.73 -19.925 Td [(6.)]TJ -0 g 0 G - [-500(When)-222(the)-222(subroutine)-223(i)1(s)-223(in)28(v)28(ok)28(ed)-223(with)]TJ/F30 9.9626 Tf 170.611 0 Td [(vl)]TJ/F8 9.9626 Tf 12.674 0 Td [(in)-222(conjunction)-222(with)]TJ/F30 9.9626 Tf 84.96 0 Td [(globalcheck=.false.)]TJ/F8 9.9626 Tf 99.376 0 Td [(,)]TJ -354.891 -11.956 Td [(no)-405(index)-405(space)-405(scan)-405(will)-405(tak)28(e)-405(place.)-660(Th)28(us)-405(it)-405(is)-405(the)-405(resp)-28(onsibilit)28(y)-405(of)-405(the)]TJ 0 -11.955 Td [(user)-419(to)-418(mak)28(e)-419(sure)-418(that)-419(the)-418(indices)-419(sp)-28(eci\014ed)-418(in)]TJ/F30 9.9626 Tf 211.319 0 Td [(vl)]TJ/F8 9.9626 Tf 14.63 0 Td [(ha)28(v)28(e)-419(neither)-418(orphans)]TJ -225.949 -11.955 Td [(nor)-333(o)27(v)28(erlaps;)-333(if)-333(this)-334(assumption)-333(fails,)-333(results)-334(will)-333(b)-28(e)-333(unpredictable.)]TJ -0 g 0 G - -12.73 -19.925 Td [(7.)]TJ -0 g 0 G - [-500(Orphan)-313(and)-312(o)27(v)28(erlap)-312(indices)-313(are)-313(imp)-28(ossible)-313(b)28(y)-313(construction)-312(when)-313(the)-313(sub-)]TJ 12.73 -11.955 Td [(routine)-333(is)-334(in)28(v)28(ok)28(ed)-334(with)]TJ/F30 9.9626 Tf 103.308 0 Td [(nl)]TJ/F8 9.9626 Tf 13.781 0 Td [(\050alone\051,)-333(or)]TJ/F30 9.9626 Tf 48.734 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(.)]TJ -0 g 0 G - -34.316 -452.304 Td [(72)]TJ -======= /F27 9.9626 Tf 99.895 706.129 Td [(mold)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -11.956 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)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.26 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1371 0 obj -<< -/Length 7172 ->> -stream -0 g 0 G -0 g 0 G -======= q 1 0 0 1 339.381 658.507 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf BT /F30 9.9626 Tf 342.519 658.308 Td [(T)]TJ ET @@ -24538,69 +15610,6 @@ q []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 124.986 706.129 Td [(cdins)-375(|)-375(Comm)31(unication)-375(descriptor)-375(insert)-375(routine)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdins\050nz,)-525(ia,)-525(ja,)-525(desc_a,)-525(info)-525([,ila,jla]\051)]TJ 0 -11.956 Td [(call)-525(psb_cdins\050nz,ja,desc,info[,jla,mask,lidx]\051)]TJ/F8 9.9626 Tf 14.944 -20.465 Td [(This)-428(subroutine)-427(e)-1(x)1(am)-1(in)1(e)-1(s)-427(the)-428(edges)-428(of)-428(the)-427(graph)-428(asso)-28(ciated)-428(with)-428(the)-427(dis-)]TJ -14.944 -11.955 Td [(cretization)-481(mesh)-480(\050and)-481(isomorphic)-480(to)-481(the)-480(sparsit)27(y)-480(pattern)-481(of)-480(a)-481(linear)-480(system)]TJ 0 -11.955 Td [(co)-28(e\016cien)28(t)-359(matrix\051,)-366(storing)-359(them)-359(as)-359(neces)-1(sary)-359(in)28(to)-359(the)-359(comm)28(unication)-360(d)1(e)-1(scrip-)]TJ 0 -11.955 Td [(tor.)-506(In)-354(th)1(e)-354(\014rst)-354(form)-354(the)-354(edges)-353(are)-354(sp)-28(eci\014ed)-354(as)-354(pairs)-353(of)-354(indices)]TJ/F11 9.9626 Tf 278.053 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051;)-364(the)]TJ -319.606 -11.955 Td [(starting)-394(index)]TJ/F11 9.9626 Tf 65.223 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)-394(should)-394(b)-28(elong)-394(to)-394(the)-394(c)-1(u)1(rren)27(t)-394(pro)-28(cess.)-627(In)-394(the)-394(second)-394(form)]TJ -81.228 -11.955 Td [(only)-333(the)-334(remote)-333(indices)]TJ/F11 9.9626 Tf 104.968 0 Td [(j)-57(a)]TJ/F8 9.9626 Tf 9.939 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)-333(are)-334(sp)-27(ec)-1(i\014)1(e)-1(d)1(.)]TJ -0 g 0 G -/F27 9.9626 Tf -122.214 -20.465 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 -19.345 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.344 Td [(nz)]TJ -0 g 0 G -/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(p)-28(oin)28(ts)-333(b)-28(eing)-333(inserted.)]TJ 8.468 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.344 Td [(ia)]TJ -0 g 0 G -/F8 9.9626 Tf 13.734 0 Td [(the)-333(indices)-334(of)-333(the)-333(starting)-334(v)28(ertex)-333(of)-333(the)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 11.173 -11.956 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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -208.506 -19.344 Td [(ja)]TJ -0 g 0 G -/F8 9.9626 Tf 14.052 0 Td [(the)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-333(the)-334(edges)-333(b)-28(eing)-333(inserted.)]TJ 10.855 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -208.506 -19.344 Td [(mask)]TJ -0 g 0 G -/F8 9.9626 Tf 30.664 0 Td [(Mask)-330(en)28(tries)-329(in)]TJ/F30 9.9626 Tf 70.038 0 Td [(ja)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)-330(they)-330(are)-329(inserted)-330(only)-329(when)-329(the)-330(corresp)-28(onding)]TJ/F30 9.9626 Tf 211.627 0 Td [(mask)]TJ/F8 9.9626 Tf -297.883 -11.955 Td [(en)28(tries)-334(are)]TJ/F30 9.9626 Tf 48.54 0 Td [(.true.)]TJ/F8 9.9626 Tf -48.54 -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.956 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 [(.)]TJ -70.188 -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(logical)-333(arra)28(y)-334(of)-333(length)]TJ/F11 9.9626 Tf 165.048 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-333(default)]TJ/F30 9.9626 Tf 39.574 0 Td [(.true.)]TJ/F8 9.9626 Tf 31.382 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.962 -19.344 Td [(lidx)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(User)-333(de\014ned)-334(lo)-27(ca)-1(l)-333(indices)-333(for)]TJ/F30 9.9626 Tf 128.851 0 Td [(ja)]TJ/F8 9.9626 Tf 10.46 0 Td [(.)]TJ -138.162 -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 [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -208.506 -20.465 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.344 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 168.346 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 168.146 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(up)-28(dated)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 120.525 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 120.326 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 120.525 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 120.326 Td [(type)]TJ -======= /F30 9.9626 Tf 351.515 658.308 Td [(base)]TJ ET q @@ -24725,12 +15734,8 @@ q Q BT /F16 11.9552 Tf 206.431 682.315 Td [(cdall)-375(|)-375(Allo)-31(cates)-375(a)-375(comm)31(unication)-375(descriptor)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - -94.012 -29.888 Td [(73)]TJ -======= /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,parts=parts\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vg=vg,[mg=mg,flag=flag]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,vl=vl,[nl=nl,globalcheck=.false.,lidx=lidx]\051)]TJ 0 -11.955 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,nl=nl\051)]TJ 0 -11.956 Td [(call)-525(psb_cdall\050icontxt,)-525(desc_a,)-525(info,mg=mg,repl=.true.\051)]TJ/F8 9.9626 Tf 14.944 -20.107 Td [(This)-314(subroutine)-314(initializes)-315(th)1(e)-315(comm)28(unication)-314(descriptor)-314(ass)-1(o)-27(ciated)-315(with)-314(an)]TJ -14.944 -11.955 Td [(index)-326(space.)-442(One)-326(of)-326(the)-327(op)1(tional)-327(argu)1(m)-1(en)28(ts)]TJ/F30 9.9626 Tf 193.679 0 Td [(parts)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vg)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(vl)]TJ/F8 9.9626 Tf 10.46 0 Td [(,)]TJ/F30 9.9626 Tf 6.031 0 Td [(nl)]TJ/F8 9.9626 Tf 13.71 0 Td [(or)]TJ/F30 9.9626 Tf 12.133 0 Td [(repl)]TJ/F8 9.9626 Tf 24.17 0 Td [(m)28(ust)-326(b)-28(e)]TJ -308.858 -11.955 Td [(sp)-28(eci\014ed,)-333(thereb)28(y)-334(c)28(ho)-28(osing)-333(the)-333(sp)-28(eci\014c)-333(initialization)-334(strategy)84(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -18.477 Td [(On)-383(En)32(try)]TJ @@ -24765,58 +15770,18 @@ BT /F8 9.9626 Tf 14.211 0 Td [(Data)-363(allo)-28(cation:)-504(the)-363(set)-364(of)-363(global)-363(indices)]TJ/F11 9.9626 Tf 182.789 0 Td [(v)-36(l)]TJ/F8 9.9626 Tf 8.355 0 Td [(\0501)-328(:)]TJ/F11 9.9626 Tf 18.15 0 Td [(nl)]TJ/F8 9.9626 Tf 9.149 0 Td [(\051)-363(b)-28(elonging)-363(to)-363(the)-364(callin)1(g)]TJ -207.747 -11.955 Td [(pro)-28(cess.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.074 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ 0 g 0 G 141.967 -29.888 Td [(70)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1377 0 obj -<< -/Length 3163 -======= 1380 0 obj << /Length 6638 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -BT -/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(ila)]TJ -0 g 0 G -/F8 9.9626 Tf 16.915 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(s)-1(tar)1(ting)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.991 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -208.505 -19.925 Td [(jla)]TJ -0 g 0 G -/F8 9.9626 Tf 17.234 0 Td [(the)-333(lo)-28(cal)-333(indices)-334(of)-333(the)-333(end)-334(v)28(ertex)-333(of)-334(the)-333(edges)-333(b)-28(eing)-333(inserted.)]TJ 7.672 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(length)]TJ/F11 9.9626 Tf 172.548 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ/F16 11.9552 Tf -208.505 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-333(routine)-334(ma)28(y)-333(only)-333(b)-28(e)-334(called)-333(if)-333(the)-334(d)1(e)-1(scriptor)-333(is)-333(in)-333(the)-334(build)-333(state;)]TJ -0 g 0 G - 0 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(This)-305(rou)1(tine)-305(automatically)-305(i)1(gnores)-305(edges)-305(that)-304(do)-305(not)-304(insist)-305(on)-304(the)-305(curren)28(t)]TJ 12.73 -11.955 Td [(pro)-28(cess,)-285(i.)1(e)-1(.)-424(edges)-272(for)-273(whic)28(h)-272(neither)-273(the)-272(starting)-272(nor)-273(the)-272(end)-273(v)28(ertex)-272(b)-28(elong)]TJ 0 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess.)]TJ -0 g 0 G - -12.73 -19.926 Td [(3.)]TJ -0 g 0 G - [-500(The)-437(second)-438(form)-437(of)-437(this)-437(routine)-438(wil)1(l)-438(b)-27(e)-438(useful)-437(when)-437(dealing)-437(with)-438(user-)]TJ 12.73 -11.955 Td [(sp)-28(eci\014ed)-333(index)-333(mappings;)-334(see)-333(also)]TJ -0 0 1 rg 0 0 1 RG - [-334(2.3.1)]TJ -0 g 0 G - [(.)]TJ -0 g 0 G - 141.968 -314.819 Td [(74)]TJ -======= 0 g 0 G BT /F27 9.9626 Tf 99.895 706.129 Td [(nl)]TJ @@ -24883,7 +15848,6 @@ BT /F30 9.9626 Tf 10.461 -18.09 Td [(interface)]TJ 15.691 -11.955 Td [(subroutine)-525(psb_parts\050glob_index,mg,np,pv,nv\051)]TJ 0 g 0 G /F8 9.9626 Tf 93.898 -29.888 Td [(71)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET @@ -24891,35 +15855,11 @@ endstream endobj 1386 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Length 4740 -======= /Length 10049 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(cdasb)-375(|)-375(Comm)31(unication)-375(descriptor)-375(assem)31(bly)-375(routine)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdasb\050desc_a,)-525(info)-525([,)-525(mold]\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ -======= BT /F30 9.9626 Tf 234.142 706.129 Td [(integer,)-525(intent)-525(\050in\051)-1050(::)-525(glob_index,np,mg)]TJ 0 -11.955 Td [(integer,)-525(intent)-525(\050out\051)-525(::)-525(nv,)-525(pv\050*\051)]TJ -10.461 -11.955 Td [(end)-525(subroutine)-525(psb_parts)]TJ -15.691 -11.956 Td [(end)-525(interface)]TJ/F8 9.9626 Tf -10.461 -17.586 Td [(The)-333(input)-334(argumen)28(ts)-333(are:)]TJ 0 g 0 G @@ -24937,120 +15877,15 @@ BT /F27 9.9626 Tf -57.321 -13.774 Td [(np)]TJ 0 g 0 G /F8 9.9626 Tf 17.712 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(pro)-28(cesses)-333(in)-334(the)-333(mapping;)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -17.712 -13.774 Td [(mg)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ -======= /F8 9.9626 Tf 20.258 0 Td [(The)-333(total)-334(n)28(um)28(b)-28(er)-333(of)-333(global)-334(ro)28(ws)-333(in)-334(th)1(e)-334(mapping;)]TJ -20.258 -15.594 Td [(The)-333(output)-334(argumen)28(ts)-333(are:)]TJ 0 g 0 G /F27 9.9626 Tf 0 -15.594 Td [(n)32(v)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 17.075 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(en)28(tries)-334(in)]TJ/F30 9.9626 Tf 111.637 0 Td [(pv)]TJ/F8 9.9626 Tf 10.461 0 Td [(;)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.887 -19.925 Td [(mold)]TJ -0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(index)-334(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -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)-222(as:)-389(a)-222(ob)-56(ject)-222(of)-222(t)28(yp)-28(e)-222(deriv)28(ed)-223(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 219.87 0 Td [(psb)]TJ -ET -q -1 0 0 1 360.991 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 364.129 510.405 Td [(T)]TJ -ET -q -1 0 0 1 369.987 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 373.125 510.405 Td [(base)]TJ -ET -q -1 0 0 1 394.674 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 397.813 510.405 Td [(vect)]TJ -ET -q -1 0 0 1 419.361 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 422.5 510.405 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -343.526 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 468.761 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 468.561 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 420.94 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 420.741 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 420.94 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 420.741 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(descriptor)-333(is)-333(in)-334(the)-333(assem)28(bled)-334(state.)]TJ -0 g 0 G - 154.698 -220.714 Td [(75)]TJ -======= /F27 9.9626 Tf -139.173 -13.774 Td [(p)32(v)]TJ 0 g 0 G /F8 9.9626 Tf 17.075 0 Td [(A)-481(v)28(ector)-481(con)28(taining)-481(the)-481(indi)1(c)-1(es)-480(of)-481(the)-481(pro)-28(cesses)-481(to)-481(whic)28(h)-481(the)]TJ 1.555 -11.955 Td [(global)-468(index)-468(should)-468(b)-28(e)-468(assigend;)-536(eac)28(h)-468(en)28(try)-468(m)28(ust)-469(satisfy)-468(0)]TJ/F14 9.9626 Tf 270.508 0 Td [(\024)]TJ/F11 9.9626 Tf -270.508 -11.956 Td [(pv)]TJ/F8 9.9626 Tf 10.199 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 8.603 0 Td [(<)-475(np)]TJ/F8 9.9626 Tf 23.47 0 Td [(;)-511(i)1(f)]TJ/F11 9.9626 Tf 18.163 0 Td [(nv)-511(>)]TJ/F8 9.9626 Tf 28.373 0 Td [(1)-451(w)27(e)-451(ha)28(v)27(e)-451(an)-452(in)1(dex)-452(assigned)-451(to)-452(m)28(ultiple)]TJ -96.115 -11.955 Td [(pro)-28(cesses,)-333(i.e.)-445(w)28(e)-333(ha)27(v)28(e)-333(an)-333(o)27(v)28(erlap)-333(among)-334(t)1(he)-334(sub)-28(domains.)]TJ @@ -25119,89 +15954,19 @@ BT [-500(Orphan)-313(and)-312(o)27(v)28(erlap)-312(indices)-313(are)-313(imp)-28(ossible)-313(b)28(y)-313(construction)-312(when)-313(the)-313(sub-)]TJ 12.73 -11.955 Td [(routine)-333(is)-334(in)28(v)28(ok)28(ed)-334(with)]TJ/F30 9.9626 Tf 103.307 0 Td [(nl)]TJ/F8 9.9626 Tf 13.782 0 Td [(\050alone\051,)-333(or)]TJ/F30 9.9626 Tf 48.734 0 Td [(vg)]TJ/F8 9.9626 Tf 10.46 0 Td [(.)]TJ 0 g 0 G -34.315 -452.304 Td [(73)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1393 0 obj -<< -/Length 3278 -======= 1402 0 obj << /Length 7181 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(cdcp)31(y)-375(|)-375(Copies)-375(a)-375(comm)31(unication)-375(descriptor)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdcpy\050desc_in,)-525(desc_out,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 625.971 Td [(in)]TJ -0 g 0 G -/F8 9.9626 Tf 14.528 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -14.974 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 536.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 536.307 Td [(out)]TJ -0 g 0 G -/F8 9.9626 Tf 21.53 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(cop)28(y)83(.)]TJ -21.976 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.2)-1125(psb)]TJ ET q @@ -25254,33 +16019,10 @@ BT /F27 9.9626 Tf 176.057 168.146 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(up)-28(dated)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 488.686 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 488.487 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 488.686 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 488.487 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -330.303 Td [(76)]TJ -======= 1 0 0 1 362.845 120.525 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -25340,21 +16082,14 @@ BT [(.)]TJ 0 g 0 G 141.968 -314.819 Td [(75)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1398 0 obj -<< -/Length 2243 -======= 1416 0 obj << /Length 6223 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -25367,17 +16102,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 124.986 706.129 Td [(cdfree)-375(|)-375(F)94(rees)-375(a)-375(comm)31(unication)-375(descriptor)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_cdfree\050desc_a,)-525(info\051)]TJ -======= /F16 11.9552 Tf 206.431 706.129 Td [(cdasb)-250(|)-250(Comm)31(unication)-250(descriptor)-250(assem)31(bly)-250(rou-)]TJ -25.091 -13.948 Td [(tine)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -30.635 -18.389 Td [(call)-525(psb_cdasb\050desc_a,)-525(info)-525([,)-525(mold]\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -25386,18 +16114,6 @@ BT /F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(to)-333(b)-28(e)-334(freed.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 0 -19.926 Td [(desc)]TJ ET q @@ -25472,25 +16188,10 @@ BT /F27 9.9626 Tf 176.057 454.614 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ -======= 1 0 0 1 362.845 406.992 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -25503,15 +16204,10 @@ q Q BT /F30 9.9626 Tf 390.67 406.793 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -======= /F27 9.9626 Tf -260.887 -19.925 Td [(info)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ 0 g 0 G @@ -25519,25 +16215,15 @@ BT 0 g 0 G [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(descriptor)-333(is)-333(in)-334(the)-333(assem)28(bled)-334(state.)]TJ -12.176 -19.925 Td [(This)-350(call)-350(will)-349(set)-350(up)-350(all)-350(the)-349(neces)-1(sary)-349(information)-350(for)-350(the)-349(halo)-350(data)-350(exc)28(hanges.)]TJ 0 -11.955 Td [(In)-432(doing)-432(so,)-457(the)-432(library)-432(will)-432(need)-433(to)-432(iden)28(tify)-432(the)-432(set)-432(of)-432(pro)-28(cesses)-433(o)28(wning)-432(the)]TJ 0 -11.956 Td [(halo)-476(indices)-477(through)-476(the)-477(use)-476(of)-477(the)]TJ/F30 9.9626 Tf 164.817 0 Td [(desc%fnd_owner\050\051)]TJ/F8 9.9626 Tf 88.433 0 Td [(metho)-28(d;)-548(the)-476(o)28(wning)]TJ -253.25 -11.955 Td [(pro)-28(cesses)-365(are)-365(the)-365(top)-27(ological)-365(neigh)28(b)-28(ours)-365(of)-365(the)-365(calling)-365(p)1(ro)-28(cess.)-539(If)-365(the)-365(user)-365(has)]TJ 0 -11.955 Td [(some)-228(bac)28(kground)-228(information)-228(on)-228(the)-228(pro)-28(cesses)-228(that)-228(are)-228(neigh)28(b)-28(ours)-228(of)-228(the)-228(curren)28(t)]TJ 0 -11.955 Td [(one,)-533(it)-494(i)1(s)-494(p)-28(ossible)-493(to)-493(sp)-28(ecify)-493(explicitly)-493(the)-494(list)-493(of)-493(adjacen)27(t)-493(pro)-27(c)-1(esses)-493(with)-493(a)]TJ 0 -11.955 Td [(call)-393(to)]TJ/F30 9.9626 Tf 31.633 0 Td [(desc%set_p_adjcncy\050list\051)]TJ/F8 9.9626 Tf 125.528 0 Td [(;)-423(this)-393(will)-393(sp)-28(eed)-393(up)-393(the)-393(subsequen)27(t)-393(call)-393(to)]TJ/F30 9.9626 Tf -157.161 -11.956 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 47.073 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 141.968 -398.049 Td [(77)]TJ -======= 119.801 -103.154 Td [(76)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1404 0 obj -<< -/Length 5916 -======= 1423 0 obj << /Length 3287 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -25550,41 +16236,15 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(cdbldext)-282(|)-283(Build)-282(an)-282(extended)-283(comm)31(unication)-282(descrip-)]TJ -25.091 -13.948 Td [(tor)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -19.114 Td [(call)-525(psb_cdbldext\050a,desc_a,nl,desc_out,)-525(info,)-525(extype\051)]TJ/F8 9.9626 Tf 14.944 -23.476 Td [(This)-298(subroutin)1(e)-298(builds)-298(an)-297(extended)-298(comm)28(unication)-298(descriptor,)-305(based)-297(on)-298(the)]TJ -14.944 -11.955 Td [(input)-389(descriptor)]TJ/F30 9.9626 Tf 74.287 0 Td [(desc_a)]TJ/F8 9.9626 Tf 35.261 0 Td [(and)-389(on)-390(the)-389(stencil)-390(sp)-27(eci\014ed)-390(through)-389(the)-389(input)-390(sparse)]TJ -109.548 -11.956 Td [(matrix)]TJ/F30 9.9626 Tf 32.406 0 Td [(a)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ -======= /F16 11.9552 Tf 155.621 706.129 Td [(cdcp)31(y)-375(|)-375(Copies)-375(a)-375(comm)31(unication)-375(descriptor)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_cdcpy\050desc_in,)-525(desc_out,)-525(info\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -37.637 -21.094 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -21.918 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 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -33.797 -21.483 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -21.484 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 101.176 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -109.893 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(t)27(yp)-27(e.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.484 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 504.47 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 504.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G @@ -25598,49 +16258,10 @@ BT /F27 9.9626 Tf 125.247 625.971 Td [(in)]TJ 0 g 0 G /F8 9.9626 Tf 14.529 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -14.974 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 456.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 456.45 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 456.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 456.45 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -21.484 Td [(nl)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(additional)-333(la)28(y)27(ers)-333(desired.)]TJ 10.377 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)]TJ/F11 9.9626 Tf 130.428 0 Td [(nl)]TJ/F14 9.9626 Tf 11.916 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(0.)]TJ -0 g 0 G -/F27 9.9626 Tf -177.766 -21.483 Td [(ext)32(yp)-32(e)]TJ -0 g 0 G -/F8 9.9626 Tf 38.397 0 Td [(the)-333(kind)-334(of)-333(estension)-333(required.)]TJ -13.491 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.708 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 44.396 0 Td [(.)]TJ -69.58 -11.956 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)-419(as:)-616(an)-420(in)28(teger)-419(v)55(alue)]TJ/F30 9.9626 Tf 135.566 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 7.159 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-441(default:)]TJ/F30 9.9626 Tf -278.714 -11.955 Td [(psb_ovt_xhal_)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -23.476 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -21.484 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 261.126 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 260.927 Td [(out)]TJ -0 g 0 G -/F8 9.9626 Tf 21.53 0 Td [(the)-333(extended)-334(comm)28(unication)-333(descriptor.)]TJ -21.976 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 1 0 0 1 312.036 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -25669,33 +16290,10 @@ BT /F27 9.9626 Tf 125.247 536.307 Td [(out)]TJ 0 g 0 G /F8 9.9626 Tf 21.53 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(cop)28(y)83(.)]TJ -21.975 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 213.305 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 213.106 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 213.305 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 213.106 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.484 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -23.476 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 166.874 -29.888 Td [(78)]TJ -======= 1 0 0 1 312.036 488.686 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -25716,62 +16314,19 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G 141.968 -330.303 Td [(77)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1408 0 obj -<< -/Length 1591 -======= 1428 0 obj << /Length 2253 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ -0 g 0 G - [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.091 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 70.801 0 Td [(for)-282(the)]TJ/F30 9.9626 Tf 31.377 0 Td [(extype)]TJ/F8 9.9626 Tf 34.188 0 Td [(argumen)28(t)-282(the)-282(user)-281(will)-282(obtain)-281(a)]TJ -183.727 -11.955 Td [(descriptor)-258(f)1(o)-1(r)-257(a)-258(domain)-257(partition)-258(in)-257(whic)28(h)-258(the)-257(additional)-258(la)28(y)28(ers)-258(are)-257(fetc)27(hed)]TJ 0 -11.955 Td [(as)-415(part)-415(of)-415(an)-415(\050extended\051)-415(halo;)-456(ho)28(w)27(ev)28(er)-415(the)-415(index-to-pro)-28(cess)-415(mapping)-415(is)]TJ 0 -11.956 Td [(iden)28(tical)-334(t)1(o)-334(that)-333(of)-333(the)-334(base)-333(descriptor;)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.957 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 71.666 0 Td [(for)-368(the)]TJ/F30 9.9626 Tf 33.107 0 Td [(extype)]TJ/F8 9.9626 Tf 35.054 0 Td [(argumen)28(t)-369(the)-368(user)-369(will)-368(obtain)]TJ -188.054 -11.955 Td [(a)-458(descriptor)-459(with)-458(an)-458(o)28(v)27(erlapp)-27(ed)-459(decomp)-27(os)-1(iti)1(on:)-695(the)-458(additional)-458(la)27(y)28(er)-458(is)]TJ 0 -11.955 Td [(aggregated)-413(to)-413(the)-413(lo)-28(cal)-413(sub)-28(domain)-413(\050and)-413(th)28(us)-414(is)-413(an)-413(o)28(v)28(erlap\051,)-433(and)-413(a)-414(new)]TJ 0 -11.955 Td [(halo)-333(extending)-334(b)-27(ey)27(on)1(d)-334(the)-333(last)-333(additional)-334(la)28(y)28(er)-333(is)-334(formed.)]TJ -0 g 0 G - 141.968 -524.035 Td [(79)]TJ -0 g 0 G -ET - -endstream -endobj -1417 0 obj -<< -/Length 4890 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(spall)-375(|)-375(Allo)-31(cates)-375(a)-375(sparse)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.5)-1125(psb)]TJ ET q @@ -25783,7 +16338,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_cdfree\050desc_a,)-525(info\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -25801,11 +16355,7 @@ Q BT /F27 9.9626 Tf 176.057 625.971 Td [(a)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= /F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor)-333(to)-334(b)-27(e)-334(freed.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET @@ -25825,54 +16375,6 @@ BT 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.887 -19.925 Td [(nnz)]TJ -0 g 0 G -/F8 9.9626 Tf 22.803 0 Td [(An)-309(estimate)-309(of)-308(the)-309(n)28(um)27(b)-27(er)-309(of)-309(nonzero)-28(es)-308(in)-309(the)-309(lo)-28(cal)-308(part)-309(of)-309(the)-309(assem)28(bled)]TJ 2.103 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(allo)-28(cated.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 408.786 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 408.786 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-334(i)1(s)-334(in)-333(the)-333(build)-334(state.)]TJ -0 g 0 G - 0 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(The)-333(descriptor)-334(ma)28(y)-333(b)-28(e)-333(in)-334(either)-333(the)-333(build)-333(or)-334(assem)28(bled)-333(s)-1(tat)1(e)-1(.)]TJ -0 g 0 G - 0 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(Pro)28(viding)-307(a)-308(go)-27(o)-28(d)-307(e)-1(stimate)-307(for)-307(the)-307(n)27(um)28(b)-28(er)-307(of)-307(nonzero)-28(es)]TJ/F11 9.9626 Tf 254.288 0 Td [(nnz)]TJ/F8 9.9626 Tf 20.093 0 Td [(in)-307(the)-308(assem-)]TJ -261.651 -11.955 Td [(bled)-402(matrix)-401(ma)28(y)-402(substan)28(tially)-401(impro)27(v)28(e)-401(p)-28(erformance)-402(in)-401(the)-402(matrix)-401(build)]TJ 0 -11.955 Td [(phase,)-458(as)-433(it)-432(will)-433(reduce)-433(or)-433(eliminate)-433(the)-433(need)-432(for)-433(\050p)-28(oten)28(tially)-433(m)28(ultiple\051)]TJ 0 -11.956 Td [(data)-333(reallo)-28(cations.)]TJ -0 g 0 G - 141.968 -133.042 Td [(80)]TJ -======= /F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G @@ -25881,45 +16383,19 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G 141.968 -398.049 Td [(78)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1425 0 obj -<< -/Length 5704 -======= 1434 0 obj << /Length 5932 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(spins)-321(|)-322(Insert)-321(a)-321(set)-321(of)-322(co)-31(e\016cien)31(ts)-321(in)31(to)-321(a)-321(sparse)-321(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -19.775 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.955 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 -/F27 9.9626 Tf 0 -24.151 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 -22.903 Td [(On)-383(En)32(try)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.6)-1125(psb)]TJ ET q @@ -25929,65 +16405,9 @@ Q BT /F16 11.9552 Tf 155.621 706.129 Td [(cdbldext)-597(|)-597(Build)-597(an)-598(extended)-597(comm)31(unication)]TJ -25.091 -13.948 Td [(descriptor)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F30 9.9626 Tf -30.635 -19.114 Td [(call)-525(psb_cdbldext\050a,desc_a,nl,desc_out,)-525(info,)-525(extype\051)]TJ/F8 9.9626 Tf 14.944 -23.476 Td [(This)-298(subroutine)-297(builds)-298(an)-297(extended)-298(comm)28(unication)-298(descriptor,)-305(based)-297(on)-298(the)]TJ -14.944 -11.955 Td [(input)-389(descriptor)]TJ/F30 9.9626 Tf 74.288 0 Td [(desc_a)]TJ/F8 9.9626 Tf 35.261 0 Td [(and)-389(on)-390(the)-389(stencil)-389(s)-1(p)-27(eci\014ed)-390(through)-389(the)-389(input)-390(sparse)]TJ -109.549 -11.956 Td [(matrix)]TJ/F30 9.9626 Tf 32.407 0 Td [(a)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -22.903 Td [(nz)]TJ -0 g 0 G -/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.468 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(scalar.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.903 Td [(nr)]TJ -0 g 0 G -/F8 9.9626 Tf 16.065 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(ro)28(ws)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.842 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(an)-333(in)28(teger)-333(scalar.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.903 Td [(irw)]TJ -0 g 0 G -/F8 9.9626 Tf 21.157 0 Td [(the)-333(\014rst)-334(ro)28(w)-333(to)-334(b)-27(e)-334(inserted.)]TJ 3.75 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(scalar.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.903 Td [(ia)]TJ -0 g 0 G -/F8 9.9626 Tf 13.734 0 Td [(the)-333(ro)28(w)-334(indices)-333(of)-333(the)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -196.938 -22.903 Td [(irp)]TJ -0 g 0 G -/F8 9.9626 Tf 19.248 0 Td [(the)-333(ro)28(w)-334(p)-28(oin)28(ters)-333(of)-333(the)-334(co)-28(e\016cien)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 5.659 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nr)]TJ/F8 9.9626 Tf 12.965 0 Td [(+)-222(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -198.852 -22.903 Td [(ja)]TJ -0 g 0 G -/F8 9.9626 Tf 14.052 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(co)-27(e\016)-1(cien)28(ts)-333(to)-333(b)-28(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)-333(of)-333(size)]TJ/F11 9.9626 Tf 160.98 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -196.938 -22.903 Td [(v)64(al)]TJ -0 g 0 G -/F8 9.9626 Tf 19.144 0 Td [(the)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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)-375(as:)-528(an)-375(arra)28(y)-375(of)-375(size)]TJ/F11 9.9626 Tf 130.933 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(.)-570(Must)-375(b)-28(e)-375(of)-375(the)-375(same)-375(t)28(yp)-28(e)-375(and)-375(kind)-375(of)]TJ -141.984 -11.956 Td [(the)-333(co)-28(e\016cien)28(ts)-334(of)-333(the)-333(s)-1(p)1(ars)-1(e)-333(matrix)]TJ/F11 9.9626 Tf 158.517 0 Td [(a)]TJ/F8 9.9626 Tf 5.266 0 Td [(.)]TJ -0 g 0 G - -21.815 -29.887 Td [(81)]TJ -0 g 0 G -ET - -endstream -endobj -1431 0 obj -<< -/Length 7364 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 150.705 706.129 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 706.129 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ -======= /F27 9.9626 Tf -37.637 -21.094 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ @@ -26009,33 +16429,10 @@ BT /F27 9.9626 Tf 125.247 504.27 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 329.276 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 332.415 658.308 Td [(desc)]TJ -ET -q -1 0 0 1 353.964 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 357.102 658.308 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -227.318 -31.349 Td [(lo)-32(cal)]TJ -0 g 0 G -/F8 9.9626 Tf 28.054 0 Td [(Whether)-465(the)-464(en)27(tries)-464(in)-465(the)-465(ind)1(ic)-1(es)-464(v)28(e)-1(ctors)]TJ/F30 9.9626 Tf 194.825 0 Td [(ia)]TJ/F8 9.9626 Tf 10.461 0 Td [(,)]TJ/F30 9.9626 Tf 7.724 0 Td [(ja)]TJ/F8 9.9626 Tf 15.09 0 Td [(are)-465(already)-464(in)-465(lo)-28(cal)]TJ -231.248 -11.955 Td [(n)28(um)28(b)-28(ering.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -224.574 -20.589 Td [(On)-383(Return)]TJ -======= 1 0 0 1 312.036 456.649 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -26058,88 +16455,9 @@ BT /F27 9.9626 Tf -177.767 -21.483 Td [(ext)32(yp)-32(e)]TJ 0 g 0 G /F8 9.9626 Tf 38.398 0 Td [(the)-333(kind)-334(of)-333(estension)-333(required.)]TJ -13.491 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 44.396 0 Td [(.)]TJ -69.579 -11.956 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)-419(as:)-616(an)-420(in)28(teger)-419(v)55(alue)]TJ/F30 9.9626 Tf 135.566 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf 7.159 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)-441(default:)]TJ/F30 9.9626 Tf -278.714 -11.955 Td [(psb_ovt_xhal_)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -23.476 Td [(On)-383(Return)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.394 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(matrix)-334(in)28(to)-333(whic)28(h)-334(co)-28(e\016cien)28(ts)-333(will)-334(b)-27(e)-334(inserted.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 491.534 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 491.334 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 491.534 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 491.334 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.394 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 472.14 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 471.94 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ -ET -q -1 0 0 1 329.276 424.319 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 332.415 424.12 Td [(desc)]TJ -ET -q -1 0 0 1 353.964 424.319 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 357.102 424.12 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -227.318 -31.349 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -20.59 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -18.862 Td [(1.)]TJ -0 g 0 G - [-500(On)-487(en)28(try)-487(to)-488(this)-487(routine)-487(the)-487(descriptor)-487(ma)28(y)-488(b)-27(e)-488(in)-487(either)-487(the)-487(build)-487(or)]TJ 12.73 -11.955 Td [(assem)28(bled)-334(state.)]TJ -0 g 0 G - -12.73 -19.394 Td [(2.)]TJ -0 g 0 G - [-500(On)-363(en)28(try)-363(to)-362(this)-363(routine)-362(the)-363(sparse)-363(matrix)-363(ma)28(y)-363(b)-27(e)-363(in)-363(either)-362(the)-363(build)-363(or)]TJ 12.73 -11.955 Td [(up)-28(date)-333(state.)]TJ -0 g 0 G - -12.73 -19.394 Td [(3.)]TJ -0 g 0 G - [-500(If)-230(the)-231(descriptor)-230(is)-231(in)-230(the)-231(build)-230(state,)-251(then)-231(the)-230(sparse)-231(matrix)-230(m)28(ust)-231(also)-230(b)-28(e)-231(in)]TJ 12.73 -11.955 Td [(the)-327(build)-327(state;)-329(the)-328(action)-327(of)-327(the)-327(routine)-327(is)-327(to)-327(\050implicitly\051)-327(call)]TJ/F30 9.9626 Tf 271.732 0 Td [(psb_cdins)]TJ/F8 9.9626 Tf -271.732 -11.956 Td [(to)-419(add)-419(en)28(tries)-419(to)-419(the)-418(sparsit)27(y)-418(pattern;)-462(eac)28(h)-419(sparse)-419(matrix)-419(en)28(try)-419(implic-)]TJ 0 -11.955 Td [(itly)-360(d)1(e)-1(\014)1(nes)-360(a)-360(graph)-359(edge,)-366(that)-360(is)-359(passed)-360(to)-359(the)-360(descriptor)-359(routine)-360(for)-359(the)]TJ 0 -11.955 Td [(appropriate)-333(pro)-28(cessing;)]TJ -0 g 0 G - -12.73 -19.394 Td [(4.)]TJ -0 g 0 G - [-500(The)-333(input)-334(data)-333(can)-333(b)-28(e)-333(passed)-334(in)-333(either)-333(COO)-334(or)-333(CSR)-333(formats;)]TJ -0 g 0 G - 0 -19.394 Td [(5.)]TJ -0 g 0 G - [-500(In)-368(COO)-367(format)-368(the)-367(co)-28(e\016cien)28(ts)-368(to)-368(b)-27(e)-368(inserted)-368(are)-367(represen)28(te)-1(d)-367(b)28(y)-368(the)-367(or-)]TJ 12.73 -11.955 Td [(dered)-358(triples)]TJ/F11 9.9626 Tf 58.163 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051,)-364(for)]TJ/F11 9.9626 Tf 25.762 0 Td [(i)]TJ/F8 9.9626 Tf 6.607 0 Td [(=)-319(1)]TJ/F11 9.9626 Tf 15.906 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(nz)]TJ/F8 9.9626 Tf 33.19 0 Td [(;)-370(these)-358(triples)-358(should)-358(b)-28(e-)]TJ -210.411 -11.955 Td [(long)-384(to)-385(the)-384(curren)27(t)-384(pro)-28(cess,)-397(i.e.)]TJ/F11 9.9626 Tf 144.426 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-384(s)-1(h)1(ould)-385(b)-28(e)-384(one)-385(of)-384(the)-384(lo)-28(cal)-385(indices,)]TJ -160.431 -11.955 Td [(but)-333(are)-334(otherwise)-333(arbitrary;)]TJ -0 g 0 G - 141.968 -29.888 Td [(82)]TJ -======= 0 g 0 G 0 -21.484 Td [(desc)]TJ ET @@ -26175,54 +16493,20 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -23.476 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 166.875 -29.888 Td [(79)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1440 0 obj -<< -/Length 3795 -======= 1439 0 obj << /Length 1587 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 112.072 706.129 Td [(6.)]TJ -0 g 0 G - [-500(In)-497(CS)1(R)-497(format)-496(the)-497(co)-28(e\016cien)28(ts)-497(to)-496(b)-28(e)-497(inserted)-496(for)-497(eac)28(h)-496(input)-497(ro)28(w)]TJ/F11 9.9626 Tf 314.876 0 Td [(i)]TJ/F8 9.9626 Tf 8.91 0 Td [(=)]TJ -311.056 -11.955 Td [(1)]TJ/F11 9.9626 Tf 4.981 0 Td [(;)-167(nr)]TJ/F8 9.9626 Tf 18.296 0 Td [(are)-313(represen)28(ted)-313(b)28(y)-313(the)-313(ordered)-313(triples)-313(\050)]TJ/F11 9.9626 Tf 169.802 0 Td [(i)]TJ/F8 9.9626 Tf 5.238 0 Td [(+)]TJ/F11 9.9626 Tf 9.555 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 17.41 0 Td [(\000)]TJ/F8 9.9626 Tf 9.555 0 Td [(1\051)]TJ/F11 9.9626 Tf 8.855 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(j)]TJ/F8 9.9626 Tf 4.672 0 Td [(\051,)-317(for)]TJ/F11 9.9626 Tf -297.077 -11.955 Td [(j)]TJ/F8 9.9626 Tf 8.598 0 Td [(=)]TJ/F11 9.9626 Tf 11.674 0 Td [(ir)-28(p)]TJ/F8 9.9626 Tf 13.217 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(ir)-28(p)]TJ/F8 9.9626 Tf 35.355 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 6.11 0 Td [(+)-269(1\051)]TJ/F14 9.9626 Tf 21.958 0 Td [(\000)]TJ/F8 9.9626 Tf 10.426 0 Td [(1;)-438(these)-403(triples)-403(should)-403(b)-28(elong)-403(to)-403(the)-403(curren)28(t)]TJ -122.393 -11.956 Td [(pro)-28(cess,)-272(i.e.)]TJ/F11 9.9626 Tf 53.793 0 Td [(i)]TJ/F8 9.9626 Tf 4.124 0 Td [(+)]TJ/F11 9.9626 Tf 8.44 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 16.295 0 Td [(\000)]TJ/F8 9.9626 Tf 8.44 0 Td [(1)-257(should)-257(b)-27(e)-257(one)-257(of)-257(the)-257(lo)-28(cal)-257(indices,)-272(but)-257(are)-257(otherwise)]TJ -91.092 -11.955 Td [(arbitrary;)]TJ -0 g 0 G - -12.73 -19.925 Td [(7.)]TJ -0 g 0 G - [-500(There)-386(is)-385(no)-386(requiremen)28(t)-386(that)-386(a)-385(giv)28(en)-386(ro)28(w)-386(m)28(ust)-386(b)-28(e)-385(passe)-1(d)-385(in)-386(its)-385(e)-1(n)28(tiret)28(y)]TJ 12.73 -11.955 Td [(to)-355(a)-354(single)-355(call)-354(to)-355(this)-354(routine:)-487(the)-355(buildup)-354(of)-355(a)-354(ro)28(w)-355(ma)28(y)-355(b)-28(e)-354(split)-355(in)28(to)-354(as)]TJ 0 -11.955 Td [(man)28(y)-334(calls)-333(as)-333(desired)-334(\050ev)28(en)-333(in)-333(the)-334(CSR)-333(format\051;)]TJ -0 g 0 G - -12.73 -19.926 Td [(8.)]TJ -0 g 0 G - [-500(Co)-28(e\016cien)28(ts)-409(from)-410(di\013eren)28(t)-409(ro)28(ws)-410(ma)28(y)-409(also)-409(b)-28(e)-409(mixed)-410(up)-409(freely)-409(in)-409(a)-410(single)]TJ 12.73 -11.955 Td [(call,)-333(according)-334(to)-333(the)-333(application)-333(nee)-1(d)1(s)-1(;)]TJ -0 g 0 G - -12.73 -19.925 Td [(9.)]TJ -0 g 0 G - [-500(An)28(y)-416(co)-28(e\016cien)28(ts)-416(from)-416(matrix)-416(ro)28(ws)-416(not)-416(o)28(wned)-416(b)28(y)-416(the)-416(calling)-416(pro)-28(cess)-416(are)]TJ 12.73 -11.955 Td [(silen)28(tly)-334(ign)1(ored;)]TJ -0 g 0 G - -17.711 -19.926 Td [(10.)]TJ -0 g 0 G - [-500(If)-358(the)-359(descriptor)-358(is)-359(in)-358(the)-359(assem)28(bled)-359(state,)-364(then)-359(an)28(y)-359(en)28(tries)-358(in)-359(the)-358(sparse)]TJ 17.711 -11.955 Td [(matrix)-430(that)-429(w)27(ould)-429(generate)-430(additional)-430(comm)28(unication)-430(requiremen)28(ts)-430(are)]TJ 0 -11.955 Td [(ignored;)]TJ -0 g 0 G - -17.711 -19.925 Td [(11.)]TJ -0 g 0 G - [-500(If)-308(the)-309(matrix)-309(is)-308(in)-309(the)-308(up)-28(date)-309(state,)-313(an)28(y)-309(en)28(tries)-309(in)-308(p)-28(ositions)-309(th)1(at)-309(w)28(ere)-309(not)]TJ 17.711 -11.955 Td [(presen)28(t)-334(in)-333(the)-333(original)-333(matrix)-334(are)-333(ignored.)]TJ -0 g 0 G - 141.968 -384.558 Td [(83)]TJ -======= /F8 9.9626 Tf 162.881 706.129 Td [(1.)]TJ 0 g 0 G [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.092 0 Td [(psb_ovt_xhal_)]TJ/F8 9.9626 Tf 70.801 0 Td [(for)-282(the)]TJ/F30 9.9626 Tf 31.376 0 Td [(extype)]TJ/F8 9.9626 Tf 34.189 0 Td [(argumen)28(t)-282(the)-282(u)1(s)-1(er)-281(will)-282(obtain)-281(a)]TJ -183.728 -11.955 Td [(descriptor)-258(for)-257(a)-258(domain)-257(partition)-258(in)-257(whic)28(h)-258(the)-257(additional)-258(la)28(y)28(ers)-258(are)-257(fetc)27(hed)]TJ 0 -11.955 Td [(as)-415(part)-415(of)-415(an)-415(\050extended\051)-415(halo;)-456(ho)28(w)27(ev)28(er)-415(the)-415(index-to-pro)-28(cess)-415(mapping)-415(is)]TJ 0 -11.956 Td [(iden)28(tical)-334(to)-333(that)-333(of)-333(the)-334(base)-333(descriptor;)]TJ @@ -26232,21 +16516,14 @@ BT [-500(Sp)-28(ecifying)]TJ/F30 9.9626 Tf 60.957 0 Td [(psb_ovt_asov_)]TJ/F8 9.9626 Tf 71.666 0 Td [(for)-368(the)]TJ/F30 9.9626 Tf 33.108 0 Td [(extype)]TJ/F8 9.9626 Tf 35.053 0 Td [(argumen)28(t)-369(the)-368(user)-369(will)-368(obtain)]TJ -188.054 -11.955 Td [(a)-458(descriptor)-459(with)-458(an)-458(o)28(v)27(erlapp)-27(ed)-459(decomp)-28(osition:)-694(the)-458(additional)-458(la)27(y)28(er)-458(is)]TJ 0 -11.955 Td [(aggregated)-413(to)-413(the)-414(l)1(o)-28(cal)-413(sub)-28(domain)-413(\050and)-413(th)27(u)1(s)-414(is)-413(an)-413(o)28(v)28(erlap\051,)-433(and)-413(a)-414(new)]TJ 0 -11.955 Td [(halo)-333(extending)-334(b)-27(ey)27(ond)-333(the)-333(last)-334(ad)1(ditional)-334(la)28(y)28(er)-333(is)-334(formed.)]TJ 0 g 0 G 141.968 -524.035 Td [(80)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1452 0 obj -<< -/Length 6648 -======= 1447 0 obj << /Length 4897 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -26259,37 +16536,21 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(spasb)-375(|)-375(Sparse)-375(matrix)-375(assem)31(bly)-375(routine)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info,)-525(afmt,)-525(upd,)-525(dupl,)-525(mold\051)]TJ -======= /F16 11.9552 Tf 155.621 706.129 Td [(spall)-375(|)-375(Allo)-31(cates)-375(a)-375(sparse)-375(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf 0 -21.202 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -/F27 9.9626 Tf -33.797 -19.639 Td [(On)-383(En)32(try)]TJ +/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19.638 Td [(desc)]TJ + 0 -19.925 Td [(desc)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 172.619 627.46 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 627.261 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 1 0 0 1 121.81 626.17 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q @@ -26297,25 +16558,10 @@ BT /F27 9.9626 Tf 125.247 625.971 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 579.639 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 579.44 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 579.639 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 579.44 Td [(type)]TJ -======= 1 0 0 1 312.036 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -26328,57 +16574,9 @@ q Q BT /F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.887 -19.639 Td [(afm)32(t)]TJ -0 g 0 G -/F8 9.9626 Tf 27.736 0 Td [(the)-333(storage)-334(format)-333(for)-333(the)-334(sparse)-333(matrix.)]TJ -2.829 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(arra)28(y)-333(of)-334(c)28(haracters.)-444(Defalt:)-445('CSR'.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.639 Td [(up)-32(d)]TJ -0 g 0 G -/F8 9.9626 Tf 24.394 0 Td [(Pro)28(vide)-334(f)1(or)-334(up)-27(dates)-334(to)-333(the)-334(matri)1(x)-334(co)-28(e\016cien)28(ts.)]TJ 0.513 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(in)27(teger,)-333(p)-28(ossible)-333(v)55(alues:)]TJ/F30 9.9626 Tf 164.632 0 Td [(psb_upd_srch_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 6.088 0 Td [(psb_upd_perm_)]TJ -0 g 0 G -/F27 9.9626 Tf -263.622 -19.639 Td [(dupl)]TJ -0 g 0 G -/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf -316.037 -11.955 Td [(psb_dupl_err_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -92.901 -19.639 Td [(mold)]TJ -0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -4.898 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ -ET -q -1 0 0 1 395.279 297.847 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 398.417 297.647 Td [(T)]TJ -ET -q -1 0 0 1 404.275 297.847 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 407.413 297.647 Td [(base)]TJ -ET -q -1 0 0 1 428.962 297.847 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 432.101 297.647 Td [(sparse)]TJ -ET -q -1 0 0 1 464.11 297.847 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 467.248 297.647 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -332.234 -21.201 Td [(On)-383(Return)]TJ -======= /F27 9.9626 Tf -260.887 -19.925 Td [(nnz)]TJ 0 g 0 G /F8 9.9626 Tf 22.804 0 Td [(An)-309(estimate)-309(of)-308(the)-309(n)28(um)28(b)-28(er)-309(of)-309(nonzero)-27(es)-309(in)-309(the)-309(lo)-28(cal)-308(part)-309(of)-309(the)-308(as)-1(sem)28(bled)]TJ 2.103 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)]TJ @@ -26409,39 +16607,9 @@ BT /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -271.348 -19.926 Td [(info)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.639 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(assem)28(bled.)]TJ 14.355 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 209.186 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 208.986 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 209.186 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 208.986 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.638 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.201 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 166.874 -29.888 Td [(84)]TJ -======= /F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ 0 g 0 G [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-333(is)-334(in)-333(the)-333(build)-334(state.)]TJ @@ -26455,30 +16623,19 @@ BT [-500(Pro)28(viding)-307(a)-308(go)-27(o)-28(d)-307(es)-1(timate)-307(for)-307(the)-307(n)27(um)28(b)-28(er)-307(of)-307(nonzero)-28(es)]TJ/F11 9.9626 Tf 254.288 0 Td [(nnz)]TJ/F8 9.9626 Tf 20.092 0 Td [(in)-307(the)-308(assem-)]TJ -261.65 -11.955 Td [(bled)-401(m)-1(atr)1(ix)-402(ma)28(y)-402(substan)28(tially)-401(impro)27(v)28(e)-401(p)-28(erformance)-402(in)-401(the)-402(matrix)-401(build)]TJ 0 -11.955 Td [(phase,)-458(as)-433(it)-432(will)-433(reduce)-433(or)-433(eliminate)-433(the)-433(need)-432(for)-433(\050p)-28(oten)28(tially)-433(m)28(ultiple\051)]TJ 0 -11.956 Td [(data)-333(reallo)-28(cations.)]TJ 0 g 0 G 141.968 -133.042 Td [(81)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1456 0 obj -<< -/Length 2248 -======= 1455 0 obj << /Length 5716 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.8)-1125(psb)]TJ ET q @@ -26487,19 +16644,8 @@ q Q BT /F16 11.9552 Tf 206.431 706.129 Td [(spins)-438(|)-437(Insert)-438(a)-437(set)-438(of)-437(co)-31(e\016cien)31(ts)-438(in)32(to)-438(a)-437(sparse)]TJ -25.091 -13.948 Td [(matrix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - [-500(On)-406(en)28(try)-406(to)-406(this)-406(routine)-406(the)-406(descriptor)-406(m)28(ust)-406(b)-28(e)-406(in)-406(the)-406(assem)28(bled)-406(state)-1(,)]TJ 12.73 -11.955 Td [(i.e.)]TJ/F30 9.9626 Tf 17.158 0 Td [(psb_cdasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(m)28(ust)-334(already)-333(ha)28(v)28(e)-334(b)-27(een)-334(called.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - -80.282 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(The)-333(sparse)-334(matrix)-333(ma)28(y)-334(b)-27(e)-334(in)-333(either)-333(the)-334(build)-333(or)-333(up)-28(date)-333(state;)]TJ -0 g 0 G - 0 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(Duplicate)-250(en)28(tries)-250(are)-249(detec)-1(ted)-249(and)-250(handled)-250(in)-249(b)-28(oth)-250(build)-249(and)-250(up)-28(date)-249(state,)]TJ 12.73 -11.955 Td [(with)-282(the)-283(exception)-282(of)-282(the)-283(error)-282(action)-282(that)-283(i)1(s)-283(only)-282(tak)28(en)-283(in)-282(the)-282(build)-282(s)-1(tate,)]TJ 0 -11.955 Td [(i.e.)-444(on)-334(the)-333(\014rst)-333(assem)27(bly;)]TJ -======= /F30 9.9626 Tf -30.635 -19.07 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.955 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 /F27 9.9626 Tf 0 -23.016 Td [(T)32(yp)-32(e:)]TJ @@ -26507,23 +16653,8 @@ BT /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -21.39 Td [(On)-383(En)32(try)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - -12.73 -19.925 Td [(4.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-500(If)-224(the)-224(up)-28(d)1(ate)-224(c)27(hoice)-224(is)]TJ/F30 9.9626 Tf 107.516 0 Td [(psb_upd_perm_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-246(then)-224(subsequen)28(t)-224(calls)-224(to)]TJ/F30 9.9626 Tf 108.951 0 Td [(psb_spins)]TJ/F8 9.9626 Tf -271.731 -11.956 Td [(to)-246(up)-28(date)-246(the)-246(matrix)-246(m)28(ust)-246(b)-28(e)-246(arranged)-246(in)-246(suc)28(h)-246(a)-246(w)28(a)27(y)-246(as)-246(to)-246(pro)-27(duce)-246(exactly)]TJ 0 -11.955 Td [(the)-228(same)-229(sequence)-228(of)-228(co)-28(e\016cien)28(t)-229(v)56(alues)-228(as)-229(encoun)28(tered)-228(at)-229(the)-228(\014rst)-228(assem)28(bly;)]TJ -0 g 0 G - -12.73 -19.925 Td [(5.)]TJ -0 g 0 G - [-500(The)-333(output)-334(storage)-333(format)-333(need)-334(not)-333(b)-28(e)-333(the)-333(same)-334(on)-333(all)-333(pro)-28(cesses;)]TJ -0 g 0 G - 0 -19.925 Td [(6.)]TJ -0 g 0 G - [-500(On)-370(exit)-370(from)-370(this)-370(routine)-370(the)-370(matrix)-370(is)-370(in)-370(the)-370(assem)28(bled)-370(state,)-379(and)-370(th)27(us)]TJ 12.73 -11.956 Td [(is)-333(suitable)-334(for)-333(the)-333(computational)-334(r)1(outines.)]TJ -0 g 0 G - 141.968 -444.333 Td [(85)]TJ -======= 0 -21.389 Td [(nz)]TJ 0 g 0 G /F8 9.9626 Tf 16.438 0 Td [(the)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(co)-28(e\016cien)28(ts)-334(to)-333(b)-28(e)-333(inserted.)]TJ 8.469 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.023 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(scalar.)]TJ @@ -26679,57 +16810,11 @@ BT [-500(In)-368(COO)-367(format)-368(the)-367(co)-28(e\016cien)28(ts)-368(to)-368(b)-27(e)-368(inserted)-368(are)-367(represen)28(ted)-368(b)28(y)-368(the)-367(or-)]TJ 12.73 -11.955 Td [(dered)-358(triples)]TJ/F11 9.9626 Tf 58.162 0 Td [(ia)]TJ/F8 9.9626 Tf 8.699 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.875 0 Td [(;)-167(v)-36(a)1(l)]TJ/F8 9.9626 Tf 18.049 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051,)-364(for)]TJ/F11 9.9626 Tf 25.762 0 Td [(i)]TJ/F8 9.9626 Tf 6.608 0 Td [(=)-319(1)]TJ/F11 9.9626 Tf 15.905 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(nz)]TJ/F8 9.9626 Tf 33.191 0 Td [(;)-370(these)-358(triples)-358(should)-358(b)-28(e-)]TJ -210.411 -11.955 Td [(long)-384(to)-385(the)-384(curren)28(t)-385(pro)-28(cess,)-397(i.e.)]TJ/F11 9.9626 Tf 144.426 0 Td [(ia)]TJ/F8 9.9626 Tf 8.698 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-384(should)-385(b)-28(e)-384(one)-384(of)-385(the)-384(lo)-28(cal)-385(ind)1(ic)-1(es,)]TJ -160.431 -11.955 Td [(but)-333(are)-334(otherwise)-333(arbitrary;)]TJ 0 g 0 G 141.968 -29.888 Td [(83)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1346 0 obj -<< -/Type /ObjStm -/N 100 -/First 981 -/Length 10495 ->> -stream -1342 0 1349 132 1347 271 1351 417 1352 476 1348 535 1355 654 1353 793 1357 951 1358 1009 -1354 1067 1360 1199 1362 1317 1363 1376 1364 1435 1365 1494 1366 1553 1367 1612 1359 1669 1370 1749 -1368 1888 1372 2034 304 2092 1369 2149 1376 2268 1374 2407 1378 2565 1379 2624 1380 2683 1381 2742 -1375 2801 1385 2907 1382 3055 1383 3201 1387 3348 308 3406 1388 3463 1384 3521 1392 3627 1389 3775 -1390 3920 1394 4066 312 4125 1391 4183 1397 4289 1395 4428 1399 4574 316 4632 1396 4689 1403 4795 -1400 4943 1401 5086 1405 5232 320 5291 1402 5349 1407 5481 1409 5599 1410 5657 1411 5715 1406 5773 -1416 5853 1413 6001 1414 6146 1418 6288 324 6347 1419 6405 1420 6464 1421 6523 1415 6582 1424 6701 -1426 6819 328 6877 1423 6934 1430 7053 1422 7210 1427 7357 1428 7501 1432 7647 1433 7706 1434 7765 -1435 7824 1436 7883 1437 7942 1429 8001 1439 8120 1441 8238 1442 8296 1443 8354 1444 8412 1445 8470 -1446 8527 1447 8585 1438 8643 1451 8736 1448 8884 1449 9029 1453 9173 332 9232 1450 9290 1455 9396 -% 1342 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1349 0 obj -<< -/Type /Page -/Contents 1350 0 R -/Resources 1348 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1335 0 R -/Annots [ 1347 0 R ] ->> -% 1347 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 325.282 412.588 336.407] -/A << /S /GoTo /D (descdata) >> ->> -% 1351 0 obj -<< -/D [1349 0 R /XYZ 149.705 753.953 null] -======= 1352 0 obj << /Type /ObjStm @@ -26776,29 +16861,9 @@ stream /Resources 1353 0 R /MediaBox [0 0 595.276 841.89] /Parent 1357 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1356 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1349 0 R /XYZ 150.705 234.372 null] ->> -% 1348 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1355 0 obj -<< -/Type /Page -/Contents 1356 0 R -/Resources 1354 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1335 0 R -/Annots [ 1353 0 R ] ->> -% 1353 0 obj -======= /D [1354 0 R /XYZ 98.895 753.953 null] >> % 1353 0 obj @@ -26816,36 +16881,10 @@ stream /Annots [ 1358 0 R ] >> % 1358 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [357.982 215.702 380.454 226.827] -/A << /S /GoTo /D (subsubsection.2.3.1) >> ->> -% 1357 0 obj -<< -/D [1355 0 R /XYZ 98.895 753.953 null] ->> -% 1358 0 obj -<< -/D [1355 0 R /XYZ 99.895 134.155 null] ->> -% 1354 0 obj -<< -/Font << /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1360 0 obj -<< -/Type /Page -/Contents 1361 0 R -/Resources 1359 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1335 0 R -======= /Rect [345.53 210.686 412.588 221.811] /A << /S /GoTo /D (descdata) >> >> @@ -26860,29 +16899,13 @@ stream % 1364 0 obj << /D [1361 0 R /XYZ 320.941 451.038 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1365 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1360 0 R /XYZ 149.705 753.953 null] -======= /D [1361 0 R /XYZ 150.705 417.777 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1366 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1360 0 R /XYZ 150.705 716.092 null] ->> -% 1364 0 obj -<< -/D [1360 0 R /XYZ 150.705 688.251 null] ->> -% 1365 0 obj -<< -/D [1360 0 R /XYZ 150.705 668.049 null] -======= /D [1361 0 R /XYZ 150.705 417.777 null] >> % 1360 0 obj @@ -26914,55 +16937,12 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [123.806 543.516 199.86 554.641] /A << /S /GoTo /D (vdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1366 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1360 0 R /XYZ 150.705 626.428 null] ->> -% 1367 0 obj -<< -/D [1360 0 R /XYZ 150.705 568.7 null] ->> -% 1359 0 obj -<< -/Font << /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1370 0 obj -<< -/Type /Page -/Contents 1371 0 R -/Resources 1369 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1368 0 R ] >> % 1368 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 117.115 361.779 128.24] -/A << /S /GoTo /D (descdata) >> ->> -% 1372 0 obj -<< -/D [1370 0 R /XYZ 98.895 753.953 null] ->> -% 304 0 obj -<< -/D [1370 0 R /XYZ 99.895 720.077 null] ->> -% 1369 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] -======= -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] /Rect [422.94 543.516 434.896 554.641] /A << /S /GoTo /D (table.20) >> >> @@ -27024,26 +17004,9 @@ stream % 1382 0 obj << /D [1379 0 R /XYZ 99.895 234.372 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1378 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1377 0 R -/Resources 1375 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1374 0 R ] ->> -% 1374 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [325.383 402.324 347.855 413.172] -/A << /S /GoTo /D (subsubsection.2.3.1) >> -======= /Font << /F27 584 0 R /F8 585 0 R /F30 810 0 R /F11 796 0 R /F16 582 0 R >> /ProcSet [ /PDF /Text ] >> @@ -27055,7 +17018,6 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1357 0 R /Annots [ 1383 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1383 0 obj << @@ -27067,64 +17029,19 @@ stream >> % 1387 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1376 0 R /XYZ 149.705 753.953 null] -======= /D [1385 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1388 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1376 0 R /XYZ 150.705 496.913 null] ->> -% 1380 0 obj -<< -/D [1376 0 R /XYZ 150.705 475.051 null] -======= /D [1385 0 R /XYZ 150.705 134.155 null] >> % 1384 0 obj << /Font << /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R /F10 812 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1390 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1376 0 R /XYZ 150.705 431.215 null] ->> -% 1375 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F11 770 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1385 0 obj -<< -/Type /Page -/Contents 1386 0 R -/Resources 1384 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1382 0 R 1383 0 R ] ->> -% 1382 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1383 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 417.531 361.779 428.656] -/A << /S /GoTo /D (descdata) >> -======= /Type /Page /Contents 1391 0 R /Resources 1389 0 R @@ -27146,45 +17063,17 @@ stream % 1395 0 obj << /D [1390 0 R /XYZ 99.895 668.049 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1396 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1385 0 R /XYZ 98.895 753.953 null] ->> -% 308 0 obj -<< -/D [1385 0 R /XYZ 99.895 720.077 null] -======= /D [1390 0 R /XYZ 99.895 626.428 null] >> % 1397 0 obj << /D [1390 0 R /XYZ 99.895 568.7 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1388 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1385 0 R /XYZ 99.895 327.092 null] ->> -% 1384 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1392 0 obj -<< -/Type /Page -/Contents 1393 0 R -/Resources 1391 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1389 0 R 1390 0 R ] >> % 1389 0 obj -======= +<< /Font << /F8 585 0 R /F30 810 0 R >> /ProcSet [ /PDF /Text ] >> @@ -27198,53 +17087,10 @@ stream /Annots [ 1399 0 R ] >> % 1399 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 574.94 412.588 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1390 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 485.277 412.588 496.401] -/A << /S /GoTo /D (descdata) >> ->> -% 1394 0 obj -<< -/D [1392 0 R /XYZ 149.705 753.953 null] ->> -% 312 0 obj -<< -/D [1392 0 R /XYZ 150.705 720.077 null] ->> -% 1391 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1397 0 obj -<< -/Type /Page -/Contents 1398 0 R -/Resources 1396 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1395 0 R ] ->> -% 1395 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> -======= /Rect [345.53 117.115 412.588 128.24] /A << /S /GoTo /D (descdata) >> >> @@ -27293,33 +17139,9 @@ stream % 1411 0 obj << /D [1406 0 R /XYZ 99.895 431.215 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1399 0 obj +% 1405 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1397 0 R /XYZ 98.895 753.953 null] ->> -% 316 0 obj -<< -/D [1397 0 R /XYZ 99.895 720.077 null] ->> -% 1396 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1403 0 obj -<< -/Type /Page -/Contents 1404 0 R -/Resources 1402 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1373 0 R -/Annots [ 1400 0 R 1401 0 R ] ->> -% 1400 0 obj -======= /Font << /F27 584 0 R /F8 585 0 R /F11 796 0 R /F16 582 0 R >> /ProcSet [ /PDF /Text ] >> @@ -27333,51 +17155,18 @@ stream /Annots [ 1412 0 R 1413 0 R ] >> % 1412 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 453.24 423.049 464.364] -/A << /S /GoTo /D (spdata) >> ->> -% 1401 0 obj -======= /Rect [345.53 560.993 412.588 572.118] /A << /S /GoTo /D (descdata) >> >> % 1413 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 209.896 412.588 221.021] -/A << /S /GoTo /D (descdata) >> ->> -% 1405 0 obj -<< -/D [1403 0 R /XYZ 149.705 753.953 null] ->> -% 320 0 obj -<< -/D [1403 0 R /XYZ 150.705 720.077 null] ->> -% 1402 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1407 0 obj -<< -/Type /Page -/Contents 1408 0 R -/Resources 1406 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1412 0 R -======= /Rect [345.53 403.583 412.588 414.708] /A << /S /GoTo /D (descdata) >> >> @@ -27388,7 +17177,6 @@ stream % 320 0 obj << /D [1415 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1418 0 obj << @@ -27396,23 +17184,7 @@ stream >> % 1414 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1407 0 R /XYZ 98.895 753.953 null] ->> -% 1410 0 obj -<< -/D [1407 0 R /XYZ 99.895 716.092 null] ->> -% 1411 0 obj -<< -/D [1407 0 R /XYZ 99.895 664.341 null] ->> -% 1406 0 obj -<< -/Font << /F8 573 0 R /F30 784 0 R >> -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1422 0 obj @@ -27421,24 +17193,15 @@ stream /Contents 1423 0 R /Resources 1421 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1412 0 R -/Annots [ 1413 0 R 1414 0 R ] -======= /Parent 1398 0 R /Annots [ 1419 0 R 1420 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1419 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 574.94 412.588 586.065] -======= /Rect [294.721 574.94 361.779 586.065] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /A << /S /GoTo /D (descdata) >> >> % 1420 0 obj @@ -27446,85 +17209,25 @@ stream /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 405.575 423.049 416.7] -/A << /S /GoTo /D (spdata) >> ->> -% 1418 0 obj -<< -/D [1416 0 R /XYZ 149.705 753.953 null] ->> -% 324 0 obj -======= /Rect [294.721 485.277 361.779 496.401] /A << /S /GoTo /D (descdata) >> >> % 1424 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1422 0 R /XYZ 98.895 753.953 null] >> % 324 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1416 0 R /XYZ 150.705 315.137 null] ->> -% 1420 0 obj -<< -/D [1416 0 R /XYZ 150.705 293.274 null] ->> -% 1421 0 obj -<< -/D [1416 0 R /XYZ 150.705 273.349 null] -======= /D [1422 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1421 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1424 0 obj -<< -/Type /Page -/Contents 1425 0 R -/Resources 1423 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1412 0 R ->> -% 1426 0 obj -<< -/D [1424 0 R /XYZ 98.895 753.953 null] ->> -% 328 0 obj -<< -/D [1424 0 R /XYZ 99.895 720.077 null] ->> -% 1423 0 obj -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> /ProcSet [ /PDF /Text ] >> % 1427 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1430 0 obj << /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1431 0 R -/Resources 1429 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1412 0 R -/Annots [ 1422 0 R 1427 0 R 1428 0 R ] ->> -% 1422 0 obj -======= /Contents 1428 0 R /Resources 1426 0 R /MediaBox [0 0 595.276 841.89] @@ -27532,25 +17235,10 @@ stream /Annots [ 1425 0 R ] >> % 1425 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [311.962 655.098 379.019 666.223] -/A << /S /GoTo /D (descdata) >> ->> -% 1427 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 488.124 423.049 499.249] -/A << /S /GoTo /D (spdata) >> ->> -% 1428 0 obj -======= /Rect [345.53 574.94 412.588 586.065] /A << /S /GoTo /D (descdata) >> >> @@ -27577,27 +17265,10 @@ stream /Annots [ 1430 0 R 1431 0 R ] >> % 1430 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [311.962 420.91 379.019 432.035] -/A << /S /GoTo /D (descdata) >> ->> -% 1432 0 obj -<< -/D [1430 0 R /XYZ 149.705 753.953 null] ->> -% 1433 0 obj -<< -/D [1430 0 R /XYZ 150.705 321.172 null] ->> -% 1434 0 obj -<< -/D [1430 0 R /XYZ 150.705 289.823 null] -======= /Rect [294.721 453.24 372.239 464.364] /A << /S /GoTo /D (spdata) >> >> @@ -27629,58 +17300,17 @@ stream /Resources 1437 0 R /MediaBox [0 0 595.276 841.89] /Parent 1436 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1440 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1430 0 R /XYZ 150.705 256.537 null] -======= /D [1438 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1441 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1430 0 R /XYZ 150.705 189.322 null] -======= /D [1438 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1442 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1430 0 R /XYZ 150.705 169.929 null] ->> -% 1429 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1439 0 obj -<< -/Type /Page -/Contents 1440 0 R -/Resources 1438 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1412 0 R ->> -% 1441 0 obj -<< -/D [1439 0 R /XYZ 98.895 753.953 null] ->> -% 1442 0 obj -<< -/D [1439 0 R /XYZ 99.895 716.092 null] ->> -% 1443 0 obj -<< -/D [1439 0 R /XYZ 99.895 652.386 null] ->> -% 1444 0 obj -<< -/D [1439 0 R /XYZ 99.895 607.997 null] -======= /D [1438 0 R /XYZ 150.705 664.341 null] >> % 1437 0 obj @@ -27716,72 +17346,9 @@ stream % 1448 0 obj << /D [1446 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 336 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1439 0 R /XYZ 99.895 576.67 null] ->> -% 1446 0 obj -<< -/D [1439 0 R /XYZ 99.895 544.789 null] ->> -% 1447 0 obj -<< -/D [1439 0 R /XYZ 99.895 500.954 null] ->> -% 1438 0 obj -<< -/Font << /F8 573 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1451 0 obj -<< -/Type /Page -/Contents 1452 0 R -/Resources 1450 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1412 0 R -/Annots [ 1448 0 R 1449 0 R ] ->> -% 1448 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 576.23 412.588 587.355] -/A << /S /GoTo /D (descdata) >> ->> -% 1449 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 205.776 423.049 216.901] -/A << /S /GoTo /D (spdata) >> ->> -% 1453 0 obj -<< -/D [1451 0 R /XYZ 149.705 753.953 null] ->> -% 332 0 obj -<< -/D [1451 0 R /XYZ 150.705 720.077 null] ->> -% 1450 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1455 0 obj -<< -/Type /Page -/Contents 1456 0 R -/Resources 1454 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1464 0 R -======= /D [1446 0 R /XYZ 99.895 716.092 null] >> % 1449 0 obj @@ -27830,83 +17397,23 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1436 0 R /Annots [ 1452 0 R 1457 0 R 1458 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1470 0 obj -<< -/Length 3084 -======= 1471 0 obj << /Length 3810 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(spfree)-375(|)-375(F)94(rees)-375(a)-375(sparse)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_spfree\050a,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -======= ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G BT /F8 9.9626 Tf 162.881 706.129 Td [(6.)]TJ 0 g 0 G [-500(In)-497(CSR)-496(format)-496(the)-497(co)-28(e\016cien)28(ts)-497(to)-496(b)-28(e)-497(inserted)-496(for)-497(eac)28(h)-496(input)-497(ro)28(w)]TJ/F11 9.9626 Tf 314.877 0 Td [(i)]TJ/F8 9.9626 Tf 8.909 0 Td [(=)]TJ -311.056 -11.955 Td [(1)]TJ/F11 9.9626 Tf 4.982 0 Td [(;)-167(nr)]TJ/F8 9.9626 Tf 18.296 0 Td [(are)-313(represen)28(ted)-313(b)28(y)-313(the)-313(ordered)-313(triples)-312(\050)]TJ/F11 9.9626 Tf 169.802 0 Td [(i)]TJ/F8 9.9626 Tf 5.238 0 Td [(+)]TJ/F11 9.9626 Tf 9.554 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 17.41 0 Td [(\000)]TJ/F8 9.9626 Tf 9.555 0 Td [(1\051)]TJ/F11 9.9626 Tf 8.856 0 Td [(;)-167(j)-57(a)]TJ/F8 9.9626 Tf 14.367 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(v)-36(al)]TJ/F8 9.9626 Tf 18.05 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(j)]TJ/F8 9.9626 Tf 4.673 0 Td [(\051,)-317(for)]TJ/F11 9.9626 Tf -297.078 -11.955 Td [(j)]TJ/F8 9.9626 Tf 8.599 0 Td [(=)]TJ/F11 9.9626 Tf 11.674 0 Td [(ir)-28(p)]TJ/F8 9.9626 Tf 13.216 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)]TJ/F11 9.9626 Tf 3.874 0 Td [(;)-167(:)-166(:)-167(:)-167(;)-166(ir)-28(p)]TJ/F8 9.9626 Tf 35.355 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 6.109 0 Td [(+)-269(1\051)]TJ/F14 9.9626 Tf 21.959 0 Td [(\000)]TJ/F8 9.9626 Tf 10.426 0 Td [(1;)-438(these)-403(triples)-403(should)-403(b)-28(elong)-403(to)-403(the)-403(curren)28(t)]TJ -122.394 -11.956 Td [(pro)-28(cess,)-272(i.e.)]TJ/F11 9.9626 Tf 53.794 0 Td [(i)]TJ/F8 9.9626 Tf 4.123 0 Td [(+)]TJ/F11 9.9626 Tf 8.44 0 Td [(ir)-28(w)]TJ/F14 9.9626 Tf 16.295 0 Td [(\000)]TJ/F8 9.9626 Tf 8.44 0 Td [(1)-257(should)-257(b)-28(e)-256(one)-257(of)-257(the)-257(lo)-28(cal)-257(indices,)-272(but)-257(are)-257(otherwise)]TJ -91.092 -11.955 Td [(arbitrary;)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(freed.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.914 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 578.15 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 558.424 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 558.225 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= -12.73 -19.925 Td [(7.)]TJ 0 g 0 G [-500(There)-386(is)-385(no)-386(requiremen)28(t)-386(that)-386(a)-385(giv)28(e)-1(n)-385(ro)28(w)-386(m)28(ust)-386(b)-28(e)-385(pass)-1(ed)-385(in)-386(its)-386(en)28(tiret)28(y)]TJ 12.73 -11.955 Td [(to)-355(a)-354(single)-355(call)-354(to)-355(this)-354(routine:)-487(the)-355(buildup)-354(of)-355(a)-354(ro)28(w)-355(ma)28(y)-355(b)-28(e)-354(split)-355(in)28(to)-355(as)]TJ 0 -11.955 Td [(man)28(y)-334(calls)-333(as)-333(desired)-334(\050ev)28(en)-333(in)-334(th)1(e)-334(CSR)-333(format\051;)]TJ @@ -27970,46 +17477,10 @@ BT /F27 9.9626 Tf 125.247 627.261 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 510.405 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 510.604 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 510.405 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -330.303 Td [(86)]TJ -0 g 0 G -ET - -endstream -endobj -1476 0 obj -<< -/Length 3991 ->> -stream -======= 1 0 0 1 312.036 579.639 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -28036,64 +17507,9 @@ BT /F27 9.9626 Tf -263.623 -19.639 Td [(dupl)]TJ 0 g 0 G /F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.456 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf -316.037 -11.955 Td [(psb_dupl_err_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -92.901 -19.639 Td [(mold)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(sprn)-391(|)-391(Reinit)-391(sparse)-391(matrix)-391(structure)-391(for)-391(psblas)-391(rou-)]TJ -25.091 -13.948 Td [(tines.)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(psb_sprn\050a,)-525(decsc_a,)-525(info,)-525(clear\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(reinitialized.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 564.402 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 564.203 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 564.402 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 564.203 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 544.477 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 544.278 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= /F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -4.898 -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.956 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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ ET q @@ -28130,44 +17546,10 @@ BT 0 -19.639 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(assem)28(bled.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 496.656 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 496.457 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 496.656 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 496.457 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(clear)]TJ -0 g 0 G -/F8 9.9626 Tf 28.795 0 Td [(Cho)-28(ose)-333(whether)-334(to)-333(zero)-333(out)-334(matrix)-333(co)-28(e\016cien)28(ts)]TJ -3.888 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -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 [(Default:)-444(true.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(On)-333(exit)-334(from)-333(this)-333(routine)-333(the)-334(sparse)-333(matrix)-333(is)-334(in)-333(the)-333(up)-28(date)-333(s)-1(tat)1(e)-1(.)]TJ -0 g 0 G - 154.698 -206.766 Td [(87)]TJ -======= 1 0 0 1 312.036 209.186 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -28227,39 +17609,19 @@ BT [-500(On)-370(exit)-370(from)-370(this)-370(routine)-370(the)-370(matrix)-370(is)-370(in)-370(the)-370(assem)28(bled)-370(state,)-380(an)1(d)-370(th)27(us)]TJ 12.73 -11.956 Td [(is)-333(suitable)-334(for)-333(the)-333(computational)-334(rou)1(tines)-1(.)]TJ 0 g 0 G 141.968 -444.333 Td [(86)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1483 0 obj -<< -/Length 5111 -======= 1500 0 obj << /Length 3097 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(geall)-375(|)-375(Allo)-31(cates)-375(a)-375(dense)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.10)-1125(psb)]TJ ET q @@ -28271,7 +17633,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_spfree\050a,)-525(desc_a,)-525(info\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -28280,18 +17641,6 @@ BT /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 626.17 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 625.971 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ -======= 0 -19.925 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(to)-333(b)-28(e)-333(freed.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ @@ -28324,73 +17673,10 @@ BT /F27 9.9626 Tf 125.247 558.225 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 329.276 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 332.415 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 353.964 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 357.102 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -227.318 -31.88 Td [(n)]TJ -0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(The)-333(n)27(um)28(b)-28(er)-333(of)-333(columns)-334(of)-333(the)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(allo)-28(cated.)]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 -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)27(t)-342(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.111 0 Td [(is)-343(a)]TJ -303.71 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(lb)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(The)-489(lo)28(w)27(er)-489(b)-27(ound)-489(for)-489(the)-490(colu)1(m)-1(n)-489(ind)1(e)-1(x)-489(range)-489(of)-489(the)-489(dense)-489(matrix)-489(to)-489(b)-28(e)]TJ 10.377 -11.955 Td [(allo)-28(cated.)]TJ 0 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)27(t)-342(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.111 0 Td [(is)-343(a)]TJ -303.71 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(allo)-28(cated.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-303(as)-1(:)-429(a)-304(rank)-303(one)-304(or)-304(t)28(w)28(o)-304(arra)28(y)-304(with)-304(th)1(e)-304(ALLOCA)83(T)83(ABLE)-303(attribute)]TJ 0 -11.955 Td [(or)-333(an)-334(ob)-55(ject)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 89.969 0 Td [(psb)]TJ -ET -q -1 0 0 1 281.898 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 285.037 293.219 Td [(T)]TJ -ET -q -1 0 0 1 290.895 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 294.033 293.219 Td [(vect)]TJ -ET -q -1 0 0 1 315.582 293.418 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 318.72 293.219 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -188.936 -31.88 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -123.08 Td [(88)]TJ -======= 1 0 0 1 312.036 510.604 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -28414,39 +17700,19 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G 141.968 -330.303 Td [(87)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1489 0 obj -<< -/Length 6817 -======= 1506 0 obj << /Length 3985 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(geins)-375(|)-375(Dense)-375(matrix)-375(insertion)-375(routine)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,dupl,local]\051)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.11)-1125(psb)]TJ ET q @@ -28458,37 +17724,11 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -37.36 -18.389 Td [(call)-525(psb_sprn\050a,)-525(decsc_a,)-525(info,)-525(clear\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf 0 -20.681 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -33.797 -19.43 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.431 Td [(m)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws)-333(in)]TJ/F11 9.9626 Tf 84.517 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 16.942 0 Td [(to)-333(b)-28(e)-333(inserted.)]TJ -91.081 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.431 Td [(irw)]TJ -0 g 0 G -/F8 9.9626 Tf 21.157 0 Td [(Indices)-445(of)-444(the)-444(ro)27(ws)-444(to)-445(b)-27(e)-445(inserted.)-778(Sp)-28(eci\014cally)84(,)-473(r)1(o)27(w)]TJ/F11 9.9626 Tf 237.974 0 Td [(i)]TJ/F8 9.9626 Tf 7.861 0 Td [(of)]TJ/F11 9.9626 Tf 12.453 0 Td [(v)-36(al)]TJ/F8 9.9626 Tf 18.05 0 Td [(will)-444(b)-28(e)-445(in-)]TJ -272.588 -11.955 Td [(serted)-435(in)28(to)-435(the)-436(lo)-27(cal)-436(r)1(o)27(w)-435(corresp)-28(onding)-435(to)-435(the)-435(global)-435(ro)28(w)-435(index)]TJ/F11 9.9626 Tf 289.252 0 Td [(ir)-28(w)]TJ/F8 9.9626 Tf 15.604 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051.)]TJ -312.163 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.43 Td [(v)64(al)]TJ -0 g 0 G -/F8 9.9626 Tf 19.144 0 Td [(the)-333(dense)-334(submatrix)-333(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(rank)-333(1)-333(or)-334(2)-333(arra)28(y)83(.)-444(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-334(v)56(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.43 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 414.689 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 414.49 Td [(a)]TJ -======= /F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G @@ -28522,71 +17762,12 @@ q Q BT /F27 9.9626 Tf 176.057 544.278 Td [(a)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 366.869 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 366.669 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 366.869 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 366.669 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.43 Td [(dupl)]TJ -0 g 0 G -/F8 9.9626 Tf 27.259 0 Td [(Ho)28(w)-334(to)-333(handle)-333(duplicate)-333(co)-28(e\016cien)27(ts.)]TJ -2.352 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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)-308(as:)-432(in)27(teger,)-313(p)-28(ossible)-309(v)56(alues:)]TJ/F30 9.9626 Tf 163.696 0 Td [(psb_dupl_ovwrt_)]TJ/F8 9.9626 Tf 78.456 0 Td [(,)]TJ/F30 9.9626 Tf 5.891 0 Td [(psb_dupl_add_)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -340.944 -19.43 Td [(lo)-32(cal)]TJ -0 g 0 G -/F8 9.9626 Tf 28.055 0 Td [(Whether)-289(the)-289(en)28(tries)-289(in)-289(the)-289(index)-288(v)27(ector)]TJ/F30 9.9626 Tf 172.769 0 Td [(irw)]TJ/F8 9.9626 Tf 15.692 0 Td [(,)-298(are)-289(already)-288(in)-289(lo)-28(cal)-289(n)28(um)28(b)-28(er-)]TJ -191.609 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue;)-333(default:)]TJ/F30 9.9626 Tf 163.056 0 Td [(.false.)]TJ/F8 9.9626 Tf 36.612 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -224.575 -20.68 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.43 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(output)-334(dense)-333(matrix.)]TJ 13.879 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-232(as:)-394(a)-233(rank)-233(one)-232(or)-233(t)28(w)28(o)-233(arra)28(y)-233(or)-232(an)-233(ob)-55(ject)-233(of)-233(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 241.975 0 Td [(psb)]TJ -ET -q -1 0 0 1 383.096 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 386.234 144.236 Td [(T)]TJ -ET -q -1 0 0 1 392.092 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 395.231 144.236 Td [(vect)]TJ -ET -q -1 0 0 1 416.779 144.435 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 419.918 144.236 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(,)]TJ -316.037 -11.955 Td [(of)-333(t)27(y)1(p)-28(e)-334(real,)-333(complex)-333(or)-334(in)28(teger.)]TJ -0 g 0 G - 141.968 -41.843 Td [(89)]TJ -======= 1 0 0 1 362.845 496.656 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -28618,66 +17799,19 @@ BT [-500(On)-333(exit)-334(from)-333(this)-333(routine)-334(t)1(he)-334(sparse)-333(matrix)-334(is)-333(in)-333(the)-333(up)-28(date)-334(state.)]TJ 0 g 0 G 154.698 -206.766 Td [(88)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1493 0 obj -<< -/Length 1115 -======= 1513 0 obj << /Length 5118 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(Dense)-333(v)27(ectors/matrices)-333(do)-333(not)-334(ha)28(v)28(e)-334(an)-333(asso)-28(ciated)-333(state;)]TJ -0 g 0 G - 0 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Duplicate)-292(en)28(tries)-293(are)-292(either)-292(o)28(v)28(erwritten)-293(or)-292(added,)-300(there)-292(is)-292(no)-293(p)1(ro)27(vision)-292(for)]TJ 12.73 -11.955 Td [(raising)-333(an)-334(error)-333(condition.)]TJ -0 g 0 G - 141.968 -494.147 Td [(90)]TJ -0 g 0 G -ET - -endstream -endobj -1502 0 obj -<< -/Length 5215 >> stream 0 g 0 G 0 g 0 G BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(geasb)-375(|)-375(Assem)31(bly)-375(a)-375(dense)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_geasb\050x,)-525(desc_a,)-525(info,)-525(mold\051)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.12)-1125(psb)]TJ ET q @@ -28689,7 +17823,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -28727,9 +17860,6 @@ BT 0 g 0 G /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -227.319 -31.88 Td [(mold)]TJ -======= /F27 9.9626 Tf -227.319 -31.88 Td [(n)]TJ 0 g 0 G /F8 9.9626 Tf 11.347 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(columns)-333(of)-334(the)-333(dense)-333(m)-1(atr)1(ix)-334(to)-333(b)-28(e)-333(allo)-28(cated.)]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 -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)-343(as:)-463(In)27(teger)-343(scalar,)-345(default)-343(1.)-473(It)-343(is)-343(not)-343(a)-343(v)56(alid)-343(argumen)28(t)-343(if)]TJ/F11 9.9626 Tf 294.599 0 Td [(x)]TJ/F8 9.9626 Tf 9.11 0 Td [(is)-343(a)]TJ -303.709 -11.955 Td [(rank-1)-333(arra)28(y)83(.)]TJ @@ -28775,39 +17905,8 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G 141.968 -123.08 Td [(89)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.898 -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 [(.)]TJ -70.188 -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)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.26 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -q -1 0 0 1 339.381 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 342.519 498.449 Td [(T)]TJ -ET -q -1 0 0 1 348.377 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 351.515 498.449 Td [(base)]TJ -ET -q -1 0 0 1 373.064 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 376.202 498.449 Td [(vect)]TJ -ET -q -1 0 0 1 397.751 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 400.89 498.449 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(;)-293(this)]TJ -297.009 -11.955 Td [(is)-333(only)-334(allo)28(w)28(ed)-333(when)]TJ/F11 9.9626 Tf 93.317 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(of)-334(t)28(yp)-28(e)]TJ -======= endstream endobj @@ -28860,82 +17959,10 @@ BT /F27 9.9626 Tf 176.057 414.49 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 43.78 0 Td [(psb)]TJ +/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 287.233 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 290.371 486.494 Td [(T)]TJ -ET -q -1 0 0 1 296.229 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 299.367 486.494 Td [(vect)]TJ -ET -q -1 0 0 1 320.916 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 324.054 486.494 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -245.081 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(assem)28(bled.)]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 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(j)1(e)-1(ct)-333(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 63.927 0 Td [(psb)]TJ -ET -q -1 0 0 1 205.048 385.075 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 208.186 384.875 Td [(T)]TJ -ET -q -1 0 0 1 214.044 385.075 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 217.182 384.875 Td [(vect)]TJ -ET -q -1 0 0 1 238.731 385.075 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 241.869 384.875 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -162.896 -31.88 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -214.736 Td [(91)]TJ -0 g 0 G -ET - -endstream -endobj -1509 0 obj -<< -/Length 3379 ->> -stream -======= 1 0 0 1 362.845 366.869 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -28961,98 +17988,9 @@ BT 0 g 0 G /F27 9.9626 Tf -224.574 -20.68 Td [(On)-383(Return)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 -19.43 Td [(x)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(gefree)-375(|)-375(F)94(rees)-375(a)-375(dense)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_gefree\050x,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(free)-1(d)1(.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arr)1(a)27(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-55(jec)-1(t)-333(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 63.927 0 Td [(psb)]TJ -ET -q -1 0 0 1 255.857 566.395 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 258.995 566.195 Td [(T)]TJ -ET -q -1 0 0 1 264.853 566.395 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 267.992 566.195 Td [(vect)]TJ -ET -q -1 0 0 1 289.541 566.395 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 292.679 566.195 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -162.895 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 534.514 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 534.315 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 137.347 0 Td [(psb)]TJ -ET -q -1 0 0 1 329.276 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 332.415 486.494 Td [(desc)]TJ -ET -q -1 0 0 1 353.964 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 357.102 486.494 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -227.318 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 141.968 -294.437 Td [(92)]TJ -======= /F8 9.9626 Tf 11.028 0 Td [(the)-333(output)-334(d)1(e)-1(n)1(s)-1(e)-333(matrix.)]TJ 13.879 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-232(as:)-394(a)-233(rank)-233(one)-232(or)-233(t)28(w)28(o)-233(arra)28(y)-233(or)-232(an)-233(ob)-55(ject)-233(of)-233(t)28(yp)-27(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 241.975 0 Td [(psb)]TJ @@ -29108,39 +18046,19 @@ BT [-500(Duplicate)-292(en)28(tries)-293(are)-292(either)-292(o)28(v)28(erwritten)-292(or)-293(added,)-300(there)-292(is)-292(no)-292(pro)27(vision)-292(for)]TJ 12.73 -11.955 Td [(raising)-333(an)-334(error)-333(condition.)]TJ 0 g 0 G 141.968 -494.147 Td [(91)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1513 0 obj -<< -/Length 3437 -======= 1533 0 obj << /Length 5226 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(gelp)-375(|)-375(Applies)-375(a)-375(left)-375(p)-31(erm)31(utation)-375(to)-375(a)-375(dense)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_gelp\050trans,)-525(iperm,)-525(x,)-525(info\051)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.14)-1125(psb)]TJ ET q @@ -29152,7 +18070,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_geasb\050x,)-525(desc_a,)-525(info,)-525(mold\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -29161,28 +18078,6 @@ BT /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(trans)]TJ -0 g 0 G -/F8 9.9626 Tf 30.609 0 Td [(A)-333(c)27(haracter)-333(that)-333(sp)-28(eci\014es)-333(whether)-334(to)-333(p)-28(erm)28(ute)]TJ/F11 9.9626 Tf 204.179 0 Td [(A)]TJ/F8 9.9626 Tf 10.793 0 Td [(or)]TJ/F11 9.9626 Tf 12.204 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.276 -3.616 Td [(.)]TJ -246.626 -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(single)-333(c)28(haracte)-1(r)-333(with)-333(v)55(alu)1(e)-334('N')-333(for)]TJ/F11 9.9626 Tf 217.435 0 Td [(A)]TJ/F8 9.9626 Tf 10.793 0 Td [(or)-333('T')-334(for)]TJ/F11 9.9626 Tf 43.503 0 Td [(A)]TJ/F10 6.9738 Tf 7.472 3.616 Td [(T)]TJ/F8 9.9626 Tf 6.277 -3.616 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -310.387 -31.88 Td [(ip)-32(erm)]TJ -0 g 0 G -/F8 9.9626 Tf 34.364 0 Td [(An)-333(in)28(te)-1(ger)-333(arra)28(y)-333(con)27(tainin)1(g)-334(p)-28(erm)28(utation)-333(information.)]TJ -9.457 -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(an)-333(in)28(teger)-333(one-dimensional)-334(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(p)-27(erm)27(ut)1(e)-1(d.)]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 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(one)-333(or)-334(t)28(w)28(o)-333(dimensional)-334(arra)28(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 141.968 -226.691 Td [(93)]TJ -======= 0 -19.925 Td [(desc)]TJ ET q @@ -29213,27 +18108,13 @@ BT /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -227.318 -31.88 Td [(mold)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 29.805 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -4.899 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-273(as:)-414(an)-274(ob)-55(ject)-273(of)-274(a)-273(class)-273(deriv)28(ed)-274(from)]TJ/F30 9.9626 Tf 198.261 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1518 0 obj -<< -/Length 6547 ->> -stream -0 g 0 G -0 g 0 G -======= q 1 0 0 1 390.19 498.649 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf BT /F30 9.9626 Tf 393.329 498.449 Td [(T)]TJ ET @@ -29242,108 +18123,6 @@ q []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(glob)]TJ -ET -q -1 0 0 1 201.26 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 205.295 706.129 Td [(to)]TJ -ET -q -1 0 0 1 218.057 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 222.092 706.129 Td [(lo)-31(c)-375(|)-375(Global)-375(to)-375(lo)-31(cal)-375(indices)-375(con)31(v)31(ertion)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -71.387 -18.389 Td [(call)-525(psb_glob_to_loc\050x,)-525(y,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ 0 -11.956 Td [(call)-525(psb_glob_to_loc\050x,)-525(desc_a,)-525(info,)-525(iact,owned\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.201 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 -19.639 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.639 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(tege)-1(r)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -31.594 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 536.09 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 535.891 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 488.27 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 488.07 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 488.27 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 488.07 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.638 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.116 -19.639 Td [(o)32(wned)]TJ -0 g 0 G -/F8 9.9626 Tf 36.647 0 Td [(Sp)-28(ec\014es)-333(v)55(alid)-333(range)-333(of)-333(input)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 158.932 0 Td [(global)]TJ/F8 9.9626 Tf -170.673 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(If)-294(true,)-302(then)-294(only)-295(indices)-294(strictly)-294(o)28(wned)-295(b)28(y)-294(the)-294(curren)28(t)-295(pro)-27(ce)-1(ss)-294(are)-294(consid-)]TJ 0 -11.955 Td [(ered)-333(v)55(alid,)-333(if)-333(false)-334(then)-333(halo)-333(indices)-334(are)-333(also)-333(accepted.)-445(Default:)-444(false.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -21.202 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.639 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.132 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.587 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-350(the)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.759 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.639 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.04 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(presen)28(t,)-343(then)]TJ/F11 9.9626 Tf 70.404 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(o)28(v)27(erwritten)-341(with)-341(the)-341(translated)-341(in)28(teger)-341(indices,)-343(and)]TJ/F11 9.9626 Tf -83.846 -11.955 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -122.257 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.638 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.202 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 166.874 -29.887 Td [(94)]TJ -0 g 0 G -ET - -endstream -endobj -1522 0 obj -<< -/Length 692 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 112.072 706.129 Td [(1.)]TJ -0 g 0 G - [-500(If)-352(an)-353(input)-352(index)-352(is)-353(out)-352(of)-352(range,)-358(then)-352(the)-352(corresp)-28(onding)-352(output)-353(index)-352(is)]TJ 12.73 -11.955 Td [(set)-333(to)-334(a)-333(negativ)28(e)-334(n)28(um)28(b)-28(er;)]TJ -======= /F30 9.9626 Tf 402.325 498.449 Td [(base)]TJ ET q @@ -29389,7 +18168,6 @@ BT 0 g 0 G 0 g 0 G 0 -19.925 Td [(x)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-333(as)-1(sem)28(bled.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-434(or)-433(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(ject)-333(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG @@ -29416,11 +18194,6 @@ Q BT /F30 9.9626 Tf 292.679 384.875 Td [(type)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - [-500(The)-476(default)]TJ/F30 9.9626 Tf 69.542 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore)-476(means)-477(th)1(at)-477(the)-476(negativ)28(e)-476(output)-477(is)-476(the)-476(only)-476(action)]TJ -62.043 -11.955 Td [(tak)28(en)-334(on)-333(an)-333(out-of-range)-333(input.)]TJ -0 g 0 G - 141.968 -571.855 Td [(95)]TJ -======= /F8 9.9626 Tf 20.921 0 Td [(,)-333(of)-334(t)28(yp)-28(e)-333(real,)-333(complex)-334(or)-333(in)28(teger.)]TJ 0 g 0 G /F27 9.9626 Tf -162.895 -31.88 Td [(info)]TJ @@ -29428,21 +18201,14 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ 0 g 0 G 141.968 -214.736 Td [(92)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1529 0 obj -<< -/Length 5736 -======= 1539 0 obj << /Length 3389 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -29455,31 +18221,10 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(lo)-31(c)]TJ -ET -q -1 0 0 1 193.415 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 197.45 706.129 Td [(to)]TJ -ET -q -1 0 0 1 210.212 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 214.247 706.129 Td [(glob)-375(|)-375(Lo)-31(cal)-375(to)-375(global)-375(indices)-375(con)31(v)31(ersion)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -63.542 -18.389 Td [(call)-525(psb_loc_to_glob\050x,)-525(y,)-525(desc_a,)-525(info,)-525(iact\051)]TJ 0 -11.956 Td [(call)-525(psb_loc_to_glob\050x,)-525(desc_a,)-525(info,)-525(iact\051)]TJ -======= /F16 11.9552 Tf 162.346 706.129 Td [(gefree)-375(|)-375(F)94(rees)-375(a)-375(dense)-375(matrix)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_gefree\050x,)-525(desc_a,)-525(info\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -29489,21 +18234,6 @@ BT 0 g 0 G 0 g 0 G 0 -19.925 Td [(x)]TJ -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(An)-333(in)28(tege)-1(r)-333(v)28(ector)-333(of)-334(indices)-333(to)-333(b)-28(e)-334(con)28(v)28(erted.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.646 0 Td [(.)]TJ -76.131 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 534.514 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 534.315 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(The)-333(dense)-334(matrix)-333(to)-333(b)-28(e)-334(f)1(re)-1(ed.)]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 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-433(as:)-645(a)-433(rank)-433(one)-433(or)-434(t)28(w)28(o)-434(arra)28(y)-433(with)-433(the)-434(ALLOCA)84(T)83(ABLE)-433(or)-434(an)]TJ 0 -11.955 Td [(ob)-56(j)1(e)-1(ct)-333(of)-333(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG @@ -29542,48 +18272,10 @@ BT /F27 9.9626 Tf 125.247 534.315 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(The)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -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.956 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(v)56(ariable)-334(of)-333(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 137.346 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 486.494 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 486.693 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 486.494 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.116 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.132 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.587 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-350(the)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.759 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.166 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(not)-354(presen)28(t,)-359(then)]TJ/F11 9.9626 Tf 88.732 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(o)28(v)28(erwritten)-354(with)-354(the)-354(translated)-353(in)27(teger)-353(indices,)]TJ -102.554 -11.955 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -141.629 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(i)1(n)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ -0 g 0 G - 141.968 -115.11 Td [(96)]TJ -======= 1 0 0 1 278.467 486.693 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -29659,7 +18351,6 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ 0 g 0 G 141.967 -212.744 Td [(94)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET @@ -29667,78 +18358,12 @@ endstream endobj 1548 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Length 3271 -======= /Length 6552 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(is)]TJ -ET -q -1 0 0 1 134.834 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 138.869 706.129 Td [(o)31(wned)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -38.974 -18.389 Td [(call)-525(psb_is_owned\050x,)-525(desc_a\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(index.)]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 -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(scalar)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.17)-1125(psb)]TJ ET q @@ -29817,21 +18442,9 @@ BT 0 g 0 G 0 g 0 G 0 -19.639 Td [(x)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.133 0 Td [(y)]TJ/F8 9.9626 Tf 8.733 0 Td [(is)-350(not)-351(presen)28(t,)-355(then)]TJ/F11 9.9626 Tf 88.586 0 Td [(x)]TJ/F8 9.9626 Tf 9.185 0 Td [(is)-350(o)27(v)28(erwritten)-350(with)-351(th)1(e)-351(translated)-350(in)28(teger)-351(indices.)]TJ -102.758 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(A)-302(logical)-301(mask)-302(whic)28(h)-302(is)-302(t)1(rue)-302(if)]TJ/F11 9.9626 Tf 134.085 0 Td [(x)]TJ/F8 9.9626 Tf 8.699 0 Td [(is)-302(o)28(wned)-302(b)28(y)-301(the)-302(curren)28(t)-302(pro-)]TJ -196.264 -11.955 Td [(cess)-334(S)1(c)-1(op)-27(e:)]TJ/F27 9.9626 Tf 52.415 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -52.415 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.942 -33.873 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-300(routine)-299(returns)-300(a)]TJ/F30 9.9626 Tf 111.213 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.369 0 Td [(v)56(alue)-300(for)-300(an)-300(index)-299(that)-300(is)-300(strictly)-300(o)28(wned)-300(b)28(y)]TJ -132.852 -11.955 Td [(the)-333(curren)28(t)-334(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.968 -264.549 Td [(97)]TJ -======= /F27 9.9626 Tf -24.907 -19.639 Td [(y)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.04 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(presen)28(t,)-343(then)]TJ/F11 9.9626 Tf 70.405 0 Td [(y)]TJ/F8 9.9626 Tf 8.64 0 Td [(is)-341(o)28(v)27(erwri)1(tte)-1(n)-341(with)-341(the)-341(translated)-341(in)28(teger)-341(indices,)-343(and)]TJ/F11 9.9626 Tf -83.846 -11.955 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -122.257 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ @@ -29841,201 +18454,18 @@ BT /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.202 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 166.875 -29.887 Td [(95)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1541 0 obj -<< -/Length 4983 -======= 1552 0 obj << /Length 705 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(o)31(wned)]TJ -ET -q -1 0 0 1 213.748 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 217.783 706.129 Td [(index)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -67.078 -18.389 Td [(call)-525(psb_owned_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(ice)-1(s.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(a)-333(rank)-333(one)-334(in)28(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.116 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(A)-294(logical)-294(mask)-294(whic)28(h)-294(is)-294(true)-294(for)-294(all)-294(corresp)-28(onding)-294(en)28(tries)-294(of)]TJ/F11 9.9626 Tf 259.229 0 Td [(x)]TJ/F8 9.9626 Tf 8.623 0 Td [(that)-294(are)-294(o)28(wned)]TJ -253.974 -11.955 Td [(b)28(y)-334(the)-333(curren)28(t)-333(pro)-28(cess)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 132.753 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -132.752 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(or)-334(r)1(ank)-334(one)-333(logical)-333(arra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(An)-333(in)28(teger)-334(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-475(routine)-474(returns)-475(a)]TJ/F30 9.9626 Tf 118.186 0 Td [(.true.)]TJ/F8 9.9626 Tf 36.112 0 Td [(v)56(alue)-475(for)-475(those)-475(indices)-474(that)-475(are)-475(strictly)]TJ -141.567 -11.955 Td [(o)28(wned)-334(b)28(y)-333(the)-333(curren)27(t)-333(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.967 -141.013 Td [(98)]TJ -0 g 0 G -ET - -endstream -endobj -1547 0 obj -<< -/Length 3240 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(is)]TJ -ET -q -1 0 0 1 134.834 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 138.869 706.129 Td [(lo)-31(cal)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -38.974 -18.389 Td [(call)-525(psb_is_local\050x,)-525(desc_a\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(index.)]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 -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(scalar)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(A)-264(logical)-265(mask)-264(whic)27(h)-264(is)-265(true)-264(if)]TJ/F11 9.9626 Tf 131.492 0 Td [(x)]TJ/F8 9.9626 Tf 8.329 0 Td [(is)-264(lo)-28(cal)-265(to)-264(the)-265(curren)28(t)-264(pro)-28(cess)]TJ -193.301 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.942 -33.873 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-239(routine)-239(returns)-239(a)]TJ/F30 9.9626 Tf 108.787 0 Td [(.true.)]TJ/F8 9.9626 Tf 33.762 0 Td [(v)56(alue)-239(for)-239(an)-239(index)-239(that)-239(is)-238(lo)-28(cal)-239(to)-239(the)-239(curren)28(t)]TJ -129.819 -11.955 Td [(pro)-28(cess,)-333(including)-333(the)-334(halo)-333(indices)]TJ -0 g 0 G - 141.968 -264.549 Td [(99)]TJ -0 g 0 G -ET - -endstream -endobj -1553 0 obj -<< -/Length 4993 ->> -stream -======= 0 g 0 G BT /F8 9.9626 Tf 162.881 706.129 Td [(1.)]TJ @@ -30140,137 +18570,25 @@ BT /F27 9.9626 Tf -24.907 -19.926 Td [(y)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(If)]TJ/F11 9.9626 Tf 10.167 0 Td [(y)]TJ/F8 9.9626 Tf 8.767 0 Td [(is)-354(not)-354(presen)28(t,)-359(then)]TJ/F11 9.9626 Tf 88.732 0 Td [(y)]TJ/F8 9.9626 Tf 8.766 0 Td [(is)-354(o)28(v)28(erwritten)-354(with)-354(the)-354(translated)-353(in)27(teger)-353(indices,)]TJ -102.553 -11.955 Td [(and)]TJ/F11 9.9626 Tf 19.372 0 Td [(x)]TJ/F8 9.9626 Tf 9.015 0 Td [(is)-333(left)-334(unc)28(hanged.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.242 0 Td [(global)]TJ/F8 9.9626 Tf -141.629 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(info)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(lo)-31(cal)]TJ -ET -q -1 0 0 1 203.689 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 207.724 706.129 Td [(index)-375(|)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -57.019 -18.389 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(ic)-1(es.)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in,)-383(inout)]TJ/F8 9.9626 Tf 42.646 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(scalar)-333(or)-334(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ -ET -q -1 0 0 1 172.619 546.469 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 498.449 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 498.649 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 498.449 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ -0 g 0 G -/F8 9.9626 Tf 23.28 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.148 0 Td [(global)]TJ/F8 9.9626 Tf -255.522 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.23 0 Td [(b)-28(ort,)-271(d)1(e)-1(f)1(ault)]TJ/F30 9.9626 Tf 56.742 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore.)]TJ -0 g 0 G -/F27 9.9626 Tf -317.116 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(y)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(A)-346(logical)-345(mask)-346(whic)28(h)-346(is)-345(true)-346(for)-345(all)-346(corresp)-28(ondin)1(g)-346(en)28(tries)-346(of)]TJ/F11 9.9626 Tf 264.882 0 Td [(x)]TJ/F8 9.9626 Tf 9.137 0 Td [(that)-346(ar)1(e)-346(lo)-28(cal)]TJ -260.141 -11.955 Td [(to)-333(the)-334(curren)28(t)-333(pro)-28(cess)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 131.092 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -131.092 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(rank)-333(one)-333(logical)-334(ar)1(ra)27(y)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-308(routine)-309(return)1(s)-309(a)]TJ/F30 9.9626 Tf 111.554 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.454 0 Td [(v)56(alue)-309(for)-308(those)-308(indices)-309(that)-308(are)-308(lo)-28(cal)-308(to)-309(the)]TJ -133.278 -11.955 Td [(curren)28(t)-334(p)1(ro)-28(cess,)-334(including)-333(the)-333(halo)-334(i)1(ndices)-1(.)]TJ -0 g 0 G - 139.477 -141.013 Td [(100)]TJ -======= /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ 0 g 0 G 141.968 -115.11 Td [(97)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1559 0 obj -<< -/Length 3822 -======= 1565 0 obj << /Length 3294 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(get)]TJ -ET -q -1 0 0 1 143.885 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 147.92 706.129 Td [(b)-31(oundary)-375(|)-375(Extract)-375(list)-375(of)-375(b)-32(oundary)-375(elemen)32(ts)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.19)-1125(psb)]TJ ET q @@ -30295,18 +18613,8 @@ BT /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ -0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(desc)]TJ -0 g 0 G -/F8 9.9626 Tf 26.209 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 0 -19.925 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(ind)1(e)-1(x.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(in)28(teg)-1(er.)]TJ @@ -30321,30 +18629,10 @@ BT /F27 9.9626 Tf 176.057 546.27 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -10.996 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -======= 1 0 0 1 362.845 498.649 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -30361,103 +18649,22 @@ BT /F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G - 0 -19.926 Td [(bndel)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 32.51 0 Td [(The)-268(list)-267(of)-268(b)-27(oundary)-268(elemen)28(ts)-268(on)-267(the)-268(calling)-267(pro)-28(cess,)-281(in)-267(lo)-28(cal)-268(n)28(um)28(b)-28(ering.)]TJ -7.603 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-456(with)-457(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)28(te)-1(ger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -31.881 Td [(info)]TJ -======= 0 -19.926 Td [(F)96(unction)-384(v)64(alue)]TJ 0 g 0 G /F8 9.9626 Tf 78.386 0 Td [(A)-302(logical)-301(mask)-302(whic)28(h)-302(is)-302(tru)1(e)-302(if)]TJ/F11 9.9626 Tf 134.085 0 Td [(x)]TJ/F8 9.9626 Tf 8.7 0 Td [(is)-302(o)28(wned)-302(b)28(y)-301(the)-302(curren)28(t)-302(pro-)]TJ -196.265 -11.955 Td [(cess)-334(Scop)-27(e:)]TJ/F27 9.9626 Tf 52.415 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -52.415 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.941 -33.873 Td [(Notes)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ +/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(If)-269(there)-269(are)-269(no)-269(b)-28(oundary)-269(elemen)28(ts)-269(\050i.e.,)-282(if)-269(the)-269(lo)-28(cal)-269(part)-269(of)-269(the)-269(c)-1(onn)1(e)-1(ctivi)1(t)27(y)]TJ 12.73 -11.955 Td [(graph)-449(is)-450(self-con)28(tained\051)-450(the)-449(output)-449(v)27(ector)-449(is)-450(set)-449(to)-450(the)-449(\134not)-450(allo)-27(c)-1(ated")]TJ 0 -11.955 Td [(state.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Otherwise)-288(the)-289(size)-288(of)]TJ/F30 9.9626 Tf 105.44 0 Td [(bndel)]TJ/F8 9.9626 Tf 29.023 0 Td [(will)-288(b)-28(e)-288(exactly)-289(equal)-288(to)-288(the)-288(n)28(um)27(b)-27(er)-289(of)-288(b)-28(ound)1(-)]TJ -121.733 -11.956 Td [(ary)-333(elemen)27(ts.)]TJ -0 g 0 G - 139.477 -208.758 Td [(101)]TJ -======= [-500(This)-300(routine)-300(r)1(e)-1(tu)1(rns)-300(a)]TJ/F30 9.9626 Tf 111.214 0 Td [(.true.)]TJ/F8 9.9626 Tf 34.368 0 Td [(v)56(alue)-300(for)-300(an)-300(index)-299(that)-300(is)-300(strictly)-300(o)28(wned)-300(b)28(y)]TJ -132.852 -11.955 Td [(the)-333(curren)27(t)-333(pro)-28(cess,)-333(excluding)-333(the)-334(halo)-333(indices)]TJ 0 g 0 G 141.968 -264.549 Td [(98)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1465 0 obj -<< -/Type /ObjStm -/N 100 -/First 970 -/Length 10663 ->> -stream -1457 0 1458 58 1459 116 1460 174 1461 232 1462 290 1463 348 1454 405 1469 485 1466 633 -1467 776 1471 922 336 981 1468 1039 1475 1145 1472 1293 1473 1438 1477 1585 340 1643 1478 1700 -1474 1758 1482 1864 1479 2012 1480 2158 1484 2302 344 2361 1481 2419 1488 2538 1485 2686 1486 2833 -1490 2977 348 3035 1487 3092 1492 3211 1494 3329 1495 3388 1496 3447 1491 3506 1501 3599 1497 3756 -1498 3901 1499 4045 1503 4188 352 4246 1500 4303 1508 4422 1505 4570 1506 4713 1510 4860 356 4919 -1507 4977 1512 5083 1514 5201 360 5259 1511 5316 1517 5448 1515 5587 1519 5732 364 5791 1516 5849 -1521 5968 1523 6086 1524 6144 1525 6202 1520 6260 1528 6340 1526 6479 1530 6625 368 6684 1527 6742 -1533 6861 1531 7000 1535 7147 372 7205 1536 7262 1532 7320 1540 7439 1538 7578 1542 7724 376 7783 -1543 7841 1539 7900 1546 8019 1544 8158 1548 8305 380 8363 1549 8420 1545 8478 1552 8597 1550 8736 -1554 8882 384 8941 1555 8999 1551 9058 1558 9177 1556 9316 1560 9462 388 9520 1561 9577 1562 9635 -% 1457 0 obj -<< -/D [1455 0 R /XYZ 98.895 753.953 null] ->> -% 1458 0 obj -<< -/D [1455 0 R /XYZ 99.895 716.092 null] ->> -% 1459 0 obj -<< -/D [1455 0 R /XYZ 99.895 687.975 null] ->> -% 1460 0 obj -<< -/D [1455 0 R /XYZ 99.895 668.326 null] ->> -% 1461 0 obj -<< -/D [1455 0 R /XYZ 99.895 624.491 null] ->> -% 1462 0 obj -<< -/D [1455 0 R /XYZ 99.895 580.655 null] ->> -% 1463 0 obj -<< -/D [1455 0 R /XYZ 99.895 560.73 null] ->> -% 1454 0 obj -<< -/Font << /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1469 0 obj -<< -/Type /Page -/Contents 1470 0 R -/Resources 1468 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1464 0 R -/Annots [ 1466 0 R 1467 0 R ] -======= 1468 0 obj << /Type /ObjStm @@ -30483,47 +18690,12 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [261.152 655.098 328.21 666.223] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1466 0 obj +% 1457 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 574.94 423.049 586.065] -/A << /S /GoTo /D (spdata) >> ->> -% 1467 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 507.194 412.588 518.319] -/A << /S /GoTo /D (descdata) >> ->> -% 1471 0 obj -<< -/D [1469 0 R /XYZ 149.705 753.953 null] ->> -% 336 0 obj -<< -/D [1469 0 R /XYZ 150.705 720.077 null] ->> -% 1468 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1475 0 obj -<< -/Type /Page -/Contents 1476 0 R -/Resources 1474 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1464 0 R -/Annots [ 1472 0 R 1473 0 R ] -======= /Rect [294.721 488.124 372.239 499.249] /A << /S /GoTo /D (spdata) >> >> @@ -30546,77 +18718,30 @@ stream % 1464 0 obj << /D [1460 0 R /XYZ 99.895 289.823 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1472 0 obj +% 1465 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 560.993 372.239 572.118] -/A << /S /GoTo /D (spdata) >> -======= /D [1460 0 R /XYZ 99.895 256.537 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1473 0 obj +% 1466 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 493.247 361.779 504.372] -/A << /S /GoTo /D (descdata) >> -======= /D [1460 0 R /XYZ 99.895 189.322 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1477 0 obj +% 1467 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1475 0 R /XYZ 98.895 753.953 null] ->> -% 340 0 obj -<< -/D [1475 0 R /XYZ 99.895 720.077 null] ->> -% 1478 0 obj -<< -/D [1475 0 R /XYZ 99.895 313.144 null] ->> -% 1474 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -======= /D [1460 0 R /XYZ 99.895 169.929 null] >> % 1459 0 obj << /Font << /F27 584 0 R /F8 585 0 R /F30 810 0 R /F16 582 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1482 0 obj +% 1470 0 obj << /Type /Page -/Contents 1483 0 R -/Resources 1481 0 R +/Contents 1471 0 R +/Resources 1469 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1464 0 R -/Annots [ 1479 0 R 1480 0 R ] ->> -% 1479 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [311.962 574.94 379.019 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1480 0 obj -======= /Parent 1436 0 R >> % 1472 0 obj @@ -30662,32 +18787,15 @@ stream /Annots [ 1479 0 R 1480 0 R ] >> % 1479 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [264.584 290.009 340.638 301.134] -/A << /S /GoTo /D (vdata) >> -======= /Rect [294.721 576.23 361.779 587.355] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1480 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1482 0 R /XYZ 149.705 753.953 null] ->> -% 344 0 obj -<< -/D [1482 0 R /XYZ 150.705 720.077 null] ->> -% 1481 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -30705,7 +18813,6 @@ stream % 1481 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1487 0 obj @@ -30714,42 +18821,14 @@ stream /Contents 1488 0 R /Resources 1486 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1464 0 R -/Annots [ 1485 0 R 1486 0 R ] ->> -% 1485 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 363.459 361.779 374.584] -/A << /S /GoTo /D (descdata) >> -======= /Parent 1485 0 R >> % 1489 0 obj << /D [1487 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1486 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [365.781 141.026 441.835 152.151] -/A << /S /GoTo /D (vdata) >> >> % 1490 0 obj << -/D [1488 0 R /XYZ 98.895 753.953 null] ->> -% 348 0 obj -<< -/D [1488 0 R /XYZ 99.895 720.077 null] -======= /D [1487 0 R /XYZ 150.705 716.092 null] >> % 1491 0 obj @@ -30759,18 +18838,12 @@ stream % 1492 0 obj << /D [1487 0 R /XYZ 150.705 668.326 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1493 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] -======= /D [1487 0 R /XYZ 150.705 624.491 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1492 0 obj +% 1494 0 obj << /D [1487 0 R /XYZ 150.705 580.655 null] >> @@ -30786,40 +18859,6 @@ stream % 1499 0 obj << /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1493 0 R -/Resources 1491 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1464 0 R ->> -% 1494 0 obj -<< -/D [1492 0 R /XYZ 149.705 753.953 null] ->> -% 1495 0 obj -<< -/D [1492 0 R /XYZ 150.705 632.405 null] ->> -% 1496 0 obj -<< -/D [1492 0 R /XYZ 150.705 609.989 null] ->> -% 1491 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F16 570 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1501 0 obj -<< -/Type /Page -/Contents 1502 0 R -/Resources 1500 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R -/Annots [ 1497 0 R 1498 0 R 1499 0 R ] ->> -% 1497 0 obj -======= /Contents 1500 0 R /Resources 1498 0 R /MediaBox [0 0 595.276 841.89] @@ -30865,69 +18904,27 @@ stream /Annots [ 1502 0 R 1503 0 R ] >> % 1502 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [261.152 574.94 328.21 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1498 0 obj -======= /Rect [345.53 560.993 423.049 572.118] /A << /S /GoTo /D (spdata) >> >> % 1503 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [269.918 483.284 345.972 494.409] -/A << /S /GoTo /D (vdata) >> ->> -% 1499 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [187.733 381.665 263.787 392.79] -/A << /S /GoTo /D (vdata) >> -======= /Rect [345.53 493.247 412.588 504.372] /A << /S /GoTo /D (descdata) >> >> % 1507 0 obj << /D [1505 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 352 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1501 0 R /XYZ 98.895 753.953 null] ->> -% 352 0 obj -<< -/D [1501 0 R /XYZ 99.895 720.077 null] ->> -% 1500 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1508 0 obj -<< -/Type /Page -/Contents 1509 0 R -/Resources 1507 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R -/Annots [ 1505 0 R 1506 0 R ] -======= /D [1505 0 R /XYZ 150.705 716.092 null] >> % 1508 0 obj @@ -30947,42 +18944,17 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1485 0 R /Annots [ 1509 0 R 1510 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1509 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [238.542 562.985 314.596 574.11] -/A << /S /GoTo /D (vdata) >> ->> -% 1506 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [311.962 483.284 379.019 494.409] -======= /Rect [261.152 574.94 328.21 586.065] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /A << /S /GoTo /D (descdata) >> >> % 1510 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1508 0 R /XYZ 149.705 753.953 null] ->> -% 356 0 obj -<< -/D [1508 0 R /XYZ 150.705 720.077 null] ->> -% 1507 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -30996,41 +18968,9 @@ stream % 356 0 obj << /D [1512 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1512 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1513 0 R -/Resources 1511 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R ->> -% 1514 0 obj -<< -/D [1512 0 R /XYZ 98.895 753.953 null] ->> -% 360 0 obj -<< -/D [1512 0 R /XYZ 99.895 720.077 null] >> % 1511 0 obj << -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F10 786 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1517 0 obj -<< -/Type /Page -/Contents 1518 0 R -/Resources 1516 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R -/Annots [ 1515 0 R ] ->> -% 1515 0 obj -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] >> @@ -31052,36 +18992,10 @@ stream /A << /S /GoTo /D (descdata) >> >> % 1516 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 484.86 412.588 495.985] -/A << /S /GoTo /D (descdata) >> ->> -% 1519 0 obj -<< -/D [1517 0 R /XYZ 149.705 753.953 null] ->> -% 364 0 obj -<< -/D [1517 0 R /XYZ 150.705 720.077 null] ->> -% 1516 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1521 0 obj -<< -/Type /Page -/Contents 1522 0 R -/Resources 1520 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R -======= /Rect [416.591 141.026 492.645 152.151] /A << /S /GoTo /D (vdata) >> >> @@ -31109,39 +19023,13 @@ stream % 1524 0 obj << /D [1522 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1525 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1521 0 R /XYZ 98.895 753.953 null] -======= /D [1522 0 R /XYZ 99.895 632.405 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1526 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1521 0 R /XYZ 99.895 716.092 null] ->> -% 1525 0 obj -<< -/D [1521 0 R /XYZ 99.895 688.251 null] ->> -% 1520 0 obj -<< -/Font << /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1528 0 obj -<< -/Type /Page -/Contents 1529 0 R -/Resources 1527 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1504 0 R -/Annots [ 1526 0 R ] -======= /D [1522 0 R /XYZ 99.895 609.989 null] >> % 1521 0 obj @@ -31165,29 +19053,12 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [311.962 574.94 379.019 586.065] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1529 0 obj << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 483.284 412.588 494.409] -/A << /S /GoTo /D (descdata) >> ->> -% 1530 0 obj -<< -/D [1528 0 R /XYZ 149.705 753.953 null] ->> -% 368 0 obj -<< -/D [1528 0 R /XYZ 150.705 720.077 null] ->> -% 1527 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -======= /Rect [320.727 483.284 396.781 494.409] /A << /S /GoTo /D (vdata) >> >> @@ -31210,7 +19081,6 @@ stream % 1531 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1538 0 obj @@ -31219,21 +19089,8 @@ stream /Contents 1539 0 R /Resources 1537 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1537 0 R -/Annots [ 1531 0 R ] ->> -% 1531 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 495.239 361.779 506.364] -/A << /S /GoTo /D (descdata) >> -======= /Parent 1527 0 R /Annots [ 1535 0 R 1536 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1535 0 obj << @@ -31243,11 +19100,7 @@ stream /Rect [187.733 562.985 263.787 574.11] /A << /S /GoTo /D (vdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 372 0 obj -======= % 1536 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link @@ -31255,16 +19108,6 @@ stream /Rect [261.152 483.284 328.21 494.409] /A << /S /GoTo /D (descdata) >> >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1536 0 obj -<< -/D [1533 0 R /XYZ 99.895 382.883 null] ->> -% 1532 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] -======= % 1540 0 obj << /D [1538 0 R /XYZ 98.895 753.953 null] @@ -31272,9 +19115,8 @@ stream % 368 0 obj << /D [1538 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1540 0 obj +% 1537 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> /ProcSet [ /PDF /Text ] @@ -31282,25 +19124,6 @@ stream % 1542 0 obj << /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1541 0 R -/Resources 1539 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1537 0 R -/Annots [ 1538 0 R ] ->> -% 1538 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 495.239 412.588 506.364] -/A << /S /GoTo /D (descdata) >> ->> -% 1542 0 obj -<< -/D [1540 0 R /XYZ 149.705 753.953 null] -======= /Contents 1543 0 R /Resources 1541 0 R /MediaBox [0 0 595.276 841.89] @@ -31313,39 +19136,9 @@ stream % 372 0 obj << /D [1542 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 376 0 obj +% 1541 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1540 0 R /XYZ 150.705 720.077 null] ->> -% 1543 0 obj -<< -/D [1540 0 R /XYZ 150.705 259.346 null] ->> -% 1539 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1546 0 obj -<< -/Type /Page -/Contents 1547 0 R -/Resources 1545 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1537 0 R -/Annots [ 1544 0 R ] ->> -% 1544 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 495.239 361.779 506.364] -/A << /S /GoTo /D (descdata) >> -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R /F10 812 0 R >> /ProcSet [ /PDF /Text ] >> @@ -31373,26 +19166,9 @@ stream % 376 0 obj << /D [1547 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1548 0 obj +% 1546 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1546 0 R /XYZ 98.895 753.953 null] ->> -% 380 0 obj -<< -/D [1546 0 R /XYZ 99.895 720.077 null] ->> -% 1549 0 obj -<< -/D [1546 0 R /XYZ 99.895 382.883 null] ->> -% 1545 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] >> @@ -31415,9 +19191,8 @@ stream % 1555 0 obj << /D [1551 0 R /XYZ 150.705 688.251 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1552 0 obj +% 1550 0 obj << /Font << /F8 585 0 R /F30 810 0 R >> /ProcSet [ /PDF /Text ] @@ -31425,15 +19200,6 @@ stream % 1558 0 obj << /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1553 0 R -/Resources 1551 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1537 0 R -/Annots [ 1550 0 R ] ->> -% 1550 0 obj -======= /Contents 1559 0 R /Resources 1557 0 R /MediaBox [0 0 595.276 841.89] @@ -31441,23 +19207,10 @@ stream /Annots [ 1556 0 R ] >> % 1556 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [345.53 495.239 412.588 506.364] -/A << /S /GoTo /D (descdata) >> ->> -% 1554 0 obj -<< -/D [1552 0 R /XYZ 149.705 753.953 null] ->> -% 384 0 obj -<< -/D [1552 0 R /XYZ 150.705 720.077 null] -======= /Rect [294.721 483.284 361.779 494.409] /A << /S /GoTo /D (descdata) >> >> @@ -31473,29 +19226,10 @@ stream << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1564 0 obj << -/D [1552 0 R /XYZ 150.705 259.346 null] ->> -% 1551 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1558 0 obj -<< /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1559 0 R -/Resources 1557 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1537 0 R -/Annots [ 1556 0 R ] ->> -% 1556 0 obj -======= /Contents 1565 0 R /Resources 1563 0 R /MediaBox [0 0 595.276 841.89] @@ -31503,31 +19237,10 @@ stream /Annots [ 1562 0 R ] >> % 1562 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [294.721 574.94 361.779 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1560 0 obj -<< -/D [1558 0 R /XYZ 98.895 753.953 null] ->> -% 388 0 obj -<< -/D [1558 0 R /XYZ 99.895 720.077 null] ->> -% 1561 0 obj -<< -/D [1558 0 R /XYZ 99.895 370.928 null] ->> -% 1562 0 obj -<< -/D [1558 0 R /XYZ 99.895 327.092 null] -======= /Rect [345.53 495.239 412.588 506.364] /A << /S /GoTo /D (descdata) >> >> @@ -31545,7 +19258,6 @@ endobj 1572 0 obj << /Length 4991 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -31635,49 +19347,14 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1567 0 obj -<< -/Length 3655 -======= 1578 0 obj << /Length 3263 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(get)]TJ -ET -q -1 0 0 1 194.695 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 198.729 706.129 Td [(o)31(v)31(erlap)-375(|)-375(Extract)-375(list)-375(of)-375(o)32(v)31(erlap)-375(elemen)31(ts)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(desc)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.21)-1125(psb)]TJ ET q @@ -31749,50 +19426,8 @@ BT [-500(This)-239(routine)-239(returns)-239(a)]TJ/F30 9.9626 Tf 108.787 0 Td [(.true.)]TJ/F8 9.9626 Tf 33.762 0 Td [(v)56(alue)-239(for)-239(an)-239(index)-239(that)-239(is)-239(lo)-27(cal)-239(to)-239(the)-239(curren)28(t)]TJ -129.819 -11.955 Td [(pro)-28(cess,)-333(including)-333(the)-334(halo)-333(indices)]TJ 0 g 0 G 139.477 -264.549 Td [(100)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 26.208 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -q -1 0 0 1 362.845 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 578.15 Td [(desc)]TJ -ET -q -1 0 0 1 387.532 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 390.67 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(o)32(vrel)]TJ -0 g 0 G -/F8 9.9626 Tf 29.59 0 Td [(The)-333(list)-334(of)-333(o)28(v)28(erlap)-334(elemen)28(ts)-333(on)-334(the)-333(calling)-333(pro)-28(cess,)-334(in)-333(lo)-28(cal)-333(n)28(um)28(b)-28(ering.)]TJ -4.684 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-457(with)-456(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)27(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -31.881 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(If)-343(there)-344(ar)1(e)-344(no)-343(o)28(v)28(erlap)-344(elemen)28(ts)-343(the)-343(output)-344(v)28(ector)-343(is)-343(set)-344(to)-343(the)-343(\134not)-343(allo-)]TJ 12.73 -11.955 Td [(cated")-333(state.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(Otherwise)-284(the)-284(size)-283(of)]TJ/F30 9.9626 Tf 105.262 0 Td [(ovrel)]TJ/F8 9.9626 Tf 28.978 0 Td [(will)-284(b)-27(e)-284(exactly)-284(equal)-284(to)-284(the)-283(n)27(u)1(m)27(b)-27(e)-1(r)-283(of)-284(o)28(v)28(erlap)]TJ -121.51 -11.955 Td [(elemen)28(ts.)]TJ -0 g 0 G - 139.477 -220.714 Td [(102)]TJ -======= endstream endobj @@ -31833,27 +19468,13 @@ BT 0 -19.925 Td [(x)]TJ 0 g 0 G /F8 9.9626 Tf 11.028 0 Td [(In)28(teger)-334(indices.)]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 -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,)-383(inout)]TJ/F8 9.9626 Tf 42.645 0 Td [(.)]TJ -76.131 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(scalar)-333(or)-334(a)-333(rank)-333(one)-333(in)27(teger)-333(arra)28(y)83(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1574 0 obj -<< -/Length 5784 ->> -stream -0 g 0 G -0 g 0 G -======= q 1 0 0 1 121.81 546.469 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf BT /F27 9.9626 Tf 125.247 546.27 Td [(a)]TJ 0 g 0 G @@ -31866,21 +19487,6 @@ q []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 124.986 706.129 Td [(sp)]TJ -ET -q -1 0 0 1 138.57 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 142.605 706.129 Td [(getro)31(w)-375(|)-375(Extract)-375(ro)31(w\050s\051)-375(from)-375(a)-375(sparse)-375(matrix)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -42.71 -18.647 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 -/F27 9.9626 Tf -73.225 -22.334 Td [(T)32(yp)-32(e:)]TJ -======= /F30 9.9626 Tf 315.174 498.449 Td [(desc)]TJ ET q @@ -31893,18 +19499,9 @@ BT /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -260.887 -19.925 Td [(iact)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 23.281 0 Td [(sp)-28(eci\014es)-333(action)-334(to)-333(b)-28(e)-333(tak)28(en)-334(in)-333(case)-333(of)-334(range)-333(errors.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 257.147 0 Td [(global)]TJ/F8 9.9626 Tf -255.521 -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.955 Td [(Sp)-28(eci\014ed)-255(as:)-405(a)-256(c)28(haracter)-255(v)56(ariable)]TJ/F30 9.9626 Tf 143.584 0 Td [(I)]TJ/F8 9.9626 Tf 5.23 0 Td [(gnore,)]TJ/F30 9.9626 Tf 29.293 0 Td [(W)]TJ/F8 9.9626 Tf 5.23 0 Td [(arning)-255(or)]TJ/F30 9.9626 Tf 41.67 0 Td [(A)]TJ/F8 9.9626 Tf 5.231 0 Td [(b)-28(ort,)-270(default)]TJ/F30 9.9626 Tf 56.741 0 Td [(I)]TJ/F8 9.9626 Tf 5.231 0 Td [(gnore.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -33.797 -20.479 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -20.479 Td [(ro)32(w)]TJ -0 g 0 G -/F8 9.9626 Tf 23.385 0 Td [(The)-333(\050\014rst\051)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 1.522 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -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(an)-333(in)28(teger)]TJ/F11 9.9626 Tf 104.691 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0.)]TJ -======= /F27 9.9626 Tf -317.117 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G @@ -31931,33 +19528,8 @@ endobj /Length 3846 >> stream ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -140.114 -20.479 Td [(a)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(from)-333(whic)28(h)-333(to)-334(get)-333(ro)28(ws.)]TJ 14.356 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 496.313 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 496.114 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 496.313 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 496.114 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -20.479 Td [(app)-32(end)]TJ -======= BT /F16 11.9552 Tf 150.705 706.129 Td [(6.23)-1125(psb)]TJ ET @@ -31979,32 +19551,12 @@ BT /F30 9.9626 Tf -37.36 -18.389 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 41.58 0 Td [(Whether)-333(to)-334(app)-27(end)-334(or)-333(o)28(v)28(erwrite)-334(existing)-333(output.)]TJ -16.673 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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(logical)-333(v)55(alue)-333(default:)-444(false)-334(\050o)28(v)28(erwrite\051.)]TJ +/F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G -/F27 9.9626 Tf -24.907 -20.479 Td [(nzin)]TJ -0 g 0 G -/F8 9.9626 Tf 25.986 0 Td [(Input)-333(size)-334(to)-333(b)-28(e)-333(app)-28(ended)-333(to.)]TJ -1.079 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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)-398(as:)-573(an)-398(in)28(teger)]TJ/F11 9.9626 Tf 107.907 0 Td [(>)]TJ/F8 9.9626 Tf 11.589 0 Td [(0.)-638(When)-398(app)-28(end)-398(i)1(s)-398(true,)-414(sp)-28(eci\014es)-398(ho)28(w)-398(man)27(y)]TJ -119.496 -11.955 Td [(en)28(tries)-334(in)-333(the)-333(output)-333(v)27(ectors)-333(are)-333(already)-334(\014lled.)]TJ -0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.907 -20.479 Td [(lrw)]TJ -0 g 0 G -/F8 9.9626 Tf 21.157 0 Td [(The)-333(last)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 3.75 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf -25.183 -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(an)-333(in)28(teger)]TJ/F11 9.9626 Tf 104.691 0 Td [(>)]TJ/F8 9.9626 Tf 10.516 0 Td [(0,)-333(default:)]TJ/F11 9.9626 Tf 48.43 0 Td [(r)-28(ow)]TJ/F8 9.9626 Tf 17.001 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -205.545 -22.334 Td [(On)-383(Return)]TJ +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G - 0 -20.479 Td [(nz)]TJ -0 g 0 G -/F8 9.9626 Tf 16.439 0 Td [(the)-333(n)28(um)27(b)-27(er)-334(of)-333(elemen)28(ts)-334(returned)-333(b)28(y)-334(th)1(is)-334(call.)]TJ 8.468 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -20.479 Td [(ia)]TJ -0 g 0 G -/F8 9.9626 Tf 13.734 0 Td [(the)-333(ro)28(w)-334(indices.)]TJ 11.173 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.611 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.854 0 Td [(attribute.)]TJ -0 g 0 G - -91.988 -29.887 Td [(103)]TJ -======= 0 -19.926 Td [(desc)]TJ 0 g 0 G /F8 9.9626 Tf 26.208 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ @@ -32047,32 +19599,19 @@ BT [-500(Otherwise)-288(the)-289(size)-288(of)]TJ/F30 9.9626 Tf 105.44 0 Td [(bndel)]TJ/F8 9.9626 Tf 29.024 0 Td [(will)-288(b)-28(e)-288(exactly)-288(e)-1(qu)1(al)-289(to)-288(the)-288(n)28(um)27(b)-27(er)-289(of)-288(b)-28(oun)1(d-)]TJ -121.734 -11.955 Td [(ary)-333(elemen)27(ts.)]TJ 0 g 0 G 139.477 -194.811 Td [(102)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1579 0 obj -<< -/Length 3712 -======= 1597 0 obj << /Length 3666 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf 150.705 706.129 Td [(ja)]TJ -0 g 0 G -/F8 9.9626 Tf 14.051 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(elemen)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.611 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.24)-1125(psb)]TJ ET q @@ -32088,68 +19627,23 @@ q Q BT /F16 11.9552 Tf 185.28 706.129 Td [(o)31(v)31(erlap)-375(|)-375(Extract)-375(list)-375(of)-375(o)32(v)31(erlap)-375(elemen)31(ts)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -256.372 -19.925 Td [(v)64(al)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 19.143 0 Td [(the)-333(elemen)27(ts)-333(to)-333(b)-28(e)-333(inse)-1(r)1(te)-1(d)1(.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(arra)28(y)-334(with)-333(the)]TJ/F30 9.9626 Tf 151.516 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.854 0 Td [(attribute.)]TJ -0 g 0 G -/F27 9.9626 Tf -237.276 -19.925 Td [(info)]TJ -======= /F30 9.9626 Tf -85.385 -18.389 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ 0 g 0 G /F27 9.9626 Tf 0 -21.918 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(t)1(e)-1(d.)]TJ/F16 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ +/F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)-368(output)]TJ/F11 9.9626 Tf 66.553 0 Td [(nz)]TJ/F8 9.9626 Tf 14.716 0 Td [(is)-368(alw)28(a)28(ys)-368(the)-368(size)-368(of)-368(the)-368(output)-368(generated)-367(b)27(y)-367(the)-368(curren)27(t)]TJ -68.539 -11.955 Td [(call;)-314(th)28(us,)-309(if)]TJ/F30 9.9626 Tf 54.124 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-310(the)-303(total)-304(output)-304(size)-304(will)-303(b)-28(e)]TJ/F11 9.9626 Tf 128.95 0 Td [(nz)-44(in)]TJ/F8 9.9626 Tf 22.088 0 Td [(+)]TJ/F11 9.9626 Tf 9.373 0 Td [(nz)]TJ/F8 9.9626 Tf 11.051 0 Td [(,)-310(with)]TJ -293.58 -11.955 Td [(the)-372(newly)-372(extracted)-372(co)-28(e\016cien)28(ts)-372(stored)-372(in)-372(en)28(tries)]TJ/F30 9.9626 Tf 216.307 0 Td [(nzin+1:nzin+nz)]TJ/F8 9.9626 Tf 76.93 0 Td [(of)-372(the)]TJ -293.237 -11.955 Td [(arra)28(y)-334(ar)1(gume)-1(n)28(ts;)]TJ -0 g 0 G - -12.73 -19.926 Td [(2.)]TJ -0 g 0 G - [-500(When)]TJ/F30 9.9626 Tf 41.788 0 Td [(append=.true.)]TJ/F8 9.9626 Tf 71.315 0 Td [(the)-333(output)-334(arra)28(ys)-333(are)-333(reallo)-28(cated)-334(as)-333(necessary;)]TJ -0 g 0 G - -113.103 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(The)-253(ro)28(w)-252(and)-253(column)-253(indices)-252(are)-253(returned)-252(in)-253(the)-253(lo)-27(cal)-253(n)28(um)28(b)-28(ering)-253(sc)28(heme;)-280(if)]TJ 12.73 -11.955 Td [(the)-222(global)-222(n)27(um)28(b)-28(erin)1(g)-223(is)-222(desired,)-244(the)-223(user)-222(ma)28(y)-222(emplo)27(y)-222(the)]TJ/F30 9.9626 Tf 243.172 0 Td [(psb_loc_to_glob)]TJ/F8 9.9626 Tf -243.172 -11.955 Td [(routine)-333(on)-334(the)-333(output.)]TJ -0 g 0 G - 139.477 -290.909 Td [(104)]TJ -======= /F27 9.9626 Tf -33.797 -19.926 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(desc)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 26.209 0 Td [(the)-333(comm)27(unication)-333(descriptor.)]TJ -1.302 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1589 0 obj -<< -/Length 4124 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(sizeof)-375(|)-375(Memory)-375(o)-31(ccupation)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-333(function)-334(computes)-333(the)-333(memory)-334(o)-28(ccupation)-333(of)-333(a)-333(PSBLAS)-334(ob)-55(ject.)]TJ -======= q 1 0 0 1 312.036 578.35 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S @@ -32163,52 +19657,18 @@ q Q BT /F30 9.9626 Tf 339.861 578.15 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F30 9.9626 Tf 0 -21.918 Td [(isz)-525(=)-525(psb_sizeof\050a\051)]TJ 0 -11.955 Td [(isz)-525(=)-525(psb_sizeof\050desc_a\051)]TJ 0 -11.956 Td [(isz)-525(=)-525(psb_sizeof\050prec\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ -======= /F27 9.9626 Tf -260.887 -21.917 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G 0 -19.926 Td [(o)32(vrel)]TJ 0 g 0 G /F8 9.9626 Tf 29.591 0 Td [(The)-333(list)-334(of)-333(o)28(v)28(erlap)-334(elemen)28(ts)-333(on)-334(the)-333(calling)-333(pro)-28(cess,)-333(in)-334(lo)-28(cal)-333(n)28(um)28(b)-28(ering.)]TJ -4.684 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Sp)-28(eci\014ed)-456(as:)-691(a)-457(rank)-456(one)-457(arra)28(y)-456(with)-457(the)-457(ALLOCA)84(T)83(ABLE)-456(attribute,)-488(of)]TJ 0 -11.955 Td [(t)28(yp)-28(e)-333(in)28(te)-1(ger.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -31.881 Td [(info)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(A)-333(sparse)-334(matrix)]TJ/F11 9.9626 Tf 73.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -66.342 -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.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 532.522 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 532.322 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 532.522 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 532.322 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -======= /F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ @@ -32220,18 +19680,8 @@ BT [-500(Otherwise)-284(the)-284(size)-283(of)]TJ/F30 9.9626 Tf 105.261 0 Td [(ovrel)]TJ/F8 9.9626 Tf 28.979 0 Td [(will)-284(b)-27(e)-284(exactly)-284(equal)-284(to)-284(th)1(e)-284(n)28(um)27(b)-27(er)-284(of)-284(o)28(v)28(erlap)]TJ -121.51 -11.955 Td [(elemen)28(ts.)]TJ 0 g 0 G 139.477 -220.714 Td [(103)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -271.348 -19.925 Td [(desc)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -q -1 0 0 1 121.81 512.596 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 512.397 Td [(a)]TJ -======= endstream endobj @@ -32241,27 +19691,8 @@ endobj >> stream 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(Comm)28(unication)-334(d)1(e)-1(scriptor)1(.)]TJ -10.996 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 464.776 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F30 9.9626 Tf 315.174 464.576 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 464.776 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 464.576 Td [(type)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.25)-1125(psb)]TJ ET q @@ -32277,48 +19708,14 @@ q Q BT /F16 11.9552 Tf 230.775 706.129 Td [(getro)31(w)-433(|)-433(E)-1(xtract)-433(ro)31(w\050s\051)-433(from)-434(a)-433(sparse)-433(ma-)]TJ -42.71 -13.948 Td [(trix)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -260.887 -19.925 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.88 -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(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ -ET -q -1 0 0 1 338.658 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 341.796 408.786 Td [(prec)]TJ -ET -q -1 0 0 1 363.345 408.985 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 366.483 408.786 Td [(type)]TJ -======= /F30 9.9626 Tf -37.36 -18.389 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 /F27 9.9626 Tf -73.225 -20.298 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ +/F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -287.51 -19.926 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.387 0 Td [(The)-332(memory)-331(o)-28(ccupation)-332(of)-331(the)-332(ob)-55(ject)-332(sp)-28(eci\014ed)-332(in)-331(the)-332(calling)]TJ -53.48 -11.955 Td [(sequence,)-333(in)-334(b)28(ytes.)]TJ 0 -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 [(Returned)-333(as:)-445(an)]TJ/F30 9.9626 Tf 73.834 0 Td [(integer\050psb_long_int_k_\051)]TJ/F8 9.9626 Tf 128.849 0 Td [(n)28(um)28(b)-28(er.)]TJ -0 g 0 G - -63.206 -242.632 Td [(105)]TJ -======= /F27 9.9626 Tf -33.797 -19.277 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G @@ -32327,47 +19724,11 @@ BT /F8 9.9626 Tf 23.384 0 Td [(The)-333(\050\014rst\051)-334(ro)28(w)-333(to)-334(b)-27(e)-334(extracted.)]TJ 1.523 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)]TJ/F11 9.9626 Tf 104.69 0 Td [(>)]TJ/F8 9.9626 Tf 10.517 0 Td [(0.)]TJ 0 g 0 G /F27 9.9626 Tf -140.114 -19.277 Td [(a)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(matrix)-334(from)-333(whic)28(h)-333(to)-334(get)-333(ro)28(ws.)]TJ 14.356 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.95 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf -25.183 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1593 0 obj -<< -/Length 5774 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(Sorting)-375(utilities)-375(|)]TJ 0 -19.593 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 686.736 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 686.536 Td [(msort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Merge-sort)-375(algorithm)]TJ -25.091 -12.601 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 674.134 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 673.935 Td [(qsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Quic)31(ksort)-375(algorithm)]TJ -25.091 -12.602 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 661.532 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 661.333 Td [(hsort)-375(|)-375(Sorting)-375(b)31(y)-375(the)-375(Heapsort)-375(algorithm)]TJ -======= q 1 0 0 1 362.845 488.266 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S @@ -32383,19 +19744,9 @@ BT /F30 9.9626 Tf 401.131 488.067 Td [(type)]TJ 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -271.347 -19.277 Td [(app)-32(end)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F30 9.9626 Tf -25.091 -22.511 Td [(call)-525(psb_msort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_qsort\050x,ix,dir,flag\051)]TJ 0 -11.955 Td [(call)-525(psb_hsort\050x,ix,dir,flag\051)]TJ/F8 9.9626 Tf 14.944 -21.865 Td [(These)-332(serial)-332(r)1(outines)-332(sort)-332(a)-332(sequence)]TJ/F11 9.9626 Tf 162.708 0 Td [(X)]TJ/F8 9.9626 Tf 12.34 0 Td [(in)28(to)-332(ascending)-332(or)-331(descending)-332(order.)]TJ -189.992 -11.955 Td [(The)-320(argumen)28(t)-321(meaning)-320(is)-320(iden)28(tical)-320(for)-320(the)-321(th)1(ree)-321(calls;)-324(the)-320(only)-321(di\013erence)-320(is)-320(the)]TJ 0 -11.955 Td [(algorithm)-333(used)-334(to)-333(accomplish)-333(the)-334(task)-333(\050see)-333(Us)-1(age)-333(Notes)-333(b)-28(elo)28(w\051.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.865 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 -22.511 Td [(On)-383(En)32(try)]TJ -======= /F8 9.9626 Tf 41.58 0 Td [(Whether)-333(to)-334(app)-27(end)-334(or)-333(o)28(v)28(erwrite)-334(existing)-333(output.)]TJ -16.674 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -27.951 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf -25.184 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(logical)-333(v)55(alue)-333(default:)-444(false)-334(\050o)28(v)28(erwrite\051.)]TJ 0 g 0 G /F27 9.9626 Tf -24.906 -19.277 Td [(nzin)]TJ @@ -32433,48 +19784,9 @@ stream 0 g 0 G BT /F27 9.9626 Tf 99.895 706.129 Td [(ja)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 14.052 0 Td [(the)-333(column)-334(indices)-333(of)-333(the)-334(elemen)28(ts)-333(to)-334(b)-27(e)-334(inserted.)]TJ 10.855 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)-333(with)-333(the)]TJ/F30 9.9626 Tf 170.61 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -22.511 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(to)-333(b)-28(e)-333(sorted.)]TJ 13.879 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ -0 g 0 G -/F8 9.9626 Tf 14.21 0 Td [(A)-333(v)27(ector)-333(of)-333(indices.)]TJ 10.697 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(arra)27(y)-333(of)-333(\050at)-333(leas)-1(t\051)-333(the)-333(same)-334(size)-333(as)]TJ/F11 9.9626 Tf 258.558 0 Td [(X)]TJ/F8 9.9626 Tf 9.036 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -292.501 -22.511 Td [(dir)]TJ -0 g 0 G -/F8 9.9626 Tf 19.247 0 Td [(The)-333(desired)-334(ordering.)]TJ 5.66 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -22.511 Td [(In)32(teger)-383(and)-384(real)-383(data:)]TJ -0 g 0 G -/F30 9.9626 Tf 114.396 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_sort_down_)]TJ/F8 9.9626 Tf 73.225 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)]TJ/F30 9.9626 Tf -306.868 -11.955 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.456 0 Td [(;)-333(default)]TJ/F30 9.9626 Tf 39.573 0 Td [(psb_sort_up_)]TJ/F8 9.9626 Tf 62.765 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -202.711 -17.233 Td [(Complex)-383(data:)]TJ -0 g 0 G -/F30 9.9626 Tf 78.337 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_lsort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(,)]TJ/F30 9.9626 Tf 5.202 0 Td [(psb_asort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(,)]TJ/F30 9.9626 Tf 5.203 0 Td [(psb_asort_down_)]TJ/F8 9.9626 Tf 78.455 0 Td [(;)]TJ -364.928 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.486 0 Td [(psb_lsort_up_)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -148.305 -22.511 Td [(\015ag)]TJ -0 g 0 G -/F8 9.9626 Tf 22.644 0 Td [(Whether)-333(to)-334(k)28(eep)-333(the)-334(origi)1(nal)-334(v)56(alues)-334(in)]TJ/F11 9.9626 Tf 170.583 0 Td [(I)-78(X)]TJ/F8 9.9626 Tf 14.197 0 Td [(.)]TJ -182.517 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(in)28(teger)-222(v)55(alue)]TJ/F30 9.9626 Tf 125.446 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 91.13 0 Td [(or)]TJ/F30 9.9626 Tf 11.097 0 Td [(psb_sort_keep_idx_)]TJ/F8 9.9626 Tf 94.146 0 Td [(;)]TJ -321.819 -11.955 Td [(default)]TJ/F30 9.9626 Tf 33.485 0 Td [(psb_sort_ovw_idx_)]TJ/F8 9.9626 Tf 88.916 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -147.308 -24.503 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -22.511 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(sequence)-334(of)-333(v)55(alu)1(e)-1(s,)-333(in)-333(the)-334(c)28(hosen)-333(ordering.)]TJ 13.879 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger,)-333(real)-334(or)-333(complex)-333(arra)27(y)-333(of)-333(rank)-333(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.511 Td [(ix)]TJ -0 g 0 G -/F8 9.9626 Tf 14.211 0 Td [(A)-333(v)28(e)-1(ctor)-333(of)-333(indices.)]TJ 10.696 -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 [(An)-332(in)27(teger)-332(arra)28(y)-333(of)-332(rank)-332(1,)-333(whose)-333(en)28(tries)-332(are)-333(mo)28(v)28(ed)-333(to)-332(the)-333(same)-332(p)-28(osition)]TJ 0 -11.955 Td [(as)-333(the)-334(corresp)-27(onding)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 136.958 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ -0 g 0 G - -3.175 -43.727 Td [(106)]TJ -======= /F27 9.9626 Tf -256.372 -19.925 Td [(v)64(al)]TJ 0 g 0 G /F8 9.9626 Tf 19.144 0 Td [(the)-333(elemen)27(ts)-333(to)-333(b)-28(e)-333(inserted.)]TJ 5.763 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -51.024 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(arra)28(y)-334(with)-333(the)]TJ/F30 9.9626 Tf 151.515 0 Td [(ALLOCATABLE)]TJ/F8 9.9626 Tf 60.855 0 Td [(attribute.)]TJ @@ -32496,123 +19808,19 @@ BT [-500(The)-253(ro)28(w)-252(and)-253(column)-253(ind)1(ic)-1(es)-252(are)-253(returned)-252(in)-253(the)-253(lo)-27(cal)-253(n)28(um)28(b)-28(ering)-253(sc)28(heme;)-280(if)]TJ 12.73 -11.955 Td [(the)-222(global)-222(n)27(um)28(b)-28(erin)1(g)-223(is)-222(desired,)-244(the)-223(user)-222(ma)28(y)-222(emplo)27(y)-222(the)]TJ/F30 9.9626 Tf 243.172 0 Td [(psb_loc_to_glob)]TJ/F8 9.9626 Tf -243.172 -11.955 Td [(routine)-333(on)-334(th)1(e)-334(output.)]TJ 0 g 0 G 139.477 -290.909 Td [(105)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1597 0 obj -<< -/Length 6995 -======= 1619 0 obj << /Length 4138 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(F)83(or)-466(in)28(tege)-1(r)-466(or)-467(real)-466(data)-467(the)-467(sorting)-466(can)-467(b)-28(e)-466(p)-28(erformed)-467(in)-466(the)-467(up/do)28(wn)]TJ 12.73 -11.956 Td [(direction,)-333(on)-334(th)1(e)-334(natural)-333(or)-333(absolute)-334(v)56(alues;)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(F)83(or)-397(complex)-398(data)-398(the)-397(sorting)-398(can)-398(b)-27(e)-398(done)-398(in)-397(a)-398(lexicographic)-398(order)-397(\050i.e.:)]TJ 12.73 -11.955 Td [(sort)-316(on)-316(the)-315(real)-316(part)-316(with)-316(ties)-316(br)1(ok)27(en)-316(accordin)1(g)-316(to)-316(the)-316(imaginary)-316(part\051)-315(or)]TJ 0 -11.955 Td [(on)-333(the)-334(absolute)-333(v)56(alues;)]TJ -0 g 0 G - -12.73 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(The)-257(routines)-258(retur)1(n)-258(the)-257(items)-257(in)-258(the)-257(c)28(hosen)-257(ordering;)-283(the)-257(output)-257(di\013erence)]TJ 12.73 -11.956 Td [(is)-259(the)-259(handling)-259(of)-259(ties)-259(\050i.e.)-419(items)-259(with)-259(an)-259(equal)-259(v)56(alue\051)-259(in)-259(the)-259(original)-259(input.)]TJ 0 -11.955 Td [(With)-493(the)-493(merge-sort)-493(algorithm)-493(ties)-493(are)-493(preserv)27(ed)-493(in)-493(the)-493(same)-493(relativ)28(e)]TJ 0 -11.955 Td [(order)-405(as)-406(they)-405(had)-406(in)-405(the)-405(original)-406(sequence,)-423(while)-406(this)-405(is)-406(not)-405(guaran)28(teed)]TJ 0 -11.955 Td [(for)-333(quic)28(ksort)-334(or)-333(heapsort;)]TJ -0 g 0 G - -12.73 -19.925 Td [(4.)]TJ -0 g 0 G - [-500(If)]TJ/F11 9.9626 Tf 21.889 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 22.262 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(psb)]TJ -ET -q -1 0 0 1 181.295 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 184.284 542.742 Td [(sor)-28(t)]TJ -ET -q -1 0 0 1 202.749 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 205.738 542.742 Td [(ov)-36(w)]TJ -ET -q -1 0 0 1 223.752 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 226.741 542.742 Td [(idx)]TJ -ET -q -1 0 0 1 241.65 542.941 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 247.157 542.742 Td [(then)-253(the)-252(en)27(tries)-252(in)]TJ/F11 9.9626 Tf 80.169 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\0501)-278(:)]TJ/F11 9.9626 Tf 17.158 0 Td [(n)]TJ/F8 9.9626 Tf 5.979 0 Td [(\051)-253(where)]TJ/F11 9.9626 Tf 34.398 0 Td [(n)]TJ/F8 9.9626 Tf 8.497 0 Td [(is)-253(the)-252(s)-1(i)1(z)-1(e)]TJ -277.682 -11.956 Td [(of)]TJ/F11 9.9626 Tf 11.91 0 Td [(x)]TJ/F8 9.9626 Tf 9.579 0 Td [(are)-390(initialized)-390(to)]TJ/F11 9.9626 Tf 76.44 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(\051)]TJ/F14 9.9626 Tf 7.581 0 Td [(\040)]TJ/F11 9.9626 Tf 13.67 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(;)-418(th)28(us,)-404(up)-28(on)-390(return)-390(from)-390(the)-390(subroutine,)]TJ -139.046 -11.955 Td [(for)-333(eac)28(h)-334(index)]TJ/F11 9.9626 Tf 64.505 0 Td [(i)]TJ/F8 9.9626 Tf 6.751 0 Td [(w)28(e)-334(ha)28(v)28(e)-333(in)]TJ/F11 9.9626 Tf 49.257 0 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(the)-333(p)-28(osition)-333(that)-334(th)1(e)-334(item)]TJ/F11 9.9626 Tf 123.751 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(\051)-333(o)-28(ccupied)]TJ -273.697 -11.955 Td [(in)-333(the)-334(original)-333(data)-333(sequence;)]TJ -0 g 0 G - -12.73 -19.925 Td [(5.)]TJ -0 g 0 G - [-500(If)]TJ/F11 9.9626 Tf 23.404 0 Td [(f)-108(l)-19(ag)]TJ/F8 9.9626 Tf 23.446 0 Td [(=)]TJ/F11 9.9626 Tf 11.701 0 Td [(psb)]TJ -ET -q -1 0 0 1 185.179 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 188.168 486.951 Td [(sor)-28(t)]TJ -ET -q -1 0 0 1 206.634 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 209.622 486.951 Td [(k)-32(eep)]TJ -ET -q -1 0 0 1 230.011 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F11 9.9626 Tf 232.999 486.951 Td [(idx)]TJ -ET -q -1 0 0 1 247.909 487.15 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 254.929 486.951 Td [(the)-405(routine)-404(will)-405(assume)-405(that)-404(the)-405(en)28(tries)-405(in)]TJ/F11 9.9626 Tf -130.127 -11.955 Td [(ix)]TJ/F8 9.9626 Tf 9.126 0 Td [(\050:\051)-333(ha)28(v)27(e)-333(already)-333(b)-28(een)-333(initialized)-334(b)28(y)-333(the)-334(user;)]TJ -0 g 0 G - -21.856 -19.926 Td [(6.)]TJ -0 g 0 G - [-500(The)-376(three)-375(sorting)-376(algorithms)-376(ha)28(v)28(e)-376(a)-375(s)-1(imilar)]TJ/F11 9.9626 Tf 208.295 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F8 9.9626 Tf 7.641 0 Td [(log)]TJ/F11 9.9626 Tf 14.528 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)-376(exp)-27(e)-1(cted)-375(running)]TJ -235.464 -11.955 Td [(time;)-349(in)-343(the)-344(a)28(v)28(erage)-344(case)-343(quic)27(ksort)-343(will)-344(b)-27(e)-344(the)-344(fastest)-343(and)-344(merge-sort)-343(the)]TJ 0 -11.955 Td [(slo)28(w)28(e)-1(st.)-444(Ho)28(w)28(e)-1(v)28(er)-333(note)-333(that:)]TJ -0 g 0 G - 4.206 -19.925 Td [(\050a\051)]TJ -0 g 0 G - [-500(The)-419(w)28(orst)-419(case)-419(runn)1(ing)-419(time)-419(for)-419(quic)28(ksort)-419(is)]TJ/F11 9.9626 Tf 221.059 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F7 6.9738 Tf 5.98 3.615 Td [(2)]TJ/F8 9.9626 Tf 4.47 -3.615 Td [(\051;)-461(the)-419(algorithm)]TJ -225.547 -11.955 Td [(implemen)28(ted)-319(here)-319(follo)28(ws)-319(the)-319(w)27(ell-kno)28(wn)-319(median-of-three)-319(heuristics,)]TJ 0 -11.956 Td [(but)-333(the)-334(w)28(orst)-333(case)-334(ma)28(y)-333(still)-334(ap)1(ply;)]TJ -0 g 0 G - -18.265 -15.94 Td [(\050b\051)]TJ -0 g 0 G - [-500(The)-222(w)28(orst)-223(case)-222(running)-222(time)-222(for)-222(m)-1(erge-sort)-222(and)-222(heap-sort)-222(is)]TJ/F11 9.9626 Tf 273.309 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(n)]TJ/F8 9.9626 Tf 7.64 0 Td [(log)]TJ/F11 9.9626 Tf 14.529 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)]TJ -294.943 -11.955 Td [(as)-333(the)-334(a)28(v)28(erage)-334(case;)]TJ -0 g 0 G - -17.158 -15.94 Td [(\050c\051)]TJ -0 g 0 G - [-500(The)-358(merge-sort)-358(algorithm)-357(is)-358(implemen)28(ted)-358(to)-358(tak)28(e)-358(adv)56(an)28(tage)-358(of)-358(sub-)]TJ 17.158 -11.955 Td [(sequences)-401(that)-400(ma)28(y)-401(b)-28(e)-400(already)-401(in)-400(the)-401(d)1(e)-1(sired)-400(ordering)-400(prior)-401(to)-400(the)]TJ 0 -11.956 Td [(subroutine)-246(call;)-275(this)-246(situation)-246(is)-247(relativ)28(ely)-246(common)-246(when)-246(dealing)-246(with)]TJ 0 -11.955 Td [(groups)-301(of)-301(indices)-301(of)-302(sparse)-301(matrix)-301(en)28(tries,)-308(th)28(us)-301(merge-sort)-301(is)-302(the)-301(pre-)]TJ 0 -11.955 Td [(ferred)-249(c)28(hoice)-249(when)-249(a)-249(sorting)-248(is)-249(needed)-249(b)28(y)-249(other)-249(routines)-249(in)-248(the)-249(library)83(.)]TJ -0 g 0 G - 117.559 -205.23 Td [(107)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(6.26)-1125(psb)]TJ ET q @@ -32713,31 +19921,19 @@ BT /F8 9.9626 Tf 78.386 0 Td [(The)-332(memory)-331(o)-28(ccupation)-332(of)-331(the)-332(ob)-55(jec)-1(t)-331(sp)-28(eci\014ed)-332(in)-331(the)-332(calling)]TJ -53.48 -11.955 Td [(sequence,)-333(in)-334(b)28(ytes.)]TJ 0 -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 [(Returned)-333(as:)-445(an)]TJ/F30 9.9626 Tf 73.835 0 Td [(integer\050psb_long_int_k_\051)]TJ/F8 9.9626 Tf 128.849 0 Td [(n)28(um)28(b)-28(er.)]TJ 0 g 0 G -63.207 -242.632 Td [(106)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1610 0 obj -<< -/Length 187 -======= 1623 0 obj << /Length 5773 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 14.3462 Tf 150.705 706.129 Td [(7)-1125(P)31(arallel)-375(en)32(v)-1(ironmen)32(t)-375(routines)]TJ -0 g 0 G -/F8 9.9626 Tf 164.383 -615.691 Td [(108)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(6.27)-1125(Sorting)-375(utilities)-375(|)]TJ 0 -19.593 Td [(psb)]TJ ET q @@ -32807,41 +20003,20 @@ BT /F8 9.9626 Tf 14.211 0 Td [(A)-333(v)27(ector)-333(of)-333(indices.)]TJ 10.696 -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 [(An)-332(in)27(teger)-332(arra)28(y)-333(of)-332(rank)-333(1,)-332(whose)-333(en)28(tries)-332(are)-333(mo)28(v)28(ed)-333(to)-332(the)-333(same)-332(p)-28(osition)]TJ 0 -11.955 Td [(as)-333(the)-334(corresp)-28(on)1(ding)-334(en)28(tries)-333(in)]TJ/F11 9.9626 Tf 136.959 0 Td [(x)]TJ/F8 9.9626 Tf 5.694 0 Td [(.)]TJ 0 g 0 G -3.176 -43.727 Td [(107)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1614 0 obj -<< -/Length 5567 -======= 1627 0 obj << /Length 6992 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(init)-375(|)-375(Initializes)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_init\050icontxt,)-525(np,)-525(basectxt,)-525(ids\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-294(subroutine)-294(initializes)-294(th)1(e)-294(PSBLAS)-294(parallel)-294(en)28(vironmen)28(t,)-302(de\014ning)-294(a)-294(vir-)]TJ -14.944 -11.955 Td [(tual)-333(parallel)-334(mac)28(hine.)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(Notes)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 12.176 -19.925 Td [(1.)]TJ 0 g 0 G @@ -32851,35 +20026,6 @@ BT 0 g 0 G [-500(F)83(or)-397(complex)-398(data)-398(the)-397(sorting)-398(can)-398(b)-27(e)-398(done)-398(in)-397(a)-398(lexicographic)-398(order)-397(\050i.e.:)]TJ 12.73 -11.955 Td [(sort)-316(on)-316(the)-315(real)-316(part)-316(with)-316(ties)-316(brok)28(en)-316(according)-315(to)-316(the)-316(imaginary)-316(part\051)-315(or)]TJ 0 -11.955 Td [(on)-333(the)-334(absolute)-333(v)56(alues;)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(np)]TJ -0 g 0 G -/F8 9.9626 Tf 17.712 0 Td [(Num)28(b)-28(er)-333(of)-334(pr)1(o)-28(cesses)-334(in)-333(the)-333(PSBLAS)-334(virtual)-333(parallel)-333(mac)27(h)1(ine.)]TJ 7.195 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue.)-778(Default)1(:)-445(use)-333(all)-334(a)28(v)56(ailable)-334(p)1(ro)-28(cesses)-1(.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(basectxt)]TJ -0 g 0 G -/F8 9.9626 Tf 46.736 0 Td [(the)-356(initial)-357(comm)28(unication)-356(con)28(text.)-514(The)-356(new)-357(con)28(text)-356(will)-357(b)-27(e)-357(de\014ned)]TJ -21.829 -11.955 Td [(from)-333(the)-334(pro)-27(cess)-1(es)-333(participating)-333(in)-333(the)-334(initial)-333(one.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue.)-778(Default)1(:)-445(use)-333(MPI)]TJ -ET -q -1 0 0 1 339.182 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 342.171 466.569 Td [(COMM)]TJ -ET -q -1 0 0 1 375.977 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 378.966 466.569 Td [(W)28(ORLD.)]TJ -0 g 0 G -/F27 9.9626 Tf -279.071 -19.925 Td [(ids)]TJ -0 g 0 G -/F8 9.9626 Tf 19.048 0 Td [(Iden)28(tities)-497(of)-497(the)-497(pro)-28(cesses)-497(to)-497(use)-497(for)-497(the)-498(n)1(e)-1(w)-497(con)28(text;)-579(the)-497(argumen)28(t)-497(is)]TJ 5.859 -11.956 Td [(ignored)-428(when)]TJ/F30 9.9626 Tf 63.346 0 Td [(np)]TJ/F8 9.9626 Tf 14.722 0 Td [(is)-428(not)-428(sp)-27(eci\014ed.)-728(This)-428(allo)28(ws)-428(the)-428(pro)-27(ce)-1(sses)-427(in)-428(the)-428(new)]TJ -78.068 -11.955 Td [(en)28(vironmen)28(t)-334(to)-333(b)-28(e)-333(in)-333(an)-334(order)-333(di\013eren)28(t)-334(fr)1(om)-334(the)-333(original)-333(one.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(arra)27(y)84(.)-778(Default:)-444(use)-334(the)-333(indices)-333(\0500)]TJ/F11 9.9626 Tf 254.158 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 26.49 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1\051.)]TJ -0 g 0 G -/F27 9.9626 Tf -315.518 -21.918 Td [(On)-383(Return)]TJ -======= -12.73 -19.925 Td [(3.)]TJ 0 g 0 G [-500(The)-257(routines)-258(return)-257(the)-257(items)-257(in)-258(the)-257(c)28(hosen)-258(or)1(dering;)-283(the)-257(output)-257(di\013erence)]TJ 12.73 -11.956 Td [(is)-259(the)-259(handling)-259(of)-259(ties)-259(\050i.e.)-419(items)-259(with)-259(an)-259(equal)-259(v)55(alu)1(e)-1(\051)-258(in)-259(the)-259(original)-259(input.)]TJ 0 -11.955 Td [(With)-493(the)-493(merge-sort)-493(algorithm)-493(ties)-493(are)-493(preserv)27(ed)-493(in)-493(the)-493(same)-493(relativ)28(e)]TJ 0 -11.955 Td [(order)-405(as)-406(they)-405(had)-406(in)-405(the)-406(or)1(iginal)-406(sequence,)-423(while)-406(this)-405(is)-406(not)-405(guaran)28(teed)]TJ 0 -11.955 Td [(for)-333(quic)28(ks)-1(or)1(t)-334(or)-333(heapsort;)]TJ @@ -32949,25 +20095,9 @@ BT /F8 9.9626 Tf 305.739 486.951 Td [(the)-405(routine)-404(will)-405(assume)-405(that)-404(the)-405(en)28(tries)-405(in)]TJ/F11 9.9626 Tf -130.128 -11.955 Td [(ix)]TJ/F8 9.9626 Tf 9.127 0 Td [(\050:\051)-333(ha)28(v)27(e)-333(already)-333(b)-28(een)-333(initialized)-334(b)28(y)-333(the)-333(use)-1(r;)]TJ 0 g 0 G -21.857 -19.926 Td [(6.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G [-500(The)-376(three)-375(sorting)-376(algorithms)-376(ha)28(v)28(e)-376(a)-376(similar)]TJ/F11 9.9626 Tf 208.295 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(n)]TJ/F8 9.9626 Tf 7.64 0 Td [(log)]TJ/F11 9.9626 Tf 14.529 0 Td [(n)]TJ/F8 9.9626 Tf 5.98 0 Td [(\051)-376(exp)-27(ec)-1(t)1(e)-1(d)-375(running)]TJ -235.465 -11.955 Td [(time;)-349(in)-343(the)-344(a)28(v)28(erage)-344(case)-344(qu)1(ic)27(ksort)-343(will)-344(b)-28(e)-343(the)-344(fastest)-343(and)-344(merge-sort)-343(the)]TJ 0 -11.955 Td [(slo)28(w)27(est.)-444(Ho)28(w)27(ev)28(er)-333(note)-333(that:)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-458(comm)28(unication)-457(con)27(text)-457(iden)28(tifying)-458(the)-457(virtual)-458(paral)1(le)-1(l)-457(mac)28(hine.)]TJ -15.082 -11.956 Td [(Note)-335(that)-335(this)-335(is)-336(alw)28(a)28(ys)-335(a)-335(duplicate)-335(of)]TJ/F30 9.9626 Tf 169.952 0 Td [(basectxt)]TJ/F8 9.9626 Tf 41.843 0 Td [(,)-336(so)-335(that)-335(library)-335(comm)28(u-)]TJ -211.795 -11.955 Td [(nications)-305(are)-305(completely)-305(s)-1(eparated)-305(from)-305(other)-305(comm)28(unication)-305(op)-28(erations.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(A)-333(call)-334(to)-333(this)-333(routine)-334(m)28(ust)-333(precede)-334(an)28(y)-333(other)-333(PSBLAS)-334(call.)]TJ -0 g 0 G - 0 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(It)-262(is)-262(an)-262(error)-262(to)-262(sp)-28(ecify)-262(a)-262(v)56(alue)-262(for)]TJ/F11 9.9626 Tf 159.869 0 Td [(np)]TJ/F8 9.9626 Tf 13.603 0 Td [(greater)-262(than)-262(the)-262(n)28(um)28(b)-28(er)-262(of)-262(pro)-28(cesses)]TJ -160.742 -11.955 Td [(a)28(v)55(ailable)-333(in)-333(the)-334(un)1(derlying)-334(base)-333(parallel)-333(en)27(vir)1(onme)-1(n)28(t.)]TJ -0 g 0 G - 139.477 -97.177 Td [(109)]TJ -======= 4.207 -19.925 Td [(\050a\051)]TJ 0 g 0 G [-500(The)-419(w)28(orst)-419(case)-419(run)1(ning)-419(time)-419(for)-419(qui)1(c)27(ksort)-418(is)]TJ/F11 9.9626 Tf 221.058 0 Td [(O)]TJ/F8 9.9626 Tf 7.876 0 Td [(\050)]TJ/F11 9.9626 Tf 3.875 0 Td [(n)]TJ/F7 6.9738 Tf 5.98 3.615 Td [(2)]TJ/F8 9.9626 Tf 4.469 -3.615 Td [(\051;)-461(the)-419(algorithm)]TJ -225.547 -11.955 Td [(implemen)28(ted)-319(here)-319(follo)28(ws)-319(the)-319(w)27(ell-kno)28(wn)-319(median-of-three)-319(heuristics,)]TJ 0 -11.956 Td [(but)-333(the)-334(w)28(orst)-333(case)-334(ma)28(y)-333(still)-334(app)1(ly;)]TJ @@ -32981,89 +20111,30 @@ BT [-500(The)-358(merge-sort)-358(algorithm)-357(is)-358(implemen)28(ted)-358(to)-358(tak)28(e)-358(adv)56(an)28(tage)-358(of)-358(sub-)]TJ 17.158 -11.955 Td [(sequences)-401(that)-400(ma)28(y)-401(b)-28(e)-400(already)-401(in)-400(the)-401(desired)-400(ordering)-400(prior)-401(to)-400(the)]TJ 0 -11.956 Td [(subroutine)-246(call;)-275(this)-246(situation)-246(is)-247(relativ)28(ely)-246(common)-246(when)-246(dealing)-246(with)]TJ 0 -11.955 Td [(groups)-301(of)-301(indices)-301(of)-302(sparse)-301(matrix)-301(en)28(tries,)-308(th)28(us)-301(merge-sort)-302(is)-301(the)-301(pre-)]TJ 0 -11.955 Td [(ferred)-249(c)28(hoice)-249(when)-249(a)-249(sorting)-248(is)-249(needed)-249(b)28(y)-249(other)-249(routines)-249(in)-249(t)1(he)-249(library)83(.)]TJ 0 g 0 G 117.559 -205.23 Td [(108)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1621 0 obj -<< -/Length 4639 -======= 1640 0 obj << /Length 182 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(info)-306(|)-307(Return)-306(information)-306(ab)-31(out)-307(PSBLAS)-306(parallel)-306(en-)]TJ -25.091 -13.948 Td [(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(psb_info\050icontxt,)-525(iam,)-525(np\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-456(subroutine)-456(returns)-456(in)1(formation)-456(ab)-28(out)-456(the)-456(PSBLAS)-456(p)1(arallel)-456(en)27(viron)1(-)]TJ -14.944 -11.955 Td [(men)28(t,)-334(de\014n)1(ing)-334(a)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.925 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(iam)]TJ -0 g 0 G -/F8 9.9626 Tf 23.281 0 Td [(Iden)28(ti\014er)-333(of)-334(curren)28(t)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-334(p)1(arallel)-334(mac)28(hine.)]TJ 1.626 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)]TJ/F14 9.9626 Tf 134.302 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1)]TJ/F14 9.9626 Tf 7.749 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1)]TJ -0 g 0 G -/F27 9.9626 Tf -239.12 -19.926 Td [(np)]TJ -0 g 0 G -/F8 9.9626 Tf 17.711 0 Td [(Num)28(b)-28(er)-333(of)-334(pro)-27(cess)-1(es)-333(in)-333(the)-334(PS)1(BL)-1(AS)-333(virtual)-333(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 7.196 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(F)83(or)-500(pro)-27(cess)-1(es)-500(in)-500(the)-500(vir)1(tual)-500(parallel)-500(mac)27(hine)-500(the)-500(iden)28(ti\014er)-500(will)-500(satisfy)]TJ 12.731 -11.955 Td [(0)]TJ/F14 9.9626 Tf 7.748 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(iam)]TJ/F14 9.9626 Tf 20.213 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.207 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1;)]TJ -0 g 0 G - -84.893 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(If)-432(the)-433(user)-432(has)-433(requested)-432(on)]TJ/F30 9.9626 Tf 143.131 0 Td [(psb_init)]TJ/F8 9.9626 Tf 46.15 0 Td [(a)-432(n)27(um)28(b)-28(er)-432(of)-432(pro)-28(cesses)-433(less)-432(than)]TJ -176.551 -11.955 Td [(the)-417(total)-416(a)28(v)55(ailable)-416(in)-417(the)-416(parallel)-417(execution)-416(en)28(vironmen)28(t,)-438(the)-416(remaining)]TJ 0 -11.955 Td [(pro)-28(cesses)-359(will)-359(ha)28(v)28(e)-359(on)-359(return)]TJ/F11 9.9626 Tf 130.487 0 Td [(iam)]TJ/F8 9.9626 Tf 20.638 0 Td [(=)]TJ/F14 9.9626 Tf 10.942 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-372(the)-359(only)-359(call)-359(i)1(n)27(v)28(olving)]TJ/F30 9.9626 Tf 112.377 0 Td [(icontxt)]TJ/F8 9.9626 Tf -282.192 -11.956 Td [(that)-333(an)28(y)-334(suc)28(h)-333(pro)-28(cess)-334(ma)28(y)-333(execute)-334(is)-333(to)]TJ/F30 9.9626 Tf 177.086 0 Td [(psb_exit)]TJ/F8 9.9626 Tf 41.842 0 Td [(.)]TJ -0 g 0 G - -79.452 -174.885 Td [(110)]TJ -======= /F16 14.3462 Tf 99.895 706.129 Td [(7)-1125(P)31(arallel)-375(en)31(vironmen)32(t)-375(routines)]TJ 0 g 0 G /F8 9.9626 Tf 164.384 -615.691 Td [(109)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1627 0 obj -<< -/Length 4356 -======= 1645 0 obj << /Length 5584 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -33076,74 +20147,30 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 124.986 706.129 Td [(exit)-375(|)-375(Exit)-375(from)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_exit\050icontxt\051)]TJ 0 -11.956 Td [(call)-525(psb_exit\050icontxt,close\051)]TJ/F8 9.9626 Tf 14.944 -21.917 Td [(This)-333(subroutine)-334(exits)-333(from)-333(the)-334(PSBLAS)-333(parallel)-333(virtual)-333(mac)27(hine.)]TJ -======= /F16 11.9552 Tf 206.431 706.129 Td [(init)-375(|)-375(Initializes)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_init\050icontxt,)-525(np,)-525(basectxt,)-525(ids\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-294(subroutine)-294(initial)1(iz)-1(es)-293(the)-294(PSBLAS)-294(parallel)-294(en)28(vironmen)28(t,)-302(de\014ning)-294(a)-294(vir-)]TJ -14.944 -11.955 Td [(tual)-333(parallel)-334(mac)28(hine.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ +/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(close)]TJ -0 g 0 G -/F8 9.9626 Tf 28.755 0 Td [(Whether)-401(to)-401(clos)-1(e)-401(all)-401(data)-401(structures)-401(relate)-1(d)-401(to)-401(the)-401(virtual)-401(parallel)-401(m)-1(a-)]TJ -3.848 -11.955 Td [(c)28(hine,)-334(b)-27(esides)-334(those)-333(asso)-28(ciated)-333(with)-334(icon)28(txt.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(logical)-333(v)55(ariable,)-333(default)-333(v)55(alu)1(e)-1(:)-444(true.)]TJ/F16 11.9552 Tf -24.907 -19.925 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ -0 g 0 G - [-500(This)-241(routine)-241(ma)28(y)-241(b)-28(e)-241(called)-241(ev)28(en)-241(if)-241(a)-241(previous)-241(call)-241(to)]TJ/F30 9.9626 Tf 233.305 0 Td [(psb_info)]TJ/F8 9.9626 Tf 44.244 0 Td [(has)-241(returned)]TJ -264.819 -11.955 Td [(with)]TJ/F11 9.9626 Tf 22.963 0 Td [(iam)]TJ/F8 9.9626 Tf 20.662 0 Td [(=)]TJ/F14 9.9626 Tf 10.966 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-374(indeed,)-367(it)-360(it)-361(is)-360(the)-361(only)-360(routine)-360(that)-361(ma)28(y)-360(b)-28(e)-361(called)-360(with)]TJ -62.34 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.583 0 Td [(icontxt)]TJ/F8 9.9626 Tf 39.933 0 Td [(in)-333(this)-334(situation.)]TJ -0 g 0 G - -97.246 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(A)-305(call)-306(to)-305(this)-305(routine)-305(with)]TJ/F30 9.9626 Tf 128.752 0 Td [(close=.true.)]TJ/F8 9.9626 Tf 65.806 0 Td [(implies)-305(a)-306(call)-305(to)]TJ/F30 9.9626 Tf 71.445 0 Td [(MPI_Finalize)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ -316.037 -11.956 Td [(after)-333(whic)27(h)-333(no)-333(parallel)-333(routine)-334(ma)28(y)-333(b)-28(e)-333(called.)]TJ -0 g 0 G - -12.73 -19.925 Td [(3.)]TJ -0 g 0 G - [-500(If)-391(the)-390(user)-391(whishes)-391(to)-390(use)-391(m)28(ultiple)-391(comm)28(unication)-391(con)28(texts)-391(in)-390(the)-391(same)]TJ 12.73 -11.955 Td [(program,)-485(or)-455(to)-455(en)28(ter)-455(and)-454(e)-1(xi)1(t)-455(m)27(ul)1(tiple)-455(times)-455(in)28(to)-455(the)-455(parallel)-455(en)28(viron-)]TJ 0 -11.955 Td [(men)28(t,)-494(this)-462(routine)-462(ma)28(y)-462(b)-28(e)-462(called)-462(to)-462(selectiv)28(ely)-462(close)-463(th)1(e)-462(c)-1(on)28(texts)-462(with)]TJ/F30 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-244(while)-223(on)-222(the)-222(last)-222(call)-223(it)-222(should)-222(b)-28(e)-222(called)-222(with)]TJ/F30 9.9626 Tf 194.328 0 Td [(close=.true.)]TJ/F8 9.9626 Tf -262.322 -11.955 Td [(to)-333(sh)27(utd)1(o)27(wn)-333(in)-333(a)-334(clean)-333(w)28(a)28(y)-334(the)-333(en)28(tire)-334(parallel)-333(en)28(vironmen)28(t.)]TJ -0 g 0 G - 139.477 -212.744 Td [(111)]TJ -======= 0 -19.925 Td [(np)]TJ 0 g 0 G /F8 9.9626 Tf 17.711 0 Td [(Num)28(b)-28(er)-333(of)-334(pro)-27(cess)-1(es)-333(in)-333(the)-334(P)1(SBLA)-1(S)-333(virtual)-333(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 7.196 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-778(Defau)1(lt:)-445(use)-333(all)-334(a)28(v)56(ailable)-333(pro)-28(cesses.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(basectxt)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 46.736 0 Td [(the)-356(initial)-357(comm)28(unication)-356(con)28(text.)-514(The)-356(new)-357(con)28(text)-356(will)-357(b)-27(e)-357(de\014ned)]TJ -21.829 -11.955 Td [(from)-333(the)-334(pro)-27(cesse)-1(s)-333(participating)-333(in)-333(the)-334(initial)-333(one.)]TJ 0 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-778(Defau)1(lt:)-445(use)-333(MPI)]TJ ET -<<<<<<< HEAD:docs/psblas-3.6.pdf - -endstream -endobj -1634 0 obj -<< -/Length 2160 ->> -stream -0 g 0 G -0 g 0 G -======= q 1 0 0 1 389.991 466.768 cm []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf BT /F8 9.9626 Tf 392.98 466.569 Td [(COMM)]TJ ET @@ -33152,25 +20179,6 @@ q []0 d 0 J 0.398 w 0 0 m 2.989 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(get)]TJ -ET -q -1 0 0 1 194.695 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 198.729 706.129 Td [(mpicomm)-375(|)-375(Get)-375(the)-375(MPI)-375(comm)31(unicator)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -48.024 -18.389 Td [(call)-525(psb_get_mpicomm\050icontxt,)-525(icomm\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-335(subroutine)-335(returns)-335(the)-336(M)1(PI)-336(comm)28(unicator)-335(asso)-28(ciated)-335(with)-335(a)-335(PSBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 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 -19.925 Td [(On)-383(En)32(try)]TJ -======= /F8 9.9626 Tf 429.775 466.569 Td [(W)28(ORLD.)]TJ 0 g 0 G /F27 9.9626 Tf -279.07 -19.925 Td [(ids)]TJ @@ -33178,23 +20186,10 @@ BT /F8 9.9626 Tf 19.048 0 Td [(Iden)28(tities)-497(of)-497(the)-497(pro)-28(cesses)-497(to)-497(use)-497(for)-497(the)-497(new)-498(con)28(text;)-579(the)-497(argumen)28(t)-497(is)]TJ 5.858 -11.956 Td [(ignored)-428(when)]TJ/F30 9.9626 Tf 63.346 0 Td [(np)]TJ/F8 9.9626 Tf 14.723 0 Td [(is)-428(not)-428(sp)-27(eci\014ed.)-728(This)-428(allo)28(ws)-428(the)-428(pro)-27(ces)-1(ses)-427(in)-428(the)-428(new)]TJ -78.069 -11.955 Td [(en)28(vironmen)28(t)-334(to)-333(b)-28(e)-333(in)-333(an)-334(order)-333(di\013eren)28(t)-334(from)-333(the)-333(original)-333(one.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)84(.)-778(Default:)-444(use)-334(the)-333(indices)-333(\0500)]TJ/F11 9.9626 Tf 254.159 0 Td [(:)-167(:)-166(:)-167(np)]TJ/F14 9.9626 Tf 26.489 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1\051.)]TJ 0 g 0 G /F27 9.9626 Tf -315.517 -21.918 Td [(On)-383(Return)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icomm)]TJ -0 g 0 G -/F8 9.9626 Tf 38.079 0 Td [(The)-377(MPI)-378(comm)28(unicator)-378(asso)-27(ciated)-378(with)-377(the)-378(PSBLAS)-377(virtual)-377(parallel)]TJ -13.172 -11.955 Td [(mac)28(hine.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -0 g 0 G - 89.442 -366.168 Td [(112)]TJ -======= /F8 9.9626 Tf 39.989 0 Td [(the)-457(c)-1(omm)28(unication)-457(con)28(te)-1(x)1(t)-458(iden)28(tifying)-458(the)-457(virtual)-458(p)1(arallel)-458(mac)28(hine.)]TJ -15.083 -11.956 Td [(Note)-335(that)-335(this)-335(is)-336(alw)28(a)28(ys)-335(a)-335(duplicate)-335(of)]TJ/F30 9.9626 Tf 169.953 0 Td [(basectxt)]TJ/F8 9.9626 Tf 41.843 0 Td [(,)-336(so)-335(that)-335(library)-335(comm)28(u-)]TJ -211.796 -11.955 Td [(nications)-305(are)-305(completely)-306(separated)-305(from)-305(other)-305(comm)28(unication)-305(op)-28(erations.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable.)]TJ/F16 11.9552 Tf -24.906 -21.917 Td [(Notes)]TJ 0 g 0 G /F8 9.9626 Tf 12.176 -19.926 Td [(1.)]TJ @@ -33206,21 +20201,14 @@ BT [-500(It)-262(is)-262(an)-262(error)-262(to)-262(sp)-28(ecify)-262(a)-262(v)56(alue)-262(for)]TJ/F11 9.9626 Tf 159.87 0 Td [(np)]TJ/F8 9.9626 Tf 13.602 0 Td [(greater)-262(than)-262(the)-262(n)28(um)28(b)-28(er)-262(of)-262(pro)-28(cesses)]TJ -160.742 -11.955 Td [(a)28(v)55(ailable)-333(in)-333(the)-334(und)1(e)-1(r)1(lying)-334(base)-333(parallel)-333(en)27(viron)1(m)-1(en)28(t.)]TJ 0 g 0 G 139.477 -97.177 Td [(110)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1638 0 obj -<< -/Length 3020 -======= 1651 0 obj << /Length 4667 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -33233,28 +20221,12 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 124.986 706.129 Td [(get)]TJ -ET -q -1 0 0 1 143.885 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 147.92 706.129 Td [(rank)-375(|)-375(Get)-375(the)-375(MPI)-375(rank)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -48.025 -18.389 Td [(call)-525(psb_get_rank\050rank,)-525(icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(return)1(s)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(pro)-27(cess)]TJ/F11 9.9626 Tf 274.665 0 Td [(id)]TJ -0 g 0 G -/F27 9.9626 Tf -289.609 -19.926 Td [(T)32(yp)-32(e:)]TJ -======= /F16 11.9552 Tf 155.621 706.129 Td [(info)-453(|)-453(Return)-453(information)-453(ab)-31(out)-453(PSBLAS)-453(par-)]TJ -25.091 -13.948 Td [(allel)-375(en)31(vironmen)31(t)]TJ 0 g 0 G 0 g 0 G /F30 9.9626 Tf -30.635 -18.389 Td [(call)-525(psb_info\050icontxt,)-525(iam,)-525(np\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-456(subroutine)-456(returns)-456(inf)1(orma)-1(t)1(ion)-456(ab)-28(out)-456(the)-456(PSBLAS)-456(paral)1(le)-1(l)-455(en)27(viron-)]TJ -14.944 -11.955 Td [(men)28(t,)-334(de\014nin)1(g)-334(a)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.925 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G @@ -33265,20 +20237,6 @@ BT 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.907 -19.925 Td [(id)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Iden)28(ti\014er)-333(of)-334(a)-333(pro)-28(cess)-333(in)-334(the)-333(PSBLAS)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ 10.378 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(alue.)-444(0)]TJ/F14 9.9626 Tf 142.051 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(id)]TJ/F14 9.9626 Tf 11.385 0 Td [(\024)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1)]TJ -0 g 0 G -/F27 9.9626 Tf -222.544 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(rank)]TJ -0 g 0 G -/F8 9.9626 Tf 27.681 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.618 0 Td [(.)]TJ -241.64 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -0 g 0 G - 89.442 -322.333 Td [(113)]TJ -======= /F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G @@ -33299,21 +20257,14 @@ BT [-500(If)-432(the)-433(user)-432(has)-433(requested)-432(on)]TJ/F30 9.9626 Tf 143.13 0 Td [(psb_init)]TJ/F8 9.9626 Tf 46.151 0 Td [(a)-432(n)27(um)28(b)-28(er)-432(of)-432(pro)-28(cesses)-433(less)-432(than)]TJ -176.551 -11.955 Td [(the)-417(total)-416(a)28(v)55(ailable)-416(in)-417(the)-416(parallel)-417(execution)-416(en)28(vironmen)28(t,)-438(the)-416(remaining)]TJ 0 -11.955 Td [(pro)-28(cesses)-359(will)-359(ha)28(v)28(e)-359(on)-359(return)]TJ/F11 9.9626 Tf 130.486 0 Td [(iam)]TJ/F8 9.9626 Tf 20.639 0 Td [(=)]TJ/F14 9.9626 Tf 10.941 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-372(the)-359(only)-359(call)-359(in)28(v)28(olving)]TJ/F30 9.9626 Tf 112.377 0 Td [(icontxt)]TJ/F8 9.9626 Tf -282.192 -11.956 Td [(that)-333(an)28(y)-334(suc)28(h)-333(pro)-28(cess)-334(ma)28(y)-333(execute)-334(is)-333(to)]TJ/F30 9.9626 Tf 177.086 0 Td [(psb_exit)]TJ/F8 9.9626 Tf 41.843 0 Td [(.)]TJ 0 g 0 G -79.452 -174.885 Td [(111)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1642 0 obj -<< -/Length 1202 -======= 1657 0 obj << /Length 4365 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G @@ -33326,35 +20277,6 @@ q []0 d 0 J 0.398 w 0 0 m 4.035 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 175.796 706.129 Td [(wtime)-375(|)-375(W)94(all)-375(clo)-31(c)31(k)-375(timing)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(time)-525(=)-525(psb_wtime\050\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-474(fun)1(c)-1(ti)1(o)-1(n)-473(returns)-474(a)-473(w)28(all)-474(clo)-28(c)28(k)-474(timer.)-865(The)-474(resolution)-473(of)-474(the)-473(timer)-474(is)]TJ -14.944 -11.955 Td [(dep)-28(enden)28(t)-333(on)-334(th)1(e)-334(underlying)-333(parallel)-333(en)28(vironmen)27(t)-333(implemen)28(tation.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 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 -19.925 Td [(On)-383(Exit)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(F)96(unction)-384(v)64(alue)]TJ -0 g 0 G -/F8 9.9626 Tf 78.386 0 Td [(the)-333(elapsed)-334(time)-333(in)-333(sec)-1(on)1(ds.)]TJ -53.479 -11.955 Td [(Returned)-333(as:)-445(a)]TJ/F30 9.9626 Tf 68.299 0 Td [(real\050psb_dpk_\051)]TJ/F8 9.9626 Tf 76.546 0 Td [(v)56(ariable.)]TJ -0 g 0 G - -5.369 -491.698 Td [(114)]TJ -0 g 0 G -ET - -endstream -endobj -1646 0 obj -<< -/Length 1484 ->> -stream -======= /F16 11.9552 Tf 206.431 706.129 Td [(exit)-375(|)-375(Exit)-375(from)-375(PSBLAS)-375(parallel)-375(en)31(vironmen)31(t)]TJ 0 g 0 G 0 g 0 G @@ -33378,37 +20300,9 @@ stream /F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G [-500(This)-241(routine)-241(ma)28(y)-241(b)-28(e)-241(called)-241(ev)28(en)-241(if)-241(a)-241(previous)-241(call)-241(to)]TJ/F30 9.9626 Tf 233.304 0 Td [(psb_info)]TJ/F8 9.9626 Tf 44.244 0 Td [(has)-241(returned)]TJ -264.818 -11.955 Td [(with)]TJ/F11 9.9626 Tf 22.962 0 Td [(iam)]TJ/F8 9.9626 Tf 20.663 0 Td [(=)]TJ/F14 9.9626 Tf 10.966 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1;)-374(indeed,)-367(it)-360(it)-361(is)-360(the)-361(only)-360(routine)-360(that)-361(ma)28(y)-360(b)-28(e)-361(called)-360(with)]TJ -62.34 -11.955 Td [(argumen)28(t)]TJ/F30 9.9626 Tf 44.583 0 Td [(icontxt)]TJ/F8 9.9626 Tf 39.933 0 Td [(in)-333(this)-334(situation)1(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -97.246 -19.925 Td [(2.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(barrier)-375(|)-375(Sinc)31(hronization)-375(p)-31(oin)31(t)-375(parallel)-375(en)32(vironmen)31(t)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_barrier\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-398(subroutine)-397(ac)-1(t)1(s)-398(as)-398(an)-398(explicit)-398(sync)28(hronization)-397(p)-28(oin)28(t)-398(for)-398(the)-398(PSBLAS)]TJ -14.944 -11.955 Td [(parallel)-333(virtual)-333(m)-1(ac)28(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G - 139.477 -455.832 Td [(115)]TJ -======= [-500(A)-305(call)-306(to)-305(this)-305(routine)-305(with)]TJ/F30 9.9626 Tf 128.752 0 Td [(close=.true.)]TJ/F8 9.9626 Tf 65.806 0 Td [(implies)-305(a)-306(call)-305(to)]TJ/F30 9.9626 Tf 71.445 0 Td [(MPI_Finalize)]TJ/F8 9.9626 Tf 62.764 0 Td [(,)]TJ -316.037 -11.956 Td [(after)-333(whic)28(h)-334(no)-333(parallel)-333(routine)-334(ma)28(y)-333(b)-28(e)-333(called.)]TJ 0 g 0 G -12.73 -19.925 Td [(3.)]TJ @@ -33416,41 +20310,18 @@ BT [-500(If)-391(the)-390(user)-391(whishes)-391(to)-390(use)-391(m)28(ultiple)-391(comm)28(unication)-391(con)28(texts)-391(in)-390(the)-391(same)]TJ 12.73 -11.955 Td [(program,)-485(or)-455(to)-455(en)28(ter)-455(and)-454(exit)-455(m)27(u)1(ltiple)-455(times)-455(in)28(to)-455(the)-455(parallel)-455(en)28(viron-)]TJ 0 -11.955 Td [(men)28(t,)-494(this)-462(routine)-462(ma)28(y)-462(b)-28(e)-462(called)-462(to)-462(selectiv)28(ely)-462(close)-462(the)-462(con)27(texts)-462(with)]TJ/F30 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F8 9.9626 Tf 67.994 0 Td [(,)-244(while)-223(on)-222(the)-222(last)-222(call)-223(it)-222(should)-222(b)-28(e)-222(called)-222(with)]TJ/F30 9.9626 Tf 194.327 0 Td [(close=.true.)]TJ/F8 9.9626 Tf -262.321 -11.955 Td [(to)-333(sh)27(u)1(tdo)27(wn)-333(in)-333(a)-334(clean)-333(w)28(a)28(y)-334(the)-333(en)28(tire)-334(parallel)-333(en)28(vironmen)28(t.)]TJ 0 g 0 G 139.477 -212.744 Td [(112)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1651 0 obj -<< -/Length 1357 -======= 1664 0 obj << /Length 2621 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(ab)-31(ort)-375(|)-375(Ab)-31(ort)-375(a)-375(computation)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_abort\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(ab)-27(orts)-334(computation)-333(on)-333(the)-334(p)1(arallel)-334(virtual)-333(mac)28(hine.)]TJ -0 g 0 G -/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ -======= BT /F16 11.9552 Tf 99.895 706.129 Td [(7.4)-1125(psb)]TJ ET @@ -33479,7 +20350,6 @@ BT /F30 9.9626 Tf -105.918 -18.389 Td [(icomm)-525(=)-525(psb_get_mpi_comm\050icontxt\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-450(function)-451(retu)1(rns)-451(the)-450(MPI)-450(comm)27(uni)1(c)-1(ator)-450(asso)-28(ciated)-450(with)-450(a)-451(PSBLAS)]TJ -14.944 -11.955 Td [(con)28(text)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ 0 g 0 G @@ -33488,11 +20358,6 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G - 139.476 -467.787 Td [(116)]TJ -======= /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ @@ -33503,104 +20368,19 @@ BT /F8 9.9626 Tf 78.387 0 Td [(The)-314(MPI)-314(comm)28(unicator)-314(ass)-1(o)-27(ciated)-314(with)-314(the)-315(PS)1(B)-1(LAS)-314(vir)1(tual)]TJ -53.48 -11.955 Td [(parallel)-333(mac)27(hin)1(e)-1(.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.942 -33.873 Td [(Notes)]TJ/F8 9.9626 Tf 37.587 0 Td [(The)-369(subroutine)-368(v)27(ersion)]TJ/F30 9.9626 Tf 104.726 0 Td [(psb_get_mpicomm)]TJ/F8 9.9626 Tf 82.129 0 Td [(is)-369(still)-369(a)28(v)56(ailable)-369(but)-369(is)-368(dep-)]TJ -224.442 -11.955 Td [(recated.)]TJ 0 g 0 G 164.384 -320.34 Td [(113)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1655 0 obj -<< -/Length 4552 -======= 1668 0 obj << /Length 3470 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(b)-31(cast)-375(|)-375(Broadcast)-375(data)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_bcast\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-338(subroutine)-338(impleme)-1(n)28(ts)-338(a)-338(broadcast)-339(op)-27(eration)-338(base)-1(d)-338(on)-338(the)-338(underlying)]TJ -14.944 -11.955 Td [(comm)28(unication)-334(libr)1(ary)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(the)-334(ro)-27(ot)-334(pro)-27(ce)-1(ss,)-333(the)-333(data)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-403(a)-403(rank)-404(1)-403(or)-403(2)-403(arra)28(y)83(,)-421(or)-403(a)-403(c)28(haracter)-404(or)-403(logical)-403(v)56(ariable,)-421(whic)28(h)-403(ma)27(y)-403(b)-28(e)]TJ 0 -11.955 Td [(a)-427(scalar)-426(or)-427(ran)1(k)-427(1)-426(arra)27(y)84(.)-1151(T)28(yp)-28(e,)-450(ki)1(nd,)-450(rank)-427(and)-426(size)-427(m)28(ust)-426(agree)-427(on)-426(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Ro)-28(ot)-333(pro)-28(cess)-333(holding)-334(d)1(ata)-334(to)-333(b)-28(e)-333(broadcast.)]TJ -1.024 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.544 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(0)]TJ -0 g 0 G -/F27 9.9626 Tf -243.577 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(pro)-28(cesses)-334(oth)1(e)-1(r)-333(than)-333(ro)-28(ot,)-333(the)-333(data)-334(to)-333(b)-28(e)-333(broadcast.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-346(a)-346(rank)-347(1)-346(or)-346(2)-346(arra)28(y)83(,)-349(or)-347(a)-346(c)28(haracter)-346(or)-347(l)1(ogic)-1(al)-346(scalar.)-829(T)28(yp)-28(e,)-350(k)1(ind,)-350(rank)]TJ 0 -11.956 Td [(and)-333(size)-334(m)28(ust)-333(agree)-334(on)-333(all)-333(pro)-28(cesses.)]TJ -0 g 0 G - 139.477 -170.9 Td [(117)]TJ -0 g 0 G -ET - -endstream -endobj -1659 0 obj -<< -/Length 5199 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(sum)-375(|)-375(Global)-375(sum)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_sum\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-318(subroutine)-319(impl)1(e)-1(men)28(ts)-318(a)-318(s)-1(u)1(m)-319(reduction)-318(op)-28(eration)-318(based)-318(on)-319(the)-318(under-)]TJ -14.944 -11.955 Td [(lying)-333(comm)27(un)1(ic)-1(ati)1(on)-334(library)84(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(7.5)-1125(psb)]TJ ET q @@ -33623,32 +20403,8 @@ q Q BT /F16 11.9552 Tf 256.622 706.129 Td [(rank)-375(|)-375(Get)-375(the)-375(MPI)-375(rank)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(sum.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-310(to)-309(hold)-310(the)-310(\014nal)-310(sum,)-314(or)]TJ/F14 9.9626 Tf 144.053 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-310(to)-310(mak)28(e)-310(it)-309(a)27(v)56(ailable)-310(on)-310(al)1(l)-310(pro)-28(cesses.)]TJ -152.825 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.325 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G 0 g 0 G - 0 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(pr)1(o)-28(cess\050es)-1(\051,)-333(the)-333(result)-333(of)-334(the)-333(sum)-333(op)-28(eration.)]TJ 3.536 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(o)-1(r)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-333(2)-334(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.011 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G - 99.987 -109.132 Td [(118)]TJ -======= /F30 9.9626 Tf -105.917 -18.389 Td [(rank)-525(=)-525(psb_get_mpi_rank\050icontxt,)-525(id\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(function)-334(r)1(e)-1(tu)1(rns)-334(the)-333(MPI)-333(rank)-334(of)-333(the)-333(PSBLAS)-334(p)1(ro)-28(cess)]TJ/F11 9.9626 Tf 264.342 0 Td [(id)]TJ 0 g 0 G /F27 9.9626 Tf -279.286 -19.926 Td [(T)32(yp)-32(e:)]TJ @@ -33674,75 +20430,19 @@ BT /F8 9.9626 Tf 78.386 0 Td [(The)-333(MPI)-334(rank)-333(asso)-28(ciated)-333(with)-333(the)-334(PSBLAS)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 230.248 0 Td [(id)]TJ/F8 9.9626 Tf 8.618 0 Td [(.)]TJ -292.346 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ/F16 11.9552 Tf -74.941 -33.873 Td [(Notes)]TJ/F8 9.9626 Tf 38.323 0 Td [(The)-443(subroutine)-442(v)28(ersion)]TJ/F30 9.9626 Tf 106.934 0 Td [(psb_get_rank)]TJ/F8 9.9626 Tf 67.174 0 Td [(is)-443(still)-442(a)27(v)56(ailable)-443(but)-442(is)-443(depre-)]TJ -212.431 -11.956 Td [(cated.)]TJ 0 g 0 G 164.383 -276.504 Td [(114)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1665 0 obj -<< -/Length 5151 -======= 1672 0 obj << /Length 1191 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(max)-375(|)-375(Global)-375(maxim)31(um)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_max\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-326(subroutine)-326(implemen)28(ts)-326(a)-326(maxim)27(um)-326(v)56(aluereduction)-326(op)-28(eration)-326(based)-326(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(maxim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-28(e,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cess)-1(es.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-305(to)-306(hold)-305(the)-305(\014nal)-305(maxim)27(um,)-311(or)]TJ/F14 9.9626 Tf 169.157 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-305(to)-306(mak)28(e)-305(it)-306(a)28(v)56(ailable)-306(on)-305(all)-305(pro-)]TJ -177.93 -11.956 Td [(cesses.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -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)-326(as)-1(:)-441(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-327(scalar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-28(e,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cess)-1(es.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G - 99.986 -109.132 Td [(119)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(7.6)-1125(psb)]TJ ET q @@ -33767,116 +20467,11 @@ BT /F8 9.9626 Tf 78.387 0 Td [(the)-333(elapsed)-334(time)-333(in)-333(seconds.)]TJ -53.48 -11.955 Td [(Returned)-333(as:)-445(a)]TJ/F30 9.9626 Tf 68.3 0 Td [(real\050psb_dpk_\051)]TJ/F8 9.9626 Tf 76.545 0 Td [(v)56(ariable.)]TJ 0 g 0 G -5.368 -491.698 Td [(115)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1563 0 obj -<< -/Type /ObjStm -/N 100 -/First 972 -/Length 9436 ->> -stream -1557 0 1566 106 1564 245 1568 390 392 449 1569 507 1570 566 1565 625 1573 731 1571 870 -1575 1015 396 1073 1572 1130 1578 1249 1580 1367 1581 1426 1582 1485 1583 1544 1577 1603 1588 1722 -1584 1879 1585 2024 1586 2171 1590 2316 400 2374 1587 2431 1592 2550 1594 2668 405 2727 1591 2785 -1596 2904 1598 3022 1599 3080 1600 3138 1601 3196 1602 3254 1603 3312 1604 3370 1605 3427 1606 3485 -1607 3543 1595 3601 1609 3719 1611 3837 409 3896 1608 3954 1613 4034 1615 4152 413 4210 1616 4267 -1617 4325 1612 4383 1620 4515 1622 4633 417 4692 1623 4750 1624 4808 1619 4867 1626 4999 1628 5117 -421 5175 1629 5232 1630 5290 1631 5348 1625 5406 1633 5538 1635 5656 425 5715 1632 5773 1637 5879 -1639 5997 429 6055 1636 6112 1641 6244 1643 6362 433 6421 1640 6479 1645 6585 1647 6703 437 6761 -1644 6818 1650 6924 1652 7042 441 7101 1649 7159 1654 7265 1656 7383 445 7441 1653 7498 1658 7630 -1660 7748 449 7807 1661 7865 1662 7924 1657 7983 1664 8115 1666 8233 453 8291 1667 8348 1668 8406 -% 1557 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1566 0 obj -<< -/Type /Page -/Contents 1567 0 R -/Resources 1565 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1537 0 R -/Annots [ 1564 0 R ] ->> -% 1564 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 574.94 412.588 586.065] -/A << /S /GoTo /D (descdata) >> ->> -% 1568 0 obj -<< -/D [1566 0 R /XYZ 149.705 753.953 null] ->> -% 392 0 obj -<< -/D [1566 0 R /XYZ 150.705 720.077 null] ->> -% 1569 0 obj -<< -/D [1566 0 R /XYZ 150.705 370.928 null] ->> -% 1570 0 obj -<< -/D [1566 0 R /XYZ 150.705 339.047 null] ->> -% 1565 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1573 0 obj -<< -/Type /Page -/Contents 1574 0 R -/Resources 1572 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1576 0 R -/Annots [ 1571 0 R ] ->> -% 1571 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 492.904 372.239 504.029] -/A << /S /GoTo /D (spdata) >> ->> -% 1575 0 obj -<< -/D [1573 0 R /XYZ 98.895 753.953 null] ->> -% 396 0 obj -<< -/D [1573 0 R /XYZ 99.895 720.077 null] ->> -% 1572 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1578 0 obj -<< -/Type /Page -/Contents 1579 0 R -/Resources 1577 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1576 0 R ->> -% 1580 0 obj -<< -/D [1578 0 R /XYZ 149.705 753.953 null] -======= 1568 0 obj << /Type /ObjStm @@ -33954,25 +20549,9 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [345.53 495.239 412.588 506.364] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1581 0 obj +% 1579 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1578 0 R /XYZ 150.705 496.913 null] ->> -% 1582 0 obj -<< -/D [1578 0 R /XYZ 150.705 439.185 null] ->> -% 1583 0 obj -<< -/D [1578 0 R /XYZ 150.705 418.983 null] ->> -% 1577 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F16 570 0 R /F11 770 0 R >> -======= /D [1577 0 R /XYZ 149.705 753.953 null] >> % 392 0 obj @@ -33986,27 +20565,14 @@ stream % 1576 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1588 0 obj +% 1583 0 obj << /Type /Page -/Contents 1589 0 R -/Resources 1587 0 R +/Contents 1584 0 R +/Resources 1582 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1576 0 R -/Annots [ 1584 0 R 1585 0 R 1586 0 R ] ->> -% 1584 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 529.112 372.239 540.237] -/A << /S /GoTo /D (spdata) >> -======= /Parent 1561 0 R /Annots [ 1581 0 R ] >> @@ -34029,25 +20595,9 @@ stream % 1586 0 obj << /D [1583 0 R /XYZ 99.895 259.346 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1585 0 obj +% 1582 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 461.366 361.779 472.491] -/A << /S /GoTo /D (descdata) >> ->> -% 1586 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [321.343 405.575 388.401 416.7] -/A << /S /GoTo /D (precdata) >> -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] >> @@ -34059,17 +20609,9 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1561 0 R /Annots [ 1587 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1587 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1588 0 R /XYZ 98.895 753.953 null] ->> -% 400 0 obj -<< -/D [1588 0 R /XYZ 99.895 720.077 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -34079,30 +20621,9 @@ stream % 1591 0 obj << /D [1589 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 400 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R /F27 572 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1592 0 obj -<< -/Type /Page -/Contents 1593 0 R -/Resources 1591 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1576 0 R ->> -% 1594 0 obj -<< -/D [1592 0 R /XYZ 149.705 753.953 null] ->> -% 405 0 obj -<< -/D [1592 0 R /XYZ 150.705 720.077 null] -======= /D [1589 0 R /XYZ 150.705 716.092 null] >> % 1592 0 obj @@ -34112,15 +20633,10 @@ stream % 1593 0 obj << /D [1589 0 R /XYZ 150.705 313.144 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1588 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R >> -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1596 0 obj @@ -34129,9 +20645,6 @@ stream /Contents 1597 0 R /Resources 1595 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1576 0 R -======= /Parent 1601 0 R /Annots [ 1594 0 R ] >> @@ -34142,13 +20655,10 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [294.721 574.94 361.779 586.065] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1598 0 obj << /D [1596 0 R /XYZ 98.895 753.953 null] -<<<<<<< HEAD:docs/psblas-3.6.pdf -======= >> % 405 0 obj << @@ -34161,85 +20671,44 @@ stream % 1600 0 obj << /D [1596 0 R /XYZ 99.895 339.047 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1599 0 obj +% 1595 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 702.144 null] -======= /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1604 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 668.326 null] -======= /Type /Page /Contents 1605 0 R /Resources 1603 0 R /MediaBox [0 0 595.276 841.89] /Parent 1601 0 R /Annots [ 1602 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1601 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 624.491 null] >> % 1602 0 obj << -/D [1596 0 R /XYZ 99.895 556.745 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [345.53 484.857 423.049 495.982] /A << /S /GoTo /D (spdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1606 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 500.954 null] -======= /D [1604 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 409 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 468.52 null] ->> -% 1605 0 obj -<< -/D [1596 0 R /XYZ 99.895 425.182 null] -======= /D [1604 0 R /XYZ 150.705 716.092 null] >> % 1603 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F27 584 0 R /F8 585 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1608 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1596 0 R /XYZ 99.895 383.395 null] ->> -% 1607 0 obj -<< -/D [1596 0 R /XYZ 99.895 355.499 null] ->> -% 1595 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R /F7 785 0 R >> -/ProcSet [ /PDF /Text ] -======= /Type /Page /Contents 1609 0 R /Resources 1607 0 R @@ -34253,38 +20722,9 @@ stream % 1611 0 obj << /D [1608 0 R /XYZ 99.895 496.913 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1612 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1610 0 R -/Resources 1608 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1576 0 R ->> -% 1611 0 obj -<< -/D [1609 0 R /XYZ 149.705 753.953 null] ->> -% 409 0 obj -<< -/D [1609 0 R /XYZ 150.705 716.092 null] ->> -% 1608 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1613 0 obj -<< -/Type /Page -/Contents 1614 0 R -/Resources 1612 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1618 0 R -======= /D [1608 0 R /XYZ 99.895 439.185 null] >> % 1613 0 obj @@ -34304,74 +20744,25 @@ stream /MediaBox [0 0 595.276 841.89] /Parent 1601 0 R /Annots [ 1614 0 R 1615 0 R 1616 0 R ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1615 0 obj +% 1614 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1613 0 R /XYZ 98.895 753.953 null] ->> -% 413 0 obj -<< -/D [1613 0 R /XYZ 99.895 720.077 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [345.53 529.112 423.049 540.237] /A << /S /GoTo /D (spdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1616 0 obj +% 1615 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1613 0 R /XYZ 99.895 235.436 null] -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] /Rect [345.53 461.366 412.588 472.491] /A << /S /GoTo /D (descdata) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1617 0 obj +% 1616 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1613 0 R /XYZ 99.895 213.573 null] ->> -% 1612 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1620 0 obj -<< -/Type /Page -/Contents 1621 0 R -/Resources 1619 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1618 0 R ->> -% 1622 0 obj -<< -/D [1620 0 R /XYZ 149.705 753.953 null] ->> -% 417 0 obj -<< -/D [1620 0 R /XYZ 150.705 720.077 null] ->> -% 1623 0 obj -<< -/D [1620 0 R /XYZ 150.705 349.01 null] ->> -% 1624 0 obj -<< -/D [1620 0 R /XYZ 150.705 315.192 null] ->> -% 1619 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -======= /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] @@ -34410,7 +20801,6 @@ stream % 1621 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F11 796 0 R /F27 584 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1626 0 obj @@ -34419,66 +20809,22 @@ stream /Contents 1627 0 R /Resources 1625 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1618 0 R +/Parent 1601 0 R >> % 1628 0 obj << -/D [1626 0 R /XYZ 98.895 753.953 null] ->> -% 421 0 obj -<< -/D [1626 0 R /XYZ 99.895 720.077 null] -======= -/Parent 1601 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +/D [1626 0 R /XYZ 149.705 753.953 null] >> % 1629 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1626 0 R /XYZ 99.895 442.659 null] -======= -/D [1626 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1630 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1626 0 R /XYZ 99.895 396.886 null] ->> -% 1631 0 obj -<< -/D [1626 0 R /XYZ 99.895 365.005 null] ->> -% 1625 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] -======= /D [1626 0 R /XYZ 150.705 702.144 null] >> % 1630 0 obj << /D [1626 0 R /XYZ 150.705 668.326 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1633 0 obj +% 1631 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1634 0 R -/Resources 1632 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1618 0 R ->> -% 1635 0 obj -<< -/D [1633 0 R /XYZ 149.705 753.953 null] ->> -% 425 0 obj -<< -/D [1633 0 R /XYZ 150.705 720.077 null] -======= /D [1626 0 R /XYZ 150.705 624.491 null] >> % 1632 0 obj @@ -34488,107 +20834,55 @@ stream % 1633 0 obj << /D [1626 0 R /XYZ 150.705 500.954 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1632 0 obj +% 1634 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] -======= /D [1626 0 R /XYZ 150.705 468.52 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1637 0 obj +% 1635 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1638 0 R -/Resources 1636 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1618 0 R -======= /D [1626 0 R /XYZ 150.705 425.182 null] >> % 1636 0 obj << /D [1626 0 R /XYZ 150.705 383.395 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1639 0 obj +% 1637 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1637 0 R /XYZ 98.895 753.953 null] ->> -% 429 0 obj -<< -/D [1637 0 R /XYZ 99.895 720.077 null] -======= /D [1626 0 R /XYZ 150.705 355.499 null] >> % 1625 0 obj << /Font << /F16 582 0 R /F8 585 0 R /F11 796 0 R /F14 813 0 R /F7 811 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1636 0 obj +% 1639 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F11 770 0 R /F27 572 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] -======= /Type /Page /Contents 1640 0 R /Resources 1638 0 R /MediaBox [0 0 595.276 841.89] /Parent 1642 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1641 0 obj << -/Type /Page -/Contents 1642 0 R -/Resources 1640 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1618 0 R +/D [1639 0 R /XYZ 98.895 753.953 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 1643 0 obj -<< -/D [1641 0 R /XYZ 149.705 753.953 null] ->> -% 433 0 obj -<< -/D [1641 0 R /XYZ 150.705 720.077 null] -======= % 421 0 obj << /D [1639 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1640 0 obj +% 1638 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> -======= /Font << /F16 582 0 R /F8 585 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1645 0 obj +% 1644 0 obj << /Type /Page -/Contents 1646 0 R -/Resources 1644 0 R +/Contents 1645 0 R +/Resources 1643 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1648 0 R ->> -% 1647 0 obj -<< -/D [1645 0 R /XYZ 98.895 753.953 null] -======= /Parent 1642 0 R >> % 1646 0 obj @@ -34598,27 +20892,18 @@ stream % 425 0 obj << /D [1644 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 437 0 obj +% 1647 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1645 0 R /XYZ 99.895 720.077 null] -======= /D [1644 0 R /XYZ 150.705 235.436 null] >> % 1648 0 obj << /D [1644 0 R /XYZ 150.705 213.573 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1644 0 obj +% 1643 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> -======= /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F11 796 0 R /F14 813 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1650 0 obj @@ -34627,54 +20912,18 @@ stream /Contents 1651 0 R /Resources 1649 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1648 0 R ->> -% 1652 0 obj -<< -/D [1650 0 R /XYZ 149.705 753.953 null] ->> -% 441 0 obj -<< -/D [1650 0 R /XYZ 150.705 720.077 null] -======= /Parent 1642 0 R >> % 1652 0 obj << /D [1650 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 429 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R >> -/ProcSet [ /PDF /Text ] -======= /D [1650 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1654 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1655 0 R -/Resources 1653 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1648 0 R ->> -% 1656 0 obj -<< -/D [1654 0 R /XYZ 98.895 753.953 null] ->> -% 445 0 obj -<< -/D [1654 0 R /XYZ 99.895 720.077 null] >> % 1653 0 obj << -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -======= /D [1650 0 R /XYZ 99.895 349.01 null] >> % 1654 0 obj @@ -34684,7 +20933,6 @@ stream % 1649 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1656 0 obj @@ -34693,9 +20941,6 @@ stream /Contents 1657 0 R /Resources 1655 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1648 0 R -======= /Parent 1642 0 R >> % 1658 0 obj @@ -34709,34 +20954,17 @@ stream % 1659 0 obj << /D [1656 0 R /XYZ 150.705 442.659 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1660 0 obj << /D [1656 0 R /XYZ 150.705 396.886 null] >> -% 449 0 obj -<< -/D [1658 0 R /XYZ 150.705 720.077 null] ->> % 1661 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1658 0 R /XYZ 150.705 247.391 null] -======= /D [1656 0 R /XYZ 150.705 365.005 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1655 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1658 0 R /XYZ 150.705 213.573 null] ->> -% 1657 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] -======= /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F11 796 0 R /F14 813 0 R >> /ProcSet [ /PDF /Text ] >> @@ -34747,33 +20975,9 @@ stream /Resources 1662 0 R /MediaBox [0 0 595.276 841.89] /Parent 1642 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1664 0 obj +% 1665 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1665 0 R -/Resources 1663 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1648 0 R ->> -% 1666 0 obj -<< -/D [1664 0 R /XYZ 98.895 753.953 null] ->> -% 453 0 obj -<< -/D [1664 0 R /XYZ 99.895 720.077 null] ->> -% 1667 0 obj -<< -/D [1664 0 R /XYZ 99.895 247.391 null] ->> -% 1668 0 obj -<< -/D [1664 0 R /XYZ 99.895 213.573 null] -======= /D [1663 0 R /XYZ 98.895 753.953 null] >> % 437 0 obj @@ -34813,38 +21017,17 @@ stream /Resources 1670 0 R /MediaBox [0 0 595.276 841.89] /Parent 1674 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1672 0 obj -<< -/Length 5183 -======= 1678 0 obj << /Length 1511 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(min)-375(|)-375(Global)-375(minim)31(um)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_min\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-311(subroutine)-312(implemen)28(ts)-311(a)-312(minim)28(um)-311(v)55(alue)-311(reduction)-312(op)-27(eration)-312(based)-311(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ -======= BT /F16 11.9552 Tf 150.705 706.129 Td [(7.7)-1125(psb)]TJ ET @@ -34931,7 +21114,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -55.726 -18.389 Td [(call)-525(psb_bcast\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-338(subroutine)-338(implemen)27(ts)-338(a)-338(broadcast)-338(op)-28(eration)-338(based)-339(on)-338(the)-338(underlying)]TJ -14.944 -11.955 Td [(comm)28(unication)-334(lib)1(rary)83(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -34941,35 +21123,6 @@ BT 0 g 0 G 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(minim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as:)-442(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)-778(T)28(yp)-27(e)-1(,)-333(kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(cesse)-1(s.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-276(v)56(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(pr)1(o)-28(cesses)-1(.)]TJ -155.183 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.427 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.749 0 Td [(<)]TJ/F8 9.9626 Tf 7.748 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1,)-333(default)-334(-1.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-326(as:)-442(an)-326(in)27(teger)-326(or)-327(real)-327(v)56(ariable,)-328(whic)28(h)-327(ma)28(y)-327(b)-28(e)-327(a)-326(s)-1(calar,)-328(or)-326(a)-327(rank)]TJ 0 -11.955 Td [(1)-333(or)-334(2)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.011 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - -12.73 -19.925 Td [(2.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 33.208 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-334(ma)28(y)-333(also)-334(b)-27(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ -0 g 0 G - 99.987 -109.132 Td [(120)]TJ -======= 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G @@ -35049,37 +21202,19 @@ BT [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G 99.986 -109.132 Td [(119)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -1678 0 obj +1696 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Length 5239 -======= /Length 5196 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(amx)-375(|)-375(Global)-375(maxim)31(um)-375(absolute)-375(v)63(alue)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_amx\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-312(subroutine)-312(implemen)28(ts)-313(a)-312(maxim)28(um)-312(absolute)-312(v)55(alue)-312(reduction)-312(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(7.11)-1125(psb)]TJ ET q @@ -35091,7 +21226,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_max\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-326(subroutine)-326(implemen)28(ts)-326(a)-326(maxim)27(um)-326(v)56(aluereduction)-326(op)-28(eration)-326(based)-326(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -35101,10 +21235,6 @@ BT 0 g 0 G 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -======= 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G @@ -35142,17 +21272,8 @@ endobj /Length 5171 >> stream ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(maxim)28(um.)]TJ 3.536 -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.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-275(v)55(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(p)1(ro)-28(cesses.)]TJ -155.184 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ -======= BT /F16 11.9552 Tf 99.895 706.129 Td [(7.12)-1125(psb)]TJ ET @@ -35162,28 +21283,17 @@ q Q BT /F16 11.9552 Tf 162.346 706.129 Td [(min)-375(|)-375(Global)-375(minim)31(um)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F27 9.9626 Tf -251.325 -33.873 Td [(On)-383(Return)]TJ 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_min\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-311(subroutine)-312(implemen)28(ts)-311(a)-312(minim)28(um)-312(v)56(alue)-311(reduction)-312(op)-27(eration)-312(based)-311(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(rank)-463(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind,)-496(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.956 Td [(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ -======= /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.955 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -======= 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ @@ -35207,48 +21317,24 @@ BT 0 g 0 G [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -12.73 -19.925 Td [(2.)]TJ 0 g 0 G [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 99.986 -97.177 Td [(121)]TJ -======= 99.986 -109.132 Td [(121)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1685 0 obj -<< -/Length 5273 -======= 1709 0 obj << /Length 5288 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(amn)-375(|)-375(Global)-375(minim)31(um)-375(absolute)-375(v)63(alue)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_amn\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-336(subroutine)-337(implemen)28(ts)-337(a)-336(minim)28(um)-337(absolute)-336(v)55(al)1(ue)-337(reduction)-336(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(7.13)-1125(psb)]TJ ET q @@ -35260,7 +21346,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_amx\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-312(subroutine)-312(implemen)28(ts)-313(a)-312(maxim)28(um)-312(absolute)-312(v)55(alue)-312(reduction)-312(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -35275,11 +21360,7 @@ BT 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(minim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ -======= /F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-333(c)-1(on)28(tribution)-333(to)-333(the)-334(gl)1(obal)-334(maxim)28(um.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.955 Td [(pro)-28(cesses.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(ro)-32(ot)]TJ 0 g 0 G @@ -35290,11 +21371,7 @@ BT 0 g 0 G 0 -19.926 Td [(dat)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(minim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-333(a)-334(rank)-333(1)-333(or)-333(2)-334(arra)28(y)83(.)]TJ 0 -11.956 Td [(T)28(yp)-28(e,)-333(kind,)-333(rank)-334(and)-333(size)-333(m)27(ust)-333(agree)-333(on)-334(all)-333(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ -======= /F8 9.9626 Tf 21.371 0 Td [(On)-333(destination)-334(p)1(ro)-28(cess\050es)-1(\051)1(,)-334(the)-333(result)-333(of)-334(the)-333(maxim)28(um)-334(op)-27(eration.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-464(a)-464(ran)1(k)-464(1)-464(or)-464(2)-464(arra)28(y)83(.)-1299(T)28(yp)-28(e,)-497(kind)1(,)-497(rank)-464(and)-463(size)-464(m)27(ust)-463(agree)-464(on)-464(all)]TJ 0 -11.956 Td [(pro)-28(cesses.)]TJ/F16 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 12.177 -19.926 Td [(1.)]TJ 0 g 0 G @@ -35310,35 +21387,14 @@ ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1691 0 obj -<< -/Length 6213 -======= 1715 0 obj << /Length 5259 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(nrm2)-375(|)-375(Global)-375(2-norm)-375(reduction)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_nrm2\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -19.794 Td [(This)-425(subroutine)-426(imp)1(le)-1(men)28(ts)-425(a)-425(2-norm)-426(v)56(alue)-425(reduction)-426(op)-27(eration)-426(based)-425(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-334(comm)28(unication)-333(library)83(.)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -18.226 Td [(T)32(yp)-32(e:)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(7.14)-1125(psb)]TJ ET q @@ -35352,54 +21408,12 @@ BT /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_amn\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-336(s)-1(u)1(broutine)-337(implemen)28(ts)-337(a)-336(minim)28(um)-337(absolute)-336(v)55(alue)-336(reduction)-336(op)-28(eration)]TJ -14.944 -11.955 Td [(based)-333(on)-334(the)-333(underlying)-333(comm)28(unication)-334(library)84(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -19.926 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G -/F27 9.9626 Tf -33.797 -19.076 Td [(On)-383(En)32(try)]TJ +/F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.076 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.076 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(lo)-28(cal)-334(con)28(tribution)-333(to)-333(the)-334(global)-333(minim)28(um.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-421(as:)-619(a)-421(real)-421(v)55(ariable,)-443(whic)28(h)-421(ma)28(y)-421(b)-28(e)-421(a)-421(scalar,)-443(or)-421(a)-420(rank)-421(1)-421(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ce)-1(sses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.075 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.931 0 Td [(Pro)-28(cess)-276(to)-276(hold)-276(the)-276(\014nal)-275(v)55(alue,)-287(or)]TJ/F14 9.9626 Tf 146.411 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)-276(to)-276(mak)28(e)-276(it)-276(a)28(v)55(ailable)-276(on)-276(all)-276(p)1(ro)-28(cesses.)]TJ -155.184 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -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 [(.)]TJ -70.188 -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(an)-333(in)28(teger)-333(v)55(alue)]TJ/F14 9.9626 Tf 130.428 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1)]TJ/F11 9.9626 Tf 7.748 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(r)-28(oot)-278(<)]TJ/F8 9.9626 Tf 28.543 0 Td [(=)]TJ/F11 9.9626 Tf 10.517 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.962 0 Td [(1,)-333(default)-334(-1.)]TJ -0 g 0 G -/F27 9.9626 Tf -251.325 -31.749 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.076 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.372 0 Td [(On)-333(destination)-333(pro)-28(cess\050es\051,)-334(the)-333(result)-333(of)-334(the)-333(2-norm)-333(reduction.)]TJ 3.535 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -71.51 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(real)-333(v)55(ariable,)-333(whic)28(h)-333(ma)27(y)-333(b)-28(e)-333(a)-333(sc)-1(alar)1(,)-334(or)-333(a)-333(rank)-334(1)-333(arra)28(y)83(.)]TJ 0 -11.955 Td [(Kind,)-333(rank)-333(and)-334(size)-333(m)28(ust)-334(agree)-333(on)-333(all)-334(pro)-27(ce)-1(sses.)]TJ/F16 11.9552 Tf -24.907 -19.794 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -18.226 Td [(1.)]TJ -0 g 0 G - [-500(This)-416(reduction)-416(is)-416(appropriate)-416(to)-416(compute)-416(the)-417(results)-416(of)-416(m)28(ultiple)-416(\050lo)-28(cal\051)]TJ 12.73 -11.955 Td [(NRM2)-333(op)-28(erations)-333(at)-334(the)-333(same)-334(ti)1(m)-1(e.)]TJ -0 g 0 G - -12.73 -19.076 Td [(2.)]TJ -0 g 0 G - [-500(Denoting)-283(b)28(y)]TJ/F11 9.9626 Tf 68.601 0 Td [(dat)]TJ/F10 6.9738 Tf 14.05 -1.494 Td [(i)]TJ/F8 9.9626 Tf 6.138 1.494 Td [(the)-283(v)55(alue)-283(of)-283(the)-283(v)55(ariable)]TJ/F11 9.9626 Tf 106.29 0 Td [(dat)]TJ/F8 9.9626 Tf 16.87 0 Td [(on)-283(pro)-28(cess)]TJ/F11 9.9626 Tf 47.57 0 Td [(i)]TJ/F8 9.9626 Tf 3.432 0 Td [(,)-293(the)-283(output)]TJ/F11 9.9626 Tf 54.503 0 Td [(r)-28(es)]TJ/F8 9.9626 Tf -304.724 -11.955 Td [(is)-333(equiv)55(alen)28(t)-333(to)-334(the)-333(computation)-333(of)]TJ/F11 9.9626 Tf 122.071 -25.904 Td [(r)-28(es)]TJ/F8 9.9626 Tf 16.847 0 Td [(=)]TJ/F1 9.9626 Tf 10.516 14.335 Td [(s)]TJ -ET -q -1 0 0 1 284.199 203.069 cm -[]0 d 0 J 0.398 w 0 0 m 34.569 0 l S -Q -BT -/F1 9.9626 Tf 284.199 197.999 Td [(X)]TJ/F10 6.9738 Tf 5.786 -21.219 Td [(i)]TJ/F11 9.9626 Tf 10.265 11.755 Td [(dat)]TJ/F7 6.9738 Tf 14.049 3.431 Td [(2)]TJ/F10 6.9738 Tf 0 -6.208 Td [(i)]TJ/F11 9.9626 Tf 4.469 2.777 Td [(;)]TJ/F8 9.9626 Tf -193.966 -30.908 Td [(with)-333(care)-334(tak)28(en)-333(to)-334(a)28(v)28(oid)-333(unnecessary)-334(o)28(v)28(er\015o)28(w.)]TJ -0 g 0 G - -12.73 -19.075 Td [(3.)]TJ -0 g 0 G - [-500(The)]TJ/F30 9.9626 Tf 32.469 0 Td [(dat)]TJ/F8 9.9626 Tf 18.273 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ -0 g 0 G - 139.477 -36.158 Td [(123)]TJ -======= 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ @@ -35428,37 +21442,19 @@ BT [-500(The)]TJ/F30 9.9626 Tf 33.209 0 Td [(dat)]TJ/F8 9.9626 Tf 19.012 0 Td [(argumen)28(t)-333(m)-1(a)28(y)-333(also)-333(b)-28(e)-334(a)-333(long)-333(in)28(teger)-334(scalar.)]TJ 0 g 0 G 99.986 -97.177 Td [(123)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1699 0 obj -<< -/Length 5369 -======= 1721 0 obj << /Length 6258 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(snd)-375(|)-375(Send)-375(data)]TJ -0 g 0 G -======= /F16 11.9552 Tf 150.705 706.129 Td [(7.15)-1125(psb)]TJ ET q @@ -35467,51 +21463,16 @@ q Q BT /F16 11.9552 Tf 213.156 706.129 Td [(nrm2)-375(|)-375(Global)-375(2-norm)-375(reduction)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_snd\050icontxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(sends)-333(a)-333(pac)28(k)27(et)-333(of)-333(data)-334(to)-333(a)-333(destination.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous:)-444(s)-1(ee)-333(usage)-333(notes.)]TJ -======= /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_nrm2\050icontxt,)-525(dat,)-525(root\051)]TJ/F8 9.9626 Tf 14.944 -19.794 Td [(This)-425(subroutine)-425(implem)-1(en)28(ts)-425(a)-425(2-norm)-426(v)56(alue)-425(reduction)-426(op)-27(eration)-426(based)-425(on)]TJ -14.944 -11.955 Td [(the)-333(underlying)-333(com)-1(m)28(unication)-333(library)83(.)]TJ 0 g 0 G /F27 9.9626 Tf 0 -18.226 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ 0 g 0 G /F27 9.9626 Tf -33.797 -19.076 Td [(On)-383(En)32(try)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyi)1(ng)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.134 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(sen)28(t.)]TJ 3.536 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(tege)-1(r,)-341(real)-339(or)-340(complex)-340(v)56(ariable,)-342(whic)28(h)-339(m)-1(a)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)28(y)83(,)-393(or)-381(a)-381(c)28(haracte)-1(r)-381(or)-381(logical)-381(scalar.)-968(T)27(yp)-27(e,)-393(kind)-381(and)]TJ 0 -11.955 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)28(e)-1(r)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(n)1(o)-1(t)-327(sp)-28(eci\014ed,)-328(s)-1(ize)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(dst)]TJ -0 g 0 G -/F8 9.9626 Tf 20.321 0 Td [(Destination)-333(pro)-28(cess.)]TJ 4.586 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-1(n)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(dst)-278(<)]TJ/F8 9.9626 Tf 23.969 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -239.002 -31.881 Td [(m)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.263 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.956 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leadin)1(g)-286(dimension)]TJ/F11 9.9626 Tf 153.741 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.813 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(u)1(s)-1(t)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(al)1(ue)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -/F16 11.9552 Tf 0 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-402(subroutine)-403(implies)-402(a)-402(sync)27(hronization,)-419(but)-403(on)1(ly)-403(b)-28(et)28(w)28(een)-403(th)1(e)-403(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(destination)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 157.52 0 Td [(dst)]TJ/F8 9.9626 Tf 13.453 0 Td [(.)]TJ -0 g 0 G - -31.496 -105.147 Td [(124)]TJ -======= 0 g 0 G 0 -19.076 Td [(icon)32(txt)]TJ 0 g 0 G @@ -35552,39 +21513,19 @@ BT [-500(The)]TJ/F30 9.9626 Tf 32.47 0 Td [(dat)]TJ/F8 9.9626 Tf 18.272 0 Td [(argumen)28(t)-259(is)-259(b)-28(oth)-259(input)-259(and)-259(output,)-274(and)-259(its)-259(v)55(alue)-259(ma)28(y)-259(b)-28(e)-259(c)28(hanged)]TJ -38.012 -11.956 Td [(ev)28(en)-334(on)-333(pro)-28(cesses)-333(di\013eren)28(t)-334(from)-333(the)-333(\014nal)-334(result)-333(destination.)]TJ 0 g 0 G 139.477 -36.158 Td [(124)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1704 0 obj -<< -/Length 5352 -======= 1729 0 obj << /Length 5357 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 120.951 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 124.986 706.129 Td [(rcv)-375(|)-375(Receiv)31(e)-375(data)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf -25.091 -18.389 Td [(call)-525(psb_rcv\050icontxt,)-525(dat,)-525(src,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(receiv)28(es)-333(a)-334(pac)28(k)28(et)-333(of)-334(data)-333(to)-333(a)-334(destination.)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(7.16)-1125(psb)]TJ ET q @@ -35596,7 +21537,6 @@ BT 0 g 0 G 0 g 0 G /F30 9.9626 Tf -62.451 -18.389 Td [(call)-525(psb_snd\050icontxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F8 9.9626 Tf 14.944 -21.918 Td [(This)-333(subroutine)-334(sends)-333(a)-333(pac)27(k)28(et)-333(of)-333(data)-334(to)-333(a)-333(destination.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -14.944 -19.926 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G @@ -35609,52 +21549,6 @@ BT 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text)-333(iden)27(tifyin)1(g)-334(the)-333(virtual)-333(parallel)-334(mac)28(hine.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(ariable.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -24.907 -19.925 Td [(src)]TJ -0 g 0 G -/F8 9.9626 Tf 19.311 0 Td [(Source)-333(pro)-28(cess.)]TJ 5.596 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(sr)-28(c)-277(<)]TJ/F8 9.9626 Tf 24.269 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(np)]TJ/F14 9.9626 Tf 13.206 0 Td [(\000)]TJ/F8 9.9626 Tf 9.963 0 Td [(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -239.302 -31.88 Td [(m)]TJ -0 g 0 G -/F8 9.9626 Tf 14.529 0 Td [(Num)28(b)-28(er)-333(of)-334(ro)28(ws.)]TJ 10.378 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -62.135 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.611 0 Td [(Optional)]TJ/F8 9.9626 Tf 43.455 0 Td [(.)]TJ -73.066 -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(an)-333(in)28(teger)-333(v)55(alue)-333(0)]TJ/F11 9.9626 Tf 138.176 0 Td [(<)]TJ/F8 9.9626 Tf 7.749 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(m)-278(<)]TJ/F8 9.9626 Tf 19.264 0 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051.)]TJ -226.384 -11.955 Td [(When)]TJ/F11 9.9626 Tf 29.071 0 Td [(dat)]TJ/F8 9.9626 Tf 17.383 0 Td [(is)-335(a)-334(rank)-335(2)-335(arra)28(y)84(,)-335(sp)-28(eci\014es)-335(the)-335(n)28(um)28(b)-28(er)-334(of)-335(ro)28(ws)-335(to)-335(b)-27(e)-335(sen)28(t)-335(inde-)]TJ -46.454 -11.955 Td [(p)-28(enden)28(tly)-285(of)-285(the)-286(leading)-285(dimension)]TJ/F11 9.9626 Tf 153.742 0 Td [(siz)-44(e)]TJ/F8 9.9626 Tf 17.812 0 Td [(\050)]TJ/F11 9.9626 Tf 3.874 0 Td [(dat;)]TJ/F8 9.9626 Tf 18.477 0 Td [(1\051;)-301(m)27(ust)-285(ha)28(v)28(e)-285(the)-286(same)-285(v)55(alu)1(e)]TJ -193.905 -11.955 Td [(on)-333(sending)-334(and)-333(receiving)-333(pro)-28(cesses.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(dat)]TJ -0 g 0 G -/F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(receiv)28(ed.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)27(y)84(,)-393(or)-381(a)-381(c)27(har)1(ac)-1(ter)-381(or)-381(logical)-381(scalar.)-969(T)28(yp)-27(e)-1(,)-393(ki)1(nd)-381(and)]TJ 0 -11.956 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)27(er)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(not)-327(sp)-28(eci\014ed,)-329(size)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ -0 g 0 G -/F8 9.9626 Tf 12.177 -19.925 Td [(1.)]TJ -0 g 0 G - [-500(This)-402(subroutine)-403(implies)-402(a)-402(s)-1(yn)1(c)27(hronization,)-419(but)-403(onl)1(y)-403(b)-28(et)28(w)28(een)-403(the)-402(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(source)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 136.516 0 Td [(sr)-28(c)]TJ/F8 9.9626 Tf 13.753 0 Td [(.)]TJ -0 g 0 G - -10.792 -105.147 Td [(125)]TJ -0 g 0 G -ET - -endstream -endobj -1711 0 obj -<< -/Length 6407 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 150.705 706.129 Td [(8)-1125(Error)-375(handling)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-446(PSBLAS)-446(library)-446(error)-446(handling)-446(p)-28(olicy)-446(has)-446(b)-28(een)-446(completely)-446(rewritten)-446(in)]TJ 0 -11.955 Td [(v)28(ersion)-448(2.0.)-788(The)-448(idea)-448(b)-27(ehind)-448(the)-448(design)-448(of)-447(this)-448(new)-448(error)-448(handling)-447(strategy)]TJ 0 -11.955 Td [(is)-491(to)-492(k)28(eep)-491(error)-491(mes)-1(sages)-491(on)-491(a)-492(stac)28(k)-491(allo)28(wing)-492(th)1(e)-492(user)-491(to)-491(trace)-492(bac)28(k)-491(up)-492(t)1(o)]TJ 0 -11.956 Td [(the)-401(p)-27(oin)28(t)-401(where)-401(the)-400(\014rst)-401(error)-400(mes)-1(sage)-400(has)-401(b)-28(een)-400(generated.)-646(Ev)27(ery)-400(routine)-401(in)]TJ 0 -11.955 Td [(the)-442(P)1(SBLAS-2.0)-442(library)-441(has,)-469(as)-442(l)1(as)-1(t)-441(non-optional)-441(argumen)27(t,)-468(an)-442(in)28(teger)]TJ/F30 9.9626 Tf 322.79 0 Td [(info)]TJ/F8 9.9626 Tf -322.79 -11.955 Td [(v)56(ariable;)-385(whenev)28(er,)-376(inside)-368(the)-367(routine,)-376(an)-368(error)-367(is)-368(detected,)-376(this)-367(v)55(ariab)1(le)-368(is)-368(set)]TJ 0 -11.955 Td [(to)-381(a)-380(v)55(alu)1(e)-381(corresp)-28(onding)-380(to)-381(a)-380(sp)-28(eci\014c)-381(error)-380(co)-28(de.)-586(Then)-381(this)-380(error)-381(co)-28(de)-380(is)-381(also)]TJ 0 -11.955 Td [(pushed)-245(on)-245(the)-245(error)-245(stac)28(k)-245(and)-245(then)-245(either)-245(con)27(tr)1(ol)-245(is)-246(retur)1(ned)-245(to)-246(th)1(e)-246(caller)-245(routin)1(e)]TJ 0 -11.955 Td [(or)-372(the)-371(e)-1(xecution)-371(is)-372(ab)-28(orted,)-381(dep)-28(ending)-372(on)-371(the)-372(users)-372(c)28(hoice.)-560(A)28(t)-372(the)-372(time)-371(when)]TJ 0 -11.956 Td [(the)-364(execution)-363(is)-364(ab)-28(orted,)-371(an)-364(error)-364(message)-363(is)-364(prin)28(ted)-364(on)-364(standard)-363(output)-364(with)]TJ 0 -11.955 Td [(a)-448(lev)28(el)-448(of)-447(v)27(erb)-27(osit)27(y)-447(than)-448(can)-448(b)-27(e)-448(c)28(hosen)-448(b)28(y)-448(the)-448(user.)-787(If)-448(the)-448(execution)-447(is)-448(not)]TJ 0 -11.955 Td [(ab)-28(orted,)-328(then,)-329(the)-328(caller)-327(routine)-328(c)28(hec)28(ks)-328(the)-327(v)55(alue)-327(returned)-328(in)-327(the)]TJ/F30 9.9626 Tf 285.459 0 Td [(info)]TJ/F8 9.9626 Tf 24.185 0 Td [(v)56(ariable)]TJ -309.644 -11.955 Td [(and,)-359(if)-354(not)-354(zero,)-359(an)-353(error)-354(condition)-354(is)-354(raised.)-506(This)-354(pro)-28(cess)-354(con)28(tin)28(ues)-354(on)-354(all)-354(th)1(e)]TJ 0 -11.955 Td [(lev)28(els)-297(of)-296(nes)-1(ted)-296(calls)-297(un)28(til)-297(the)-296(lev)28(el)-297(where)-297(the)-296(user)-297(decides)-297(to)-296(ab)-28(ort)-297(the)-296(program)]TJ 0 -11.955 Td [(execution.)]TJ 14.944 -11.956 Td [(Figure)]TJ -0 0 1 rg 0 0 1 RG - [-353(9)]TJ -0 g 0 G - [-353(sho)28(ws)-353(the)-353(la)28(y)27(out)-353(of)-352(a)-353(ge)-1(n)1(e)-1(ri)1(c)]TJ/F30 9.9626 Tf 170.683 0 Td [(psb_foo)]TJ/F8 9.9626 Tf 40.129 0 Td [(routine)-353(with)-353(resp)-28(ect)-353(to)-353(the)]TJ -225.756 -11.955 Td [(PSBLAS-2.0)-326(error)-326(hand)1(ling)-326(p)-28(olicy)83(.)-442(It)-325(is)-326(p)-28(ossible)-326(to)-326(see)-326(ho)28(w,)-327(whenev)28(e)-1(r)-325(an)-326(error)]TJ 0 -11.955 Td [(condition)-379(is)-378(detected,)-390(the)]TJ/F30 9.9626 Tf 115.439 0 Td [(info)]TJ/F8 9.9626 Tf 24.694 0 Td [(v)56(ariable)-379(is)-379(set)-379(to)-378(the)-379(corresp)-28(onding)-378(error)-379(co)-28(de)]TJ -140.133 -11.955 Td [(whic)28(h)-376(is,)-387(then,)-386(pushed)-376(on)-376(top)-376(of)-376(the)-376(stac)28(k)-376(b)28(y)-376(means)-376(of)-376(the)]TJ/F30 9.9626 Tf 264.702 0 Td [(psb_errpush)]TJ/F8 9.9626 Tf 57.534 0 Td [(.)-572(An)]TJ -322.236 -11.955 Td [(error)-331(condition)-331(ma)28(y)-331(b)-28(e)-331(directly)-331(detected)-331(inside)-331(a)-331(routine)-331(or)-331(indirectly)-331(c)27(h)1(e)-1(c)28(king)]TJ 0 -11.956 Td [(the)-461(e)-1(rr)1(or)-462(co)-28(de)-461(returned)-462(returned)-461(b)28(y)-462(a)-461(called)-462(routine.)-829(Whenev)28(er)-461(an)-462(error)-461(is)]TJ 0 -11.955 Td [(encoun)28(tered,)-459(after)-434(it)-434(has)-433(b)-28(een)-434(pushed)-434(on)-434(stac)28(k,)-459(the)-434(program)-433(execution)-434(skips)]TJ 0 -11.955 Td [(to)-356(a)-356(p)-27(oin)28(t)-356(where)-356(the)-356(error)-355(condition)-356(is)-356(handled;)-367(the)-355(error)-356(condition)-356(is)-356(han)1(dled)]TJ 0 -11.955 Td [(either)-392(b)28(y)-392(returning)-392(con)28(trol)-392(to)-392(the)-392(caller)-391(routine)-392(or)-392(b)28(y)-392(calling)-392(the)]TJ/F30 9.9626 Tf 291.408 0 Td [(psb\134_error)]TJ/F8 9.9626 Tf -291.408 -11.955 Td [(routine)-478(whic)28(h)-479(pr)1(in)27(ts)-478(the)-478(con)28(ten)27(t)-478(of)-478(the)-478(error)-478(s)-1(tac)28(k)-478(and)-478(ab)-28(orts)-478(the)-478(program)]TJ 0 -11.955 Td [(execution,)-329(ac)-1(cord)1(ing)-329(to)-328(the)-329(c)28(hoice)-329(made)-328(b)27(y)-328(the)-329(user)-328(with)]TJ/F30 9.9626 Tf 252.028 0 Td [(psb_set_erraction)]TJ/F8 9.9626 Tf 88.916 0 Td [(.)]TJ -340.944 -11.956 Td [(The)-347(default)-346(is)-347(to)-346(prin)28(t)-347(the)-347(error)-346(and)-347(terminate)-346(the)-347(program,)-350(but)-346(the)-347(user)-346(ma)27(y)]TJ 0 -11.955 Td [(c)28(ho)-28(ose)-333(to)-334(handle)-333(the)-333(error)-334(explicitly)84(.)]TJ 14.944 -11.955 Td [(Figure)]TJ -0 0 1 rg 0 0 1 RG - [-479(10)]TJ -0 g 0 G - [-479(rep)-28(orts)-479(a)-479(sample)-480(error)-479(message)-479(generated)-479(b)28(y)-480(the)-479(PSBLAS-2.0)]TJ -14.944 -11.955 Td [(library)83(.)-451(This)-335(error)-336(has)-335(b)-28(een)-336(generated)-335(b)27(y)-335(the)-336(fact)-335(that)-336(the)-335(use)-1(r)-335(has)-336(c)28(hosen)-336(th)1(e)]TJ 0 -11.955 Td [(in)28(v)55(alid)-367(\134F)28(OO")-368(storage)-367(format)-368(to)-367(represen)27(t)-367(the)-368(sparse)-367(matrix.)-547(F)83(rom)-367(this)-368(error)]TJ 0 -11.955 Td [(message)-248(it)-248(is)-248(p)-27(oss)-1(i)1(ble)-248(to)-248(see)-248(that)-248(the)-248(error)-247(has)-248(b)-28(een)-248(detected)-248(inside)-248(th)1(e)]TJ/F30 9.9626 Tf 301.868 0 Td [(psb_cest)]TJ/F8 9.9626 Tf -301.868 -11.956 Td [(subroutine)-333(called)-334(b)28(y)]TJ/F30 9.9626 Tf 91.407 0 Td [(psb_spasb)]TJ/F8 9.9626 Tf 50.394 0 Td [(...)-444(b)27(y)-333(pro)-28(cess)-333(0)-333(\050i.e.)-445(the)-333(ro)-28(ot)-333(pro)-28(cess\051.)]TJ -0 g 0 G - 22.583 -211.304 Td [(126)]TJ -======= /F27 9.9626 Tf -24.907 -19.925 Td [(dat)]TJ 0 g 0 G /F8 9.9626 Tf 21.371 0 Td [(The)-333(data)-334(to)-333(b)-28(e)-333(sen)28(t.)]TJ 3.536 -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 [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -71.509 -11.956 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)-339(as:)-458(an)-339(in)28(te)-1(ger,)-341(real)-340(or)-339(complex)-340(v)56(ariable,)-342(whic)28(h)-340(ma)28(y)-339(b)-28(e)-340(a)-340(scalar,)]TJ 0 -11.955 Td [(or)-381(a)-381(rank)-381(1)-381(or)-381(2)-381(arra)27(y)84(,)-393(or)-381(a)-381(c)27(har)1(ac)-1(ter)-381(or)-381(logical)-381(scalar.)-969(T)28(yp)-27(e)-1(,)-393(ki)1(nd)-381(and)]TJ 0 -11.955 Td [(rank)-327(m)27(ust)-327(agree)-328(on)-327(sender)-328(and)-327(receiv)27(er)-327(pro)-28(cess;)-329(if)]TJ/F11 9.9626 Tf 220.724 0 Td [(m)]TJ/F8 9.9626 Tf 12.01 0 Td [(is)-328(not)-327(sp)-28(eci\014ed,)-329(size)]TJ -232.734 -11.955 Td [(m)28(ust)-334(agree)-333(as)-333(w)27(ell.)]TJ @@ -35676,166 +21570,19 @@ BT [-500(This)-402(subroutine)-403(implies)-402(a)-402(s)-1(yn)1(c)27(hronization,)-419(but)-403(on)1(ly)-403(b)-28(et)28(w)28(een)-403(the)-402(calling)]TJ 12.73 -11.955 Td [(pro)-28(cess)-333(and)-333(the)-334(destination)-333(pro)-28(cess)]TJ/F11 9.9626 Tf 157.521 0 Td [(dst)]TJ/F8 9.9626 Tf 13.453 0 Td [(.)]TJ 0 g 0 G -31.497 -105.147 Td [(125)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1717 0 obj -<< -/Length 7220 -======= 1734 0 obj << /Length 5375 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F53 8.9664 Tf 108.801 680.066 Td [(s)-60(u)-60(b)-60(r)-59(o)-60(u)-60(t)-60(i)-60(n)-60(e)]TJ/F46 8.9664 Tf 61.47 0 Td [(p)-132(s)-132(b)]TJ -ET -q -1 0 0 1 188.254 680.265 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 192.204 680.066 Td [(f)-132(o)-132(o)-241(\050)-155(s)-47(o)-47(m)-47(e)-768(a)-105(r)-106(g)-105(s)-376(,)-939(i)-156(n)-157(f)-156(o)-265(\051)]TJ -65.125 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.604 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.408 0 Td [(\050)-260(e)-151(r)-151(r)-151(o)-151(r)-897(d)-129(e)-129(t)-130(e)-129(c)-129(t)-129(e)-130(d)-237(\051)]TJ/F53 8.9664 Tf 93.292 0 Td [(t)-30(h)-29(e)-30(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-128(r)-129(c)-129(o)-129(d)-129(e)-129(1)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ -ET -q -1 0 0 1 187.956 636.429 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 191.831 636.23 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-233(\050)-329(')-242(p)-133(s)-132(b)]TJ -ET -q -1 0 0 1 260.135 636.429 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 264.085 636.23 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-128(d)-129(e)-129(1)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.968 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.245 -10.959 Td [(.)-248(.)-249(.)]TJ/F53 8.9664 Tf -0.957 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.399 0 Td [(p)-114(s)-114(b)]TJ -ET -q -1 0 0 1 171.016 592.594 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 174.803 592.394 Td [(b)-114(a)-114(r)-223(\050)-155(s)-47(o)-46(m)-47(e)-769(a)-105(r)-105(g)-105(s)-377(,)-938(i)-157(n)-156(f)-157(o)-265(\051)]TJ/F53 8.9664 Tf -48.328 -10.958 Td [(i)-181(f)]TJ/F46 8.9664 Tf 10.408 0 Td [(\050)-265(i)-156(n)-157(f)-156(o)-939(.)]TJ/F53 8.9664 Tf 37.831 0 Td [(n)-11(e)]TJ/F46 8.9664 Tf 12.445 0 Td [(.)-910(z)-127(e)-127(r)-128(o)-235(\051)]TJ/F53 8.9664 Tf 43.016 0 Td [(t)-30(h)-29(e)-30(n)]TJ/F46 8.9664 Tf -87.332 -10.959 Td [(i)-156(n)-157(f)-156(o)-65(=)-38(e)-129(r)-128(r)-129(c)-129(o)-129(d)-129(e)-129(2)]TJ/F53 8.9664 Tf -0.133 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.487 0 Td [(p)-124(s)-124(b)]TJ -ET -q -1 0 0 1 187.956 559.717 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 191.831 559.518 Td [(e)-124(r)-124(r)-124(p)-123(u)-124(s)-124(h)-233(\050)-329(')-242(p)-133(s)-132(b)]TJ -ET -q -1 0 0 1 260.135 559.717 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 264.085 559.518 Td [(f)-132(o)-132(o)-353(')-332(,)-855(e)-129(r)-129(r)-129(c)-129(o)-128(d)-129(e)-129(2)-237(\051)]TJ/F53 8.9664 Tf -122.23 -10.959 Td [(g)-46(o)-47(t)-46(o)]TJ/F46 8.9664 Tf 27.968 0 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf -44.989 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ/F46 8.9664 Tf 2.245 -10.959 Td [(.)-248(.)-249(.)]TJ -18.078 -10.959 Td [(9)-82(9)-82(9)-83(9)]TJ/F53 8.9664 Tf 27.419 0 Td [(c)-57(o)-57(n)-57(t)-56(i)-57(n)-57(u)-57(e)]TJ -9.945 -10.959 Td [(i)-181(f)]TJ/F46 8.9664 Tf 15.937 0 Td [(\050)-273(e)-164(r)-165(r)]TJ -ET -q -1 0 0 1 164.726 504.923 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 168.965 504.723 Td [(a)-164(c)-165(t)-946(.)]TJ/F53 8.9664 Tf 27.964 0 Td [(e)-22(q)]TJ/F46 8.9664 Tf 12.347 0 Td [(.)-923(a)-141(c)-141(t)]TJ -ET -q -1 0 0 1 236.744 504.923 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 240.772 504.723 Td [(a)-141(b)-141(o)-141(r)-141(t)-249(\051)]TJ/F53 8.9664 Tf 39.166 0 Td [(t)-30(h)-30(e)-29(n)]TJ -142.758 -10.959 Td [(c)-142(a)-141(l)-142(l)]TJ/F46 8.9664 Tf 27.682 0 Td [(p)-146(s)-145(b)]TJ -ET -q -1 0 0 1 183.205 493.964 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 187.274 493.764 Td [(e)-146(r)-145(r)-146(o)-145(r)-254(\050)-252(i)-144(c)-143(o)-144(n)-143(t)-143(x)-144(t)-252(\051)]TJ/F53 8.9664 Tf -50.844 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -10.529 -10.958 Td [(e)-117(l)-117(s)-117(e)]TJ 10.529 -10.959 Td [(r)-58(e)-58(t)-58(u)-58(r)-58(n)]TJ -11.596 -10.959 Td [(e)2(n)2(d)-796(i)-181(f)]TJ -16.587 -21.918 Td [(e)2(n)2(d)-675(s)-59(u)-60(b)-60(r)-60(o)-60(u)-60(t)-60(i)-60(n)-59(e)]TJ/F46 8.9664 Tf 84.141 0 Td [(p)-132(s)-132(b)]TJ -ET -q -1 0 0 1 210.371 428.21 cm -[]0 d 0 J 0.398 w 0 0 m 2.765 0 l S -Q -BT -/F46 8.9664 Tf 214.321 428.011 Td [(f)-132(o)-132(o)]TJ -0 g 0 G -0 g 0 G -ET -q -1 0 0 1 99.895 701.884 cm -[]0 d 0 J 0.398 w 0 0 m 346.583 0 l S -Q -q -1 0 0 1 100.095 410.576 cm -[]0 d 0 J 0.398 w 0 0 m 0 291.308 l S -Q -q -1 0 0 1 446.279 410.576 cm -[]0 d 0 J 0.398 w 0 0 m 0 291.308 l S -Q -q -1 0 0 1 99.895 410.576 cm -[]0 d 0 J 0.398 w 0 0 m 346.583 0 l S -Q -BT -/F8 9.9626 Tf 99.895 382.537 Td [(Figure)-329(9:)-443(The)-329(la)27(y)28(out)-329(of)-330(a)-329(generic)]TJ/F30 9.9626 Tf 147.445 0 Td [(psb)]TJ -ET -q -1 0 0 1 263.659 382.736 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 266.797 382.537 Td [(foo)]TJ/F8 9.9626 Tf 18.973 0 Td [(routine)-329(with)-330(resp)-28(ect)-329(to)-330(PS)1(B)-1(LAS)1(-)-1(2.)1(0)]TJ -185.875 -11.955 Td [(error)-333(handling)-333(p)-28(olicy)83(.)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 8.369 -39.475 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(df_sample)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(mat)-525(dist)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(mat_distv)]TJ 0 -11.956 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_spasb)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\0504010\051)-525(in)-525(subroutine:)-525(psb_spasb)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(psb_cest)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Process:)-525(0.)-1050(PSBLAS)-525(Error)-525(\050136\051)-525(in)-525(subroutine:)-525(psb_cest)]TJ 0 -11.956 Td [(Format)-525(FOO)-525(is)-525(unknown)]TJ 0 -11.955 Td [(==========================================================)]TJ 0 -11.955 Td [(Aborting...)]TJ -ET -q -1 0 0 1 99.895 343.417 cm -[]0 d 0 J 0.398 w 0 0 m 346.583 0 l S -Q -q -1 0 0 1 100.095 165.307 cm -[]0 d 0 J 0.398 w 0 0 m 0 178.111 l S -Q -q -1 0 0 1 446.279 165.307 cm -[]0 d 0 J 0.398 w 0 0 m 0 178.111 l S -Q -q -1 0 0 1 99.895 165.307 cm -[]0 d 0 J 0.398 w 0 0 m 346.583 0 l S -Q -BT -/F8 9.9626 Tf 99.895 137.267 Td [(Figure)-386(10:)-551(A)-386(sample)-386(PSBLAS-2.0)-387(error)-386(message.)-603(Pro)-28(cess)-387(0)-386(detected)-386(an)-387(error)]TJ 0 -11.955 Td [(condition)-333(inside)-334(the)-333(psb)]TJ -ET -q -1 0 0 1 204.658 125.512 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 207.647 125.312 Td [(cest)-333(s)-1(u)1(broutine)]TJ -0 g 0 G -0 g 0 G - 56.632 -34.874 Td [(127)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(7.17)-1125(psb)]TJ ET q @@ -36054,221 +21801,19 @@ BT 0 g 0 G 0 g 0 G 56.631 -34.874 Td [(128)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1748 0 obj -<< -/Length 3723 -======= 1778 0 obj << /Length 3734 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G -0 g 0 G -0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 14.3462 Tf 150.705 680.226 Td [(psb)]TJ -ET -q -1 0 0 1 175.972 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 180.814 680.226 Td [(errpush|Pushes)-375(an)-375(error)-375(co)-31(de)-375(on)31(to)-375(the)]TJ -30.109 -17.933 Td [(error)-375(stac)31(k)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.711 0 Td [(p)-120(s)-121(b)]TJ -ET -q -1 0 0 1 200.991 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 205.18 626.525 Td [(e)-120(r)-121(r)-120(p)-121(u)-120(s)-121(h)-226(\050)-244(e)-138(r)-138(r)]TJ -ET -q -1 0 0 1 270.664 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 275.03 626.525 Td [(c)-438(,)-825(r)]TJ -ET -q -1 0 0 1 299.951 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 303.581 626.525 Td [(n)-64(a)-65(m)-64(e)-290(,)-923(i)]TJ -ET -q -1 0 0 1 348.584 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 353.187 626.525 Td [(e)-162(r)-162(r)-485(,)-914(a)]TJ -ET -q -1 0 0 1 392.442 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 396.945 626.525 Td [(e)-152(r)-152(r)-258(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -246.24 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(err)]TJ -ET -q -1 0 0 1 166.08 568.941 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 169.517 568.741 Td [(c)]TJ -0 g 0 G -/F8 9.9626 Tf 10.074 0 Td [(the)-333(error)-334(co)-27(de)]TJ -3.98 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(r)]TJ -ET -q -1 0 0 1 156.111 501.195 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 159.548 500.995 Td [(name)]TJ -0 g 0 G -/F8 9.9626 Tf 31.714 0 Td [(the)-333(soutine)-334(where)-333(the)-333(error)-334(has)-333(b)-28(een)-333(caugh)28(t.)]TJ -15.651 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -31.881 Td [(i)]TJ -ET -q -1 0 0 1 154.575 421.494 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 158.012 421.294 Td [(err)]TJ -0 g 0 G -/F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -2.07 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(arra)27(y)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -31.881 Td [(a)]TJ -ET -q -1 0 0 1 156.962 353.748 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 160.399 353.548 Td [(err)]TJ -0 g 0 G -/F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -4.457 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ -0 g 0 G - 139.477 -227.245 Td [(128)]TJ -0 g 0 G -ET - -endstream -endobj -1754 0 obj -<< -/Length 1398 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 680.226 Td [(psb)]TJ -ET -q -1 0 0 1 125.163 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 130.004 680.226 Td [(error|Prin)31(ts)-375(the)-375(error)-375(stac)32(k)-375(con)31(ten)31(t)-375(and)]TJ -30.109 -17.933 Td [(ab)-31(orts)-375(execution)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.921 0 Td [(p)-141(s)-142(b)]TJ -ET -q -1 0 0 1 151.02 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 155.418 626.525 Td [(e)-142(r)-141(r)-142(o)-141(r)-247(\050)-245(i)-140(c)-139(o)-140(n)-140(t)-139(x)-140(t)-245(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -55.523 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ -0 g 0 G - 139.477 -430.483 Td [(129)]TJ -0 g 0 G -ET - -endstream -endobj -1760 0 obj -<< -/Length 1632 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 150.705 680.226 Td [(psb)]TJ -ET -q -1 0 0 1 175.972 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 180.814 680.226 Td [(set)]TJ -ET -q -1 0 0 1 201.789 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 206.631 680.226 Td [(errv)31(erb)-31(osit)31(y|Sets)-375(the)-375(v)31(erb)-31(osit)32(y)-376(of)-375(error)]TJ -55.926 -17.933 Td [(messages.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.082 0 Td [(p)-158(s)-157(b)]TJ -ET -q -1 0 0 1 202.473 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 207.032 626.525 Td [(s)-158(e)-157(t)]TJ -ET -q -1 0 0 1 224.574 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 229.133 626.525 Td [(e)-158(r)-157(r)-158(v)-158(e)-157(r)-158(b)-157(o)-158(s)-158(i)-157(t)-158(y)-263(\050)-142(v)-142(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -78.428 -17.933 Td [(T)32(yp)-32(e:)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(8.1)-1125(psb)]TJ ET q @@ -36316,93 +21861,10 @@ BT 0 g 0 G 0 g 0 G /F27 9.9626 Tf -246.241 -27.896 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 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 -19.925 Td [(On)-383(En)32(try)]TJ -<<<<<<< HEAD:docs/psblas-3.6.pdf -0 g 0 G -0 g 0 G - 0 -19.926 Td [(v)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(v)27(erb)-27(osit)27(y)-333(lev)28(el)]TJ 13.878 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger.)]TJ -0 g 0 G - 139.477 -430.483 Td [(130)]TJ -0 g 0 G -ET - -endstream -endobj -1766 0 obj -<< -/Length 2103 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 680.226 Td [(psb)]TJ -ET -q -1 0 0 1 125.163 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 130.004 680.226 Td [(set)]TJ -ET -q -1 0 0 1 150.979 680.425 cm -[]0 d 0 J 0.398 w 0 0 m 4.842 0 l S -Q -BT -/F16 14.3462 Tf 155.821 680.226 Td [(erraction|Set)-375(the)-375(t)31(yp)-31(e)-375(of)-375(action)-375(to)-375(b)-31(e)]TJ -55.926 -17.933 Td [(tak)31(en)-375(up)-31(on)-375(error)-375(condition.)]TJ/F27 9.9626 Tf 1.377 -35.768 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 30.09 0 Td [(p)-158(s)-159(b)]TJ -ET -q -1 0 0 1 151.695 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 156.263 626.525 Td [(s)-159(e)-158(t)]TJ -ET -q -1 0 0 1 173.829 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 178.396 626.525 Td [(e)-159(r)-158(r)-158(a)-159(c)-158(t)-159(i)-158(o)-159(n)-264(\050)-265(e)-160(r)-160(r)]TJ -ET -q -1 0 0 1 256.582 626.724 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 261.163 626.525 Td [(a)-160(c)-160(t)-265(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -161.268 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(err)]TJ -ET -q -1 0 0 1 115.271 568.941 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 118.708 568.741 Td [(act)]TJ -0 g 0 G -/F8 9.9626 Tf 20.098 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(action.)]TJ -14.004 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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(an)-333(in)28(teger.)-444(P)27(ossible)-333(v)56(alues)-1(:)]TJ/F30 9.9626 Tf 180.269 0 Td [(psb_act_ret)]TJ/F8 9.9626 Tf 57.533 0 Td [(,)]TJ/F30 9.9626 Tf 6.089 0 Td [(psb_act_abort)]TJ/F8 9.9626 Tf 67.994 0 Td [(.)]TJ -0 g 0 G - -172.408 -430.483 Td [(131)]TJ -======= 0 g 0 G 0 g 0 G 0 -19.925 Td [(err)]TJ @@ -36450,80 +21912,11 @@ BT /F8 9.9626 Tf 19.669 0 Td [(addional)-333(info)-333(for)-334(error)-333(co)-28(de)]TJ -4.456 -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 [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(string.)]TJ 0 g 0 G 139.477 -260.564 Td [(129)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1772 0 obj -<< -/Length 538 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 150.705 706.129 Td [(9)-1125(Utilities)]TJ/F8 9.9626 Tf 0 -21.821 Td [(W)83(e)-412(ha)27(v)28(e)-412(som)-1(e)-412(utilities)-413(a)28(v)55(ai)1(lable)-413(for)-413(input)-412(and)-413(output)-412(of)-413(sparse)-413(matrices;)-452(the)]TJ 0 -11.955 Td [(in)28(terfaces)-334(to)-333(these)-333(routines)-334(are)-333(a)28(v)55(ailable)-333(in)-333(the)-334(mo)-27(dule)]TJ/F30 9.9626 Tf 241.843 0 Td [(psb_util_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ -0 g 0 G - -140.224 -581.915 Td [(132)]TJ -0 g 0 G -ET - -endstream -endobj -1669 0 obj -<< -/Type /ObjStm -/N 100 -/First 973 -/Length 8610 ->> -stream -1663 0 1671 132 1673 250 457 309 1674 367 1675 426 1670 485 1677 617 1679 735 461 793 -1680 850 1681 908 1676 966 1684 1098 1686 1216 465 1275 1687 1333 1688 1392 1683 1451 1690 1583 -1692 1701 469 1759 1693 1816 1694 1873 1696 1931 1689 1988 1698 2158 1700 2276 473 2335 1701 2393 -1697 2451 1703 2583 1705 2701 477 2759 1706 2816 1702 2873 1710 3005 1707 3153 1708 3298 1712 3445 -481 3504 1709 3562 1716 3655 1718 3773 1719 3831 1720 3890 1722 3949 1723 4008 1724 4067 1725 4126 -1726 4185 1727 4243 1728 4302 1729 4361 1730 4420 1731 4479 1732 4538 1733 4597 1734 4656 1735 4715 -1736 4772 1737 4831 1738 4890 1739 4949 1740 5008 1741 5067 1742 5126 1743 5185 1744 5244 1713 5302 -1714 5361 1715 5420 1747 5528 1749 5646 485 5705 1750 5763 1751 5821 1746 5879 1753 5972 1755 6090 -489 6148 1756 6205 1757 6262 1752 6319 1759 6412 1761 6530 493 6589 1762 6647 1763 6705 1758 6763 -1765 6856 1767 6974 497 7032 1768 7089 1769 7146 1764 7203 1771 7309 1773 7427 501 7486 1770 7544 -% 1663 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1671 0 obj -<< -/Type /Page -/Contents 1672 0 R -/Resources 1670 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1648 0 R ->> -% 1673 0 obj -<< -/D [1671 0 R /XYZ 149.705 753.953 null] ->> -% 457 0 obj -<< -/D [1671 0 R /XYZ 150.705 720.077 null] ->> -% 1674 0 obj -<< -/D [1671 0 R /XYZ 150.705 247.391 null] ->> -% 1675 0 obj -<< -/D [1671 0 R /XYZ 150.705 213.573 null] ->> -% 1670 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -======= 1675 0 obj << /Type /ObjStm @@ -36553,7 +21946,6 @@ stream % 1670 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1677 0 obj @@ -36562,37 +21954,18 @@ stream /Contents 1678 0 R /Resources 1676 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1682 0 R +/Parent 1674 0 R >> % 1679 0 obj << -/D [1677 0 R /XYZ 98.895 753.953 null] -======= -/Parent 1674 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 461 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1677 0 R /XYZ 99.895 720.077 null] -======= /D [1677 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 449 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1677 0 R /XYZ 99.895 235.436 null] -======= /D [1677 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1676 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1677 0 R /XYZ 99.895 201.618 null] -======= /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R >> /ProcSet [ /PDF /Text ] >> @@ -36603,46 +21976,13 @@ stream /Resources 1680 0 R /MediaBox [0 0 595.276 841.89] /Parent 1674 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1676 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] -======= -/D [1681 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 453 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1685 0 R -/Resources 1683 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1682 0 R ->> -% 1686 0 obj -<< -/D [1684 0 R /XYZ 149.705 753.953 null] ->> -% 465 0 obj -<< -/D [1684 0 R /XYZ 150.705 720.077 null] ->> -% 1687 0 obj -<< -/D [1684 0 R /XYZ 150.705 235.436 null] ->> -% 1688 0 obj -<< -/D [1684 0 R /XYZ 150.705 201.618 null] >> % 1683 0 obj << -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R >> -======= +/D [1681 0 R /XYZ 98.895 753.953 null] +>> +% 453 0 obj +<< /D [1681 0 R /XYZ 99.895 716.092 null] >> % 1680 0 obj @@ -36669,77 +22009,43 @@ stream % 1684 0 obj << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F11 796 0 R /F14 813 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1690 0 obj -<< -/Type /Page -/Contents 1691 0 R -/Resources 1689 0 R -/MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1682 0 R -======= -/Parent 1674 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1692 0 obj -<< -/D [1690 0 R /XYZ 98.895 753.953 null] ->> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 469 0 obj -<< -/D [1690 0 R /XYZ 99.895 720.077 null] -======= -% 461 0 obj -<< -/D [1689 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1693 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1690 0 R /XYZ 99.895 272.94 null] -======= -/D [1689 0 R /XYZ 99.895 247.391 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1694 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1690 0 R /XYZ 99.895 239.973 null] -======= -/D [1689 0 R /XYZ 99.895 213.573 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1696 0 obj -<< -/D [1690 0 R /XYZ 99.895 152.13 null] ->> % 1689 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F14 787 0 R /F11 770 0 R /F10 786 0 R /F1 1695 0 R /F7 785 0 R >> -======= +/Type /Page +/Contents 1690 0 R +/Resources 1688 0 R +/MediaBox [0 0 595.276 841.89] +/Parent 1674 0 R +>> +% 1691 0 obj +<< +/D [1689 0 R /XYZ 98.895 753.953 null] +>> +% 461 0 obj +<< +/D [1689 0 R /XYZ 99.895 716.092 null] +>> +% 1692 0 obj +<< +/D [1689 0 R /XYZ 99.895 247.391 null] +>> +% 1693 0 obj +<< +/D [1689 0 R /XYZ 99.895 213.573 null] +>> +% 1688 0 obj +<< /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> -% 1698 0 obj +% 1695 0 obj << /Type /Page -/Contents 1699 0 R -/Resources 1697 0 R +/Contents 1696 0 R +/Resources 1694 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1682 0 R ->> -% 1700 0 obj -<< -/D [1698 0 R /XYZ 149.705 753.953 null] -======= /Parent 1674 0 R >> % 1697 0 obj @@ -36749,46 +22055,26 @@ stream % 465 0 obj << /D [1695 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 473 0 obj +% 1698 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1698 0 R /XYZ 150.705 720.077 null] -======= /D [1695 0 R /XYZ 150.705 247.391 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf +>> +% 1699 0 obj +<< +/D [1695 0 R /XYZ 150.705 213.573 null] +>> +% 1694 0 obj +<< +/Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> +/ProcSet [ /PDF /Text ] >> % 1701 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1698 0 R /XYZ 150.705 223.48 null] -======= -/D [1695 0 R /XYZ 150.705 213.573 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1697 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -======= -/Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf -/ProcSet [ /PDF /Text ] ->> -% 1703 0 obj -<< /Type /Page -/Contents 1704 0 R -/Resources 1702 0 R +/Contents 1702 0 R +/Resources 1700 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1682 0 R ->> -% 1705 0 obj -<< -/D [1703 0 R /XYZ 98.895 753.953 null] -======= /Parent 1706 0 R >> % 1703 0 obj @@ -36798,32 +22084,17 @@ stream % 469 0 obj << /D [1701 0 R /XYZ 99.895 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 477 0 obj +% 1704 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1703 0 R /XYZ 99.895 720.077 null] -======= /D [1701 0 R /XYZ 99.895 247.391 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1706 0 obj +% 1705 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1703 0 R /XYZ 99.895 223.48 null] -======= /D [1701 0 R /XYZ 99.895 213.573 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1702 0 obj +% 1700 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F30 784 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1710 0 obj -======= /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] >> @@ -36852,7 +22123,6 @@ stream /D [1708 0 R /XYZ 150.705 201.618 null] >> % 1707 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F14 813 0 R /F11 796 0 R >> /ProcSet [ /PDF /Text ] @@ -36889,54 +22159,6 @@ stream % 1720 0 obj << /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1711 0 R -/Resources 1709 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1682 0 R -/Annots [ 1707 0 R 1708 0 R ] ->> -% 1707 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [196.286 501.77 203.26 512.895] -/A << /S /GoTo /D (figure.9) >> ->> -% 1708 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [197.543 346.63 209.498 357.478] -/A << /S /GoTo /D (figure.10) >> ->> -% 1712 0 obj -<< -/D [1710 0 R /XYZ 149.705 753.953 null] ->> -% 481 0 obj -<< -/D [1710 0 R /XYZ 150.705 716.092 null] ->> -% 1709 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1716 0 obj -<< -/Type /Page -/Contents 1717 0 R -/Resources 1715 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1745 0 R ->> -% 1718 0 obj -<< -/D [1716 0 R /XYZ 98.895 753.953 null] -======= /Contents 1721 0 R /Resources 1719 0 R /MediaBox [0 0 595.276 841.89] @@ -36991,17 +22213,9 @@ stream << /Font << /F16 582 0 R /F30 810 0 R /F8 585 0 R /F27 584 0 R /F11 796 0 R /F14 813 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1733 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 687.737 null] ->> -% 1720 0 obj -<< -/D [1716 0 R /XYZ 108.264 691.025 null] -======= /Type /Page /Contents 1734 0 R /Resources 1732 0 R @@ -37011,41 +22225,13 @@ stream % 1735 0 obj << /D [1733 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 489 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 680.066 null] -======= /D [1733 0 R /XYZ 150.705 716.092 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1736 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 669.107 null] ->> -% 1724 0 obj -<< -/D [1716 0 R /XYZ 108.264 658.148 null] ->> -% 1725 0 obj -<< -/D [1716 0 R /XYZ 108.264 647.189 null] ->> -% 1726 0 obj -<< -/D [1716 0 R /XYZ 108.264 636.23 null] ->> -% 1727 0 obj -<< -/D [1716 0 R /XYZ 108.264 625.271 null] ->> -% 1728 0 obj -<< -/D [1716 0 R /XYZ 108.264 614.312 null] -======= /D [1733 0 R /XYZ 150.705 223.48 null] >> % 1732 0 obj @@ -37077,41 +22263,13 @@ stream /Border[0 0 0]/H/I/C[1 0 0] /Rect [146.734 346.63 158.689 357.478] /A << /S /GoTo /D (figure.10) >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1742 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 603.353 null] -======= /D [1740 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 493 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 592.394 null] ->> -% 1731 0 obj -<< -/D [1716 0 R /XYZ 108.264 581.436 null] ->> -% 1732 0 obj -<< -/D [1716 0 R /XYZ 108.264 570.477 null] ->> -% 1733 0 obj -<< -/D [1716 0 R /XYZ 108.264 559.518 null] ->> -% 1734 0 obj -<< -/D [1716 0 R /XYZ 108.264 548.559 null] ->> -% 1735 0 obj -<< -/D [1716 0 R /XYZ 108.264 537.6 null] -======= /D [1740 0 R /XYZ 99.895 716.092 null] >> % 1739 0 obj @@ -37138,45 +22296,21 @@ stream % 1751 0 obj << /D [1747 0 R /XYZ 159.073 691.025 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1753 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 526.641 null] -======= /D [1747 0 R /XYZ 159.073 680.066 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1754 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 515.682 null] ->> -% 1738 0 obj -<< -/D [1716 0 R /XYZ 108.264 504.723 null] -======= /D [1747 0 R /XYZ 159.073 669.107 null] >> % 1755 0 obj << /D [1747 0 R /XYZ 159.073 658.148 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1756 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 493.764 null] ->> -% 1740 0 obj -<< -/D [1716 0 R /XYZ 108.264 482.805 null] ->> -% 1741 0 obj -<< -/D [1716 0 R /XYZ 108.264 471.847 null] -======= /D [1747 0 R /XYZ 159.073 647.189 null] >> % 1757 0 obj @@ -37186,46 +22320,13 @@ stream % 1758 0 obj << /D [1747 0 R /XYZ 159.073 625.271 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1759 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 460.888 null] -======= /D [1747 0 R /XYZ 159.073 614.312 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1760 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1716 0 R /XYZ 108.264 449.929 null] ->> -% 1744 0 obj -<< -/D [1716 0 R /XYZ 108.264 438.97 null] ->> -% 1713 0 obj -<< -/D [1716 0 R /XYZ 143.452 394.492 null] ->> -% 1714 0 obj -<< -/D [1716 0 R /XYZ 150.074 149.223 null] ->> -% 1715 0 obj -<< -/Font << /F53 1721 0 R /F46 1270 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1747 0 obj -<< -/Type /Page -/Contents 1748 0 R -/Resources 1746 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1745 0 R -======= /D [1747 0 R /XYZ 159.073 603.353 null] >> % 1761 0 obj @@ -37247,63 +22348,13 @@ stream % 1765 0 obj << /D [1747 0 R /XYZ 159.073 548.559 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1766 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1747 0 R /XYZ 149.705 753.953 null] ->> -% 485 0 obj -<< -/D [1747 0 R /XYZ 150.705 724.062 null] -======= /D [1747 0 R /XYZ 159.073 537.6 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1767 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1747 0 R /XYZ 150.705 638.48 null] ->> -% 1751 0 obj -<< -/D [1747 0 R /XYZ 150.705 638.48 null] ->> -% 1746 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1753 0 obj -<< -/Type /Page -/Contents 1754 0 R -/Resources 1752 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1745 0 R ->> -% 1755 0 obj -<< -/D [1753 0 R /XYZ 98.895 753.953 null] ->> -% 489 0 obj -<< -/D [1753 0 R /XYZ 99.895 724.062 null] ->> -% 1756 0 obj -<< -/D [1753 0 R /XYZ 99.895 638.48 null] ->> -% 1757 0 obj -<< -/D [1753 0 R /XYZ 99.895 638.48 null] ->> -% 1752 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] -======= /D [1747 0 R /XYZ 159.073 526.641 null] >> % 1768 0 obj @@ -37333,49 +22384,22 @@ stream % 1774 0 obj << /D [1747 0 R /XYZ 159.073 449.929 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1775 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Type /Page -/Contents 1760 0 R -/Resources 1758 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1745 0 R -======= /D [1747 0 R /XYZ 159.073 438.97 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1744 0 obj << /D [1747 0 R /XYZ 194.261 394.492 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -% 493 0 obj -<< -/D [1759 0 R /XYZ 150.705 724.062 null] ->> -% 1762 0 obj -<< -/D [1759 0 R /XYZ 150.705 635.69 null] ->> -% 1763 0 obj -<< -/D [1759 0 R /XYZ 150.705 638.48 null] -======= % 1745 0 obj << /D [1747 0 R /XYZ 200.884 149.223 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1746 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R >> -======= /Font << /F53 1752 0 R /F46 1300 0 R /F8 585 0 R /F30 810 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /ProcSet [ /PDF /Text ] >> % 1777 0 obj @@ -37384,486 +22408,6 @@ stream /Contents 1778 0 R /Resources 1776 0 R /MediaBox [0 0 595.276 841.89] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1745 0 R ->> -% 1767 0 obj -<< -/D [1765 0 R /XYZ 98.895 753.953 null] ->> -% 497 0 obj -<< -/D [1765 0 R /XYZ 99.895 724.062 null] ->> -% 1768 0 obj -<< -/D [1765 0 R /XYZ 99.895 635.69 null] ->> -% 1769 0 obj -<< -/D [1765 0 R /XYZ 99.895 638.48 null] ->> -% 1764 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1771 0 obj -<< -/Type /Page -/Contents 1772 0 R -/Resources 1770 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1745 0 R ->> -% 1773 0 obj -<< -/D [1771 0 R /XYZ 149.705 753.953 null] ->> -% 501 0 obj -<< -/D [1771 0 R /XYZ 150.705 716.092 null] ->> -% 1770 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> - -endstream -endobj -1777 0 obj -<< -/Length 4792 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 103.166 706.129 Td [(h)31(b)]TJ -ET -q -1 0 0 1 118.544 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 122.579 706.129 Td [(read)-274(|)-273(Read)-274(a)-273(sparse)-274(matrix)-274(from)-273(a)-274(\014le)-273(in)-274(the)-274(Harw)32(ell{)]TJ -22.684 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.554 0 Td [(h)-105(b)]TJ -ET -q -1 0 0 1 144.579 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 148.61 667.814 Td [(r)-105(e)-104(a)-105(d)-210(\050)-139(a)-228(,)-911(i)-149(r)-150(e)-149(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-117(n)-116(a)-116(m)-116(e)-393(,)-776(b)-191(,)-902(m)-142(t)-141(i)-141(t)-141(l)-142(e)-247(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -48.715 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 452.621 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 452.621 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -19.925 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.347 0 Td [(Rigth)-333(hand)-333(s)-1(i)1(de\050s)-1(\051.)]TJ 13.56 -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 [(An)-282(ar)1(ra)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(2)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.956 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(an)1(d)-384(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side,)-334(otherwise)-333(will)-333(b)-28(e)-333(left)-334(in)-333(the)-333(UNALLOCA)83(TED)-333(state.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-405(c)28(harac)28(h)28(ter)-405(v)56(ariable)-405(of)-405(length)-404(72)-405(holding)-405(a)-404(cop)27(y)-404(of)-405(the)-405(matrix)-404(title)-405(as)]TJ 0 -11.956 Td [(sp)-28(eci\014ed)-333(b)28(y)-334(the)-333(Harw)28(ell-Bo)-28(eing)-333(format)-334(and)-333(con)28(tained)-333(in)-334(the)-333(input)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 139.477 -194.811 Td [(133)]TJ -0 g 0 G -ET - -endstream -endobj -1786 0 obj -<< -/Length 5239 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(h)31(b)]TJ -ET -q -1 0 0 1 166.082 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 170.117 706.129 Td [(write)-357(|)-357(W)93(rite)-357(a)-357(sparse)-357(matrix)-358(to)-357(a)-357(\014le)-357(in)-357(the)-357(Harw)31(ell{)]TJ -19.412 -13.948 Td [(Bo)-31(eing)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.733 0 Td [(h)-123(b)]TJ -ET -q -1 0 0 1 195.926 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 200.137 667.814 Td [(w)-123(r)-122(i)-123(t)-123(e)-228(\050)-139(a)-228(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-116(n)-116(a)-116(m)-117(e)-393(,)-821(k)-60(e)-60(y)-281(,)-853(r)-92(h)-91(s)-345(,)-902(m)-141(t)-142(i)-141(t)-141(l)-141(e)-247(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -49.432 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(to)-333(b)-28(e)-333(written.)]TJ 14.355 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 362.845 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 586.121 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 586.121 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.347 -19.926 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(sid)1(e)-1(.)]TJ 13.56 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(Optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-282(arr)1(a)27(y)-281(of)-282(t)28(yp)-28(e)-281(real)-282(or)-281(complex,)-292(rank)-282(1)-281(and)-282(ha)28(ving)-281(the)-282(ALLOCA)83(T)84(ABLE)]TJ 0 -11.955 Td [(attribute;)-409(will)-384(b)-28(e)-384(allo)-28(cated)-384(and)-383(\014lled)-384(in)-384(if)-384(the)-384(input)-384(\014le)-384(con)28(tains)-384(a)-384(righ)28(t)]TJ 0 -11.955 Td [(hand)-333(side.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(haracter)-435(v)56(ariable)-435(con)27(tain)1(ing)-436(a)-435(v)56(alid)-435(\014le)-435(name)-1(,)-460(or)]TJ/F30 9.9626 Tf 297.916 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-281(d)1(e)-1(f)1(ault)-281(output)-280(unit)-280(6)-281(\050i.e.)-427(stand)1(ard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -106.213 -19.926 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.626 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-334(meaningf)1(ul)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.289 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -19.925 Td [(k)32(ey)]TJ -0 g 0 G -/F8 9.9626 Tf 22.008 0 Td [(Matrix)-333(k)28(ey)83(.)]TJ 2.899 -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.956 Td [(A)-385(c)28(harac)28(h)28(ter)-385(v)56(ariable)-385(of)-385(length)-384(8)-385(holding)-385(the)-384(matrix)-385(k)28(ey)-385(as)-385(sp)-28(eci\014ed)-384(b)27(y)]TJ 0 -11.955 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-318(c)28(harac)28(h)28(ter)-318(v)56(ariable)-318(of)-317(length)-318(72)-317(holding)-318(the)-317(matrix)-318(title)-318(as)-317(sp)-28(eci\014ed)-318(b)28(y)]TJ 0 -11.956 Td [(the)-333(Harw)27(ell-Bo)-27(eing)-334(format)-333(and)-333(to)-334(b)-27(e)-334(written)-333(to)-333(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -21.917 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.477 -139.02 Td [(134)]TJ -0 g 0 G -ET - -endstream -endobj -1793 0 obj -<< -/Length 3661 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 123.118 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 127.153 706.129 Td [(mat)]TJ -ET -q -1 0 0 1 150.936 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 154.971 706.129 Td [(read)-467(|)-467(Read)-466(a)-467(sparse)-467(matrix)-467(from)-467(a)-467(\014le)-466(in)-467(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.009 0 Td [(m)-50(m)]TJ -ET -q -1 0 0 1 148.479 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 151.965 667.814 Td [(m)-50(a)-50(t)]TJ -ET -q -1 0 0 1 171.214 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 174.701 667.814 Td [(r)-50(e)-50(a)-50(d)-155(\050)-139(a)-228(,)-911(i)-149(r)-150(e)-149(t)-460(,)-897(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -74.806 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 452.621 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 452.82 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 452.621 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 139.477 -318.348 Td [(135)]TJ -0 g 0 G -ET - -endstream -endobj -1799 0 obj -<< -/Length 3696 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 173.928 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 177.963 706.129 Td [(arra)31(y)]TJ -ET -q -1 0 0 1 209.557 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 213.592 706.129 Td [(read)-504(|)-504(Read)-504(a)-504(dense)-504(ar)1(ra)31(y)-504(from)-504(a)-504(\014le)-504(in)-504(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.373 0 Td [(m)-86(m)]TJ -ET -q -1 0 0 1 200.38 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 204.23 667.814 Td [(a)-86(r)-87(r)-86(a)-87(y)]TJ -ET -q -1 0 0 1 232.16 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 236.01 667.814 Td [(r)-86(e)-87(a)-86(d)-192(\050)-121(b)-191(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -85.305 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.956 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(an)1(ingful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(side\050s\051.)]TJ 13.561 -11.956 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 [(An)-310(arra)28(y)-310(of)-310(t)28(yp)-28(e)-310(real)-310(or)-310(complex,)-315(ran)1(k)-310(1)-310(or)-310(2)-310(and)-310(ha)28(ving)-310(the)-310(ALLOCA)83(T-)]TJ 0 -11.955 Td [(ABLE)-334(attribute;)-334(will)-333(b)-28(e)-334(allo)-27(c)-1(ated)-333(and)-334(\014lled)-334(in)-333(if)-334(the)-334(input)-333(\014le)-334(con)28(tains)-334(a)]TJ 0 -11.955 Td [(righ)28(t)-333(hand)-334(side,)-333(otherwise)-333(will)-334(b)-27(e)-334(left)-333(in)-333(the)-334(UNALLOCA)84(TED)-334(state.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -11.956 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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.477 -294.437 Td [(136)]TJ -0 g 0 G -ET - -endstream -endobj -1806 0 obj -<< -/Length 4176 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 11.9552 Tf 99.895 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 123.118 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 127.153 706.129 Td [(mat)]TJ -ET -q -1 0 0 1 150.936 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 154.971 706.129 Td [(write)-531(|)-532(W)94(rite)-532(a)-531(sparse)-531(matrix)-532(to)-531(a)-532(\014le)-531(in)-531(the)]TJ -55.076 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.175 0 Td [(m)-67(m)]TJ -ET -q -1 0 0 1 148.977 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 152.63 667.814 Td [(m)-67(a)-66(t)]TJ -ET -q -1 0 0 1 172.377 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 176.029 667.814 Td [(w)-67(r)-66(i)-67(t)-67(e)-172(\050)-139(a)-227(,)-885(m)-124(t)-123(i)-124(t)-124(l)-123(e)-409(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -76.134 -17.933 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 -19.925 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(to)-333(b)-28(e)-333(written.)]TJ 14.356 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 586.121 Td [(Tspmat)]TJ -ET -q -1 0 0 1 347.183 586.32 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 350.322 586.121 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -271.348 -19.926 Td [(m)32(title)]TJ -0 g 0 G -/F8 9.9626 Tf 34.738 0 Td [(Matrix)-333(title.)]TJ -9.831 -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 [(A)-299(c)28(harac)28(h)28(ter)-299(v)55(ariable)-299(h)1(olding)-299(a)-299(descriptiv)28(e)-299(title)-299(for)-299(the)-299(matrix)-298(to)-299(b)-28(e)-299(writ-)]TJ 0 -11.955 Td [(ten)-333(to)-334(\014le.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.606 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-280(default)-281(output)-280(unit)-280(6)-281(\050i.e.)-426(s)-1(t)1(andard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -106.213 -19.925 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.477 -262.557 Td [(137)]TJ -0 g 0 G -ET - -endstream -endobj -1812 0 obj -<< -/Length 3364 -======= /Parent 1743 0 R >> % 1779 0 obj @@ -37876,47 +22420,11 @@ endobj 1785 0 obj << /Length 1412 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(mm)]TJ -ET -q -1 0 0 1 173.928 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 177.963 706.129 Td [(arra)31(y)]TJ -ET -q -1 0 0 1 209.557 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 213.592 706.129 Td [(write)-438(|)-438(W)93(rite)-438(a)-438(dense)-438(arra)31(y)-438(from)-438(a)-438(\014le)-439(in)-438(the)]TJ -62.887 -13.948 Td [(MatrixMark)31(et)-375(format)]TJ/F27 9.9626 Tf 1.377 -24.367 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.492 0 Td [(m)-99(m)]TJ -ET -q -1 0 0 1 200.739 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 204.709 667.814 Td [(a)-98(r)-99(r)-98(a)-99(y)]TJ -ET -q -1 0 0 1 233.237 668.014 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 237.207 667.814 Td [(w)-99(r)-98(i)-98(t)-99(e)-204(\050)-120(b)-191(,)-911(i)-149(r)-150(e)-149(t)-461(,)-896(i)-134(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-235(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -86.502 -17.933 Td [(T)32(yp)-32(e:)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(8.2)-1125(psb)]TJ ET q @@ -37936,73 +22444,30 @@ BT 0 g 0 G 0 g 0 G /F27 9.9626 Tf -55.523 -27.896 Td [(T)32(yp)-32(e:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 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 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 0 -19.925 Td [(b)]TJ -0 g 0 G -/F8 9.9626 Tf 11.346 0 Td [(Rigth)-333(hand)-334(side\050s\051.)]TJ 13.56 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(An)-333(arra)27(y)-333(of)-333(t)28(yp)-28(e)-333(real)-334(or)-333(complex,)-333(rank)-334(1)-333(or)-333(2;)-334(will)-333(b)-28(e)-333(written..)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(\014lename)]TJ -0 g 0 G -/F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written.)]TJ -21.607 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)28(haracte)-1(r)-435(v)56(ariable)-435(con)28(taining)-435(a)-436(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.145 -11.955 Td [(whic)28(h)-302(case)-303(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.057 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -96.195 -19.926 Td [(iunit)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(an)1(ingful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(iret)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ -0 g 0 G - 139.477 -318.348 Td [(138)]TJ -======= 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(global)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger.)]TJ 0 g 0 G 139.476 -463.802 Td [(130)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1818 0 obj -<< -/Length 1212 -======= 1791 0 obj << /Length 1641 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 14.3462 Tf 99.895 706.129 Td [(10)-1125(Preconditioner)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-310(base)-310(PSBLAS)-310(library)-310(con)28(tains)-310(the)-310(implemen)28(tation)-310(of)-310(t)28(w)27(o)-310(simple)-310(precondi-)]TJ 0 -11.955 Td [(tioning)-333(tec)27(hn)1(iques:)]TJ -0 g 0 G -/F14 9.9626 Tf 14.944 -19.925 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Diagonal)-333(Scaling)]TJ -0 g 0 G -/F14 9.9626 Tf -9.963 -19.926 Td [(\017)]TJ -0 g 0 G -/F8 9.9626 Tf 9.963 0 Td [(Blo)-28(c)28(k)-333(Jacobi)-334(with)-333(ILU\0500\051)-333(factorization)]TJ -24.907 -19.925 Td [(The)-364(supp)-27(orting)-364(data)-364(t)28(yp)-27(e)-364(and)-364(subroutine)-363(in)28(terfaces)-364(are)-364(de\014ned)-363(in)-364(the)-364(mo)-27(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_prec_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)-844(The)-466(old)-466(in)27(terfaces)]TJ/F30 9.9626 Tf 96.595 0 Td [(psb_precinit)]TJ/F8 9.9626 Tf 67.41 0 Td [(and)]TJ/F30 9.9626 Tf 20.698 0 Td [(psb_precbld)]TJ/F8 9.9626 Tf 62.18 0 Td [(are)-466(still)]TJ -309.647 -11.955 Td [(supp)-28(orted)-333(for)-333(bac)27(kw)28(ard)-333(compatibilit)28(y)]TJ -0 g 0 G - 164.384 -498.229 Td [(139)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(8.3)-1125(psb)]TJ ET q @@ -38047,103 +22512,19 @@ BT /F8 9.9626 Tf 11.028 0 Td [(the)-333(v)27(erb)-27(osit)27(y)-333(lev)28(el)]TJ 13.879 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 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(an)-333(in)28(teger.)]TJ 0 g 0 G 139.477 -463.802 Td [(131)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1825 0 obj -<< -/Length 5089 -======= 1797 0 obj << /Length 2114 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(init)-375(|)-375(Initialize)-375(a)-375(preconditioner)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(icon)32(txt)]TJ -0 g 0 G -/F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.95 0 Td [(global)]TJ/F8 9.9626 Tf 29.757 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(in)28(teger)-333(v)55(alue.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.925 Td [(pt)32(yp)-32(e)]TJ -0 g 0 G -/F8 9.9626 Tf 33.465 0 Td [(the)-333(t)28(yp)-28(e)-334(of)-333(preconditioner.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 153.092 0 Td [(global)]TJ/F8 9.9626 Tf -161.65 -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.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(c)28(haracter)-333(string,)-334(see)-333(usage)-334(n)1(ote)-1(s.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -19.926 Td [(On)-383(Exit)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.879 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ -ET -q -1 0 0 1 389.467 446.843 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 446.644 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 446.843 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 446.644 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.509 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.058 0 Td [(Legal)-316(inputs)-315(to)-316(this)-316(subroutine)-315(are)-316(in)28(terpreted)-316(dep)-28(ending)-315(on)-316(the)]TJ/F11 9.9626 Tf 283.15 0 Td [(pty)-36(pe)]TJ/F8 9.9626 Tf -320.208 -11.955 Td [(string)-333(as)-334(follo)28(ws)]TJ -0 0 1 rg 0 0 1 RG -/F7 6.9738 Tf 69.932 3.615 Td [(4)]TJ -0 g 0 G -/F8 9.9626 Tf 4.47 -3.615 Td [(:)]TJ -0 g 0 G -/F27 9.9626 Tf -74.402 -19.925 Td [(NONE)]TJ -0 g 0 G -/F8 9.9626 Tf 39.048 0 Td [(No)-333(preconditioning,)-333(i.e.)-445(the)-333(preconditioner)-333(is)-334(just)-333(a)-333(cop)27(y)-333(op)-28(erator.)]TJ -0 g 0 G -/F27 9.9626 Tf -39.048 -19.926 Td [(DIA)32(G)]TJ -0 g 0 G -/F8 9.9626 Tf 35.464 0 Td [(Diagonal)-441(scaling;)-496(eac)28(h)-442(en)28(try)-441(of)-441(the)-442(input)-441(v)28(ector)-442(is)-441(m)27(ulti)1(plied)-442(b)28(y)-441(the)]TJ -10.557 -11.955 Td [(recipro)-28(cal)-346(of)-346(the)-346(sum)-345(of)-346(the)-346(absolute)-346(v)55(alues)-346(of)-346(th)1(e)-346(c)-1(o)-27(e\016cien)27(ts)-346(in)-345(the)-346(cor-)]TJ 0 -11.955 Td [(resp)-28(onding)-333(ro)28(w)-334(of)-333(matrix)]TJ/F11 9.9626 Tf 113.602 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)]TJ -0 g 0 G -/F27 9.9626 Tf -145.981 -19.925 Td [(BJA)32(C)]TJ -0 g 0 G -/F8 9.9626 Tf 35.672 0 Td [(Precondition)-249(b)28(y)-249(a)-249(factorization)-248(of)-249(the)-249(blo)-28(c)28(k-diagonal)-249(of)-249(matrix)]TJ/F11 9.9626 Tf 269.664 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(,)-266(where)]TJ -287.901 -11.956 Td [(blo)-28(c)28(k)-457(b)-28(oundaries)-457(are)-457(determined)-457(b)28(y)-457(the)-457(data)-457(allo)-28(cation)-457(b)-28(oundaries)-457(for)]TJ 0 -11.955 Td [(eac)28(h)-347(pro)-27(c)-1(ess;)-353(requires)-346(no)-347(comm)28(unication.)-484(Only)-347(the)-346(incomplete)-347(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F11 9.9626 Tf 20.478 0 Td [(I)-78(LU)]TJ/F8 9.9626 Tf 19.83 0 Td [(\0500\051)-333(is)-334(curren)28(tly)-333(implemen)28(ted.)]TJ -0 g 0 G -ET -q -1 0 0 1 150.705 129.78 cm -[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S -Q -BT -/F32 5.9776 Tf 161.797 123.138 Td [(4)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(The)-354(string)-354(is)-354(c)-1(a)1(se)-1(-)1(i)-1(nsensitiv)30(e)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 149.14 -29.888 Td [(140)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(8.4)-1125(psb)]TJ ET q @@ -38202,38 +22583,20 @@ BT /F8 9.9626 Tf 20.098 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(action.)]TJ -14.004 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -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(an)-333(in)28(teger.)-445(P)28(ossible)-333(v)55(alu)1(e)-1(s:)]TJ/F30 9.9626 Tf 180.269 0 Td [(psb_act_ret)]TJ/F8 9.9626 Tf 57.534 0 Td [(,)]TJ/F30 9.9626 Tf 6.088 0 Td [(psb_act_abort)]TJ/F8 9.9626 Tf 67.995 0 Td [(.)]TJ 0 g 0 G -172.409 -463.802 Td [(132)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1834 0 obj -<< -/Length 7751 -======= 1803 0 obj << /Length 537 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(build)-375(|)-375(Builds)-375(a)-375(preconditioner)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -19.764 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -24.132 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -======= /F16 14.3462 Tf 99.895 706.129 Td [(9)-1125(Utilities)]TJ/F8 9.9626 Tf 0 -21.821 Td [(W)83(e)-412(ha)27(v)28(e)-412(s)-1(ome)-412(utilities)-413(a)28(v)55(ailab)1(le)-413(for)-413(input)-412(and)-413(output)-412(of)-413(sparse)-413(matrices;)-452(the)]TJ 0 -11.955 Td [(in)28(terfaces)-334(to)-333(these)-333(routines)-334(are)-333(a)28(v)55(ailable)-333(in)-333(the)-334(mo)-27(dule)]TJ/F30 9.9626 Tf 241.844 0 Td [(psb_util_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -140.224 -581.915 Td [(133)]TJ 0 g 0 G @@ -38248,31 +22611,6 @@ endobj stream 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.551 0 Td [(the)-333(system)-334(sparse)-333(matrix.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 148.886 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -134.53 -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 [(,)-333(target.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(sparse)-333(matrix)-334(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 194.05 0 Td [(psb)]TJ -ET -q -1 0 0 1 335.171 580.809 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 338.309 580.61 Td [(Tspmat)]TJ -ET -q -1 0 0 1 370.319 580.809 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 373.457 580.61 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -294.484 -22.879 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(already)-222(initialized)-222(precondtioner)-222(data)-223(structure)]TJ -======= BT /F16 11.9552 Tf 150.705 706.129 Td [(9.1)-1588(h)32(b)]TJ ET @@ -38313,25 +22651,10 @@ BT 0 -19.925 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(read)-333(from)-334(\014le.)]TJ 14.356 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.915 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 414.236 510.11 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.374 509.91 Td [(prec)]TJ -ET -q -1 0 0 1 438.923 510.11 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 442.061 509.91 Td [(type)]TJ -======= 1 0 0 1 362.845 452.82 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -38344,7 +22667,6 @@ q Q BT /F30 9.9626 Tf 401.131 452.621 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G @@ -38363,34 +22685,6 @@ BT 139.477 -194.811 Td [(134)]TJ 0 g 0 G ET -<<<<<<< HEAD:docs/psblas-3.6.pdf -q -1 0 0 1 121.81 475.276 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 475.077 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -11.956 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 [(,)-333(target.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(comm)28(unication)-333(desc)-1(ri)1(ptor)-334(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 247.683 0 Td [(psb)]TJ -ET -q -1 0 0 1 388.803 439.41 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 391.942 439.211 Td [(desc)]TJ -ET -q -1 0 0 1 413.491 439.41 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 416.629 439.211 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -======= endstream endobj @@ -38418,140 +22712,8 @@ Q BT /F8 9.9626 Tf 149.328 667.814 Td [(w)-123(r)-122(i)-123(t)-123(e)-228(\050)-139(a)-228(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-877(f)-116(i)-116(l)-116(e)-116(n)-116(a)-116(m)-117(e)-393(,)-821(k)-60(e)-60(y)-281(,)-853(r)-92(h)-91(s)-345(,)-902(m)-141(t)-142(i)-141(t)-141(l)-141(e)-247(\051)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 35.374 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -10.467 -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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ -ET -q -1 0 0 1 344.47 368.711 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 347.608 368.512 Td [(T)]TJ -ET -q -1 0 0 1 353.466 368.711 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 356.604 368.512 Td [(base)]TJ -ET -q -1 0 0 1 378.153 368.711 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 381.291 368.512 Td [(sparse)]TJ -ET -q -1 0 0 1 413.301 368.711 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 416.439 368.512 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -332.235 -22.879 Td [(vmold)]TJ -0 g 0 G -/F8 9.9626 Tf 35.852 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -10.945 -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 [(.)]TJ -70.188 -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(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ -ET -q -1 0 0 1 344.47 298.012 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 347.608 297.812 Td [(T)]TJ -ET -q -1 0 0 1 353.466 298.012 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 356.604 297.812 Td [(base)]TJ -ET -q -1 0 0 1 378.153 298.012 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 381.291 297.812 Td [(vect)]TJ -ET -q -1 0 0 1 402.84 298.012 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 405.978 297.812 Td [(type)]TJ/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -327.005 -22.878 Td [(imold)]TJ -0 g 0 G -/F8 9.9626 Tf 32.988 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(th)1(e)-334(in)28(ternal)-333(in)28(te)-1(ger)-333(v)28(ector)-333(s)-1(t)1(o)-1(r)1(age)-1(.)]TJ -8.081 -11.956 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 [(.)]TJ -70.188 -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)-222(as:)-389(an)-222(ob)-56(ject)-222(of)-222(a)-222(class)-223(deriv)28(ed)-222(from)-222(\050in)28(teger\051)]TJ/F30 9.9626 Tf 233.541 0 Td [(psb)]TJ -ET -q -1 0 0 1 374.662 227.312 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 377.8 227.113 Td [(T)]TJ -ET -q -1 0 0 1 383.658 227.312 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 386.796 227.113 Td [(base)]TJ -ET -q -1 0 0 1 408.345 227.312 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 411.483 227.113 Td [(vect)]TJ -ET -q -1 0 0 1 433.032 227.312 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 436.171 227.113 Td [(type)]TJ/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -357.197 -24.133 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -22.879 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(precondtioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 194.77 0 Td [(psb)]TJ -ET -q -1 0 0 1 335.891 132.48 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.029 132.281 Td [(prec)]TJ -ET -q -1 0 0 1 360.578 132.48 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 363.716 132.281 Td [(type)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf -99.437 -41.843 Td [(141)]TJ -0 g 0 G -ET - -endstream -endobj -1838 0 obj -<< -/Length 1097 ->> -stream -======= /F27 9.9626 Tf -49.433 -17.933 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G /F8 9.9626 Tf 33.797 0 Td [(Async)28(hronous.)]TJ @@ -38743,46 +22905,21 @@ BT /F8 9.9626 Tf 185.201 667.814 Td [(r)-86(e)-87(a)-86(d)-192(\050)-121(b)-191(,)-910(i)-150(r)-149(e)-150(t)-460(,)-896(i)-135(u)-135(n)-135(i)-135(t)-431(,)-890(f)-129(i)-129(l)-129(e)-129(n)-129(a)-129(m)-129(e)-234(\051)]TJ 0 g 0 G 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -85.306 -17.933 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 -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F27 9.9626 Tf 150.705 706.129 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)27(t)1(e)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -24.906 -21.918 Td [(The)]TJ/F30 9.9626 Tf 21.637 0 Td [(amold)]TJ/F8 9.9626 Tf 26.152 0 Td [(,)]TJ/F30 9.9626 Tf 7.537 0 Td [(vmold)]TJ/F8 9.9626 Tf 30.631 0 Td [(and)]TJ/F30 9.9626 Tf 20.53 0 Td [(imold)]TJ/F8 9.9626 Tf 30.631 0 Td [(argumen)28(ts)-450(ma)28(y)-450(b)-28(e)-449(emplo)28(y)27(ed)-449(to)-450(in)28(terface)-450(with)]TJ -137.118 -11.955 Td [(sp)-28(ecial)-333(devices,)-334(suc)28(h)-333(as)-334(GP)1(Us)-334(and)-333(other)-333(acc)-1(elerators.)]TJ -0 g 0 G - 164.383 -533.997 Td [(142)]TJ -0 g 0 G -ET - -endstream -endobj -1846 0 obj -<< -/Length 5847 ->> -stream -======= /F27 9.9626 Tf -33.797 -19.925 Td [(On)-383(En)32(try)]TJ 0 g 0 G 0 g 0 G 0 -19.925 Td [(\014lename)]TJ 0 g 0 G /F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(read.)]TJ -21.606 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(h)1(arac)-1(ter)-435(v)56(ariable)-435(con)28(taining)-436(a)-435(v)56(alid)-435(\014le)-435(name,)-461(or)]TJ/F30 9.9626 Tf 297.915 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(,)-461(in)]TJ -303.146 -11.956 Td [(whic)28(h)-302(cas)-1(e)-302(the)-302(default)-302(input)-302(unit)-302(5)-303(\050i.e.)-434(standard)-302(input)-302(in)-302(Unix)-302(jargon\051)-302(is)]TJ 0 -11.955 Td [(used.)-444(Default:)]TJ/F30 9.9626 Tf 66.058 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -96.195 -19.925 Td [(iunit)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -BT -/F16 11.9552 Tf 99.895 706.129 Td [(apply)-375(|)-375(Preconditioner)-375(application)-375(routine)]TJ -======= /F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(un)1(it)-334(n)28(um)28(b)-28(er.)]TJ -3.625 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.76 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-333(me)-1(ani)1(ngful)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.288 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G @@ -38797,67 +22934,6 @@ BT 0 g 0 G 139.477 -294.437 Td [(137)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 119.331 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.832 -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(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ -ET -q -1 0 0 1 338.658 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 341.796 578.15 Td [(prec)]TJ -ET -q -1 0 0 1 363.345 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 366.483 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.51 -19.925 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(the)-333(source)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 113.851 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -99.972 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ -ET -q -1 0 0 1 364.616 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 367.754 522.36 Td [(T)]TJ -ET -q -1 0 0 1 373.612 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 376.751 522.36 Td [(vect)]TJ -ET -q -1 0 0 1 398.3 522.559 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.438 522.36 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -322.464 -19.926 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 502.634 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 502.434 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -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(comm)28(unication)-333(data)-334(structure)]TJ -======= ET endstream @@ -38912,27 +22988,10 @@ BT 0 -19.925 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.551 0 Td [(the)-333(sparse)-334(matrix)-333(to)-333(b)-28(e)-333(written.)]TJ 14.356 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.898 0 Td [(.)]TJ -67.081 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 170.914 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 342.2 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 345.339 466.569 Td [(desc)]TJ -ET -q -1 0 0 1 366.887 466.768 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 370.026 466.569 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -======= 1 0 0 1 362.845 586.32 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -38945,23 +23004,14 @@ q Q BT /F30 9.9626 Tf 401.131 586.121 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 30.609 0 Td [(Scop)-28(e:)]TJ -5.702 -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(a)-333(c)28(haracter.)]TJ -======= /F27 9.9626 Tf -271.347 -19.926 Td [(m)32(title)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 34.737 0 Td [(Matrix)-333(title.)]TJ -9.831 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(A)-299(c)28(harac)28(h)27(t)1(e)-1(r)-298(v)55(ariable)-299(hold)1(ing)-299(a)-299(descriptiv)28(e)-299(title)-299(for)-299(the)-299(matrix)-298(to)-299(b)-28(e)-299(writ-)]TJ 0 -11.955 Td [(ten)-333(to)-334(\014le.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 29.432 0 Td [(an)-333(optional)-333(w)27(ork)-333(space)-333(Scop)-28(e:)]TJ/F27 9.9626 Tf 135.962 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -140.487 -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.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(double)-333(precision)-333(arra)27(y)84(.)]TJ -======= /F27 9.9626 Tf -24.906 -19.925 Td [(\014lename)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 46.513 0 Td [(The)-333(name)-334(of)-333(the)-333(\014le)-334(to)-333(b)-28(e)-333(written)-333(to.)]TJ -21.607 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-435(as:)-648(a)-435(c)27(haracter)-435(v)56(ariable)-435(con)27(tain)1(ing)-436(a)-435(v)56(alid)-435(\014le)-435(name)-1(,)-460(or)]TJ/F30 9.9626 Tf 297.916 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(,)-461(in)]TJ -303.146 -11.955 Td [(whic)28(h)-281(case)-280(the)-281(d)1(e)-1(f)1(ault)-281(output)-280(unit)-280(6)-281(\050i.e.)-427(stand)1(ard)-281(output)-280(in)-280(Unix)-281(jargon\051)]TJ 0 -11.955 Td [(is)-333(used.)-445(Default:)]TJ/F30 9.9626 Tf 76.076 0 Td [(-)]TJ/F8 9.9626 Tf 5.231 0 Td [(.)]TJ 0 g 0 G @@ -38969,113 +23019,27 @@ BT 0 g 0 G /F8 9.9626 Tf 28.532 0 Td [(The)-333(F)83(ortran)-333(\014le)-334(u)1(nit)-334(n)28(um)28(b)-28(er.)]TJ -3.626 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.184 0 Td [(optional)]TJ/F8 9.9626 Tf 40.577 0 Td [(.)]TJ -65.761 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(alue.)-444(Only)-334(meaningf)1(ul)-334(if)-333(\014lename)-333(is)-334(not)]TJ/F30 9.9626 Tf 286.289 0 Td [(-)]TJ/F8 9.9626 Tf 5.23 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 11.028 0 Td [(the)-333(destination)-334(v)28(ector.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 134.856 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.977 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ -ET -q -1 0 0 1 364.616 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 367.754 277.279 Td [(T)]TJ -ET -q -1 0 0 1 373.612 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 376.751 277.279 Td [(vect)]TJ -ET -q -1 0 0 1 398.3 277.478 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.438 277.279 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -======= /F27 9.9626 Tf -316.425 -21.918 Td [(On)-383(Return)]TJ 0 g 0 G ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 -19.925 Td [(iret)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.149 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detecte)-1(d)1(.)]TJ -0 g 0 G - 139.477 -119.095 Td [(143)]TJ -======= /F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(teger)-334(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ 0 g 0 G 139.476 -262.557 Td [(138)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1851 0 obj -<< -/Length 2936 -======= 1842 0 obj << /Length 3393 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(descr)-375(|)-375(Prin)31(ts)-375(a)-375(description)-375(of)-375(curren)31(t)-375(preconditioner)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%descr\050\051)]TJ 0 -11.956 Td [(call)-525(prec%descr\050iout,)-525(root\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.917 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 119.33 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -120.832 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.538 0 Td [(psb)]TJ -ET -q -1 0 0 1 389.467 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 578.15 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.509 -19.925 Td [(iout)]TJ -0 g 0 G -/F8 9.9626 Tf 24.713 0 Td [(output)-333(unit.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 89.94 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -89.747 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(n)27(um)28(b)-28(er.)-444(Default:)-444(default)-334(outpu)1(t)-334(unit.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(ro)-32(ot)]TJ -0 g 0 G -/F8 9.9626 Tf 25.93 0 Td [(Pro)-28(cess)-333(from)-334(whic)28(h)-333(to)-333(prin)28(t)-334(Scop)-28(e:)]TJ/F27 9.9626 Tf 157.244 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -158.268 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -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)-478(as:)-733(an)-478(in)28(teger)-478(n)28(um)27(b)-27(er)-478(b)-28(et)28(w)28(een)-478(0)-478(and)]TJ/F11 9.9626 Tf 220.073 0 Td [(np)]TJ/F14 9.9626 Tf 14.166 0 Td [(\000)]TJ/F8 9.9626 Tf 10.922 0 Td [(1,)-514(in)-478(whic)28(h)-478(case)]TJ -245.161 -11.955 Td [(the)-410(sp)-28(eci\014ed)-410(pro)-28(cess)-410(will)-411(pri)1(n)27(t)-410(the)-410(description,)-429(or)]TJ/F14 9.9626 Tf 225 0 Td [(\000)]TJ/F8 9.9626 Tf 7.749 0 Td [(1,)-429(in)-411(whic)28(h)-410(case)-410(all)]TJ -232.749 -11.955 Td [(pro)-28(cesses)-333(will)-334(prin)28(t.)-444(Default:)-445(0.)]TJ -0 g 0 G - 139.477 -352.221 Td [(144)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(9.6)-1125(mm)]TJ ET q @@ -39135,90 +23099,44 @@ BT /F8 9.9626 Tf 22.589 0 Td [(Error)-333(co)-28(de.)]TJ 2.318 -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 [(An)-333(in)28(tege)-1(r)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detected.)]TJ 0 g 0 G 139.477 -318.348 Td [(139)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1855 0 obj -<< -/Length 989 -======= 1849 0 obj << /Length 1215 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 99.895 706.129 Td [(clone)-375(|)-375(clone)-375(curren)31(t)-375(preconditioner)]TJ -0 g 0 G -0 g 0 G -/F30 9.9626 Tf 0 -18.389 Td [(call)-1050(prec%clone\050precout,info\051)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -21.918 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 -19.926 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.925 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -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 -0 g 0 G -/F27 9.9626 Tf -80.359 -33.873 Td [(On)-383(Return)]TJ -0 g 0 G -======= /F16 14.3462 Tf 150.705 706.129 Td [(10)-1125(Preconditioner)-375(routines)]TJ/F8 9.9626 Tf 0 -21.821 Td [(The)-310(base)-310(PSBLAS)-310(library)-310(con)28(tains)-310(the)-310(implemen)28(tation)-310(of)-310(t)28(w)27(o)-310(simple)-310(precondi-)]TJ 0 -11.955 Td [(tioning)-333(tec)28(hniques:)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F14 9.9626 Tf 14.944 -19.925 Td [(\017)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 42.957 0 Td [(A)-333(cop)27(y)-333(of)-333(the)-334(in)1(put)-334(ob)-55(ject.)]TJ -======= /F8 9.9626 Tf 9.962 0 Td [(Diagonal)-333(Scaling)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F14 9.9626 Tf -9.962 -19.926 Td [(\017)]TJ 0 g 0 G /F8 9.9626 Tf 9.962 0 Td [(Blo)-28(c)28(k)-333(Jacobi)-334(with)-333(ILU\0500\051)-333(factorization)]TJ -24.906 -19.925 Td [(The)-364(supp)-27(orting)-364(data)-363(t)27(yp)-27(e)-364(and)-364(subroutin)1(e)-364(in)28(terfaces)-364(are)-364(de\014ned)-363(in)-364(the)-363(mo)-28(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_prec_mod)]TJ/F8 9.9626 Tf 62.764 0 Td [(.)-844(The)-466(old)-466(in)27(terfaces)]TJ/F30 9.9626 Tf 96.594 0 Td [(psb_precinit)]TJ/F8 9.9626 Tf 67.411 0 Td [(and)]TJ/F30 9.9626 Tf 20.697 0 Td [(psb_precbld)]TJ/F8 9.9626 Tf 62.181 0 Td [(are)-466(still)]TJ -309.647 -11.955 Td [(supp)-28(orted)-333(for)-333(bac)28(kw)27(ard)-333(compatibilit)28(y)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf - 140.626 -449.854 Td [(145)]TJ -======= 164.383 -498.229 Td [(140)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1862 0 obj -<< -/Length 2730 -======= 1855 0 obj << /Length 5089 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(free)-375(|)-375(F)94(ree)-375(a)-375(preconditioner)]TJ -======= /F16 11.9552 Tf 99.895 706.129 Td [(10.1)-1125(init)-375(|)-375(Initialize)-375(a)-375(preconditioner)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G /F30 9.9626 Tf 0 -18.389 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ @@ -39232,29 +23150,6 @@ BT 0 g 0 G 0 -19.925 Td [(icon)32(txt)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 197.537 0 Td [(psb)]TJ -ET -q -1 0 0 1 389.467 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 578.15 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 578.35 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 578.15 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -287.509 -19.925 Td [(On)-383(Exit)]TJ -======= /F8 9.9626 Tf 39.989 0 Td [(the)-333(comm)27(unication)-333(con)28(text.)]TJ -15.082 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 27.951 0 Td [(global)]TJ/F8 9.9626 Tf 29.756 0 Td [(.)]TJ -57.707 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 25.183 0 Td [(required)]TJ/F8 9.9626 Tf 41.899 0 Td [(.)]TJ -67.082 -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(an)-333(in)28(teger)-333(v)55(alue.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.925 Td [(pt)32(yp)-32(e)]TJ @@ -39262,34 +23157,15 @@ BT /F8 9.9626 Tf 33.465 0 Td [(the)-333(t)27(yp)-27(e)-334(of)-333(preconditioner.)-444(Scop)-28(e:)]TJ/F27 9.9626 Tf 153.093 0 Td [(global)]TJ/F8 9.9626 Tf -161.651 -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(c)28(haracter)-333(s)-1(t)1(ring,)-334(see)-333(usage)-334(notes.)]TJ 0 g 0 G /F27 9.9626 Tf -24.907 -19.926 Td [(On)-383(Exit)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G 0 -19.925 Td [(prec)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.879 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-444(a)-334(preconditioner)-333(data)-333(structure)]TJ -======= /F8 9.9626 Tf 26.408 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -33.88 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(preconditioner)-333(data)-333(structure)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 197.537 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 389.467 502.634 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 392.606 502.434 Td [(prec)]TJ -ET -q -1 0 0 1 414.155 502.634 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 417.293 502.434 Td [(type)]TJ -======= 1 0 0 1 338.658 446.843 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -39302,27 +23178,9 @@ q Q BT /F30 9.9626 Tf 366.483 446.644 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -287.509 -19.925 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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.485 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.034 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.234 0 Td [(Releases)-334(all)-333(in)28(ternal)-333(storage.)]TJ -0 g 0 G - 127.149 -334.288 Td [(146)]TJ -0 g 0 G -ET - -endstream -endobj -1866 0 obj -<< -/Length 598 ->> -stream -======= /F27 9.9626 Tf -287.51 -19.926 Td [(info)]TJ 0 g 0 G /F8 9.9626 Tf 23.758 0 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -31.23 -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 [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Error)-333(co)-28(de:)-444(if)-334(no)-333(error,)-333(0)-334(is)-333(returned.)]TJ/F16 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F8 9.9626 Tf 37.059 0 Td [(Legal)-316(inputs)-315(to)-316(this)-316(subroutine)-315(are)-316(in)28(terpreted)-316(dep)-28(ending)-315(on)-316(the)]TJ/F11 9.9626 Tf 283.149 0 Td [(pty)-36(pe)]TJ/F8 9.9626 Tf -320.208 -11.955 Td [(string)-333(as)-334(follo)28(ws)]TJ @@ -39340,7 +23198,6 @@ stream /F8 9.9626 Tf 35.464 0 Td [(Diagonal)-441(scaling;)-496(eac)28(h)-442(en)28(try)-441(of)-442(th)1(e)-442(input)-441(v)28(ec)-1(tor)-441(is)-441(m)27(ultip)1(lied)-442(b)28(y)-441(the)]TJ -10.557 -11.955 Td [(recipro)-28(cal)-346(of)-346(the)-346(sum)-346(of)-345(the)-346(absolute)-346(v)55(alues)-346(of)-346(the)-346(co)-27(e\016cien)27(ts)-346(in)-346(th)1(e)-346(c)-1(or)1(-)]TJ 0 -11.955 Td [(resp)-28(onding)-333(ro)28(w)-334(of)-333(matrix)]TJ/F11 9.9626 Tf 113.602 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)]TJ 0 g 0 G /F27 9.9626 Tf -145.981 -19.925 Td [(BJA)32(C)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 35.672 0 Td [(Precondition)-249(b)28(y)-249(a)-249(factorization)-248(of)-249(the)-249(blo)-28(c)28(k-diagonal)-249(of)-249(matrix)]TJ/F11 9.9626 Tf 269.665 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(,)-266(where)]TJ -287.902 -11.956 Td [(blo)-28(c)28(k)-457(b)-28(oundaries)-457(are)-457(determined)-457(b)28(y)-457(the)-457(data)-457(allo)-28(cation)-457(b)-28(oundaries)-457(for)]TJ 0 -11.955 Td [(eac)28(h)-347(pro)-28(cess;)-353(requires)-346(no)-347(comm)28(unication.)-484(Only)-347(the)-346(incomplete)-347(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F11 9.9626 Tf 20.479 0 Td [(I)-78(LU)]TJ/F8 9.9626 Tf 19.83 0 Td [(\0500\051)-333(is)-334(curren)28(tly)-333(implemen)28(ted.)]TJ 0 g 0 G @@ -39350,150 +23207,34 @@ q []0 d 0 J 0.398 w 0 0 m 137.482 0 l S Q BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 14.3462 Tf 99.895 706.129 Td [(11)-1125(Iterativ)31(e)-375(Metho)-31(ds)]TJ/F8 9.9626 Tf 0 -21.821 Td [(In)-519(this)-518(c)28(hapter)-519(w)28(e)-519(pro)28(vide)-519(routin)1(e)-1(s)-518(for)-519(preconditioners)-518(and)-519(iterativ)28(e)-519(meth-)]TJ 0 -11.955 Td [(o)-28(ds.)-647(The)-401(in)28(terfaces)-401(for)-401(Kryl)1(o)27(v)-401(subspace)-400(m)-1(etho)-27(ds)-401(are)-401(a)28(v)55(ailable)-400(in)-401(the)-401(mo)-28(dule)]TJ/F30 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F8 9.9626 Tf 73.225 0 Td [(.)]TJ -0 g 0 G - 91.159 -569.96 Td [(147)]TJ -======= /F32 5.9776 Tf 110.987 123.138 Td [(4)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(The)-354(string)-354(is)-355(case-insensitiv)30(e)]TJ 0 g 0 G 0 g 0 G /F8 9.9626 Tf 149.141 -29.888 Td [(141)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G ET endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1873 0 obj -<< -/Length 8299 -======= 1864 0 obj << /Length 7738 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream 0 g 0 G 0 g 0 G BT -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F16 11.9552 Tf 150.705 706.129 Td [(psb)]TJ -ET -q -1 0 0 1 171.761 706.328 cm -[]0 d 0 J 0.398 w 0 0 m 4.035 0 l S -Q -BT -/F16 11.9552 Tf 175.796 706.129 Td [(krylo)31(v)-375(|)-375(Krylo)31(v)-375(Metho)-31(ds)-375(Driv)31(er)-375(Routine)]TJ/F8 9.9626 Tf -25.091 -18.389 Td [(This)-343(subroutine)-342(is)-343(a)-343(driv)28(er)-343(that)-342(pro)27(vi)1(des)-343(a)-343(general)-343(in)28(terface)-343(for)-342(all)-343(the)-343(Krylo)28(v-)]TJ 0 -11.956 Td [(Subspace)-333(family)-334(metho)-27(ds)-334(implemen)28(ted)-333(in)-334(PSBLAS)-333(v)28(ersion)-333(2.)]TJ 14.944 -11.955 Td [(The)-333(stopping)-334(criterion)-333(can)-333(tak)28(e)-334(the)-333(follo)28(wing)-334(v)56(alues:)]TJ -======= /F16 11.9552 Tf 150.705 706.129 Td [(10.2)-1125(build)-375(|)-375(Builds)-375(a)-375(preconditioner)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.71 0 Td [(norm)28(wise)-334(bac)28(kw)28(ard)-333(error)-334(in)-333(the)-333(in\014nit)28(y)-334(norm;)-333(the)-333(iteration)-333(is)-334(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 109.582 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.95 0 Td [(=)]TJ/F14 9.9626 Tf 38.11 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ -ET -q -1 0 0 1 299.658 621.14 cm -[]0 d 0 J 0.398 w 0 0 m 70.572 0 l S -Q -BT -/F8 9.9626 Tf 299.658 611.815 Td [(\050)]TJ/F14 9.9626 Tf 3.875 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(A)]TJ/F14 9.9626 Tf 7.472 0 Td [(kk)]TJ/F11 9.9626 Tf 9.963 0 Td [(x)]TJ/F10 6.9738 Tf 5.693 -1.494 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.494 Td [(k)]TJ/F8 9.9626 Tf 7.196 0 Td [(+)]TJ/F14 9.9626 Tf 9.962 0 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F8 9.9626 Tf 4.981 0 Td [(\051)]TJ/F11 9.9626 Tf 7.838 6.834 Td [(<)-278(eps)]TJ -======= /F30 9.9626 Tf 0 -19.764 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf 0 -24.132 Td [(T)32(yp)-32(e:)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(in)-333(the)-333(2-norm;)-334(the)-333(iteration)-333(is)-334(stopp)-27(ed)-334(when)]TJ/F11 9.9626 Tf 135.514 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.95 0 Td [(=)]TJ/F14 9.9626 Tf 12.178 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ -ET -q -1 0 0 1 325.59 565.11 cm -[]0 d 0 J 0.398 w 0 0 m 18.708 0 l S -Q -BT -/F14 9.9626 Tf 325.59 555.785 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(b)]TJ/F14 9.9626 Tf 4.276 0 Td [(k)]TJ/F7 6.9738 Tf 4.981 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.433 8.328 Td [(<)-278(eps)]TJ -======= /F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -33.797 -22.879 Td [(On)-383(En)32(try)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 10.71 0 Td [(Relativ)28(e)-334(residual)-333(reduction)-333(in)-333(the)-334(2-norm;)-333(the)-333(iteration)-334(is)-333(stopp)-28(ed)-333(when)]TJ/F11 9.9626 Tf 133.17 -26.078 Td [(er)-28(r)]TJ/F8 9.9626 Tf 16.949 0 Td [(=)]TJ/F14 9.9626 Tf 14.523 6.74 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F10 6.9738 Tf 4.495 -1.495 Td [(i)]TJ/F14 9.9626 Tf 3.317 1.495 Td [(k)]TJ -ET -q -1 0 0 1 323.246 509.08 cm -[]0 d 0 J 0.398 w 0 0 m 23.396 0 l S -Q -BT -/F14 9.9626 Tf 323.246 499.755 Td [(k)]TJ/F11 9.9626 Tf 4.981 0 Td [(r)]TJ/F7 6.9738 Tf 4.495 -1.494 Td [(0)]TJ/F14 9.9626 Tf 4.469 1.494 Td [(k)]TJ/F7 6.9738 Tf 4.982 -1.494 Td [(2)]TJ/F11 9.9626 Tf 8.432 8.328 Td [(<)-278(eps)]TJ/F8 9.9626 Tf -199.9 -30.505 Td [(The)-442(b)-28(eha)28(viour)-443(is)-442(con)27(t)1(rolled)-443(b)28(y)-443(th)1(e)-443(istop)-442(argumen)27(t)-442(\050see)-443(later\051.)-771(In)-443(the)-442(ab)-28(o)28(v)28(e)]TJ 0 -11.955 Td [(form)28(ulae,)]TJ/F11 9.9626 Tf 43.127 0 Td [(x)]TJ/F10 6.9738 Tf 5.694 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.855 1.495 Td [(is)-255(the)-255(ten)28(tativ)28(e)-255(solution)-255(and)]TJ/F11 9.9626 Tf 122.118 0 Td [(r)]TJ/F10 6.9738 Tf 4.494 -1.495 Td [(i)]TJ/F8 9.9626 Tf 6.085 1.495 Td [(=)]TJ/F11 9.9626 Tf 10.516 0 Td [(b)]TJ/F14 9.9626 Tf 4.925 0 Td [(\000)]TJ/F11 9.9626 Tf 8.399 0 Td [(Ax)]TJ/F10 6.9738 Tf 13.165 -1.495 Td [(i)]TJ/F8 9.9626 Tf 5.856 1.495 Td [(the)-255(corresp)-28(onding)-254(residual)]TJ -230.234 -11.956 Td [(at)-333(the)]TJ/F11 9.9626 Tf 29.334 0 Td [(i)]TJ/F8 9.9626 Tf 3.433 0 Td [(-th)-333(iteration.)]TJ/F27 9.9626 Tf -31.39 -17.52 Td [(c)-138(a)-138(l)-139(l)]TJ/F8 9.9626 Tf 29.763 0 Td [(p)-126(s)-125(b)]TJ -ET -q -1 0 0 1 201.196 434.852 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 205.436 434.653 Td [(k)-126(r)-125(y)-126(l)-125(o)-126(v)-231(\050)-146(m)-40(e)-41(t)-40(h)-40(o)-40(d)-242(,)-194(a)-228(,)-255(p)-94(r)-94(e)-94(c)-349(,)-176(b)-191(,)-185(x)-209(,)-243(e)-81(p)-81(s)-323(,)-274(d)-113(e)-112(s)-113(c)]TJ -ET -q -1 0 0 1 402.384 434.852 cm -[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S -Q -BT -/F8 9.9626 Tf 406.495 434.653 Td [(a)-386(,)-288(i)-127(n)-127(f)-127(o)-302(,)-48(&)]TJ -226.787 -11.956 Td [(&)-579(i)-67(t)-67(m)-68(a)-67(x)-296(,)-311(i)-150(t)-149(e)-150(r)-460(,)]TJ/F27 9.9626 Tf 79.243 0 Td [(e)-65(r)-65(r)]TJ/F8 9.9626 Tf 18.89 0 Td [(,)-305(i)-144(t)-144(r)-144(a)-144(c)-145(e)-449(,)-319(i)-158(r)-158(s)-158(t)-476(,)-288(i)-126(s)-126(t)-126(o)-127(p)-413(,)-230(c)-69(o)-69(n)-69(d)-174(\051)]TJ -0 g 0 G -0 g 0 G -0 g 0 G -/F27 9.9626 Tf -127.136 -26.454 Td [(T)32(yp)-32(e:)]TJ -0 g 0 G -/F8 9.9626 Tf 33.797 0 Td [(Sync)28(hronous.)]TJ -0 g 0 G -/F27 9.9626 Tf -33.797 -19.513 Td [(On)-383(En)32(try)]TJ -0 g 0 G -0 g 0 G - 0 -19.514 Td [(metho)-32(d)]TJ -0 g 0 G -/F8 9.9626 Tf 43.012 0 Td [(a)-235(string)-235(that)-235(de\014nes)-235(the)-236(iterativ)28(e)-235(metho)-28(d)-235(to)-235(b)-28(e)-235(used.)-412(Supp)-27(orted)-235(v)55(alues)]TJ -18.106 -11.955 Td [(are:)]TJ -0 g 0 G -/F27 9.9626 Tf 0 -19.513 Td [(CG:)]TJ -0 g 0 G -/F8 9.9626 Tf 25.447 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(metho)-28(d;)]TJ -0 g 0 G -/F27 9.9626 Tf -25.447 -15.529 Td [(CGS:)]TJ -0 g 0 G -/F8 9.9626 Tf 31.812 0 Td [(the)-333(Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(metho)-28(d;)]TJ -0 g 0 G -/F27 9.9626 Tf -31.812 -15.528 Td [(GCR:)]TJ -0 g 0 G -/F8 9.9626 Tf 34.039 0 Td [(the)-333(Generalized)-334(Conjugate)-333(Residual)-333(metho)-28(d;)]TJ -0 g 0 G -/F27 9.9626 Tf -34.039 -15.529 Td [(F)32(CG:)]TJ -0 g 0 G -/F8 9.9626 Tf 32.337 0 Td [(the)-333(Flexible)-334(Conjugate)-333(Gradien)28(t)-333(me)-1(th)1(o)-28(d)]TJ -0 0 1 rg 0 0 1 RG -/F7 6.9738 Tf 177.626 3.616 Td [(5)]TJ -0 g 0 G -/F8 9.9626 Tf 4.47 -3.616 Td [(;)]TJ -0 g 0 G -/F27 9.9626 Tf -214.433 -15.528 Td [(BICG:)]TJ -0 g 0 G -/F8 9.9626 Tf 37.941 0 Td [(the)-333(Bi-Conjugate)-334(Gradien)28(t)-333(metho)-28(d;)]TJ -0 g 0 G -/F27 9.9626 Tf -37.941 -15.529 Td [(BICGST)96(AB:)]TJ -0 g 0 G -/F8 9.9626 Tf 68.133 0 Td [(the)-333(Bi-Conjugate)-334(Gradien)28(t)-333(Stabilized)-333(me)-1(th)1(o)-28(d;)]TJ -0 g 0 G -/F27 9.9626 Tf -68.133 -15.528 Td [(BICGST)96(ABL:)]TJ -0 g 0 G -/F8 9.9626 Tf 75.024 0 Td [(the)-222(Bi-Conjugate)-222(Gradien)27(t)-222(Stabilized)-222(metho)-28(d)-222(with)-222(restart-)]TJ -53.106 -11.955 Td [(ing;)]TJ -0 g 0 G -/F27 9.9626 Tf -21.918 -15.529 Td [(R)32(GMRES:)]TJ -======= 0 g 0 G 0 -22.879 Td [(a)]TJ 0 g 0 G @@ -39514,37 +23255,16 @@ q Q BT /F30 9.9626 Tf 424.267 580.61 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F8 9.9626 Tf 20.921 0 Td [(.)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F27 9.9626 Tf -83.713 -19.513 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.55 0 Td [(the)-333(lo)-28(cal)-333(p)-28(ortion)-333(of)-334(global)-333(sparse)-333(matrix)]TJ/F11 9.9626 Tf 178.969 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(.)]TJ -172.085 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= /F27 9.9626 Tf -294.483 -22.879 Td [(prec)]TJ 0 g 0 G /F8 9.9626 Tf 26.408 0 Td [(the)-333(preconditioner.)]TJ -1.501 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -32.378 -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.485 0 Td [(inout)]TJ/F8 9.9626 Tf 26.097 0 Td [(.)]TJ -59.582 -11.956 Td [(Sp)-28(eci\014ed)-222(as:)-389(an)-222(already)-222(initialized)-222(precondtioner)-222(data)-223(structure)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 273.115 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 362.845 137.958 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 365.983 137.759 Td [(Tspmat)]TJ -ET -q -1 0 0 1 397.993 137.958 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.131 137.759 Td [(type)]TJ -======= 1 0 0 1 465.045 510.11 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -39557,39 +23277,11 @@ q Q BT /F30 9.9626 Tf 492.871 509.91 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G 0 g 0 G /F27 9.9626 Tf -342.166 -34.833 Td [(desc)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 150.705 129.78 cm -[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S -Q -BT -/F32 5.9776 Tf 161.797 123.138 Td [(5)]TJ/F31 7.9701 Tf 4.151 -2.812 Td [(Note:)-472(the)-354(i)-1(mplemen)30(tation)-354(is)-354(for)]TJ/F33 7.9701 Tf 120.249 0 Td [(F)-148(C)-70(G)]TJ/F31 7.9701 Tf 19.733 0 Td [(\0501\051.)]TJ -0 g 0 G -0 g 0 G -/F8 9.9626 Tf 9.158 -29.888 Td [(148)]TJ -0 g 0 G -ET - -endstream -endobj -1885 0 obj -<< -/Length 7119 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 99.895 706.129 Td [(prec)]TJ -0 g 0 G -/F8 9.9626 Tf 26.408 0 Td [(The)-333(data)-334(structure)-333(con)28(taining)-333(the)-334(preconditioner.)]TJ -1.501 -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.956 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(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -======= 1 0 0 1 172.619 475.276 cm []0 d 0 J 0.398 w 0 0 m 3.437 0 l S Q @@ -39597,25 +23289,10 @@ BT /F27 9.9626 Tf 176.057 475.077 Td [(a)]TJ 0 g 0 G /F8 9.9626 Tf 10.55 0 Td [(the)-333(problem)-334(comm)28(unication)-333(descriptor.)-445(Scop)-27(e:)]TJ/F27 9.9626 Tf 208.247 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf -219.243 -11.956 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(,)-333(target.)]TJ -43.034 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(comm)28(unication)-333(des)-1(crip)1(tor)-334(data)-333(structure)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 0 1 rg 0 0 1 RG /F30 9.9626 Tf 247.683 0 Td [(psb)]TJ ET q -<<<<<<< HEAD:docs/psblas-3.6.pdf -1 0 0 1 312.036 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 658.308 Td [(prec)]TJ -ET -q -1 0 0 1 336.723 658.507 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 658.308 Td [(type)]TJ -======= 1 0 0 1 439.613 439.41 cm []0 d 0 J 0.398 w 0 0 m 3.138 0 l S Q @@ -39628,40 +23305,11 @@ q Q BT /F30 9.9626 Tf 467.438 439.211 Td [(type)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ +/F8 9.9626 Tf 20.922 0 Td [(.)]TJ 0 g 0 G /F27 9.9626 Tf -337.655 -22.879 Td [(amold)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 11.347 0 Td [(The)-333(RHS)-334(v)28(ector.)]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 -32.379 -11.956 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(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ -ET -q -1 0 0 1 364.616 588.484 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 367.754 588.285 Td [(T)]TJ -ET -q -1 0 0 1 373.612 588.484 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 376.751 588.285 Td [(vect)]TJ -ET -q -1 0 0 1 398.3 588.484 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.438 588.285 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -======= /F8 9.9626 Tf 35.374 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(matrix)-334(storage.)]TJ -10.467 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.378 0 Td [(lo)-32(cal)]TJ/F8 9.9626 Tf 23.073 0 Td [(.)]TJ -55.451 -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 [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.485 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.033 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-444(an)-334(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.348 0 Td [(psb)]TJ ET q @@ -39691,140 +23339,9 @@ q Q BT /F30 9.9626 Tf 467.248 368.512 Td [(mat)]TJ/F8 9.9626 Tf 15.691 0 Td [(.)]TJ ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf 0 g 0 G /F27 9.9626 Tf -332.234 -22.879 Td [(vmold)]TJ 0 g 0 G -<<<<<<< HEAD:docs/psblas-3.6.pdf -/F8 9.9626 Tf 11.028 0 Td [(The)-333(initial)-334(guess.)]TJ 13.879 -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 [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-333(arra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ -ET -q -1 0 0 1 364.616 518.461 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 367.754 518.262 Td [(T)]TJ -ET -q -1 0 0 1 373.612 518.461 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 376.751 518.262 Td [(vect)]TJ -ET -q -1 0 0 1 398.3 518.461 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 401.438 518.262 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -322.464 -22.203 Td [(eps)]TJ -0 g 0 G -/F8 9.9626 Tf 21.117 0 Td [(The)-333(stopping)-334(tolerance.)]TJ 3.79 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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(real)-333(n)28(um)27(b)-27(er.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.907 -22.203 Td [(desc)]TJ -ET -q -1 0 0 1 121.81 426.236 cm -[]0 d 0 J 0.398 w 0 0 m 3.437 0 l S -Q -BT -/F27 9.9626 Tf 125.247 426.036 Td [(a)]TJ -0 g 0 G -/F8 9.9626 Tf 10.551 0 Td [(con)28(tains)-334(d)1(ata)-334(structures)-333(for)-333(com)-1(m)28(unications.)]TJ -10.996 -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.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(structured)-333(data)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 170.915 0 Td [(psb)]TJ -ET -q -1 0 0 1 312.036 378.415 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 315.174 378.216 Td [(desc)]TJ -ET -q -1 0 0 1 336.723 378.415 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 339.861 378.216 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.921 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -260.887 -22.203 Td [(itmax)]TJ -0 g 0 G -/F8 9.9626 Tf 33.783 0 Td [(The)-333(maxim)27(um)-333(n)28(um)28(b)-28(er)-333(of)-334(iterations)-333(to)-333(p)-28(erform.)]TJ -8.876 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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.955 Td [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itmax)]TJ/F8 9.9626 Tf 29.504 0 Td [(=)-278(1000.)]TJ -68.94 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(in)28(teger)-333(v)55(ariable)]TJ/F11 9.9626 Tf 142.079 0 Td [(itmax)]TJ/F14 9.9626 Tf 29.504 0 Td [(\025)]TJ/F8 9.9626 Tf 10.516 0 Td [(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -207.006 -22.202 Td [(itrace)]TJ -0 g 0 G -/F8 9.9626 Tf 33.251 0 Td [(If)]TJ/F11 9.9626 Tf 8.911 0 Td [(>)]TJ/F8 9.9626 Tf 10.517 0 Td [(0)-228(prin)28(t)-228(out)-228(an)-227(informational)-228(message)-228(ab)-28(out)-228(con)28(v)28(ergence)-228(ev)28(e)-1(r)1(y)]TJ/F11 9.9626 Tf 265.015 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf -292.787 -11.955 Td [(iterations.)-444(If)-334(=)-277(0)-334(prin)28(t)-333(a)-334(message)-333(in)-333(case)-334(of)-333(con)28(v)27(ergence)-333(failure.)]TJ 0 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 [(Default:)]TJ/F11 9.9626 Tf 39.436 0 Td [(itr)-28(ace)]TJ/F8 9.9626 Tf 28.785 0 Td [(=)]TJ/F14 9.9626 Tf 10.516 0 Td [(\000)]TJ/F8 9.9626 Tf 7.748 0 Td [(1.)]TJ -0 g 0 G -/F27 9.9626 Tf -111.392 -34.158 Td [(irst)]TJ -0 g 0 G -/F8 9.9626 Tf 21.857 0 Td [(An)-333(in)28(te)-1(ger)-333(sp)-28(ecifying)-333(the)-333(restart)-334(parameter.)]TJ 3.05 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]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 40.577 0 Td [(.)]TJ -70.188 -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 [(V)83(alues:)]TJ/F11 9.9626 Tf 37.506 0 Td [(ir)-28(st)-447(>)]TJ/F8 9.9626 Tf 33.135 0 Td [(0.)-750(This)-435(is)-435(emplo)28(y)28(e)-1(d)-435(for)-435(the)-435(BiCGST)84(AB)-1(L)-435(or)-435(R)28(GMRES)]TJ -70.641 -11.955 Td [(metho)-28(ds,)-333(otherwise)-334(it)-333(is)-333(ignored.)]TJ -0 g 0 G - 139.477 -29.888 Td [(149)]TJ -0 g 0 G -ET - -endstream -endobj -1781 0 obj -<< -/Type /ObjStm -/N 100 -/First 972 -/Length 10716 ->> -stream -1776 0 1774 139 1778 284 505 342 1779 399 1780 457 1775 515 1785 621 1783 760 1787 903 -509 962 1788 1020 1789 1079 1784 1138 1792 1244 1790 1383 1794 1528 513 1586 1795 1643 1796 1701 -1791 1759 1798 1865 1800 1983 517 2042 1801 2100 1802 2159 1797 2218 1805 2324 1803 2463 1807 2607 -521 2665 1808 2722 1809 2780 1804 2838 1811 2944 1813 3062 525 3121 1814 3179 1815 3238 1810 3297 -1817 3403 1819 3521 529 3579 1816 3636 1824 3742 1821 3890 1822 4037 1826 4187 533 4246 1827 4304 -1823 4362 1833 4519 1828 4685 1829 4828 1830 4973 1831 5120 1835 5267 537 5325 1832 5382 1837 5488 -1839 5606 1836 5665 1845 5758 1840 5924 1841 6070 1842 6213 1843 6360 1847 6504 541 6562 1844 6619 -1850 6725 1848 6864 1852 7010 545 7069 1849 7127 1854 7259 1856 7377 549 7435 1853 7492 1861 7598 -1858 7746 1859 7892 1863 8039 553 8098 1860 8156 1865 8262 1867 8380 557 8438 1864 8495 1872 8588 -1868 8736 1869 8885 1874 9029 561 9088 1875 9146 1876 9205 1877 9264 1878 9323 1871 9381 1884 9578 -% 1776 0 obj -<< -/Type /Page -/Contents 1777 0 R -/Resources 1775 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R -/Annots [ 1774 0 R ] ->> -% 1774 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 449.411 372.239 460.536] -/A << /S /GoTo /D (spdata) >> ->> -% 1778 0 obj -<< -/D [1776 0 R /XYZ 98.895 753.953 null] ->> -% 505 0 obj -<< -/D [1776 0 R /XYZ 99.895 720.077 null] ->> -% 1779 0 obj -<< -/D [1776 0 R /XYZ 99.895 677.445 null] ->> -% 1780 0 obj -<< -/D [1776 0 R /XYZ 99.895 679.769 null] -======= /F8 9.9626 Tf 35.851 0 Td [(The)-333(desired)-334(dynamic)-333(t)28(yp)-28(e)-333(for)-334(the)-333(in)28(ternal)-333(v)27(ector)-333(storage.)]TJ -10.945 -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.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.956 Td [(Sp)-28(eci\014ed)-333(as:)-445(an)-333(ob)-55(ject)-334(of)-333(a)-333(class)-334(deriv)28(ed)-333(from)]TJ/F30 9.9626 Tf 203.349 0 Td [(psb)]TJ ET q @@ -40176,130 +23693,10 @@ stream << /Font << /F16 582 0 R /F8 585 0 R /F27 584 0 R >> /ProcSet [ /PDF /Text ] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 1784 0 obj << -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1785 0 obj -<< /Type /Page -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Contents 1786 0 R -/Resources 1784 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R -/Annots [ 1783 0 R ] ->> -% 1783 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 582.91 423.049 594.035] -/A << /S /GoTo /D (spdata) >> ->> -% 1787 0 obj -<< -/D [1785 0 R /XYZ 149.705 753.953 null] ->> -% 509 0 obj -<< -/D [1785 0 R /XYZ 150.705 720.077 null] ->> -% 1788 0 obj -<< -/D [1785 0 R /XYZ 150.705 677.445 null] ->> -% 1789 0 obj -<< -/D [1785 0 R /XYZ 150.705 679.769 null] ->> -% 1784 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1792 0 obj -<< -/Type /Page -/Contents 1793 0 R -/Resources 1791 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R -/Annots [ 1790 0 R ] ->> -% 1790 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 449.411 372.239 460.536] -/A << /S /GoTo /D (spdata) >> ->> -% 1794 0 obj -<< -/D [1792 0 R /XYZ 98.895 753.953 null] ->> -% 513 0 obj -<< -/D [1792 0 R /XYZ 99.895 720.077 null] ->> -% 1795 0 obj -<< -/D [1792 0 R /XYZ 99.895 679.769 null] ->> -% 1796 0 obj -<< -/D [1792 0 R /XYZ 99.895 679.769 null] ->> -% 1791 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1798 0 obj -<< -/Type /Page -/Contents 1799 0 R -/Resources 1797 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R ->> -% 1800 0 obj -<< -/D [1798 0 R /XYZ 149.705 753.953 null] ->> -% 517 0 obj -<< -/D [1798 0 R /XYZ 150.705 720.077 null] ->> -% 1801 0 obj -<< -/D [1798 0 R /XYZ 150.705 679.769 null] ->> -% 1802 0 obj -<< -/D [1798 0 R /XYZ 150.705 679.769 null] ->> -% 1797 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1805 0 obj -<< -/Type /Page -/Contents 1806 0 R -/Resources 1804 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R -/Annots [ 1803 0 R ] ->> -% 1803 0 obj -======= /Contents 1785 0 R /Resources 1783 0 R /MediaBox [0 0 595.276 841.89] @@ -40415,27 +23812,10 @@ stream /Annots [ 1806 0 R ] >> % 1806 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [294.721 582.91 372.239 594.035] -/A << /S /GoTo /D (spdata) >> ->> -% 1807 0 obj -<< -/D [1805 0 R /XYZ 98.895 753.953 null] ->> -% 521 0 obj -<< -/D [1805 0 R /XYZ 99.895 720.077 null] ->> -% 1808 0 obj -<< -/D [1805 0 R /XYZ 99.895 679.769 null] -======= /Rect [345.53 449.411 423.049 460.536] /A << /S /GoTo /D (spdata) >> >> @@ -40547,34 +23927,9 @@ stream % 1830 0 obj << /D [1828 0 R /XYZ 98.895 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> -% 1809 0 obj +% 529 0 obj << -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1805 0 R /XYZ 99.895 679.769 null] ->> -% 1804 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1811 0 obj -<< -/Type /Page -/Contents 1812 0 R -/Resources 1810 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1782 0 R ->> -% 1813 0 obj -<< -/D [1811 0 R /XYZ 149.705 753.953 null] ->> -% 525 0 obj -<< -/D [1811 0 R /XYZ 150.705 720.077 null] -======= /D [1828 0 R /XYZ 99.895 716.092 null] >> % 1831 0 obj @@ -40610,96 +23965,9 @@ stream % 1837 0 obj << /D [1835 0 R /XYZ 149.705 753.953 null] ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf ->> -% 1814 0 obj -<< -<<<<<<< HEAD:docs/psblas-3.6.pdf -/D [1811 0 R /XYZ 150.705 679.769 null] ->> -% 1815 0 obj -<< -/D [1811 0 R /XYZ 150.705 679.769 null] ->> -% 1810 0 obj -<< -/Font << /F16 570 0 R /F27 572 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1817 0 obj -<< -/Type /Page -/Contents 1818 0 R -/Resources 1816 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1820 0 R ->> -% 1819 0 obj -<< -/D [1817 0 R /XYZ 98.895 753.953 null] ->> -% 529 0 obj -<< -/D [1817 0 R /XYZ 99.895 716.092 null] ->> -% 1816 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F14 787 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1824 0 obj -<< -/Type /Page -/Contents 1825 0 R -/Resources 1823 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1820 0 R -/Annots [ 1821 0 R 1822 0 R ] ->> -% 1821 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 443.433 439.211 454.558] -/A << /S /GoTo /D (precdata) >> ->> -% 1822 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [219.641 354.046 226.103 366.086] -/A << /S /GoTo /D (Hfootnote.4) >> ->> -% 1826 0 obj -<< -/D [1824 0 R /XYZ 149.705 753.953 null] >> % 533 0 obj << -/D [1824 0 R /XYZ 150.705 720.077 null] ->> -% 1827 0 obj -<< -/D [1824 0 R /XYZ 165.948 129.79 null] ->> -% 1823 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F7 785 0 R /F32 788 0 R /F31 790 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1833 0 obj -<< -/Type /Page -/Contents 1834 0 R -/Resources 1832 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1820 0 R -/Annots [ 1828 0 R 1829 0 R 1830 0 R 1831 0 R ] ->> -% 1828 0 obj -======= /D [1835 0 R /XYZ 150.705 716.092 null] >> % 1838 0 obj @@ -40775,87 +24043,18 @@ stream /Annots [ 1851 0 R 1852 0 R ] >> % 1851 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [317.856 577.4 395.375 588.524] -/A << /S /GoTo /D (spdata) >> ->> -% 1829 0 obj -======= /Rect [321.343 443.433 388.401 454.558] /A << /S /GoTo /D (precdata) >> >> % 1852 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [396.921 506.7 463.979 517.825] -/A << /S /GoTo /D (precdata) >> ->> -% 1830 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [371.488 436.001 438.546 447.126] -/A << /S /GoTo /D (descdata) >> ->> -% 1831 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [318.576 129.071 385.634 140.196] -/A << /S /GoTo /D (precdata) >> ->> -% 1835 0 obj -<< -/D [1833 0 R /XYZ 98.895 753.953 null] ->> -% 537 0 obj -<< -/D [1833 0 R /XYZ 99.895 720.077 null] ->> -% 1832 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1837 0 obj -<< -/Type /Page -/Contents 1838 0 R -/Resources 1836 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1820 0 R ->> -% 1839 0 obj -<< -/D [1837 0 R /XYZ 149.705 753.953 null] ->> -% 1836 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 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 1820 0 R -/Annots [ 1840 0 R 1841 0 R 1842 0 R 1843 0 R ] ->> -% 1840 0 obj -======= /Rect [168.831 354.046 175.293 366.086] /A << /S /GoTo /D (Hfootnote.4) >> >> @@ -40886,425 +24085,34 @@ stream /Annots [ 1858 0 R 1859 0 R 1860 0 R 1861 0 R ] >> % 1858 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [321.343 574.94 388.401 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1841 0 obj -======= /Rect [368.666 577.4 446.184 588.524] /A << /S /GoTo /D (spdata) >> >> % 1859 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [347.301 519.15 423.355 530.274] -/A << /S /GoTo /D (vdata) >> ->> -% 1842 0 obj -======= /Rect [447.73 506.7 514.788 517.825] /A << /S /GoTo /D (precdata) >> >> % 1860 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [324.885 463.359 391.943 474.484] -/A << /S /GoTo /D (descdata) >> ->> -% 1843 0 obj -======= /Rect [422.298 436.001 489.356 447.126] /A << /S /GoTo /D (descdata) >> >> % 1861 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Annot /Subtype /Link /Border[0 0 0]/H/I/C[1 0 0] -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Rect [347.301 274.069 423.355 285.194] -/A << /S /GoTo /D (vdata) >> ->> -% 1847 0 obj -<< -/D [1845 0 R /XYZ 98.895 753.953 null] ->> -% 541 0 obj -<< -/D [1845 0 R /XYZ 99.895 720.077 null] ->> -% 1844 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1850 0 obj -<< -/Type /Page -/Contents 1851 0 R -/Resources 1849 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1820 0 R -/Annots [ 1848 0 R ] ->> -% 1848 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 574.94 439.211 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1852 0 obj -<< -/D [1850 0 R /XYZ 149.705 753.953 null] ->> -% 545 0 obj -<< -/D [1850 0 R /XYZ 150.705 720.077 null] ->> -% 1849 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1854 0 obj -<< -/Type /Page -/Contents 1855 0 R -/Resources 1853 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1857 0 R ->> -% 1856 0 obj -<< -/D [1854 0 R /XYZ 98.895 753.953 null] ->> -% 549 0 obj -<< -/D [1854 0 R /XYZ 99.895 720.077 null] ->> -% 1853 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1861 0 obj -<< -/Type /Page -/Contents 1862 0 R -/Resources 1860 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1857 0 R -/Annots [ 1858 0 R 1859 0 R ] ->> -% 1858 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 574.94 439.211 586.065] -/A << /S /GoTo /D (precdata) >> ->> -% 1859 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [372.153 499.224 439.211 510.349] -/A << /S /GoTo /D (precdata) >> ->> -% 1863 0 obj -<< -/D [1861 0 R /XYZ 149.705 753.953 null] ->> -% 553 0 obj -<< -/D [1861 0 R /XYZ 150.705 720.077 null] ->> -% 1860 0 obj -<< -/Font << /F16 570 0 R /F30 784 0 R /F27 572 0 R /F8 573 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1865 0 obj -<< -/Type /Page -/Contents 1866 0 R -/Resources 1864 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1857 0 R ->> -% 1867 0 obj -<< -/D [1865 0 R /XYZ 98.895 753.953 null] ->> -% 557 0 obj -<< -/D [1865 0 R /XYZ 99.895 716.092 null] ->> -% 1864 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1872 0 obj -<< -/Type /Page -/Contents 1873 0 R -/Resources 1871 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1857 0 R -/Annots [ 1868 0 R 1869 0 R ] ->> -% 1868 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [384.578 276.229 391.04 288.268] -/A << /S /GoTo /D (Hfootnote.5) >> ->> -% 1869 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [345.53 134.549 423.049 145.674] -/A << /S /GoTo /D (spdata) >> ->> -% 1874 0 obj -<< -/D [1872 0 R /XYZ 149.705 753.953 null] ->> -% 561 0 obj -<< -/D [1872 0 R /XYZ 150.705 720.077 null] ->> -% 1875 0 obj -<< -/D [1872 0 R /XYZ 150.705 446.608 null] ->> -% 1876 0 obj -<< -/D [1872 0 R /XYZ 150.705 446.608 null] ->> -% 1877 0 obj -<< -/D [1872 0 R /XYZ 150.705 434.653 null] ->> -% 1878 0 obj -<< -/D [1872 0 R /XYZ 165.948 129.79 null] ->> -% 1871 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F27 572 0 R /F11 770 0 R /F14 787 0 R /F10 786 0 R /F7 785 0 R /F30 784 0 R /F32 788 0 R /F31 790 0 R /F33 1879 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 1857 0 R -/Annots [ 1870 0 R 1880 0 R 1881 0 R 1882 0 R ] ->> - -endstream -endobj -1891 0 obj -<< -/Length 4673 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F27 9.9626 Tf 150.705 706.129 Td [(istop)]TJ -0 g 0 G -/F8 9.9626 Tf 29.232 0 Td [(An)-333(in)28(tege)-1(r)-333(sp)-28(ecifying)-333(the)-333(stopping)-333(c)-1(r)1(iterion.)]TJ -4.326 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf 40.576 0 Td [(.)]TJ -70.188 -11.956 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(in)]TJ/F8 9.9626 Tf 9.548 0 Td [(.)]TJ -43.034 -11.955 Td [(V)83(alues:)-478(1:)-479(use)-351(the)-350(norm)28(wise)-351(bac)28(kw)28(ard)-351(error,)-354(2:)-479(use)-350(the)-351(scaled)-350(2-norm)-351(of)]TJ 0 -11.955 Td [(the)-333(residual,)-334(3:)-444(use)-333(the)-334(residual)-333(reduction)-333(in)-334(the)-333(2-norm.)-444(Default:)-445(2.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(On)-383(Return)]TJ -0 g 0 G -0 g 0 G - 0 -19.926 Td [(x)]TJ -0 g 0 G -/F8 9.9626 Tf 11.028 0 Td [(The)-333(computed)-334(solution.)]TJ 13.878 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(inout)]TJ/F8 9.9626 Tf 26.096 0 Td [(.)]TJ -59.582 -11.955 Td [(Sp)-28(eci\014ed)-333(as:)-445(a)-333(rank)-333(one)-334(ar)1(ra)27(y)-333(or)-333(an)-334(ob)-55(ject)-333(of)-334(t)28(yp)-28(e)]TJ -0 0 1 rg 0 0 1 RG -/F30 9.9626 Tf 223.496 0 Td [(psb)]TJ -ET -q -1 0 0 1 415.426 558.881 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 418.564 558.682 Td [(T)]TJ -ET -q -1 0 0 1 424.422 558.881 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 427.56 558.682 Td [(vect)]TJ -ET -q -1 0 0 1 449.109 558.881 cm -[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S -Q -BT -/F30 9.9626 Tf 452.247 558.682 Td [(type)]TJ -0 g 0 G -/F8 9.9626 Tf 20.922 0 Td [(.)]TJ -0 g 0 G -/F27 9.9626 Tf -322.464 -19.925 Td [(iter)]TJ -0 g 0 G -/F8 9.9626 Tf 22.589 0 Td [(The)-333(n)27(u)1(m)27(b)-27(e)-1(r)-333(of)-333(iterations)-333(p)-28(erformed.)]TJ 2.317 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(an)-333(in)28(teger)-334(v)56(ariable.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(err)]TJ -0 g 0 G -/F8 9.9626 Tf 19.669 0 Td [(The)-333(con)27(v)28(ergence)-333(estimate)-334(on)-333(exit.)]TJ 5.237 -11.956 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-333(as:)-445(a)-333(real)-333(n)27(um)28(b)-28(er.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.925 Td [(cond)]TJ -0 g 0 G -/F8 9.9626 Tf 28.532 0 Td [(An)-280(estimate)-280(of)-279(the)-280(condition)-280(n)28(um)28(b)-28(er)-280(of)-279(matrix)]TJ/F11 9.9626 Tf 204.226 0 Td [(A)]TJ/F8 9.9626 Tf 7.472 0 Td [(;)-298(only)-279(a)28(v)55(ailable)-280(with)-279(the)]TJ/F11 9.9626 Tf -215.324 -11.956 Td [(C)-72(G)]TJ/F8 9.9626 Tf 18.988 0 Td [(metho)-28(d)-333(on)-333(real)-334(data.)]TJ -18.988 -11.955 Td [(Scop)-28(e:)]TJ/F27 9.9626 Tf 32.379 0 Td [(global)]TJ/F8 9.9626 Tf -32.379 -11.955 Td [(T)28(yp)-28(e:)]TJ/F27 9.9626 Tf 29.612 0 Td [(optional)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(Returned)-287(as:)-421(a)-287(real)-287(n)28(um)28(b)-28(er.)-429(A)-287(correct)-287(result)-286(will)-287(b)-28(e)-287(greater)-287(than)-287(or)-286(equal)]TJ 0 -11.955 Td [(to)-267(one;)-288(if)-267(sp)-28(eci\014ed)-266(for)-267(non-real)-266(data,)-280(or)-266(an)-267(error)-266(o)-28(ccurred,)-280(zero)-267(is)-266(returned.)]TJ -0 g 0 G -/F27 9.9626 Tf -24.906 -19.926 Td [(info)]TJ -0 g 0 G -/F8 9.9626 Tf 23.758 0 Td [(Error)-333(co)-28(de.)]TJ 1.148 -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.612 0 Td [(required)]TJ/F8 9.9626 Tf -29.612 -11.955 Td [(In)28(ten)28(t:)]TJ/F27 9.9626 Tf 33.486 0 Td [(out)]TJ/F8 9.9626 Tf 16.549 0 Td [(.)]TJ -50.035 -11.955 Td [(An)-333(in)28(te)-1(ger)-333(v)56(alue;)-334(0)-333(means)-333(no)-334(error)-333(has)-333(b)-28(een)-333(detec)-1(ted.)]TJ -0 g 0 G - 139.477 -173.35 Td [(150)]TJ -0 g 0 G -ET - -endstream -endobj -1895 0 obj -<< -/Length 7014 ->> -stream -0 g 0 G -0 g 0 G -BT -/F16 14.3462 Tf 99.895 706.129 Td [(References)]TJ -0 g 0 G -/F8 9.9626 Tf 4.982 -21.821 Td [([1])]TJ -0 g 0 G - [-500(D.)-441(Barbieri,)-468(V.)-441(Cardellini,)-467(S.)-441(Filipp)-28(one)-441(and)-441(D.)-441(Rouson)]TJ/F17 9.9626 Tf 267.833 0 Td [(Design)-457(Patterns)]TJ -252.336 -11.955 Td [(for)-441(S)-1(ci)1(ent)-1(i)1(\014)-1(c)-441(Computations)-442(on)-441(Sp)51(arse)-441(Matric)51(es)]TJ/F8 9.9626 Tf 210.802 0 Td [(,)-447(HPSS)-424(2011,)-447(Algorithms)]TJ -210.802 -11.955 Td [(and)-375(Programming)-374(T)83(o)-28(ols)-375(for)-374(Next-Generation)-375(High-P)28(erformance)-375(Scien)28(ti\014c)]TJ 0 -11.956 Td [(Soft)28(w)28(are,)-334(Bordeaux,)-333(Sep.)-333(2011)]TJ -0 g 0 G - -15.497 -18.666 Td [([2])]TJ -0 g 0 G - [-500(G.)-341(Bella,)-343(S.)-341(Filipp)-28(one,)-343(A.)-341(De)-341(Maio)-341(and)-341(M.)-341(T)84(esta,)]TJ/F17 9.9626 Tf 235.488 0 Td [(A)-365(Simulation)-365(Mo)51(del)-364(for)]TJ -219.991 -11.955 Td [(F)77(or)51(est)-365(Fir)51(es)]TJ/F8 9.9626 Tf 52.03 0 Td [(,)-343(in)-341(J.)-340(Dongarra,)-343(K.)-341(Madsen,)-343(J.)-341(W)84(asniewski,)-343(editors,)-343(Pro)-28(ceed-)]TJ -52.03 -11.955 Td [(ings)-394(of)-395(P)84(ARA)-395(04)-394(W)83(orkshop)-394(on)-395(State)-394(of)-395(the)-394(Art)-394(in)-395(Scien)28(ti\014c)-394(Com)-1(p)1(uting,)]TJ 0 -11.955 Td [(pp.)-333(546{553,)-334(Lecture)-333(Notes)-333(in)-334(Computer)-333(Science,)-333(Springer,)-334(2005.)]TJ -0 g 0 G - -15.497 -18.666 Td [([3])]TJ -0 g 0 G - [-500(A.)-316(Buttari,)-320(D.)-317(di)-316(Sera\014no,)-320(P)83(.)-316(D'Am)28(bra,)-320(S.)-317(Filipp)-27(one,)-100(2LEV-D2P4:)-436(a)-316(pac)28(k-)]TJ 15.497 -11.955 Td [(age)-388(of)-388(high-p)-28(erformance)-388(preconditioners,)-218(Applicable)-388(Alge)-1(b)1(ra)-389(in)-388(Engin)1(e)-1(er-)]TJ 0 -11.956 Td [(ing,)-393(Comm)27(un)1(ications)-382(and)-381(Computing,)-393(V)83(olume)-381(18,)-393(Num)27(b)-27(er)-382(3,)-393(Ma)28(y)83(,)-393(2007,)]TJ 0 -11.955 Td [(pp.)-333(223-239)]TJ -0 g 0 G - -15.497 -18.666 Td [([4])]TJ -0 g 0 G - [-500(P)83(.)-691(D'Am)28(bra,)-780(S.)-691(Filipp)-28(one,)-780(D.)-691(Di)-691(Sera\014no)-819(On)-691(the)-691(Dev)28(elopmen)28(t)-691(of)]TJ 15.497 -11.955 Td [(PSBLAS-based)-430(P)28(arallel)-430(Tw)28(o-lev)28(el)-430(Sc)27(h)28(w)28(arz)-430(Preconditioners)-731(Applied)-430(Nu-)]TJ 0 -11.955 Td [(merical)-245(Mathematics)-1(,)-262(Elsevier)-246(Science,)-263(V)83(ol)1(ume)-246(57,)-263(Issues)-245(11-12,)-263(No)27(v)28(em)28(b)-28(er-)]TJ 0 -11.955 Td [(Decem)28(b)-28(er)-333(2007)-1(,)-333(P)28(ages)-333(1181-1196.)]TJ -0 g 0 G - -15.497 -18.667 Td [([5])]TJ -0 g 0 G - [-500(Dongarra,)-529(J.)-490(J.,)-529(DuCroz,)-529(J.,)-529(Hammarling,)-529(S.)-490(and)-490(Hanson,)-529(R.,)-529(An)-490(Ex-)]TJ 15.497 -11.955 Td [(tended)-478(Set)-478(of)-478(F)83(ortran)-478(Basic)-478(Linear)-478(Algebra)-478(Subprograms,)-514(A)28(C)-1(M)-477(T)83(rans.)]TJ 0 -11.955 Td [(Math.)-333(Soft)28(w.)-334(v)28(ol.)-333(14,)-334(1{17,)-333(1988.)]TJ -0 g 0 G - -15.497 -18.666 Td [([6])]TJ -0 g 0 G - [-500(Dongarra,)-444(J.,)-444(DuCroz,)-444(J.,)-445(Hammarling,)-444(S.)-422(and)-422(Du\013,)-444(I.,)-444(A)-422(Set)-422(of)-422(lev)28(el)-422(3)]TJ 15.497 -11.955 Td [(Basic)-357(Linear)-357(Algebra)-357(Subpr)1(ogram)-1(s,)-362(A)27(CM)-356(T)83(rans.)-357(Math.)-357(Soft)28(w.)-357(v)28(ol.)-357(16,)-362(1{)]TJ 0 -11.955 Td [(17,)-333(1990.)]TJ -0 g 0 G - -15.497 -18.666 Td [([7])]TJ -0 g 0 G - [-500(J.)-265(J.)-266(Dongarra)-266(and)-265(R.)-266(C.)-265(Whaley)83(,)]TJ/F17 9.9626 Tf 162.063 0 Td [(A)-295(User's)-296(Guide)-295(to)-296(the)-295(BLA)25(CS)-295(v.)-295(1.1)]TJ/F8 9.9626 Tf 156.589 0 Td [(,)-279(La-)]TJ -303.155 -11.956 Td [(pac)28(k)-291(W)84(orking)-291(Note)-290(94,)-299(T)83(ec)28(h.)-290(Rep.)-291(UT-CS-95-281,)-299(Univ)28(ersit)28(y)-290(of)-291(T)84(ennesse)-1(e,)]TJ 0 -11.955 Td [(Marc)28(h)-334(1995)-333(\050up)-28(dated)-333(Ma)28(y)-333(1997\051.)]TJ -0 g 0 G - -15.497 -18.666 Td [([8])]TJ -0 g 0 G - [-500(I.)-488(Du\013,)-527(M.)-488(Marrone,)-526(G.)-488(Radicati)-488(and)-488(C.)-488(Vittoli,)]TJ/F17 9.9626 Tf 244.569 0 Td [(L)51(evel)-500(3)-500(Basic)-500(Line)51(ar)]TJ -229.072 -11.955 Td [(A)26(lgebr)51(a)-463(Subpr)52(o)51(gr)51(ams)-463(f)1(or)-463(Sp)51(arse)-462(Matric)51(es:)-669(a)-462(User)-462(L)51(evel)-463(Interfac)52(e)]TJ/F8 9.9626 Tf 292.206 0 Td [(,)-475(A)27(CM)]TJ -292.206 -11.955 Td [(T)83(ransactions)-333(on)-333(Mathematical)-334(Soft)28(w)28(are,)-333(23\0503\051,)-334(pp.)-333(379{401,)-333(1997.)]TJ -0 g 0 G - -15.497 -18.666 Td [([9])]TJ -0 g 0 G - [-500(I.)-358(Du\013,)-365(M.)-359(Heroux)-358(and)-359(R.)-358(P)27(ozo,)]TJ/F17 9.9626 Tf 162.007 0 Td [(A)26(n)-381(Overview)-381(of)-381(the)-381(Sp)51(arse)-381(Basic)-381(Line)51(ar)]TJ -146.51 -11.956 Td [(A)26(lgebr)51(a)-348(S)-1(u)1(bpr)51(o)51(gr)51(ams:)-455(the)-348(New)-349(Standar)51(d)-348(fr)51(om)-348(the)-348(BLAS)-348(T)76(e)51(chnic)52(al)-349(F)77(orum)]TJ/F8 9.9626 Tf 320.465 0 Td [(,)]TJ -320.465 -11.955 Td [(A)28(CM)-334(T)84(ransactions)-334(on)-333(Mathematical)-333(Soft)28(w)27(are,)-333(28\0502\051,)-333(pp.)-333(23)-1(9{267,)-333(2002.)]TJ -0 g 0 G - -20.479 -18.666 Td [([10])]TJ -0 g 0 G - [-500(S.)-451(Filipp)-28(one)-451(and)-451(M.)-451(Cola)-56(janni,)]TJ/F17 9.9626 Tf 165.708 0 Td [(PSBLAS:)-466(A)-466(Libr)51(ary)-466(for)-467(Par)51(al)-51(lel)-466(Line)51(ar)]TJ -145.229 -11.955 Td [(A)26(lgebr)51(a)-420(Computation)-420(on)-420(Sp)51(arse)-420(Matric)51(es)]TJ/F8 9.9626 Tf 181.375 0 Td [(,)-661(A)27(CM)-400(T)83(ransactions)-401(on)-401(Mathe-)]TJ -181.375 -11.955 Td [(matical)-333(Soft)27(w)28(are,)-333(26\0504\051,)-333(pp.)-334(527{550,)-333(2000.)]TJ -0 g 0 G - -20.479 -18.666 Td [([11])]TJ -0 g 0 G - [-500(S.)-425(Filipp)-27(one)-425(and)-425(A.)-425(Buttari,)]TJ/F17 9.9626 Tf 152.315 0 Td [(Obje)51(ct-Oriente)51(d)-442(T)77(e)51(chniques)-442(for)-441(Sp)51(arse)-442(Ma-)]TJ -131.836 -11.955 Td [(trix)-407(Computations)-406(in)-407(F)77(ortr)51(an)-407(2003)]TJ/F8 9.9626 Tf 153.485 0 Td [(,)-615(A)28(CM)-387(T)84(ransactions)-387(on)-386(Mathematical)]TJ -153.485 -11.956 Td [(Soft)28(w)28(are,)-334(38\0504\051,)-333(2012.)]TJ -0 g 0 G - -20.479 -18.666 Td [([12])]TJ -0 g 0 G - [-500(S.)-267(Filipp)-27(one,)-280(P)83(.)-267(D'Am)28(bra,)-280(M.)-267(Cola)-55(janni,)]TJ/F17 9.9626 Tf 197.776 0 Td [(Using)-297(a)-296(Par)51(al)-51(lel)-297(Libr)52(ary)-297(of)-296(Sp)51(arse)]TJ -177.297 -11.955 Td [(Line)51(ar)-352(A)26(lgebr)51(a)-352(in)-352(a)-352(Fluid)-352(Dynami)1(cs)-352(Applic)51(ations)-352(Co)51(de)-352(on)-352(Linux)-352(Clusters)]TJ/F8 9.9626 Tf 320.465 0 Td [(,)]TJ -320.465 -11.955 Td [(in)-398(G.)-399(Jou)1(b)-28(ert,)-415(A.)-398(Murli,)-414(F.)-399(P)28(eters,)-414(M.)-399(V)84(annesc)27(hi,)-414(editors,)-415(P)28(arallel)-398(Com-)]TJ 0 -11.955 Td [(puting)-354(-)-354(Adv)55(ances)-354(&)-354(Curren)28(t)-355(Issues,)-359(pp.)-354(441{448,)-360(Imp)-28(erial)-354(College)-354(Press,)]TJ 0 -11.955 Td [(2002.)]TJ -0 g 0 G - 143.905 -29.888 Td [(151)]TJ -0 g 0 G -ET - -endstream -endobj -1904 0 obj -<< -/Length 3124 ->> -stream -0 g 0 G -0 g 0 G -0 g 0 G -BT -/F8 9.9626 Tf 150.705 706.129 Td [([13])]TJ -0 g 0 G - [-500(Gamma,)-494(E.,)-987(Helm,)-493(R.,)-987(Johnson,)-494(R.,)-987(and)-923(Vlissides,)-494(J.)-461(1995.)]TJ/F17 9.9626 Tf 314.294 0 Td [(Design)]TJ -293.815 -11.955 Td [(Patterns:)-427(Elements)-293(of)-292(R)51(eusable)-293(Obje)51(ct-Oriente)51(d)-292(Softwar)51(e)]TJ/F8 9.9626 Tf 246.617 0 Td [(.)-262(Addison-W)83(esley)83(.)]TJ -0 g 0 G - -267.096 -19.926 Td [([14])]TJ -0 g 0 G - [-500(Karypis,)-561(G.)-515(and)-515(Kumar,)-561(V.,)]TJ/F17 9.9626 Tf 157.276 0 Td [(METIS:)-525(Unstructur)51(e)51(d)-525(Gr)51(aph)-525(Partitioning)]TJ -136.797 -11.955 Td [(and)-413(Sp)51(arse)-413(Matrix)-414(Or)51(deri)1(ng)-414(System)]TJ/F8 9.9626 Tf 158.597 0 Td [(.)-394(Minneap)-27(olis,)-409(MN)-394(55455:)-565(Univ)28(ersit)28(y)]TJ -158.597 -11.955 Td [(of)-420(Minnesota,)-441(Departmen)27(t)-420(of)-419(Computer)-420(Science,)-442(1995.)-420(In)28(ternet)-420(Address:)]TJ/F30 9.9626 Tf 0 -11.955 Td [(http://www.cs.umn.edu/~karypis)]TJ/F8 9.9626 Tf 156.91 0 Td [(.)]TJ -0 g 0 G - -177.389 -19.925 Td [([15])]TJ -0 g 0 G - [-500(La)28(wson,)-339(C.,)-339(Hanson,)-339(R.,)-339(Kincaid,)-339(D.)-338(and)-338(Krogh,)-339(F.,)-339(Basic)-338(Linear)-338(Algebra)]TJ 20.479 -11.956 Td [(Subprograms)-337(for)-336(Fortran)-337(usage,)-338(A)28(CM)-337(T)84(rans.)-337(Math.)-337(Soft)28(w.)-337(v)28(ol.)-337(5,)-337(38{329,)]TJ 0 -11.955 Td [(1979.)]TJ -0 g 0 G - -20.479 -19.925 Td [([16])]TJ -0 g 0 G - [-500(Mac)28(hiels,)-372(L.)-364(and)-364(Deville,)-372(M.)]TJ/F17 9.9626 Tf 148.97 0 Td [(F)77(ortr)51(an)-386(90:)-517(A)26(n)-387(entry)-386(to)-386(obje)51(ct-oriente)51(d)-386(pr)51(o-)]TJ -128.491 -11.955 Td [(gr)51(amming)-492(for)-492(the)-492(soluti)1(on)-492(of)-492(p)51(artial)-492(di\013er)51(ential)-492(e)51(quations.)]TJ/F8 9.9626 Tf 267.456 0 Td [(A)28(CM)-479(T)83(rans.)]TJ -267.456 -11.955 Td [(Math.)-333(Soft)28(w.)-334(v)28(ol.)-333(23,)-334(32{49.)]TJ -0 g 0 G - -20.479 -19.926 Td [([17])]TJ -0 g 0 G - [-500(Metcalf,)-434(M.,)-434(Reid,)-433(J.)-414(and)-414(Cohen,)-434(M.)]TJ/F17 9.9626 Tf 189.335 0 Td [(F)77(ortr)51(an)-432(95/2003)-432(explaine)51(d.)]TJ/F8 9.9626 Tf 123.907 0 Td [(Oxford)]TJ -292.763 -11.955 Td [(Univ)28(ersit)28(y)-334(Press,)-333(2004.)]TJ -0 g 0 G - -20.479 -19.925 Td [([18])]TJ -0 g 0 G - [-500(Rouson,)-374(D.W.I.,)-374(Xia,)-374(J.,)-374(Xu,)-373(X.:)-510(Scien)28(ti\014c)-366(Soft)28(w)28(are)-366(Design:)-510(Th)1(e)-366(Ob)-56(ject-)]TJ 20.479 -11.955 Td [(Orien)28(ted)-333(W)83(a)28(y.)-334(Cam)28(bridge)-333(Univ)28(ersit)27(y)-333(Press)-333(\0502011\051)]TJ -0 g 0 G - -20.479 -19.926 Td [([19])]TJ -0 g 0 G - [-500(M.)-443(Snir,)-471(S.)-443(Otto,)-471(S.)-443(Huss-Lederman,)-471(D.)-443(W)84(alk)27(er)-443(and)-443(J.)-443(Dongarra,)]TJ/F17 9.9626 Tf 321.124 0 Td [(MPI:)]TJ -300.645 -11.955 Td [(The)-365(Complete)-365(R)51(efer)51(enc)51(e.)-365(V)76(ol)1(ume)-366(1)-365(-)-365(The)-365(MPI)-365(Cor)51(e)]TJ/F8 9.9626 Tf 228.803 0 Td [(,)-343(sec)-1(on)1(d)-342(edition,)-343(MIT)]TJ -228.803 -11.955 Td [(Press,)-333(1998.)]TJ -0 g 0 G - 143.905 -352.677 Td [(152)]TJ -0 g 0 G -ET - -endstream -endobj -1927 0 obj -======= /Rect [369.385 129.071 436.443 140.196] /A << /S /GoTo /D (precdata) >> >> @@ -42954,7 +25762,6 @@ B9V{ endstream endobj 1977 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 2668 /Length2 23077 @@ -43267,11 +26074,7 @@ B !ç>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 1460 /Length2 7107 @@ -43368,11 +26171,7 @@ U OΣ§_ØíöûÖº/ä! endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1931 0 obj -======= 1983 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 2131 /Length2 14577 @@ -43468,115 +26267,6 @@ currentdict end currentfile eexec ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -<<<<<<< HEAD:docs/psblas-3.6.pdf -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¦J†‹¦f^Ö·>½aq4±!¿Ù<ªËÏáËé_CªãцcQâ%BÉélSŸ¾ ³7§Òý1_£ -sQ¾çýz‹§î5>­Š¥?™ÛQæñ;8FË}»Q|-Kˆ,}áç>PD -ß65Öü”Ñ~`dU6+[\5Ñ‚qƒFB>œÖ³™¥³Ú1ÿÀ^;´!'ƒVQ!Ÿ<´£$6¦jT¡&ÚÖUV”úÏDq~¯`XhÇZÊwU­Ü çëWÙ67$hV%t°Èjßúâ6¯¿~´hþù<Ÿ5 À6{O¨é¥ .o"×F×—lai‰!ÓNš—;“/­‡ƒi”Ãìe L5s¹h°!¤äù¤÷YîÀBÕ y›Ö»M~“¦Œ|M‘{â\B3¬†Ö‡ÏÓxþYXÞ¨ËmÏê±Ho%l¿¾„)CKF–uŽîÔ´l±Y~ù«<,’•þ&îîöZ#^gîïú‹¨®xà'6w¶B8‘¦IWØ°~Ö÷D.TªPž>¡ÚK¿oN‹çzÏS6ò=¥('a`¢¦°•ÿTÑ seSd¦DVzÛL^¥†«¦Ç|ñ§¶kb=yj‰”öšíaIó>ŘÄÅ(×¥4^í?¢¯ 'KÙnêìˆ`Ð4×Q˜9„… . Éæè`Ý…3oh~äFºq©›¶;‰zJ5à»Ù0“òEÃüýëPûÖÇXæ*ÆšÄQ ÿ¤ã—˜Êk–4]aØÒ¡pM9‰\‡l[žø¸í³Z)uÆ”T\0k´eøèbI±A;Ô/{c âJÿ‘nøÿåâœ^ÔGk÷gQìÍ0Y›'ISD;A¬ÒÃ3‘ë9 €hˆî?ݦ”bÊJU5Ýzw –ŽÝÆj–pJBÎUY{e#ÙFws@ºrá˜I–Sp^YoôZó|µ¬ä5Ÿh2¿*Ù„E¯ËA4W¶?£ù|ÅßÓÎàPC¥Çùx˜' €”¬Ð4 -vÂ0¶U„'J‘#oqœÓ‰¾èÄÿY%egæúg|Ø* )SZo8r;8­žWlv"§r`½¤U¦ÿkÝLùÑ=„Ú=«®~V» -Xµ£Ê` -ÇUvSÿ‚w;8–úw®wH_,­^~Ãq«\á”±3Ê[Ål&8E}®;`ëƒZÚ«)™³·“HZï»á/€¿I ÐÃ;3w -h÷¸$j/z„ºá/^,_ž¼ÔC™ž¿~ç¹A7ŒÃkâÛp·þ‰´RhbK ¦0ŸôŽÓsQrIšæ;YD›4uÝ-:žpÙø×¼V¿1Úy&þò<ÊNïIÓ/i -Û7ê‰è½Þù#‘¶Lµ18éÒó1ñEð@³)T¯`Bßøf%·&Ùdϧ‡^¿ùcÜØöhB:~7MxÌkME1~Jõ˜æmV±ÈeD÷½ÓT<Ê°04­…`ÔPÆ™èLn+Òk®kF£Y‰ž „¬ØÉ8pœ¬8Š´8‡FGS/„àÕsrW1EH=>ñEÑFš¼#RdÈ·nûf©æÅN¦EÆzfL)3Êxg2å3) -p°EYÚ%¹NX›ž”²Aîø¡¹@WQQèÈ À¾Xÿÿ$r d7‰U¦m¢wKÌ6+¿2¥³ÙaÔÄî¦ó •ãà°¢,n·9Vb¦ü…A:’Þ)48ö ÏzŽË>IŸ’mÌ8âŸXCÙ‡LF¹ñʺߦŠŽkôg'fœ 2 ÞÓz?qe3?¬òáž-&1VK´l¥/›>4°(ÑðìÓþ5‹pÁˆ,æJ²àŠÝr6`Š·p–íÔšÇÕÂÇÎd׌çÕÜòü¶^dÞ'Ù;¬©@8ê]”áÜÕmB‰´Ì¾ÍÊ"D®‘—%¸ôµÂ¦Æi¥Ÿ-{™¤tx*yæt:`Œ˜Z]ãKš=.êÈÒ;Tƪ»ãÙX™áômÁÀj‡ÜÛÁ n×ѹ«5ù–&.’¿F~ÄP]^·Š7FoQô‰v3Þ:ƒ2­êÝr˜HS‹7!’SžÒ5Å·Iž›ÍººSvG0;=Ùf€¤/bklî9dÚŒ ñn&CO lªÍ"*e¯@n!6È}Zj´ou #€|è)ýfª*¾Ú¥,E^÷µÄaèø(,ã ’“®ŒLã ¢‡A¡h”þÆ_üâȪ´RlgÊöYhšaÓÆ—±¿½¼i% üö)£¹m`œRÎøDêÓ‡O4;¾‡X© µŠ@Å4â³cÃÝhC.Î4äFc|E—-¿ýøã5¨ OA)R‰3€÷¢–N«{o®Å`aYUrBs -15sÜi%²ZÏY+‘ãW;×þ/J"u¼Îð›;ôåœÌÒÅDgI x9©"rwÉÅh -‡«RŒ®ÊŠ¢·ß~Kh£‰Rê^ÊíÃ44¾Íás‰7MŸÖ’ŽkÖLÐíèÆõ‹¿˜ŸäðÆ%ÙvOqÙT+„o—ºvlo\+õ»pÀãôm\ÑgwÙ§šÓ 9¡¾¢½_–8ižàö-d) Ä©¯±ª#C…M# hã8p±¡žòU"w.WV:Ê Çœã‡Oc #›’Ý%ë€æ^ìoF‘‘ÿxE›§×ßõkl Êȃ°™<à6wyh—[$»fÂðu²¥žqƒö%_ÖCnŠ \ÖÅȪüpœà#ªvøM°ÕªdÒÚ2Û Åg ©•jRÙZ,xœ¶ÄÐrÎF8PŒ<(Fƒô`ÞÁ~ÇW¿ç/dê·CnÖÇ—t˜ÎPÌöÀÃ…³½fÎñ"ä«'nLŒCeÈJ59&yŠÛ„eú^›ËOäþµÔû»IºÇ0\Ÿ¸ß^P¨ºÈõ«KàþÔG¤dó³@2ʨ™ Öü¡󌱇ˆl¸ÌÌW/ÊrZ…ŸÔ\~l·dB (#o}ÍHZsw¦¤™HoÑ܆ÇÉ0Àì%o± ì®E©=’ßä×øp€ãdKž)œ«Ýêæd£/¶güµèYÈR[+7! ‚n´Iýw·Ò8ñª ÊM±F'ü/©ä`6-¼†µd¡9»¯Wt×ß{Ü`>²Pš•)$üéŸw>]ßè{¼¯ ø_JJø[|£°ïaïJçЪCíWk΢gLsà 1/UŒ¼ wÆwßá‹ëKO•w†Zo½Y†þz8gÊŸà821˜ôƒôˆZøöY¾YKÊ%UWˆ`·ß¤þlPâ`óB¾Ö?º1e1 tß­íÏc`jýD]ê¨Òìøñ< j#ìôSúÀkù@_6&ûú…Ä"|Ç ùŸ 135ÿœð†”ë~Üâj–ò¬5“Æjag+PCöTäÐÊo+Lx‰I”–ñ@ùþ¸ÛU‹úÎßo‡ùŸ†W¸.Ÿ‡0ò#íß6ü˜Û!›$‡_ÒùØȧšØû`íárüÊœ{sÔ{]˜ - òÄݤ¢"£žAömÓ©e~]¶iæ ›œáox;½ƒÄ¢ù¦º’)˜Ä„Ÿ™»›vš{¢Ô’¯N…µØË¡ûªôÊ€8z -ØD4º½>Êuäqlž°ôòýêGm¬ËtìŒ -ZбèK±ø’`˜4Ò³WÙL d)yZ£dÆ\mÌÖ: ì·‹Ês€†0Ùj -¶dÍÉŽ±aÇtá@‰ÇÓ™ÕV¢šµö$Kas¶þ)äüÜÒ~Šª‰î$8ò+ê\[‡ýø)ØK9¡«‹§+Ä%?¸‰†à< $_nRÆÌnWQ-ÈùU*ô§ƒu¶pÄà4Š[¦iÐÅï}H=“¥`SUÕPa{¸½í0'ÒQ®æWØ^¬†tªÂæ¨>‹¨.9ñN’ö™zlÉçcª ˜€»ìŸºîð[=“ˆ¨]8õõìæD§À’8"Q±L Òwek\/”°³+w^8 ZLn}Š÷69þÊαù$«Á«uT[®e/šD”€jFš¼åã„hÛGÄŒ3eÅWfÿTf!>ê×è3rçún_&kJ¶ÕÓÝÎne ¯û¯ŒmW%qúƒÒä®*¬óˆ5ÔÿsÒæI³À»³soV™goÍꡯÇéâ+úEàÆ¿RÔ7lðl,#â4¯Ÿ~²â^Ñ$)ÁïCßñÈ—¢¡·`ÿPéƒ{ RóæÅü!›0K?.õ&V˜í—­¢#fR¤Gû/ñ¸Œç0Q îšáSÐÁp›Ç¬e,W¨¨4`W¯ä16» +Bo5@ðñ.Áù{š’±2—°¢7qG°iÊ£T®•µ«Ãðj“âz”pðÝGrb`ìBn] ½5ú§äÑÂEŠŽPƒÂ£*Óœç-f?—Î7¡5k­o2|pw¾lÀeì›P œi׺Iôë—ëö¢ÑÍ’ws†Åz;SfÎT`D•±‹ÕeÙ/:M#,N «ðØçCÒÇú@ÁXrÓÙ“ÉØÃÑnÒ_€Ê´ñMÄì´[HÎãÜ-f4#uûßã/V©€N¡y\#­x[6¹Â§4ÁÌ·Õ,¢Á.aÁIÖ-DŸÍ=œ(ëãˆAo.€‰Q$·-àq ª4Ïù÷rh!¸-ïái Úv¶fèrØ %¦ÿó/^ç…Ú -)úp*d'›D_må±Ó’>l½ÝÒC~¾µ…tþþ/a$Go¡@ÄÏâÜž+ôÆãA¬“9IcUþî!¬£û}“Óê–ê­ž–pI¼G"±RUÓÌòëá)صJ@®ÞÕÿuºÐ†é‘ä`ŸŠYϪ¨C÷uJï‘Uèm8™*8…’ ›>B -tk1”¶¥@Í ¶Y ú¾lWäÏÌ3•[àì¸>[6¸·Ê&ÜìÅpúCÌK¤¤¡Æ£³Ü‰fÜ&N¯0ýª]X?µT¢pŠP YÍöŒƒ¾,y²¶ïç°¢œÑ)4U³Ób»ãj"ðšf«hEWdÄjtŸ_ñ¨8‡ þº†Ô|\òüƒ´šYNÑÿe„–Ô­Öã5쀬·Ñ‹; 44Ye*C#JŽ·aÖhTêØþ±+·vÐÑXý{\6)Ã)ºö´ÒrñfEŒ÷ûS‹¿®Ëд5‡àh±sdŽ°U[YäÅJÅ*ºL µ±|ogó«Æð9³¥õ¾w>!>C4ã?m/ë.qÊÇØ߉½‰K|¸8ôR1!õ>ÄúÇȱÍ:&æ’í ¶·Kù¦k¬Þà¼q ühŸÈ!Ê…ÆC°›µ³‚4Êk<ØÁˆàídq•¤aüeX˜&ÑZ;SRÃMsƒò©ëh>‹<^ìçž.9Ù æ3n5¶‹%ÌÙ +YLjQõ»A4OV‡Î?¾r™%L–¢„¢xÉÑ”*gÃ0f´L¯jl}º«—ùîX€¥©l:áÅD0_Ãë.°4²‡úÀw¿-bm!ÕxMŒá‘˜]&(3C­þÑXj‰Èƒ; ÿµ&t]ÅÊuÕ÷`N¾¬Á ²ŒÐôXïº+]Gê -‚ßÙ.ÅÊÇAnNLZ¿ßLªpF±&¬rwØÉ4?ÇæÇ'YñíÜzBü6ó—Vý‰V¯b“Ä«¡Ì‘uvf „R×~tg£úReOÏbv+~{ñe½Ãç{4Q‰e/éwDÉÏÀákˆ“!øP§¿¿3úF4佑‘\ƒ×ˆ`3LÒ¾5Ü]û(qF‘òðÍø¥:Ðqpæv€ì=ÔÛÄ Bÿº%NQ¨újS.n}‘ù©ýÇß(°úÑ玜hqò‚r fFÎÖu#¦;Œ¿‰ô<¦åW49EùgL¨ŸVd+*J…`(Ê^ZÇnÁ»ðŒqͽ£fˆN_Ö’¹xñƒC²Â×™’F¿Ø¥Í…9È"ĽXˆ9¯qŠlŒô´êyb*4ÜÏÿþ¾¦#ÐÀ+jºc=?gey4¥¾JYa8Öe¨ü€iÔÑöN¶Ï{¹oŒÂ›À#'ÚzsÆ öîv9± Ȗ믊•÷J¨çÉ ‘üv²?Aðu‰~Æ\ú¸psIb -h…'DCöƧ:?®U7á6qmØÛ3r—ÞEv/ÎßÍ`Ÿ»iÓ¼¨~¶m%;æ:šÙî - èj3⋘Žb®oá-ÑÜFë:,ÀóäÄHnSöéaU¾‘Ù­ êQ±;ÆîX -ãF¯a½tòsàÅ°‘uiXÇlfŠÔÇڿ˜ÿ~Ʋo| ³±Ò³?fuq)¿UÕÎ;¡ž‰ÀœIè8ÀÂ#"|-£4ÇêthäÔüâСHM¯Pž‘¨õ¸ãFEñwZy®>ÐF+ëáq8ªJ©h¡á‰Ï2‡°ÄÁ¨k×0u¶C;`ï†dþX„ƒçMKÕà/·WÈË V8 …<_©\¿äÚjùÀ4nv\VäŠádQ¢jôyf|ó@uO€Ñ Îå'Ë%¾(àaq3¼\5L¤â@]줣¤S`êä}E\ÖT@ÜË6 É@aUFñ~#q¡Oÿ‡Íž¢”éÛò¯ê°YþfÉ_1}nb¼jn(™xÕ«É&ê{e#΋u‚˜FP…üÅ0qPQ:ýLrïn;,Ñüz2Vd_6¿«òœ—žl›—2į†GÂÅÂU‰Ð0ÓÞÑç.ã™»i×÷º˜Ü²“«OçØÁÀ¡@R9~¾nïªçy´ª¼%Ú ŒRÄÊÎù÷7o:àoçõC̽E Ä"Ï×Á†À?EEðƒ‘’eBÕ¦¿(V=ù¢ -Öýtºæ‰mîÓ3ÂÂ,¾”ëÚ#/Ø—ý£UõWFú¸lj}ÇıˆNò°”?2Öþ–¿)lIø«ïÉ$-jêƆí|‚ß63vÒêëç oßáóìEù>Ë[þÊàÊÿð†ÞbŽ‰¶hKE]׶8ùÙT3Ãk :¨ Ûæ¥È`v½yé76$Mù-?ScÕ6jýü›™¾Vß §Su4õoçÚªÿç‹¢íAÞX¥mtM/¹zúNF·÷5Q` º=‹ œ‹v ®Ñ9íÀ‘äÜ{ˆ`"pN-:»¸²Ùó MÌîxÇãÎB§ºL!M°áO i™7Ú¢{XIŠåAK@œi#Ì#öúÓ^Ò’]КþÌ)ç~N˜•½Ý õ¹ñ4Âà…FÙät ùpîþBò²îg××0SöxR¹ R#dÇF£ÕÚ;BÕ¯gÙZFêi¢TŽ7ÙBú ¼<~÷X&ky\ó«<'Ü&;-1Œ¥·>ö†_£ko£ö`Ì)t¦»nGuË,ýÈ°Š3Ð2­Y$+2n¢«%Tõ‘$…èì‡ šï\ªÌ×iðˆ¦ ê¶n[´o pßÕ×÷YÜ0ïw?ð=žÂ5i‰h‡_ mtÁåö;žŒ?¨c%VõXÖße3™Z±ED;°°¡lÙ€GJÑ_‰"*¢Ac…ª(Ä4²Q”`Í×ð^"?ªUömßÏ#©©ÞàÎäí`¶ÚòD³'^D)¦ÂÃ×ÍÃ"”M˼$>Ÿ2ÿžõvÚq…þGïšU›Wü} ¹”åe"¬K#ˆh-bÆÌ̸jœ‹9Pñ—ž‘ì(¹ûò±äS÷i9›}kÛõ%|ß78Ã}0ÑEb?VC]P3©Ð6 j…+©­‘¼ç&“ùÜšðrÔM~”/ï7ÅL®a_îèÿ†VC§«g;Lsè1ÙÃ7°A‰©ÅM"ÀÚ±9›hæh‰Tí:/€/Ηýl ‘[Ê2Ì„=Œ©qŒ„Y‹í‘«…Öæ C\‘DŸ[a ’)~“;Ô‡µI \Ý4[|xöÊa^%=kÀù$àÄÆFÒÂâßµÀ x̽€XÅ‹ ^¬g+¤kÖ ÿÌ‘¡ÔÔ‘Þ”{?… XZÈän³-€¿Ó÷ý|ºn|¨ÀÔ7¦cðLÔo³†&kƒ´tÜ4¶”OiÉÜílEøç눼þÈ{*Ö´/tÐe…Å ¢w߀»†bØrð?Úc ;§¸†õ Ô2ºÒáA_çö Ù×;âÇe¼±rqôW:P=Âa‰­‹wà­h'dS½?TåZy¯?‡"<ñ´TÌÝȺDo;È‹Âá C¸ÙˆÞCög®¦Ôž»ôßRÀ™8/úÓ[œ¾×[•tXÕ®vÐÔ>t^o”¸Â¸š!=½0<I¼ÿ^@Æ0¼Ý«„}¼ŒóJYf¹wû—äÚdLÓŠ€É—ˆhÁô¦X/=Ô'ö™±ô&ðŒ{&E -IÉÛ›}«•lª¡|_çŽì;sN‰27v¥X6>¸MÌJƒÅ/Ì…AnVkQ6/#ým,Ù ’Ûé÷Qðè%\{¤Å>Û‹"ö-|KvRUõœò$øÕÅêÆ-ÖQÄ~ÍYӉׇÛ´yMÈvhÂ<•pHŽK­ *"£3Ô¼~«{ -¦sÅ—Œˆy*ÀA’¯Ó›mÛXÖ˜//s -þ¿Tíæ,½€˜à÷oÌãÎ’|> -stream -%!PS-AdobeFont-1.0: CMEX10 003.002 -%%Title: CMEX10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMEX10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMEX10 known{/CMEX10 findfont dup/UniqueID known{dup -/UniqueID get 5092766 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /OUFNAH+CMEX10 def -/FontBBox {-24 -2960 1454 772 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMEX10.) readonly def -/FullName (CMEX10) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 115 /radicalBigg put -dup 88 /summationdisplay put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥Þ£Ô!ŽfpÿG?[öTtkuœ'5O P 1òÍ[.®BÉB•ìBo0”Í ÌVoðG;£òwŸëõ¬CMdK†&\YT{#v¬ mÉ ¼E57ºG~ß¡ +‚3[Å¥…š7Œ3Å:&uN¡]Bä Je ¤ÎþvûÂ(âˆ7JIFO/kZ)C¦k“z«™*7¥XuvwšÄ Œ§Ù†øg&Ö‹¬Uüî+D­WA¥ÅàßÔ³íäÇÕPx;£%]r@¤àÿŽŸ¡G•®à€íå~fúJ4„ë8Øù{v”FMô¢øøâ·"›~¬ç’êwšv¬âÇÔ‡þ1µëþÄëI mJXk kŽÕéÅ51DžˆÞÆ[ËWoplã^(íï;Òw‚á\FÖôËIz÷H…©°y$—¢$r ´Ù./±xjÍ83›õÛîá>ƒz>æ½9÷NÑœv-Úòv£à)üTT£D*»IL}Ÿ¶q°â¨Ûbx×>÷öu}½®&é:Îë=l]Õì™Ño:··´‡ê¤E“‹­iÛ§í[A^–Ïýö ˆÇ[—/åERÍ;ÈñRé;”"Æ6(Å©³K?C!Í>;gh)¾Õ Ga¹ï 9nQ©ÝÀ<‚@æð†(<Úˆ›|+†)}ÕPÆˇ2&©±d–qmcüß#ãIh²¶èÃåFöeIû-ˆS³žÙ „näçÌ|{¥cˆfyv40®ûÂë]vO‡?ñÝ‹ZωÊN#Iî®'\9ÜwÉûÃ…P®póþº`ê½i­ì(ä2ËNzf¥¢ò¯ŒA¼Ê‘[?‘ùÊÿ}—Ó7NÛ)Å-tõ)¤^«EI(^Ü’M[ß Ò½¸ëTf¨[¾ë¿ËzÝé{ Ü rCÖ2®¿YócâCŤÇ¥Å¬­ùfåýùvËn­TîgTBgÙ^fº„O¤W¬ …¾3KÝgç³iuðèØ“e>öùN¹…וø¬¦÷q¨1ØS.ËÖ¢+¼0ȉ<á÷§]¶Ìvž®ÖmZ÷î¥ É ›¯û=½WVhY&Rþ{­!2Ûܼè'ëNr6ɱb k¤_ƒÚ©Ñãé°þŸÀ©Íáë'À@ˆ1Æá3µ{ðMKÝ€_öû_ÙÄGaÝT¿AbÊŠÍ0Z¨B{䤡 dÖå½2Jö–®ä>û 7RÓ‰ÎK¬7Œá˜×ÑØÁT;È°èì­+[4Bó*•¿q4~;7 ³D 5…W?S÷»&×3•¨ÑÞñ[Låíù«öð^'{ŒüP)VÌ´~¡B,›10Z]TûÕC2e;=@Ó7Þnú¯6 -|ŸõÕÜ,E µú‚+Ê»%¯ó_B κ7() †û…xK6™”üqÂÃQýðlÝ:® ¦É`qíÔyïiŸó_O£¾7éâMK!¿5°(sêf<ÊE0»HwÞZë>g´§ÄÍH¥Q1N‹9!å;8 @Úß™:€Ï¬&ê-(Dƒ00·ð¨ðfkC[Ÿ®–ÜxŒÝ'=x†ÁWHò© i~ -s§Šý¬w‡ù£³O¤½€Vꮈ…i›ÔJ†LàÓú%’•{ÕyݘFü": -®Ø1[ÜþÃï[ nÖs…ežá]-Då.–ò˜œct&_–CÅ$žãI]Dؘƫª'¢„‘ÎïöDG‡SÄQ$Ò€pªÕ„¿6<ÿçø°~ð"Dé¿gÕž1àoÔ/+8ó®á>ÜY½‚Xœ+®ÏÐê°­öÒ…¾‰¾Á:f«XMÁÜì¡‚(§~t~xŒÄèôc¨+ª`Hc‘äv"œ+Ð!ægãŽl;%kèι #‚Œšvì" ‚¸%ÛM©ÂA’6Ö†N{…È%º•]Dû²`;æ>Ië¼³æ£Æåg¶!œ¡CSièØØofÐÇgŠlu:o3 y–UðÝ¢×ð\aŸÁ;ì'“à‰f«@á›™vØ⬊þZý¯j NB²]ƒ¥ð.y¸iõW3Ãû 5{ˆŒÈ$";é×Yü]«Ž` !i1ñ{ü²±Z„°n|ó¬„VS,v¯6ÜÅâ.Çam$|ã%Ù>ÑÒâí)TC¿ç–Ôk"£‘3ão²@*RU×,ŽÖ6ˆä<#4Â4`ŒxDÆðÄo:EÖtÛ{M„6#:‡—†®š]wçÞžõ›CAªž•'j]¡=ûûK4ˆôîEAÃ=¤±Î:ËMOÔaÆÒ+VXÉ[ã¦b,ÝmaÙ*¹Š’Í69—ZŠ°]ʤ»¼ˆƒ|¯`ÊÏ?‹tvñFè¢wØÎr2)ÆЉÖ/ä-ãOv±5ÅÁ@y©‹‚9 ]º#Ðÿ×ÑÈùóx~†{ï! Ë£zÉ{TÅD]7ºÿëÉðdáì{“ù­ÒãWtòƒMp† iÚ(¡÷+\, pZ]8·¿Ã¢¹­wcl_EìØüÀ¸Î€G#ù×ÔÓ±Á¶ê­š=]Y7*œŽÖrƒQþ !WQÜÓ„rÅõªögàdM9ÀÓn*»P² ´¾ŽœàŠbß3„«éBºxe ö@1RhOjø……ù\÷˜ÍBycw˜zÆÊj eµµÓÓH×?Åé´ •U•~péÌE‚èä¦.¬kÇI“®àc4g<Öé»äÛBêºùZë\¿B«…5h‚r¶†E£ „d^ÅwªÂŠÙiµ·m ¢;õ2 "?Åê -]`_±©Z 8P\éÎôw˜œ)ƒ9%9 ó›d„S6ÔX?}†Œ+ãžLÉY¨JÏ^y@1ùÊè ë(h{U²üÐe²m«í,F/d䘊Ô"H7?Âj œV}‚ö–2 -æl -O´lb(FY8ÍGúß±í4°.Å eS²]¨<±²’b@{ÌɤA.Sˆ Éf>ŒoÀöL£Æ¡6—/Ýç¿”ÃÅOH®eAᤇÇôÎ#:jîå -´7 ¥À6µYäÀÐ^Rvr´é?´NøÖVÒIÑÙz1µ¦x^PAéÎÕÿß~¬æøžKut’Sÿ‘`ZƒàGR`T•g3ìHÁ4á×'ÑeKR `ªÜk+·«ÞáÞj|á¹7Üoà»HNPq‰JgÐ4Òíéà£{ù"ŒçNñÝJïÚØ.éñóôàÐGo[öyv±‘.IS¼+Ç9jÎU´Ld+ˆµ“fu”¼Ë¥Ä~mQ¡±fÃsGñMÎbÐ)êRY2áÄ>®y2d‰=¸ƒÎ»U•ñ¡eíëØüò¹8†@*<*?µäæ!õ.ìyŸ]PhŽNÖЫÑ1Ìq€ÃïærYgî²°MŽ´RÇâ/‹êÁ -ô_XÉØÎ仾ëru'Aßpue+Ë`Y>q† WòXG¼6dïˆ÷¾Z’ ¿ñ«e œå‡ÿ‚”õñúœT¹ø¢Éíï_‡…Âj^‹-æÑ'[n¤nyOZ£:OäþÔ?UŽ”ª§¾3z;Fraᪧ}/_ ›-àÐDŸ'o²!OäQ'‹Ê±LÎö@˜ ©Ø.!UxÐò~eRj=U=Î¥Dqæ±K¦ß’&žu9éûÍq›ÎD<:ß µ¯‹áLb½.3¼ñÿ„cäþ%Úx]«×‰;®­ÁÄ ð½åaí¶˜Ry†Ÿ ÛZÚ:ÕÃl‘Ž¾ö^ùn×z!Ë/rüUŒ¦Õ¦î4)ÅhO·’MMdÄ͹æ’þÖ ë14õ´/Xû‰·sa°0"îA«ë¬µÇõer™á¶’lŽBNŠ rŸ8ÑÝ°Yç~ry9‹h‹Å?êchÙž–!ú„c -Y猅OŒ½Ûúc¤õÜ}q¾5Ÿ—–\¶ú–(ºyÕ!ý¦^âÙë(L§¶ 153Ùjv‡zôhŠÒÕé9é·”®Šæ—7ÖZõCYöå³€¹ÌOÁàª:,!·’ýU…C$*Úh[GÂ%4èO†ô¾#+¤y“–6"Ð>RR-:#ÉXL%¿Yž¢ÉD‰d«­,[Þü¬®®‡F¢Tê ¤ˆgËXc‚б¿½:¤o9LJ•\{î„­ðÿ¼h%v9õ'tÝUB¥´¥QÅ•&ƒúFÿpÅÔ¥ÛÔ,8W‹åë—¶öëF¹ÏFŸ˜“À-Q¤EW¼ÐDE²zÑ5sž#.TD1R0„ÝŠ¬±:û$Ý}+ƒr*é­W”ž›ö€Þ®Ub¿œ\]E¨vs|Ã?Lko²¤ŽO®¤ÔþiÇF‰Šx•Í(8‰z1áùdƒÃú8w .ðb€"œ°%K^i5…Ã9ÁC|÷]Jçä4¡ptjŊÑC”˜È‡”‹Í -Ä­ÔGeè‰å/" #ò ß@!aM†bòE±0ñ­Á›ÒU?¯\ ábY¤Ó½ë‡÷Iƒ¤mÊ—õ.Ç`xò+Ø‚“2qZ:j㱦étWM½°Kª;Æ8¯Æ¦Aœ sì&qü\oq¨ºŽVjQ %i®3k’$nõóõ'Ã=ŒE#*à -WVV ½ IàPQ8ë€ôãý>Ôài Õ4bm ¤miûåšÊ¾Ñ.P`²W0ÍÑ'2ó†0æÖÜÎvûwl.]e‹l™Ð‚íùÝÅ!®Y——z›Ö"ËýƒFßkRÍ™¶ÕÎå,­š`ká%‹˜Iubaün\þRÚ‡udÞ Í:tÜ?·°ìY¦SŽúû¡/WXlOé®]Á{¨j -À±f—•ˆ_‰p|”åê=ZO›Ç(ï+ªý`ëH -º5 ~šœÑ‡7dhÈ¿Ö«]VÛ1´ÕÔ„ìœ2¢ÐD(ÎW[Ã/tG -W ”(µ ìz ŸKø¯ÖèÁª3Z!‹>ôŽL§‹ßW×aF§;®‚w¢0Þäc¿³èA–°”Ü‚ìÍÜLc»Ea;ã° *DGµ5€HXÒ&Æs¸‘wÈ*ñø—¡’ÂËä;êäs(­#PBÙ¾ hoOt%ŠJ»Ã ÃuÑöÞ.:üñô–ˆÛƒƒ ÿ&eãåss¯E¤Æå3aÌ•*™þPê›v”*¥k]5öDû6æ?¬xæ3à{Û%·Ð¯Eó¨µiVÿÀ ÿjÆÓ¨¯¹§”P£ƒNx[šö ïЩnôP×Ú1#WÐv¥›A8Þ¿6¡dz“¸LíñtGîb5Püw,.½#g»«…ŒþÐF:ÙÀîð4ý:uBV÷@aOå•2¥zšn!Á `p»gTwa„GÜ7þ”Ý= bézêsÔФ½¤–Y@«¶}0Š{9üBî6$ʗԧЋ>«Ên4=#|¨hý~ùÞ•4òR_=¯ÒåÌ !៰\Sï‡Nêú˜Ð¼».b³ZÏ&¡z t¿Š~‘^´ûÆ×±¥¨+[Àq'¸ˆ_ `XðüðµÈ›­øÆ›ÅìSš¦]¢LîÛgLovc—ž™È 4×ÒË£kR‰.z›SŽûÒK.µ$ƪ½‚°o³ã”5â™øœänÝŒÖPƒìWÚè Ej I‚ÆSnÚö$I~9VTm'`_‚íöJêMšWýÞ®8ôã·çœë>`ÒQ]K¾_CP°¤(8¢!ÿÎJÙªS׊]líóÞ¯Ó_É“ùBAŽ‰LQºs…&òúž^¯œ -1Ñ_ú%Îù@quu£=‘8ùþèÂLTUÒ§Ùã{]訯-S¢ÂHp‘ׯ‘†â°/[ZÁ -endstream -endobj -1935 0 obj -<< -/Length1 2045 -/Length2 14638 -/Length3 0 -/Length 16683 -======= }ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ßrÌ—Õ½Íám”1lè(zåNRøréò^&%Ï:(/I‹ŒßºH’m§!’4ðÜJßxIò7¹bs,O’iÿOl7²_Äógѳ˜½s6;æ•ÂP—€—´¸­}tx´,ÀIvJŠ3ÄYžìÊ«]ò û=Üí~ª¶™çHârl;H :Ì(x‘P/PÉû”ÿL™òÇÍSøI'sbÞ»£×~—|P¿p•NcO¸®­Aͧõõ±B°VÆãÃ")Th‘¦Ï^Cx–(Rãy•,Às)+Hß‹;ãmÂ*?ç>Hœ½"‡Ì%N»;8'bóÚGZÕÀ“bÇdà ^iì$­¸ðºôiaeö”s ·ÄÞáƒF)l:}ÿ¯3äX ‘ Mvø¨%GNð¾×Å,Ò¦½/~`Љ÷"›ìJO238Úi Œ-]IG‚cä½f7äÔ€¦Ìò2×Í‘Ú£}T þçÆ ©Ã@ó &xß³8h @@ -43642,7 +26332,6 @@ endobj /Length2 14211 /Length3 0 /Length 16225 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> stream %!PS-AdobeFont-1.0: CMR9 003.002 @@ -43662,13 +26351,8 @@ FontDirectory/CMR9 known{/CMR9 findfont dup/UniqueID known{dup 11 dict begin /FontType 1 def /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontName /HKHZAC+CMMI10 def -/FontBBox {-32 -250 1048 750 }readonly def -======= /FontName /KKURMF+CMR9 def /FontBBox {-39 -250 1036 750 }readonly def ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /PaintType 0 def /FontInfo 9 dict dup begin /version (003.002) readonly def @@ -43716,12 +26400,8 @@ dup 46 /period put dup 39 /quoteright put dup 114 /r put dup 115 /s put -<<<<<<< HEAD:docs/psblas-3.6.pdf -dup 61 /slash put -======= dup 55 /seven put dup 54 /six put ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf dup 116 /t put dup 51 /three put dup 50 /two put @@ -43732,73 +26412,6 @@ dup 48 /zero put readonly def currentdict end currentfile eexec -<<<<<<< HEAD:docs/psblas-3.6.pdf -ÙÖoc;„j²„¼ø°Aw-åÎ<ï˜øX2-Τ^tÅEÒ_á’SœÚKªFÙÄ1F^j¿NBqøžÞ×ó{ä³´y4ö-FègbÖÿöÔ“{÷"Ö¸¡W–B:§rÅP‹À ?dgÅS%|'²ÃØ“w&¨F7J…¼N¾À°¨œL9VìâRt¹bÈTå5ô'ŸâmƒãŒ\‰—Nš"K<¾ù -’w¯àÇÊÈÜÄÁ‹Jv‚åð$†tE;ÈD4¯VÜ¢üŸ§vëš{bG@ëdÅ«ß)–ø²Nòhäòë]!(”À7h`”fŒ1ìzùpÜB˜r £æŠdÛž‡·Ç>“÷sVÙiHÂÞ­âkJ‡…KyÚÔÃÑàüuK—I[ÏÆ„(,M’=þ¬äì}µ%½vf†º'°–äE+œ)ê}fƒ¢Æ$lÜö(…ÔW2[8˜h¼T>¦Ü9„º€X33 vi˜®U/µçÇ¥Yö{z4þ¢ó¾¾B&Úq¯‹nŒzà³Ü|š¤¡úï1/É´c™±ŒCzwmáö|¯xá]LÇmo¥}­z¼m5íà׎Œo: ž©ê¿Š„.º‰"­ÛãĈõ¬d¨N «úôÍÆo¼3 -v¨Œúëzýëš N -p´zªP;VÒ¿g6ǢŠ>Ù,ÿñ>º—O€J4mA0ÌýR3¶Ö¹*È{¾+¢ºä9á…iuåÏM”äO@h}-Û(Ž ‚Qȃ钌¼Aàô¹Ÿ‹)Ó±Ôí ¼¨=.9©çœëô3góœ=[¾_ÿbÿo_ðBV¤ßúƂ˶òW"í䶛ÂàaòéoZFsO‘)„”¤%ïd2ò¹wŒN»­ÓH>õD}õðÛ‘ÅY•¼í´±1jZ®ƒg¨¿1b¾¹œJªa|`¾h§b)ÁwYƒïc[&0j”ð²X7yøg -˜hS·…¢&}pþ-ÒêfÖ^ aûÖ_ -Ål4zVéóènRóà¿_e@¯³*z|–‘•Wi.·9Ì)ŽÇ™›B†SŽßs3Ïk ,^Œb’šðz˹a Ë…4_BãêÜûÆÎú1ï+ÑÚÓìWµ²2ÊpoœDûœ«‰¾x>Êf×H³ú[]TEöÁjšRÈŠ~/+û ääê š˜Ýl8äzXÜ’p²ôŸ›H!V÷Üd¶!¶€;d4¢£T¥Ù5:,ãúv#cK*ÜÖ;+zÏXŒ¯z k ¤QÓßwÅ>aqÆb6å1Iú¹ÎK&…?eÐÕ÷‘=ˆêf¹¶<ðjKüŽÓ$k¸löÞ%_ôm$]™9ã-ă åkaLËÜù˜TÏP1{Ðn ‰ŽÕžFÚ{bT½Ì¼f†âí ­{‰LÒë&ˆÀÀ -ÊX9ãʦàú÷îµß>?Úä´T ØÈoîRwšÓá: -‡›e¹ï -/ò ‰ºèÁyûí¸}„ ‡tæÚX¢ƒº"7€òqt„àfú}ÀæÑ”)°†8SRÓX•y<œs´2j•O^¼áƒº%À Uº…à{>Ô/ ¬¯©Cmoßå0Î%¬}¡pÛdç{h4>ŠŠ^wD¦ð@eQôdÄêaidYÑ^à@¿µ?p i3;²BŹAeûûÇôõ Ñ"­Kcéæ_ - -ô>üÉüToÑ=¤*¸ÉËúy¤€Ù#p$™UÎa¦€²€5Q2Z3:·Èw’ÞXê<âHY°Æxv½}€äF-$›"›b!(µzkDQRbt;³Çéj¤¸Äk äNö4­Ó4ù™ôß³ÜÿjA*›`gÒ‡Qª±² (¦ç;Ë°Q U„CpbèÍ@;øÃC9eé&F[(‹ -¢ü…ùù¦?ÎrŠí˜¼º_ô®…ÒfOWÞÐ㨟¨uù0Ý÷‘k/’®&¯5õ ÉÒ¨ùµÕØ ±-ßLYVZªbì4Xž[Ì0uÌj>EÔk²€²!XÅÀL¾¶ø¡Ç‘U—°ö›ã M‡lúTHÈnÒþy›ÄeUÆÆÿüs…AÜœŠo…3Î|] ¯]™äæz¹ÝN®&•”GÕU1@µ†./9;ÇÑIêÏFz”$¦¾€UØ/Kl×f6xqà  y -²w}±‚HH/³*%úÛb•k“¯üY±yoxжj®î—x£²S½˜\yµ)n?ºžVè‚J¶ù+Èka… [zÜÌf˜±€—×fI*Ý[f=M3Ó)%¼ñ©®“qª®¶O(¿\-Z!ŒžëJà -H)rQöµQ5ö£TbL}/>Î5kì÷=Qw¢Oþ75üˆ#:•×,¢U_LP?‘µÇÊNC®æSMöÕiïÕ Ú>•ÆÏ÷ˆå åñ3*×j#WÃDê8è‹$òÓ|òž!·FŠßÊÌŠ¸þéÚL“;_ -dQ–JI$¶º–ÃYÈ(ØmRqè÷£J[’~fÖ9,–«6³â_1ú£Ó~w »ë©S,?1?ƒ óÖAÔÅßyl(‚ãL¹Ït» ïUîìè À«m@Ò*ûT9ÛE¹¥WOg-Ú–ÖÁŒ°HépæaH"\z¤ýÂ/ÒÓ„EjV{1‰ó1̃T±•VLýÒ5yWK|z€Òóã—ð|Ú¶t¤jBdé…V=®zÙ3ÚÀTÖJ~¼æ[²¾µþÕ3`ýv þpnrƒU MVWª›ö.çY-t虘鰭²2zÕñ‘„¥‡ -«ìKxq3Ã¥àÉ_t§­›éÐ|ÑW×%ˆ0£Ì=æE‘@¯º”.ï2^àr³¥:Ÿ(H>¬eèÚPÌݳÔ;¯÷ØÇס„}mWœé-ñµMáAÎzs`sb}žŒÙýÃs¸@_“s¼/—žãFˆ¿„O’E«—lî‹Þh\G`böa8¤š·$(ÞòÈ^U3¯qš´ÔõïãóC"«ÿv¿‹¸õjþ?˜ŸúÜËAÓ·æ5.¨s:¾]Ç;H2®…½²?l¿´²cäþP¥÷ô!e£Ûê-t1ŽØ//Ç‘b<†•“Üýkû/å{ßéÑ”o›Î „ÍÆãì¥8G%‰pμÉëÆ·Mñ:Ó•únýÂ$cS€ë5!ª’žº0•ŠâÚ@…!–¶~äD Ó#8; ¡ò´ÿósŸ^ê°=gC𢑴Ý?ùèë×z;_]“¼r~ef H“¯‰/tü Ãóè6C©7GgŽ¹˜ùÉ:ùB=9$õñÇë$›*·6‘õúÈhrõ!ƒ e¬;èË€ÒWÅ.¨d~÷Gþ0E˜áÎ ¤Þ@1䶥xi°ŠVªq ‘̸¯«”­Öpçg¤Nwy]ßÖ\œÜs2qmîþ?ž.Ø¥K¶úö;{õõT¹4‚†ÀŸÂ§N¢ïÔà¾këàÄdàxÁIhE=ǃ§ˆ¥]’]r T’À} ºîI‚ûí›2Ý®# ¥‡™þêÅ[ °— -Õ’cuýy¹URkàQRbµÊ‰«Í¿†„|¼XPÔ V½Å(ézÞÑêm{v½ŽÃNt*ŸÌñšcD™±Ì’ _;tkÔÞ-›ê4%§§¶F¨ùï™ øÝí²AOŸ(®†sÉf±%(ÜûpÎDÛH"2&˜-pŠ Kï~°‰bãô3!=uEóQé”—(ëD<;³j°ÄÊ·úßÙIåù2s¢¶ßûA´g†G“ÍNSÇŠcÆ2Ôüº×r.†Ýã7ÕCŽ^CB á‹è°=ÝrÑ`–òœlq­(2]Ý¿™NeKè”0³ì?§Òp1–÷ñ ^˜ò`P~Sÿ=KÝÿ?EùæK››&³+ó‰£r\$2 $[׌/xÖp3¾ëâYU¡¬qƒµ*` r ©÷A ­“U8ÆÇÅo*ps ù E¥ölk§b@nQ+óÌ;R‘Œnž’‰2yφ¯„Ù¶}»èKéØKVTƒ#«8ጞ•pE:¾wÊžÑEc “ŸÃ¬Ã=Iõ鉧JÇ`ðÉ”X)RxïÞ’éÄx 5Ñ.Úh¨#ºDHêŸÙ0Ècµ~Á¹J¥ ㆸï¥:qÆÈhyKÝ´þF;Œ‰‡K› @û3Õ\îSN:8¡£'gé¦ßU?Þ)äÔRb%ÑûÚoŒ·€˜è>Š6 ãÄÇ~)˜ O’ -«©ÇXw5Í/"Ëá|k™¨(e$/ÞJ«¾G ¸à“ÇõÁž0Mõo#hpÑTé%Äòå-R (>¥*Îú Ò¨ìÈ25ˆh¼èïº|I.5uÁ`QP£÷Ö‚)`ñ©—QQǶé(ü÷4“5•³^§ƒÞ„‚M߯oˆ5G*`?ÍRFM¨ àÀþÕÌgãŽêpÀfÚßnþ¾5Æ1d¬¤¹‘íKÄë[L -y¸q ´BÀ¶$Ã@'ˆÊ6é!Wëà -ÎúE¶ÆI¹ï6ø,ûITÁ$‡þÎy›Ù‡î“H–pi¹æÿVchž]l&Ûß¡FÃÝ:¹ÂO¤é$#ÈŠ!D:¨‹…%)aã›Mx“ýÈÇ"_L—ú?Âd*ú:‡Ö0ï2]7x(ìº4p ®P8¼*.v5žsËb<õŽ³]LQ†0ï*ø¶Kí•×+·@>e.-ÚoªÓèþC®–¡Æ€lÊïÆÑ\~R+$vÃo–D¥™Úg†ßþyùê èaÛ|nŸ“)>1–¡°©£_ù|hv‹D5²"Pt#'ò†å¾¹‰.G¢EîSJÏW˕̪N AZâÑr…ùâã!Éoí¸ì¤"ŸƒXýFÒÃ-øò) $^Yá±|i R©ÆA5ÿ=OgêÍCna8z*¬2Ïeþ6¤Ü]Ô‚œpóc&•ŒIJn=½/¢KzÑÿÎb -Ì´3Ö'‚@ü{VÊR&go·Iaª˜;ÛýäÑÃØÉçânI¾_áš™Á Í| $xf¢Â@½µÒ¾¡¯úÙdôGëÖõ7x jUö8¯ RCÓ¿?¤A• X9Âüݾ#½»ƒQÇõÁÃÓ×|¶ÀÖ°\ŒW -× \·]äû€4Ô/R™H$ˆkítv>8]ÀªôQ,1ã¾ÎH¬ÿ€Ñ9` ’¬å¬O˜@›&]—å×zŽP§OÞ(5{OÞ!’ç F!Òs‰‚`qlÅøûè´ƒ8ànûr°ò¿9Ž9:˜Óݹ6SH u:е “Ü´ø§J¬/bK¡¡§¸‡ÚáQ ‡;2~tã¦|CASÁ~/ð¡–T Ï>¬úŽ8¬ë™á‹Q“ÛÃN–+~©g-|‹¹zØÓÁ4™ZK˜ -ßx%½ÝVp˜‚=ÐÉŠ´µNú-É"í{L}C˜mÆ4ï}kÍw~enÒœ.´fƒYpg¨‡‚½!°œË[t_7.ã×ÍsIw¯4 ¯}cøOŠ;”*iz§•è2”m/ÌÅ™…ïÕ…Û*¤¿ ¨å4¥¹yžÝ*u3È^ÍNƒÝ£’ù;ëÅ”Ð+ɧSd¿ÿMá:)2øúé—Í ;B¨Æáþ Ü"Åß4æß—PÌÆmG‡MÌwÎU§Œ$fÛ=µÄ„{A»yè<\.|L5ƒ³”ÐLèî:Ý­ßZ: Ï>f>proyjÂÎØ’* '²XK.šO³]Hù¾_mâÅãüíkÍh׺{š”ŸªpMqhéXW‰}ƒÝÏå8ôeä1°ÂÀ؆ÚBüØ,V´%°úuÊö ¦Uï?Ö•XO†Ûh“Íf÷ïH]Q¦¯œ&Ã=®ã?^ušâæRxѹr«'š åž@ f9æÞÈSêJ%î©ÿ©$÷C¿ÓÃÍ’:bg-úY›ßkÆi¬Ž…É26fýÖ;ŠòLËÉŒ+à24Bn°ÈÄ:/û€ß›¬*£úÐæ8w«¹w,ˆt»Z×v+…'Ëã8ó:I´ÅjMóÁ^I¸>¡›Èñ+Û†&¦WœÚTÁ¤ûhpÝŸâZ‰×Ë;^úühµKÛlËe,»öÏBtÚó8žãõLϲr¸B#ý ÏާÆÓ.L¿¿¡Y°~ÕÉèzé¡&é§$TzÌð0Ünߘà©Zç¼ÊwrC͵‹åÅñ»ÝaX#€¶bBŸ÷žñâàRjÂ)%`–Yü4·G¾Ï ]»ÎÁSžV¥Ý‘ ÇÏM™¼48ú4ýéñ–R%©¶š¿eÛ¨”ö-O—´’Ï©™Ôü…ƒãð]l2IÔs$Npë0§7"&Œ@L/}f“_À¡õÍ ¬F0nÄ"Ôm¤õ0qê£Ý)‡µYëù’ïzö©¢“ÑÜϼӔǧÁUv=ÉË”Š¹‚­pïq’K´Iú^³ƒ#Ö§O÷ÌI &~Un´Á û^éHܵî<$,,¦û"º×ŒÀW¤«?_¶Ðuôë§z//ôz w™ðè×}¬ª¯ÒXo=qD-¾•äÉp/Ǻ¥A÷-0MîÛÛ+}²'s»à¬¹¾+DßÐÆ4ti~÷å$<@1d#]ö;HÏ™ÿˆš, av·Œ­ö›Þc>h$Gð! ¯RwÑ’x€Êß®W¯œù@Îy©¶1ѧ~º5“/_pfÚª`O!ÇVxçñ(D¡³·¶ÓܪØ4µì¶°ã…z|pºš3Üç íÌ8r¾Ra\¼\•`¦ñ_¡¶ÂÍCBEW…‘z†ý ‚hÌŒ¡ä…¤Ðô5Ê&Y°ºó8çèŸ ~D¯t ´ðEwÎ{ 7Äȱֿæ~ht Oú0u'M§´9WSGŠ’ñz°ß¹ê|¯£ö»5\ðT§®mÂì.=Ä»tG+^å Ìøëi•…½œ•ŽVÓzrøº™–TetÑ]Ô†žm±§í7"”úwcÛ¹.ÿ‰Sñn¾"H]ôYzàÕ}"®÷fÂ,\éð>ßT‡ÞñUqKr}suïÜüIã˜×óÇ×Âé ®ßØŸÍùÏ\°û5*(!'u0 ßF>u§±ÁMÍ¥5+1‘Æp,é%m1raŠ• pàYúF0#G±¨¼~Íá|\6+TÖOJ"g¢-®ÿ]÷:«D¬SºŽÔë¸V5,]Ácù\ND{耻õ§¾§B:Æõ»_Í«èy‘šîÙNz.À­94’@¡cj\ŸqƒGHº+zr‡È ~_)¶»è×ßW˯kÃí%ΰ´|@ôÛöy¼£´oÜït7â-¦•®õ–B<-¨F¹E¯Åd‰X=Ï°êOF?ŸÃŽÂ³‹ <öÝ Ê©Œ‘Ýùáņ€*‰„J~;JÓqÉ™ŠH~°¦Ç$³èÝrZ8@dšžolþo´vú&³Ž`ÊééÖaÆYëQ#ù¨šÇ(À‰`Áè/5“ÑËn¦–¬vXõb°c¼ñ®Õ°Ç€§T+ÿ>uÌîî¤Áùª€§Íl%°ÑD/ÁØí -G´/.¬Ê£xx"ÜF´ µáe ]/4±°‚f}!•ß‰Ò,Hƒ¼ÊëlH÷íÛq«Ðª F_×7‰“膪,É~‚mA(Qb5I׎Ç*…€í<<î_³@!‡¬¿Iˆ¿Gäñ#!hT YÛdO·Z€˜aÕüžŒLÐQˆHZ}¤ìü·ÿÆÑgýŸÿgɳc°è¤`”Ö{‰dM 7Y’‘Oÿs.g0"ò]™\lý·˜±F_ýöÑÙ¬joèD8‚­•½æÀ\ÁÔ`°¼:a=W%FU¿Š{©Ÿ’wZ\RXWlN’ÐÊ66I ÈèkÜ)˜”ඉÊc‡êPÈO -ÝbbÓ€¾->£Àé ×yx'0 f;6lÁBðXG³ÛWRA€í+5‘¤‘ˆÛk¹ÐrÝ=[ÖšQ{ vxb@±^R¡ýž0øFH»VŒ&ø -¤ÿËzô*ÞÕAzíd,]ê§ì›j ­Þ¢ð„r/øq+˜Ñ@I°µJÞäR7.îû‹±R¯(pco!jÈzÊ™š«³ÛRÑŽ€ •×•#>#àg –•D CSÔæ¹pœ¥W¾Nn‡N-D¹ó+ØòcÌúXF„Þƒ‰#4-‹#®±I3±&·ê%¿jäÊŸÐv³càl tí­_Û¤1ó~v«¼çñX+_wbVØvzEgY·›^Oº[¼†–Ý$ýÛWº*dåÛ Ð ¹l,èê¡­]ä“[Ö3[™q IÈÓw1u›c]Xƒ4Fì“cj×5Ï+!- lMoá~š‡Z*±ùfâ'·iŠeýÛ¾ˆËéé=ø͵hN¾$Ææ”î]¾»}^Ç~Ž2}oÓêˆhÔ/rhò~^BâFyñ<Ñ•JÖîô˜U24-ØIB è·^‚y-åM¦5k7ôaÕ÷˜o6 ­¿®pûidS=ÆáÞY!rºßú†—eL‡o±R|D€@)¢Í®N®\Ž•f«©Õ AsZtL*KZÂG4}o&DǸ\ní/èÁ†¨ýÍí­{ZZ¨Cý¶0ÕìÌQè\A#exÇÀè ­ aAäì±6ŠšÅĘHƒ‡Ö°<Ÿv ÷ÈÕ6Þr§Iª6øC9ôþâŽ/ªh/‹`køê^%Jz˜É°hR{‚éÎùÖEhØœt Rä±7\¶ên½Q‘ÖEó±ËßJÆêûp3E2ÈÕ³ÔÈ¥ÍÔ+'vmy³Òý þA"noLå5D‹âöœ­qn/øp4¹voÌÚxVbÜ';©ÓµD Œƒ`äå !å9 t/ë OÍû†¥¯Aìnkibí Ö*Úø;$GØÇë¾N•ÙxUÄS† QÓ©„oÃ]Œ¹EKا Ršx-yÖÇ”»,ˆw§Cö›Äêîñ™ÃŠ0£r¨‚ n2ß„5 -¦t1]‰ÅIdK^³§ S^›¹•°êž«é:Ø^­•ß!aÔz¯dí2s@„z=3S8I2™ÆFìçTKò¿ 3Ûƒ]-Ûe)žû³†þ"W·CÝÅ’KŒ -cÜëŠá]¢²þ¹¾q;¥V^¶=íÍ.TÉ.õxM¨¬÷„¶ï«C@¸ZG|ÑÈ닸Žà½™>šže7o‹@†í¾Žs…¼ 1ܺWÕO`D£¢†z.x—kû,¶õmðæï*fô«Œ•j‹Ñ VÛ½Ñ(â!³ ¹ßûõr˜ó(˜cnøNÕ{{¤ž‡÷ç)¦[A¨ä†1ërÄ°ÁÆS/F?·êý¤æÙÜùRˆD7ûð×Æ çŸ2f/ÞB¯l±I#dãö W³Œîƒáñ›sò»oY .ìA¯1W™LP¸,7 Qì¥(PÝdÄÕ°¢îà(Ì£‚àKüÛž‰íû®9\…¤ÙÔ8„SËZb^—ê+Øàaƒ\®à½Êú]!.Âc÷cõµ|ûÂý›~ûC3¼äSþ¯žúò#ö~ñ˜pÎÁo–žõ—¬Wòùσ†f´™+6Ĉ(”¾‹ ëT!g>؉$…Ç°u¼‰ÜíËYèKïÜ2$ú¶ŸO;h‡qV)k‘D†„Aõ¼ŒÄËYõGø|Ê TkdES„ͯü4ûqáÉ3Yi®ÎOºîuÖI‡W¤4ûÒrÇÌJOIá~ƒi½¡nÀzzÚhœE¶TCuÎTÑîI7ºEãq S"gGÆPª’ç31‘êQ²™Ü -þ9ä{¨É  ex¦ÊºZD_Y4¶Ñ³¾þd.åBñ± *` *ü›R)ä‘I—ÀæÈ‘3£ÌŸYf¤N ¤ç¢×%ØÉÕ˜ê;íÊ`Ê)›DA¥JGZÙñ¹vëi\û¦òE@܈õãR† öOGr®âiÐëÿŽ?^DfRê‹Azð7jœí©ëÕÜŽÒnÉGqä\2¦ÝìôÝÀ<íµÕwvV¦T¶ ¥¯kQ‘¬Â½Ø6H"§TÁ=s¶=\ˆÙü®»­Ú|õ’h©½Ð@ WÛŒ[sŒCn Üõµ!7ž¹‡¹èfT^âË÷4 ü"a[¦7ºæ-åPby$AU+ |G:ðö®G«k>©Àö»BëWü0öqtÑhÕŽöv=5÷‚n$ h^7ºn®}1!ÐSI²é>¬h'ŠæÓþ½¡÷}ÂþSx˜Âóïô`1TŸUW›“õy¿`PÊ|+Oý4Uö<§µÛTÙ'ÿª²F‰\‘ÉÔÅbóŒõ9ÏeƯ>Ib;‰X‡Xõõ÷)Xµo“EÙ,Fœšq>÷ù³¬‰Âò~(yª9ƒ‘ôô¦¥‡õ9¥› -É—>¦ÍO“\nÝ[׃5¤û"Ä-é© ó¿Év}–aãRîj+fkY¡­­ÀȺ6˜ú™Å56ííÖ~@t^»} ¦¼ËìV3ÇOK|g^E¯¸#:µÒLeÿ›® )|—9Þ”š9(®»ë%¤+‚†FIZÎA?¼J}á(BTápÉý!ö̯”DxÒé²ÄѸ©X,É <&Ú&ZP¸c»ßQ©WGö}à¯sKHù|XÁ†Ñ­u3‡%‹˜Çÿ”¼ú€ú«a˜^þæôG”÷šw¦w![oµKQ>s‚ìb pC&ZéÛ‹™²€¾7Ùhp¼n -wæqÁA|ÞX4xÈ'\U_§ß_wŸnû5ã0Þ,~b‡FÞÐúAªY­èp_OŽ ~o -„ NL›HÌzÀ}öø²ñeª ”¨ï-µtx£bη!ñX³/i*uyÏx†þ:(ëÌØ(úÖe)ýÍ-ð;›àEu¨eÈÞ†dÍÙ—c.õ6Í,rPíÕ\ -Áˆ¼K: û'FÞÂ'’5ãî ¨Ë -/ Cf*DŽýUÖ= Mî:焯»˜͈%\å•/ÖÞS8¿•  -BÁqªŽŽú,–…s!úSæF¥ÐB±3“¹=­Ö`˨ÊôÞŽåìºaí ñ\-ÿ ø/ðŽÃ"±ØnXÎþÇ=áë»þ¹¼œP5Xiq©²ÖÓƒ,¿2üF‰ÿÏ"Ë+Q_ÓÁ-éU9 -g•tüE>ÔíaŸTác›ýþ”EøÞɧYf¿à¬té*ˆÊB=oLš¼½Þ<É%ÓHï4Mø>…’båÖ&&½åîð’ùô©äJ×öÐïÄ– _âÚKæàÒZ˜0jÑíÿÀ[yájÛ1 æ» Çò³Š)dŽ@~‚\­ßÁ¨ó à29?ïDjD(Û²äú]ºý’)[¾OTd¿å<‚áh+Ž§\íW(Á°ëóRªv\¹$ Åc‡¨¡€ì»x^‚1O Þ9Cù”£xÐ,-‚‰ œ}2§‚voB…“ -îàjÜyÓÌN4‰‡9AJ@*×&‘ÆJ—Š7ìxÛ×U]ÅG<˶6yo"fÕu?èŽâd-»›“½7šÜªfÈeþ£$”K7ÑŒÎàÓ 6´yÂŽÊÆšn¨ga˜GT”Ë k`Åå¯,Ö ‹4×0Y‚ž%]2k +{,+E¿ú§FÈåµ»Ò;îÙGç2%’â I Ýf žôJ>“’»}n‰°ˆM†¶áI7x—ÅÐ…b7ß 3ø=ÛBEѤeºÂ‚òEB8?÷ ìûÎ6zÜ[óv©ÎŽKlBËm Ä“É$9 ßûW}1é®\¨Âlž~tŽÙÈ™wECN¤3éþ|Á³(Œ"öÈfù–Õ%{Ç©¥Ëv1ßø¯CÊä -H;ìf“ø7¾Â&”î°ÜÆpõÞm:g›š*sÍæ³yrÅͲæÑãýäÄX9flâ4ôö3P­>óÝTÙò¯“×wJñ7(Ë|Úˆ.J¨î>.îàïc+V.]E56!â»îEW7© Ašƒ>ÿ¢È^¿¨¹YfäTˆ€š<¶¡á‡à'ðD>?¥ÎBÏN“Î xÅa9RäìàI$š¾ñ¦e$6Õï$mçe0½ç?#ýìžF‹ÁÅ,bn]ÞÀ -i¯L‹ÃtGtu9GÂIjù'ÐZ1 ¤ZÊNQØ5Mwܯä"Ÿ°×ž- qÝ\K¬¯æäËfœy¾úÎdvZN;µî«%ÛÔfB$k«»Úâ”»x§n2ÖYîâŸËf‡ñÔxwh£6*¥‰‰ñµ̃鹿+> y‰óK@¿÷šQ§Ã1S?è±#“PÃâùž™ˆm9Fsà@ѤQ€¹zˆÏIWPN@e0’!ï!R~C[ûJÚ{>›Ëýó{öĶ¬eþ,R¯~ºÞf1ë¸+’~rá÷Ú=ÍŽ¹¡ ø¤ê…îœ.Y™Œ¯†€E÷vT’!å8%×±ŸÚê¶×+nÞRuîBd5Qˆ¥úZ§ŠmøÈ•­Ë8¨ƒcî¿Ñj¬ú¥}–wèÇB½Yú°Ã!(  Ý'f6ç-9 -(cŸ”Á‡LÚøÏEOŒCB­­ƒõÂZâöVýÏ]»ôk=Q[F‚²fp NQxN§߈ ˜¥IÒb®µ(°»=h -J´6Á£·/Î|Å[nÀ¬ìÇÒ¸? MqåMÈ^û™RÛ¯:aPا´S¤¡^7Sñª»¤±jy"ƒ¸ÄQž;2ä†@,ÆÏÃÑ& -iü¯½³78Àí²ÄÌwŸ~RHôyzËï]‘4ÌRÔ<^|žØ$T5å'¹9¾ þR -ʳ-@z+´Vù@NP’ƒ\w´ìxËÕT†`‘xX4„Ù:$.¤¸š1YC|¶ÿ9O€E¼ÞàÊþîÝüû9ì<ŠÒá½Et³ Ǻꛗÿh¢áÐ]$oÙÜtE -†(Ü‚ÊìA¿ì17§«Ë¡ÃŒB -¡¦Jô! ]!{¬¶%£¸s„—Ÿu¿½X‹|Ö& -“ƒÿ³c`YÑ9"%¡w†q5íLyYöu:lÉïdžPC¡àjŠv³1N •S"þS´Á‹Sšº"Ñ’Úu¦˜}µüò~øRÌ_D{çwšÖ;]éî^øW¼­—Á7‚yÕÑËýªqôì?¼VÖðM2"›÷ÜpêÇ£Ðà8~ ØÅŽÔlê©''<ù¸ l°’e—ówÌÔôÅ·6LÒÕòhToÎ €âƈA Oe:3„–›ˆd,±ö`RD9 ËJpC -Zõ 8éôͦ Û à }âÁ*ø:ݺh—»¤è%+t§[ï[+åð•þ‚[×`Ì7ö:Έ þ&nàFyÅñŠžRØíSxÚjqâyN¥”ì²tGåd`”¦"=ì5Ì%»Òr™'~&k½œñíå÷$û‰7éV£òOïh÷jm¯‹¡4y<7ô-@€¨Ûâ Վכþ–aàÂCᦻŠN.³c»‹ŸºLCàG,%Ѭj ž“ 6 °ÞM=±\:£Î·Ie» ï›qfêÝ÷𺧘8÷~O%w$7gä*Óƒ…5¢£ - fÜ»:d…c|¢ÕŸgoà=–I2îF'ALb(“G5*STJYìÖbb]lFåR±Ð§¼Ìd©`,qG«z˜!‘„bplº¢: YÓé¿üÊö4®zAb£7Q¤ï -ϯ˜¿ -‘Z},¡~v9ðR¢W³BÕh˜¹Y'N& ù·•‚nvÉ£#¨î½¾ÊCcóçåÅ(ø¯¿‹én÷gÑúñInâ[l'8|s.xãØTÐù.›'b'8t ìö1x®Aßêª1õäØ„€ð¯UØHA'‘g–Å oŽšSC2¥Å˜¤Ø~Í|¬Åc˜dá,ù»Jçíªô§…[)¡ -aÙìèC¡:ºÄ¿ú¼fús:ÿè'wµHŸ}ùJè€;Á™ú‡£ö°] ë¹¹«5¬_°¡wVþl }ÍñêFí}~Ý -<…¾°ÐøHá…½k!‹žl¸‰ƒ¯¹–8nÙ‹ØÕU™Í`ùO<·¤ÔÇíStÉàûÔK•yHl†rò!D·jÃã­ˆ0/Ëö8)µLàûcÈ¢¾‚m–ßú.Å„§è‡Ü ¡le„,/%I²Þ֌޸Ԧlq¯ÂyÐõ³Ìâtåòǧ-îÂÿ"MÖ0Q‡…²œ´°,XÁ¶ÇFß᪆šÃõŸŒÇ --/Àƒ·šE©®v£(Õ‡„©,ÿ\( -]²Dg­ºÂÒü1‘U:„áàŒ¡âƒãEŒ)ÓrkED¥öÑ–…ëõÍšò”ì=ù|EæE³[òc†$“—5ÎÄ ãABHÏ£?Á¯çøÁùÛAß‚Ñýÿ¢"°;Ëè¯F ù‘yX%3ŒäJ¼ÎDäi±Né›vhŠ"èI¡~‘=\r7CóK¬ŠËG°EÎ’/yDw½ÏM‡äìËößzì’y±Í$Ëo—ªªzè#ãîÜt&ß³„ïÓ®Ò8WœÁébÒ·F(”" -©[Yß±LTö^JZIJÿ`²ûYâÔ—¸g+8˜*µ7˜JÅŠ%ãƒvdša[°Ç—Ü—U5¹Ú^2ߺªŠ4ɦ`|Èê\ý+qËR¹´•’è=wN‰‰b×;Hd¶w‰Á°Š¬žSÂ7Û¡˜Ï4¾’„X0·qv˜òo1³Y˜méôegG½¦ÒOýFg4TÇ]2€•UÏÍîšÖ‘ȃۆOž:w8Í6ë,Pú»’íZ«9=»½ç³.Y ”lp÷¬\.^„œ›©Nqµ˜ÆP£@ƒe` œEH :堊胦,{ò›gs/ä8’ *íxÊ ¨™Ô²ñ•Cœº Ü^8i7(ñu¬Ð¬Å"tSmh»¹‹‹Gewû•0Ïä nó¬,[a¡ƒóÉÛ~w×›ù57¶½ÄªX~q½\g‡„µQ3>Èl|w © ’R ƃ9Âh±ÝæS6c€ sÄw[ôBä^‹]Nð8Z¾‹Žiu@cB¾¬­ãÇDQ®iHºÛ_HWA…±h¡ãÀÂA~5wå¦Mîñ’ÉUP1!ƒ\Ó¹LµüÒ#aŸ‡‘ÿ ÑV‰J)í‰öÉFÞƒT ßÏÆĆe‰7è}aáþ„¬ì·êîŒu°Oµ´žÎµŒøÈC wåÖ m„'ûFü @´(Ý´ì 5 èí&ÎR -4&Fi‡ÙÔ!§&C×P‹¤Ÿ tæ#+µ72èpÔ%ê´ùaÅ5K<#ÇsºFëÉSUh–̺d*l¼4h¯çA'7 =ß× ¥o^škõÿ 4kŒQæ­´¶ø‘Rýp5Ö±ýñÁ*–h]ÇJ­âçß¡âqæ¿è?â#æÝ‚ÅÅ7qéA’žÏøçàÎgã9ñðàuè³q5ˆ/±= 4Eú­CËc2Ü1m ´>×Q¤OŽ9m©2E'ϯHõ!üyÀ>–Y`EüýîË`jà=­‚–¿ÖðÚƒ,Hì½;ã ß3òh|êX‡yö c­Oõ¡Gb„5Ôïß$R”ߘ´§Ð؉48CD #…_K|DÑ Â\"x·n[#Ï0Ê=viñ—ÚO÷ÞZ²`ã¤òI`˜ñ øW"YÛ.÷Óêô½ïÆøn¯ý¼Ã2Ï5*<Û*3±ˆÖâ0ŠEÆ8ðÏ ´©÷×¼øCˆ‰•Í5;Hþ,êõè ðÁ²FCí‡|h4﬚˜A¼_ïS¨À‘´Æ]!`àÀÌôä\㸌Å7äËêTç¥â*{W "« À‚e9•OŠ7íˆÑ@#u¿ëeÆmþVÚÃÆá  /š1‹VúðóÄHûFR7ÃïÈgd׈U¸·t³Ýª7‚¦Æoˆg¼mç[Ú¥E|WÌíPö «{oþu=“2k¤ŠººÄÉz†´`§@ ;ÁÈØMKt¾W‡HôÚä±¹Lì縚ݪW.¶GÄ7^7S_½i´áL°BWÊ.î‹\w¸Y¸±-í0ñÿd#š¬{¸cŸ#žX·B²u˜%ÌH6Ýæ³î®t§rD’žJm-¼‘ãuû¸¾ug9°+wOÿ³¯Üì[€ð‡$þ”â‘I°¤>Åi)“$)ÃØä«T4»mÇ{3W³Çœ¼ŽÒG-g>ç?_ý+¡a„ï©Îç¥4¼<Ý¥.öeØ»D r!QÇ¥Å(|ü|À«Å&gô MZÔ]y%ó/LQÚËÄÛIˆDYýºû0 ÃЮÒÔèûè?š€‡]¬ˆ~On6Ûº•hQ¸:ød@'—¯!ø¸@š*IsPlH¸xû¨_ÓÁjDô±\˜Ýƒg3.«fß»ƒ0„i‰}¡= 3àºñåbPõ™7¬Ûkö4DŸ•rߘº5Ëù¼—zW~Z®BbŠZ$TCW¨Ýµ? -endstream -endobj -1937 0 obj -======= ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ }ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ÜÆØx¹<¥Ÿ ,—Ü-.è2›¯iR‹n·Ã±vÌÙ¾1ä • „'Æ䓱©·_r"O¯»_‹t±3keè¾fBݼöVÁfj—Ú9Ò³ÿ Õ7!“± ž‰wÍÝX:À 3¡Ÿ¤Jwïͤ푘IKjáûfWüýIì.kvCËÌW_Ý5±§gÛWZõ—WöOü~Ü]!K"xÈÃÇ؉ÑruìJÔ¥Œ?FÍÚ6ëùJq‰>¤ñB^£Ñf'<2¾‘b‘ä’S­z>/¹kßæa½âɾP­"jñÂ’Ütà}[Ú#—[pæ‘å__ íñ¢@éYíÙö!ɹûsÐÎu~Ü×/ˆ8MeC2+{‘Öx$*´ì|¥û܆k)·°DúìÇÉ 3CÒŠ”ŠU–½DwËùðé“/Õъ’¬£7u”S2ÿôv»ÝÎì ~ˆæytöËKd"Êåf!ZÏ…?.ê¶ÇÇ¥îÌõTmµ¢BýlæHôœ ËEU[„ZF‚²©`Qôy)`ÞÑÜøgdeFI—¥rU-ÆJ~ÿ‹xõgí4†KXî­ {ÁÙ¬³÷“š• „æ7é$þ´åñ˜O@Mûª£?\›Ë(L‰â©Žšz%ŸÕKNJü“`Ä«¤Ò}ÖW6¸¢Ä AP6N錛"Š7`»¼Ü“uÕN @@ -43869,7 +26482,6 @@ sR( endstream endobj 1987 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 1681 /Length2 8374 @@ -43960,11 +26572,7 @@ hX䶫 %d›¹´èö$ endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1939 0 obj -======= 1989 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 1392 /Length2 6093 @@ -44035,9 +26643,6 @@ H C¸FíÕHo¢v¬ÎBõé:T~5©|AšQÙ31åõ7 [¬ä'ñAO&VP2,‹Ã©– ×$Ä;_Á K«×ùM“+ã‘eô÷ý..ÁA¼Mó&’O{®Îx=––r"]߆B‡¬º„ÿ¶M«ÑÚ3?†eÌÁŒá‡“QÞÈmÚ¯„Á6&3»eäNušÁŠ·³U`¤ðN6Ê@ |õ^ö(Ì®‡Pˆr@¸Í€ endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1941 0 obj -======= 1884 0 obj << /Type /ObjStm @@ -44301,304 +26906,13 @@ stream /D [1929 0 R /XYZ 98.895 753.953 null] >> % 1932 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1929 0 R /XYZ 99.895 724.062 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMMI8 003.002 -%%Title: CMMI8 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMMI8. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMMI8 known{/CMMI8 findfont dup/UniqueID known{dup -/UniqueID get 5087383 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /ZOAUSA+CMMI8 def -/FontBBox {-24 -250 1110 750 }readonly def -/PaintType 0 def -/FontInfo 10 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMMI8.) readonly def -/FullName (CMMI8) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle -14.04 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -/ascent 750 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 67 /C put -dup 70 /F put -dup 71 /G put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ<ï˜øX2-Τ^tÅEÒ_á’SœÚKªFÙÄ1F^j¿NBqøžÞ×ó{ä³´y4ö-FègbÖÿöÔ“{÷"Ö¸¡W–B:§rÅP‹À ?dgÅS%|'²ÃØ“w&¨F7J…¼N¾À°¨œL9VìâRt¹bÈTå5ô'ŸâmƒãŒ\‰—Nš"K<¾ù -’w¯àÇÊÈÜÄÁ‹Jv‚åð$†tE;ÈD4¯VÜ¢üŸ§vëš{bGCSM¡!R -ÈC¢”¹ï\ü#Xjœ‰h“ -ë½¢šç¥ho€—ù35ƒ8—ŸÔ"‡gŠ{d<ÝFR€¾¹×‡ÊÒ÷ÙàÊäl Àл(œ#|h¬¨ò~ËAS‹j˜®cZ-.W eÖ¡Ä*wc0 ÷¹G1—N×…è‰sˆ'î&X8ó»ôüÛ°²ö3º¡˜—¸/¿¿`±C37ôVl"Ê€ÚéöùbªÕNeP@K»VcžR„8Dh89ªëûõ¢ pzã šLï›F]Õ䘼¼m[Yüö¡èùÕ´]Ô÷ óöŠ_òhV`×I1íJöäýÍÙª¦*<ÄpŸ{v?÷ \»G¿—]øééœ>D tÍ U¦#þï8̓,®Úûe½¢èG- )Ö1Cÿ4#è9âÕ¶B~—ª”èD‹Ibþõ_ 6,Ž=;Ü‹o,ÐNõIMœj_üvVoå%Èh¡§ÈQi ¹›5X<Þƪ¬l“0šLƒ„Ä ËöºÞï’âc0+$ÊcŸ:íÕ4#Ì3R+h~y35±®ýâ42K„©¶ƒ´ömåêÝWz.¢gå!jA¡|ÓÏvŽ9—eqöËÝÆyF[qÂÙÆ—lj… -éö姓œæ)jÒ™¦s>l§°¨–2²ªgçјpTæ¿@M/{[»bîK1NWžý½ú^×t€D§É$Ûò;áÄŒ,,ý…­ê¶BYQ53˜}ÀQ7¾sR »Ë|4aĹ‹û¯ˆ=8ש1• Yï‚´ 'ò;lÖ3#pK‰›Ñdo‰ 2{ÁPÆ?ÖÜkùÊýµKuÄU%Ú¨»5@_ÏBa˜*ïÔ{U’¼›ƒ-ǸÝG¢†«1ÁL‰5UÀF0éûÒ„>êMR ×Ð1)dqž÷a,<ׂR–•ÒÂB§YÙ_¡²– ·¹Ôø1;¢V©ÉWú*]X©?û ?÷"KZ¸ˆƒ†j@Q8'ƒeÞ»tâX»µè¸<ÜØùºë•kæ{öÉs-ZŸ¡mqq…rÄImÝÔqt/9aŸ†N‹gcZïÔF‡f®D|l¨êLYùÁBj÷g­ú…°›§}`¯ð‚㜰h$šæ$šTHÅ-'<Ãg_FXz:mä÷Ì÷û¿#[:·~ -=\¨EöäõÓ«bÇëÙªáwÝ´Žyó¡ý%Й!{fª~(wU}MÆ„6üB™0Ú¢íëÅÞ°&¢oËM°B0Ew¬xHŽ_%/?·ÖËc5ÉxòJúÑÍIÐTý;~”;&\ú‘( MzÜkS(ˆù¸ŠJ£Ñ1^Ujäbèeƒ62‚+¯:?¸ó ¯È3&ÿä-ðE½Xò/[¼ý£vÁ›z·@Kñ¾Œf#ê»ýôÜ+sF;Ì}0¨KQŸ¯\¿Ü¢Zœ!ÌC~è4%÷€ÛßÿàFÿûG­ÑNü2êUŠ’9‚IÔBç€56ò#ãû¬Þ#ZÞ5&"'†öÚ¯}…Ág¬[çç~á³»âH)}íSÓƒÖííÔy*¢ÆL <ÁSÉÐÈ|)`€ÅlGáXØùÉä²öò´Ÿ.}Á/{]¤Öl®¶ ѧ"$QvEÒÓV½àÆYŸ@ËíÂç}+%9ùÓýU0òÆßÞÿMc ÃâÄ»„½1^ý¯ ×Ôd«Y|'ƒ“ùƒ«<üôYŸEO¤‹‘ö‘RàÀuV×x#òœ>ym‹ºÖ›&àõxºŸï‹”œôy †kù¶¾ÿÔkxHÒ73_‹ë؉յ^0¡Z‚SÏ%Ý–Ú«=—jx5XWYDœ¢è!ˆõ¸<(ùeÖhÃ6‰£µh· ¶×B¶û@‡ æ2OêÉR(!éK*°Ü¯Žý˜¸”tÃÊ^çØñí";!0*Ê -tG³û -¾ÿl¯8JY|’Ú -º«5K9‹„ïÕÜñòmœYÓ©ÇÌn FÈ÷>-?)¶"ȧ·9V”ÇÓ*¦wj ÔËgøËÚ•–ŒoœLåÁ%Y~ZMËýÁ : ¥ž´¸Ì »ÆçÀ …Ïð÷½¡Œžè¼!P!¾Ïl10{FÁtê'Xꤞ‘»çKÄEM×8ÒáåtõÖˈ(üŸQ3kZ¨ ˜ˆÞ›ê¡4²ŸÐi_9Ï&y£ˆsÊlAÔÊ—3*ˆâ@xk,@|xÀäÜ/ „ÙÑÓÊ–×)OÖc©*ûDeE¥| fü° Gv6\„‡ÐÁU8ë"½ÄÐm1õaè0ýhÛeA·fCÈÕ+œï¢5àìËÇ5 oéÃN¾–wÍ^‹kœ¼:ßG û\û0a#ž ˆ¿Šî}]xü‚vRf·)t££sLÎè¤ûÝCs_W@#Ä赡7iO–¾¿ÊX§Ùà”t&{€biÒ¢»»YnVÁq¸‚Ì à!Xƒ[oíÍ£wü_î "«@àäÑ]Ñ J4 ‡êÒrSE±Í +®,µ0–Í9¬¦–DWþF²"†‡CÿÍ@iÜæ[Ô— @í~8”öxtvžª.ŠfU³$ ^xÄ{mé³`†ŽŠú#èZÛå,ÍñýQûþR² ­ÏÚ¶Æ ‰€ˆ® %„SÈcí0á»G¢¢æ.ÚÓæ;Û=÷î”ê°8ösy뿶'óZ]Ax³ÊwZÖêjGµžOIƆ7Š¦,Ì5åoæö©ß¿±Â<Òk@¦%sI\``AI±F-•Hëãb`¬áën€Ñú80¾¥ñ%ÛQ¹^p›ÏÆÄu‚s]”³S4›/³Ùu¿Cé³ó4+‹ŒSZ€qðp`Ñ®£ðŠlD®à”Ò™04-RwÜ$0•:ýØêÂÒþ#ÏzðÁŠ,GLÍLwüÒ¡šK^ÖNÐŽÿªbñ•)à¿èQ˜o•Ê5²ôãU7‚æãÿˈ*ÏAG¨4Â1rmŽéÿ íÍœ=`ÐÛƒI<ó*V­=(Ë8¢ø#+ø+åy7é?n?Ð%DA€s¥G­Þ˜;3žáþ5^*jÈœHëùUŠ1nÅ/˜°w³`S¶›’gª@a¬'sÒHv¼x EæüÚ^)•ºp‚ÒÓóœð¨)$ú—³ÅéZv¡FBºLG—8v2«¿#a5X -çÏÇ4Ú„žô9ødNÉ@3›\9Wtžš¯ÖTL÷ð%:íäқأÐÔX9õ-]{&_ùæ1b7}z&†«#4]fÉ5(°l<© Í -ÀD&-]° Ó;±‘OŘR6ò¾“Ïô—êBo†;£’˜ ƒ–Ž%.a4/»Á-[zòp_d—³âSÇä2åßka½PŽo)za}†>Ú焘kGïØ~D˜5¿ñ5Ôo>@]AI¾m_Ò¶“¬ ïÄªJ¤°‚oìŠ^É’m·Ï†o‹¾‹#6PUA"XÙ꛸ÌûˆÜ/B^ùÁ(Œ•@n$#ŠÒïHÁÞÝ褔0ã´»fÁÖr,ÖädáòÌÜ"±„ëïq½ø+˜sü? n¤¨½~ŒÈùD’˜LŒ¯ò z’CÙ ­œ‹ûâ’ŽŒy¨CEËþñJߢØÐx«Ò¯šJs÷›!§òèü(ЕԘ>âÚgs]÷Î8`;›Ô­V=¸Ýhk²…“TJøöXM*•8Ì^Ùzëce™²Ñ…E)ªR• ¿!—6Åw¶ñ¡…âñ›Ô3–½''6"sɾméƒI`=0c%gÐxúƒfð‘2(g1íþæQ&#þšpˆOŒ¶óvY@ HÿÔb‘ûÕˆG[÷ï$Ñš\L5Ê¢–ÎúÚûÕˆ -f¥/Â6Oööy”‘щƒTãÌ9˜|û]OÖÇ`”j­éÙ³1+ˆ‡šWƒ'd¦NšãÙÃ(Œ§lßÅ1ª®BÉÚD^]᣼zò+ÁL4°1—†¢Q™Uq -ŒªõGš“B¼ÿ Ü“VA'¡îSõ§üqÓ• jvåøÁƒ)Ž³4î°ñÓЋ¼ e|ÕiÅ¿l`uƒ/‹æ”o»u>_سT)^SÑ-…nw}ý, ˆZN¸EÐCô¯÷ Y ReµzÂÔöð3¼øs¶p€ÐúÅ$ îý2…ÍRH?. ¡p…¦Ÿ#Á+N—úÝe>Pò£rÛóIÈ%yëù@©n-«°¥®ÄâS4±Ù¶Ô{·ÎÖ¥Yð[ÃOîh„¥E©ßiŒŸé\*Bx‰CÖЙ#©Ì(~Ò#=ÆÁÏ‘ õ“ÃÆX\§ÈÖyàQζ5éìª_ýp&R5‰SJÖ^ šÎäÔ·rô•X¿æu׊¢ŽÞ œ’ã¢)žÆ”1¬,B§7îG„±OÕDÇE åÎk¾ÎË\³ÌO…ȧòYŒ@øhn˜•:*ñ§æ´Š@Q?š•ƒµPED€Só\¯‹ú©ê Ýؠ䟥°„¯C³úó…óMhQQ“ŸÒxMÏ—™DvØ]錻 ×öú®Ò¦«áJª*¹Tâ¢#Ü"óÒhÛ…×ñiW_5Ê™•aKÍT¨ªó$×#‡‡¹.êî Æ—ð Yamç€Ã=ÏfòWâ#ÄétÆj&zl…IàX@t›Å߸ඔ°*úïî½'>`rÂ/XšµV(ísoª…G„ÂR¥…ñÀÕe'´Ââú ¤,ž˜q6Že: 5làûþÑPî½ÂÌ&•7‰ù/®œ²šöì -E“x*Y›÷ï¨$ØåÂÅݦÀáÓ¢¦ ížóï1”5ÿÈœ\>¦Óöh°#æ1ÑFÌ\ž`A­kÇS?j¸Hâ–Ø:+S D·:]+H¥TÅ5‹f‘\V:\Êg­õ0Èﮩ⠔IÒ²t} -ôoDÃkòsÿ>+ÔÉÄDØý8Üú5ß}•láŒí‚S,@ï¢\.ÁöX ÞÝÈê:éÏ;ˆš¶Í Þ}# z—;d?=èérXB›¢ÆPuŸcjbß=ÆäÚ$˜ E,cŠš2{Æ«ëÇ-æ·1,ÒÌtœUj¬34sí¯„ 1à€1ÛhmQ­Úøñ4¿Å¨ŠSÄxLÀÐL‹I‡Q–ÈMýšh„Æ­¬Õ¨‘—XTœ†3(3®o«×†Š0É£“ À¤òº¥‰ÚY±'=—¢‘g²‡O.*õ¨„V˼ü5Ÿ$àõÿ´Íú•Z[ÑÅ‚s`\T¸¡xyÖx{baã-:'c˜p{m¢å.z~4âÆ_Ÿ2ŽŒôa½œ¹#ÿ²ä[¶é@±?cÖséƒ 9A‚s‹·Óɦk Ž*çú -¤0Ɔ>C§È’¬hå¦ÚÕ®Ô)n‚Îb¢ÐF6&þ—tR† +±ï¾ƒ»ÔØúe„‹ylµyQ( ³Èã)©6¤ð -‚üܾ³¡SÀãý³)q‚|/†`ó>èœß÷ -±!ÏÉ[+ÑAz¸cÂa_š—t!ý4©§Ût%œzv@’6‹ná+•-ga”,ð_ ŒzkÊ :×¹¾ó»EÿNyX/ë5 }“nœµŒ¾+,´Y– ÁáÝTrÛ“7—hޛȕ4°Z†õBœ3„¹$çñM'Š¢Q6AÛuŠÂ«T.œCá ,ÐyP?æ%›ÂnÀœIÜcñeõOWUxŠ …9Xœ€Î–  Âü7aªJnä»]øôœÜµkÉÝÙ‚e1Õóóð«[Äå+JIsXñW¹Â°¯?m‰T ™_ôàð×\ «Q‰…á.²(®úÌÅCa1¯¾e2XrÖ¸õ—Ø88}~Ÿ~ÆàH¹Qüñ¹ $»\w;?°§4â¡Bþ‘žû?³ûR±B6!Y6ãnýŒ9MŽç¼ð˜¤ÒWÑ\6Üâ}©Ë–kxwn—ëEÀÁ¼ˆÃöB êÉ+õ!î±Òëâ_>;Ú½(°Uå«Î Áfu—݉#nÇÅÎWòÚv)…!dTˆÍ@Aæ!ò3xmü×Å(ÊÑ0¦–,ø§ä^>¾T¸mqŠO^‘“-{íâí7)ò0µÙšcé2 -B9V{‚7-cOgm6×=Uÿqí¼Zþ¤ÕUkew·ƒƒ>øùx^[.ZÜGçýPËn!‹¦–'¥FÛ÷þUÏ-]1‘fj 6OŸóR®fäWg$·œˆr›ädVÕ+ø&K7I¹R„Í°d «à©!ðH„Qéêð: øÎYGdsª† ‰Óz_”üå| -endstream -endobj -1943 0 obj -======= % 780 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1929 0 R /XYZ 99.895 699.619 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMR10 003.002 -%%Title: CMR10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMR10 known{/CMR10 findfont dup/UniqueID known{dup -/UniqueID get 5000793 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /SEWPRR+CMR10 def -/FontBBox {-40 -250 1009 750 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR10.) readonly def -/FullName (CMR10) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 65 /A put -dup 66 /B put -dup 67 /C put -dup 68 /D put -dup 69 /E put -dup 70 /F put -dup 71 /G put -dup 72 /H put -dup 73 /I put -dup 74 /J put -dup 75 /K put -dup 76 /L put -dup 77 /M put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 82 /R put -dup 83 /S put -dup 84 /T put -dup 85 /U put -dup 86 /V put -dup 87 /W put -dup 88 /X put -dup 97 /a put -dup 38 /ampersand put -dup 98 /b put -dup 91 /bracketleft put -dup 93 /bracketright put -dup 99 /c put -dup 58 /colon put -dup 44 /comma put -dup 100 /d put -dup 101 /e put -dup 56 /eight put -dup 123 /endash put -dup 61 /equal put -dup 102 /f put -dup 11 /ff put -dup 14 /ffi put -dup 12 /fi put -dup 53 /five put -dup 13 /fl put -dup 52 /four put -dup 103 /g put -dup 104 /h put -dup 45 /hyphen put -dup 105 /i put -dup 106 /j put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 57 /nine put -dup 111 /o put -dup 49 /one put -dup 112 /p put -dup 40 /parenleft put -dup 41 /parenright put -dup 37 /percent put -dup 46 /period put -dup 43 /plus put -dup 113 /q put -dup 92 /quotedblleft put -dup 34 /quotedblright put -dup 39 /quoteright put -dup 114 /r put -dup 115 /s put -dup 59 /semicolon put -dup 55 /seven put -dup 54 /six put -dup 47 /slash put -dup 116 /t put -dup 51 /three put -dup 50 /two put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 122 /z put -dup 48 /zero put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ÜÆØx¹<¥Ÿ ,—Ü-.è2›¯iR‹n·Ã±vÌÙ¾1ä • „'Æ䓱©·_r"O¯»_‹t±3keè¾fBݼöVÁfj—Ú9Ò³ÿ Ô Yh뀸Á{û´qÝÉÊÆ-÷†—ºøÉ·ÊãÁ}W§?Å?gw1*Eh[ŠÜÛ:›—ªtÍÀWeI,Úv•8üa…<{‚ñBú1â¤00Z8ÃÌî5 |ñŽ}­µðN¾àÔ×lw]ƒÿƒ6Nÿb¿—ðð¤h3E`œ†(¡›EÁ‰¡Þ'Q;²eµÔƒª/ðà­.D©yL’â5ØñÇ$¥4IGÃå׮Ɋ\‚yjù9£.îV­U»5£Q!äì‹-ÍèµÈBƒ…Ä9ödèâö««B^éoVùð­wˆBÉŽáT7„¡‰¾R€ŸÀsO™GA‹¦÷ãÕà b#íTBv!m·WT=úãÍÀ¦üw,ªID%'¥ÙMÅKé<‡|Ù]ØD¥Ã°€@‰õ·€2²½Oø( œÝŽ%œæÛ#_½É·VñþBSTø¢#zàÃ×ÒÍã!ËÑã${l­\§4ĸ ;5Œ™l‘&!×〚óß=(ŒŠþfŠ¸ÞUwA´Ú±›ÔÆeßìÈÌB#½30>ÎìH ¤©'œÞL¥+ÿÖ“žjâz@ú¸=®s\²Þõ<…«=\ÀY$ßD?ˆUê Ðæü6•ŸÒxG¡QnÇ«šŠäi¯%Ö”ž!×Ñ -L2±[žšôã¥)!Œf…X‚cè‹ã<Õ'Ȳ–ñRP3E¡!„-:±'àþÐAJ¯.ÙIJCJÎJtª&Ã{76± -#VÐÃÐÀëÕÖHÕ“ó‹/©ÊF×gw"F5”wñSˆ$|¯ÿoQ<ÎçΗ Ñ`~¶<10©|™ÿ<»émï´·ùØœÞÉhðÞ „߭逵µ°°›?É`?ó7–ë _Ì [•¾ó8xP<41Õó=tÏøHÚ ;6™¹¸}rKu1é3ûšUCiš´Ht­²ÑÓ}öyÖþ~c%\ßqï€\ººæ4O4v![›_÷Iº¢°ï³¯üÆæc‹0ß«òMJùMŸY0¬Ìv{6ß”Ö\øà rŸqÉš"3=÷”TÒYK.ÜKêÉ)Á,GÊK{aˆCZBGž½ -yÛ(ŠK'†Ã2O0ÓV—®6IP$$lûéú¬¸-“à[ÀëÔeÍÉ‹øÇKÌ×&2%g”b¯z‡÷JÌ™,uo~M¬2ÄzÞu’™ ‡Ô6*š»*¦ Å «Ñÿ9¿Î¨ß?Ä£K”c)ËÏ÷á\ðgŸt­&?©ãŽÏÄôûnTëw½“æ¼$ dN\C¸›¤ÎÚOöÖÏ@¥W2xè8q!LdÒ®ãoë~ä1V/ŒÈB=@±ôúí!0’ÁY¡ozù$íùÐ÷Ç€%Ä­¿ÑÉwáÞá2]oªÃß ®_ý?IhËuè¡BmîF:µ1Ø–d©Èy6÷‚ÀÚÞ F ¨„Ln5Sòw&©-ëÓ°¯žGzø¨9ê=È'’ä(Ìý¼IühNú´Ö{äO ˜1LvcÕmiµ¦À&È"MìêmÄ@·WÕ†­¤­mÜb%0Ù˜*ú`šëÄ¡“ß“/fõÃl½%PE2¡:VA)SBL/æ<ªî5ªCžA£ß÷l;®{ËÀ (#ºØXnF’"‹˜„8{RØo’ÁÄT(ä_WðbAþK|oM _ÖÓ—Wßþ‘½ yäMèÿ6€« ±^½÷atž@O1ë¡/Fñ”¶3y#™ãcMM×ÐGÅZýÝ[m¬ÿºzÏŒF lªù«"ÂJ>®eØVBWB}çV)ÜSÈÛi,¡ïÞ§ïR¸¥½»FǪ½P.è½LÑ€xø¦_[ÎXVˆÇóôQ ¯ TPÿõvƒ ù -eÊ,’pþÚƒrh“ú¸“uñ„Œ`+l{÷eQ÷Ö_@f63HßPavÑzUÍ_°ŸÍÆZ«1*ªäǯM+Çbp€†;{ÝªÌ ­Q3èVV;Ø¡¼ÍˆÓ ®O.Ožài,¼88«ÖƒìÆ…gŸ=\=à@"FàúKFøT¡bû˜‘¾VŽl(lg®ÁÚbÒ­Ý!¸èªÕ–ÕË\áýùa4Q1°Ì~ «9âqV¥¸§Ì¥ ’s^kí¢sdŽ›nz‘Á­£ç¤:ÖLžz]Žðªr Š¥¢ªƒvND¾‹MG79$ILiþ&“AØgánl6y‡J FOµò;ð,zÉ´Ñ% -o»¯ß xÈ0˜s‚ÖÈW1FxÏîÔè—ß gþm‘µxVyõµÚÑ"]#z~—§pvòÁ †‘™öØŨ.rB9‰$n¸YC­C1úÄtªd@#÷¨8ÐkN‡Ô‹K° Ó;£ÀêÔ“lFú( ØŒNóŠ¦;àá¥dþ¬Âûí’­üß*¼Š<Ʀ¡•ãÅ„ªsÀ¦9<µG CE`…Vé¢hà½ÉÄ%Q“ÎF¥oP½Äâу$ª½"Ñ33¼÷P9×9ìZs9‡'`ã­ ìrÚWù:N”¥ìÈsÓõÇ”·@fƒ œ^WÝ…&24w©lz æ$Ô2Wï²wÝ…ÆìO9bÿ£å"O¦ŸÊÍWÃ*F]Ý/¦`yªŒQ± ˆÉ”\Q•ÂF*ªÜiTñè^N öd_£M`ƒ¤†S%T³NºK7¯+R™Öì[r¥›üÈYõÅíYqe}¼±Ø ¥‹÷ØY‡Púô -ÎFUE¢ìóþŒðÓKƒÀÕHŒ'²µ>ZQ@ÎIÙàt%£äÿ–œÀ[¨)7Ä&¾ü hÎn ±éY'ÔÛa¶TÃñ'XrÔß™/n_n•JL¡ (–@ -²ç ËК -­µN{KFµßÛð^k›bÞÂnê~í`L¯£]Ûa¤U¡¹Å{üˆvâïLßܺæ¢4“ô1˜$rmAÿîs•ÂÆóònZß*™»=©÷Êsõðo›b@{‘yÖ !CC‹{c.WZ¶ìïæ0n àbp…gsP˜d$-Ñ\ö¯ÎÔ›&L27J»Býóµs/g(ô©xQ,t>[®â8Í“GsŸ:R$9]6&ˆúmy®)iµŠvÉéjÂöW¨‹LÄRB^RBal¿ëx³_ ×Y:²5M§¯ßæîÛ»­µ¨û/j¤…àÅÙ¡!}Þ`”îëD&W€ÈªäÖQX¹$HߧçÌtI¤­¼ ÈÕ.ÙYñ@Øn«r–_ôìnÜ ¾OüãtAN-L n–‹—?_Þ^_…Ûg’µ~žÆ;`°Ðí¨KB‡Þð6eĶÁܯ‘¸ ->”èl¿Qp‘†«¢Ó)À†¶ùµ¥ò/;S' ^¹õ:ätJ±j@êx«³ƒE(0GÊ;κÛQqŽ©Ç”kT'¹ðž;ž ÷ÉDHj‡¢ãsr‚xÜ– -æ.Â>ÚÐÖ¯¯¡Ïk—®ÚlÄ;&–¯#<çÚš°òe)fÑäFz›`·Ç·?¢ãIc@SH&–<ÿ¼’îevn8F‚\ãV±ª3Åóa­A!yy¼ã:ñÓ+žc!£xð–‚bÏMþÖ‰á/f}3ß–›ë˦Çã"G©–­ç'fMsÑÔXWUý}üöµ·¸Yĵ^ €Ô×%jÍÇ!H¾ï‹OHÿÉÍŽ_ù¶‹;臲Îò‘âJ¸v¡²]Ü# -$ÙªÛ'Ch?5™<„Sý»íË°Áñ@“­ ša¬´€-™AcŠ†éloW´M(òr·§#Û`×ÐnY{jÛ`3|lv®`º'Il ýà±!å´ü¡õÓPÂÊì{”¢E¯˜ï=Îpaè^ ØhëOk`·î›ãpøú ­8uyÜ$rò–Ýó•u -f}cqÃ+5Áy~!ýÝ]ÕúøÀìU,­¾t )æi:Hò ¾O…ÄÛ(®_eOéFV¾þqÐ>¬uèàÄ-G:ˆáñÄzƒž…›HZ\%UívØÀ Ðzã^àËBy%€NT⸶3=®Xëà?¼mJ’ø-Ó3„÷iã×H@Üfσýk¸R.ë›õýv'€Çm.'ÍSãÂD»ÌÙlyü7“¢ YõÖC³­Åméµ^¶¯Gu5_G›øµÙ1¦ût/ŒÔ þàÌâð -à4‰±1­nˆ_ûD>}p+æfªg9h$ú¨Å]@ïMù`Ø^Ò¹GKö;5«¤wÇë»äIrqïA¨3fA‚ßYiu¬€ÂÝäÃò½ÑïìÒYréDõö:ÚdR¥Ý “At ë-ª,)âºaª¤ÉºhâÏ9[Ô§uÿSç9K’„ÄTK©aX$äwgÉ“¶Oƒ[âx‹qǃ£yI(–ÿ¼j5L§ªIÀcµ}|hÀ$‘zDâUÏÂw»Y+½ý¬Z:ÎïçÄϤŜ1¿òµlÙeÀÇ`uø@|¬ìÖ܈贚Æ^Ú6î/žyÑû`að¡¦È Š[¯ÎŠ`Ò¾ÌEž£ÂwÁìa ¡zæiòLa„}jÊ°çÉ@û£Šå}ÅxæïW¶™ån‡sŽ˜0n*{¯l?Z©zó‹•Ê‹>¸ç8íp-LÑ&È£ûïK`> `´¨%Â`–¢îÝ¿Ésª?ºvË»Æ^\ü‰*’ÖýQÊá¨Nbf…+Û¼¾Þ„žo" Ù§U ¼zÑógêgÍaäŽu´F Ñ™<ÃXúyݸª¬Ðú*¼Ègöÿ4?X2]Â4¨HšÍ¢›×òš^ÁÐqLeo²œ˜Uíó~ ÷¥’’Ð7>ì)Ƥó™Hnžº¨­A7"é{D†Rj)ÿ×¢Éÿ~áeàíVDJÕ|—ººX}ѧCrŠÈÆTÈAÈè fý˜£’”P};Š"Ó¼KöÓ#ΑT ·F÷ú\çý÷^Ô“ ;™ À|êR D\Ä‚ HuÔ6ÿQÅýИ'Q3Èb;x#¸Ž3óSÌ:ªjbíÛ%¸tJ‘/>Ê¡OÿîœrVÞÂx]°¹¼>)âïŸÁµ]€lù5o¾[ç¡ÐF;,N&¨'i©Š\±NQÁIòHÔÍôÐÀ?T:í@ØFïçNÿ SXÁÝ0±<¬)»hàWÖ½4f¹FD·hÛ.سT)^SÑ-…nw}ý, ˆZN¸EÐCô¯÷ Y ReµzÂÔöð3¼Ò\ -¶ØtíþþYá5`F~_›xÁƒUž|‹'X’µÇ‡„G@UÖ6I \™„çÜö>ü:ÉV_ûÉ>Õ¦9*I0}Óµ\"{Øï3UÚzÆñÉuäFœfÌÙ¤…õPߨÊ)Eˆ8‚üU¥œúw)®ðgŠËqÔ:àdj#¥¹¯ÜˆhqÇ ¥œ¼so -¹@’ -KG7ã"­|QЇæªúå Zòzs|…‚}£ÄLÕ´SŠ¥:€fªÕm¼§ÂA3ïÖðS 2Ä=‘Ö[³d·Ø“üJœ\ܳ­òcìÚ€üù|Ët¾j1ÑÆ›AçrþŠ®ÀÑ®þÌJvÂ,K| ò´…Ï•VÞœ -˜ü›Q„´[ÜÞë¹^9# ‰ •TÏ¿Ì–µ\u˜Ö×Ñaá2ÄSU;·}Çw„–ѧ š‘]*êz24©c÷öÇL4$ñ2ÛF±«ëw<Ø`â¨à7)¬«_ÃÙ 0 IÐóïØZƒ»lf¹˜¯Ý5¾ïà\èítî~V= ʼ&Ü£þâ²3V›ÿÖY‹ãvEæ9cé7xßûXÄ ïçy’ß ´>}žÄ·e½Œ½Ä­ç&ÖÜnðúµe½4{ºçíù…£YÑÓ êë÷ا‹½i£6*Ö¡gC¿Vÿj81aÕÂG­É[°‘ßQU ƒXú×âW'~³7?7ÜKO»   wƒÍ¯6ˆåudsl¦wSÙ+B”¼ÊHÏubÕÖœ»¤ò`à©Z„¤‹Í“e”wOŒ±ò†X ú&¦¬l~3ê—÷ÓÔ¸f¦G±¥‰”k⬈¿ËD¿Dr)»}皶ë!úm[ ʪˆp^êá"ƒeš*EϨ´±]\YW¼\k’sˆBÃ,íIQ ²ÎZì1IàÝ”Q'™oTž´4„a¼` ÐáìV‚öF Œ)¬ëapËL|y ÌÅî6>àu\"$¯(WB¼ÝòòA«&|Ùa§ MÒ+8¶.¢/Ò¸rkõd¬ã)íZ«|*û_?ÿf[;Wä ó£{‡^*Zl3:Syáw{Ý¿åÿ‹õ[8}JëSÆÐwþ¼¨÷dšò«ÿ?ûÈQ‹Ý©ÄÑpžœ…+4 ÑÃá!!÷P—°å³C@Í{Âû:E@’NÔí©øóp2á„þ{²Ž&BÜ‘0%ô–f žrJ ŠLW³Ím_ ¦Áî)uv–Ãñ32²öH¿¿¡Y°~ÕÉCSå“xÏÑŒ]2YÞ7÷å]ÁNÇãŒÀ¸ˆ3*g˜5g›LI§þÊÁîSVZÍWÌ7è1Ÿê™èKÑAØkA£"]†Ny¦mœÊ Ñ0ùþ/;“ü?gþÄWCHº‹êñ%´å4<¶ç¹;sL¦?bSK!À”Ò!‡K0$h±ï4Ñ÷=‰œ±(¬€’ F»¡¦÷¿–V®4©é…çAA-ôL'Pv&Ë Ü„À )GÞ(&ê ¯Œþ9ÙUþA¨“Bv«NŽW[d&¨/QŒY7VÑ£[¤#íð›dèÆ {R`'|½ªtº^+«&y]ו¦µ7€Â‘Ôò`å.˜/Ú|žüÜo¼þÞIÿ¨GeOVNêM.Âßb*#{ËÐŽ¥¬ ôã•ëziÜáj÷yÛ\?‘}í$â]²ä~=ÈRˆ¹;¶5þÔìßþ\ŸÓθbÇ i)bböôþOßL Š¹ÛNß‚SŸ»Ø\å¦rºSk8òT§Kÿò>ÎýbcOטBk-Vðs¾,ibék…£Q(vÓÌ)çb-Ò·ý&ù¼PmzÔé5µAõÚT#Dmcýïý°J³FPߧQ/7¢Y ÑÐØ•¡}¿ã îd¥)H ÔZϬCE{5Üt˜z›€ }ä¶aŠßÕêmâgß±¯Rÿ€§¶·ŸÞØ¿n«R¾O¯ôø×F-^Rnwì3íßywtÖýkÁIÞiþé¾Ï^¯Äv«úÊYì«1Ð[’ü€Ò5ÑìxŸ>œ2 W¯»ÃDÀkÌX×7÷Ò9ëãîá¤ù·“+]MÉ°êì}$5‘Úà)KÄN™¥€:Uĵ‘»Tb;P1à'V4‘`õ¿pNuÁO(#«9™bà°Y¤ŽLþ¥7Ìس!2ÜW9±ê@,ʵÑ30Ð3F:|8U E¹‚vŸYüQ -nׂv›‰AÅ:(îQÕã´ÖƒðÜ*¥1*ÊjS×±Ÿ„‰‡Á¯E?¬Ò0hñ„r¤yI·7¢º<¹éÙU†ü]Ú±MÁ.&:2.z€ª€áJÉÙ8ݾ -¨ä’Çaן-ѱ¾½n]C«†.¾„µÖWŒ*õcšŽedF ¾M^àl$Äõäë`% òÀʨ†k!¹Ù -‹‹ÝXpNoY.em0N‹²ÛÉwˆ¥hƒnÏÔ¨ÔýÒëL箆ðÚŠaA€Mn1ͯŠ -¨èÇu²s8~E¿Ÿ’ý-³8ÝteÄ``œ'`Àû^IÔ=ÉÑTZô¿†\§y^ßAØ{æ±F' ´ Y1«$ðiíR)7!åf’ܤR”Y‡hðƒ¨ôºBIÌzÓ‡´Ü@BfÇ-ˆc"!\8Ž_™¶H¢‘¾¶òЋö]üü¸O}¢çoB9!9¬‚ÔLî«:ƨ-fzÇŠ §€°¸¡G‡tîë‚FH7¶Àûôß“È´§·R ªO(ñT`qâBŒ¯ÒY±jOe_|O•2*fA»¥g -x[`çyZN;#LAýE àbQo' ƒ+øŽå4×À,ÁŒYyÑ4>VYdæX”á†1ŽÅM}Ä«’O˜^D9GrhÚévO ÃâêÁØ!J†QØX¯Ði'mj'Ë+ôLµ*ÜG$cáÙú„Â<%ï:6Xs¡+{4KÒ ‘ø`Fq@üÇæ|”eÁž/&¶¾³°S©ñ$ïب© -—´„è¯ …ãüZøèk.ºdCg{ãu»xÁAS­‘¬Þ[’è)i ÆWWÉÿ ³3Ae€~§]á îí¤—*mŠÎÐgœEÏÙèGe*vÆÛÖ£ÊN| z -æEm¾-e_L”ümªÿªi9wV²Ëþ‡Äùd¨#œÛͧNüP1)å5¢C\<5L€ã¿ønè>l€åÙbb…oê+lÐÿªn¸ñ{µF#ß -Ä“H@Tƒç~–=\eÌ ÍÊÓˆÎû=©4t7×v¨|p³§ EuqŒñ,*JÜ~|Ÿ¤¿7B6™‚ü¯ÊœÊsßÌPý14†*<à{]ÐEÜÎSnè‘J8ª0îXØCMÿ!áí3Éï«‘YÉZlþÙâŸTÌô-‰.ˆN:üAŸ},®·’$‚PãpƒÆJ"9ä•_ Ñ7Ô+e½šÕc­Çá¢Ã{â§{-·ñÞŒ1zeÕ~„*cš=~ë£jVÇá#ļÓДû6>(È«ÜϹ¨}g°U-ÄÓIÄxÎðÝ\¥¶ðð‚¿?ualQÜ»>Ž¶Â2T;á⟽ eÔF(][‰Îr‹áéd–fðÆdõbƒP¹£Z5’.9y 0ÃÌqѶ¨»-“ˆ™Ð cxPq,¸•ÈrK€ÿe'tø ^C‘¸ê–Æ“¸Ÿ‰dÓXªvÞßÁ B…³p”Žsj'eKÂí OüË9x™“[Øxë£0(é5\€×ÔÕì‰à$d 6ãYXè±þPl«Œ*³£êBIÛó—OÛ2ÒÓöë+â#öÁ.‡)4‡*ÂÐäçRÈ F–àtJ§8aú)·þÐa‚ý>k³"#¾Ðâß :Œ»qÛG]PeuõZÍ; *åÁÞ&Þpz¯œûÁÁKK~!€Jž¯Z-¤t’-‰UMÞá|Ë`„êÕ/L¿É.½Âá+Eè3|ÂV;ú· `=cbªÈ6’ˆ3c^6¨×®‘Š¥µæ«ÝÓºŽ€T¶.Ï®Ž‘*?f—ÞšZãJ)ë”â'è¡Gß\/°±t)û€êö¨Xó§‚PºþÁ&HÌju—«™u–)³?šçu‡çj8´¹5k‚’h°Kßd é+WI—"~b¤%}¶4›~µÂS¿i÷H³rÒo5¤j%öèöÀüñWõÒ~ -š[j_©!ž†Ø× j¯YGdÍÕÓ‰< ¾ë{}Ý—ûoŽq ?ºˆj6ï`PBiè†1 ˆm>Ô—=C°ü:Mλ©Ä8â`::w–òí£þ’QtuE_kÈP¥Al‚WðêJ~Ž0ZäõéD{Äæ¸Ñœu[¡2LÀ‡kwË°ïiîãP»ÇP…ÑÍ•Úa\0½pŠ1w7¹è¡ãHÒÐI žNÙ{*ÕF½¨œ‘jîÕ¹Õ‡ÒcÇ/Ó%)[VSô²{–?"1ÞË„É}XM\”û39O¤†výVìÂö½ÖXw[\ßà« Mˆ,K™×/birÓ9‰bÊá\U¼_då=m…xÛ¥{· 8€LD§‡ÐeøÌá±*çBÓ4CB¯¨øyÅDc‡[‹ -ÓK –oÌ“Ì8J°€`Ug€Ýd!rÅPÐW¦t¡uY´˜ú£C0ýdÍ ~†–5_€ûñÖQCÃÂ=µ€;x3¬é6O¹ô«C‡ù¬µ)BÃ>Ýßgùð›ÀÁz·LáHz@³‡¨&(} +Üý&ozE|èdUè€T˜ÿd¤ÁQ@j<+¯L톤%L‚Z(À ´Hj®ûM®ui¾qßjˆ6œÔ˜ù`å;ð÷ˆåOžàA;Š¤éŸO~ú÷Š¼Þh‹g+Q´gÆ®AUŒ.óö .öD´Ï¸}Rb¯q¶Ë¡Eá¾â âß"`šÌqð2îLí?/Ì,NÐóëEìì‡å8Í'ød·(뽃A¤t -aøÙehd%Îä”P ðcñF -ÆejK31¤ê~CÜJ±@JÍðœæ~-hÈ„`ôNWmÓÀ9¥Ã3öbàŒ{ø7E€±þ’‘ ‚og¦tœ |4Ò— rÕRÉen—ܸvu(5m\d'×ψcð7>­ËcPhlVµPiP¹çòH=²~¸¦{f‡¦\RŽO¦_º‚5)Nt ¯tœÒÁk›’<¨A…Ž9½Ì ÜoÃ)­Å™=ÊÇ? ÆÅ KlŸ˜„÷0¨áâ5Z`ÂD— -çÁ¨HÝ21RŒû‚¯{§Î?®)rpÈvÃo¹·o¤Ûx*Oå7Ë~—'ãeK¿àpŠTeÔrÌ­™ëø¸Û³™‹)ÐѦÎ_ùÿˆVËÕŸ;˜„vßTM°è>{ÅdKä¸[ãy/ñˆˆrÕ.Š=-8§Q®ˆ/L}3i<âë -ç¥x<`t­õÐŽÕ!i.|wìè(lúMëz©fêzÝX@’˜‡r!ø´?,_°°eâˆSñÞtmN®MaOè&Bn`0ï¸G·à­:¢ÅŸ%N£omX:e0;ß"©öF&HÓ~!£€BÀl 1¢ÔmÉÀX=õÉ¡ÿ½*ÿeÛH¢$þIûÎb¿õJŠkøÄe}à>œ™Éà'É[°ÆäGXEM·qûuµ(s)•íÝ~Å4»{æ¯ÊÈrß(A™éÆr,y/½4@ˆD }É3–Fs©f~£.Å'r¾¨Y8LøMq‘ªt ßh^” Pº×Ü[g~ôà4Ö›&…2&&ŠØ´Û‡u²j­õò½Ò×®ÊH%èËà;‘¨^¿Î 1Ä©wÚÍŽ1}($e~¾cKìTÇl©ÂŸ¼u9FfÃ'°‚†ÙGA>¢lo¡0èsœþé 1@N+…€ÊoîÇí’5é(뢈C¥Õåb$RãˆM[ƒñ1aø–`ÆHÿBYÂír¨nï$îWh^ž¾WÓꟾÉôÐòqìfês†¹ÉÿÕ6|”á³´J­-ÜBŽš³_‚N‘I7j}q(HeÊeÀìö}¥Ç>± ýåg€ÀÈp{¾£­~;µôwÔmÑ5‹3ƒ_ÒšE-³Ókæ“”áI`bIQÉIªÈp‹2#Ü™çà`tM{=tŠ$5­áΪ<>’?´¬~ô¥²y€ß’97š¢"[j"=ÓÚp ÜU|$¨§#»ú -ªùpe¢¹Ç@.$û¤¶Ú‡\bß~Q'¡qºÏ­9'_S¤kS3j¦SˆPNzpYh/;$à%~øÁ%¨BFÚ<Äà/t¶ný!!„ šk”ñÛ -ÀA¶Ó ×'<(b®7Š²î½ÿR— ‡+&—Út¡L ¦‚T2 L nª2Äúô^lhIÝ% DÊÂfÚa®×SÔrÓGò|ÓÍÚr qÀD.³TLcßç RZCC‘ç™ÛÎò7íL‘à %¥Ö]\Ctùر°<óˆÄ-}Õy×7Œ^0D µº]IXC|×ã¨gø²4ùsƒisèÛ8„e} -^¤àe‹"sÜôË:~3ÐÙ¨›„Â#j°rM ¦ûàG«Höò‰¥‘_䶇ëèÕRtì -$âE’ÍɧÏÛ¨+ ‡%ù‘Y×p¢” AQ~W¥¦(†EqܽoTÚ‰ìºB•I¯…â½;ž½V3\míÖðG¼ƒ÷íf¼•\¸à*´e½U‚¾²ö]Þ³¬~µ;Æõnb9X?Ù÷B -„!±ª±«Ìh’…¦ÇòO×ǬèÑ?ꙕ¸¬—"ÚÈ8ÎËÕ«M’Y·H9GöR§Éê.ô€Ýpò®ðe >Ý5¥´<& ¢¹ãxUê-~ÌÞ¤cv…ÐZäÇú†Y¦¤L³QŸÁõÌHGìt¥VUBlÿÀÜ2 ·ˆiUlu¡La"—ÃŽ«Y`ªÓ{E{s‰³äîŠ ù2Ú±„)‰ŽMJÁŠèº9 Šª!Æò ñ%xx[…&éLPЖ‡Ôõ<¹3”›…>måA¿¤ŽÉCã†iŽÒ–ìým¹¥¯~—ÌÄ}öß?K!†q3©WF…`›<0±ÆYèœò8f/ßa楮}~}^ÆQEM`V»bs­Ø_+;Pá¯ÕÖ†ë³+†½êòsÅUBÍͱž$ÏÛÞIfœºŽµÖ¸ØF6¤ý‰ Ê/43à’‘5zXe«íÏHe]öÑÊŠS£c}ôzÇ˨¹ë¢pÜôaqëõºì'ÞÜ׎ SÃÅÀ.Ù|Iq+úÙ`½ÖÛÇ-,‹äOú:*€ö"EØÉ:•ÙªŸb·s_0å~m«×Èu^sål=Á*³ÇÒÿà*Ùko KQKr&Ahâ‘V -Z`tÛ:ÍK"fy¡Ón5×-i7±$&m¼È7©Öfþ`d‡\ë5tRfán¶S‰ÑxÏÍ1`z×Ðe·0êI|ï˜Y‰\ÛÿuþU0óâ‚[FÌúݲšÚOVƒµ´-™t¢ß•g8í‹ó°æ–Âã†Mì‡8fS=„±1©ZÛ\ž`‘.@u4¾àìð¶ímòØ~ØÇP¾ÌXÆú! -ø±Ã•iA;_ n{ûbÏú„lÕÑ¥, 9†a(ÏT*Q{€R¢xqë«I±å’¤‡þäƒ.†Y¶£¦áØú+|þÉÑZD|rl槚%ü)aÎ2 -ø(”Ì¡MÜ7¢ð¨Ì†¿hcPW2U©Ìã„ÄPÌ ÉdøýYÝ)ÀŸ1¦Ç¥î¯ðz5/Þ4§ÀZþ̇8ï'ãÿüº HcÄ*Aè űµ–âX¥g…úw^½º¾Œx«z›bòvÖñ(=6ûJ°ÀÎ'Û¢nÉŸvLÏã)e›shì\Mè5§8uí<ØÖ©Æ 3LÓÅ Áš';aœLG´íØ—Žz3®\7¬¡|˜J'š‡C¸NåÕLݘ®|]´ Î’6æb– œxA€˜ÿçâ‘þÙ‹,÷ƒxÀÜ«êÂ¥ê!Æ÷·n±úC>™Ïm-7=™E=€ßÕ†ßÏÎFãëÙò™£TÜ»‹"¸±Ø»ÓVÓ@"ƒÎë“ ×U¸lp캓Žû_-™¸7.$ü¼öÈ4´Œ§ÜÜ¥Ý ¬PÊ9Xo(¹Ò¥*Ê…s'e¬òG¼ÿÄ¿¤ß]÷)_eˬřÕ “ROÓd)å -k„Ó‹ _}*^!ô˜)íETÄ,èÿcÐH‘(Ðô\Éx™·R/¹Ûo?˜ËÄæ‘õã!$áÇ(ô ì`.HÙ´ u¶œñÃî;tR#‘í)>0A?–¾$à‡,†ñ>äÁŠrýW¦?¿¾âÚºÝ9›égÙàtz%‡Ÿ`,º+ ìºÁcîÖu cfØŸ«ï8»­Qf†‡Ǿ¹ÑûÀëp*2÷‡Ç™\pËÊ*f;E‚ï±DMò8Ûêö¦œ6”†·.‚;=Öóà¼ÝS¹-²öt.†[N[!.d ã:Í°óü|Xš§TóÍcê÷NéËÓ_\¸VŽ›Ü‰µÄ"EÉIÔåÿë*º+àËü“{ HËG+9¯¸|‰b®ohÁs‰Oùv¿ŽO ¨ÀŽ”«ñ:û—™’»Ý ¯·- Öá Ó/äm$O•áê‡D6R‡ pÄÁ!_¦âÑó«ÓvôÒ‰¢Ÿ™°´ŸG(št‹P+î'¯¶¥SÜŒ) ±W.Áà$¹Ovä5.‹žëÈaöÑ¿¾ïòÜ3³_—üH[Ûñ£Á[§B›'Åù,A7{X(_etWÎEô>"‚›°àŒýíuœ3¯-£4qqØú·Ýçôaó™×wkëÑdkJrèÚ.k7ѱj»£Z†Ø2&yc 6ä :ЛÛ -3[~t½ë9ï>VÇ"øDf㽉ßB>4b×`0Àº §xÿ Þ¯xY°ÊGT1s‹:Öb­Ýì -¨{v4p~ø´Ç 'ÙÇAŒ¥½È¦o@°Ù&ö^–/ LåÈé4 Ô'ï[fÔ2+’_høÊÍ<½§º6iû…A«Ž!‹Ó§#É} Oˆ¤@Û."ˆÈp2`ˆ«¬NÏþ/õ©.4¶Hø ¸ÍT8„…L­m"»‡·cëbÚ¶g °k¿-Ô ü1¡³kÖYKL¶ãT}¦×û%'ós D÷ä5/tRhJa^Áyi¼Ýë]{ý:í¿§§ÌÑð!Û«ç°{¦ô~HNÄà‹Ü«ePJÀ%íÓ¥3Ù¡ÚŒõÜýð“â™hÛ³!ÃOcÏææ&?‹ûÝÔ&^Ë\2 p‹y8L¥[es#æ¹i9L#0SýyÐ6lS)QÛøÏÓe~_NTM±»EöØçàL?_ô³]›Å§0•èŒ Ùx=Yq%!÷³dîqa5¢D.®'ÒD=GÒæS…ÃTÌtEÕ­R£Ñœ,ç@Yäq­u×äaAóâ¾ö y:éÜᬠˆí]7óñßärð²FÄ…BDz!š3œFü'~Éê£ 0ä¬HÙ Ó²ß²Ê ¯SÛ*´ÉÁ›r$ªÃÆÈ”¹ZÂýn¦®¹G„½u£¸±ÆôCï‹Â`kÓ: g¼:K©Cá&SjÙ|Þi4o ‡I÷P˜Ch]©Þ„10ßs­:Ÿ‡¡cØS_W·¿O…ûÊÅ×SOÁêÄÇÁÿAH}Ð`è_È#›u$ófÓÕ wE’¥´ßå“ü+Ùbø”vÕ¿Öɦ|éJØÐÓ6&Å^zWA(Ó¦sUÊLÉÎ ÞB“ç«·RX)V4F`å‰lÑö@*ï,W‰õÇ^z\Æhã2¯®½*ÓP±:NÐxD”HöšÃ³À{V[7œqä3)níNó˜óGD;XÎÜxëØØücÆb”-Ú¯éá` –7Ù¶*¨)ŸGÔĶsmگذÙn¾SŠ@p—õb2ò¤äO±)Dÿ"\iNÕ΀aðyÖƒòŸôM»y}u%½Š³“ÊQ|!̺Óåhw€ˆìÖí§«ÂUî 7ÅÙîº$—6ƨž‘ÈâQöÜèEÌseýTÊ :¡3B‹Ó‘ùÃC%½†¤‰‹™¦&fV­=×’Æ°óÔX¥PHþ¾˜i p—„¶¼ñ`A\Ï—] ~ì.ͼ*(Þ( 7ô©½K»«‹¨iâg¤1º”š1¦™Ê¿çRl=AÎàªÑÆâ[Ÿ8Žý)ñ‘}Xâ¯Ê‚KæãþÚ$‚÷iî@ü=0Y붙ÓÇ¥­%^{‚¢ñß½Á]À¨;Á9KzÉAN}Ô‘\é("©ƒî£Öšn×/þLu0@ñ¼¶_èHص­Õ„4ÎK!Yäç¶çO.Ï@¹ÂeËÕN ѯåïlRUÉwß-€r'Ô[½94)lÍÐ@ÙEÞáãq'ó/ÿéCwªuˆ3Z’šèXÓ—ûSœæÒWs›eõ)k´WJDAJ·£Á®¶jžÇywOÐBÅ`¬ƒÒÒºx/Ĥ@ÛÈþ+ÂDÁdC\â“ÙÄ‚,ž?7– Á¹8+Á<[Ìv4æÅd‘¸ì ³I« 0ú¸}íe©V·ÞÒþE“Š?¶( e^’(‰À‘A-ÅÈÎc”‘ÒHu §7Ãù]´ekáµ½¨™ø«Vª=Ã>†9d„Cñ]kO¥Âα³Äo±ûøº¢¢M ~ÒŸzŒàˆùY‰YÑQÀÓëÏ.Ü-ŠZѺwt_ „–qm®7«‚b¾_î. k΄.TÁçꦈnrÎ>ÛJ€Wü.o ¯‘“ƒ”ѵûðMç‘<ÒÇѬ+êqeÜñl­Ðã¦ý8@¼µ³SÃAÔ””:‚ñ‘ðÔ+"9м¿îjY¹³!¾Bïåä³Þà<Ü?ᔇ6Ï9¯^Îã¸0žq¦›fžÁ''€Ž¿3&‰îW5 -EÏß© k¡íˆk©OÙ†ðêŸ:icÈ@‘s9W©ãO±XôJ!tëÇ–y/Þ€­Yw‹Ü£í^$3(^Ëé p‘I7«J¤)ôÑbrÝÌ_X×åc²gc'ì!-†èÙ}„¯oÝýTrUøÔ¦YêõfÈÕÒ…¡c$±vƒÎ# *Ø ]›ùÈ/NaEŒôî8æÎT×Û‰¥GSlú GtÉ^ãË*ËêÔö fŽï‚Xÿäô®@CˆÌÂϲxR&û4*ä÷2†ô¤çÚ°ícÒøïS¶èMjƒKf©ºÍÒà `ù6×&›¦päE—:*þ ¿Ëìk? -€ -ªiæ_w„`ß‚•…•b‹Î Á˜,àíƒW³(I–¤Ëé³Sûa†g ;à»háÞ£dJKù¯_%Ša ªç€‡f’Gì¥ÊF®oÍ8Š×¶ƒRÊÌ¢×ú’«ÁE)yVå5­Å²šš#®ç¹cÖOO³[·¨í; C‹µ´'r1ÜG—üúŒ(A©heý%L}Š×o$GQXhûrIoÈmº3]ÁÑ÷ t=!ÅS¡Ó´æ¥pô_h2ëŠy\Ë‘º j!Š>«u˜<ŠÊÿ'÷ßúÚª”¢3j½qÆôë`VeH§È^¸T<©ËÛEó™X†#"DmŽ¢$“<¶œRö½4-°M÷öõÕ+`Ï«¢,G}Û!m?¹‰þçÀB9ÿ/CxHœÈ_®Ršì~PA‰1]à!ŸãÓðg¥4JQƒq«ƒíiã/_ Eȇõ@µÞë.K# „iœ±ú#ÚÁ³5ìÕÛØ/I§îªtý|¿ƒ·ZºµÉÞóD›éÃ2Žºì@¬‘‡ÊPž£ÒIѦíÀ oøÓ·1Z¸ûC^m6À('ÀÓ‰AeñäÆ@QiYFS¼Ä`»ª/cLJó><º0<ôĉ–Þ±¢yä ífi_Çö#{™ïUŠ’gþäÛÜ×¢«ºÜü£¨ Ð+ñ^Þ«9tÊ]Ž7 &~ÄK{A•2n—'L²rö,Ÿ/5_°ƒN‚ãnš"ÑL7ªž¬ÿÙÑã^d¢w¤wF§ìcÓB¹F YŸÔ* Ñ±§‚crJ.Ežó›<ûÙ‹J¤qÕms½µ¡Þ:»TMFËâp_€¸¹A|ÉÌa7+°&—½¤ G÷ƒúÂm¸Ètʃ후æšÁößÞ`ÞÓ)— bꉔÜùü\RkˆÅ®ÿ—ò)âr$ë‘ð±ní’;=88ZG@bŒ%솥ñ½X;á;Ûé9Čڋk?GK17 t2ÛsSî®ññßý4ø[Ó¦C5 -åTE‡U…5ÂWsBy+_p=ô–$%m¸7Y#_ôÃ,<)‡"á ˜vI:4q©{‡ÑDÔ$!FÝ B£~ÆP|Å'rµKXZ‰¥…*lÚ%Mw}-R[%Œ[ˆþÓ†‹µéI´iMõxa>ñÅcñW'\Ò¨F¢yBש«g„…õUíדHÍÁª @ŠÙt²fô,ר·ãŽø{èÚÜP -@å*Ù{Âè°S–»ÝÞ\£ÍÉ:›>%É‹r8Ÿýª¡-@BÁØšà–õðºVA—ª)M™éB·§ª‹q$óµ=I؆îäm•åFCÈ,b§ÈnIcq<»·üÝzezê–…Á`â%Q¡]®—Y°›–¼ÎæÐ@ƒ.ÃÝÓy1ß8êH>süa¾\õ]`ï±¼÷Î.ÆG<6JÌþâÏê3á±#Êê˜ì-¬¸[¢9ô™e„Qäg‹ ªÅ……i ÎYàã6?³žÌhÒ™¦¡uš«Q_σQtIe¬ëù-£ï ¢R5¯J«3®Ö[ßFu§T]î4yntçƵê¹ñ Ãl‘·wÈxA¼ˆ‘š Ôh•ÎÕ‡õ—#5xØy bƒž¿ÍµØ±Úª13wrŽÑ–pü «Þ\ÏÅf8ÄüÆHþÁ(5þä'ØÙñ`Ÿ"å`\ïN¿&(¬Ñ\&'É"6d1´Œ@ÄÓýMKÔÀ²{]hûÊðäÒÛ®ô@݉ª‚¯…vŽdX»9Öïž~p’ ¥g8\?±'#ªÅî,"Tõ¦OØÅ‹ñ*£¤¦ØÛ;~+H|ÆUlkdƒŒ¼´#§Wú9ÇáËÛ*E 0<¡ìí_ë':dólè£#æa¼-uâº5]pŒ@3¦EƒÐr`_»_€µO¹ …œAºÒo4R^£=y%' ñ’:Ôð -=õµ‰¼!†÷h¤t%x¤ œµ¿CÓ qùP¤Yä ´ÕÔµ2áqœ²zRUÓh?v0ÃúøJƒM£Q¡odÕ^Ø zœ\˜’”ÖÃøƒó7aïH’·Q6¹jf$öl×~õ‰½çøC»ÂÆ¿ÃÍ  ?jë\š8+‚«\Gmà…¼5ÂEžVϳ¾#a4É*¼|ÓŸIldÈ›T]¡T¤jbíüÐ\¿ÿ@yÜ”êífl=βzÍU”±(„VÉ_½Ÿ>ï“”Y -z¤Ç¹ÿppÖÓŽòlÚ¸4 -(Ù]4/G:uUB£‰ê‡Xö— ݇öDýüu4¬ÔN͈ž -owêòÅ^‰'Ø‚ØEI -Seè›9÷Ÿ;Øu¿òjÆ2ØØûý „ tðÔD5Ú‹~$¬eµ‹—aú@Ç>–w±Q#ƒI™èXÇÕd¶êCδ“Y¬É…N E[¸ëáªm"XÊrWÌ×ÃEœ21fCÔ”p]¯±ÁXé{‹´8Ü´ƒéü†:~] ’nÞEÝ{ç½”0gÒ*rëm3·rè¨ Gå½ÄuôûäÝÔ«Kú|N Z¡¼'„à“•\o¶ßŸ¥3êAµ:™ÿ®žûµC{¾ ½º’å@œapæO>*J{Õï8Ãï)’Œ¿½â lc¤ËðÈV*Ÿ<àÆò$€ü @_#[$FÒµg«§$-­®eàýZ""ã Zųpª#úñI…b ‰%íäe¼â;œã¯—$' n¥=’“|b΢£gȲmßLä90ŸŽ*šúSË9¥‹!,ÒÇïJ­ÏQœýìóŽFéž‚´e¸Î.%=ì…Í!=YS·½-uäèÒrÐ6î›U&E¸=›ÊYIã ÿ”GzYETà1ü8dQ5ÆÕD€¢s\hÂÉ"fñuͯið¡@|í«ÃWéÍŠÙ–h¿&ä ]TR,ð çœÍŸÍ®—çÎÜ aD–þYwOœ¹TR¢¦)/ÖøÈxö¥öœžJÞ<±ÅP9sŸÐ›X@;aX¨åEeÏC¡«Î€0Ei…-¿9B»yTñŠÞº¡’tf„§˜´Z( °()»òB‰Ö«‹É¼ˆ1k|µÊCw9ñDj7J—Šàòií;Ñ·Ãv’ú)“‘,UQú`¢P°J5¶Øj¡#: ÐS>BƒpPܺËíñ!‚½HÄ%¹x߃“tðß30„@}S\>Áeý‰©k)•­ ÉX»¶{2±I!8ªî‰RÞ5—nϺxgHu+"S2½dÆ{z̲¨­MêX‚ƒê?!#©u•¦­£ŸñÍ6ur±rw1”®«ã}f;úß 6¦\ÖÄÔ±8Ì u+ªðá°i-#9 ób×èÖcZösWÐ=QR¢=`QUÞ‘œI;CÁgj®¿rVÔE.Æõõ›Kµ•¾2P“'ÚÙ0_<ÎÞ}o¹i³l^ :,¸‡ÑšQ¡çú‰µ¥ŸÜy.eèÖDÚüB wÈmí~åe‘ýx¾Å'ÂI©ý6¦yŒÐUR4 -5¬¨–.­¦]¿ ë©К4ž¸¸FóÄ5¼³ ©)sJô¤G)¬zÈd WEò§º}ÃÙ`Yp±Ò±8)î5ë=3"æl¬KvÎ8hÑdÆ üÿâ¾Å¢oèȇ(0Ôù}Æé‹’ïT?ßë­|e©ƒ§] ÉP7ÆÚ¶vökïáÞ´½Èmô9½ñä/9öF¦щ=R‚ZÓÏ7HcqRžrëò§…„€$”Al³… -£ÚzCD(]p©ùõ -qxìÞàŠ¨ -3Ê+RÚÆÔHäÇ¥ -*õüE1R²z"þ²~hl ºÑ£°EÉȤ]8ðô´âEäö³€È¶ŸJô)DÖ~3XQ ÍŒÁ§N/BòÒ¹žAjÖTç{4_ µ€ˆzM|1V)½4¸)ÔO`id>wöȉHÆ~þÛ¿ ¡0‘z"50Ìt‹õ6jTrSvúíŸÔ³¤9a8¸ÜªõÓ#ßtñû½ýPtÜŒÜ/³kec†ö{6Ñ¥Óy¢³Õ: ÛÑÏ ¿Š†>ÁÅê¬^½ÖYý¯7‰3›] þ§™¡=ƒq|¯£»3ZÈ7ÿ ‹¡SÞuA¨5Íßìæ–7‚‡5ß5 %9\AŽø œé -öw«Ž^Ÿú—ÀºÜÁéNs×5)¤âKU¢‹z%ƒeªxÚ@Õ>û`#0 9eq´Ôø‚è1Ìê`Øè‚éþ¨¨~fÒŽã¿úÛ§÷WaÏ€¸IÂ÷cÇSýƒŒåá -µóÞFêóR9”Õ}ªî9òÔQ3¶˜¶0üþv5Èk IâFw#"∬Ç-à)ö®ùÅáÉj0ºX™Û&" YÌï.1…³E挰L¬œ“Ñ^gÊ÷ƒI°h±ÜM·<ÈDÄâ ûiìÜy)kâMÁMZB›b¹~MÐc‡J"þ&GĬ)U·Ñƒ>„ÉF2y"ÖÙ†…pÑ]ÏëvÅ}ùECÅç(¥ -¡ &æé•êïF 1DÂW¨Ø í~VÚ¦1D`â‰Ðïc½i÷½@O´¬¤ÜèNÆx¾˜'Á4¿9K”Ǫ&©b;gãÿÌB¥[?¹ªNBO¥mCŸ?æ½DÈœ-ìhzѳv¼“JB'ÎÖc!›ž§>JÈPàŽô¡2ãš·¶ÐnƼ£y½œUôùx¯‘6ÌÞ˜oÆqLø`Š(çºÝ~ö7oµÇÆŸc{±êêT“/QjCPÒ–¼Ù³,0êÖ¤ÍôêFû -R—Ez!oÃp9Cˤ¸z¨Qh& ëñ¯f8®xãL &íÙ—`^$kµŽêlJK¤* 3Ac5¯Êˆ,´qp¿Ru`Àç*Æô^¦3ˆàî7È&´·];C¯<ç¹âï”8ÒÔ+õTªÎšˆîk3éfôí–àœOÝ&&çO€¬Æ¡ý¹<; f$¥Ìv¾a˜ñ½'%…=3º„NÏ4öGöµ÷Š ïqüíÛ¬SýýAá¼¢{¬˜¾R‘~ˆH1æã ®qZû”ì<»H$qLK*´³j.O÷i†$’=ÏMJ©óŠÐzÉ»€Ü΋ -ó“ɘs&¹¯‚þ5î@”W$ÆÍ&ûÎàdc!Sñ -HÀ²˜Ð£w Ž NÂ&Ä’ØûlÉË&⸴™¬8n—m%¦î…ν !­ó@U3‰/…•yöìÐãG@±j}ßüæ58`'Uµ$Í%LØ¡×Ú¾ì:OÅÇËÑõ„|׺7LHLòcŽÃ¾^)8RcªØ0ñû˜kÎ`šÇr@sBòe²îÚÂVcS -¸^È*úἘòS~é¢Ëi0õ¢böòpåó]XUB¬dÎî-2bÚ—^lŸO×r0ƒ€Ä«¡±,áŠ÷°ÕtB¨"¶•.f¿ŸdÂÛà‡ñC¹"Þ£TÊã£Ü½¯\ÄÄé~P‘”\†‡–gW W™ŠÍØ ?V SÛçMÖ.›·wÐUÕÇž‘cœSçù$}š²…²-wÈ‹¹@‚A"rÆ‘ -öpw„®ïÜØc©S´LÓÈL*D:;Q2“Lúá¦Þ³>tµH£½ Ñl&o¶e -Ø£DŒ >ù:òŠ%ĭP ­tz%̪ҮgEª]Qˆç#*cö½Á˜Z³ªcËÈ2C¹!¦p?ë’d®SÃx íx‰^Í2“ -6º -ˆÄïÄ“IHŸ+°Z[fÀWóÙø!±¥1ÅÆ×lÆ»6W––«SF oœ´cL\>iÁ…ªß¢õþûË03ªØ¢ÙTµ©Z▶܀°ölŽ#…""ÁÈS2Ü\”«1¼¶q²ðË?¿y¾ÓÒÂ7îªí} ;£“sXœŸÞ¹-ÝI° ñ(PCσ÷ƒrWñ”k{•:C›þ¥4õo†E«7bò&˜öQ«øµxiÞXJoŽ -pc £àÑxI–#Öe]8»RcÏwž(Í/õiŽ<¨ß89k3›ØËD©LåñÚE¿¡Ø”þCåþ»5ª!ɾxYâjun†¦¬ÒeEUgUµãæJA›âºC«sÑfÕ—g‹(¤nµ&úÿwIÔÊõÛXn1¥7Ý-]¸s=– ×ÓQÏHEz<¨R×4ÓFRoŠ“_íNžû³M£A”n.bœ~7ûÂü>{‡,‘€µ¤â/wº–;;a”j=Êß#;–Öÿ Û -Œæõ?¹Ú¢JÆ4›¦La,Ç‚AÂBéO¦_4‘"Á’«lËÄ=~¡”zªa}M@.™r˹Þ̽´Ü8Yââ5øºÊ—ƒÂÆVRï ï€Å×"u$ªS"Fèж5V}TS·w|+ßÕw|]5ÎÄnä p./ùæK\J|~²4ü¯.ú*AR^ÑO¥W¦oC m,]Ü4s+¨#ò?ûÓSæ…E/¯'¢3,¨÷AÙvœ¡Á}{·§×q܈ ˆ“Ýõ1aU“ä@ÍJ¡Ywfã=ä"sW‰¼ÿȳÈÇOðdMåžDmM5ž´µd]6: ß«Ÿ-¤?¥í¾m -Q µôÎ0¶Á™Ü4àY˜-GóþÝ3¬ô:˜â•BÐAÃöÒÀu˜IŠHHÜ_äôg.eÆørËò/½øÇUÌeÂÓE7t)4;ÒLXK·™{i:þhÍb§84—QÑ nÆ}$©0:x£2’MnªÚY^/° ÚgéKäw[ãÖRg'}sARâ÷ ßø£Qåôª8:9e {5œO"a³‚WìVuPYå}6+u.ï­[ 5Gî¾æ|*.g©PÚFÅ“Qµ%I½w$ÎÉRK‘wçë}3x½á–œ4ûSiy[Á¶ÞÞ.›ZÃË—¨¥5¸¥KÄ6œ™A#ÃÜV»¾š$üTH©z0Ý Üit vœ‹Àá‚8XÆÉO•‘ñÞ?–N^w®áþ77 ciÆ߇n -OË„8kÛ¨‹,™ëu /õÞp»’÷ÿˆX¹gë‘ìó¶kmjz³ÁbËKÙæ(û“áQ*rèÄOXÐ<ú%Š4âèuL{8,7,Ç:»ŽL§ŒüAw{X–,…äXø_ q#oSˆç™£Me¡ž·6…µ…@^9dû˜‚£Ì¶ãr|À§¨d›ÿ¤Õ¹öìRä)ô²k³-N–ír¯ª½%õQæíÙ¹ÞZk‘`v2µÔ¡ýTlAÝ2­d-†QššBûK¥êPC–œÔSÚáUr. ¸[è[FÔ™kR¯C;pS·žËäŽeŠv—aÁd¯Ì1£Ëð#ÒÀaȾd]íirS(Ê)Jܸ֓Üý–6ê2¥0"VOMÁ-æ5´ü–÷?–ÜÁõKz‡S¢¯ÐS{)&ÊôäWu¥µš)|%¼ÀjÙ1d]–ì#¥ [Ž6ÒÂ:K¢GÄ…4ëÎüF‰Ï³f’uF1AWœ8fÄÿŽhõRB{&ÚN?Íâ0¶…Ss‰¦BR·t¨C|&3+‘õå?BœçA4ÆaB¶KÑÜÁ‰¨¿Æ{Gg·!N]’š-Ziù¶AÛ2£Ã(-ÓZ6>¡3E`ò2«Ú(å—I"Y£Úo>O¥”\.)¡³k6ö‹.%ûTa¶JÉõÏÿ@ÿȧ ™ÅdŽS>]ƒ5»‚"vVhD©êA»/ñj—W¢}ù—ZA2º )>°5Ä4¹ß­S´E»‘Ó÷f9¦G f‡:Eyî>¬µüš‚»Åfì%Â[›¥Q2³g³Ó†˜[ªÛpƒ»ªX­µd6.a1%ÓÉÏ?$tºJ(^Ï$ñ2M—/ÓJßy\8=nÉêT€Â ëÃþª‡Œr xyEû‰:ó·ÖtW=^;ÔÍÇ9ÛËÓæ¥ÎÞ^@&{Yw¹Ö’Ó"³³´rf´¡KáäçÆœtw¹ÜèÿŠ'¯ö¦LP;È33jM}„"ú”ø)¡¶báç„AöÑgÄ ~¨›'ª¶Bc(”­j™è#3ÞØjÖ(üZ·—LÓTøÍ81|’M]2¥F5FËòÄR[z ”ñ¦I)ÙK -,fÍ0²GÄ:»4KORŠÖ‹Wô³]¡1NnÌ ¸#ãÛû–ö§<ùnöº·ƒ,a8rhuäØóNàšC«J"ã”عÓrú#tf¤ß®l¤\Rj«—*–WZÃø?ÿF1²Ð -Ì÷î2øO?áV¤…ŠW o· 5kx…ÁõÛ®C…-Ä"bÇm­|˜ß,*PÜœ‰”B>;“ípþxâ󰀊7Þ|ÓMtº­ä© ០Õñ•ÆT“"z²ÊË‹=p‘nZ7üt¸óßçÛlxøz,&ù>Émëê3é,Ý£¬l ÖÄ8Ï˛Ԟ‡ZrK {±?á6Ù’5Üã £TK*‡6j‘ª(ÀÔ>B´Cü½B’_à‹0Ÿò×ßû1ÍÁÏ5o`òBî! äx:mí•U ïFÔ>t„ -ôiÃÁe~xž,”„¦ë 2¼ç÷«!`z@r -endstream -endobj -1945 0 obj -======= % 1933 0 obj << /D [1929 0 R /XYZ 99.895 643.15 null] @@ -44636,183 +26950,13 @@ endobj /D [1929 0 R /XYZ 99.895 266.119 null] >> % 779 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1929 0 R /XYZ 99.895 223.543 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMR6 003.002 -%%Title: CMR6 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR6. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMR6 known{/CMR6 findfont dup/UniqueID known{dup -/UniqueID get 5000789 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /UJRPBG+CMR6 def -/FontBBox {-20 -250 1193 750 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR6.) readonly def -/FullName (CMR6) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 53 /five put -dup 52 /four put -dup 49 /one put -dup 51 /three put -dup 50 /two put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ßrÌ—Õ½Íám”1lè(zåNRøréò^&%Ï:(/I‹ŒßºH’m§!’4ðÜJßxIò7¹bs,O’iÿOl7²¬Ó¦!æbî^ëßæÑ´Î-êE>3§t;GŒ<å;lñ:à ø¥OS•¢áS*O?Ã9¼ ÏßÙáà—ô°ŸøŒÑ-þ‡û©øw yg8LsYtÖ¸E” qH°p0¤>ˇÇå -è,qàêÛŠ¹”q°† ¬mZD]7ʺ¹Ok-G_Ý\âSË°yGœõLžôý”š†N8úg›ì2Q}:éäæ|úC/ÿ  Ÿ´ÌûÔÉ‘l Ñ“ÄCðÝ2`À€ŽLu3ÍÝà»DÎ*ÕCÇ©5½Ñ™åsÔÑLƒUkmH« FqÛTfÊZ$èôð­Ò|™Üæ¸2ÌxlÚ®O‡u×x¾’gGè/|:ì&Nnð$JÉEQæïyüçÞƒ4ÿóÔ>©py'ä3˜ƒÿjiÝ.ÛüÓǦXË9~ŠãÎÍb0 uæb;Fª8(PFY|×DS%’y=þ†gn!QZ–‡Ð˜ž°ªOi¨ˆ†öæ­¨H,†ça7`õ–æ_Z<ñgñZ¿ýëÍÍ´ª˜eߟŸÕŸ‚q•ˆ/~j'[E1Ý Éwg,ÈK­€”ôomÖ>M8´;°r© ŠCX¶‡VkgØ-/„¬ôêR@ÒÙ|lñbC/¼Ïz‚°K¡_ª®i,'Ö1ÏQñ™7^“3ºE¹øÓªïì‹9$ÀZòÕdy]ltŽr =ŸššÊ>ŒK€%ÌÒa1½\î(tã.EzW(ˆ#‚MNÌ‘¶6Ú~*×E;Ö¿ÿÐCÆ¢¯a^1÷y5§Ý¿'h¹yf -±sÚ.8Ï°5®ÀciG$5Ëg0ïKTlþpü×@Ù>]ÿfâÙWÒç„Û7QGVë”à¬n¤~ËŸ=]éZ`Œ¢î“†*æ~7 è"ž ÚŒcæØ÷w0¸¡§ŠýU{Yn.Ê_xI¿P ­§Y¦Q]`µ‘©ÆMN!ГõÁáXwé:ðæ³R;†t­šØœ“+]g‘°êZÔÉ…þ ýoswª“èQU)œ·8‹®ÈaŠâA^aÇv>xÆÄËH‚¼_nÊÙ~™‹}ïÿÜ‹StšÊGŠ7¬ ÒK¼7ˆ2¾f­CžØi0Gm1u?‚ƒÕ4‰&–]ëçÚ˜¯dÍÿF€Üpmê¸U¯h¸ Ó²ŸÁ$w¥\¯Jd8+ÀS E=§ÀX‰ÿn·ËV‘%ÓÛ?Ò¯ÖŸGÊ[4ƒŒÃDÏ)ÛíÒ‘}êƒ<µ)ì%pÿD%qrkÑoò„X(&‘¾Ç¶cŠ<^ÔºOƒ;FI¤¡·RC™çKú-fõj¼õî—Üzλ·¡ÑÐÜ œëìühãŒs+à*“U-œ¯ß\Äý(Á=D[d)@üÞ%t€õ–)#¨Ù’‰MÙ—A=ù5N$¨1Q—k­h«æÄ|¯½)ZÈcïÜ×¼‹=}•Ï6À^Ìw¤'euÔfH¯ p!x.ôÀ"s!ùÖS¨pزvNÈ—y8•~ö%šž‡…Ð_ímÔD8Ǹˆré°É³h‹wWu_ÁãÕ6Â[¶’=¶ -ŽVÇ]Y«¸2?%¼ -­ºÅê)Š/KR”¹|e=îÛͪ¡‰b_„ÿ¶0Sè„Ê–5ºŠ…31Ø¿mÉxæ>– Õ˜´Oú°ÀX![ã‚ÙØ Ž`ùÉvfò|}áRú 4"‹~)uív ßE$U«™¾\‹µW;댞ÒK0­ 6»$Ö¥§æ‹­Pk?ÅÍy»yÿˆ4…º<öÝÞðË’q=CG$ ð–¸@dÙÁ±·~óÉA1Q8‚A-|߉b1`z­±j ´–Û¦üZ\¢.Çrï©  ~äÇs¿™"µbê]Ry™™™&rÈD0hLšSÕ)ê¬z6Mæ=â—þ"'¹OOè–þÆQ—k {2+•$Óô}°<×à»’òÊW`ö²ùÔà É1²='ðœ,ÖÝh©ÃòƒkÆÙëCfEœ5úF]ŠÐ‹y–nh|ÌdÐ/(¿~&þçÀP°¥B9µCÿx€Œ9 -ùÞê %á÷,9ŸÏOKìÓíL˜ÜvH,Œ>ÒŽ…ôŒ,6´”"+DƸórhL<]A+6æJÂJµ9çåÛ¿î2÷jQ}b…F¡[êó©zó'p &S½*U´$³Ø–£Ž‚a`RÑI=Õždív”_Ø\ÛW©÷Bàºõ±_½5¶§Ån[™ñß&òUêý¶Xi­ðâ‘N»¯cuοrðvI—]VI¨ß®†\Sîî"IŽ®ævŸs ’qYpœÏP]ÿ5|ÿ|rOÚ‰€ccéB0óKV|× ë†4÷Þ0Cajpâ¦ësÉ8AÆè»—çãÍêµÿ¡Y4-ìÓëL´åç ³Í¯Äði ïÝîFV±{%ÆxE_ ­œ*`ÐLOÃUìó -Ç”K¿­GÊÉs|ªmJ£Â%5ݯ’Ïï¦dAv<jா‚²-Wží:ß,=BYê¬þm¡ªà˜ìe"r5t­®¢€Éíúŧ²ì>,àwÙxI_ õe³s‰·áÌÙx–Rt¢´¥Qe‰¼h;ÿ -[œGf”Ò„(`¡*ùñ/ã¼I²{wð4i˜Oa"ûÿÄï\Ÿà¹%{-ø+¡ú`«8Ýá@;ÃdZ¡ñÈÞxŸóW'àðgA‘à$vÀqÐ%“=@« Py_w§Ð駾€{Š¬¹pÁ6œßÑìþL¢M–ýmM#ý -R -…éY›´¼œ«Ñ$Р쭀ï†ôÆ|¦6¹™|å™ÈGI—·`Äfkqa}@t¸Z&'‘Â=ä3¥„ÔbI§gUž5ƒe€­ÈÆý©A½¯ä },ü§ò)ç:iÆcðhZ:l¿é¯Ò‚ 2W#¨3¬0çërM$­a ÿ Imv›ÐòúOê¾"¨, -ƒ:( %CëºÞï©Mi·@ïÍ\õ[±ô -Üõ‰t•Òà=èUMñn[B_È2–_@nu˜?LÒ,DWUÌþŒÔx¸=u}•#m¶•6ÓxA x^QZû+% ë‰*{ÏŠÕ·r RH [*Yy—º0åiÇ­0abýP7©ÉyÖ¾‰pvk§TÚÌ×TR+%Å7îü²Ü!‰±Úfø´F gGÞàPÀ‹2?S%|¶b%°ãþý—¢ìN&tÆ:>EOÊYJJïJÿ¤’ZŽ“ªéÿBH-!~y¼ÒpÕ̊Ҭ㠄ˆàÖ¯dí z/ê¤úß3¤àj‘¤*À(JP›Å$'¯¤­AäTø¶·˪x"¶Åôb˜4~4]Xպ撾÷˜9®9T<½ÔŸÊ›Kꣅȟ9[I{˜Pú>ƒƒ5Ruc&(îªöÓ0ܪv²ñ Ÿ;ð{é3ýx}»_%.¾bŸeW îª¢2eSxìD‚8£«oì™èá{Û»Àé·èœ}¿wn,WPð ®z›–Œœ;Ö+Rˆt…VÍXñã=Í \Òu¦ºB•ÅíóU(CvÆw?H× jtÿ~DŸ¤xtíúÓƒºúŠEP’[Èx«Ó/²„¡2·‚)®Ñ+à´·™ŸÑʱÉx…Ì4·÷©6IHg°oEÖ'‡¢Øn²bæÄ\l­ÌL’hcëüb/ªK}kêVšþÞD u 6#+Ûé9o¬îÂÍi³(gy5lS‹ñ‡¸û{¾Ç Z½ÎQ‰ Œ·0µdõp‹Wg-Lb¥Ÿp÷ûy\Ûz(gR§6àeïÇÎÀ¬KµþG¦=9U2ݧæჳ¹C°ý¦óÕH âÁopŽr'ùÚFSëÉ+ U½ÉËÜ$ø¶Çκ ¹h;Ù ÐI¡~Ζ¤‚:oDøÈU½­E«ùF¸yo;0Úþ€ð?ÞÛÒÛmPÐ>"Ë#Ç•Æú° ŽT5J!*øåùS@§Mæ7#8&Öì-¦§ù ynúÄ9›Þôù“Ò5·°G„±TÞÕÔÉ„Vô -÷«—í+W±S[Oêm3‘Pmd‰é,«+”S€ÐÁý§ñT졆køyõR<$ ÍäÝ€ á2ÿa&Òö¸ŸØ=¥CÔ öï°áNÎ 97¶#ª²â~ÊÆM‹õõœÜT±À?´Bzò×RÑ͹ ¢Q²z«©×]s‹ªTëðôÓP@P„™ …G-ÇÞ R9M¿€åz­åó€å)3šîM¼ö¥H­žxÂÿV'’¥.(Ós°ú;àË|ß_OTŸÕžXëÒ9`G„ ü$PWÙ¤eYïƒñÛÑ=fE%Ô¤OŽpdD¥ÝmôzÈ©ÖÄ]Ṇ²µÖ¥zÀ‡K”+xIVk -w±:ôôMº mÑ×4ËüªYV¾#¡ù⺸š¹Mü¢ð]¦ø*Ç¢×£9ãˆtù5#rmÚâ'E×eo$Κ¢§•ÝÒ+z8n/=?njѳžÑ(­×ÄË(,š¦O2w é<6¡Fnc 1!åA¹zVÐRúÄI™»êز+TkÀo9®˜Û:ßÉW\ùˆv.y€A5”æÆÂgòf]?j6)ÿÆx›ªyÛ!N5¢‹g,Ó:2‹šˆîF¼%çuÕE`î®íÓBèxw÷(ݯɆš&´^šóÍ‚‚‹N¦õVÏè±Ûž¤ÏAÈB k+&Â@É'Ïј†sƒ†º†_;º™¬·Šqõ(_©ý¸:í¼.Ù:)î‚[Ñ ?bþtÅ.Nð¦|ÀÔPÙmÆ}ÂÀ/ˆu¯à#7A"U«Ã)¶„T\×ZxëH ro}o2ÛXŸÑÄËa/ùvñ½D3kU•ô[ÀÒ×+,뫲ÖÃ,ËO í4%߇$H'üűC/´þ¶‹‘ Œü¢ÁÕ|,¢v=¹ï}醜Cˆªœœy`6YP*¸æô“rÞÀ8%{o4c”1æºOSñB¶!dA6ë­]W%gÀcåT òœÞŸ¶©dÿ>Mˆ2Á¹^NjîÁ[NÕ@• *Zµöæ;#hhÜK7ç#2;¯Cݶ¢‚û±2 wC¯Ž‘"ÓÆ[´yD«JÈ,#Íb‰Z„ˆV*7 xߘKä;ž‹ŽÐ”yËv€•96I)I" $!‘ÄÕ/¨ùµ8¾õo’(P¢yRêÁ´ƒUS£`<ù!{ŠG¦ÐÁe¼+‚ƒæ(C‚³uA°ÂqÐlèTcu[– ø•jÖ=EšñÕŸ2øC4%Ëó´¬°2+drQîºÒ¢/;Á‘ Ú‘ù}C`µ‘©@|ÿ&c„Å¿ï1ûIÈO}º5áî& ‚!v,+MÞñ1êçÀpp‰_㯎ì­0ðiP€þÍ••ïŒ‚¼¬ñ‡¸g¥¾Z1ˆ:€…~æi(’lŒŠã=kq®a¯¬ð.À1äœØÞ':;)ÖÞ]4ð,ë6uxcçLÙA±aƒÙ^!©ôL²‰’" už›â -Éœ~=¥ÏCÐ3„[¾ .18ýÜjIùúTOØQ -Qƒÿž”yÜ(¥E*Àû>¿¬'߇߃5ˆ h „V€—Ý`,èõvr3TŽTÓ{ßÿ½3O¾Ûýï_¶Ž<ë΄ÓDì+ §ÿÞhÞ‰²3Ê‚<áåi.êðwH:°ÓÎ$¼2D(·ý¦=«­î«ÓKo¬k$ȧ¿*;‰NÐÍ“ #WF &©÷#Òû³è4}¢zrZ?ÉÉ#ó#cñõ ñÏ›È åaåæ’Œp÷~‹mšôz‘µìK(²Eeô%†fÙSåwdùv|—J¾ ©e‡“üOoC€ïü,0Qti$Œ}Ö‚"|"gÄO›I® -/±‡<™²EPª*×ß&æzh棷šD¼JˆÝ.öʃcDÇZñâ -„¹ÿZiÎê±÷ß“Åhšû [<TÆe²| „ÚT)Î"Aê½Øá1W*Gà|t Ví\]Ÿ£•¾¥?»MàaˆõøuåÌOu…®9‰Ú äééü«òþè8ÑêL~'jÛöÛ¢îþÆ›>¤pSýV#“Áu:>½f`Ï"_Bon”!wN¾— Ïy/C5£Ïrb?Ú7ûÎ@£?+…V5‹ÕÏëØ®­¡ -BŒ…6ºÊöíoYÃñqÄ^­5”Zp ·r,ÜB’^â:NÅJÀ´˜¥ÿ0ó7Aϊߧr‘Õ§}E4 ÉzA­èÞWrÌä%`ÖHÙpZº÷p=É{ŸoÃ.À{ç#'ªõ³uMèŽT±àòÕÅ[‚góI{ÃdLAN’Æ }beì†/F? A¸]buÖvÉÁ«¤qÝ“[3<Ï4MBT¤pa·àrN½[­0…ßüO€4\Û¤识BoƸÌãšF¬ ¨ýÛð>’Ë'Åd®nx¼N—#i k_AÞ›¶Õ³ƒ°¢s#;¼ÚwÈöÍ‘2¥Ô³LëüÒ˜ÐE‚üD†s ‰†¢ÿ©=Ö±¸ÆU§#Tâ¶{\âÊ! ^CǺnaæ£A2EÈŽ -¼, øt.UÖä½´ÍÈr§&Bըϲ³Ü”'Lû²U -?d1¢t>” -¬}tjìèH´ë# iaÚ‡^œ!¸Ýø[!BQhTÙ1%r<é´Ô¶éšcñNP+îP¥äŽ ê¹x@k}cd¼çp"Ýú/n}ŸïÀ£Ø—I£ ç¾j‹XÏ=謀dA'¼ôTŽ&`妺MÔ]ä¦'–|ãÅg®4¿çó•b -J‘4˜Y´·•ëЄ ]Ž³´1ÜcY#@·zG6ÉKó1&C'èÄ«7¨Pܺ—åtu.¿)O¡“·D-›>`xû€AåóvÚ&ÿlNO5ù%ªew@?–r½,糉#®¢çÓ*Ÿ•gzl>1Ø-Ä–VKŠmz)œcQu%jf3¡>‡Î³Ž?{\£ f> -÷WœÚ®;¯5Ú]ØEÔ‘4*,•?‚B 9• - ÞµCˆÒaô•I¯Üð$°éÙ8]F 6'Æd€ÏXL¬‚k•RüÞRzÖ\°›¼ÖXp_lÇv Ä¡ï·?Én¼?T#ˆGɪªÞuáú\ªì%(N!aD§)¦cÎh1­ÿ¹EÃz``êË•/å&$ŽS }S]¼g¨({ˆjB“nkém*u5'­k -8Í«ÔQøx&,$>„;¡v  YÐÏ<qVp·Ù¯M_¬é¼F|y4ƨ≦cQC%ŠŒ`øܨPòDŒè†{ϼ’¶!àÛ±)«Ã™rùVv^«AÆÆ^º›Ôoh…lÎùQ¡Äı\¼ØC<[¨ÿc•¥´­‰6<¿à^&g€•_šŸø›s4ö¹˜oÔÉ ]_|CýúK -äï’,-ܸ,ôZkËØ -!ç>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /D [1929 0 R /XYZ 99.895 180.966 null] >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMR7 003.002 -%%Title: CMR7 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR7. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMR7 known{/CMR7 findfont dup/UniqueID known{dup -/UniqueID get 5000790 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /GIODUE+CMR7 def -/FontBBox {-27 -250 1122 750 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR7.) readonly def -/FullName (CMR7) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 58 /colon put -dup 53 /five put -dup 52 /four put -dup 49 /one put -dup 51 /three put -dup 50 /two put -dup 48 /zero put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥Þ£Ô\u¦‰3ÜÀ]G~Öâ 7ÚGô–®!†/ Q FM´~Åf/m*¡i‹(ž"!i©ÁŸ -K€5> Å£ü d“,J^«µ…,ðÏ]‚^¢ -zçÒ* òµ+ˆkh©ÓjOwè½Üqì ðk&,“æ_?€™ÌþɈc"“n?ö¦ÎÕWˆ“)ž“–Õ‹ÀΦ kÖ投`íZ­·”Ã/ôS –*Í?•µc|ä”åWÅgo¾‘î‘ýÕÊ®²bÁi8hesø¾°Qiú„ɺ4)F¡‘ùv¸Êöš€P Vîå¨ØÀpik‘¸`jïÕðä`À›µÁE«U)oîêµWð jBNf‹ÁÛÀ¸ƒPÉTŒØº¦Òa_$ïé­ ÉuDd†Ø3ŽQö—BZSfyu4 螨xÂ঺áßÑNù<þŸŒ1ØÒâ¡Xák•7ÓI›¹>%üè}Ó -Ø'ÛåT™ÿ)©~$I%Îÿqà’PI#³-M“ÏèVxkÎÂxÅì@Þ¼ÔÛœZßJ6h€ï­âÚ=hAÚ°ßÎÌ:¿#obÖvºÞ0e¾\ýô¡í¡Å0“ÉèõcP¯Bz{Å¢f=ßø¶d1ŠêÝGš'{Ã1×À@dÎD~yXr¾•D®OZ¨EÉ.ÏÜ=ë“(%^¨½/2VÀ¸)¸¾êÒÅÇä(ßðímïºfºRŽ20`Þ‰·TLmô/öäQŽL’Ê‚ zKØMm±Í¥±¥œðüØ +^é¸ÖvA³¼ -oEËþGxªvìíX·IxAÉóW´Ÿ¤ÈúÕ>xÚCª¿ë5у”ôï!w¡Ó^é“ ùØÄ¥Øv”(ôÑ4,-£‚eÂñ¼Ó»£?/R‰ãì—?ŽD³qeqÁ–«³-¡ ¨xEíî $õܘ¢*3o¼á®˜‚YÔ+0{+N.úýµ€Å>ψˆ'= ·ÇIJûà -f]̇C"spn‚° 2‚1 {3ú=EüÚj®ë4õÔZNÊ2 -¯õK~*wº?þô¤èî#–´ †9ª;ô -´A)šPy 7ˆ}Ü^µmuFîœØÇ2úŠ¡”¬°x~m6Âä«4&GÅ?r¥\|6›¨™ÈL)ew¦‘ÜØB+rÔBcçÛž 3…Áv -›—à!´¬:0{uL -âÐAÛj}{q3W^B©'Ý(ýY¥Èhn0ÖWÄRèSá?uùÚÄ ýì—ZÅ°¶•ˆi‘n´ãÕÊ=Ù½¸Ú Ç˜)ë“{µs¯=èm\‚‚•¿ul^GhNÈØ@ûëà(—s x»ú6“Ù±búM‡'*ê¶'ª¦Å6å?äåën¿A ¹{œž°™,»™1ˆ{›Eöˆì.ÖRxmN4ºkßæ(w›¹l30Mùª¿ŸÛæá\EŠ³r -ÿè´ß™õpýíÍtíyÝ ßoí>ù -{§þa_—¯·SöÀÁª -[D™«.–îtÑI˜EÓ½îË ‰]fÅúçVê®Õ“«Þj7Va_aÉÀóõ"-{#íÓíæ§-ú -ö:çbO—Û[ñ)îH­¼ÔAXÚEë»”Äÿ§÷UgŸÔÓ2zO•q槧q°ƒ£Œ"ž …þrIÉ~ÉÜ$§>sæÞíõ£0°Y@¨ùºÈ¨5ú©è·{I½ŽØ>Ìy炲oÐC´ÝìƒA2=ÀBù?Á"Rˆ° -Ág_É,~¶û÷q.E| noÌÏ—T6;i?XŠbÌ4ƒÝô}t÷ežÀþÔÚÿ·LÏ1~ë&“LdZÍ}ô2†Wó›.ë4§Žƒ.î»^%Í*¥Ð³ËDÙ|ïZ?³í„7„ŽW1ð­ * DñDŸ?P_ÿïtÐo¡ÍóKŠ•LŠ'cªŠõ·õÞ Ü߇ ‹mS>Á-ŒØ#|‘Ž ;Îâ[R1åÚ¢‹•`ô -µ@@o¶Înøhð¼.ÔÅVÖÝF+Ëw3ÝŸ—ä)RX#¸¦ù¢9¥sz4ñX‰"²#bâwL{žc†F€N­áj'›ÆŒ QŠÔ‘t¹öù2×TÚn~î.í«ƒ „¿Ë•|ª_Åð߸þkÏ(­Fÿm -nã8*žüY3ù".g~é3SBج!Í—òÍsÞ8¼ +Îã݆ –•i˜¸ÙéD7¹ÉDü»ù®ó#å¯õÛÀoEûMP0Ó0p©nªÌ‹E\ÄÙ®û+Ø7–Ê_ »Q÷zƒRĉ ÏiDoB’œ=|  n$2bVÛ¾WôïµRðuðš^ì¹]´72#†­¿‡ð¬ -x7å·SE»5°£•OžØÐïUÊ:?o­q ³W\þÊñåŸqŠ¦PßÊt<õhãµÂÇÍáR,v¯7‹Eb‚ÅæºZ5=õ>Ûù—™ðÅÖœø£#»hSRA³ì>2ÄÞƒOÕ?l"qÞ(ÑDêO†‡õukõ4_}ÛÇž#© ¥`N¿ˆú0N«‚»_Cå¬ÙB<â=«gëKO1/úa½!í!‡Ô“(`JË­×9.‡ÇR£Ë¨y1j¦ñln—L³÷`úfùÏ€ª‚­Ö~ͪu»ŠJ±jwDÏ19ðÈK^W7Lÿ(µÒ¿kHè8rÅìC/ŒÇ_…«éÑã! ½„†1gÃg` ·Òbñ¶u– ¶ûâVdoT¹_«E$†§† ÑLZCëbêàÎ)§#uþe£èÝàè*<¢mÅ}ÿ}‰‹<Z´·1¬ôø•]7¶—ãnè…ý•æ¿=6‰öëc~#`­oM`¸Iàä’GCŠcÅàIRÂ(f´ 1?â•é>+YKCZ…%ª”s)pÒÏ÷ÞxðöÿHODR×h„Lû‰Œ‡Ûâ©©? -F,êö@Û·šÇÃl-â%xµWàuçÆLÀT— –ˆ7a Í5 -åÑÈþ‰b=âoøÑŽ¸¨cœ‰aþ -ærPYq¶·ÂfŸØ3Ue¦žQ6j’uî‰!µ ‘¦tåYL,#EêþvƒËÖý¸8?€@Ð<éÿm?©ïÄšâ¸ýÓ¿Yî—À7Õ^U0‡ÇñM`¾ÙX,ÙÉöoz¦š ÛN]†¨þÜûCSð¢pbÖËÓ¿Èÿ\ÈÏ{ˆùÅ2,1ߣT&JRïCu& ý/D#°e¾Î“|Ëû}Jû„éâÓ-o›zOÎYT–C]æiÔÇ/úÆêû K^µ¦‡QaÈCi¡{Œ;ᤩ„`§‡í; -@³WCÝË÷k‰2YHà”G$ëJÙÄõÔ“—Oµ>K+ +FÛó. %KÜí¢ÿ×WÚÚéÞWZ •ucQ¢ûÕRŽ¦çT¤1žµ¤ Ý>ïrèƒö›–튌;FÐGÖ§ñ'ý¾:²Å©£dìX‡Ïn|I¼õ]ͨ£xq/ç1‡üºsi¦N$bp–€Òp· 0µt¦_ã *`O§:5¼ ‰Mìžšã}‘|øåZN»UÇ÷Žë!#ß QÒ½C°–žI¿ -¹~æo÷ |žŠâ$K1nÇ|x9œºˆíÕ9¤áò{aPµbK/fmÑ,0?üf9p¨m8-6zUÎÈgê˜.çGd¢è‹€AJç%4 <ÛÐ~¨lÓÖ_2Ëí”Wµjª»dMOÿäŠåSÛme©Â"Ã½ß Ï=¢mª9“ŠcófÉb|…‡?ß å•¶ -YQ@Àƒ]›õ´P2h¥/×Wë‚)XñvÛ¿“Y -ÉüòÙ+À“;nKœß9¸LÁŒ®*«`º-1 €+±Áò—›ï®jÅÐÌÛHòóWt\Œ÷îÆÐòGÀJƒflìå¾ëA™òfôf>a5DC$©6¹âlg¾ý•¶*4ï/¡*˜ã$M૦þmâd$³“¨$0ŒeæÖl7aaÜü®ˆ (îw3ˆ\é™\XžãAÈ¿›4›`Ì]¯í–|“v†ãƒÚ21¿) žý…Ÿd½6.7FºkCæ/à1ØJ5d›æeœGñ‰úƒq‚®–¹€áv‚TßÀßžNÇÏè|@\½%ƆeC_ì>Ã$Xõ8cBò¸'f{ ¥ŸnŸQ²ZNÆr R³nŸ¦}R½1ÞBz æé™_ÐœŒ×šçÂç-ÓE£õkjæÏëÜmnk"’×5§jö/2Œ~¬ãb‹õE®…9óˆ#ÁF–mYÛ©ç~|NDp­—TT6Z%ñûÐH cüÅtjªòz3ŸœÚ\ *”³/0º¥9R[›Æ¢3ÃÕ/àcé4ÙÖªí‘KÞü¯^³ á3bï%B@$ªMd¶ì$8(ës“‹PÊWc¦Yÿð:2•ÑN&òqÍÜ4˜õ$¡ -¨VYv³ÂÆH¶¹S ‚Gr +?«©6Éä>âs{ð&·®©@ Xz äû²#äxHH+D%ŒvZ~WO?V3Å3N F…Óœ9Р -[" "»µrm¬eœˆ—ë˜Ë{ØÔþ3L7çgœÇ³—¼ëR`QK8±\øðîÚ•€f0hõ ± €<®ÿ8¡… yƒØÆ -9ˆË\¼PßùìD†¹^­Ç1LÞ1Ì„\…$°C¾FbïólMQz.ºËâ¡ðIÛ¯°8¸fv «-ÙÎà%Úž¥OÓBTV’H©ÛY+ÀpJ}S -ßɲmp¾J3†¨ÉY…ýa¢s ݟµ*SQYLºBP_[‚HWBÄQgfæ `ð¾~¨Žì[xÌÛ/ypã -‘v i ¸>›zxÊØÇåuÐËp^ľ@™#uwÐ<4ãb,m*}ªp­Â…N‘{»fô E€ˆ@fN àg¡.`d"ŵƒ¨¬r âåØsrº45ŒS-ÃUÉ_xšàÿ`ÌF#ßå¿{ÎuŠýÉÆDÌ[ðK»íf4¯à²ÂIéIïóº‡xzɯrøfÄéÊb[³Bkˆ£9¤k”¾lª¢ Áô8úU‹¾÷/àW:—šþ‹ÕZ9ºµÿÇä4'`–´†3£ˆ‡íTð+–)0ÓÐê¼ç¿„ -z_,Å{áuC-óÈù4i ü¾¶7Ó˜,g¦_H”§‹ÇÜå9gQrHAÝ8]E6AúÅÁQ¼°sÿif½“*×l©ôI$LIï¯`@ ?d/]åJèTºàg¦óZÛÙY3¹’´Þ.S^+õ -¢ü}KM*×¢úŒGt836ß@Ý<§1ãø®.bJÝX†™`y<®ËŸ«D®t2ïÿ¹XJ“QÜhiËûí1kÆîµÄpŒ Q²ŒTµS¢Óž´ú;çò9Óv¶˜_áýÕè}$qﱡÓ¡L—TÔ@ç-ëpÒ˧а#‚¶ ÚקìÕ—ªØ‡®h»íÌgà@6“vŠw1AmlGh?º®ª›z6º„8N`@ôèUä»X×´>êPn¿Ã¹À÷ôø.›ò}­âùU¹ÐÕoLR° ˜·šWw×þ«…})[N[?—²ƒ¦ô6× ÖÖ$öT˜œ¥•«ÅÈeǵþÍY ÛŸè¹Ãb>ubi&›[©¸•£*Bî^=bˆ0×´úøEq[·Û…Ü㪂uËZrÙŸìªç;†càìm;m`Ò6Áh~ßn·“GžX¾c¥ûsÚçN=íúêq¨²´v{ÇYŠ®+K‚Ö¾Ñ*cbž>˜ñ扶½ÑÆá{ŒÊÀ$y\›k4ïŽà+U7Šé é2|X¸;6y”v+Ì#zcåâì)h´C]z2*¬SI¬ÁˆßA­¸]ÿ„²Ö!ÂÝÀ=[·Xÿ:¬eä¨ÓÃØ⬇Öñnes Å¸S"3hnhP}±ßƒhå7éÚðöK«² :BŒÜ‘xygÞåòä’(“Î2V}žþă—4ÒTó¼nÖ¦y-„v†ÒBö•ÚRéæŒB8zþ¶ãÁë¢òZÀ-)š¶û’‹‡>£Ó›Ò¸¡°xpã¥"½ëóË¢Q‚ãù“ÿ²iýâ&ˆëóªÅ3Yt÷ä -ó…͉EÍWÓ6‹w-ùƒ"¼;º ‹³D!£I‰dh±:|¿E D2¤SòþÓf"•Á¯[윌åø WMÝó@)xóß<ý[åÞýdj-ØÒ3ø„ÉÇ> -ÆÓðk}¯ ‹T‰°Èòiì䪻ñJâºÏ -Æ÷ªç¡³†ñà%<[â«×{ i*y2ü^.ËЀgìÍ«bêÔ‹U:‡^I£í†UCðxmT£?—F,Ùá=¹¿[0ì O•è”R=ìÝwÖô|¥í8O¼<ßÔýbÉÂ%âÏ$c 6aÛ†|ê¨Á™çöCŸ—¢©Ðk¶£§v)«î×°Q¿²Lð,1¿á:lÔæ”F¨9p´™`ºªF/DV׃ø`ÕŽBšÖ,Xyáà 4¦«àŽH//=àg8¬%ÀZ”\ú,j£6‹ÓY,b‡¢ápTÙ`K#{_2®¯$€˜ÆÎÔèèaÁƒVUsc2ûfe1 ~PêsÐϬ_ç–' -Uò,yÁ°¥VÁz½dó¡ŸCÙéÇæXµ(Y»`wç±%ŽoìPr‹A ktˆ›n,D?L'X„Ý#U¤Bô—ä† ÖΡ -¡ÐÜÔªÈÅä‚l‚-ž¿,xu+…¤ù¢÷æªk;ßïøHÚø;w\1šm¹¬m†Di|{5·-ú®‚ï»=i"R#{P !%U¶§±™j=«F2æ.¬c/‡Qâƒbø ‡á¼M É“«àÊ.sФxN8àtÊbøvVþ0¥ÖÁ2+à¨Ø€7k?‡šuË©™x›²Þaz*iD DXû{i}t½3F§i -OΣ§_ØíöûÖº/ä! -endstream -endobj -1949 0 obj -======= % 1928 0 obj << /Font << /F16 582 0 R /F8 585 0 R /F17 776 0 R >> @@ -44919,7 +27063,6 @@ endobj /FontFile 1961 0 R >> % 1964 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /BWDLNI+CMBX12 @@ -44934,159 +27077,7 @@ endobj /CharSet (/A/B/C/D/E/F/G/H/I/K/L/M/N/O/P/Q/R/S/T/U/V/W/a/b/c/d/e/eight/emdash/endash/f/ffi/fi/five/four/g/h/hyphen/i/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 1963 0 R >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMR8 003.002 -%%Title: CMR8 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR8. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMR8 known{/CMR8 findfont dup/UniqueID known{dup -/UniqueID get 5000791 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /HFTEUS+CMR8 def -/FontBBox {-36 -250 1070 750 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR8.) readonly def -/FullName (CMR8) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 66 /B put -dup 71 /G put -dup 73 /I put -dup 76 /L put -dup 78 /N put -dup 79 /O put -dup 80 /P put -dup 84 /T put -dup 88 /X put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 58 /colon put -dup 44 /comma put -dup 100 /d put -dup 101 /e put -dup 56 /eight put -dup 102 /f put -dup 53 /five put -dup 52 /four put -dup 103 /g put -dup 104 /h put -dup 45 /hyphen put -dup 105 /i put -dup 107 /k put -dup 108 /l put -dup 109 /m put -dup 110 /n put -dup 57 /nine put -dup 111 /o put -dup 49 /one put -dup 112 /p put -dup 40 /parenleft put -dup 41 /parenright put -dup 46 /period put -dup 113 /q put -dup 114 /r put -dup 115 /s put -dup 55 /seven put -dup 54 /six put -dup 47 /slash put -dup 116 /t put -dup 51 /three put -dup 50 /two put -dup 117 /u put -dup 118 /v put -dup 119 /w put -dup 120 /x put -dup 121 /y put -dup 48 /zero put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ßrÌ—Õ½Íám”1lè(zåNRøréò^&%Ï:(/I‹ŒßºH’m§!’4ðÜJßxIò7¹bs,O’iÿOl7²_Äógѳ˜½s6;æ•ÂP—€—´¸­}tx´,ÀIvJŠ3ÄYžìÊ«]ò -û=Üí~ª¶™çHârl;H :Ì(x‘P/PÉû”ÿL™òÇÍSøI'sbÞ»£×~—|P¿p•NcO¸®­Aͧõõ±B°VÆãÃ")Th‘¦Ï^Cx–(Rãy•,Às)+Hß‹;ãmÂ*?ç>Hœ½"‡Ì%N»;8'bóÚGZÕÀ“bÇdà ^iì$­¸ðºôiaeö”s ·ÄÞáƒF)l:}ÿ¯3äX -‘ Mvø¨%GNð¾×Å,Ò¦½/~`Љ÷"›ìJO238Úi Œ-]IG‚cä½f7äÔ€¦Ìò2×Í‘Ú£}T þçÆ ©Ã@ó &xß³8h -„Ù{ga´5ßL€ÇÕw'~=O¹ôLcgøPâ±êv‘9±FË›zú%‚ªø„e|ýˆO—/Ób‡¾ØûêêV «K â’^¹¸Ä†8Ô‡»<)M­À…Œ†ã<mߨ;Ìç–‘’­}Od1]ZSÎçmPƒfÍ4°Ôº)˜}M‰›P¦Éèg2вl1gÌâFõÎéšïÞ¢p —V·}òŒ{¶§<[5iJOYª>ÍÕ5XŠZ¾€$ìöÞ15’ï7à~¹èZž©Ú•Ïí¦¤-U…DÁÑm?3δ쩄'ìùˆ¾£¹â¨VÏ+RÙGýpžyDHÏvx{p€cL¢÷1w¼è¾ÝÒĉ ¸FéMNg(SŠâ ‡?Ô)ìº?;¼@MÌ£íBN߬G¾XõDiêo n P®ÙS¼ÂSXÛD[këöŒgÇ[îtœÁÃó±U^?‘ðÊÉÑf2Š¸žËñ7÷ö‰#€xíUèýmºŽ½õ`j¥cÉk´$u:¸RªÙ…ŠiEçUº»Õ¡ÎŸ<ì¼â¶Õ.^Y&±˜Û†oÞ9s>¤ ùËû¾‘ºå -¯8j¾zIÓÛéC—%o»Óü«ŽšOn8òRg#–;D¼–ËžÐ2‘(J+ƒËó|ÙÑÁGœ“§èÕíœëàk9Ú²Öƒóey¢ý¨/È9+,-b3w¹9Wø7}×êÛ íëzÕ᣹¸¥þÍÓ©UyýTpúÀt×û¸Ž‰ñ_ü•24¨ça6Òs¨’‡ç!ÔO› #Ìi׌$Þ³\àAópr$w5”¨\Ëplˆ ˆYn1u¤pd[îËílkÁ!lRìävò€‹4Œ_x…¼è_$V[ïû“HZýž÷K¯ûr\wõ¡¼’u%î_²šF ^ º=£ä‘è•ÔȆC†f½˜%-×Û·¿³R>¼âŠQÎt@ôËÇÄ<¹‡Cr´üàîz£æä“DÑ…˜(öe}¯ê:EÏ?E€…¾õg =óÁÚèbö0"…аqTO]L\€¾ -AÌ›øѬÒÄMÍ“õMŽ•…o«ŸxLº¾‹‰Ò~uÉ]ƒ»_ÑÑÚç 9Ð.ɪ@Ó·š‹Ç/oøÆžI$[¢ÜY,H†Š¥¾ÅIÚ>2šÙ )ë üº©®¿¥´Å~z‹xŒ6¿¦m“…XöFVŠ”öCEOxJ†ú -jFm¦„h)Xɽ¡ÕЇ‹8¶ƒÇ‹Úé–{ãuà ‹…c£*å;¨Ëe?ÚbåßÇlV¬þ|÷Î@¤ÄÑ-¢jëAfâ9µ¾Vübô¡³ 8TûÛd²j4!éV¼º˜äe²õrŠZvÔZ,eV¦Ò†?0 -ZÝíWÅG¤ùvÿÛl´~éîÆÙˆ°[5rL‡}qTðvmjCÖå«bMÄ:gžáíÁÇö ÄVOëiÎæç“Úª­#|Ñym÷-4Í-,Ëñœ f…FöxWú½«½µps¸X!6q-„M'îý¡ÅÚß"1ÇÆ,óºsxɵIS£—›ÄœøVÿ"^íj7å3œEÊvV™™(¢T^îKö-¢k?ŒñÉïšÓ’.á;d{)ÕápBh+4¬èuU *²«èá:úm“¥;<%s‚±!- -¥âÉ8X›Í+p&4öj™ä¶öO^¼1±¥TpvD…^—ÄÄŒšÛ ôx$˜µí+flôäx’‘¡æ7Á¯=â1S6>ðrúM‡z 4àß0]ÿ —£ÍX™…C¦ÞËÜêÁ 2ƺ_sÿ5uD¬^ú'?ãß ýjeqøèÁúõ§ °¼(½ùÓ“ÙQEuf%xÂè(m"B (brqYqu]ΫHgÇÙĤp7 “¢­:±NÙQAd¼í†ÕÕY•ñïQk(|ÐÂ_÷S£/ÈË÷8a“VùÈ%'oÚv"U2Ž!¬ì§kh5Q?ó¡ª)投g&J¡$ÔË,àÇÛjS]&Ê1ìFqÐÌ*Èê*ÛÉXš*Žiªl‡òSfN”—{qZ ¯'@Çàdønl¸{ý"KÄDô¢ÿÅš Ö4tÛTY9šÿX}4heQ lÁ_7@”ZUÄ©¾/¥Acº*ЩAÁ\4;NÓ{´4ÿí¡ü5õ¬äÀL¯ÁÙ=!V5. ¾}rKáû¥q‚äS™*'Rú=ž€:¾ÉtF_}OV-î€ÙýšF‘=ñâŽ;*ZŸ»„ÞÁ ŠGoŒe÷ -EŽ×D,A$ì Ïó˜Ôùêí…C¦ÃÅâÂÚƒI€9Ü: ¯Fω·/%`,m«³ižìæSàâs1—M>lóÍÝæ£úZâÕŸì_tJ«qÇ™ÁJôž¡”kuÈBy²#+ª°©1HìLaëbÊLŽ ”剙šñƒõåÆ Wb°])Q×jfnËphåt­™;Î\ÜŒö8:ê,{ˆ²²=ýJEƒ2[W®Dº{DÅ7Ü»9Áö'J€Þž÷Ðåû#1ôÏ1j—:Ñn+õG¢,×ÅÏ,•ålsþ3¼Ý‚FIÿTHàH…`’öšvœ¾•ë©å=%Ó.aæyK†‰­yMBùn!½Sukyv"5±ÛDz -Ö§Ü'4É÷ß΄Q| &Ö¨ºÈÀÓ·ºRc3k&Ó¼ÙJ   4mÎ ó[ØÀ[“Èh|Î]œ5äßÌ -9J¶È¹ÈõÕÖÓ -0­ÕãŸgòäÁ_ -wná¿{é¼QA·n§©¹Gg“IH–Œ]E ù°ó‘oÅVÿ·å€¼4:(‡Ë\ãT¤Ys<¿³ ¸à–ÃN¹?à -MŸÈ í é'°Ê_¶-šT&mC\vpáøª5¶¯™_ÖI ÿ.uANËÂ4®Ñt@üè¥uš¢æ`YßÔÈ»ÊAÿá€ón£Äqá¬À®GÌï¤7Ï,¬m²ãE§ê¸69>•Óü¨7H†A—Õ½eÑô­{ãЮ ?VÓËN£,pPöT“ÞlΟ fgž;Iþ½ßÁ•?¢"™ÛBÓÖÓDyв LìM> -EÝ,Å4c¦ÖÁ|é -}‘ˆå=úç°¶ÍxbKî2üû^åî^W÷UAV7®xQ~e#îEJÌf/5R2§ j›ÞÇ´Ôn@FÔšI&d|º•+.á;b^†ÉºN¨(S ÚkõšæØ<׊„ƒ ¬€ºš ¬qÑ/·’Þ3?×Æš~¿Ö¤s°ÄS}Vœ7+’ûúóvÏ8ä‡ÝkáÜ©ñ!È¿ŸÊí}x =7Zò}ƒÇœ´éž]c–¦ë!Öj~ª?}&bX¤˜¸q×iE‹3x‘mýÎùûZ6Õ¦Eô7¢³Cå+:K‘Ôꉓ±áùÝ~FdNgª1Gκæ%ö’Íר”µìÛÏÞäÅÛƒ1yâ³Þ嫈Ìw½Clí檬±žÌq1FÁQf 1àÅ»‹•9\•ïê@¼›çÚå(ň¶^ŒšEгý%¸±( fJz‰Ìã^ ›´'•³²ð· R ´2͆a„¼ǃ¢îYÖ†Z¸¡ôýZƒÓÑg…dà U9Ó/ã|¡ôÓVϽT_Ý&$_›¬…=1™ûzÎG×GáxÇè /‰"²¶¦¯F÷õo¨³<,*‘¯ØöÙ#×Yño×:ßa&jCÝȯťuíõK½`ª°ËuÂŽÚÑ /öœuúwaEtž¼ #l!€}‚ó« áýž¹Œü…j؇†œˆ§'*eRhå-.h¨;hM¥oÆجc¯ÏöÅxú(ðiÀŠw ¸ùN̸uâ•Ø öTîõ=¨º6^ V™˜þ¤$²Œð[’fäÎíÖì–ú@[sÖk÷4kJ»ð@/®SOªÏnYJ\"mÈåîz{1¡³”µþœå*ˆJüKîÙ’|(¾¢n¾wCÖ¸ È4É&j_¾½G¬Þ.¯YŽ­üb[ð¹Jæ8§•ð7*"&!€Îάø&$ñ{Gùî¦?`l½ŸÃª)ƒŒ;&|v†MºøÀÞ\öžSSE£Loðkè.ýˆÄÑNž&@`ÒSšŒ9õe£Ëõ´–ñ°†ÈÑÏ‹—¶•cœ›Ýi½ž Çn ôŠ¾¾½î"*õþ¨z(N(žÎÃûª™`îš(»ªÒj–>CŠ—1*CÉš¨ßIbtûr‡jc—Wq¾÷t€?[Ii5ûáþ‡Œ6ß«AÚšIJ‹'{-Al²$h;ïm#­Q¸5dd0u3+ªÖCcªõZÓÑ‹Ô|1¿BÄ];æ¶á  Tˆ°ºÑ}¾‹Ý¼êó{*ôŸ¶!O^É5é ;¦À6ßÆÔÄIË‘Œ™m-Æx@óÓÛÊsÒ[¿2¼‰ ŒNCÙb–˜+£iæ»›¢+ÉŒø«Únu}àŸŒ®ðŒîjl¼””Dµ=É_ž}‰Ù¹Ü*1Š3?â9©Ér5Òð¯“ä\Ê¥±†ÈB¢ÿ‰ß24É"ïF#¤ÞKœ­LÿE*Bém©Üw ¢Ýc,É°h,Ÿ<#f»x%þ+ßL54 •yûé¿R#Ž—óSs¸Ž…+Ðôjª%½ÆÈáÖû×èÃrqåŸJ°¿²‚°ÁäÊ÷å÷Hì—®`ÜS|•õ'a!7[öÖZ&€.BvK9ƒ4{~ͯ'E”läö¦ßÝùB9 6gŠnS&}íÌFL›5r1}Xè»?;ÏHǯßPO*E4%_ÓÍQy‰. +1½ƒðÊ}Þõ;ÍÎ\S˜lKE@¬Ê%ŤQ"ÔäÞóí%VD󩉬‹Žº›†Òæ¹yí!ˆ;0§j`.©·•ê(ù9²Üâüd !§”0;–/[Ä‹ó>#qoâdŽ]O>À=z-)«ÿ«¶dø¦gWl|n€LÕ² ñãFEHÒ›\~l'ÿÒ„’˹áñïÎåuûã6U©e¦ÅüîG®B¾n·ÂKM̉üOûŒšeôüÝž€Ó‘ëÃV?hoR5y„?Ý™v Ä¸Zþ@'´î+Àmy˜5ä@:pžÒÅðéq»U`yÍ -2à¡þ~&@Í´Nt;ƒŒ þø=ΰ ðÚõoëÁ¿Y+ªKÆÛ›ŠFÃÅt…zÄ/·zRk€ù]z,žlÃ93Â&´ ^Ž «ÿyûÄ&¸¬\ -¡‡´v+£vXêºëuC2úI® ì~Ÿôgƒ™’s=ø"(påQ¼§ö "RQÀé§Sq1x‰Ì¦,çé1fɈ[G‚¾]x&Í•kŸ˜º5Eü¨' üzŽFm—ú™]­‰ðÜmTÃ{Ï‚h™1ÄZŠ‘˜(ƯývœtOÀ:¡kТ›4oðÁPÿ~Ô¢ «è±Ÿl;â‹÷ݳÝþË1È`³ôyI@šŠŽ!fð·L†ô§E6£×<ƒÎ+Ýãwœ š/_¥+XNó†VÎLéÀTI?YÈæœuk6Æràg¨ºa”‡ tq=ùçM=¯þ?úuç4~h7ajGÿ©wÖ–†¤Ë£Õ™°ýb8Ø|7éÃèê_•ÄAòǵ2s>@írØkŽ&$nåÔ·n­Ù¿`û‹Ï¼dKDNf… ¯ä60Æ€4#»&6“õ³49ß®ÌÓþõÍàãXG®OUÿS¯Vƒ9©ž'š&FŒ#ðUÏá@VŒô½ÁrùeN)Þt§šÊXªÍÌôž¿{báõæn³ÓÆà”Ì·Û|áC'Obý^ÏJóp$ª·ýâ:ˆ2‹}os£ré†Éeý å¥Ä3ꈺ#R¥÷²ªµ@áÃD eܾª-¦¸Þì°®Ð-#<<\ìü-8Å·©ã‘‰:Ws}±w Ó¦\ˆóé×|¦J¢íÆyª€ßÛ:,xfÉ÷À~X0ôO @¦œ˜ý³xLcfÄ¡ë9Pj'7a¨˜öš3A Öó«}~Pœ]¤©T#ZWðõ™Ào TÈ?2#ƒ”©È[Ï=¤ äU‹N3¿ÊJM‚NäÊSƒÆë‰Ï_•{/,Ó›÷kGííÍZ$ãFë¯G„ÔÅÌß[ÞÃB{SÂ[Þ¬¢VUŒIa'ÉÜJÖïnœƒ˜Ú4´\[ŠpØ÷Tp@ nnÀÏÂÊg?>íÀxÁ!`ò†NH÷«<£xýÈèI¨c‚R -Å3.ùt]cI ƒv€vM”þŠtoÐlñ_—:Rƒ,îxûÍU¯Õû0”Näñ‚d…ÖW\¤xxJ΋§îi-¼ô<ˆSæà—¯ãÊ{XoKcŽ ¥ÄµÓ -½¹[oèTƒ(gv¼ŽÔ¤„ÛJø5â÷Z†Ó¦r\©"ã 2GO¸Dèý´ª ¡|íĹ×ÐqXEEKB µPÚ¥)EµÚ¸È>Ý ‚¨É5×LIõîÊ;ɧ@#c…Ìš¨ÇÃùp 7 9·f%Ó…(ß ¬å@’¯ó¢"_ó‡,•…Ci4œmïûÆJ°úª æÅbhh&Öy‚+©Š\/áÔ^äfÞÍáËP¾²ßñ1'¼kÃÙŽ dý€êìOu¯:”`ïa‚»Y~ˆšC«ì1éz!™®.刊n=À&XË/¡‰ÑxþvðK¨~³Ûâ2‹:pÚÄSs–ø+RJvu$¥ñ÷¤í2Nï3QGçI/ §,Ÿ°â_Y퀖¦°ÁŸ÷`0Þ¬}¸/öÅ›Ž=% (†Àº=*ødœåF#Õ¤r~›â7÷%ŒbŠ¶¦cm¤^qA©È%CîÙDåp'Uá…Ú¤ %Ê;á¦Ðx«®4Å@†±¶‚5a/uëRÁ"ÙaÌaëÐ'ÖhS -¼- ê™r7â-öU¹Ê%e|¹ಠ-$Ös¼Äà­¡¥2Ê7Jf,ñ†dy+r ®¬DÇHÒ‹°¹H$ÅبàbQ8æ®ì§(kú+AæðáFˆÂM­3ÁNïaM;c3èpK]Q' %¹tÔô k™¶>Ô‰¶šØj+=ð"zàÂVœ68šu–ŠfUr!HÆ>pŸ­×¥ð‹òžà(•ç¡ˆþàKý°ÓƾÎ+b¦3ͶÝyA¦Ä3ÃÆ¿4ûwÑe+iáÙ²¢ÛE(lPê! z¤'ßkA÷é9uµÐØÊàr‡G–ù- -ÈA‡ÕBz©c-ãØM3ì׶TqÖÏŒú†”eycˆeW‡EÈÓª{Ÿ’„y=ÞW÷ -- ïx«-0ò-Ú}ÄÒ U±Xl?ãÐíÄepò}z5Rh ?, ÉÔó“UØ ¶õôl¢b ˜ü‡žâÆÊ]Sé6Hc:fšNå-dVNж¢nn­·•AŒVÜî¾­T&é™SKÒ³Ù¬:UFÙAœºw…½æ.ÍÒ@JV…:Ñ|¿cš&Ázuj½&wÿ;þšxÆà¼dâàW“„¯]ß(©}•âŒuΚ¸ø±lè^Äò"XõÕøÃhy„cˆn×·&ƒ_Ò?á¸7¯ÎgÍ -fá€.Œz—qÌè»jÊså¿Ña±Ì,ðfžèXR¶ŠäÎm ZpÍѪPÈtõÍ3C=?:„|õðö,a¸’ÓÃñ»4¼âéáàã˜ÈZý¥3e¸Pàd‡–jëL&pz©…í pul6_Á†âQñ­ðu‰ûˆè"ÓF&küwPP¿OPô‘'·œPs ;¶-a(s6D¨ˆ¼Ù†ÿÂûÅØI¯=º÷½\ }Ó>bÙÝû:ÎTÏ(°Âð‘ÔÊ·«îzÔ zŽ¿ÉXG ’2/?ë2ÔIŠã÷?Iž9‹8¸^õÖçbDiý6Äåã1Ï5ÇÉÐ6Ÿ øv®ê rÄ:ÿºÿÞ}r·±yÅü̹u1„ûÈË¡}Cÿ³QgPLJ¼y -Epó®ê.øSaÇœ°ý,Wí…ðq¡AXŠå\8Üì[oì¯lÎîÝÙ˜î®p*XxÈò¦|'£ÛG&¨ñêºaﱘ7Ôp ÖÊ^ VhmJ¶:ÞŽOPÔ©•×ƒ¼Ñˆ¬²Ù<§–4{YO‘1j¢îlðϵ†Ñ—  7$Z¦u`¦ ü˜|$ ë6¿Uçf8¼þPӛȰ˜Ì}uƾéh™*` .—ƒ¾±AØUŽŠëpagŠÇ;æš.ƒ‚JÒ‰´°áÄ'2ãoÓ<`d¢Ù ÷ÖTL¯€M¢ž¾[Gî-ƒÀ„ Cœ1±TÈy]¨«?5ætø'VÙeƒš•‚zî»|Ù"+ÍUúDmY‹¬‰±v'F ¨Vò6Û‚”L¼?ë0¢ÐßX‹ŸŽ,$ñ8e‚JAMÜûd%wE‡ƒmÝýÙRÿÎÕ|µDnï*è5²y¶á‰èøØVu÷ #½@;Ÿ¼Nû—˜7~^Øòbê` :¤oÃÉ a™&ß^È@ 9þ¦]äý®‚§§«‚]wöD|òÊ5¿)“¬©t-á/ªhŠnüI\â÷U3%Ð$fT‘»_£]ˆãòû⋳"QÆwNHÑ(jw‡—¸òýˆŸø­‹‰âàüà×+ž+i–Ùò"kS»“Hÿñî.-ìT¶Æ²<þJw«±ÿSÖw;oÑÍ!û8ððý"¢ ôWLÂÍýA ?æ¼Àgv«Ô܆·>º/íŽzá{¾WmXÈÁ>oýjSE³ Ö›‡þ´øÃù=ßÇ^F—Ø‚±ÏÙ™‰´É§_^ý.."ÊÒóbëÞ²ôlWQÏG5<,“ªÞ(0î}›§”HÔáT›c´ÓýŒ\/2‚›p¯ ÷DDM©—êpu-oháßîŒæÈÍU¸žá¦½»w P8vnM·©kpËø‘áíÑ[ŠW‘ü<À±¯_õ­$ÁÉ*z««žÕlâÞÙ€_ynw ÔRºÙ;BR^Ú¤ÊËI£ßÈãCëOû"s7 ù{áöD¼~¬Ñ?K±ÆÙ¼yì° žPÕ®“¢D!¨»   5ý×i‚µæ´gj¢“ñŒEý) ->“…ç4ØvŽ}êJúv±“AÏùÓÉFLï¯ï6¹¶Ôï„…µ,Ž˜ßI¹žqIìjº‘è_ucžƒ>õÝŽ¬yôþ]K̬XU±¿±?T?ÙM!^lˆˆ¿ÿé| ­#êÃø¸‡ãu«f¶^ n…t«[1,B—Xž¹¦*Ãã{ùN: KKX•¦­ƒƒzr5”Ò}M›ï¯rƒü¦¡¡¥«€ˆ8¿Ä=Ž£†ßéçqÛÁK½]„Ü$wæÂæt#´¨Æ/Þs>Ý•Q -$ìy -ÕÆrBõ7Å—‡g)!´UŽªm^šŒbKfë¯=³ä éâ-¾”Ž\Ž³òêÓñ°æüç²¥æ'-0ÌGN® RÁtù§÷ ¢è -³?ÁzãÏÔ—™ÊÑŸ:r2'GÂYÆ6zÓJÉÂ5ˆž=$ÇÜ×!Ÿ¶÷á‘pq\ÙUÔo] -(d¾Ô ¹³A ))jV¦;r^Ížð1Dí³!6´­OÝðX³¡i§}gš‚5;[îéílujh®JºAqu[úäºoHzËÃ\seZnSˆ±”$ õ_C+›¨eºž -¢:+.㣙µFºfà%ììA‚üž{R>XÒ0¡O˜4,fÄ´›lÁ„°݉Ñæ lXÅðyåp( Sþ¢² #}¢MþçÕÑ̓1á–G”«ÎÕž‚œ¨!Wx3Õõ¯”¡†„hcÕC³ÐhÈ*Iˆ>jÝy«¨8Nn -5|†ñP·—½9Ø*±ÊOé Q¥¢}IÿžR‹ã8„>ÜÔËÿ Bk®Zt%Õ!MÛ3õåJhåѯȂ‡[u?Ã+‰ÄÓ‚ÓÃÇ´3 É´Ô¤–³žñD†-{ çÛ®ö“:u’‘Š9K‡ <–Êe -Yf ×²ê,ÝævdÏ<ž'PGJ©U±Äwt#-†~ùc²~°²ŸÌ*qëì0Ù ôe†ùÛ ;ªTr¸„Õ½þfa9Ä\Ð_ËÜTI÷xJظ>ÑÑ`d€ax‚ DÓMøÞ]績.,ü¥NQÈöËàÔ ²ØÀœÆ›p™•&ß-Yagh”oç°2´G h'.R©•ãÿçÄûi©ÒûZÁÂ|?\ãôg»{2`’zÒàÁþ!‹éòÒI¥âD³æ £^ø£^d©ó—2e|®Õÿ³Š?ˆåÒä¡`ŒðKì¯hŒZæÖÜêqr0³'˜[Éhi‘¨yWB9¡¹Œñ †ž*É"h D!‹Iœ4Û#ÍšaLÃ,ÄÐÞp¨v{Jî•þ¨¡žÙÎî*ÀàΧRÒDyh66¡.(ƒ-ˆš\Ä!‡ißþCÞ¾Èïä–›1ôL§â“Žs/ñ=K,¿äÒ 5Ô‰;µÕí -ÔÆe;lGÅÛ­ ’.väß!Ò #À½“¹ðdÖÆ";ȬÑãÝm¥Y>¥ÞÁ–½Þ̶%í¸{0-ÑŒƒèŸþcŠEZJjl¼¥ë@>rÆísJ%I>rÿ¶ ·Ú‚3‚î|)¼‡Ï²Ú0ó©º*ÿW«¿=ÛË|_'ÔAYU{s5Ùß}3Yo–SD]™ó…I\cÏ.YÓ#âêreéúàÿNV¢;ÄìCi2_213¥„÷v ¶[ëÁ«‰œbPÑ>ƒ&”¿x*Dêõ°q…Ôj‘¤I…=ñTZ“ ˆ´`5Ö›‹E,`¸Ùd¹ ¬¢§‰„x§E þÔ6Y¢ÂÖØj(>I<“h~óÃ=4–„ Ù~ÁŒdM“Ya_NCØŽÞ°z´µB!„Ak±Ã¶ººòŽð&±y2G·1÷êR³ –õMçˆ -ÍD´7_›í‘n›ýø)>¾Ôê^÷I0üósæ•M‘$)«¶â3¨@nµ§ ÑÔ4þõÂÀ*-­±‡éâÝÞjÌÏaGD´žò°œ·ßf}æDkã¯?ËÞWaú0S [××æ5âœ;¥§ôÇè»iwU.C„-Y™óuÆ -í¡sÅ‘ëáñ¦£ÜÕçnB!Šu!N&öY|Ûœj;©[ýšC„gÛ¼x—K’ÜÙ‰3ø ß`,ó”ª/ŒÃbBÞèñáÏ]Ú¹áLyáE oLTþ)ü«€7ºµ¾T¡áÔ›Öˆu¹ QŽ/¯³CÆåÐ`!$¢´”M;¸¡—BÍÒ[ß̦Õ0/s¡=“v­Ÿ´àJs„‡K™Åì:KSýó4‡ŒÎéÉ]²w®¬Dñþòš \&Mæ\äÍ_;KŒÇIóŸëƒl£]Ûý.P2¬Ñ?YÊVSp80Lß7w¬&ãèYm-G«ÀÔ#_ë¬ðh!Q[X0ÑwÇÔ–%!ø¼P}y9¸NŠ*-ûkü¶wn£5,Øy¢fçô;x"O=Yjn~¿Ñ‰ËAJ˼øTBÓúêÞ§±ð3]'«»x UͶPøð/=Û2Š^Dý gBé+0Žs¾PŽ‹Þ%0¬3ª³7}í°&ÛÊŽ†¹COCa»Iœz`à8É·Ÿƒ…Ä-EYUæ¨Ü¿œšq͘i’Ra/iìÆ+Œ@û‡²IæX c@ì ¥(ò;W$ì -7°/5@XY ýx…á\„YcMmÒ"Á´1ÓÌÑVtê¡ì¾&‰|ª*Ë9û ]cŸiÆæÁ±~þj–:-Àr¤Yiú¾<²sÝFàõYÛ•¬¢ºÍë!Y ô^òï÷&wuOYÔcXxñ1Ûã‹gíŽnÃ9Η~1ú;ŽK†õÍYsb£5$t#JÉJsf<ÏèøtÞ÷]BYàJP~˜Ð_Æü¤GÞü!ûÔ×¼õ¤ÒÞÇ]†¡í´Îsíf>b¡evÖ~ øOÄ Ã©má¥bXب2‡ÖÖ¡Ù:M×&ýéÒ=ª“º›ß¿ã·eØoN0(Ÿ!ɱx¸©jŽú÷šgŠ)¹ÛñMx 1X6åæÔê6ÛfÖQ@Á_m'|·ÓÆ‚øÝQ Óƪb_™v5ssöüÊ}XŠ1º+çÔ³·¤\ÐÜ2rÃç¥MvEB1jûF¿ú|ÿo‰‹µnãÖ&æ:‡N­!ÙäÕ{sÃzE<çsø\àYòOˆ¬œçPãá‡ß%È ‘¥œê§¯[”:Ðô ŽØŽs·™¯bçÃÿ£ ²}ºFî ­“g‘².ÞHSâ|0çÔ³I"Ã9Õ¬è™}÷¦ClL§Ò<„A B}Þðt!™<~Y…õ·)§Ç_…ˆ”¼/L0P+/áù¿õµ´øùl‘ºRóˆ¼=zÇ‚”ø·cW`–ž´ñAêñ„ÖBÛ¶fnÔý<þÁã>—;u{):´ o™TF1ÂEÔºžLYßY…nB\Æy)ÿNÒöh—Á™¹nÍ@0&ÅíU¬Ñ7å P£ñ,$òê{†´„W­G›ñð½ŽÁ¦…0֡תoë˜tÏn å„‘_ŒWA|ÙX ܺ¦ ‚¨©§h^KßX@@;i‡q­;YFA$íÚÊræåÊŽ”ê¥:‡L»"ªéÜÄNxy*!¦h<\ÂâP˜ŠÐ?I×þºyÔQ· l£f‰©;3òϼ”o³}$Åÿ×5ýøõE¾¨Ê“êsfW›‘³âo©Œ3$ÎXïö~‘´Í[8뎋lí• É›á;|g«˜ÕýÑzÒLÕAµ‰Å…$P$2‚-½ÒÈ “FŠ ÅŸ© VáY¼rkzdÁn9¬ŽÇõ\1{µEüñÔÌ)m…7~ªÙëœz Y2çìïÆ´h -1m‡¹O8É ênà#p2ð¹™ -î‰Ïõ¹-`æ BR8÷~»ŒygÙÇ©~øåþ3\Ë^tS ÅØW+ÅN¸Q,ƒ¼\T1`/ -D¯TvJ{J|¨8ÝÄFÜ>¨&ˆâø݃нÑâµ0ÄÎ_ ¡IÈ|²²Œ4¶òqeœï“še" uÙ™(dx›ÈQ|Ç*/ïËÅU*wXÅŒ#¤ t-Ç$O(קÒã"lø<”Û§±‰ýfXì5ý öëì(mnà©Ý¦'i ÒFTU=M"ÖzåŠ>âÓ]P¡|øàÊSƒ®Û`ôz8…ÊÛÚ®×çæÍÃ]éÏDEHº¼s˜õ¨e·¤“«þ+°ÆyrÙdל憟ùKóÝ%šÏ¤íÝÜÛ©Ø ›N Àž¿ãø cÌ›…Î 7Ë!°>V°fšÆ¢¢hà!„HßR=Ð Àcm$m ìN¼z/z É£;ß/S¹æD»äò·VXDPÁ¤·«QŸXÍ~7Ú?DÑÅÄzU*¯ íÎà -¬ÄÅ“ Eñ¶¥a$k’kDÏÒcK+ñ ‚H¨DR–$›:§Û÷ƒÏŸ±çO8ñ{è=Ív¿£êKîW^ÖÔÝöÙ¨Í#U–¼oé9­_OjÕ6ɧ&ut¿OôãÓûzœ,Ÿ\áuzåÈ[E'ú]ÊäìYlr¦ÃnY`QÕ#øGƒ©Öî¯O$åDGÔju‚Þ¦yŒdU¯ÇÆY¹®L9#¨¿´D,Sð¢cT«wƒŒëž„:?(†ù`Ò gÔÜU0uB+˜²]fª« .fß7ßÙà­F0ξ*°1~! ,ûøgHÚ´9æ]3sKX\m¢BxKkƒ®ÐFAô ¥!èAk÷RJnWþ¸¾)o\ŒØ¶Â̬ͽÞtÒÐÉDÌÌ¢eú6ã|xÿm—šÖñC à6ù —ðñv˜ˆ, ¿ñ×Ñ2ššC“ÏÆO—@~ª¶™‚JÏÏ;­ãM7¾ì˧—®D^Êu¶Æß j·¿I6!Á0«G^÷#t—yq܈ŸÅ$æ›|Ae$¸ž¢÷"9¯@vNNzçáÀŠÍÚ6*^–4zw÷Ð?N x°D18o·ÔU_—ú)ÙÉiÉÖôÈBªYsÿ6V¿ržb¤«ÜF­óU϶UÊy70ÈårêÐyjc+ZŽðé;ò`Û‹Ú< ý¤ÆÇÛÉcÚ$¹I b‰R¨Åüçòú™e“g\äšÂŒöñ‚š¦ -wge‰£ç»Q˜$B®™+”9ÐWlVìþ½[ÉågÚ5™yîÍ[£DùNçT)1Ñ•YÒ?6Û ¼Tnÿö×>n2ýÖ -½mÅ{ -endstream -endobj -1951 0 obj -======= % 1966 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /VUBHOM+CMBX9 @@ -45176,159 +27167,7 @@ endobj /CharSet (/C/F/G) /FontFile 1975 0 R >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMR9 003.002 -%%Title: CMR9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMR9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMR9 known{/CMR9 findfont dup/UniqueID known{dup -/UniqueID get 5000792 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /KKURMF+CMR9 def -/FontBBox {-39 -250 1036 750 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR9.) readonly def -/FullName (CMR9) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 66 /B put -dup 71 /G put -dup 73 /I put -dup 76 /L put -dup 79 /O put -dup 80 /P put -dup 88 /X put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 44 /comma put -dup 100 /d put -dup 101 /e put -dup 56 /eight put -dup 61 /equal put -dup 102 /f put -dup 53 /five put -dup 52 /four put -dup 103 /g put -dup 104 /h put -dup 105 /i put -dup 109 /m put -dup 110 /n put -dup 57 /nine put -dup 111 /o put -dup 49 /one put -dup 112 /p put -dup 40 /parenleft put -dup 41 /parenright put -dup 46 /period put -dup 39 /quoteright put -dup 114 /r put -dup 115 /s put -dup 55 /seven put -dup 54 /six put -dup 116 /t put -dup 51 /three put -dup 50 /two put -dup 117 /u put -dup 120 /x put -dup 122 /z put -dup 48 /zero put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¥ÜÆØx¹<¥Ÿ ,—Ü-.è2›¯iR‹n·Ã±vÌÙ¾1ä • „'Æ䓱©·_r"O¯»_‹t±3keè¾fBݼöVÁfj—Ú9Ò³ÿ Õ7!“± ž‰wÍÝX:À 3¡Ÿ¤Jwïͤ푘IKjáûfWüýIì.kvCËÌW_Ý5±§gÛWZõ—WöOü~Ü]!K"xÈÃÇ؉ÑruìJÔ¥Œ?FÍÚ6ëùJq‰>¤ñB^£Ñf'<2¾‘b‘ä’S­z>/¹kßæa½âɾP­"jñÂ’Ütà}[Ú#—[pæ‘å__ íñ¢@éYíÙö!ɹûsÐÎu~Ü×/ˆ8MeC2+{‘Öx$*´ì|¥û܆k)·°DúìÇÉ 3CÒŠ”ŠU–½DwËùðé“/Õъ’¬£7u”S2ÿôv»ÝÎì ~ˆæytöËKd"Êåf!ZÏ…?.ê¶ÇÇ¥îÌõTmµ¢BýlæHôœ ËEU[„ZF‚²©`Qôy)`ÞÑÜøgdeFI—¥rU-ÆJ~ÿ‹xõgí4†KXî­ {ÁÙ¬³÷“š• „æ7é$þ´åñ˜O@Mûª£?\›Ë(L‰â©Žšz%ŸÕKNJü“`Ä«¤Ò}ÖW6¸¢Ä AP6N錛"Š7`»¼Ü“uÕN -£SîX@ò*iÓÄ,þxIÛœ*O/"–À · -t1;$l‚ÈÌÿ% Å Ž¡Öûp#¡B+¢}×Ú€»ûø'Ʊ²¦RS^ ¥ÓP˵™a‡Fõé°(¾~²´ö#¹À©„„ݬۿ„ªØB(ÑI&@ŸæãÍä}‰-á˜:{åyA$¸m:ø‚‰'Ê}¦Ó§j^\êÿĺ>ãsýçe–ÈgÅáz!,ܵÝ/”uð·-9¶u}’¥e‘µIyÏpÓ¶s$ŽdçÈ×NQ/ÐÓ9¬<ŸÒ`ïÁ _`„™m;Ú4uacxr­!¿ÝLB CÀ¼u"‡KDêŽPo–Ѽcùz·¹ÞãþÇض„g„”£Ó…j=>1±”Im9ú!`ûZ&¡U¡SYœQËoeåȲ ׿è 0G¦> ý±›?:ì.ñæ£ éNdÆ¡]–¿øU’5¯«ª=î¤:ÒÕ-©ÝÔz6‘gÜ&Qã°ZI[µœ)Á©(ØÌ QÅ ‰À^6¹GB϶)CfœÆl‰Àg¸=УéŒý³Ä¬¥º -Çp#E …뎶º–o%iiþ•½T8Âv,%&{6Ø"I"Pu>Ul Ò¦n›}ïžéŸâÇ㪣ê×uêèj¡ÜyžH^^‚ž›?€"8A±Ã†ŽŒ¾ÞKþh_´°WÔÜqæÍÂÜ(W©êiš¸4Ÿs_Þ¾«"¬/êÉb,ãÑܪãèzšžëåæ¾V‚Âg£lµøÛ8_¹G¨jjÏxCFT¬Ä£W"¼1v&—“V@}B8”W§§¢ºÉt 9fggü÷Þãs× ÝKm }x[õÇ!.ZCgÝAŸùÛ¬Ìõô<9vÏD(Ñdh9Ï,‹oKÑ4Ѐ?¿Xe^ÔÄEïÀ>‰”¶miQÓË>žLÿ¨œ›üí -‰Éó¨|(é—2>à!*'Š%芡N Ö7Ô¢p> òWr¿1½É N{LÙ:+°>Ãý¥ó+ÃÍ––õ¸:UŽËö)ëhòË<§ÝtÚØ~¥j1 Qž®-3}™•£ÜT -Su-]*ð`{,µ(V¶Ð»ç ߦ,Úv´¿Ã„!+ÔÖZ]¦ô(í"Xn‡iÂ%¯ƒ”§YÇóN=Dy¹3`LuŠ3×¹ËüÚ»õŠç¯cØ:5‚ÉT âÕî&( Ì(Y./õZ¿V|‹‹+7AÑ‚}4ª¶€ -ûßé¹ à°y¼¹ÛÒ3ù&)Øã5Ø"OUpš|Ém³¡J²:UŽëcQ”CÛd<9^Ï ]µýÜÞÞ8Õ}Òîêÿ«÷¤½q¤¸uQŠŸÒŒÙr/jLÏñ¼Œ-A°Þ­?@„ΚqÎõ°øV½Å(éaõ#«8yàV<4H)UÃIú’8¶k´ËÄÍRûõ|;ôÎz+H›Ì¥[[ž !i÷2BÌ7| ,_™˜Ÿ²’0ùÑ-.MŒnÙv‘L,Ö#È–ÏÌSM}b÷Õ¦NùMªõÓÌa¬½û×KçâùߦóQ@á¶ÿ?ùvP0\HÞ¼n~¡î0õŸ~²4'æÒÝÀG¸Àf -¥4ýi9«¬Xho«½šÏ4PÓ²zÔZ1ÐÙXîãÎð …0€²Éw°ÇÃN?«3.ËÔbÁH­Å+,Næ_ë…1|Š…s²±‚Û0.TÉÞÇá7iP½ôòˆ–kçrþ£œiËæ›Ó—þ×;«Ù`C^ÍiÈdõkÀ --OyŒ^3œŸN‚^oE·Áû©Q^Úx7õ3‚½?]2„Aм›:bʤq®;Ùžýl†òÿvÇVˆ‡Šäý´¨á “çÍï5hÓÓ $YÚëíSàG׃ sSû~D¥®/ƒ#J·ÜŒMÅxœ+Å&áªdT€.¡‘hÆŽk¤z ÝwĹ+  -Ε -9w5™p»â>|‚NS¹&V©ÿý<¹Cì.¦¨¢šê¬¼šì¶Vûݦ®mwÒ§Gƒ0Á6RYœ éH&9g‰„¢>ùÙ1ÌiÉW¯—ÃI?Æ—„ųȦ2†Â•ðY;yÓ‚goùÙ§º±û»j‰iç¸]¥­WûQ®Ây_¿6K 1Æ_@H{`xçxó° -_g²g\ÅI·t‰î›±Ž‹ˆ5mÄ%Ÿe÷|0íÀ/3Tizwìƒäíq}Ê–¥Nõæù§þà³þžIAeG÷ ='ŽXCÑÎ8¨ŒëoŒ]?ÕüªŒeåw—™(m*>[ÄøG9è´°îÁc.b7EÙ…}­¾­Sò(E¤ÕÍJ~ÐDRb…x `bnµ*ðˆ°•³ ·Gë—oB)²Ÿˆ7!’SƒêÔ¦Îþß`o ?9ù®‰§h{çFk9B -L1®÷ë­yo(QG‘$0™×°]3­#ê,OJ¦8|~áî"ŒïÏî¹ÕÇÃO²og(Ä»xèâCßgí”»4}Pe &ol¼0’Ê÷'À ·%Y>úÎV»NoìÇØ‹„ôlÆÝjž=;xïŒþÄ­ô›ÊÂ3å)Ù!Gót²»ØfJ]…(õÊ2{Ü)ir18/–dœYÅÈY1AgÇq¹Hƒus®×'3;ÂÇí‘’ËžRæNt(n> -"ª Ê -Oÿº`A—‹oxbÉïE ôÒš›O(JŽÝ¸ô²tÉG•„Çhacb-ióëw´S9϶]š(?#·½ë#ͬðø7ÍÛ†DÕh,,#œ–¸á¬É×ìX=Ûò@Œc“Œ®…Î “4?q>ä‹!ìå7›'CRÏ ²:†p\(órGV±Iʵh3̓§¯1•_ƒÙ¡ø -‡Õ¿Ó„ôÈQ‰sbv» -tˆÑüÄ$>yî=ë-â|犬D¿ÜHB«þºÌ·Ë//ÂäÝå‚gÑmÖù?SÄFùOEÁn7ÓÅÞìUߎŠU“êfÙÝ¢×¼EÐxý­m¥»Ã¾†ÚÔ_™†§D¤Raë×øßnÁÎ*Õ=øâ¯vß•ß2ý’ìÇèàõ¦×têÍçe拼ßX|ujŽ 5Θ*·{“—ñtx·ÈbÖÁÒl“&VÖ¥ !ÅQ¦éŒñz²ó>!)™x[œ£ÞÝ5&ãÀþ\#@a§gü$5Î$hƒÏ;Öm€Ux©)|™ÅåR¦pf *YFË•HÀs-ƒ -*‚ç¾Å=,”$4zëåk„bkðv?ˆJTEz0ßX_gS"ÞTÝ¿E¾Ô“ÍfÝü´˜Y— Sî`9œ—Ú³¤s‹ pÿøc<ÅʨØ?DÑÔô]¯ùöšå å¿šÿBÇG?²8"´"¨tÒ9EøS)ÈÒÅBäx:oaáê…f诋D&—_<þ( 7õÿ›N–L'º%Ó_1û¿Tá®69ypFŠ¸òÄ>àð\ß'Cx~LN»)ÒÅïVæÞ”õ³ïO0Ý"û°¡šô‰ÓA \•Å©ðÈÄwšþÍéyõzN"3“ƒ‘¡+aYïI"" [‰©U¾w4GÂׇ–(Îáឳدõ4drÚ†ÿªÚ¨a›ò*ˆR+dèÀ,w• ÇâV§m ´~¼óAÑþÔ)íø|Iäyœ¥·š@ -¢ÿA%š0nje‡¶<Ž3D]ª‹=KðÔªZ})Biå#y÷cJ&ëkáuÖêsþgØWÝE[Rw;Ô)¤úTFYß΃Á0u, LˆT—ÞËŽìŽ÷Ã!l6pÏ(øRJ&4‰Ò§å·zD(÷8eWõé•E¸O –í¹(bHN9íê¤IÎô2qÉMž"ˆJp÷ß³¼iÌÂL×x9ë1( j„{x^P@õ×ïÔÒXÝgS*íHX–÷bÂe&Š©¥óhZ_O¨å¤VQ#žêJ;ĬªÉ3q6ØKXQf©ÊÌ üËM¨<±ú˜üéP¸dÐÄhæJ†½‚ iåJÈÚ@YoJ‡¨ åÙŸÑfÃÚƒAyÏuVi#Ïóé8ÿ4&¯D:·dO&ÀFB+0MŠñ\Œ5bDl[ÞW¸»œjé>Jåuñ(RܨàЗŇÃMûîœ;ƒUF°Ðíßµ©Ø»6ctÄ(óÀËÀ³Qmé})mh »´éº½i¶1ràÝn’)œQžï‰Ø´¿À³Î¾ëw/”{ê»ó¤‘üైI3;Ï4Žgáôs,±Ðæå‰Á™ÁÛídQs æ¼kˆì…_S+ƒy‹’°¦…ñ>{ØðD¥K3Å-z'C…íˆ,‘b!©HfYLAÑ~ýqƒçÖ0íÛ.fšŽ2nõco,‹®gÝ5¯rÉ#†¸ö|é„m¯05ÞËåÒoJôpÄHŒñC´·ou{ í¤þP1}Ö i&T kÁ¢!ðkZe¼ÌÊniŠ0ù€ó8…amqØlš¹!‹2à´ðþ‘ŧY›š‚»s}—°ELD¯GÏS*)@N8‰5)CÆÛ,›wõøµÒš4=½Ô6"MztŽž]ÛAJ)]L“œrŒ*In–¯ŸC^çQ!I½§QV’œ°ð™ŠåŒZ²ücŠ2ÚÕU†¤Õ;ÎBŒ—¿FbñFÕ¯•‘8ônXŸµ—I’AL ^Œõ‘*‚›„o.é–\úSîáöåÙYIuìyXs­? Ì1žÀ¿óÐ:¤G®d¯çq¨ôN$JgªúnLsä{BqYÊ]j•µfþYBÚr뎊í„õòi¾Ëó5²pSŒ«ÁC³² q: -‚99xec]RÓ{zC±‡º?yOºSÖ.æ+àT#`üJ*´‚*¨®OrÍ×: 1-²¼Ga"FXb¼2˜ÅOF+< ãPpÇT)Y(a‚VÿK -¥±»Z’Ñ¡Ìû@ˆˆÝ¾O:²är±^Žæ:M¦9sª þ…ŸÑq@„*D’úY˜_Ó<Ib>Cñe[@Ч]%‚¦È€#K7‹ÔêúèÈRj‘œk2A›>å&ƒ^²ÝèRzÑ=f‰é–)øgjAÝ“'x‡bBPd<¯ã¥^ÒŽ,Ó!ávÕåmØ J!‘±*<®±/S²ÈÂ=MÌ9}X[ÛR3áúA2+Nƒdë"âvF6 Eõ’[ï.¡ÎÓZNN‚DãÂçhŒ£|ðKç>5Ò‹.5(KáúÓ>+†ƒ+4»yÕ@¨ÞŽÐBÕî[Y¸¼”õ ¬-`üŒ•‰”‘ñÍ‘!¥§-|©õRVMr6 d$j÷«w®eŸº­í(%.`.öò tÀ“ -`ñȈžèö´n1åh nzÑÛeRà€#nùmäÞO°þÙ†wÂwOu*NÇøkxcŠ™ÿV£ÔÁ9¬HÂq8°2ɤÏ3ñ¢Îòò×Õ›ô¢ƒ.Sš+È@&½Š‘\ÄÑ]ÀbWß¡!¢NÞ¥pÙaÃî0’f¼lÝn»Ó -ED ´pèCr:ñ°óåÔìQ=£ä‘èâÌWµ8{‘mCUØ·;·Qtþã[®ŠZߪjÆš´|YQ4ÈæC<ZeÏØîoäåúD>소óV@©ÁR6‡÷¦¡IÝ+ÅjiŒ¥M½â×.Ž;}ßRÖ0û!ë3+B04Oúqߤy²ëDåpäúk~rVUÖlÂòF‘þ=ÏÃá ~Kî,Ü Ð„Ê³rèðe!‹¨…3wír |fж’þ|l°À2×4"÷låeÖ™¶é'èINÑ,5ö®LÌkME(9Îh¥RªGó…M'Wõ ò±vnvq“7R½ö7Áì¨nmpX±“rëú§º‰8Ò&§kŸÝfÂLSHJ¬£ÏXiÁouGö”åü­}þRóʵV'v-L¿Ùò¨X‡“ri'®±ÏUylÿõ]œMœQhšýÙ Œï`(iÂ4˜¨,Ùíp&\3}õÁvÄ-'Æé’ùȳ•½äž=´“¨s¢…7Fyv·Í_aªÖuL¯BDMþ›½Ú¸²ù€æä÷{“©%¿ ip=^ç±\FœïíR%Ôéæ˜-4›¿3}´¾žH†üoîm7vÑ“/ÒWJœ MÎ×õ›Uf‘#œü[¢\8¿iPæóʹÎuÞ:ƇûtMI2û!:1 åEjW˜DÜYvv‰´ü—ÌEîÙÛPrwÅíÙÑù«MÄS-¼Þµà~î`§Yü„ãÜæi -èûÈ}TK¢1B -AÏ•‹Þe¨(ߥ²«Çi¤U enŒç«7ª,–›û¸Äz r|G¬Vd¼µ§c¸°dK÷åµ{@$¿„± -ž Õã`/€¬ W[ŠØ­FÞÿŒë+ö}¬SS%l4¥!®“_'ã#í´•š'0ç¨âô ™ ¼S -|t\´Bl XÂë}¦Ž{¡5D|5äîÊî$¾§Yõ†­…µ‹Ï®8¹1ÌØÅ©Iûµ[Ø̉b·¯zE …Ú/–T?=ˆë‰Þôø X»‰Äd -‡Ò‚Ù'˜ pÁô)Þl¶Á^í@*F}ÞaêÐ>çî>3+fÞ±âÅ2mÍä -QëH·y•‡[*ÿð²x'M^)D~)\š¨im ·hÍà×ð>¯I¾ˆšå}«¸äÑÁd¤@ñ§BÖûÜ®|ßî_¸2_ÿºÂàø¬ þ‚ÝWÑ3w¿ÇÅ­8¼$µ&ìÜ -ßIôõäë<¯ŽÇÚ.Ö\p£ÔPx~“¸‡G<š°n/CRNVð1,“oJ0ñƒ¦k͈9QcÞ#¨P°rKÅ!ÙÀŽFn(3a…Jã»­üF˜§âôQ› -ÀR!ïëÈ9neÉUŸþ{ªuKR;dÎZ9@úGº¤ðòÈØŽ‘µ…Î’çJIú -%/Ë bcªéÂÄú”(#9´k˜Øö‹Ü¬zvµ÷„I,Šx›{¼'ªòBd!ð <`;Ö8'âÕ|íâ9ÕÙœ¿–7±«äb"¶×65:Ää‡XG)Rpw,<‘QH„`»õdŸ)+GùÎu=熪GÅî#<šÔg´qÏ¡ÜB›NÁ@†_V×!ª)ø‚¦­ØEãsáSX‰™U…øŸâ› ¢ÎÈo¾IdI}rì)O ec㘱,V…è6ÕUà -‹Nôð§¿Ë7‡2I’x Zr£ ùi=À×l@ÞnY½”]ÚUGö“ ußÝxªÿ#ø€¿ò«…?(p€Jt}q=îá¥sòÐ;™ð¼ÚüD‘ê‰EÕ»g¨¡#È*t|mX7*à™]€É>Ëm̘߈QGFs&ZôÓÙ¿Ø=Bg¡2 ‹œ vgá3mÝÿ¨7è¡w«hHËÈA¢¤ *'àClP”¹Cqv)×åÏjÕgîÎBþuª"û´WÉŠ>l]ælA`‰=R>·†Ïtü¬F7Y3;'ߊ5ôÿøÿÛ@Tç¬ê†’x…N¨ýáÄÆ@€;ã -¬Œ®±ž«x²«AfaËìõsÏô‡xÓgòŒs@s;h»<ºb::˜5·tk¶/å<ª½‰Õ HÚîùËÓC¸Ò0¯vêH†›%M93i~ÉÈ% -Õ6ƒƒwÓˆMÏz¸ÈÞ^:FÝøXÆ -n®`1jiäafå1£Žˆˆ2+qSÁ%Z‘º BÏ#ôR¬æô`QšûÿD1ƒÌ1»Eúº.rlz‰¤6OÑb -åGwqŒ'®¾ÎZ;¬ÑÉx - ò_Aè|!Kb2Ø'R¯¾ðlØ!–1ae·VΧâDÿvr!K˜gê¯vݤŽ`‹6sÀƒª°ŠÙ/%\ËóAZáÉ¡pÓP"±%{æèÇ\–ƒ¥ŸôuêW„¯’“ûÐw^t4Sãá•8ó{iÌ%Z -˜ˆ Ù5ìšvxñEP*x5xÆùNXë›ìŠýÖ\g ©p%W)†ÜE¥Ò'µCìËò1Ô~ Mþ}`ì…Š!ì•\%2±¨J­i›M.<ëqÛ'΋Zý,&+rü hŸy-– -f62­‡nª~Ýðö³mÁ‰ÙœeÑ‚ Ïînê}ScÛa+ùç’­59#^Ë6G-[‚§e\Š ôb·üJÐÉþ'Ò2P¿oÓ­‡BÑ»$KQAîl©§\A7±o‘BbÕ"ªø×Nósmj1È ~J¶îÙ¡-MÔrt³.ö‰–’|íØÅ%8&2£RÇh³(òé.7ü§Ak–­+Y@_lš¢ÞP>•[¹?A’p¶ e:ô÷+¦uî©[÷±¨€tKˆ ÓЮÂYj¶^ŒŠ -¬)&Žè©D-/``>düÙSãAé^šØäÖ€ÞÓímçWºðÌrL€„-vNI*®]F´•ç7µ-QƒórÊT‚ÉÎ;SŸjPÊ —…°[~ª,×+/1©ÅÞ~ƒŒNJƒÈ¯_ìÏR)S‘ÿ¸TZ–ʼn°úx‹E¶ªø"ìQ«ý§½Šª+gHž -•5ËózÿªÁúÜú÷ˆGohHçÜì—s<ÜHDºNÎŽõç¯Ìanœš/ºq6&*ÿàô -eDh²Ðè×o׬ùá1˜~ÿ£U´E<4»·R‚+s}_t>AKÌÆ*mˆ5cЃ&3($ª¸ƒ~¿~‹\Ʀâ«Õìél‘°ø#u¶7ÙٶױuÜÕ$vqê‡!ì§ÍËÀÐ…{Î+Ú¥¦ë+è»ëÑ_:ÌðÊGØ<‘unôÍ×™ÐBñãß øˆõýuKÌTµÐµ)Ëa‚§[Kbã}³Â®@§_#!¿ö¾±¨€ÒÿÔUÁùL«êWÐlÏYQ¦Ÿƒøðâòm+XÅ©éÓ0gçóo9--?{¢ šOð·ÀD5Ø,'p 1Qüzr–QBíKUiq7—Àû×Úgf@á‡0‚³RÜtÑŠŒ¦[ËñÉÒ%zí\\|å½À¦’:ØTpŽpÜE4>:ÎxГ­Ò‹JÚõ÷ùAÓºçï==ê¥fî0ÉIÃ$µ“ - 1ÊuŸå¼H¾åýí.X¹žQÿg+™©ãó'â?bà+wĈˆc`ÿ« OK¼So©4óŽóºG .¬´’_Só°Ø7Î9ø¢öuÃ+~UX ÈC’]qîÔÜ´; iá½¼“±\»h–gÌI×Ìgêí…¬•ÉAÉ…}BEh´.þž”¥zzá†ÒNp×&»úC&':žG°œ2­$ÄÿVÐIMYú^®W=æön1¤qßÊQä­]¶8þFf/iÏ×ävCCµ€SþøJC:_à¹<õ6ÑaõÉÑh&ÃLÀå'Ÿ¥.êd„´U½F¨”æª8nGù”½0Õd5½eö‘«_VnëÊ_÷¶~ßç‘% ñö6IØÀ±x.‚|-uKMQµ'V@Œ:é"vzsMGÄBúØ;þ.×»Ü,yD—!{ß'ØÝÜ`ŠÆæJ1Yø×Ó|øØÄXV¤áF•Ï€V§pºK›>X‰ä ùSá‰.4œyã]lÓ‡'xaù+R<+TGF ‘«lGêQOÕòõß—ûß¾úiW·”+TãõNÔ3–Ù>õt²¼>‡‘ôý±ø<×ëtÔIjCèG Ëcz&1Á®‡iùÊSW_Ú(Á#9ø7'©¿É¢ºÄ³É›÷Lg°¤¦Þ:v‘Ü«áT ¬ëVÕW*7 ×Ȳ¢~VêἪŠª€¸0öëΪCFÏvÎ\ñ>ü#*“¿P›ñÿ‘QÔŒÎÁ+lþWQ†G©°°1ä¼剘õdÚPøÎY‰”Õ»?“&éä"ÅW]®V–TXº‰ÿˆyM‰_„ÞËGY_ ò AÕàïœa4ŸDþ‰ÿ_É4¨v‡\‹/¸¤˜T™^…·u‚4sòUw ;‡'¥¦ ìá|þi$V0åTOÓ”!±Ú>9¹€·•wõ™˜Çs9\@Cµ°¼‚üµ"€¼Wªp¢ U u'¢u†îû>û<Šá¦!-×/ ‡×€Ëÿ„S4¹îDz‹IyÒ<ä;k)NììrÇ|JÕ€S¶Åc‘÷sò¨'‚a¸+?JƒP‹CÁmêGMßÛZLŽó-ëüwfó“tXþË<Í8“3¤<EjIZhè:{4þA'ÈûÉkÈ…Q[‚”$ql‹šÈDÉŠ‰„³ -L¿Æ??˜ì™·dðïÚAÁ6=ŽO³E@öu!ô!P•<˜fQ¥1 a7ZÛk­ÉæG°“:”V9-—n ê™õoņ1~÷òkëT’]nþsZÐNÔ‰é*d½ü¬Œ_bg4!¿d0vŠ#A7P!™ñÛö1‘Ò¨u¦'jÐ!øO!*9ÌÆáñ=’L´”]ì¹ÕU¸^‹§‘+ž:w‚¯éd,_G¡dfHÂéw–•Nu¬–Úd¤ÎÑG¨sôgüÒ㧺ò{YµÁêúpþzt›qvI˜.W¸#ôœb•êSe"\Â/dè`«q› ó©ÖUêB.©3vC®ëiu;èOùkk4çJuÅù¾ëyñøLô@e[ªe÷´ÿ•¹îRm-*²û4&;¸–ïMZ"šÕ{q[%ÕmµFý70úˆt3o”sÇ]z‚>U$i5qg¦“O²ž—5ÜüÒòÁ§SkFl¶íÕ‚ý"´x»Ø ­ +h–RŸcË$Чd5»Å.nžt™òí“vŽòM‘ØVYCBqÆÈö·í4ë•€NÉjú%:”™F®i¶p8¬e¾EÉaž©9Œy£Ê$·a²³MÇP -ý´êu^ú¥Å -<6S ¸O(}¥ÈBÇ÷·T´cN­­Çü„{=÷REKë°ÿ*ò[£hqocåˆÍQÎM£=q…ú!’ˆà&Éi ¹jÙ9Ñи˜,P•Ûö©2à°×?ø:î -§ís1­¶Ö΄™>pr—á!yÓ`#ó }Ù¿mzí…0ÂAñÑuÞ; -è%nÑƺÈ6ظvcrcé•ÚCMÝëÞ}’ß37ñðýE×v}»H~×éÎþ}ê8üØ´¦Dáè8x¶ Tí=ª{žmÓó=å}0¥²èUÑŽ¦ÉÂQiÑUº”©‘ÓçÀB¿NléòìU`¬u8ër0{b -z¤f«ÐŒA8¼Ž†µ7 Ì'æ"òÐ|Æ~*o6ˆGŠuæ4²Ô¢Æ vé×~õ8l¹A—Æÿ+¥©¬ÔÔW«ÑüuÚîä‘;a²Mî‚ÂÔ·ésMÄKm¦ÓK'O.PM -èiÆ AWîl’¬ýP„x*¶2²äaÓËõK—©ô(ÃÅn8è÷S®½ì46áŠV:ûpÌ¥í±OXÌNt0”vG¨°òým‘C gZv¾†‘†œ3ÃdÊH`ŽPPM0?ùÛßá ؘM†ña ë&o¦Gï}¢XUÔ}ñžã ð´7PŽ¤þ’œ—˜~XÁõ~¯jþë‚úì†ædí6žtIÅï‹UÅ*á³"‡ÑrCuDÇsMæ(¯ôU½A4Œ|¢¸¯ú#,Üa( ä•Ð¢§¬ °2Œ0nÿ†4Ù w*h{qîÂĵ0dIµÚaq´«N$Èœñ'³1t2F,”Ê´˜ÃòŽ¡dÐä ÜX"¶àzÓ%ËL/­å+í¸ƒfÏvÏô··ÁOß‚×WÎÓ»2]z’à9% Xµ±Êi;ëÄWV›/hP—µß0×[$ NÀäí ¾6`àui@|¹§Oí®J¤ºú8ø¢*>˜²pÒ[d_'ÛEH(U?ot~}7Û dÌäUa¡ìZh_B‰˜ìÚiOE'FjÖ™xØÚ'¬(›Rs=Jtâ2®«'ky:ÏjK1ƒ²Zã¥n˳/ -W=”USŽ‘ˆDÏ dUÒÁ!`ö -EîßÆ|”I rªJ­ý¿vžã2“†®Îý« C¡ÝZQ³Á3“qÅ7Z³ef‹$ pèäׂº«ÛÑ6ôP–Ù*Fzc‘¶`À±½{OyC™±fçk ¢6‹­wÓ•u£Ô93NSM'mËþë‡ Ofu/l÷^Ë!ˆKpøºÁûɺÙi̬îÕUQĽÄðyÁ 3£[øÏp’3â@1£'OnÌáeA0N ' ¼äËìÔ¹ÞUھܹ#尵˅î>‰ÎõûâðbB&вÆ}(}‘\5i [«(’Œ#/àä¡SäF¶)Æ­öÑ]¨¯ET•n– NŒSëdâ±dÉÔ‹7½Ñ|©.~.·`é·lΈ)}ÛF+ºÐ¸]™03æ…µ˜›Ì݈“xü$Ý ‰èº•Éjø%ýÇëÏ -¸}uLÌØU¾c m(de_õ7cséeµçv °ûႲ o[æ<Õ}¡ ‹;ÿJ»ÿµ -ƒ -ØE¦Ç”ÝÐúͤØ|ÈgÍJÅ;uô¾w9ÂÁYØPîÖšJ 癳kükbO }˦‘Ó™îMÖ¹1{ Oå/ðª6åzå1!Ó¬Œ]Û——wh+žˆ9‹9ž¦5º'³VÁŽååŸâGÓŽ^P¬÷$´#þs:åè—0aùí­fðØö¯Äm#ÏMtêr•¹Þ6ë—äéÅï;èüÔ“â×| °rm4fŠ{ãC“›&Öqh¡ÕN=…Ñ6ä¥MÂÿ­$hªò´˜ÿnN¾(öjà±e‰² -ÂáÎÍ\®†«+¤Tžårq/—÷ü¡itBaôùœÀÊI=X OŠh·#%6nN½.|Nq¯,T""´ÜÝ÷*t,M{Î(Œh¨ð‘s¯Ë €ê [gM¨Ó;<6È -©Â€“'îOJJ¯Y#6G¼S&vˆàÄ“çÊåÍ–‹áú%=’CÔdü‹7†]Ìn²<Ýtt}jër?ç•d×µâóˆŠÒßï-E#ãTLºZ›É†e¬@¯~­qiÎ ¬—§cûRñÌÉ7Ïíwßa×9¶Í³nNð*ÛTe-¤áÁÂFB_u” BÄ?ôþ]7JÖ‚ ÄL‡J:þÞ!Ãц'¤‹„½[c -éé_ªvòw?z­œ1‹£©³¶`À,Ñ‚6O8Îù@óÝóP~'ñÊ?E[Á>ó""h’š´$nØ6ôT^8|“í~ꛩ¶q©ãÁq½~sÈb‡ù$¼7³û¦ë|šv.Ù ÑïæàÿZÁ)-¿³Íà…¡e)¯òå—ó*¾‹ÌSh½Æ€ú‰QÝ^Zw…'žF#²XA¶¯Hªèjòf‚A<º)W%uCF/ȨPöSøV~î>AQÜê›üôx—˜¶gªµ¬Ù^„¦Ä囯?qD~b̆Rt@4í€$½Î¦Ýû2;n}]ÎëMîr¥Zuk -Ãó¥Ûþ)O>Ñ´ÙãY%†@koårÈ!%è©böÙ5/í;Èå3YÊó~ŽÌ¬“jêï&“«UùÝxÑ{¡¤úLï)21”'qP£{ºïárÓÇqJ]2/2k˜ ùÐ9†Ô/_ݵ§ý}¸„ŠYa¤\éýg]+-fÛ«r§EÐ}Ñ72z.ÒÏkfp4ߑ軫4wu'Iê$—¿V òT†,®OÅAhÖ°Ìç:9’™nÓ:ΛÍ#6íV^= â‡Š$»5#kŽ|Š¾Ž¨}fV>ÿºOÙg늤+ˆÓèâ Ãí¹‚ÎðÝx´5çéh”¡XÛy•Ýñk -ÖIPÑE^-\ºÅ¡†de ûó÷Ò-ñˆ›T©5¶Ümy€Ž`g<î ë­_^†vÌa‹¹Úwõ™n‡„n^²K½ŽÐÞ¿eýyt¬jN> -¢a/z6|[”cŽêŒè{ý'±3©µ­`h+ÌFsé>Jåuäþšò´ÖÌà]| -ºË8'úSGó¢G 2 -endstream -endobj -1953 0 obj -======= % 1978 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /WUKOCR+CMR10 @@ -45343,93 +27182,6 @@ endobj /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/c/colon/comma/d/e/eight/emdash/endash/equal/f/ff/ffi/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/plus/q/quotedblleft/quotedblright/quoteright/r/s/semicolon/seven/six/slash/t/three/two/u/v/w/x/y/z/zero) /FontFile 1977 0 R >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -stream -%!PS-AdobeFont-1.0: CMSY10 003.002 -%%Title: CMSY10 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMSY10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMSY10 known{/CMSY10 findfont dup/UniqueID known{dup -/UniqueID get 5096651 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /IMOIOS+CMSY10 def -/FontBBox {-29 -960 1116 775 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMSY10.) readonly def -/FullName (CMSY10) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle -14.04 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 66 /B put -dup 72 /H put -dup 73 /I put -dup 32 /arrowleft put -dup 106 /bar put -dup 107 /bardbl put -dup 102 /braceleft put -dup 103 /braceright put -dup 15 /bullet put -dup 50 /element put -dup 21 /greaterequal put -dup 20 /lessequal put -dup 0 /minus put -dup 54 /negationslash put -dup 112 /radical put -dup 120 /section put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÍßᾉYň5t&× {hLšGÒqB`d­Ë—PØ©†ÑÖ|*îøÎx\ÁœÞ–HŸtEÅãBð-¡ÉùóÁgedogÏ7—‰ãï‘Q`[['“WÖü…7Â3ç®æ¤ý¾sçZ9ë m ¦ö!–tAž¾ë‹Y!$átÊY\Žr[˜uTIUÏý‹iŽ÷B¼Œùyã[Ž™ÊÝÝÈœÆÅ—3ò¢Kï6­†zJ!žË’Ç‘œJ·s&B5öC©•"¥m†&Þ`7ÞûӢƻ‘Ç3uµgNC O~̶u³o5Ö=žÂÞò_ä›Tù/ ¸’‰h,°—$B%¯döʘï¯3lŸÃ ³¾ÛÿMÓo§¨÷YLÚ¶Œ~ƒ3^æÐø`š‘12]•=l8Çà£B6PlpËfWÚü<• %PIN!jáuË#,.õ£Åi«X“nôè¸È¼Ê‡ðo$îÒX½šëÄê‘·I5öÔV*E6t±K×o¿_)žÓRŸžP»¾G;Z@9ØÐ"V3¡T×TLç˜N Y:…A€Ókî©®Ú¬6Ì =‚¸=•8€0~ÛÐðDQì±ã QÂù^brð/2^KŸ¾Zh`§N'Jt4i¶ëüèBYÒð7ÖÞŸBþU_¨~\ŸfûŽõçôµïŸXA³ˆZl‰”¿Òã_£Ì½ZÆŽ˜ÀÐìý'•çxHµúöðbÊG:Ç"„¥l«¶5ºCÝƉU[ÆaL¼ô¸rÂÌf¶ôù 1[÷;4äp^èµNïpûªqBD 'Ø…93ã­M€&9{ ˆVD õ8 aе‚2Ön.hf¶ -äl?KÚ¢ë[$‹¸Š³úGpðöÃݺ±/JÇzc÷¥‚F8ûvP3Üà/XO6ÈyAo¿±î~ëç]WqD‚M¹ˆY4ߧ󆸢YÕÌ¢XPEðLý2ã_2¹ ­¹©oH•{ -1xÒÉê'¿¼u|»o øöúWNRšE”ò¦í™¹Óôû&”ã˜lFÿ\LRh1®Fžbñ¦­Ï}+‡l Cø] ¦¥ÛÂ(„vfÕoƒ+fÏœMëí³}÷l?c*Þˆ"î­^R¬æ]ªm†äÔi§„KªOÉÒŽ!I Œ²Ó²ûçõRþ_tÓW;™¿Ìñ˜Çu@(#ªt*̧Ó U œ{|ãõõQ}a3åF¨l•¾ó8x¬¤Òt’HWA¨Â­â;³!ÚVÞÐþ CºÊƒVo³—Ûvºžì’?³”;”œ±=ËÜ>,„Æ㧫¾\"«ù¶•šÑRívRC•Ø¥œQDh -Ó@_,žÇËœ½kbflçAIøP^ª³™wÙš¦dIÉHzk(c÷3ƒxûŠÉìSÊUPI³f{KΩÍs… îÍY¯¼¡í/ìvÁÏ[¡¹ûظL%O¡@ë™Hƒ†“<ÞP'ŽJ£ËÛv‘Õ,Æ$´"hU§M?ô³ë?á“p*Ö„7v×=ÛP1s}ãG“@¤N’5^ð3•‰Tå³8fº† yQ¦‡ƒ¹O)„´ ¬07ÓæÒ%… „G ¤ú’Rz£óófé{‡Ð^DhÜô<ä¢{™™âB•ËêÖ}úÀÆÙžs2f'CóyÞâ°_ǮӮ@]c8“±n7q'ƒæKˆü4kO=íþ«@ÖU ’¨Ül,ÝPoE‹ÞækÔ™*7q[Ú!ì÷ú·ÎØèÓ\o»‚^×$·&Œåóò]8l•ä·s¹&„„Á/ââ^)š!TåÄ€a óá¬îÙгá½S"¡;è•üu^S‰ -A5ò™6B=Û¢vnÛ™Tã­™±Ï¼"…Ñ÷©]/Í-}{ˆÑÆÉ@ŸÓ–+‹šiý©caÎpnÉÛã´ÓàÕ{ª N©‚ïh%sùªéðž ¹×áN¤‚äå¬VÚäÎǃ¿a©š]ôè?Õ, íòbt¡l“˜h6‘ÿOˆvÂ_§Ré̳9S ^Pí!Qp÷ Á÷¹r6÷¼Á;¥³Z–è¿ÆävØ9k yŽµH’yp;DÉ×ã “jí1œÐ:ðR„]¬Ý›bzGC?"%‚|eÝ¥w!è±–Í6Ë¥RPè$æ·¹:ÿ½Ô)ɽŽE#Øè¥d'¬Ãå¿-¹¶ È2/Å %ñŽ}‡Ù¿ŒØÜ mË…¯ZüÄ¢L8ÏÀôÙcËóµÏoÙ¬Š›LH¥ÔºKÜôó¶ž)˜õqž+×ÛcYy•ÅÍ»¥Ÿ› -_MÌŒý`-@³0Vý'ôœÏ±Ðö©tS¨É¤d?ݱX(ƒYƒ…Ä÷kNWµYÀíFØ<èB}³–ék³ÛÃßRí(ÚÕÏ^2Ø%0Aüýìm„»ŒÎél|mƒoÓÈì©4Q庭„¡y|“Úvï+~¤ŸÄ”EµcŽÔ²Ù’MÆë×/­öëtØ…üHeš†ÙPC´évNîç"G6} ¦ì ]µ1¡AÀŒ”+|ç°(ä¹VÕñߊG¨¬l7‚KfWzÞrŸ_í=ûG"{'ª4ˆXM ¦(¿Õ±†ïz/ܳ¶ÙzÒLÃZ„|¹‰DÆ4-ùá0Eíp¶ŠZSú¸óAÇᇬˆ³ÈáظA䔹Á½tl¾±ÎHý¡[TxsÎM¢…P‰*´ ee©¦f¦¾wkÚ‡øH1)7¨i"ÐÃï‚$0Øþ´«ÃV?i¿‰zóç8ÆÅ|¿¥>dÿjyTšÃµVmÇæ—áq§ÌgCÊ‘ó‘ïØÀºš9z»åTˆCÞ/Ät~º‘؆§o*í—9ŒÆrÏÕI‹¡oj¯UíKöxj¡º. ,Íø+b1°Ö²ñ ÃI›lDLïQZ3÷¶P-noô¼ò½'<ÐY½ße-ì1/øŒŸ7Œ*E5#—d‡ñ¤oŽ–{]Cª>$þF zg!Ј*£oºÓjŠÔ-Nûíͥͭoò8ÅKwQgÝpœ*1^‚.ÖŠˆÎÂë± LV‰~ôÈÿüøm laÎ ]%ì."¦`»©_®Q·iäpÀöÅŽÊs’5y.XƒÒÍ®)ñæ¢T¡í¦öd1KŸ¢k««ÌŠjÝ«¢n0zªG®áq‰·ëa©WQé%z„ÓJ²¹ØX¤¢Â3tIy0ľ£.Ó#‰Å[“#¤ƒD#EÔ‚’pp¯F*«¨õ±Þ˜vïrOÓdÎn7n ¤Òf9ƒ*¯ìX:õ¾ç>Ǽš:*ÍÞLfÍÃ9’&a’j;+{»0‡ )ÐÚA’gðK*êXKÂÛV¶'zÙZóÌAÚ) nîöÏ ³ÕT¼”ÙÛLÎßJëïòé^Di¨ý[¦ð:s<ܸ2Â!ñÞU‡ú|›–#ù5V„ëfÑUŠêqP}÷üÒ|=ÿŒš»¾GÂ5O|PÃèsš9ñ§Ž}äå“* -+gpA€,°,Á=|j«25CÉ‚7›õÕ ’ï–¯µ—Ø.é/F¨ɹË0¢–tRœáºŠ."we h¿P€ eäÖmpòîJ‡o´@°±â–ÿ_ðêAÒ3§âQé¿BVô~$ð9E¢ºj= -‹]? «è{w¯_53÷¥FîgÓ¿³4B™èä›ìA¨«á½q²ÏðËßÀÞÑ4µŠ‡¤Ðî1®PfÔ ¬ó,ÖSÅŸ6ôã¼ r¤§[‘ÝÁv`à ¼µ±ûô¿x÷G$ÿŸ„¥êÏ.}¡¹Î Ì”·¨ÜϾFÍ™”c°±š‘‚=­Áf!*˽ª./çwĉR8º(@ÙÙ‹šz c¸½@ÃN&Im—žÝ£>X!Èm•eñÊ@ÎlWÿ"ÒVCHèø8ÔkÕ‘ŨÍÀj]´nó3X>J¡z?ÙDí€=Nø…½bn {qbY(>"Ù8*苾ÉÍk¨y3øoâŠøÜ €ó‰Hã Dwâ¹ø]¤€ ½ëd {E’ʥËwÙá™.$Váçhtœözk$kk$]4ë¯ðcf¸¡ú¯»CW–@òËóû3ö—plQ¯ “Q晉bá¨/póµó T“q¾FÑ8_þÕA’¿nëQÔÿ¢mKŽ{&z;<Õ¿žmòã[i7Ìϴ뜣ñ'*ýqX€Tnòt<ÕŒkò/?©2m)žËÏfô¹¯í•áâ¢øy#(ã¯`%Ú{ª§!¼Qœ/0&sßx¹ôfçB«+¬Õr‹ïEßï[tÑÚgOKQ£$ú$²=à‚ל?êd@3c)]3ª–êÕÕ%*M}HÙ饞;Cd£á˜Érp½°1jýŸF¿ˆc…st•íG'÷âC\–ºp)­)öþœ_š¢)±Õ(¹ú›¥µ MMº -µ³„ qÆv&¶¯Ê÷Cßå3N¶LZs³wTPu{‘s¼ºÏ°øPž‹+-­©¡U‹—±FõUøP"»KΆ†+«¼ÒY¾e7?0«(•öidšL´;gk9Á(YI-Œl`®õî;`ÕçæAÐH:´® áYHb1“µâ»HÇ{¸wƒÇR^YÑš, - $F¨Ô–HDÙòV?pòyÑ—¹PÞ%F=»‚ÂÇÆB‡öÙö¡GKØPh³~N´[¸IÊ_ꈀCðTzÞÒf ç <Ó–”Œü`4|mƒE1ÖJ'¼ýáÝ$`}R ‚Ú\¨€âN2kf¢aóouJ73ê´òváê¿ôKÛW{œMÓÞ3?שMò]ù:W;v…˜Xâ;„B’ ‰§X.PáI;?Ÿ!T¤ˆ . ·sìöU]䮃’=ÑXŠþ ý’5´ÀŠ€r€Mt>y=¯†*ãbC¾~^ ½tÅAr±¡l'¶øŦ•üó\ô÷ØŸÉL냡P“&7ttöuGz;Kg4ÚóÑ;·u)"é³;úÜS•–Âv½ËðüõC~³?¿Jƒ»/’F"6U.°0>çô+ÜKQÓ„0"ÊÓ«Ñ=ëñséÞíƒxoJ]áת!Ìwü6OÝ.}‹ž€tëË5ð¢VâË©³+¬¥·¬­Àü7Š³Us‚š®Ö©ÆyçåÊÄ“TŸŒC5üGrgâUÄ5Ì$‡—Œ&|°µ¿Š~•ÝGªäØ8ž—ê ¡¯Mvåß(jt§ƒãß ñÏ¢nñí›]Î]ÅQÌW…OØ‘ˆm.Œ£Ž­ð R[¾ИoNÐngô IFç:?Ât”ØSUOÎcÆj2Cm[¥à«O7>kWúk¥¢©½ËX¯'ƒ²î¦œ ™#ñ–Ñt'X•d9+E7±ðNä™dŒ8{Å]òŒm¹/‡ Æñž»×Ž¥dv‹Y†Y–öþwopôé™!™EÄP7F?oÏÄjP9âò­"›Ág“BŠŒÎÅÙPîŽô;B^QO©“3ù¿*B 3³ƒun»$·ßIÆêÿŸ_Oeþ`Ô -˜$Àß`‚}-9Q/Ä¥åM³e€ž?ØÁÇÉêÒ°µìhä]Š¦bð¿ ýé»ê«_ê2<ÑøÍ–Æ+ìtª°[Ïœ±ˆJ¡þ©O@¤%M‘I‚Þé t¦µØvƒ†Õ\¹/bãÑÃòMVFÊ05ÿÎ+kIå2W9>f–}©· ÐøĶô3t‡¶«ÿº¡jª†¦Ã|"§´æôîÖ -ŸÇÉ[ÓLŠhŸŽY³)Øo57kßþ“#%H’\,¬xÎ|ôs¯sxí¥HžÍ†|¶;`Å vû%øÚ¯T[ícÖ]ï‚eŠ"G—Ujß«„yŠðtvxÕ:udQ‘uZy_²Td"“ª£b+çÁO†]Øl¯xà'6wòã6X²C¿DKOÁ‡f›(g@w]f¦V™ËÂ[ê~ëŒ1Fùé^A3v¬ ÇâO›vÒ¯¶2v -zúåT¸ÞúË0ÙÝb#ö›[›zyÏ’Õ$e1¬ÛkÕ5—dRAì`(Å…@{=yW>¿ðˆä>ú‘¯çy@æÅÿ¹Uáú;”œ±=ÃH;Çc{–ðÛ3û0´ü£^Õ®”)Õ™-{·O¹°OÖú2R¨Â´xÈèëˆQÅôwBgБâ¼ýSý»ž›"תl›bðöz;¹±˜IyÕ\E×ÁËê‰pr¨kM ·@@Âe&À 3•˜lÃʉtS÷æÄ%í)è/pRÇøÞÙÀª"2µu -˜Ee’5ø+ÄÙ°s§Zò'±¹§õ˜àçbˆQ²ôð°SlŸjÅö zvÞ€â~%.Kz\N¡Š„çüã÷Eê,ãeV2Ò=Mo)-JcÇVà¤:ÒUÙ2Ѹ>É1ˆ×È“"¿QWº ƒOýõÑ‘4*Ozûº.c¸ójc”«Y&üßÜØØÏìê=ë7”Y™´öøÈðê,A5nÊIßFŠ•/œ?üÌŠ™á ]as.´N/þCÕ»tÜýH…G50x}eb9—S&ùœ¬é0år¾à«J§H€‘ôN­\¿?^4'îœèb©É»ÏÀ':KÒ`wpcÏT–!ÜÛ_ÿ öH˜°øŠ¹ÝŠ†‘óþ{–ÅÚ}þH¿mZto”àÞê7Ê«¾ß‘ŸQžÇ·¾Ùbi>ÜœZO¤§ „Š“dºdFÕ¿cc -$"«˜ |ðhJQvB'\³Í%Ì6Âä²3è¯J)A‚g²+TÂò‰ªÀî§ø¼†Êrnß&^ÖÂܼt,Ks+ñ½,溛ïÝ8t:EFH«ˆ9žÈ‡ORžJö3©ž­*³RŽ…âç €!Ò .í-uàr\96@3ãj&íâSШOÒÞ(?iI•d‚±Y°íFÇCžã™¥mÆ©(#Ÿ©µ¿ÚõºzÁ¨©Lajƒ†Çß3°ÀHÛÔ½XÍ}/äÌ-ñÅú«ŸÙ(ëošôZI|^–¸ÅVqPLH+Õ|ü:%Ȉÿ£¼!I¦,ç–¨0Ni;"–‹%ûûèˆáÖå ³xî¼a¾ö»¸Iº‰ò®X¾ÿóúÕü’wˆlˆ¹ò¿Šr²}µ¦½apÿ• ÷~/ÉðÚéçý¿è`¯YÛ}K_z®¼LÈźL'íBHúÜ:)Ï\¶íE^ùNôa>ão­Ú¿WRy1k Zix^’7}X\Xzy4^ÖoÃb«rÏswÃ~óúÀ:Êí?8×ø`òI#¡x’Â=î´ÛšF¶b7>&Ÿ l[äcdh׉¯3‚/cJ–ÅÑ’âòøŽkrÉ- ~êñ âí kŽ±÷·R8+Ó|^H|œö©e‹dêhíB†à¾I*w2eà+l© Oì0þ×E¹éŠRóÃŽXधÁÁæ²1Ip v‹ïŽŸaŠXÀuÞ±—.9¾2®‡«^:žpòño1æ-<z÷ù:½•sA!¥Œ;åQg}u^½zŒ‚«º8ÿüuzç"kÀs?]-¨^f·ï°¥=a˜÷aq/mpȺàhBþZ—X<,O«([E&•á ¼ÔÎê+§ˆòÁÜÒU;œ.µ[xUˆÏïÍè7†:‚¡¶SK¼~3çÊF†‚?æ=w£ü1¡_„Ÿ—æ׫„¥Jgë!¼k“ûžL;i÷þ¾û@žW€+v5økþñ¤phññë@âî“ùM0ëöÆnb»~¥ïÏ]tîöV¬~8èn?V¼Y}~L…ÐÁ.üÅÕ`”x7¹oŸŠñ§\/íçú[ž“ò=šø3}#[_ü|Ø8‹64à±ôÝ)_¯™æKI“h• - -'ÊXF¨€X©©ÿ•ÕâC`äÃ(Ü4‹œ”\ËÖQÓ£õªšWSÄB§ä_Ù"D€Rö“ ìѲônéx -Rµ -i³Â­HMU{â™Ù.Whv7|¯+¾Õó°-Ø`X½¦lý(q˜!ÛW½éô­®°DC¼›Ã²ˆè((¹Ô,‹þ=+DJ+˜ÁÐí8{*¹`a&¹Ï<'?ÓÁQªáZ½7íEyÕ§3t9XæÓ¥¥f®:yöpÌÌ©ÖR¹ËêF3ÌÏ GÀÙº‹?G”À!7„©ï>™u˜´[IÑ;ñèþØy¹»šŽ6ë…Å¿ ªr.Ì¡„÷K½ûæ7x)­ŒÆ@ïGdÄ¿æÑܶr0ïóYƒuŠŽà¥%wükl³#KÄ -Ñ+|¸•;üŸùð{àÑ5YÒõ]RMjÛéøf¹v×V+Ò¼¸þ-‡ ›¡ÞQxhVL¬pÜy$§ã!2^¹(äÄeÉ8–ÓKÊñ )Ö_¾fQýéópcçA;©£ãM -×dµ¿ -b­Ï›a•ã¬ÈZ``Z@—ô¥œæ™A]Kƒ¡ÊG…² L­V„øSÝý ®ñÔ{oÏ¥~ä¿ÌÔ±k±ý—Ø’=æAƒOG…™V\IEA -Uìäi -¥&µ‹)®67Ãêûî\œn:ß-êZêyP³C‘ª0¿’ãCcÒ6šIS¶ÙAd¾¦x–!Î’áw9@@°ÃÃJ—`ó«û¡{?mTæ0j©áñÿVäÍEšá²oyPÉ’&rfH«˜ãt@ÖÄD ý`lË®8Wëpéz€€àF㸠³üÖ]¢‡Ù£pÛ‰7Û†Ì؆6‹¾…”iVÎ2º[¸zEP££}[N-*º÷ðbˆ¦Kù¢âpGx¢:üSLLö]`Ø_¡CÊâ[^^ÐiÓxÛ*]ûôi»Ûð#43&­äb1Ûý#Ú;G¶ò•nmŸT$ímžjdLØxYlä&¾h´'¬9gƒc[º@àoŒ«‘†BëlÒgôf¯°2©ÖOîÔZ5/ô"Ò¦ Ê>6yâsLŠDÊa=6/†”2i|£âœök\F‹ä±ç`‘eÃwŠ`„Íä÷Ä·gL²“﯆%5 áð5'l÷þfGÄ'½x‘ò:? ÆUã¿PÊC³ŸÏÎ0^ '±§¢Ùß\$lÁGɺ'vCš©+@lqså5ëWçöW±sTXÁ§J°iÆÒpÂ%R„ ACQ¹¶_¥O…AÝa,1[ÎŒ>m´®í33t¹ gX¹Üõæœí•)87p¥ža·Ê ¤à4Ѩv‹z™ÊÇýô1É|qéÊøä‘}z!Z£Ø ‰.³è ìÑi©âgÅkä!^£OÓ·<(Çtêú¼-ÈBmhutïît‘Ûu9îìm#@l«]YØûHQê6ͦںGAüç´{2çڿzâíZ„ÿ¡P0ád=îžÔ-Ltê Q©Òy)ŸlZ7Ie -òu -%d›¹´èö$ -endstream -endobj -1955 0 obj -======= % 1980 0 obj << /Type /FontDescriptor @@ -45446,7 +27198,6 @@ endobj /FontFile 1979 0 R >> % 1982 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /GIODUE+CMR7 @@ -45524,11 +27275,7 @@ endobj endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1957 0 obj -======= 1991 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 2199 /Length2 18119 @@ -45700,11 +27447,7 @@ s Xjç ?ñi•zâDRuõêøsuaÑSÔàT­ÃßkÀ;¢ÝÖ§_‚Í+_2(ï*O¦¢Ÿ+5HM¢“¥Ê膽A1ë‹IYÚªÀl9%—d½~QŠc,óAeÃ[€Þ»wIÝ¢f(ß'BTn˜nŠ³g¶ôÿ endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1959 0 obj -======= 1994 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 1699 /Length2 10351 @@ -45811,11 +27554,7 @@ qO' ÔX¦Ç ë¾A±©µ ÷•©SÞt²•äoC‹Kžr 0ìE·½õ1”O®&é ò™\e;HË lüqάa]Ÿ´þ_i0yÏ4Þ ^2’™Óè0‘ endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1961 0 obj -======= 1996 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 2460 /Length2 17290 @@ -46003,11 +27742,7 @@ e s£7ƒæM9-‘ùÆìª@¯Ð®R³±îB#„:Þ‰À×£‚lÉV÷ÌŒÜeƒ¶üUw²ÚÄ¿J·"™1 ×C±W|M`¯/ˆ©ïÑÕn­Æ$è”õÎÓÏw³½íΛ_®×7SŸ£¬›¹¿ `²Îkss½Þ‰o1½,ÈíÂؽ„­IIøßÏäŠÁÖs>9y U.Ï&†²Ëï:Ü.mQG-+ñ´N‚êÌM¢91 endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -1963 0 obj -======= 1998 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Length1 1494 /Length2 2555 @@ -46069,585 +27804,6 @@ currentfile eexec ê6Å s*«%‰Soôõ'°eÖ绩òÄY¨­°) Œyà,Tàà´@Æ*z}òÔ\1±ì3©¤%ÑÍuÖ}jyÌ<=í/Þ ê6l§@CC³À \+ýÄFè!} †kåŠ9ÓI ”F _’›îW˜ùÚª+Ìš~Ø"'K²È["ŞР˜öººß4§³±]#)Ÿ±¥»ý l'ª¹iÓ¥Úì¡åj§I:]Ïe± '®{—°½åͲ™}ÃÏÙÀŸïü¶Ù|€+¾ÁÙn­ Ð³Î™Yçòé0ܬªs¦d¨u¦;?äDz~Å!À3È·gÒÎǯ^@œ³¼Üe¥Ã×xƒ¯òÔVa؉ýåH±aÄŽqO*K{ŸÚà¼Ú‰¼ó Ð%½8;'FJŠ`‰K¼»!-%l•ëR,áܽ†x!öòÅz¤÷á ‡óóCêB!ê1¾ß@÷¾ãùÍ K¾=\ßߪðb•(m¿Å4ôwÇPòZh6?@„L½C@²äÊ8uwç1ÆrÇ¿è¶ù©Ì$ïÊBóKÅ„ÂØ &Ì¡‰ç·Y5<1B îdlaà;À«9^¿'l„Hn,³ÛúºW˜÷ƒ{ÐÊY³µ¬Ô[œvñ -<<<<<<< HEAD:docs/psblas-3.6.pdf -endstream -endobj -1965 0 obj -<< -/Length1 1656 -/Length2 8404 -/Length3 0 -/Length 10060 ->> -stream -%!PS-AdobeFont-1.0: CMTT9 003.002 -%%Title: CMTT9 -%Version: 003.002 -%%CreationDate: Mon Jul 13 16:17:00 2009 -%%Creator: David M. Jones -%Copyright: Copyright (c) 1997, 2009 American Mathematical Society -%Copyright: (), with Reserved Font Name CMTT9. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/CMTT9 known{/CMTT9 findfont dup/UniqueID known{dup -/UniqueID get 5000831 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /KMUHVJ+CMTT9 def -/FontBBox {-6 -233 542 698 }readonly def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMTT9.) readonly def -/FullName (CMTT9) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch true def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 84 /T put -dup 97 /a put -dup 98 /b put -dup 99 /c put -dup 58 /colon put -dup 44 /comma put -dup 100 /d put -dup 101 /e put -dup 108 /l put -dup 110 /n put -dup 111 /o put -dup 112 /p put -dup 40 /parenleft put -dup 41 /parenright put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 95 /underscore put -dup 121 /y put -readonly def -currentdict end -currentfile eexec -ÙÖoc;„j²„¼ø°Aw-åÎ=Ó%åW˜)-{Ùr½uú•)¯œ‚ßröA•ÉÂÜãE(õ@Úý{ë¹´‡º“Q»û|ü_‘RÑå» -ØÐÆϤëA³Å -T@æ|ýq|Vk¹¿J% qu8P¢øwÄGx³ÅªÛ̆ÖåQæ¯6K üªÒ-UŒ\§Ô%¡bÕ"t-*ðxÔõöÓŸÏÿJ‘+ -}ì3¥{Zà2ŽùÕzݬT2sÀ$ZõÌÑ&{Bè–J×{¨¦Œß=מ0).ØnÁ¢ðBd^ö/¥!2-G×+~ò¦bÑ7³ Nø&lƒþdsõ˜á%o5·ð3N¸ûÍÐP±c9îU,”Y뱂0L²¿öç±Ê+OAÁd<¹Pgqíê‚!i\žhßx¤;B+üµX¹&ÜŸ)o²™ -û­¾aIñ`¥¦Aï.ËÁ…o_Å Ò‚«d™]Ùì©@s—p!ÃÛ×—;¿ù¿+üàî c¨M›)U *m¥žÁÒ‘¢4+o$¢U´ƒEc”E*­ü_G -‘õÊd.¬»U£Ó9ÏøöÚ¥#˜]æ8! —S}/a—§»¤«é"ÈöÒ48EV< >™N;œ¶ÓžÜåö½[9Ë“!¥"¤k_‹Ó†$RÑÓbÕ˜ÑgÅó ÉuŽx¨ÓVMhìÔL$3P˜ÛíÒÙy»5œ¬,¿o"Ð7'ˆçº*íE¤„<±ZÿÓé§c»ñªÍb8r$`FÀäÞ§/±úröôí¼…ÝøÂ]€“:BõóåI\$~—=Ô‘¢´ê€Ïˆƒ·¢Ž˜ÙËøȜȿ!äê–²Á±QÀ´S*_LÎyäXÊg*½!#B;Fdyú9 vF.ºxÂ&WÜ€ÏçÒc‰K[Òé¾­újô­ -ƒÜñ ²ßTœ-hj¸˜ÔÀ’:Ö²êÌbcÅÓ¢xù~Ðgk0š^£Z–]Ψ´&Œ33gŒñ3æêwm2÷ÀŽpBŒœIÌ€‰:~q¬Fà邉u<Ý^ðIE=Ï*ÑJÐ.­Zw†Òcî3Ö8ìY±Ö.1jKAs;¹¥ðÄ»Ž÷`ÎR^ÔyCQ4y»ˆŽÞÈå ¶Ç&{uðQgF -Ð¥vl²P¡ï¸©°¢ÌÁÀ -ÊeçÄ=Gylw -x]v¤ºŠ£&ú¿o9f·ÚiQ¼p´ÂÅÞÑymQÔrijËFÛ\ÍÀUBuª :sé燭™„Çy7ë䢼R'åT½‰»…ÐÐ{crœ/ðbìŠzfuÌyõ¸ÞÆ-_KýhÚ~ž sö‘£¬¸Ó­>a(—z•–‹fz!#ý¦…vÝZu¼ßZæ"VÃUEÉŸúw­øý-ô@»ã é¶Ùi äûaI+˜ RêÌ¿±P–ÿ¦¾;X¼C 6e½ë›À+îj‰e×Ê[µÀ7ñö-^j’¢â[ïÚ -g‰Ž°9‹‰3­ ØÃ…ÆD©Á’ùˆ‰ c% ±¸Ø™Ûy¯JC=©zê”íÒ[t v™™”Ê©>‚VæÅ3¨m™ÿ®9Á‚ð=Wp¦ˆ+ãlÖÁnׇ3g ¨#7Æ:ÊQÁ@µP~Ò-ìu@Ó±DïV\sS©’;þx; -ƒJ®¬Ï ®'p—ò -ºy?Ìþ^CÉõòùI ¶$HGY tÓ` „é\ÛLœj%ýf¬œÎxÇéìS›ÚŒrìÝܾ¨0þ;=žl;°äÀ MÑI>o Céµ" - mÆÞ³»ôªI•^:ÊO|¿u.^âÑNçuóœwb`ìÑ9º5>²¤øÞdJJ… °Äð0íôóX¦ðÉpöŸ[ÎtóÝàÉuè^%ئò`'õ -0T¡ I{ …6j=¡úÌwŠØ ɽ¥¿Ú‰»ËÅ7†øȘý¾ÏÛìÅùÚ:{ú¦©õŸº‡?lH´¼™)ò—ç8O®f¤¢mXn,Š³˜Ëß— Pš½iiþØÉ]X&•íBûx{˜5ǬfE¾ˆÞ®¾DtàçzÖ9nËy¡B…ÅÄ ›ãt+ ä4ŒˆþÊ, p×$¢@x&ý|ïĨ4H~4îŒJ7¨B‚àš<¢›Ð«C±ÉPæÐœÁ}uzèÂ|÷gÃr-š: èuäó¡ôà[ÃDè\; } ±bUûIS{™É27Ú=ñ©Òì FB›k„Þ' -¦ç€ ‡.~"ÄÈôätŸíOz-3RûŠæÙ·ZÍ[——‘“&ÒãÉhDþ÷|°AQßGCH :\'Š¸`aуã2¹ö{=o >uÐ&Ž0ý¹ß»”;e†®01]VÎÅ2c¨ø¤œŽ³`š †“CÄJ1/ŸÑL¯Wþ ˜Yckɲ¤¤‰Ð õÃ}c§8ÚLC|¨±Ågƒ%¼Y«9.Œ‘òµ?›óš»e‰²Ð+€‚ÕÃPÒöïI4,}# yE؇™ö]%TÌ>ÌýƒðÚ},ÁS ¤!*Á.ó¤ “˜v˜tåÐ7†÷ó[O·£Â±Rø«Y¶‡†Éìõ–SœSÔª5Õžl+>ÍŽ¼±¸l6¯åU®Yºï©'­¨ù_¢p%ï=°ü]^:k2 Åb¿3Ò²vu\þƒ—k!š†®çnúõ2Ì‹ƒ@Q‘*vÑ}Ô5z3màØšò/Æõ¨¯³¬Ÿ´_‰ó~¿éÐGfðG쪑“4”‚,¥­‹ê=¦5ûø%¡Ú¹]äEHŠfnÉÛ€x‹ÆR´òúŸL/'¹ 7.œ·ãñe÷Ͻ§„¯‡‡aÒG}å…èÂr²¡ -~÷) «]<$•ð¯2uµ¤<ýv<ò×NP|¢AÈüGk¤Ì .PY­ÆÑÓO;¨»½BRœ)­©o¬éVê°ÃðSþæ<Ä‚˜;aÅQ1Œuz0ˆKÄ%RÉvng;‘{®võk«ÅîÐä~؉nË^…‰À8@Þ»ªYö·Õ¸(Ø®xðÙ•(tÇ&XYò-»­7*«ò0ïx“)ÌEîtC¿w;ga"15Ä][f³l. àèZæ¤ÌIbŽgÕswàT&«©¦Z̸ý)D…H­†tªe ¶Ì6¢¸ ~Â5÷׶?œØ® ´ÏÇûáÁÂßkˆä…r.)¶•l´ö¡•Èx_²?ˆQ­WÑ32…š(l¨ãë ŠæÑ|O×b-F–çÑ].–®RPD”<Ô±ãDûOàD¸›]D®ÂL=/å™È¢ÀõÁKîÇõ­°¤`ÖàÉFƒgQ_ÊI -ânûqP¯»º·«_(˜gØGK&mĺt¸zÂéü­_ªo ×`4§z4¤-71kïds•w¨\x ZŸ’8´ éy\™šR¶¢ßÒìðÏlÌ@Ô€Û›…óÜæµ´$¨¯ðÍ#‹ÉÂa'·{Ô‚i³~KljÑåVBîñî“zU´/X1 S¡äq=¸þh&7uó«GôV¨èA_ÔÁ3ÄMüùâá~Â^…›tæ0‡²G&<ÇÈûÔו}Òðøh޵Ëäú0„ɤcÙÒ°ë•>„¶ô‘o6ˆ½)ß{QB”¬X[#ÞCÄI3jƒþeó’ˆ/N€ŸºUX+¤ëÖ`‡è‘"ŠP[\ûàƒºäAXºa|i¤–” Hn­k¹,· Ó? ‘J_y3^ÂcÍø}|at½ ü<â;1v’@¡Þ{EÒ¬«ÈË š¢Á/šEì7+?`µÔ+7ÂTԘɈ/¢Ÿ~£2’¢Fe匊·I›ó5)S®XÙvNŠ´eƒœ“…È BÒ®¿my‰Ä_1Ö4tüÅñí ÷Ôl—0w–ÿ -3Kq -TâùÜÏ­ÌÃ\¬Ó¼zlª‡]%b¥pýgÜ7G)½tâ°[àV‰ÑN¡¾Øþ~ÇO^¦‡˜çŒÔ v`Š«üv`чm -ňX h¸¨ý—>r±¿:ƒ9e1SôNCìà$cæØø% ‰Ìõ$¦,T¡M2ŠÏCOÝüV¡eŸ=•øÇS7áu£•_„{xœ •Ú$ì:#Zòi¾1ʇªlœ y ö^|Qûž¡°Lψc¿&ÐHn’)Ü ϨÊùÈ|heÃÝ À}ñ›IøºMÏô¢Ç•WÕð*+-Z¬ëß,dÞªyf¡¨mvÔ›]t þ;`Úo´Ø]”ŠWH¬°íàYÝ}'PN`ºSuBf$,ïÕ•ÓLöÔäó·=úwm³0mVÔå –l™ ˆTOnt£6×M"X˃ãöq¼åDŽf0Êms9?Äžš_šæmnH`ãA…A×mÒšº -ÖÜ­“a’èŒîjfnÌUØÛ™ŒÃCž›¹a£t·/ŒÜçÄæ½òvÛÜ×ßÚPqE$NP^_Ù…‚dùèv±¸ö§"TŸC[ þ¿|¨½¦wÒ1|7ô—B%Óÿ¶èf‚£W­"dÀá6QIa½÷Ò†ÅE.á<¾SiœùÁ—Õ™)Õ+µž Ì%ÐÅ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Ü…­¦Š¤ˆFl L 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'rÇo+&ßw—@^élåÿ2Ü?½JVS…åVBîç]üžG ¿Ìû•©µÉGï ¯OÚ¡=wf X`¬N²ño{‚PIlY°dfoêY½ L?Å! íb'UL%l±Ÿ tdNXF;Mv&¬ì»Dà Eäc#‹ÈïG¨K™öøúžâˆ‚ ‹_-ÖL‹ÝŸG¥þö¦’'æÑr‘ª )êŠÞÈÐà~O÷*ê† -“ƨµ„éŸ01SÚ7<¶¢ä¬Q¨ÞèÂಸ½*ÓL"ž+l²k÷:zë@°N_ŒqNªyàF@UZÙW0bBÿk/³ÑÏ«h:»ôýp!L^9<ÔË,ÈÁ_–,&_x^1;ØÔt¶å,_ÌàÎ -Qn1:ü .>úàÿî…ý4S†,ß -K2~ŠGLU3‡]º¦÷Œ¼¾q/GÑ­…FLmι?qˆ9Or‡‡-½s*|ëý°Vô;ÙQ†Ž>ÈWaPÁãyè¾Ö -¨õ²¾Œ!×È?9%÷´ž­ýÞ%ç: ¸f²Ô2h~å†ì·²ðžVÖÞFI#ÜOvÞÝŒ¸E4r +Ž]ÇÚÊa見3pƒ<ÇG¬~tl3Hh^Ä0Ïɯk˜Z¸®Õ< -ö/Îê(˦¾@¨Êè¼'bÀSi\)N»ü¢LúÌeÿ–ImzGÚHã)¶Ëô(»8ªå+°PdTMÎN&çЦ‰&C÷‹|ÖÖ_]ÜÜ -Œo™qh– oŠL7|¨Î.2ñ9ØË*!“ÛA®Ê†­RŒiV£iëß1qc‚Œ8¦—°Ó÷à#¨B°âUö9ŽMKEúVþP¶»›®õ'ÆO|еÒÀ= ; -ýÏl2¦âYLë|Z¸ëÉsÍŸdó|*.K4éËœm ­”»¤åX¥c{G¹dpñH³Jx ¡Ü÷F¨«4VMw–/óÈTÆ•S$øE0¹Ê}ŠŽXZj°Ò$"È#´NöJFF’Šè> -RòÖ¿bOªˆ]­ÂóÜØk;èeE2ôóeÌiÙ0é‡gªÂ©X}í aUå —j•ª¼Â†U…*ܤ泔üÞ½¡“ûè'ó´ö[œÃ¬£óÄÍ ¡˜IÄ86´®Ö>SàÑ©ÄjÑO&“¸Ô@;_ꛪ ï1¶,üé0‘gdöÃ3 r¨¸(×L”]iRëlWŠÔ’±ÄX´.ˆåƒðîõô›aAÞ¤eã‚…~#‹~>ý v>x›4º],î¨^­fÌ÷{kµ«ÄoO\ŒAü°ãY<é|/ˆüŸd¸!nt*ßôHNy*sk@å–@"JQ‹óx-mYw_ÃÐM Tnlÿ­Y>½ˆ©¿µ(aO,QÊeJ± ï’ ;Ï™•bŒÅÙ¡A“þÔ𚔿\—¨Úù¢Ú¶ÊïRË,ÍÝ„?NýU÷™„÷Ì~×÷Sø-!ðåz˜Ì׶ý‹¼Â$OÒƒ'–µS;?¹;ùb†a.Ô% Ó³@ÛðïÊËžåX{ëÙ­ÝñÓÉãV¥£ŸŽ?-ú.=xMÖšÒòJä•ímPPÞí{# 'ÞÞÙ½¾ðàiDåšÛL¸TIÄ_}¤g·Ù [Vé¸,á -)”ñO¾¨ÙÐŽúøÄK ƒ_̤VBôEè öigd¡#A\&Ž–Ò飢„DË#JÊÞZcf¼ÄW­U^å*WBç·lŸ£_AØI-a ¼)¾5¾Ùðˆ©³|›%X·³¹óõΗøš(‘ÊVp<”O¯â)APk¬'{îÈ丂ó­Àâh#PíxãeAT˜Yt›wÈt´D¢—ªã#¹ ‘Gt´úH|T|„®oÔøaµ,¸j©-Ñ÷ÔAþÑ8o½”‘FµöÕ*ŠTÇ7Ô7t›'<¤Jíøø×¼»ÓÆ£KKjšÆ]ûã!À“¥!ÈÐ7»Öpê]zù#ð8î±ìîââóƒßý…N|ŽÌ¸¶6·Ž¬ãcF!À‚ºÂ—ëÆ'`eÈM‚o°¨Hª£['>QˆFë07Ü"W›ueÑÝ ŠÛdDŒÎØ©– ›õŠ ÈR§Ýæ#æ 52"Tû&DmIÅJºËï1{@iö6KQÎ>D[ê>2@¤÷ìñ„‘']}Uopż\š‘îm²ÃGŸå^tUäp¹ nðþ¨oðq¼;€#ù[ô¾u -e¦x˜à³ -cEÃCêÃkÝâ y9Ú·Ò‡½VVןÜ/"™ CÇÍ—4§*78€*`Š1Þ©ñ©Sî2 ·¨Q8Iù&ʺ3Ýf7Ä3«üus¡>ÍXgÜéì*ùº#zˆi'ô“$îƒZáÆYßH2æÙ|™œÊóˆ?¶ÿc^¡øå2•sK„ʇÄæXØûcERNpeëºv5ÅE–>åûy\ñï1ù€`ÀkÝi~~÷B¾¯,ùÝÅâ ðÍ -§Öga!.ΘÍþâ:Øâܨ+. -endstream -endobj -1887 0 obj -<< -/Type /ObjStm -/N 100 -/First 1000 -/Length 20689 ->> -stream -1870 0 1880 147 1881 289 1882 433 1886 579 1883 637 1890 756 1888 895 1892 1039 1889 1098 -1894 1204 1896 1322 1897 1380 754 1438 1898 1495 805 1552 804 1609 760 1666 761 1723 777 1780 -757 1837 758 1894 1899 1951 753 2009 1900 2066 1893 2124 1903 2217 1905 2335 917 2394 792 2452 -759 2510 756 2568 752 2626 755 2684 1906 2742 1902 2801 1907 2894 1908 2939 1909 3078 1910 3265 -1911 3759 1912 4088 1913 4431 1914 4560 1915 4581 1916 5087 1917 5132 1918 5822 1919 6150 1920 6231 -1921 6606 1922 7243 1923 7902 1924 8525 1925 9169 1926 9454 1928 10102 1930 10532 1932 10959 1934 11208 -1936 11450 1938 11784 1940 12001 1942 12240 1944 12462 1946 12999 1948 13236 1950 13484 1952 13866 1954 14232 -1956 14571 1958 14802 1960 15175 1962 15438 1964 15917 1966 16149 572 16433 570 16574 1721 16715 1695 16856 -770 16998 817 17139 786 17280 1879 17420 573 17560 788 17700 785 17838 790 17976 1270 18115 787 18255 -1140 18395 750 18534 571 18675 784 18816 846 18957 982 19097 574 19237 751 19350 847 19463 902 19576 -% 1870 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 655.098 361.779 666.223] -/A << /S /GoTo /D (precdata) >> ->> -% 1880 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [347.301 585.075 423.355 596.2] -/A << /S /GoTo /D (vdata) >> ->> -% 1881 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [347.301 515.052 423.355 526.177] -/A << /S /GoTo /D (vdata) >> ->> -% 1882 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [294.721 375.006 361.779 386.13] -/A << /S /GoTo /D (descdata) >> ->> -% 1886 0 obj -<< -/D [1884 0 R /XYZ 98.895 753.953 null] ->> -% 1883 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R /F14 787 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1890 0 obj -<< -/Type /Page -/Contents 1891 0 R -/Resources 1889 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1857 0 R -/Annots [ 1888 0 R ] ->> -% 1888 0 obj -<< -/Type /Annot -/Subtype /Link -/Border[0 0 0]/H/I/C[1 0 0] -/Rect [398.111 555.472 474.165 566.597] -/A << /S /GoTo /D (vdata) >> ->> -% 1892 0 obj -<< -/D [1890 0 R /XYZ 149.705 753.953 null] ->> -% 1889 0 obj -<< -/Font << /F27 572 0 R /F8 573 0 R /F30 784 0 R /F11 770 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1894 0 obj -<< -/Type /Page -/Contents 1895 0 R -/Resources 1893 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1901 0 R ->> -% 1896 0 obj -<< -/D [1894 0 R /XYZ 98.895 753.953 null] ->> -% 1897 0 obj -<< -/D [1894 0 R /XYZ 99.895 724.062 null] ->> -% 754 0 obj -<< -/D [1894 0 R /XYZ 99.895 699.619 null] ->> -% 1898 0 obj -<< -/D [1894 0 R /XYZ 99.895 643.15 null] ->> -% 805 0 obj -<< -/D [1894 0 R /XYZ 99.895 588.618 null] ->> -% 804 0 obj -<< -/D [1894 0 R /XYZ 99.895 534.087 null] ->> -% 760 0 obj -<< -/D [1894 0 R /XYZ 99.895 479.555 null] ->> -% 761 0 obj -<< -/D [1894 0 R /XYZ 99.895 436.978 null] ->> -% 777 0 obj -<< -/D [1894 0 R /XYZ 99.895 394.402 null] ->> -% 757 0 obj -<< -/D [1894 0 R /XYZ 99.895 351.272 null] ->> -% 758 0 obj -<< -/D [1894 0 R /XYZ 99.895 308.696 null] ->> -% 1899 0 obj -<< -/D [1894 0 R /XYZ 99.895 266.119 null] ->> -% 753 0 obj -<< -/D [1894 0 R /XYZ 99.895 223.543 null] ->> -% 1900 0 obj -<< -/D [1894 0 R /XYZ 99.895 180.966 null] ->> -% 1893 0 obj -<< -/Font << /F16 570 0 R /F8 573 0 R /F17 750 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1903 0 obj -<< -/Type /Page -/Contents 1904 0 R -/Resources 1902 0 R -/MediaBox [0 0 595.276 841.89] -/Parent 1901 0 R ->> -% 1905 0 obj -<< -/D [1903 0 R /XYZ 149.705 753.953 null] ->> -% 917 0 obj -<< -/D [1903 0 R /XYZ 150.705 716.092 null] ->> -% 792 0 obj -<< -/D [1903 0 R /XYZ 150.705 688.251 null] ->> -% 759 0 obj -<< -/D [1903 0 R /XYZ 150.705 632.184 null] ->> -% 756 0 obj -<< -/D [1903 0 R /XYZ 150.705 590.562 null] ->> -% 752 0 obj -<< -/D [1903 0 R /XYZ 150.705 544.789 null] ->> -% 755 0 obj -<< -/D [1903 0 R /XYZ 150.705 512.909 null] ->> -% 1906 0 obj -<< -/D [1903 0 R /XYZ 150.705 480.475 null] ->> -% 1902 0 obj -<< -/Font << /F8 573 0 R /F17 750 0 R /F30 784 0 R >> -/ProcSet [ /PDF /Text ] ->> -% 1907 0 obj -[757.3 871.7 778.7 672.4 827.9] -% 1908 0 obj -[575.2 657.4 525.9 657.4 543 361.6 591.7 657.4 328.7 361.6 624.5 328.7 986.1 657.4 591.7 657.4 624.5 488.1 466.8 460.2 657.4] -% 1909 0 obj -[1444.5 1277.8 555.6 1111.1 1111.1 1111.1 1111.1 1111.1 944.5 1277.8 555.6 1000 1444.5 555.6 1000 1444.5 472.2 472.2 527.8 527.8 527.8 527.8 666.7 666.7 1000 1000 1000 1000] -% 1910 0 obj -[285.5 399.7 399.7 513.9 799.4 285.5 342.6 285.5 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 513.9 285.5 285.5 285.5 799.4 485.3 485.3 799.4 770.7 727.9 742.3 785 699.4 670.8 806.5 770.7 371 528.1 799.2 642.3 942 770.7 799.4 699.4 799.4 756.5 571 742.3 770.7 770.7 1056.2 770.7 770.7 628.1 285.5 513.9 285.5 513.9 285.5 285.5 513.9 571 456.8 571 457.2 314 513.9 571 285.5 314 542.4 285.5 856.5 571 513.9 571 542.4 402 405.4 399.7 571 542.4 742.3 542.4 542.4 456.8] -% 1911 0 obj -[892.9 339.3 892.9 585.3 892.9 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 585.3 585.3 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 892.9 1138.9 1138.9 892.9 892.9 1138.9 1138.9 585.3 585.3 1138.9 1138.9 1138.9 892.9 1138.9 1138.9 708.3 708.3 1138.9 1138.9 1138.9 892.9 329.4 1138.9] -% 1912 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] -% 1913 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] -% 1914 0 obj -[533.6] -% 1915 0 obj -[413.2 413.2 531.3 826.4 295.1 354.2 295.1 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 295.1 295.1 295.1 826.4 501.7 501.7 826.4 795.8 752.1 767.4 811.1 722.6 693.1 833.5 795.8 382.6 545.5 825.4 663.6 972.9 795.8 826.4 722.6 826.4 781.6 590.3 767.4 795.8 795.8 1091 795.8 795.8 649.3 295.1 531.3 295.1 531.3 295.1 295.1 531.3 590.3 472.2 590.3 472.2 324.7 531.3 590.3 295.1 324.7 560.8 295.1 885.4 590.3 531.3 590.3 560.8 414.1 419.1 413.2 590.3 560.8 767.4 560.8 560.8] -% 1916 0 obj -[611.1 611.1 611.1 611.1 611.1] -% 1917 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 762 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 750 833.3 416.7 666.7 666.7 777.8 777.8 444.4] -% 1918 0 obj -[339.3 892.9 585.3 892.9 585.3 610.1 859.1 863.2 819.4 934.1 838.7 724.5 889.4 935.6 506.3 632 959.9 783.7 1089.4 904.9 868.9 727.3 899.7 860.6 701.5 674.8 778.2 674.6 1074.4 936.9 671.5 778.4 462.3 462.3 462.3 1138.9 1138.9 478.2 619.7 502.4 510.5 594.7 542 557.1 557.3 668.8 404.2 472.7 607.3 361.3 1013.7 706.2] -% 1919 0 obj -[569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 569.5 323.4] -% 1920 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] -% 1921 0 obj -[639.7 565.6 517.7 444.4 405.9 437.5 496.5 469.4 353.9 576.2 583.3 602.6 494 437.5 570 517 571.4 437.2 540.3 595.8 625.7 651.4 622.5 466.3 591.4 828.1 517 362.8 654.2 1000 1000 1000 1000 277.8 277.8 500 500 500 500 500 500 500 500 500 500 500 500 277.8 277.8 777.8 500 777.8 500 530.9 750 758.5 714.7 827.9 738.2 643.1 786.3 831.3 439.6 554.5 849.3 680.6 970.1 803.5 762.8 642 790.6 759.3 613.2 584.4 682.8 583.3 944.4 828.5 580.6 682.6 388.9 388.9 388.9 1000 1000 416.7 528.6 429.2 432.8 520.5 465.6 489.6 477 576.2 344.5 411.8 520.6 298.4 878 600.2 484.7 503.1 446.4 451.2 468.8 361.1 572.5 484.7 715.9 571.5 490.3 465.1] -% 1922 0 obj -[613.3 562.2 587.8 881.7 894.4 306.7 332.2 511.1 511.1 511.1 511.1 511.1 831.3 460 536.7 715.6 715.6 511.1 882.8 985 766.7 255.6 306.7 514.4 817.8 769.1 817.8 766.7 306.7 408.9 408.9 511.1 766.7 306.7 357.8 306.7 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 511.1 306.7 306.7 306.7 766.7 511.1 511.1 766.7 743.3 703.9 715.6 755 678.3 652.8 773.6 743.3 385.6 525 768.9 627.2 896.7 743.3 766.7 678.3 766.7 729.4 562.2 715.6 743.3 743.3 998.9 743.3 743.3 613.3 306.7 514.4 306.7 511.1 306.7 306.7 511.1 460 460 511.1 460 306.7 460 511.1 306.7 306.7 460 255.6 817.8 562.2 511.1 511.1 460 421.7 408.9 332.2 536.7 460 664.4 463.9 485.6] -% 1923 0 obj -[583.3 555.6 555.6 833.3 833.3 277.8 305.6 500 500 500 500 500 750 444.4 500 722.2 777.8 500 902.8 1013.9 777.8 277.8 277.8 500 833.3 500 833.3 777.8 277.8 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 472.2 472.2 777.8 750 708.3 722.2 763.9 680.6 652.8 784.7 750 361.1 513.9 777.8 625 916.7 750 777.8 680.6 777.8 736.1 555.6 722.2 750 750 1027.8 750 750 611.1 277.8 500 277.8 500 277.8 277.8 500 555.6 444.4 555.6 444.4 305.6 500 555.6 277.8 305.6 527.8 277.8 833.3 555.6 500 555.6 527.8 391.7 394.4 388.9 555.6 527.8 722.2 527.8 527.8 444.4 500] -% 1924 0 obj -[670.8 638.9 638.9 958.3 958.3 319.4 351.4 575 575 575 575 575 869.4 511.1 597.2 830.6 894.4 575 1041.7 1169.4 894.4 319.4 350 602.8 958.3 575 958.3 894.4 319.4 447.2 447.2 575 894.4 319.4 383.3 319.4 575 575 575 575 575 575 575 575 575 575 575 319.4 319.4 350 894.4 543.1 543.1 894.4 869.4 818.1 830.6 881.9 755.6 723.6 904.2 900 436.1 594.4 901.4 691.7 1091.7 900 863.9 786.1 863.9 862.5 638.9 800 884.7 869.4 1188.9 869.4 869.4 702.8 319.4 602.8 319.4 575 319.4 319.4 559 638.9 511.1 638.9 527.1 351.4 575 638.9 319.4 351.4 606.9 319.4 958.3 638.9 575 638.9 606.9 473.6 453.6 447.2 638.9 606.9 830.6 606.9 606.9 511.1 575 1150] -% 1925 0 obj -[726.9 688.4 700 738.4 663.4 638.4 756.7 726.9 376.9 513.4 751.9 613.4 876.9 726.9 750 663.4 750 713.4 550 700 726.9 726.9 976.9 726.9 726.9 600 300 500 300 500 300 300 500 450 450 500 450 300 450 500 300 300 450 250 800 550 500 500 450 412.5 400 325 525 450 650 450 475] -% 1926 0 obj -[625 625 937.5 937.5 312.5 343.7 562.5 562.5 562.5 562.5 562.5 849.5 500 574.1 812.5 875 562.5 1018.5 1143.5 875 312.5 342.6 581 937.5 562.5 937.5 875 312.5 437.5 437.5 562.5 875 312.5 375 312.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 562.5 312.5 312.5 342.6 875 531.2 531.2 875 849.5 799.8 812.5 862.3 738.4 707.2 884.3 879.6 419 581 880.8 675.9 1067.1 879.6 844.9 768.5 844.9 839.1 625 782.4 864.6 849.5 1162 849.5 849.5 687.5 312.5 581 312.5 562.5 312.5 312.5 546.9 625 500 625 513.3 343.7 562.5 625 312.5 343.7 593.7 312.5 937.5 625 562.5 625 593.7 459.5 443.8 437.5 625 593.7 812.5 593.7 593.7 500 562.5 1125] -% 1928 0 obj -<< -/Type /FontDescriptor -/FontName /RAJOBS+CMBX10 -/Flags 4 -/FontBBox [-56 -250 1164 750] -/Ascent 694 -/CapHeight 686 -/Descent -194 -/ItalicAngle 0 -/StemV 114 -/XHeight 444 -/CharSet (/A/B/C/D/E/F/G/H/I/J/L/M/N/O/P/R/S/T/U/V/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/ff/ffi/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/period/q/quoteright/r/s/seven/six/t/three/two/u/v/w/x/y/z/zero) -/FontFile 1927 0 R ->> -% 1930 0 obj -<< -/Type /FontDescriptor -/FontName /BWDLNI+CMBX12 -/Flags 4 -/FontBBox [-53 -251 1139 750] -/Ascent 694 -/CapHeight 686 -/Descent -194 -/ItalicAngle 0 -/StemV 109 -/XHeight 444 -/CharSet (/A/B/C/D/E/F/G/H/I/K/L/M/N/O/P/Q/R/S/T/U/V/W/a/b/c/d/e/eight/emdash/endash/f/ffi/fi/five/four/g/h/hyphen/i/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 1929 0 R ->> -% 1932 0 obj -<< -/Type /FontDescriptor -/FontName /VUBHOM+CMBX9 -/Flags 4 -/FontBBox [-58 -250 1195 750] -/Ascent 694 -/CapHeight 686 -/Descent -194 -/ItalicAngle 0 -/StemV 117 -/XHeight 444 -/CharSet (/a/b/c/d/e/f/g/h/i/l/n/o/q/r/s/t/u) -/FontFile 1931 0 R ->> -% 1934 0 obj -<< -/Type /FontDescriptor -/FontName /OUFNAH+CMEX10 -/Flags 4 -/FontBBox [-24 -2960 1454 772] -/Ascent 40 -/CapHeight 0 -/Descent -600 -/ItalicAngle 0 -/StemV 47 -/XHeight 431 -/CharSet (/radicalBigg/summationdisplay) -/FontFile 1933 0 R ->> -% 1936 0 obj -<< -/Type /FontDescriptor -/FontName /HKHZAC+CMMI10 -/Flags 4 -/FontBBox [-32 -250 1048 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 72 -/XHeight 431 -/CharSet (/A/C/D/G/I/L/N/O/P/Q/T/U/X/a/alpha/b/beta/c/comma/d/e/f/g/greater/i/j/k/l/less/m/n/o/p/period/r/s/slash/t/u/v/w/x/y/z) -/FontFile 1935 0 R ->> -% 1938 0 obj -<< -/Type /FontDescriptor -/FontName /RVPZIX+CMMI5 -/Flags 4 -/FontBBox [37 -250 1349 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 90 -/XHeight 431 -/CharSet (/i) -/FontFile 1937 0 R ->> -% 1940 0 obj -<< -/Type /FontDescriptor -/FontName /ZUYGVH+CMMI7 -/Flags 4 -/FontBBox [-1 -250 1171 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 81 -/XHeight 431 -/CharSet (/H/I/T/a/comma/i/j/k/m/n) -/FontFile 1939 0 R ->> -% 1942 0 obj -<< -/Type /FontDescriptor -/FontName /ZOAUSA+CMMI8 -/Flags 4 -/FontBBox [-24 -250 1110 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 78 -/XHeight 431 -/CharSet (/C/F/G) -/FontFile 1941 0 R ->> -% 1944 0 obj -<< -/Type /FontDescriptor -/FontName /SEWPRR+CMR10 -/Flags 4 -/FontBBox [-40 -250 1009 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle 0 -/StemV 69 -/XHeight 431 -/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/c/colon/comma/d/e/eight/endash/equal/f/ff/ffi/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/percent/period/plus/q/quotedblleft/quotedblright/quoteright/r/s/semicolon/seven/six/slash/t/three/two/u/v/w/x/y/z/zero) -/FontFile 1943 0 R ->> -% 1946 0 obj -<< -/Type /FontDescriptor -/FontName /UJRPBG+CMR6 -/Flags 4 -/FontBBox [-20 -250 1193 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle 0 -/StemV 83 -/XHeight 431 -/CharSet (/five/four/one/three/two) -/FontFile 1945 0 R ->> -% 1948 0 obj -<< -/Type /FontDescriptor -/FontName /GIODUE+CMR7 -/Flags 4 -/FontBBox [-27 -250 1122 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle 0 -/StemV 79 -/XHeight 431 -/CharSet (/colon/five/four/one/three/two/zero) -/FontFile 1947 0 R ->> -% 1950 0 obj -<< -/Type /FontDescriptor -/FontName /HFTEUS+CMR8 -/Flags 4 -/FontBBox [-36 -250 1070 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle 0 -/StemV 76 -/XHeight 431 -/CharSet (/B/G/I/L/N/O/P/T/X/a/b/c/colon/comma/d/e/eight/f/five/four/g/h/hyphen/i/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/r/s/seven/six/slash/t/three/two/u/v/w/x/y/zero) -/FontFile 1949 0 R ->> -% 1952 0 obj -<< -/Type /FontDescriptor -/FontName /KKURMF+CMR9 -/Flags 4 -/FontBBox [-39 -250 1036 750] -/Ascent 694 -/CapHeight 683 -/Descent -194 -/ItalicAngle 0 -/StemV 74 -/XHeight 431 -/CharSet (/B/G/I/L/O/P/X/a/b/c/comma/d/e/eight/equal/f/five/four/g/h/i/m/n/nine/o/one/p/parenleft/parenright/period/quoteright/r/s/seven/six/t/three/two/u/x/z/zero) -/FontFile 1951 0 R ->> -% 1954 0 obj -<< -/Type /FontDescriptor -/FontName /IMOIOS+CMSY10 -/Flags 4 -/FontBBox [-29 -960 1116 775] -/Ascent 750 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 40 -/XHeight 431 -/CharSet (/B/H/I/arrowleft/bar/bardbl/braceleft/braceright/bullet/element/greaterequal/lessequal/minus/negationslash/radical/section) -/FontFile 1953 0 R ->> -% 1956 0 obj -<< -/Type /FontDescriptor -/FontName /XNLILI+CMSY7 -/Flags 4 -/FontBBox [-15 -951 1251 782] -/Ascent 750 -/CapHeight 683 -/Descent -194 -/ItalicAngle -14 -/StemV 49 -/XHeight 431 -/CharSet (/infinity/minus) -/FontFile 1955 0 R ->> -% 1958 0 obj -======= endstream endobj 2000 0 obj @@ -46779,7 +27935,6 @@ stream 490 10227 486 10301 482 10389 478 10477 474 10565 470 10653 466 10741 462 10829 458 10917 454 11005 450 11093 446 11181 442 11269 438 11357 434 11445 430 11533 426 11621 422 11695 418 11821 414 11895 % 1992 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /HBJLDT+CMTI10 @@ -46792,15 +27947,9 @@ stream /StemV 68 /XHeight 431 /CharSet (/A/B/C/D/E/F/G/I/L/M/N/O/P/R/S/T/U/V/a/b/c/colon/d/e/f/ff/fi/five/g/h/hyphen/i/j/l/m/n/nine/o/one/p/period/q/quoteright/r/s/slash/t/three/two/u/v/w/x/y/zero) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile 1957 0 R ->> -% 1960 0 obj -======= /FontFile 1991 0 R >> % 1995 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /OZJPZO+CMTI12 @@ -46813,15 +27962,9 @@ stream /StemV 63 /XHeight 431 /CharSet (/A/B/L/P/S/a/b/c/d/e/f/g/h/i/l/n/o/p/r/s/t/u/y) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile 1959 0 R ->> -% 1962 0 obj -======= /FontFile 1994 0 R >> % 1997 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /TJSMYH+CMTT10 @@ -46834,15 +27977,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/o/one/p/parenleft/parenright/percent/period/plus/q/r/s/six/slash/t/three/two/u/underscore/v/w/x/y/z/zero) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile 1961 0 R ->> -% 1964 0 obj -======= /FontFile 1996 0 R >> % 1999 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /HZGQIC+CMTT8 @@ -46855,15 +27992,9 @@ stream /StemV 76 /XHeight 431 /CharSet (/b/c/e/i/l/n/p/r/s/t) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile 1963 0 R ->> -% 1966 0 obj -======= /FontFile 1998 0 R >> % 2001 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /FontDescriptor /FontName /KMUHVJ+CMTT9 @@ -46876,170 +28007,83 @@ stream /StemV 74 /XHeight 431 /CharSet (/T/a/b/c/colon/comma/d/e/l/n/o/p/parenleft/parenright/r/s/t/underscore/y) -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontFile 1965 0 R ->> -% 572 0 obj -======= /FontFile 2000 0 R >> % 584 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /RAJOBS+CMBX10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1928 0 R -/FirstChar 11 -/LastChar 124 -/Widths 1924 0 R ->> -% 570 0 obj -======= /FontDescriptor 1962 0 R /FirstChar 11 /LastChar 124 /Widths 1958 0 R >> % 582 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /BWDLNI+CMBX12 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1930 0 R -/FirstChar 12 -/LastChar 124 -/Widths 1926 0 R ->> -% 1721 0 obj -======= /FontDescriptor 1964 0 R /FirstChar 12 /LastChar 124 /Widths 1960 0 R >> % 1752 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /VUBHOM+CMBX9 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1932 0 R -/FirstChar 97 -/LastChar 117 -/Widths 1908 0 R ->> -% 1695 0 obj -======= /FontDescriptor 1966 0 R /FirstChar 97 /LastChar 117 /Widths 1942 0 R >> % 1725 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /OUFNAH+CMEX10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1934 0 R -/FirstChar 88 -/LastChar 115 -/Widths 1909 0 R ->> -% 770 0 obj -======= /FontDescriptor 1968 0 R /FirstChar 88 /LastChar 115 /Widths 1943 0 R >> % 796 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /HKHZAC+CMMI10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1936 0 R -/FirstChar 11 -/LastChar 122 -/Widths 1921 0 R ->> -% 817 0 obj -======= /FontDescriptor 1970 0 R /FirstChar 11 /LastChar 122 /Widths 1955 0 R >> % 844 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /RVPZIX+CMMI5 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1938 0 R -/FirstChar 105 -/LastChar 105 -/Widths 1914 0 R ->> -% 786 0 obj -======= /FontDescriptor 1972 0 R /FirstChar 105 /LastChar 105 /Widths 1948 0 R >> % 812 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /ZUYGVH+CMMI7 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1940 0 R -/FirstChar 59 -/LastChar 110 -/Widths 1918 0 R ->> -% 1879 0 obj -======= /FontDescriptor 1974 0 R /FirstChar 59 /LastChar 110 /Widths 1952 0 R >> % 1910 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /ZOAUSA+CMMI8 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1942 0 R -/FirstChar 67 -/LastChar 71 -/Widths 1907 0 R ->> -% 573 0 obj -<< -/Type /Font -/Subtype /Type1 -/BaseFont /SEWPRR+CMR10 -/FontDescriptor 1944 0 R -/FirstChar 11 -/LastChar 123 -/Widths 1923 0 R ->> -% 788 0 obj -======= /FontDescriptor 1976 0 R /FirstChar 67 /LastChar 71 @@ -47056,460 +28100,110 @@ stream /Widths 1957 0 R >> % 814 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /UJRPBG+CMR6 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1946 0 R -/FirstChar 49 -/LastChar 53 -/Widths 1916 0 R ->> -% 785 0 obj -======= /FontDescriptor 1980 0 R /FirstChar 49 /LastChar 53 /Widths 1950 0 R >> % 811 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /GIODUE+CMR7 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1948 0 R -/FirstChar 48 -/LastChar 58 -/Widths 1919 0 R ->> -% 790 0 obj -======= /FontDescriptor 1982 0 R /FirstChar 48 /LastChar 58 /Widths 1953 0 R >> % 816 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /HFTEUS+CMR8 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1950 0 R -/FirstChar 40 -/LastChar 121 -/Widths 1915 0 R ->> -% 1270 0 obj -======= /FontDescriptor 1984 0 R /FirstChar 40 /LastChar 121 /Widths 1949 0 R >> % 1300 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /KKURMF+CMR9 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1952 0 R -/FirstChar 39 -/LastChar 122 -/Widths 1910 0 R ->> -% 787 0 obj -======= /FontDescriptor 1986 0 R /FirstChar 39 /LastChar 122 /Widths 1944 0 R >> % 813 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /IMOIOS+CMSY10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1954 0 R -/FirstChar 0 -/LastChar 120 -/Widths 1917 0 R ->> -% 1140 0 obj -======= /FontDescriptor 1988 0 R /FirstChar 0 /LastChar 120 /Widths 1951 0 R >> % 1170 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /XNLILI+CMSY7 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1956 0 R -/FirstChar 0 -/LastChar 49 -/Widths 1911 0 R ->> -% 750 0 obj -======= /FontDescriptor 1990 0 R /FirstChar 0 /LastChar 49 /Widths 1945 0 R >> % 776 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /HBJLDT+CMTI10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1958 0 R -/FirstChar 11 -/LastChar 121 -/Widths 1922 0 R ->> -% 571 0 obj -======= /FontDescriptor 1992 0 R /FirstChar 11 /LastChar 121 /Widths 1956 0 R >> % 583 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /OZJPZO+CMTI12 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1960 0 R -/FirstChar 65 -/LastChar 121 -/Widths 1925 0 R ->> -% 784 0 obj -======= /FontDescriptor 1995 0 R /FirstChar 65 /LastChar 121 /Widths 1959 0 R >> % 810 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /TJSMYH+CMTT10 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1962 0 R -/FirstChar 37 -/LastChar 126 -/Widths 1920 0 R ->> -% 846 0 obj -======= /FontDescriptor 1997 0 R /FirstChar 37 /LastChar 126 /Widths 1954 0 R >> % 872 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /HZGQIC+CMTT8 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1964 0 R -/FirstChar 98 -/LastChar 116 -/Widths 1913 0 R ->> -% 982 0 obj -======= /FontDescriptor 1999 0 R /FirstChar 98 /LastChar 116 /Widths 1947 0 R >> % 1012 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Font /Subtype /Type1 /BaseFont /KMUHVJ+CMTT9 -<<<<<<< HEAD:docs/psblas-3.6.pdf -/FontDescriptor 1966 0 R -/FirstChar 40 -/LastChar 121 -/Widths 1912 0 R ->> -% 574 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [565 0 R 576 0 R 627 0 R 680 0 R 729 0 R 734 0 R] ->> -% 751 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [748 0 R 768 0 R 781 0 R 797 0 R 809 0 R 814 0 R] ->> -% 847 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [829 0 R 850 0 R 861 0 R 869 0 R 880 0 R 895 0 R] ->> -% 902 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [899 0 R 904 0 R 912 0 R 920 0 R 925 0 R 930 0 R] ->> - -endstream -endobj -1968 0 obj -<< -/Type /ObjStm -/N 100 -/First 917 -/Length 10553 ->> -stream -937 0 968 113 1014 227 1068 347 1117 467 1173 587 1222 707 1282 827 1335 947 1373 1067 -1412 1187 1464 1307 1504 1427 1537 1547 1576 1667 1618 1787 1648 1907 1682 2027 1745 2147 1782 2267 -1820 2387 1857 2507 1901 2627 1967 2711 1969 2826 1970 2947 1971 3068 1972 3189 1973 3283 1974 3379 -562 3448 558 3508 554 3619 550 3693 546 3781 542 3869 538 3957 534 4045 530 4119 526 4244 -522 4318 518 4406 514 4494 510 4582 506 4670 502 4744 498 4869 494 4943 490 5031 486 5119 -482 5193 478 5318 474 5392 470 5480 466 5568 462 5656 458 5744 454 5832 450 5920 446 6008 -442 6096 438 6184 434 6272 430 6360 426 6448 422 6536 418 6624 414 6712 410 6786 406 6912 -401 6986 397 7074 393 7162 389 7250 385 7338 381 7426 377 7514 373 7602 369 7690 365 7778 -361 7866 357 7954 353 8042 349 8130 345 8218 341 8306 337 8394 333 8482 329 8570 325 8658 -321 8746 317 8834 313 8922 309 9010 305 9098 301 9186 297 9260 293 9386 289 9460 285 9548 -% 937 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [934 0 R 939 0 R 943 0 R 947 0 R 953 0 R 959 0 R] ->> -% 968 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1967 0 R -/Kids [965 0 R 973 0 R 979 0 R 984 0 R 995 0 R 1001 0 R] ->> -% 1014 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1010 0 R 1018 0 R 1034 0 R 1039 0 R 1046 0 R 1051 0 R] ->> -% 1068 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1064 0 R 1073 0 R 1078 0 R 1091 0 R 1096 0 R 1103 0 R] ->> -% 1117 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1108 0 R 1122 0 R 1130 0 R 1137 0 R 1148 0 R 1163 0 R] ->> -% 1173 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1169 0 R 1181 0 R 1187 0 R 1198 0 R 1203 0 R 1214 0 R] ->> -% 1222 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1219 0 R 1229 0 R 1236 0 R 1244 0 R 1254 0 R 1267 0 R] ->> -% 1282 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1969 0 R -/Kids [1275 0 R 1288 0 R 1296 0 R 1300 0 R 1315 0 R 1323 0 R] ->> -% 1335 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1329 0 R 1339 0 R 1343 0 R 1349 0 R 1355 0 R 1360 0 R] ->> -% 1373 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1370 0 R 1376 0 R 1385 0 R 1392 0 R 1397 0 R 1403 0 R] ->> -% 1412 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1407 0 R 1416 0 R 1424 0 R 1430 0 R 1439 0 R 1451 0 R] ->> -% 1464 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1455 0 R 1469 0 R 1475 0 R 1482 0 R 1488 0 R 1492 0 R] ->> -% 1504 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1501 0 R 1508 0 R 1512 0 R 1517 0 R 1521 0 R 1528 0 R] ->> -% 1537 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1970 0 R -/Kids [1533 0 R 1540 0 R 1546 0 R 1552 0 R 1558 0 R 1566 0 R] ->> -% 1576 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1573 0 R 1578 0 R 1588 0 R 1592 0 R 1596 0 R 1609 0 R] ->> -% 1618 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1613 0 R 1620 0 R 1626 0 R 1633 0 R 1637 0 R 1641 0 R] ->> -% 1648 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1645 0 R 1650 0 R 1654 0 R 1658 0 R 1664 0 R 1671 0 R] ->> -% 1682 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1677 0 R 1684 0 R 1690 0 R 1698 0 R 1703 0 R 1710 0 R] ->> -% 1745 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1716 0 R 1747 0 R 1753 0 R 1759 0 R 1765 0 R 1771 0 R] ->> -% 1782 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1971 0 R -/Kids [1776 0 R 1785 0 R 1792 0 R 1798 0 R 1805 0 R 1811 0 R] ->> -% 1820 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1972 0 R -/Kids [1817 0 R 1824 0 R 1833 0 R 1837 0 R 1845 0 R 1850 0 R] ->> -% 1857 0 obj -<< -/Type /Pages -/Count 6 -/Parent 1972 0 R -/Kids [1854 0 R 1861 0 R 1865 0 R 1872 0 R 1884 0 R 1890 0 R] ->> -% 1901 0 obj -<< -/Type /Pages -/Count 2 -/Parent 1972 0 R -/Kids [1894 0 R 1903 0 R] ->> -% 1967 0 obj -<< -/Type /Pages -/Count 36 -/Parent 1973 0 R -/Kids [574 0 R 751 0 R 847 0 R 902 0 R 937 0 R 968 0 R] ->> -% 1969 0 obj -<< -/Type /Pages -/Count 36 -/Parent 1973 0 R -/Kids [1014 0 R 1068 0 R 1117 0 R 1173 0 R 1222 0 R 1282 0 R] ->> -% 1970 0 obj -<< -/Type /Pages -/Count 36 -/Parent 1973 0 R -/Kids [1335 0 R 1373 0 R 1412 0 R 1464 0 R 1504 0 R 1537 0 R] ->> -% 1971 0 obj -<< -/Type /Pages -/Count 36 -/Parent 1973 0 R -/Kids [1576 0 R 1618 0 R 1648 0 R 1682 0 R 1745 0 R 1782 0 R] ->> -% 1972 0 obj -<< -/Type /Pages -/Count 14 -/Parent 1973 0 R -/Kids [1820 0 R 1857 0 R 1901 0 R] ->> -% 1973 0 obj -<< -/Type /Pages -/Count 158 -/Kids [1967 0 R 1969 0 R 1970 0 R 1971 0 R 1972 0 R] ->> -% 1974 0 obj -======= /FontDescriptor 2001 0 R /FirstChar 40 /LastChar 121 @@ -47746,15 +28440,12 @@ stream /Kids [2002 0 R 2003 0 R 2004 0 R 2005 0 R 2006 0 R] >> % 2008 0 obj ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf << /Type /Outlines /First 4 0 R /Last 4 0 R /Count 1 >> -<<<<<<< HEAD:docs/psblas-3.6.pdf -======= % 574 0 obj << /Title 575 0 R @@ -47778,57 +28469,35 @@ stream /Parent 542 0 R /Prev 562 0 R >> ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf % 562 0 obj << /Title 563 0 R /A 560 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 558 0 R -======= /Parent 542 0 R /Prev 558 0 R /Next 566 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 558 0 obj << /Title 559 0 R /A 556 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 530 0 R -/First 562 0 R -/Last 562 0 R -/Count -1 -======= /Parent 542 0 R /Prev 554 0 R /Next 562 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 554 0 obj << /Title 555 0 R /A 552 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -/Prev 550 0 R -======= /Parent 542 0 R /Prev 550 0 R /Next 558 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 550 0 obj << /Title 551 0 R /A 548 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -======= /Parent 542 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 546 0 R /Next 554 0 R >> @@ -47836,91 +28505,56 @@ stream << /Title 547 0 R /A 544 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -/Prev 542 0 R -======= /Parent 542 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 550 0 R >> % 542 0 obj << /Title 543 0 R /A 540 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -/Prev 538 0 R -/Next 546 0 R -======= /Parent 4 0 R /Prev 514 0 R /Next 570 0 R /First 546 0 R /Last 566 0 R /Count -6 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 538 0 obj << /Title 539 0 R /A 536 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -======= /Parent 514 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 534 0 R >> % 534 0 obj << /Title 535 0 R /A 532 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 530 0 R -======= /Parent 514 0 R /Prev 530 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 538 0 R >> % 530 0 obj << /Title 531 0 R /A 528 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 502 0 R -/Next 558 0 R -/First 534 0 R -/Last 554 0 R -/Count -6 -======= /Parent 514 0 R /Prev 526 0 R /Next 534 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 526 0 obj << /Title 527 0 R /A 524 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -======= /Parent 514 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 522 0 R +/Next 530 0 R >> % 522 0 obj << /Title 523 0 R /A 520 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -======= /Parent 514 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 518 0 R /Next 526 0 R >> @@ -47928,162 +28562,97 @@ stream << /Title 519 0 R /A 516 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -/Prev 514 0 R -======= /Parent 514 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 522 0 R >> % 514 0 obj << /Title 515 0 R /A 512 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -/Prev 510 0 R -/Next 518 0 R -======= /Parent 4 0 R /Prev 494 0 R /Next 542 0 R /First 518 0 R /Last 538 0 R /Count -6 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 510 0 obj << /Title 511 0 R /A 508 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -======= /Parent 494 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 506 0 R >> % 506 0 obj << /Title 507 0 R /A 504 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 502 0 R -======= /Parent 494 0 R /Prev 502 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 510 0 R >> % 502 0 obj << /Title 503 0 R /A 500 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 482 0 R -/Next 530 0 R -/First 506 0 R -/Last 526 0 R -/Count -6 -======= /Parent 494 0 R /Prev 498 0 R /Next 506 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 498 0 obj << /Title 499 0 R /A 496 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 482 0 R -/Prev 494 0 R -======= /Parent 494 0 R /Next 502 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 494 0 obj << /Title 495 0 R /A 492 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 482 0 R -/Prev 490 0 R -/Next 498 0 R -======= /Parent 4 0 R /Prev 422 0 R /Next 514 0 R /First 498 0 R /Last 510 0 R /Count -4 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 490 0 obj << /Title 491 0 R /A 488 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 482 0 R -/Prev 486 0 R -/Next 494 0 R -======= /Parent 422 0 R /Prev 486 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 486 0 obj << /Title 487 0 R /A 484 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 482 0 R -======= /Parent 422 0 R /Prev 482 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 490 0 R >> % 482 0 obj << /Title 483 0 R /A 480 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 410 0 R -/Next 502 0 R -/First 486 0 R -/Last 498 0 R -/Count -4 -======= /Parent 422 0 R /Prev 478 0 R /Next 486 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 478 0 obj << /Title 479 0 R /A 476 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 474 0 R +/Next 482 0 R >> % 474 0 obj << /Title 475 0 R /A 472 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 470 0 R /Next 478 0 R >> @@ -48091,11 +28660,7 @@ stream << /Title 471 0 R /A 468 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 466 0 R /Next 474 0 R >> @@ -48103,11 +28668,7 @@ stream << /Title 467 0 R /A 464 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 462 0 R /Next 470 0 R >> @@ -48115,11 +28676,7 @@ stream << /Title 463 0 R /A 460 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 458 0 R /Next 466 0 R >> @@ -48127,11 +28684,7 @@ stream << /Title 459 0 R /A 456 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 454 0 R /Next 462 0 R >> @@ -48139,11 +28692,7 @@ stream << /Title 455 0 R /A 452 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 450 0 R /Next 458 0 R >> @@ -48151,11 +28700,7 @@ stream << /Title 451 0 R /A 448 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 446 0 R /Next 454 0 R >> @@ -48163,11 +28708,7 @@ stream << /Title 447 0 R /A 444 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 442 0 R /Next 450 0 R >> @@ -48175,11 +28716,7 @@ stream << /Title 443 0 R /A 440 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 438 0 R /Next 446 0 R >> @@ -48187,11 +28724,7 @@ stream << /Title 439 0 R /A 436 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 434 0 R /Next 442 0 R >> @@ -48199,11 +28732,7 @@ stream << /Title 435 0 R /A 432 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 430 0 R /Next 438 0 R >> @@ -48211,11 +28740,7 @@ stream << /Title 431 0 R /A 428 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 426 0 R /Next 434 0 R >> @@ -48223,52 +28748,33 @@ stream << /Title 427 0 R /A 424 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -/Prev 422 0 R -======= /Parent 422 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 430 0 R >> % 422 0 obj << /Title 423 0 R /A 420 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -/Prev 418 0 R -/Next 426 0 R -======= /Parent 4 0 R /Prev 309 0 R /Next 494 0 R /First 426 0 R /Last 490 0 R /Count -17 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 418 0 obj << /Title 419 0 R /A 416 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 414 0 R >> % 414 0 obj << /Title 415 0 R /A 412 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 410 0 R -======= /Parent 309 0 R /Prev 410 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 418 0 R >> @@ -48296,39 +28802,23 @@ stream << /Title 411 0 R /A 408 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 297 0 R -/Next 482 0 R -/First 414 0 R -/Last 478 0 R -/Count -17 -======= /Parent 309 0 R /Prev 406 0 R /Next 414 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 406 0 obj << /Title 407 0 R /A 403 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 401 0 R +/Next 410 0 R >> % 401 0 obj << /Title 402 0 R /A 399 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 397 0 R /Next 406 0 R >> @@ -48336,11 +28826,7 @@ stream << /Title 398 0 R /A 395 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 393 0 R /Next 401 0 R >> @@ -48348,11 +28834,7 @@ stream << /Title 394 0 R /A 391 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 389 0 R /Next 397 0 R >> @@ -48360,11 +28842,7 @@ stream << /Title 390 0 R /A 387 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 385 0 R /Next 393 0 R >> @@ -48372,11 +28850,7 @@ stream << /Title 386 0 R /A 383 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 381 0 R /Next 389 0 R >> @@ -48384,11 +28858,7 @@ stream << /Title 382 0 R /A 379 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 377 0 R /Next 385 0 R >> @@ -48396,11 +28866,7 @@ stream << /Title 378 0 R /A 375 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 373 0 R /Next 381 0 R >> @@ -48408,11 +28874,7 @@ stream << /Title 374 0 R /A 371 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 369 0 R /Next 377 0 R >> @@ -48420,11 +28882,7 @@ stream << /Title 370 0 R /A 367 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 365 0 R /Next 373 0 R >> @@ -48432,11 +28890,7 @@ stream << /Title 366 0 R /A 363 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 361 0 R /Next 369 0 R >> @@ -48444,11 +28898,7 @@ stream << /Title 362 0 R /A 359 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 357 0 R /Next 365 0 R >> @@ -48456,11 +28906,7 @@ stream << /Title 358 0 R /A 355 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 353 0 R /Next 361 0 R >> @@ -48468,11 +28914,7 @@ stream << /Title 354 0 R /A 351 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 349 0 R /Next 357 0 R >> @@ -48480,11 +28922,7 @@ stream << /Title 350 0 R /A 347 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 345 0 R /Next 353 0 R >> @@ -48492,11 +28930,7 @@ stream << /Title 346 0 R /A 343 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 341 0 R /Next 349 0 R >> @@ -48504,11 +28938,7 @@ stream << /Title 342 0 R /A 339 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 337 0 R /Next 345 0 R >> @@ -48516,11 +28946,7 @@ stream << /Title 338 0 R /A 335 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 333 0 R /Next 341 0 R >> @@ -48528,11 +28954,7 @@ stream << /Title 334 0 R /A 331 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 329 0 R /Next 337 0 R >> @@ -48540,11 +28962,7 @@ stream << /Title 330 0 R /A 327 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 325 0 R /Next 333 0 R >> @@ -48552,11 +28970,7 @@ stream << /Title 326 0 R /A 323 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 321 0 R /Next 329 0 R >> @@ -48564,11 +28978,7 @@ stream << /Title 322 0 R /A 319 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 317 0 R /Next 325 0 R >> @@ -48576,11 +28986,7 @@ stream << /Title 318 0 R /A 315 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 313 0 R /Next 321 0 R >> @@ -48588,183 +28994,97 @@ stream << /Title 314 0 R /A 311 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -/Prev 309 0 R -======= /Parent 309 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 317 0 R >> % 309 0 obj << /Title 310 0 R /A 307 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -/Prev 305 0 R -/Next 313 0 R -======= /Parent 4 0 R /Prev 289 0 R /Next 422 0 R /First 313 0 R /Last 418 0 R /Count -27 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 305 0 obj << /Title 306 0 R /A 303 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 289 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 301 0 R >> % 301 0 obj << /Title 302 0 R /A 299 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 297 0 R -======= /Parent 289 0 R /Prev 297 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 305 0 R >> % 297 0 obj << /Title 298 0 R /A 295 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 277 0 R -/Next 410 0 R -/First 301 0 R -/Last 406 0 R -/Count -27 -======= /Parent 289 0 R /Prev 293 0 R /Next 301 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 293 0 obj << /Title 294 0 R /A 291 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 277 0 R -/Prev 289 0 R -======= /Parent 289 0 R /Next 297 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 289 0 obj << /Title 290 0 R /A 287 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 277 0 R -/Prev 285 0 R -/Next 293 0 R -======= /Parent 4 0 R /Prev 221 0 R /Next 309 0 R /First 293 0 R /Last 305 0 R /Count -4 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 285 0 obj << /Title 286 0 R /A 283 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 277 0 R -/Prev 281 0 R -/Next 289 0 R -======= /Parent 221 0 R /Prev 281 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> - -endstream -endobj -1975 0 obj -<< -/Type /ObjStm -/N 100 -/First 896 -/Length 12446 ->> -stream -281 0 277 74 273 199 269 273 265 361 261 449 257 537 253 625 249 713 245 801 -241 889 237 977 233 1065 229 1153 225 1241 221 1329 217 1417 213 1505 209 1579 205 1704 -200 1777 196 1864 192 1938 188 2026 184 2114 180 2202 176 2276 172 2375 168 2500 164 2572 -160 2645 156 2732 152 2819 148 2906 144 2993 140 3080 136 3167 132 3254 128 3341 124 3428 -120 3515 116 3602 112 3689 108 3776 104 3863 100 3950 96 4022 92 4132 88 4253 84 4322 -80 4391 76 4473 72 4555 68 4637 64 4719 60 4801 56 4883 52 4965 48 5047 44 5116 -40 5223 36 5329 32 5449 28 5518 24 5574 20 5693 16 5775 12 5844 8 5961 4 6026 -1976 6119 1977 6315 1978 6488 1979 6668 1980 6845 1981 7022 1982 7202 1983 7375 1984 7540 1985 7706 -1986 7871 1987 8037 1988 8203 1989 8375 1990 8545 1991 8717 1992 8886 1993 9055 1994 9227 1995 9397 -1996 9569 1997 9739 1998 9911 1999 10094 2000 10304 2001 10518 2002 10722 2003 10907 2004 11095 2005 11323 % 281 0 obj << /Title 282 0 R /A 279 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 277 0 R -======= /Parent 221 0 R /Prev 277 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Next 285 0 R >> % 277 0 obj << /Title 278 0 R /A 275 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 209 0 R -/Next 297 0 R -/First 281 0 R -/Last 293 0 R -/Count -4 -======= /Parent 221 0 R /Prev 273 0 R /Next 281 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 273 0 obj << /Title 274 0 R /A 271 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 209 0 R -======= /Parent 221 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 269 0 R +/Next 277 0 R >> % 269 0 obj << /Title 270 0 R /A 267 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 209 0 R -======= /Parent 221 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 265 0 R /Next 273 0 R >> @@ -48772,11 +29092,7 @@ stream << /Title 266 0 R /A 263 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 209 0 R -======= /Parent 221 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf /Prev 261 0 R /Next 269 0 R >> @@ -48889,17 +29205,8 @@ stream << /Title 210 0 R /A 207 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 4 0 R -/Prev 36 0 R -/Next 277 0 R -/First 213 0 R -/Last 273 0 R -/Count -16 -======= /Parent 184 0 R /Prev 205 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> % 205 0 obj << @@ -49333,629 +29640,6 @@ stream << /Title 5 0 R /A 1 0 R -<<<<<<< HEAD:docs/psblas-3.6.pdf -/Parent 1974 0 R -/First 8 0 R -/Last 558 0 R -/Count -11 ->> -% 1976 0 obj -<< -/Names [(Doc-Start) 569 0 R (Hfootnote.1) 789 0 R (Hfootnote.2) 791 0 R (Hfootnote.3) 845 0 R (Hfootnote.4) 1827 0 R (Hfootnote.5) 1878 0 R] -/Limits [(Doc-Start) (Hfootnote.5)] ->> -% 1977 0 obj -<< -/Names [(Item.1) 818 0 R (Item.10) 833 0 R (Item.100) 1601 0 R (Item.101) 1602 0 R (Item.102) 1603 0 R (Item.103) 1604 0 R] -/Limits [(Item.1) (Item.103)] ->> -% 1978 0 obj -<< -/Names [(Item.104) 1605 0 R (Item.105) 1606 0 R (Item.106) 1607 0 R (Item.107) 1616 0 R (Item.108) 1617 0 R (Item.109) 1623 0 R] -/Limits [(Item.104) (Item.109)] ->> -% 1979 0 obj -<< -/Names [(Item.11) 834 0 R (Item.110) 1624 0 R (Item.111) 1629 0 R (Item.112) 1630 0 R (Item.113) 1631 0 R (Item.114) 1661 0 R] -/Limits [(Item.11) (Item.114)] ->> -% 1980 0 obj -<< -/Names [(Item.115) 1662 0 R (Item.116) 1667 0 R (Item.117) 1668 0 R (Item.118) 1674 0 R (Item.119) 1675 0 R (Item.12) 835 0 R] -/Limits [(Item.115) (Item.12)] ->> -% 1981 0 obj -<< -/Names [(Item.120) 1680 0 R (Item.121) 1681 0 R (Item.122) 1687 0 R (Item.123) 1688 0 R (Item.124) 1693 0 R (Item.125) 1694 0 R] -/Limits [(Item.120) (Item.125)] ->> -% 1982 0 obj -<< -/Names [(Item.126) 1696 0 R (Item.127) 1701 0 R (Item.128) 1706 0 R (Item.13) 836 0 R (Item.14) 837 0 R (Item.15) 838 0 R] -/Limits [(Item.126) (Item.15)] ->> -% 1983 0 obj -<< -/Names [(Item.16) 839 0 R (Item.17) 840 0 R (Item.18) 841 0 R (Item.19) 842 0 R (Item.2) 819 0 R (Item.20) 843 0 R] -/Limits [(Item.16) (Item.20)] ->> -% 1984 0 obj -<< -/Names [(Item.21) 844 0 R (Item.22) 853 0 R (Item.23) 854 0 R (Item.24) 855 0 R (Item.25) 856 0 R (Item.26) 857 0 R] -/Limits [(Item.21) (Item.26)] ->> -% 1985 0 obj -<< -/Names [(Item.27) 858 0 R (Item.28) 872 0 R (Item.29) 873 0 R (Item.3) 820 0 R (Item.30) 874 0 R (Item.31) 875 0 R] -/Limits [(Item.27) (Item.31)] ->> -% 1986 0 obj -<< -/Names [(Item.32) 876 0 R (Item.33) 883 0 R (Item.34) 884 0 R (Item.35) 885 0 R (Item.36) 886 0 R (Item.37) 887 0 R] -/Limits [(Item.32) (Item.37)] ->> -% 1987 0 obj -<< -/Names [(Item.38) 888 0 R (Item.39) 889 0 R (Item.4) 821 0 R (Item.40) 890 0 R (Item.41) 928 0 R (Item.42) 1021 0 R] -/Limits [(Item.38) (Item.42)] ->> -% 1988 0 obj -<< -/Names [(Item.43) 1054 0 R (Item.44) 1081 0 R (Item.45) 1111 0 R (Item.46) 1291 0 R (Item.47) 1292 0 R (Item.48) 1293 0 R] -/Limits [(Item.43) (Item.48)] ->> -% 1989 0 obj -<< -/Names [(Item.49) 1352 0 R (Item.5) 822 0 R (Item.50) 1358 0 R (Item.51) 1363 0 R (Item.52) 1364 0 R (Item.53) 1365 0 R] -/Limits [(Item.49) (Item.53)] ->> -% 1990 0 obj -<< -/Names [(Item.54) 1366 0 R (Item.55) 1367 0 R (Item.56) 1379 0 R (Item.57) 1380 0 R (Item.58) 1381 0 R (Item.59) 1388 0 R] -/Limits [(Item.54) (Item.59)] ->> -% 1991 0 obj -<< -/Names [(Item.6) 823 0 R (Item.60) 1410 0 R (Item.61) 1411 0 R (Item.62) 1419 0 R (Item.63) 1420 0 R (Item.64) 1421 0 R] -/Limits [(Item.6) (Item.64)] ->> -% 1992 0 obj -<< -/Names [(Item.65) 1433 0 R (Item.66) 1434 0 R (Item.67) 1435 0 R (Item.68) 1436 0 R (Item.69) 1437 0 R (Item.7) 824 0 R] -/Limits [(Item.65) (Item.7)] ->> -% 1993 0 obj -<< -/Names [(Item.70) 1442 0 R (Item.71) 1443 0 R (Item.72) 1444 0 R (Item.73) 1445 0 R (Item.74) 1446 0 R (Item.75) 1447 0 R] -/Limits [(Item.70) (Item.75)] ->> -% 1994 0 obj -<< -/Names [(Item.76) 1458 0 R (Item.77) 1459 0 R (Item.78) 1460 0 R (Item.79) 1461 0 R (Item.8) 825 0 R (Item.80) 1462 0 R] -/Limits [(Item.76) (Item.80)] ->> -% 1995 0 obj -<< -/Names [(Item.81) 1463 0 R (Item.82) 1478 0 R (Item.83) 1495 0 R (Item.84) 1496 0 R (Item.85) 1524 0 R (Item.86) 1525 0 R] -/Limits [(Item.81) (Item.86)] ->> -% 1996 0 obj -<< -/Names [(Item.87) 1536 0 R (Item.88) 1543 0 R (Item.89) 1549 0 R (Item.9) 832 0 R (Item.90) 1555 0 R (Item.91) 1561 0 R] -/Limits [(Item.87) (Item.91)] ->> -% 1997 0 obj -<< -/Names [(Item.92) 1562 0 R (Item.93) 1569 0 R (Item.94) 1570 0 R (Item.95) 1581 0 R (Item.96) 1582 0 R (Item.97) 1583 0 R] -/Limits [(Item.92) (Item.97)] ->> -% 1998 0 obj -<< -/Names [(Item.98) 1599 0 R (Item.99) 1600 0 R (cite.2007c) 804 0 R (cite.2007d) 805 0 R (cite.BLACS) 777 0 R (cite.BLAS1) 759 0 R] -/Limits [(Item.98) (cite.BLAS1)] ->> -% 1999 0 obj -<< -/Names [(cite.BLAS2) 760 0 R (cite.BLAS3) 761 0 R (cite.DesPat:11) 754 0 R (cite.DesignPatterns) 917 0 R (cite.KIVA3PSBLAS) 1900 0 R (cite.METIS) 792 0 R] -/Limits [(cite.BLAS2) (cite.METIS)] ->> -% 2000 0 obj -<< -/Names [(cite.MPI1) 1906 0 R (cite.PARA04FOREST) 1898 0 R (cite.PSBLAS) 1899 0 R (cite.RouXiaXu:11) 755 0 R (cite.Sparse03) 753 0 R (cite.machiels) 756 0 R] -/Limits [(cite.MPI1) (cite.machiels)] ->> -% 2001 0 obj -<< -/Names [(cite.metcalf) 752 0 R (cite.sblas02) 758 0 R (cite.sblas97) 757 0 R (descdata) 864 0 R (equation.4.1) 1151 0 R (equation.4.2) 1152 0 R] -/Limits [(cite.metcalf) (equation.4.2)] ->> -% 2002 0 obj -<< -/Names [(equation.4.3) 1153 0 R (figure.1) 771 0 R (figure.10) 1714 0 R (figure.2) 800 0 R (figure.3) 891 0 R (figure.4) 918 0 R] -/Limits [(equation.4.3) (figure.4)] ->> -% 2003 0 obj -<< -/Names [(figure.5) 957 0 R (figure.6) 977 0 R (figure.7) 1257 0 R (figure.8) 1294 0 R (figure.9) 1713 0 R (lstlisting.-1) 1022 0 R] -/Limits [(figure.5) (lstlisting.-1)] ->> -% 2004 0 obj -<< -/Names [(lstlisting.-10) 1750 0 R (lstlisting.-11) 1756 0 R (lstlisting.-12) 1762 0 R (lstlisting.-13) 1768 0 R (lstlisting.-14) 1779 0 R (lstlisting.-15) 1788 0 R] -/Limits [(lstlisting.-10) (lstlisting.-15)] ->> -% 2005 0 obj -<< -/Names [(lstlisting.-16) 1795 0 R (lstlisting.-17) 1801 0 R (lstlisting.-18) 1808 0 R (lstlisting.-19) 1814 0 R (lstlisting.-2) 1055 0 R (lstlisting.-20) 1875 0 R] -/Limits [(lstlisting.-16) (lstlisting.-20)] ->> - -endstream -endobj -2094 0 obj -<< - /Title (Parallel Sparse BLAS V. 3.6.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:20191121135344+01'00') -/ModDate (D:20191121135344+01'00') -/Trapped /False -/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.18 (TeX Live 2017/Debian) kpathsea version 6.2.3) ->> -endobj -2007 0 obj -<< -/Type /ObjStm -/N 87 -/First 897 -/Length 15917 ->> -stream -2006 0 2008 220 2009 448 2010 684 2011 916 2012 1146 2013 1374 2014 1602 2015 1836 2016 2070 -2017 2304 2018 2532 2019 2705 2020 2885 2021 3062 2022 3239 2023 3419 2024 3597 2025 3777 2026 3955 -2027 4135 2028 4313 2029 4478 2030 4644 2031 4811 2032 4983 2033 5153 2034 5325 2035 5495 2036 5667 -2037 5836 2038 6005 2039 6177 2040 6347 2041 6519 2042 6689 2043 6861 2044 7029 2045 7223 2046 7429 -2047 7633 2048 7834 2049 8030 2050 8228 2051 8424 2052 8622 2053 8818 2054 9016 2055 9212 2056 9410 -2057 9605 2058 9800 2059 9998 2060 10194 2061 10392 2062 10588 2063 10786 2064 10973 2065 11154 2066 11351 -2067 11570 2068 11828 2069 12005 2070 12183 2071 12357 2072 12503 2073 12617 2074 12729 2075 12840 2076 12954 -2077 13074 2078 13198 2079 13317 2080 13430 2081 13542 2082 13653 2083 13764 2084 13879 2085 13998 2086 14117 -2087 14239 2088 14351 2089 14471 2090 14593 2091 14688 2092 14772 2093 14807 -% 2006 0 obj -<< -/Names [(lstlisting.-3) 1082 0 R (lstlisting.-4) 1112 0 R (lstlisting.-5) 1248 0 R (lstlisting.-6) 1279 0 R (lstlisting.-7) 1319 0 R (lstlisting.-8) 1333 0 R] -/Limits [(lstlisting.-3) (lstlisting.-8)] ->> -% 2008 0 obj -<< -/Names [(lstlisting.-9) 1719 0 R (lstnumber.-1.1) 1023 0 R (lstnumber.-1.2) 1024 0 R (lstnumber.-1.3) 1025 0 R (lstnumber.-1.4) 1026 0 R (lstnumber.-10.1) 1751 0 R] -/Limits [(lstlisting.-9) (lstnumber.-10.1)] ->> -% 2009 0 obj -<< -/Names [(lstnumber.-11.1) 1757 0 R (lstnumber.-12.1) 1763 0 R (lstnumber.-13.1) 1769 0 R (lstnumber.-14.1) 1780 0 R (lstnumber.-15.1) 1789 0 R (lstnumber.-16.1) 1796 0 R] -/Limits [(lstnumber.-11.1) (lstnumber.-16.1)] ->> -% 2010 0 obj -<< -/Names [(lstnumber.-17.1) 1802 0 R (lstnumber.-18.1) 1809 0 R (lstnumber.-19.1) 1815 0 R (lstnumber.-2.1) 1056 0 R (lstnumber.-2.2) 1057 0 R (lstnumber.-2.3) 1058 0 R] -/Limits [(lstnumber.-17.1) (lstnumber.-2.3)] ->> -% 2011 0 obj -<< -/Names [(lstnumber.-2.4) 1059 0 R (lstnumber.-20.1) 1876 0 R (lstnumber.-20.2) 1877 0 R (lstnumber.-3.1) 1083 0 R (lstnumber.-3.2) 1084 0 R (lstnumber.-3.3) 1085 0 R] -/Limits [(lstnumber.-2.4) (lstnumber.-3.3)] ->> -% 2012 0 obj -<< -/Names [(lstnumber.-3.4) 1086 0 R (lstnumber.-4.1) 1113 0 R (lstnumber.-4.2) 1114 0 R (lstnumber.-4.3) 1115 0 R (lstnumber.-4.4) 1116 0 R (lstnumber.-5.1) 1249 0 R] -/Limits [(lstnumber.-3.4) (lstnumber.-5.1)] ->> -% 2013 0 obj -<< -/Names [(lstnumber.-5.2) 1250 0 R (lstnumber.-6.1) 1280 0 R (lstnumber.-6.2) 1281 0 R (lstnumber.-7.1) 1320 0 R (lstnumber.-7.2) 1321 0 R (lstnumber.-8.1) 1334 0 R] -/Limits [(lstnumber.-5.2) (lstnumber.-8.1)] ->> -% 2014 0 obj -<< -/Names [(lstnumber.-9.1) 1720 0 R (lstnumber.-9.10) 1730 0 R (lstnumber.-9.11) 1731 0 R (lstnumber.-9.12) 1732 0 R (lstnumber.-9.13) 1733 0 R (lstnumber.-9.14) 1734 0 R] -/Limits [(lstnumber.-9.1) (lstnumber.-9.14)] ->> -% 2015 0 obj -<< -/Names [(lstnumber.-9.15) 1735 0 R (lstnumber.-9.16) 1736 0 R (lstnumber.-9.17) 1737 0 R (lstnumber.-9.18) 1738 0 R (lstnumber.-9.19) 1739 0 R (lstnumber.-9.2) 1722 0 R] -/Limits [(lstnumber.-9.15) (lstnumber.-9.2)] ->> -% 2016 0 obj -<< -/Names [(lstnumber.-9.20) 1740 0 R (lstnumber.-9.21) 1741 0 R (lstnumber.-9.22) 1742 0 R (lstnumber.-9.23) 1743 0 R (lstnumber.-9.24) 1744 0 R (lstnumber.-9.3) 1723 0 R] -/Limits [(lstnumber.-9.20) (lstnumber.-9.3)] ->> -% 2017 0 obj -<< -/Names [(lstnumber.-9.4) 1724 0 R (lstnumber.-9.5) 1725 0 R (lstnumber.-9.6) 1726 0 R (lstnumber.-9.7) 1727 0 R (lstnumber.-9.8) 1728 0 R (lstnumber.-9.9) 1729 0 R] -/Limits [(lstnumber.-9.4) (lstnumber.-9.9)] ->> -% 2018 0 obj -<< -/Names [(page.1) 568 0 R (page.10) 871 0 R (page.100) 1554 0 R (page.101) 1560 0 R (page.102) 1568 0 R (page.103) 1575 0 R] -/Limits [(page.1) (page.103)] ->> -% 2019 0 obj -<< -/Names [(page.104) 1580 0 R (page.105) 1590 0 R (page.106) 1594 0 R (page.107) 1598 0 R (page.108) 1611 0 R (page.109) 1615 0 R] -/Limits [(page.104) (page.109)] ->> -% 2020 0 obj -<< -/Names [(page.11) 882 0 R (page.110) 1622 0 R (page.111) 1628 0 R (page.112) 1635 0 R (page.113) 1639 0 R (page.114) 1643 0 R] -/Limits [(page.11) (page.114)] ->> -% 2021 0 obj -<< -/Names [(page.115) 1647 0 R (page.116) 1652 0 R (page.117) 1656 0 R (page.118) 1660 0 R (page.119) 1666 0 R (page.12) 897 0 R] -/Limits [(page.115) (page.12)] ->> -% 2022 0 obj -<< -/Names [(page.120) 1673 0 R (page.121) 1679 0 R (page.122) 1686 0 R (page.123) 1692 0 R (page.124) 1700 0 R (page.125) 1705 0 R] -/Limits [(page.120) (page.125)] ->> -% 2023 0 obj -<< -/Names [(page.126) 1712 0 R (page.127) 1718 0 R (page.128) 1749 0 R (page.129) 1755 0 R (page.13) 901 0 R (page.130) 1761 0 R] -/Limits [(page.126) (page.130)] ->> -% 2024 0 obj -<< -/Names [(page.131) 1767 0 R (page.132) 1773 0 R (page.133) 1778 0 R (page.134) 1787 0 R (page.135) 1794 0 R (page.136) 1800 0 R] -/Limits [(page.131) (page.136)] ->> -% 2025 0 obj -<< -/Names [(page.137) 1807 0 R (page.138) 1813 0 R (page.139) 1819 0 R (page.14) 906 0 R (page.140) 1826 0 R (page.141) 1835 0 R] -/Limits [(page.137) (page.141)] ->> -% 2026 0 obj -<< -/Names [(page.142) 1839 0 R (page.143) 1847 0 R (page.144) 1852 0 R (page.145) 1856 0 R (page.146) 1863 0 R (page.147) 1867 0 R] -/Limits [(page.142) (page.147)] ->> -% 2027 0 obj -<< -/Names [(page.148) 1874 0 R (page.149) 1886 0 R (page.15) 914 0 R (page.150) 1892 0 R (page.151) 1896 0 R (page.152) 1905 0 R] -/Limits [(page.148) (page.152)] ->> -% 2028 0 obj -<< -/Names [(page.16) 922 0 R (page.17) 927 0 R (page.18) 932 0 R (page.19) 936 0 R (page.2) 578 0 R (page.20) 941 0 R] -/Limits [(page.16) (page.20)] ->> -% 2029 0 obj -<< -/Names [(page.21) 945 0 R (page.22) 949 0 R (page.23) 955 0 R (page.24) 961 0 R (page.25) 967 0 R (page.26) 975 0 R] -/Limits [(page.21) (page.26)] ->> -% 2030 0 obj -<< -/Names [(page.27) 981 0 R (page.28) 986 0 R (page.29) 997 0 R (page.3) 783 0 R (page.30) 1003 0 R (page.31) 1012 0 R] -/Limits [(page.27) (page.31)] ->> -% 2031 0 obj -<< -/Names [(page.32) 1020 0 R (page.33) 1036 0 R (page.34) 1041 0 R (page.35) 1048 0 R (page.36) 1053 0 R (page.37) 1066 0 R] -/Limits [(page.32) (page.37)] ->> -% 2032 0 obj -<< -/Names [(page.38) 1075 0 R (page.39) 1080 0 R (page.4) 799 0 R (page.40) 1093 0 R (page.41) 1098 0 R (page.42) 1105 0 R] -/Limits [(page.38) (page.42)] ->> -% 2033 0 obj -<< -/Names [(page.43) 1110 0 R (page.44) 1124 0 R (page.45) 1132 0 R (page.46) 1139 0 R (page.47) 1150 0 R (page.48) 1165 0 R] -/Limits [(page.43) (page.48)] ->> -% 2034 0 obj -<< -/Names [(page.49) 1171 0 R (page.5) 811 0 R (page.50) 1183 0 R (page.51) 1189 0 R (page.52) 1200 0 R (page.53) 1205 0 R] -/Limits [(page.49) (page.53)] ->> -% 2035 0 obj -<< -/Names [(page.54) 1216 0 R (page.55) 1221 0 R (page.56) 1231 0 R (page.57) 1238 0 R (page.58) 1246 0 R (page.59) 1256 0 R] -/Limits [(page.54) (page.59)] ->> -% 2036 0 obj -<< -/Names [(page.6) 816 0 R (page.60) 1269 0 R (page.61) 1277 0 R (page.62) 1290 0 R (page.63) 1298 0 R (page.64) 1302 0 R] -/Limits [(page.6) (page.64)] ->> -% 2037 0 obj -<< -/Names [(page.65) 1317 0 R (page.66) 1325 0 R (page.67) 1331 0 R (page.68) 1341 0 R (page.69) 1345 0 R (page.7) 831 0 R] -/Limits [(page.65) (page.7)] ->> -% 2038 0 obj -<< -/Names [(page.70) 1351 0 R (page.71) 1357 0 R (page.72) 1362 0 R (page.73) 1372 0 R (page.74) 1378 0 R (page.75) 1387 0 R] -/Limits [(page.70) (page.75)] ->> -% 2039 0 obj -<< -/Names [(page.76) 1394 0 R (page.77) 1399 0 R (page.78) 1405 0 R (page.79) 1409 0 R (page.8) 852 0 R (page.80) 1418 0 R] -/Limits [(page.76) (page.80)] ->> -% 2040 0 obj -<< -/Names [(page.81) 1426 0 R (page.82) 1432 0 R (page.83) 1441 0 R (page.84) 1453 0 R (page.85) 1457 0 R (page.86) 1471 0 R] -/Limits [(page.81) (page.86)] ->> -% 2041 0 obj -<< -/Names [(page.87) 1477 0 R (page.88) 1484 0 R (page.89) 1490 0 R (page.9) 863 0 R (page.90) 1494 0 R (page.91) 1503 0 R] -/Limits [(page.87) (page.91)] ->> -% 2042 0 obj -<< -/Names [(page.92) 1510 0 R (page.93) 1514 0 R (page.94) 1519 0 R (page.95) 1523 0 R (page.96) 1530 0 R (page.97) 1535 0 R] -/Limits [(page.92) (page.97)] ->> -% 2043 0 obj -<< -/Names [(page.98) 1542 0 R (page.99) 1548 0 R (page.i) 629 0 R (page.ii) 682 0 R (page.iii) 731 0 R (page.iv) 736 0 R] -/Limits [(page.98) (page.iv)] ->> -% 2044 0 obj -<< -/Names [(precdata) 976 0 R (section*.1) 630 0 R (section*.10) 79 0 R (section*.100) 493 0 R (section*.101) 497 0 R (section*.102) 505 0 R] -/Limits [(precdata) (section*.102)] ->> -% 2045 0 obj -<< -/Names [(section*.103) 509 0 R (section*.104) 513 0 R (section*.105) 517 0 R (section*.106) 521 0 R (section*.107) 525 0 R (section*.108) 533 0 R] -/Limits [(section*.103) (section*.108)] ->> -% 2046 0 obj -<< -/Names [(section*.109) 537 0 R (section*.11) 83 0 R (section*.110) 541 0 R (section*.111) 545 0 R (section*.112) 549 0 R (section*.113) 553 0 R] -/Limits [(section*.109) (section*.113)] ->> -% 2047 0 obj -<< -/Names [(section*.114) 561 0 R (section*.115) 1897 0 R (section*.12) 99 0 R (section*.13) 103 0 R (section*.14) 107 0 R (section*.15) 111 0 R] -/Limits [(section*.114) (section*.15)] ->> -% 2048 0 obj -<< -/Names [(section*.16) 115 0 R (section*.17) 119 0 R (section*.18) 123 0 R (section*.19) 127 0 R (section*.2) 47 0 R (section*.20) 131 0 R] -/Limits [(section*.16) (section*.20)] ->> -% 2049 0 obj -<< -/Names [(section*.21) 135 0 R (section*.22) 139 0 R (section*.23) 143 0 R (section*.24) 147 0 R (section*.25) 151 0 R (section*.26) 155 0 R] -/Limits [(section*.21) (section*.26)] ->> -% 2050 0 obj -<< -/Names [(section*.27) 159 0 R (section*.28) 163 0 R (section*.29) 179 0 R (section*.3) 51 0 R (section*.30) 183 0 R (section*.31) 187 0 R] -/Limits [(section*.27) (section*.31)] ->> -% 2051 0 obj -<< -/Names [(section*.32) 191 0 R (section*.33) 195 0 R (section*.34) 212 0 R (section*.35) 216 0 R (section*.36) 220 0 R (section*.37) 224 0 R] -/Limits [(section*.32) (section*.37)] ->> -% 2052 0 obj -<< -/Names [(section*.38) 228 0 R (section*.39) 232 0 R (section*.4) 55 0 R (section*.40) 236 0 R (section*.41) 240 0 R (section*.42) 244 0 R] -/Limits [(section*.38) (section*.42)] ->> -% 2053 0 obj -<< -/Names [(section*.43) 248 0 R (section*.44) 252 0 R (section*.45) 256 0 R (section*.46) 260 0 R (section*.47) 264 0 R (section*.48) 268 0 R] -/Limits [(section*.43) (section*.48)] ->> -% 2054 0 obj -<< -/Names [(section*.49) 272 0 R (section*.5) 59 0 R (section*.50) 280 0 R (section*.51) 284 0 R (section*.52) 288 0 R (section*.53) 292 0 R] -/Limits [(section*.49) (section*.53)] ->> -% 2055 0 obj -<< -/Names [(section*.54) 300 0 R (section*.55) 304 0 R (section*.56) 308 0 R (section*.57) 312 0 R (section*.58) 316 0 R (section*.59) 320 0 R] -/Limits [(section*.54) (section*.59)] ->> -% 2056 0 obj -<< -/Names [(section*.6) 63 0 R (section*.60) 324 0 R (section*.61) 328 0 R (section*.62) 332 0 R (section*.63) 336 0 R (section*.64) 340 0 R] -/Limits [(section*.6) (section*.64)] ->> -% 2057 0 obj -<< -/Names [(section*.65) 344 0 R (section*.66) 348 0 R (section*.67) 352 0 R (section*.68) 356 0 R (section*.69) 360 0 R (section*.7) 67 0 R] -/Limits [(section*.65) (section*.7)] ->> -% 2058 0 obj -<< -/Names [(section*.70) 364 0 R (section*.71) 368 0 R (section*.72) 372 0 R (section*.73) 376 0 R (section*.74) 380 0 R (section*.75) 384 0 R] -/Limits [(section*.70) (section*.75)] ->> -% 2059 0 obj -<< -/Names [(section*.76) 388 0 R (section*.77) 392 0 R (section*.78) 396 0 R (section*.79) 400 0 R (section*.8) 71 0 R (section*.80) 405 0 R] -/Limits [(section*.76) (section*.80)] ->> -% 2060 0 obj -<< -/Names [(section*.81) 413 0 R (section*.82) 417 0 R (section*.83) 421 0 R (section*.84) 425 0 R (section*.85) 429 0 R (section*.86) 433 0 R] -/Limits [(section*.81) (section*.86)] ->> -% 2061 0 obj -<< -/Names [(section*.87) 437 0 R (section*.88) 441 0 R (section*.89) 445 0 R (section*.9) 75 0 R (section*.90) 449 0 R (section*.91) 453 0 R] -/Limits [(section*.87) (section*.91)] ->> -% 2062 0 obj -<< -/Names [(section*.92) 457 0 R (section*.93) 461 0 R (section*.94) 465 0 R (section*.95) 469 0 R (section*.96) 473 0 R (section*.97) 477 0 R] -/Limits [(section*.92) (section*.97)] ->> -% 2063 0 obj -<< -/Names [(section*.98) 485 0 R (section*.99) 489 0 R (section.1) 7 0 R (section.10) 529 0 R (section.11) 557 0 R (section.2) 11 0 R] -/Limits [(section*.98) (section.2)] ->> -% 2064 0 obj -<< -/Names [(section.3) 35 0 R (section.4) 208 0 R (section.5) 276 0 R (section.6) 296 0 R (section.7) 409 0 R (section.8) 481 0 R] -/Limits [(section.3) (section.8)] ->> -% 2065 0 obj -<< -/Names [(section.9) 501 0 R (spbasedata) 916 0 R (spdata) 915 0 R (subsection.2.1) 15 0 R (subsection.2.2) 19 0 R (subsection.2.3) 23 0 R] -/Limits [(section.9) (subsection.2.3)] ->> -% 2066 0 obj -<< -/Names [(subsection.2.4) 31 0 R (subsection.3.1) 39 0 R (subsection.3.2) 91 0 R (subsection.3.3) 171 0 R (subsection.3.4) 199 0 R (subsection.3.5) 204 0 R] -/Limits [(subsection.2.4) (subsection.3.5)] ->> -% 2067 0 obj -<< -/Names [(subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R (subsubsection.3.1.2) 87 0 R (subsubsection.3.2.1) 95 0 R (subsubsection.3.2.2) 167 0 R (subsubsection.3.3.1) 175 0 R] -/Limits [(subsubsection.2.3.1) (subsubsection.3.3.1)] ->> -% 2068 0 obj -<< -/Names [(table.1) 969 0 R (table.10) 1133 0 R (table.11) 1141 0 R (table.12) 1154 0 R (table.13) 1172 0 R (table.14) 1201 0 R] -/Limits [(table.1) (table.14)] ->> -% 2069 0 obj -<< -/Names [(table.15) 1217 0 R (table.16) 1232 0 R (table.17) 1247 0 R (table.18) 1278 0 R (table.19) 1318 0 R (table.2) 1013 0 R] -/Limits [(table.15) (table.2)] ->> -% 2070 0 obj -<< -/Names [(table.20) 1332 0 R (table.3) 1037 0 R (table.4) 1049 0 R (table.5) 1067 0 R (table.6) 1076 0 R (table.7) 1094 0 R] -/Limits [(table.20) (table.7)] ->> -% 2071 0 obj -<< -/Names [(table.8) 1106 0 R (table.9) 1125 0 R (title.0) 3 0 R (vbasedata) 907 0 R (vdata) 956 0 R] -/Limits [(table.8) (vdata)] ->> -% 2072 0 obj -<< -/Kids [1976 0 R 1977 0 R 1978 0 R 1979 0 R 1980 0 R 1981 0 R] -/Limits [(Doc-Start) (Item.125)] ->> -% 2073 0 obj -<< -/Kids [1982 0 R 1983 0 R 1984 0 R 1985 0 R 1986 0 R 1987 0 R] -/Limits [(Item.126) (Item.42)] ->> -% 2074 0 obj -<< -/Kids [1988 0 R 1989 0 R 1990 0 R 1991 0 R 1992 0 R 1993 0 R] -/Limits [(Item.43) (Item.75)] ->> -% 2075 0 obj -<< -/Kids [1994 0 R 1995 0 R 1996 0 R 1997 0 R 1998 0 R 1999 0 R] -/Limits [(Item.76) (cite.METIS)] ->> -% 2076 0 obj -<< -/Kids [2000 0 R 2001 0 R 2002 0 R 2003 0 R 2004 0 R 2005 0 R] -/Limits [(cite.MPI1) (lstlisting.-20)] ->> -% 2077 0 obj -<< -/Kids [2006 0 R 2008 0 R 2009 0 R 2010 0 R 2011 0 R 2012 0 R] -/Limits [(lstlisting.-3) (lstnumber.-5.1)] ->> -% 2078 0 obj -<< -/Kids [2013 0 R 2014 0 R 2015 0 R 2016 0 R 2017 0 R 2018 0 R] -/Limits [(lstnumber.-5.2) (page.103)] ->> -% 2079 0 obj -<< -/Kids [2019 0 R 2020 0 R 2021 0 R 2022 0 R 2023 0 R 2024 0 R] -/Limits [(page.104) (page.136)] ->> -% 2080 0 obj -<< -/Kids [2025 0 R 2026 0 R 2027 0 R 2028 0 R 2029 0 R 2030 0 R] -/Limits [(page.137) (page.31)] ->> -% 2081 0 obj -<< -/Kids [2031 0 R 2032 0 R 2033 0 R 2034 0 R 2035 0 R 2036 0 R] -/Limits [(page.32) (page.64)] ->> -% 2082 0 obj -<< -/Kids [2037 0 R 2038 0 R 2039 0 R 2040 0 R 2041 0 R 2042 0 R] -/Limits [(page.65) (page.97)] ->> -% 2083 0 obj -<< -/Kids [2043 0 R 2044 0 R 2045 0 R 2046 0 R 2047 0 R 2048 0 R] -/Limits [(page.98) (section*.20)] ->> -% 2084 0 obj -<< -/Kids [2049 0 R 2050 0 R 2051 0 R 2052 0 R 2053 0 R 2054 0 R] -/Limits [(section*.21) (section*.53)] ->> -% 2085 0 obj -<< -/Kids [2055 0 R 2056 0 R 2057 0 R 2058 0 R 2059 0 R 2060 0 R] -/Limits [(section*.54) (section*.86)] ->> -% 2086 0 obj -<< -/Kids [2061 0 R 2062 0 R 2063 0 R 2064 0 R 2065 0 R 2066 0 R] -/Limits [(section*.87) (subsection.3.5)] ->> -% 2087 0 obj -<< -/Kids [2067 0 R 2068 0 R 2069 0 R 2070 0 R 2071 0 R] -/Limits [(subsubsection.2.3.1) (vdata)] ->> -% 2088 0 obj -<< -/Kids [2072 0 R 2073 0 R 2074 0 R 2075 0 R 2076 0 R 2077 0 R] -/Limits [(Doc-Start) (lstnumber.-5.1)] ->> -% 2089 0 obj -<< -/Kids [2078 0 R 2079 0 R 2080 0 R 2081 0 R 2082 0 R 2083 0 R] -/Limits [(lstnumber.-5.2) (section*.20)] ->> -% 2090 0 obj -<< -/Kids [2084 0 R 2085 0 R 2086 0 R 2087 0 R] -/Limits [(section*.21) (vdata)] ->> -% 2091 0 obj -<< -/Kids [2088 0 R 2089 0 R 2090 0 R] -/Limits [(Doc-Start) (vdata)] ->> -% 2092 0 obj -<< -/Dests 2091 0 R ->> -% 2093 0 obj -<< -/Type /Catalog -/Pages 1973 0 R -/Outlines 1974 0 R -/Names 2092 0 R - /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<>2<>6<>]>> -/OpenAction 564 0 R -======= /Parent 2008 0 R /First 8 0 R /Last 570 0 R @@ -50457,8 +30141,8 @@ endobj 2130 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 package)/Producer(pdfTeX-1.40.19)/Keywords() -/CreationDate (D:20191217193209Z) -/ModDate (D:20191217193209Z) +/CreationDate (D:20191217194209Z) +/ModDate (D:20191217194209Z) /Trapped /False /PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.19 (TeX Live 2018) kpathsea version 6.3.0) >> @@ -50575,63 +30259,10 @@ stream /Names 2128 0 R /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<>2<>6<>]>> /OpenAction 576 0 R ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf >> endstream endobj -<<<<<<< HEAD:docs/psblas-3.6.pdf -2095 0 obj -<< -/Type /XRef -/Index [0 2096] -/Size 2096 -/W [1 3 1] -/Root 2093 0 R -/Info 2094 0 R -/ID [ ] -/Length 10480 ->> -stream -ÿ”T·EÜ4·DÜ>·CÜF·BÜR·A  -Ü[·@  :·? :·>:#·=:$·<:D·;:E·::F·9:G·8:K·7:L·6 :M·5!":Q·4#$:R·3%&:T·2'(:U·1)*:\·0+,:]·/-.›·./0›·-12›·,34›·+56›·*78› ·)9:› ·(;<›·'=>›·&?@›·%AB›·$CD›·#EF›·"GH›·!IJ›· KL›"·MN›(·OP›)·QR›*·ST›+·UV›1·WX›2·YZ›3·[\›9·]^›>·_`›?·ab›@·c˼›G·ËË›K·ËË›U·ËË÷·ËË÷·Ë Ë -÷!·Ë Ë ÷2· Ë Ë÷:· ËË÷K· ËË÷V· -ËËf· ËËf -·ËËf·ËËf·ËËf.·ËËfI·ËË fV·Ë!Ë"Ñ·Ë#Ë$Ñ·Ë%Ë&Ñ·Ë'Ë(Ñ(°cË)Ë*ÑI°bË+Ë,ÑU°aË-Ë.Ñb°`Ë/Ë0Ñc°_Ë1Ë2B°^Ë3Ë4B#°]Ë5Ë6B*°\Ë7Ë8B/°[Ë9Ë:B5°ZË;Ë<B@°YË=Ë>BG°XË?Ë@Ba°WËAËB¹ °VËCËD¹°UËEËF¹°TËGËH¹°SËIËJ¹+°RËKËL¹1°QËMËN¹5°PËOËP¹:°OËQËR¹D°NËSËT¹I°MËUËV¹O°LËWËX¹U°KËYËZ¹[°JË[Ë\¹a°IË]Ë^°HË_Ë` °GËaËb°FËc”j‹°E””,°D””0°C””6°B””<°A” ” -C°@” ” G°?” ”K°>””O°=””S°<””W°;””[°:””a°9””…°8””… °7””…°6”” …°5”!”"…°4”#”$…!°3”%”&…(°2”'”(…J°1”)”*…P°0”+”,…V°/”-”.…\°.”/”0…b°-”1”2õ°,”3”4õ -°+”5”6õ°*”7”8õ°)”9”:õ°(”;”<õ$°'”=”>õ*°&”?”@õ0°%”A”Bõ9°$”C”DõD°#”E”FõI°"”G”HõM°!”I”JõS° ”K”LõW°”M”Nõ]°”O”P”Q”U$ê”R”S_M_\_L_T_`”X”V'o”W”Z”[”\”]”^”_”`”a”b”cwwwwwwwwww w -w w w wwwwwwwwwwwwwwwwwww w!w"w#w(w&”Y'øw$w%Ôw)w*w+w,w-w.w/w0w1w2w3w4w5w6w7w8w9w:w;w<w=w>w?w@wAwBwCwDwEwFwGwHwIwJwKwLwMwNwOwPwQwRwSwTwUwVwZwXw'„7wWw[w\w]w^w_w`wawbwcÜÜÜÜÜÜÜÜÜÜ Ü -Ü Ü Ü ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ Ü!Ü%Ü&Ü#wYÔÜ"ûÜ(Ü$^Ü'Ü*Ü+Ü,Ü-Ü.Ü/Ü0Ü1Ü2Ü3Ü5Ü)`Þ_[_a_ __ _!______Ü;Ü<Ü=˜gÜBÜ@Ü6‚`_PÜ?Ü7Ü8Ü9Ü:_ÜCÜDÜIÜA¨ÀÜE_]_V_R_Y_UÜG_WÜH_ÜNÜOà°ÜSÜJË’ÜPÜQÜKÜLÜM__ÜUÜVÜXÜTçZÜW::ÜYüìÜZ_QÜ\Ü]Ü^Ü_Ü`ÜaÜbÜcT–:::Tx::::::: : -: : : ::::_^_b:::rÛ::::::::!:&: H:":%:(:):*:1:'±”:+:,:-:.:/:0:3:4:?:2Ì{:5:6:7:8:9:::;:<:=:>:A:B:H:@àñ:C:N:Iõ|:J_c:V:O:P:S:X:Y:Z:`:W¿:[:^:__:c›:a?j:b<› ›x‘›››› -†x› ››•/›°››§d›››·Œ››#› Lj›!›%›&›-›$ÝM›'›,›0›4›.û£›/›6›7›:›5 -S›8°›V›<›D›B›;Œ›=›A›F›H›C+ô›E__›L›I:x›J›N›O›P›Q›R›S›Y›W›M;R›T›Z›[›]›XXO›\›_›`›a›b›c÷›^bë÷÷°¶o÷÷ ÷¨è÷÷÷÷ ÷ -÷ ÷ ÷÷÷÷÷÷÷÷½÷÷÷÷Þj÷÷÷÷÷#÷á÷ ÷"÷,÷$ü÷%÷&÷'÷(÷)÷*÷+÷.÷/÷0÷4÷-/÷1÷3°÷6÷7÷8÷<÷5'"÷9÷;÷E÷=CK÷>÷?÷@÷A÷B÷C÷D÷G÷H÷I÷M÷FR®÷J÷L÷P÷No¢÷O÷R÷S÷T÷X÷QrO÷U÷W÷a÷Y‹Ê÷Z÷[÷\÷]÷^÷_÷`°÷cfff÷bž ffñcfff fáf f ffff öÊf_Zffffff!ff šffffff"f#f$f%f&f'f(f*f )wf)f,f2f0f+Dôf-f/°f3f4f5f6f7f8f:f1_´f9f<f=f?f;~^f>fAfBfCfDfEfFfGfKf@ÒfHfJfNfL® fMfPfQfRfSfTfZf[fXfO°ºfUfWf]fYÍéf\°f_f`fafbfcÑf^ÓõÑÑø"ÑÑÑ$»ÑÑ -Ñ Ñ ÑÑÑ 'pÑ ÑÑÑÑP¤ÑÑÑCèÑÑÑÑÑÑÑÑ^ÿ’nÑ"Ñ ÀÑ!_XÑ$Ñ%Ñ&Ñ-Ñ#Ì4Ñ'Ñ)Ñ*Ñ+Ñ,°Ñ/zÑ0Ñ1Ñ6Ñ.íµÑ2Ñ3Ñ4Ñ5ÑBÑ9Ñ7âÑ8ÑCÑ:ÿÑAÑ;Ñ<Ñ=Ñ>Ñ?Ñ@#V‡ÑEÑFÑGÑNÑD„ÑHÑJÑKÑLÑMÑQÑO©ÑPÑSÑ[ÑYÑR®øÑTÑVÑWÑX°Ñ\Ñ]Ñ_ÑZÍÉÑ^BÑ`Þ[Ña -[×BBB &ÔBBBB -B @øBB BB  h–B B BBBBBBB s>B° BBB BBBBB B!B%B œB"B$B'B(B+B& ®ØB)B-B0B, »ãB.B2B3B6B1 ÄãB4B;B7 Ü<B8B9B:° -B=B>BDB< â°B?BABBBCBJBHBE öBFBKBLBSBI - ŒBMBNBOBPBQBRB\BT -)BUBVBWBXBYBZB[B^B_BbB] -8B`¹Bc -RÒ¹¹¹¹¹¹¹°  ˆœ¹ ¹ -¹ ¹ -…3¹ ¹¹¹¹ -‘|¹¹¹¹¹¹ -¡P¹¹¹¹ ¹ -µ„¹¹%¹! -Ðb¹"¹#¹$¹'¹(¹)¹,¹& -Ôú¹*° ¹.¹/¹2¹- -é–¹0¹6¹3 -÷¹4¹8¹;¹7 °¹9¹@¹< €¹=¹>¹?¹B¹E¹A !q¹C¹G¹K¹F 8¹H¹J° ¹M¹Q¹L E¹N¹P¹S¹W¹R XιT¹V¹Y¹]¹X e³¹Z¹\¹_¹^ yq¹`¹b¹c Ä  ²    Á$ -°  ×ù æ¶ ÷) Ú !"#$%&'(-* )j+3. *b/12°94 @^578@: Rº;=>?DA cûBHE l¨FLI x±JPM } N°TQ ƒ©RXU ‰3V^Y ›8Z\]…_ ¯Ä`bc ÅÔ…… éY………… … ýÕ…… -… °……  ‰…………… '_………_O……… ?á………#… U… …"…%…&…)…$ j<…'…E…F…G…* ƒ€…+…,…-_N….…/…0…1…2…3…4…5…6…7…8…9…:…;…<…=…>…?…@…A…B…C…D°…M…H Ÿñ…I…K…L…S…N ®¹…O…Q…R…Y…T ´l…U…W…X…_…Z » …[…]…^…c…` Ã}…aõõõ çÓõõõ÷Ó°õõ õ úÈõ õ õ õõõ|õõõõõõõõõõ!õ,³õõõ õ'õ"=@õ#õ%õ&õ+õ(J¡õ)°õ-õ.õ2õ,Ošõ/õ1õ4õ5õ6õ7õ:õ3c¸õ8õ=õ;‚<õ<õ?õ@õAõBõEõ>†ÂõCõGõJõFÖõHõNõK©‹õL°õPõQõTõO­¥õRõXõU¸ŒõVõZõ[_õbõY»õ\õ^õ_õ`õa_S____õcÛÇ_`í__ _" ___ -4Š_ _ ___°_#_P-__"_$_%_&_'_(_)_*_+_,_-_._/_0_1_2_3_4_5_6_7\ž_8´Þ_9c_:*ê_;H¡_<Š1_=¨/_>΢_?î_@SÀ_As­_B•ˆ_C×1_D÷_E>¢_F\C_G¬_HÛ}_I)_J9=_K°²°°°°°°Û²·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×L×M×N×O×P×Q×R×S×T×U×V ­M~ -endstream -endobj -startxref -1330558 -======= 2131 0 obj << /Type /XRef @@ -50640,7 +30271,7 @@ startxref /W [1 3 1] /Root 2129 0 R /Info 2130 0 R -/ID [<3B79E1E6431616BF39FA9DB2C0ED2BAF> <3B79E1E6431616BF39FA9DB2C0ED2BAF>] +/ID [<362C1AAB92CF66A0E508C639DC7E96C3> <362C1AAB92CF66A0E508C639DC7E96C3>] /Length 10660 >> stream @@ -50684,5 +30315,4 @@ endstream endobj startxref 1347795 ->>>>>>> merge-paraggr:docs/psblas-3.7.pdf %%EOF From f5709a22543f11bc3820f414b28cc856d2aa65ae Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 17 Feb 2020 22:41:51 +0100 Subject: [PATCH 10/61] Added psb_geabs, final output not working --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 ++ base/modules/serial/psb_c_base_vect_mod.f90 | 2 +- base/modules/serial/psb_d_base_vect_mod.f90 | 2 +- base/modules/serial/psb_s_base_vect_mod.f90 | 2 +- base/modules/serial/psb_z_base_vect_mod.f90 | 2 +- base/psblas/Makefile | 4 +- base/psblas/psb_cabs_vect.f90 | 105 ++++++++++++++++++++ base/psblas/psb_dabs_vect.f90 | 105 ++++++++++++++++++++ base/psblas/psb_sabs_vect.f90 | 105 ++++++++++++++++++++ base/psblas/psb_zabs_vect.f90 | 105 ++++++++++++++++++++ test/kernel/vecoperation.f90 | 29 +++++- 14 files changed, 497 insertions(+), 8 deletions(-) create mode 100644 base/psblas/psb_cabs_vect.f90 create mode 100644 base/psblas/psb_dabs_vect.f90 create mode 100644 base/psblas/psb_sabs_vect.f90 create mode 100644 base/psblas/psb_zabs_vect.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 52b909aba..085c30117 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -479,5 +479,16 @@ module psb_c_psblas_mod end subroutine psb_cinv_vect_check end interface + interface psb_geabs + subroutine psb_cabs_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cabs_vect + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 1407cbb65..2ab73364c 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -479,6 +479,17 @@ module psb_d_psblas_mod end subroutine psb_dinv_vect_check end interface + interface psb_geabs + subroutine psb_dabs_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dabs_vect + end interface + interface psb_gecmp subroutine psb_dcmp_vect(x,c,z,desc_a,info) import :: psb_desc_type, psb_ipk_, & diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index e1a62206c..f71adc45d 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -479,6 +479,17 @@ module psb_s_psblas_mod end subroutine psb_sinv_vect_check end interface + interface psb_geabs + subroutine psb_sabs_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_sabs_vect + end interface + interface psb_gecmp subroutine psb_scmp_vect(x,c,z,desc_a,info) import :: psb_desc_type, psb_ipk_, & diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index ee8f44e98..5d7f4d157 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -479,5 +479,16 @@ module psb_z_psblas_mod end subroutine psb_zinv_vect_check end interface + interface psb_geabs + subroutine psb_zabs_vect(x,y,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zabs_vect + end interface + end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 0eca0832b..8339022b9 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -2770,7 +2770,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),cone,x,czero,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),czero,x,cone,info) call y%absval() end if diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index dc0c56aa7..b8f17c618 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -2828,7 +2828,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),done,x,dzero,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),dzero,x,done,info) call y%absval() end if diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 450fdd290..b26fda8be 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -2828,7 +2828,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),sone,x,szero,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),szero,x,sone,info) call y%absval() end if diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 808d9d4fc..4b052cec3 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -2770,7 +2770,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),zzero,x,zone,info) call y%absval() end if diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 1feb2e786..2e7f89ec6 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -13,7 +13,9 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\ psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\ - psb_dcmp_vect.o psb_scmp_vect.o + psb_dcmp_vect.o psb_scmp_vect.o \ + psb_cabs_vect.o psb_dabs_vect.o psb_sabs_vect.o \ + psb_zabs_vect.o LIBDIR=.. INCDIR=.. diff --git a/base/psblas/psb_cabs_vect.f90 b/base/psblas/psb_cabs_vect.f90 new file mode 100644 index 000000000..592ca72a9 --- /dev/null +++ b/base/psblas/psb_cabs_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_cabs_vect + +subroutine psb_cabs_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cabs_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_abs_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%absval(x) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cabs_vect diff --git a/base/psblas/psb_dabs_vect.f90 b/base/psblas/psb_dabs_vect.f90 new file mode 100644 index 000000000..b48f36130 --- /dev/null +++ b/base/psblas/psb_dabs_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_dabs_vect + +subroutine psb_dabs_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dabs_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_abs_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%absval(x) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dabs_vect diff --git a/base/psblas/psb_sabs_vect.f90 b/base/psblas/psb_sabs_vect.f90 new file mode 100644 index 000000000..e92ba1590 --- /dev/null +++ b/base/psblas/psb_sabs_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_sabs_vect + +subroutine psb_sabs_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_sabs_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_abs_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%absval(x) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sabs_vect diff --git a/base/psblas/psb_zabs_vect.f90 b/base/psblas/psb_zabs_vect.f90 new file mode 100644 index 000000000..85f8e897b --- /dev/null +++ b/base/psblas/psb_zabs_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_zabs_vect + +subroutine psb_zabs_vect(x,y,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zabs_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_abs_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call y%absval(x) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zabs_vect diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 02039033d..29634efdc 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -46,7 +46,7 @@ program vecoperation ! descriptor type(psb_desc_type) :: desc_a ! vector - type(psb_d_vect_type) :: x,y,z + type(psb_d_vect_type) :: x,y,z,absz ! blacs parameters integer(psb_ipk_) :: ictxt, iam, np ! other variables @@ -115,12 +115,16 @@ program vecoperation call psb_geall(x,desc_a,info) call psb_geall(y,desc_a,info) call psb_geall(z,desc_a,info) + call psb_geall(absz,desc_a,info) ! Put entries into the vectors do ii=1,nlr - zt(1) = 1.0 + zt(1) = 1.0_psb_dpk_ call psb_geins(ib,myidx(ii:),zt(1:),x,desc_a,info) - zt(1) = 2.0 + zt(1) = 2.0_psb_dpk_ call psb_geins(ib,myidx(ii:),zt(1:),y,desc_a,info) + zt(1) = -10.0_psb_dpk_ + call psb_geins(ib,myidx(ii:),zt(1:),z,desc_a,info) + call psb_geins(ib,myidx(ii:),zt(1:),absz,desc_a,info) end do ! Assemble call psb_cdasb(desc_a,info) @@ -132,6 +136,8 @@ program vecoperation end if if (info == psb_success_) call psb_geasb(x,desc_a,info) if (info == psb_success_) call psb_geasb(y,desc_a,info) + if (info == psb_success_) call psb_geasb(z,desc_a,info) + if (info == psb_success_) call psb_geasb(absz,desc_a,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='vec asb rout.' @@ -198,6 +204,21 @@ program vecoperation write(psb_out_unit,'("z = ",es12.1)')vz(:) end if + call psb_geaxpby(-1.0_psb_dpk_, x, 0.0_psb_dpk_, x, desc_a, info) + if (iam == psb_root_) then + write(psb_out_unit,'("abs : z = |x|")') + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + end if + + call psb_geabs(x,absz,desc_a,info) + + if (iam == psb_root_) then + write(psb_out_unit,'("info = ",I1)')info + vz = absz%get_vect() + write(psb_out_unit,'("|x| = ",es12.1)')vz(:) + end if + c = 1.0/2.0; call psb_gecmp(x,c,z,desc_a,info); @@ -214,6 +235,8 @@ program vecoperation ! call psb_gefree(x,desc_a,info) call psb_gefree(y,desc_a,info) + call psb_gefree(z,desc_a,info) + call psb_gefree(absz,desc_a,info) call psb_cdfree(desc_a,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ From 63885c36c7d636bbf2f800a27f7a2ca832a3a0e6 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 18 Feb 2020 09:20:30 +0100 Subject: [PATCH 11/61] psb_geabs corrected version with test --- base/modules/serial/psb_c_base_vect_mod.f90 | 2 +- base/modules/serial/psb_d_base_vect_mod.f90 | 2 +- base/modules/serial/psb_s_base_vect_mod.f90 | 2 +- base/modules/serial/psb_z_base_vect_mod.f90 | 2 +- base/psblas/psb_cabs_vect.f90 | 2 +- base/psblas/psb_dabs_vect.f90 | 2 +- base/psblas/psb_sabs_vect.f90 | 2 +- base/psblas/psb_zabs_vect.f90 | 2 +- test/kernel/vecoperation.f90 | 1 - 9 files changed, 8 insertions(+), 9 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 8339022b9..0eca0832b 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -2770,7 +2770,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),czero,x,cone,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),cone,x,czero,info) call y%absval() end if diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index b8f17c618..dc0c56aa7 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -2828,7 +2828,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),dzero,x,done,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),done,x,dzero,info) call y%absval() end if diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index b26fda8be..450fdd290 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -2828,7 +2828,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),szero,x,sone,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),sone,x,szero,info) call y%absval() end if diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 4b052cec3..808d9d4fc 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -2770,7 +2770,7 @@ contains if (x%is_dev()) call x%sync() if (allocated(x%v)) then - call y%axpby(min(x%get_nrows(),y%get_nrows()),zzero,x,zone,info) + call y%axpby(min(x%get_nrows(),y%get_nrows()),zone,x,zzero,info) call y%absval() end if diff --git a/base/psblas/psb_cabs_vect.f90 b/base/psblas/psb_cabs_vect.f90 index 592ca72a9..46e74635b 100644 --- a/base/psblas/psb_cabs_vect.f90 +++ b/base/psblas/psb_cabs_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_cabs_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%absval(x) + call x%absval(y) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_dabs_vect.f90 b/base/psblas/psb_dabs_vect.f90 index b48f36130..78f2b75cb 100644 --- a/base/psblas/psb_dabs_vect.f90 +++ b/base/psblas/psb_dabs_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_dabs_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%absval(x) + call x%absval(y) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_sabs_vect.f90 b/base/psblas/psb_sabs_vect.f90 index e92ba1590..1d4897a90 100644 --- a/base/psblas/psb_sabs_vect.f90 +++ b/base/psblas/psb_sabs_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_sabs_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%absval(x) + call x%absval(y) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_zabs_vect.f90 b/base/psblas/psb_zabs_vect.f90 index 85f8e897b..86ac6bfb7 100644 --- a/base/psblas/psb_zabs_vect.f90 +++ b/base/psblas/psb_zabs_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_zabs_vect(x,y,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call y%absval(x) + call x%absval(y) end if call psb_erractionrestore(err_act) diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 29634efdc..d8fb234a2 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -214,7 +214,6 @@ program vecoperation call psb_geabs(x,absz,desc_a,info) if (iam == psb_root_) then - write(psb_out_unit,'("info = ",I1)')info vz = absz%get_vect() write(psb_out_unit,'("|x| = ",es12.1)')vz(:) end if From 1b214f3f00640efd757f480a0eee35ae0771890a Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 21 Feb 2020 09:56:10 +0100 Subject: [PATCH 12/61] added weighted 2-norm function --- base/modules/psblas/psb_c_psblas_mod.F90 | 12 +- base/modules/psblas/psb_d_psblas_mod.F90 | 12 +- base/modules/psblas/psb_s_psblas_mod.F90 | 12 +- base/modules/psblas/psb_z_psblas_mod.F90 | 12 +- base/modules/serial/psb_c_vect_mod.F90 | 21 ++- base/modules/serial/psb_d_vect_mod.F90 | 21 ++- base/modules/serial/psb_s_vect_mod.F90 | 21 ++- base/modules/serial/psb_z_vect_mod.F90 | 21 ++- base/psblas/psb_cnrm2.f90 | 177 ++++++++++++++++++----- base/psblas/psb_dnrm2.f90 | 177 ++++++++++++++++++----- base/psblas/psb_snrm2.f90 | 177 ++++++++++++++++++----- base/psblas/psb_znrm2.f90 | 177 ++++++++++++++++++----- test/kernel/vecoperation.f90 | 18 ++- 13 files changed, 704 insertions(+), 154 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 085c30117..217632fbc 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -273,11 +273,21 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_cnrm2_vect + function psb_cnrm2_weight_vect(x,w, desc_a, info,global) result(res) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + real(psb_spk_) :: res + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: w + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_cnrm2_weight_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect + procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect, psb_cnrm2_weight_vect end interface #endif diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 2ab73364c..011ce683f 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -273,11 +273,21 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_dnrm2_vect + function psb_dnrm2_weight_vect(x,w, desc_a, info,global) result(res) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: w + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_dnrm2_weight_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect + procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect, psb_dnrm2_weight_vect end interface #endif diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index f71adc45d..322964122 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -273,11 +273,21 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_snrm2_vect + function psb_snrm2_weight_vect(x,w, desc_a, info,global) result(res) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: w + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_snrm2_weight_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect + procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect, psb_snrm2_weight_vect end interface #endif diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 5d7f4d157..71394e68f 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -273,11 +273,21 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_znrm2_vect + function psb_znrm2_weight_vect(x,w, desc_a, info,global) result(res) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type + real(psb_dpk_) :: res + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: w + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_znrm2_weight_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect + procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect, psb_znrm2_weight_vect end interface #endif diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index bc65eb964..8fc78b2c4 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -108,7 +108,9 @@ module psb_c_vect_mod procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 generic, public :: absval => absval1, absval2 - procedure, pass(x) :: nrm2 => c_vect_nrm2 + procedure, pass(x) :: nrm2std => c_vect_nrm2 + procedure, pass(x) :: nrm2weight => c_vect_nrm2_weight + generic, public :: nrm2 => nrm2std, nrm2weight procedure, pass(x) :: amax => c_vect_amax procedure, pass(x) :: asum => c_vect_asum end type psb_c_vect_type @@ -903,6 +905,23 @@ contains end function c_vect_nrm2 + function c_vect_nrm2_weight(n,x,w) result(res) + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: w + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v)) then + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = szero + end if + + end function c_vect_nrm2_weight + function c_vect_amax(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index be322f9ce..40c9f9a29 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -108,7 +108,9 @@ module psb_d_vect_mod procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 generic, public :: absval => absval1, absval2 - procedure, pass(x) :: nrm2 => d_vect_nrm2 + procedure, pass(x) :: nrm2std => d_vect_nrm2 + procedure, pass(x) :: nrm2weight => d_vect_nrm2_weight + generic, public :: nrm2 => nrm2std, nrm2weight procedure, pass(x) :: amax => d_vect_amax procedure, pass(x) :: asum => d_vect_asum procedure, pass(z) :: cmp_a2 => d_vect_cmp_a2 @@ -933,6 +935,23 @@ contains end function d_vect_nrm2 + function d_vect_nrm2_weight(n,x,w) result(res) + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: w + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v)) then + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = dzero + end if + + end function d_vect_nrm2_weight + function d_vect_amax(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index c1f712083..26f8a3b18 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -108,7 +108,9 @@ module psb_s_vect_mod procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 generic, public :: absval => absval1, absval2 - procedure, pass(x) :: nrm2 => s_vect_nrm2 + procedure, pass(x) :: nrm2std => s_vect_nrm2 + procedure, pass(x) :: nrm2weight => s_vect_nrm2_weight + generic, public :: nrm2 => nrm2std, nrm2weight procedure, pass(x) :: amax => s_vect_amax procedure, pass(x) :: asum => s_vect_asum procedure, pass(z) :: cmp_a2 => s_vect_cmp_a2 @@ -933,6 +935,23 @@ contains end function s_vect_nrm2 + function s_vect_nrm2_weight(n,x,w) result(res) + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: w + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v)) then + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = szero + end if + + end function s_vect_nrm2_weight + function s_vect_amax(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index e9d5e1dd1..2caf29505 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -108,7 +108,9 @@ module psb_z_vect_mod procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 generic, public :: absval => absval1, absval2 - procedure, pass(x) :: nrm2 => z_vect_nrm2 + procedure, pass(x) :: nrm2std => z_vect_nrm2 + procedure, pass(x) :: nrm2weight => z_vect_nrm2_weight + generic, public :: nrm2 => nrm2std, nrm2weight procedure, pass(x) :: amax => z_vect_amax procedure, pass(x) :: asum => z_vect_asum end type psb_z_vect_type @@ -903,6 +905,23 @@ contains end function z_vect_nrm2 + function z_vect_nrm2_weight(n,x,w) result(res) + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: w + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v)) then + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = dzero + end if + + end function z_vect_nrm2_weight + function z_vect_amax(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index 1db5773a2..c3ad75a44 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/base/psblas/psb_cnrm2.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_cnrm2.f90 ! ! Function: psb_cnrm2 @@ -111,7 +111,7 @@ function psb_cnrm2(x, desc_a, info, jx,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = scnrm2( int(ndim,kind=psb_mpk_), x(iix:,jjx), int(ione,kind=psb_mpk_) ) @@ -120,16 +120,16 @@ function psb_cnrm2(x, desc_a, info, jx,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx,jjx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx,jjx))/res)**2) end do - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -138,12 +138,12 @@ end function psb_cnrm2 -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -155,7 +155,7 @@ end function psb_cnrm2 !!$ 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 @@ -167,7 +167,7 @@ end function psb_cnrm2 !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_cnrm2 @@ -226,7 +226,7 @@ function psb_cnrm2v(x, desc_a, info,global) result(res) ix = 1 jx=1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -240,7 +240,7 @@ function psb_cnrm2v(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = scnrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) ! adjust because overlapped elements are computed more than once @@ -248,16 +248,16 @@ function psb_cnrm2v(x, desc_a, info,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) end do - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -314,7 +314,7 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -343,7 +343,7 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = x%nrm2(ndim) ! adjust because overlapped elements are computed more than once @@ -356,27 +356,134 @@ function psb_cnrm2_vect(x, desc_a, info,global) result(res) res = res - sqrt(cone - dd*(abs(x%v%v(idx))/res)**2) end do end if - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end function psb_cnrm2_vect +! Function: psb_cnrm2_weight_vect +! Computes the weighted norm2 of a distributed vector, +! +! norm2 := sqrt ( (w.*X)**C * (w.*X)) +! +! Arguments: +! x - type(psb_c_vect_type) The input vector containing the entries of X. +! w - type(psb_c_vect_type) The input vector containing the entries of W. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_cnrm2_weight_vect(x,w, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_c_vect_mod + implicit none -!!$ + real(psb_spk_) :: res + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: w + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_spk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_cnrm2v_weight' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(cone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = szero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_cnrm2_weight_vect + + +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -388,7 +495,7 @@ end function psb_cnrm2_vect !!$ 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 @@ -400,7 +507,7 @@ end function psb_cnrm2_vect !!$ 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. -!!$ +!!$ !!$ ! ! Subroutine: psb_cnrm2vs @@ -461,7 +568,7 @@ subroutine psb_cnrm2vs(res, x, desc_a, info,global) ix = 1 jx = 1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -475,7 +582,7 @@ subroutine psb_cnrm2vs(res, x, desc_a, info,global) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = scnrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) @@ -484,9 +591,9 @@ subroutine psb_cnrm2vs(res, x, desc_a, info,global) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) end do - else + else res = szero end if @@ -494,7 +601,7 @@ subroutine psb_cnrm2vs(res, x, desc_a, info,global) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index 0845aac48..96eded9a0 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/base/psblas/psb_dnrm2.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_dnrm2.f90 ! ! Function: psb_dnrm2 @@ -111,7 +111,7 @@ function psb_dnrm2(x, desc_a, info, jx,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dnrm2( int(ndim,kind=psb_mpk_), x(iix:,jjx), int(ione,kind=psb_mpk_) ) @@ -120,16 +120,16 @@ function psb_dnrm2(x, desc_a, info, jx,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx,jjx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx,jjx))/res)**2) end do - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -138,12 +138,12 @@ end function psb_dnrm2 -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -155,7 +155,7 @@ end function psb_dnrm2 !!$ 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 @@ -167,7 +167,7 @@ end function psb_dnrm2 !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_dnrm2 @@ -226,7 +226,7 @@ function psb_dnrm2v(x, desc_a, info,global) result(res) ix = 1 jx=1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -240,7 +240,7 @@ function psb_dnrm2v(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dnrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) ! adjust because overlapped elements are computed more than once @@ -248,16 +248,16 @@ function psb_dnrm2v(x, desc_a, info,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx))/res)**2) end do - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -314,7 +314,7 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -343,7 +343,7 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = x%nrm2(ndim) ! adjust because overlapped elements are computed more than once @@ -356,27 +356,134 @@ function psb_dnrm2_vect(x, desc_a, info,global) result(res) res = res - sqrt(done - dd*(abs(x%v%v(idx))/res)**2) end do end if - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end function psb_dnrm2_vect +! Function: psb_dnrm2_weight_vect +! Computes the weighted norm2 of a distributed vector, +! +! norm2 := sqrt ( (w.*X)**C * (w.*X)) +! +! Arguments: +! x - type(psb_d_vect_type) The input vector containing the entries of X. +! w - type(psb_d_vect_type) The input vector containing the entries of W. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_dnrm2_weight_vect(x,w, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_d_vect_mod + implicit none -!!$ + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: w + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_dpk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_dnrm2v_weight' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(done - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = dzero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_dnrm2_weight_vect + + +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -388,7 +495,7 @@ end function psb_dnrm2_vect !!$ 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 @@ -400,7 +507,7 @@ end function psb_dnrm2_vect !!$ 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. -!!$ +!!$ !!$ ! ! Subroutine: psb_dnrm2vs @@ -461,7 +568,7 @@ subroutine psb_dnrm2vs(res, x, desc_a, info,global) ix = 1 jx = 1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -475,7 +582,7 @@ subroutine psb_dnrm2vs(res, x, desc_a, info,global) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dnrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) @@ -484,9 +591,9 @@ subroutine psb_dnrm2vs(res, x, desc_a, info,global) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx))/res)**2) end do - else + else res = dzero end if @@ -494,7 +601,7 @@ subroutine psb_dnrm2vs(res, x, desc_a, info,global) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index 35260ef77..cb2dd507c 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/base/psblas/psb_snrm2.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_snrm2.f90 ! ! Function: psb_snrm2 @@ -111,7 +111,7 @@ function psb_snrm2(x, desc_a, info, jx,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = snrm2( int(ndim,kind=psb_mpk_), x(iix:,jjx), int(ione,kind=psb_mpk_) ) @@ -120,16 +120,16 @@ function psb_snrm2(x, desc_a, info, jx,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx,jjx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx,jjx))/res)**2) end do - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -138,12 +138,12 @@ end function psb_snrm2 -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -155,7 +155,7 @@ end function psb_snrm2 !!$ 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 @@ -167,7 +167,7 @@ end function psb_snrm2 !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_snrm2 @@ -226,7 +226,7 @@ function psb_snrm2v(x, desc_a, info,global) result(res) ix = 1 jx=1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -240,7 +240,7 @@ function psb_snrm2v(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = snrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) ! adjust because overlapped elements are computed more than once @@ -248,16 +248,16 @@ function psb_snrm2v(x, desc_a, info,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) end do - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -314,7 +314,7 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -343,7 +343,7 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = x%nrm2(ndim) ! adjust because overlapped elements are computed more than once @@ -356,27 +356,134 @@ function psb_snrm2_vect(x, desc_a, info,global) result(res) res = res - sqrt(sone - dd*(abs(x%v%v(idx))/res)**2) end do end if - else + else res = szero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end function psb_snrm2_vect +! Function: psb_snrm2_weight_vect +! Computes the weighted norm2 of a distributed vector, +! +! norm2 := sqrt ( (w.*X)**C * (w.*X)) +! +! Arguments: +! x - type(psb_s_vect_type) The input vector containing the entries of X. +! w - type(psb_s_vect_type) The input vector containing the entries of W. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_snrm2_weight_vect(x,w, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_s_vect_mod + implicit none -!!$ + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: w + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_spk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_snrm2v_weight' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(sone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = szero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_snrm2_weight_vect + + +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -388,7 +495,7 @@ end function psb_snrm2_vect !!$ 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 @@ -400,7 +507,7 @@ end function psb_snrm2_vect !!$ 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. -!!$ +!!$ !!$ ! ! Subroutine: psb_snrm2vs @@ -461,7 +568,7 @@ subroutine psb_snrm2vs(res, x, desc_a, info,global) ix = 1 jx = 1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -475,7 +582,7 @@ subroutine psb_snrm2vs(res, x, desc_a, info,global) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = snrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) @@ -484,9 +591,9 @@ subroutine psb_snrm2vs(res, x, desc_a, info,global) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) + res = res * sqrt(sone - dd*(abs(x(idx))/res)**2) end do - else + else res = szero end if @@ -494,7 +601,7 @@ subroutine psb_snrm2vs(res, x, desc_a, info,global) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index 9f3277737..0cde7e21e 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/base/psblas/psb_znrm2.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_znrm2.f90 ! ! Function: psb_znrm2 @@ -111,7 +111,7 @@ function psb_znrm2(x, desc_a, info, jx,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dznrm2( int(ndim,kind=psb_mpk_), x(iix:,jjx), int(ione,kind=psb_mpk_) ) @@ -120,16 +120,16 @@ function psb_znrm2(x, desc_a, info, jx,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx,jjx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx,jjx))/res)**2) end do - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -138,12 +138,12 @@ end function psb_znrm2 -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -155,7 +155,7 @@ end function psb_znrm2 !!$ 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 @@ -167,7 +167,7 @@ end function psb_znrm2 !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_znrm2 @@ -226,7 +226,7 @@ function psb_znrm2v(x, desc_a, info,global) result(res) ix = 1 jx=1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -240,7 +240,7 @@ function psb_znrm2v(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dznrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) ! adjust because overlapped elements are computed more than once @@ -248,16 +248,16 @@ function psb_znrm2v(x, desc_a, info,global) result(res) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx))/res)**2) end do - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -314,7 +314,7 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -343,7 +343,7 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = x%nrm2(ndim) ! adjust because overlapped elements are computed more than once @@ -356,27 +356,134 @@ function psb_znrm2_vect(x, desc_a, info,global) result(res) res = res - sqrt(zone - dd*(abs(x%v%v(idx))/res)**2) end do end if - else + else res = dzero end if if (global_) call psb_nrm2(ictxt,res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end function psb_znrm2_vect +! Function: psb_znrm2_weight_vect +! Computes the weighted norm2 of a distributed vector, +! +! norm2 := sqrt ( (w.*X)**C * (w.*X)) +! +! Arguments: +! x - type(psb_z_vect_type) The input vector containing the entries of X. +! w - type(psb_z_vect_type) The input vector containing the entries of W. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_znrm2_weight_vect(x,w, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_z_vect_mod + implicit none -!!$ + real(psb_dpk_) :: res + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: w + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_dpk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_znrm2v_weight' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(zone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = dzero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_znrm2_weight_vect + + +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -388,7 +495,7 @@ end function psb_znrm2_vect !!$ 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 @@ -400,7 +507,7 @@ end function psb_znrm2_vect !!$ 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. -!!$ +!!$ !!$ ! ! Subroutine: psb_znrm2vs @@ -461,7 +568,7 @@ subroutine psb_znrm2vs(res, x, desc_a, info,global) ix = 1 jx = 1 m = desc_a%get_global_rows() - ldx = size(x,1) + ldx = size(x,1) call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -475,7 +582,7 @@ subroutine psb_znrm2vs(res, x, desc_a, info,global) goto 9999 end if - if (desc_a%get_local_rows() > 0) then + if (desc_a%get_local_rows() > 0) then ndim = desc_a%get_local_rows() res = dznrm2( int(ndim,kind=psb_mpk_), x, int(ione,kind=psb_mpk_) ) @@ -484,9 +591,9 @@ subroutine psb_znrm2vs(res, x, desc_a, info,global) idx = desc_a%ovrlap_elem(i,1) ndm = desc_a%ovrlap_elem(i,2) dd = real(ndm-1)/real(ndm) - res = res * sqrt(done - dd*(abs(x(idx))/res)**2) + res = res * sqrt(done - dd*(abs(x(idx))/res)**2) end do - else + else res = dzero end if @@ -494,7 +601,7 @@ subroutine psb_znrm2vs(res, x, desc_a, info,global) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index d8fb234a2..506a185c2 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -53,7 +53,7 @@ program vecoperation integer(psb_ipk_) :: nr, nlr, info, i, ii, ib=1 integer(psb_lpk_) :: nt integer(psb_lpk_), allocatable :: myidx(:) - real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf + real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf, norm2w character(len=20) :: name,ch_err,readinput real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) real(psb_dpk_) :: c @@ -160,10 +160,6 @@ program vecoperation ! dotresult = psb_gedot(x,y,desc_a,info) ! Dot-product if (iam == psb_root_) write(psb_out_unit,'("Dot product result : ",es12.5)')dotresult - norm1 = psb_norm1(x,desc_a,info) - norm2 = psb_norm2(x,desc_a,info) - norminf = psb_normi(x,desc_a,info) - if (iam == psb_root_) write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5," \|x\|_2",es12.5)')norminf,norm1,norm2 call psb_geaxpby(1.0_psb_dpk_, x, 1.0_psb_dpk_, y, desc_a, info) ! \alpha x + \beta y if (iam == psb_root_) then @@ -218,7 +214,7 @@ program vecoperation write(psb_out_unit,'("|x| = ",es12.1)')vz(:) end if - c = 1.0/2.0; + c = 1.0/5.0; call psb_gecmp(x,c,z,desc_a,info); if (iam == psb_root_) then @@ -229,6 +225,16 @@ program vecoperation write(psb_out_unit,'("z = ",es12.1)')vz(:) end if + write(psb_out_unit,'("Computation of vector norms:")') + norm1 = psb_norm1(x,desc_a,info) + norm2 = psb_norm2(x,desc_a,info) + norm2w = psb_norm2(x,absz,desc_a,info) + norminf = psb_normi(x,desc_a,info) + write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5)')norminf,norm1 + write(psb_out_unit,'(" \|x\|_2 : ",es12.5," \|x\|_2,w : ",es12.5)')norm2,norm2w + + + ! ! cleanup storage and exit ! From 87306f4d1a74556db6ddccb33dcabb1830070f09 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 21 Feb 2020 13:12:23 +0100 Subject: [PATCH 13/61] added weighted and masked 2 norm, and compare on complex vector --- base/modules/psblas/psb_c_psblas_mod.F90 | 24 ++++- base/modules/psblas/psb_d_psblas_mod.F90 | 13 ++- base/modules/psblas/psb_s_psblas_mod.F90 | 13 ++- base/modules/psblas/psb_z_psblas_mod.F90 | 24 ++++- base/modules/serial/psb_c_base_vect_mod.f90 | 60 +++++++++++ base/modules/serial/psb_c_vect_mod.F90 | 53 +++++++++- base/modules/serial/psb_d_base_vect_mod.f90 | 6 +- base/modules/serial/psb_d_vect_mod.F90 | 23 ++++- base/modules/serial/psb_i_vect_mod.F90 | 1 + base/modules/serial/psb_l_vect_mod.F90 | 1 + base/modules/serial/psb_s_base_vect_mod.f90 | 6 +- base/modules/serial/psb_s_vect_mod.F90 | 23 ++++- base/modules/serial/psb_z_base_vect_mod.f90 | 60 +++++++++++ base/modules/serial/psb_z_vect_mod.F90 | 53 +++++++++- base/psblas/Makefile | 2 +- base/psblas/psb_ccmp_vect.f90 | 105 +++++++++++++++++++ base/psblas/psb_cnrm2.f90 | 109 ++++++++++++++++++++ base/psblas/psb_dnrm2.f90 | 109 ++++++++++++++++++++ base/psblas/psb_snrm2.f90 | 109 ++++++++++++++++++++ base/psblas/psb_zcmp_vect.f90 | 105 +++++++++++++++++++ base/psblas/psb_znrm2.f90 | 109 ++++++++++++++++++++ test/kernel/vecoperation.f90 | 12 ++- 22 files changed, 1002 insertions(+), 18 deletions(-) create mode 100644 base/psblas/psb_ccmp_vect.f90 create mode 100644 base/psblas/psb_zcmp_vect.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 217632fbc..a9c37d991 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -283,11 +283,22 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_cnrm2_weight_vect + function psb_cnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + real(psb_spk_) :: res + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: w + type(psb_c_vect_type), intent (inout) :: idv + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_cnrm2_weightmask_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect, psb_cnrm2_weight_vect + procedure psb_cnrm2, psb_cnrm2v, psb_cnrm2_vect, psb_cnrm2_weight_vect, psb_cnrm2_weightmask_vect end interface #endif @@ -500,5 +511,16 @@ module psb_c_psblas_mod end subroutine psb_cabs_vect end interface + interface psb_gecmp + subroutine psb_ccmp_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type, psb_spk_ + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ccmp_vect + end interface end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 011ce683f..4303f8bc8 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -283,11 +283,22 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_dnrm2_weight_vect + function psb_dnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: w + type(psb_d_vect_type), intent (inout) :: idv + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_dnrm2_weightmask_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect, psb_dnrm2_weight_vect + procedure psb_dnrm2, psb_dnrm2v, psb_dnrm2_vect, psb_dnrm2_weight_vect, psb_dnrm2_weightmask_vect end interface #endif diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 322964122..049698998 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -283,11 +283,22 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_snrm2_weight_vect + function psb_snrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: w + type(psb_s_vect_type), intent (inout) :: idv + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_snrm2_weightmask_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect, psb_snrm2_weight_vect + procedure psb_snrm2, psb_snrm2v, psb_snrm2_vect, psb_snrm2_weight_vect, psb_snrm2_weightmask_vect end interface #endif diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 71394e68f..dc4d02628 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -283,11 +283,22 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: global end function psb_znrm2_weight_vect + function psb_znrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type + real(psb_dpk_) :: res + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: w + type(psb_z_vect_type), intent (inout) :: idv + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_znrm2_weightmask_vect end interface #if ! defined(HAVE_BUGGY_GENERICS) interface psb_norm2 - procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect, psb_znrm2_weight_vect + procedure psb_znrm2, psb_znrm2v, psb_znrm2_vect, psb_znrm2_weight_vect, psb_znrm2_weightmask_vect end interface #endif @@ -500,5 +511,16 @@ module psb_z_psblas_mod end subroutine psb_zabs_vect end interface + interface psb_gecmp + subroutine psb_zcmp_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type, psb_dpk_ + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zcmp_vect + end interface end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 0eca0832b..d629256a5 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -187,6 +187,12 @@ module psb_c_base_vect_mod procedure, pass(x) :: amax => c_base_amax procedure, pass(x) :: asum => c_base_asum + ! + ! Comparison and mask operation + ! + procedure, pass(z) :: cmp_a2 => c_base_cmp_a2 + procedure, pass(z) :: cmp_v2 => c_base_cmp_v2 + generic, public :: cmp => cmp_a2,cmp_v2 end type psb_c_base_vect_type @@ -1402,6 +1408,60 @@ contains end subroutine c_base_inv_a2_check + + ! + !> Function base_inv_a2_check + !! \memberof psb_c_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The array to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine c_base_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + if ( abs(x(i)).ge.c ) then + z%v(i) = 1_psb_spk_ + else + z%v(i) = 0_psb_spk_ + end if + end do + info = 0 + + end subroutine c_base_cmp_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_c_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The vector to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine c_base_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: c + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%cmp(x%v,c,info) + end subroutine c_base_cmp_v2 + ! ! Simple scaling ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 8fc78b2c4..393cbaa8b 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -110,9 +110,14 @@ module psb_c_vect_mod generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2std => c_vect_nrm2 procedure, pass(x) :: nrm2weight => c_vect_nrm2_weight - generic, public :: nrm2 => nrm2std, nrm2weight + procedure, pass(x) :: nrm2weightmask => c_vect_nrm2_weight_mask + generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => c_vect_amax procedure, pass(x) :: asum => c_vect_asum + procedure, pass(z) :: cmp_a2 => c_vect_cmp_a2 + procedure, pass(z) :: cmp_v2 => c_vect_cmp_v2 + generic, public :: cmp => cmp_a2, cmp_v2 + end type psb_c_vect_type public :: psb_c_vect @@ -862,6 +867,33 @@ contains end subroutine c_vect_inv_a2_check + subroutine c_vect_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%cmp(x,c,info) + + end subroutine c_vect_cmp_a2 + + subroutine c_vect_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%cmp(x%v,c,info) + + end subroutine c_vect_cmp_v2 subroutine c_vect_scal(alpha, x) use psi_serial_mod @@ -922,6 +954,25 @@ contains end function c_vect_nrm2_weight + function c_vect_nrm2_weight_mask(n,x,w,id) result(res) + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: w + class(psb_c_vect_type), intent(inout) :: id + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then + call w%v%cmp(id%v,szero,info) + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = szero + end if + + end function c_vect_nrm2_weight_mask + function c_vect_amax(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index dc0c56aa7..692418939 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -1408,6 +1408,7 @@ contains end subroutine d_base_inv_a2_check + ! !> Function base_inv_a2_check !! \memberof psb_d_base_vect_type @@ -1420,7 +1421,7 @@ contains subroutine d_base_cmp_a2(x,c,z,info) use psi_serial_mod implicit none - real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(in) :: c real(psb_dpk_), intent(inout) :: x(:) class(psb_d_base_vect_type), intent(inout) :: z integer(psb_ipk_), intent(out) :: info @@ -1452,7 +1453,7 @@ contains use psi_serial_mod implicit none class(psb_d_base_vect_type), intent(inout) :: x - real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(in) :: c class(psb_d_base_vect_type), intent(inout) :: z integer(psb_ipk_), intent(out) :: info @@ -1460,6 +1461,7 @@ contains if (x%is_dev()) call x%sync() call z%cmp(x%v,c,info) end subroutine d_base_cmp_v2 + ! ! Simple scaling ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 40c9f9a29..d897e7848 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -110,12 +110,14 @@ module psb_d_vect_mod generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2std => d_vect_nrm2 procedure, pass(x) :: nrm2weight => d_vect_nrm2_weight - generic, public :: nrm2 => nrm2std, nrm2weight + procedure, pass(x) :: nrm2weightmask => d_vect_nrm2_weight_mask + generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => d_vect_amax procedure, pass(x) :: asum => d_vect_asum procedure, pass(z) :: cmp_a2 => d_vect_cmp_a2 procedure, pass(z) :: cmp_v2 => d_vect_cmp_v2 generic, public :: cmp => cmp_a2, cmp_v2 + end type psb_d_vect_type public :: psb_d_vect @@ -952,6 +954,25 @@ contains end function d_vect_nrm2_weight + function d_vect_nrm2_weight_mask(n,x,w,id) result(res) + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: w + class(psb_d_vect_type), intent(inout) :: id + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then + call w%v%cmp(id%v,dzero,info) + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = dzero + end if + + end function d_vect_nrm2_weight_mask + function d_vect_amax(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 7fb233f87..ca8571099 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -79,6 +79,7 @@ module psb_i_vect_mod procedure, pass(x) :: set_dev => i_vect_set_dev procedure, pass(x) :: set_sync => i_vect_set_sync + end type psb_i_vect_type public :: psb_i_vect diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 3a9557523..3472e1d8c 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -80,6 +80,7 @@ module psb_l_vect_mod procedure, pass(x) :: set_dev => l_vect_set_dev procedure, pass(x) :: set_sync => l_vect_set_sync + end type psb_l_vect_type public :: psb_l_vect diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 450fdd290..1c7e71625 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -1408,6 +1408,7 @@ contains end subroutine s_base_inv_a2_check + ! !> Function base_inv_a2_check !! \memberof psb_s_base_vect_type @@ -1420,7 +1421,7 @@ contains subroutine s_base_cmp_a2(x,c,z,info) use psi_serial_mod implicit none - real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(in) :: c real(psb_spk_), intent(inout) :: x(:) class(psb_s_base_vect_type), intent(inout) :: z integer(psb_ipk_), intent(out) :: info @@ -1452,7 +1453,7 @@ contains use psi_serial_mod implicit none class(psb_s_base_vect_type), intent(inout) :: x - real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(in) :: c class(psb_s_base_vect_type), intent(inout) :: z integer(psb_ipk_), intent(out) :: info @@ -1460,6 +1461,7 @@ contains if (x%is_dev()) call x%sync() call z%cmp(x%v,c,info) end subroutine s_base_cmp_v2 + ! ! Simple scaling ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 26f8a3b18..8ae50c7d8 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -110,12 +110,14 @@ module psb_s_vect_mod generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2std => s_vect_nrm2 procedure, pass(x) :: nrm2weight => s_vect_nrm2_weight - generic, public :: nrm2 => nrm2std, nrm2weight + procedure, pass(x) :: nrm2weightmask => s_vect_nrm2_weight_mask + generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => s_vect_amax procedure, pass(x) :: asum => s_vect_asum procedure, pass(z) :: cmp_a2 => s_vect_cmp_a2 procedure, pass(z) :: cmp_v2 => s_vect_cmp_v2 generic, public :: cmp => cmp_a2, cmp_v2 + end type psb_s_vect_type public :: psb_s_vect @@ -952,6 +954,25 @@ contains end function s_vect_nrm2_weight + function s_vect_nrm2_weight_mask(n,x,w,id) result(res) + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: w + class(psb_s_vect_type), intent(inout) :: id + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then + call w%v%cmp(id%v,szero,info) + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = szero + end if + + end function s_vect_nrm2_weight_mask + function s_vect_amax(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 808d9d4fc..f885c1490 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -187,6 +187,12 @@ module psb_z_base_vect_mod procedure, pass(x) :: amax => z_base_amax procedure, pass(x) :: asum => z_base_asum + ! + ! Comparison and mask operation + ! + procedure, pass(z) :: cmp_a2 => z_base_cmp_a2 + procedure, pass(z) :: cmp_v2 => z_base_cmp_v2 + generic, public :: cmp => cmp_a2,cmp_v2 end type psb_z_base_vect_type @@ -1402,6 +1408,60 @@ contains end subroutine z_base_inv_a2_check + + ! + !> Function base_inv_a2_check + !! \memberof psb_z_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The array to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine z_base_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + if ( abs(x(i)).ge.c ) then + z%v(i) = 1_psb_dpk_ + else + z%v(i) = 0_psb_dpk_ + end if + end do + info = 0 + + end subroutine z_base_cmp_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_z_base_vect_type + !! \brief Compare entry-by-entry the vector x with the scalar c + !! \param x The vector to be compared + !! \param z The vector containing in position i 1 if |x(i)| > c, 0 otherwise + !! \param c The comparison term + !! \param info return code + ! + subroutine z_base_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: c + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%cmp(x%v,c,info) + end subroutine z_base_cmp_v2 + ! ! Simple scaling ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 2caf29505..7358fe448 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -110,9 +110,14 @@ module psb_z_vect_mod generic, public :: absval => absval1, absval2 procedure, pass(x) :: nrm2std => z_vect_nrm2 procedure, pass(x) :: nrm2weight => z_vect_nrm2_weight - generic, public :: nrm2 => nrm2std, nrm2weight + procedure, pass(x) :: nrm2weightmask => z_vect_nrm2_weight_mask + generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => z_vect_amax procedure, pass(x) :: asum => z_vect_asum + procedure, pass(z) :: cmp_a2 => z_vect_cmp_a2 + procedure, pass(z) :: cmp_v2 => z_vect_cmp_v2 + generic, public :: cmp => cmp_a2, cmp_v2 + end type psb_z_vect_type public :: psb_z_vect @@ -862,6 +867,33 @@ contains end subroutine z_vect_inv_a2_check + subroutine z_vect_cmp_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%cmp(x,c,info) + + end subroutine z_vect_cmp_a2 + + subroutine z_vect_cmp_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%cmp(x%v,c,info) + + end subroutine z_vect_cmp_v2 subroutine z_vect_scal(alpha, x) use psi_serial_mod @@ -922,6 +954,25 @@ contains end function z_vect_nrm2_weight + function z_vect_nrm2_weight_mask(n,x,w,id) result(res) + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: w + class(psb_z_vect_type), intent(inout) :: id + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + integer(psb_ipk_) :: info + + if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then + call w%v%cmp(id%v,dzero,info) + call w%v%mlt(x%v,info) + res = w%v%nrm2(n) + else + res = dzero + end if + + end function z_vect_nrm2_weight_mask + function z_vect_amax(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 2e7f89ec6..1c54aaa5a 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -13,7 +13,7 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_cmlt_vect.o psb_dmlt_vect.o psb_zmlt_vect.o psb_smlt_vect.o\ psb_cdiv_vect.o psb_ddiv_vect.o psb_zdiv_vect.o psb_sdiv_vect.o\ psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\ - psb_dcmp_vect.o psb_scmp_vect.o \ + psb_dcmp_vect.o psb_scmp_vect.o psb_ccmp_vect.o psb_zcmp_vect.o\ psb_cabs_vect.o psb_dabs_vect.o psb_sabs_vect.o \ psb_zabs_vect.o diff --git a/base/psblas/psb_ccmp_vect.f90 b/base/psblas/psb_ccmp_vect.f90 new file mode 100644 index 000000000..27d4f989e --- /dev/null +++ b/base/psblas/psb_ccmp_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_ccmp_vect + +subroutine psb_ccmp_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_ccmp_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%cmp(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ccmp_vect diff --git a/base/psblas/psb_cnrm2.f90 b/base/psblas/psb_cnrm2.f90 index c3ad75a44..d357c9516 100644 --- a/base/psblas/psb_cnrm2.f90 +++ b/base/psblas/psb_cnrm2.f90 @@ -477,6 +477,115 @@ function psb_cnrm2_weight_vect(x,w, desc_a, info,global) result(res) return end function psb_cnrm2_weight_vect +! Function: psb_cnrm2_weight_vect +! Computes the weighted norm2 of a distributed vector with respect to a mask +! contained in the vector id. +! +! norm2 := sqrt ( (w(id > 0).*X(id > 0))**C * (w(id > 0).*X(id > 0))) +! +! Arguments: +! x - type(psb_c_vect_type) The input vector containing the entries of X. +! w - type(psb_c_vect_type) The input vector containing the entries of W. +! id - type(psb_c_vect_type) The inpute vector containing the mask +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_cnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_c_vect_mod + implicit none + + real(psb_spk_) :: res + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: w + type(psb_c_vect_type), intent (inout) :: idv + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_spk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_cnrm2v_weightmask' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w,idv) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(cone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = szero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_cnrm2_weightmask_vect !!$ !!$ Parallel Sparse BLAS version 3.5 diff --git a/base/psblas/psb_dnrm2.f90 b/base/psblas/psb_dnrm2.f90 index 96eded9a0..16b18d916 100644 --- a/base/psblas/psb_dnrm2.f90 +++ b/base/psblas/psb_dnrm2.f90 @@ -477,6 +477,115 @@ function psb_dnrm2_weight_vect(x,w, desc_a, info,global) result(res) return end function psb_dnrm2_weight_vect +! Function: psb_dnrm2_weight_vect +! Computes the weighted norm2 of a distributed vector with respect to a mask +! contained in the vector id. +! +! norm2 := sqrt ( (w(id > 0).*X(id > 0))**C * (w(id > 0).*X(id > 0))) +! +! Arguments: +! x - type(psb_d_vect_type) The input vector containing the entries of X. +! w - type(psb_d_vect_type) The input vector containing the entries of W. +! id - type(psb_d_vect_type) The inpute vector containing the mask +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_dnrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_d_vect_mod + implicit none + + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: w + type(psb_d_vect_type), intent (inout) :: idv + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_dpk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_dnrm2v_weightmask' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w,idv) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(done - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = dzero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_dnrm2_weightmask_vect !!$ !!$ Parallel Sparse BLAS version 3.5 diff --git a/base/psblas/psb_snrm2.f90 b/base/psblas/psb_snrm2.f90 index cb2dd507c..ab9c56ca6 100644 --- a/base/psblas/psb_snrm2.f90 +++ b/base/psblas/psb_snrm2.f90 @@ -477,6 +477,115 @@ function psb_snrm2_weight_vect(x,w, desc_a, info,global) result(res) return end function psb_snrm2_weight_vect +! Function: psb_snrm2_weight_vect +! Computes the weighted norm2 of a distributed vector with respect to a mask +! contained in the vector id. +! +! norm2 := sqrt ( (w(id > 0).*X(id > 0))**C * (w(id > 0).*X(id > 0))) +! +! Arguments: +! x - type(psb_s_vect_type) The input vector containing the entries of X. +! w - type(psb_s_vect_type) The input vector containing the entries of W. +! id - type(psb_s_vect_type) The inpute vector containing the mask +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_snrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_s_vect_mod + implicit none + + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: w + type(psb_s_vect_type), intent (inout) :: idv + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_spk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_snrm2v_weightmask' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w,idv) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(sone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = szero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_snrm2_weightmask_vect !!$ !!$ Parallel Sparse BLAS version 3.5 diff --git a/base/psblas/psb_zcmp_vect.f90 b/base/psblas/psb_zcmp_vect.f90 new file mode 100644 index 000000000..fc62d528b --- /dev/null +++ b/base/psblas/psb_zcmp_vect.f90 @@ -0,0 +1,105 @@ +! +! 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_zcmp_vect + +subroutine psb_zcmp_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zcmp_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%cmp(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zcmp_vect diff --git a/base/psblas/psb_znrm2.f90 b/base/psblas/psb_znrm2.f90 index 0cde7e21e..bfa29d182 100644 --- a/base/psblas/psb_znrm2.f90 +++ b/base/psblas/psb_znrm2.f90 @@ -477,6 +477,115 @@ function psb_znrm2_weight_vect(x,w, desc_a, info,global) result(res) return end function psb_znrm2_weight_vect +! Function: psb_znrm2_weight_vect +! Computes the weighted norm2 of a distributed vector with respect to a mask +! contained in the vector id. +! +! norm2 := sqrt ( (w(id > 0).*X(id > 0))**C * (w(id > 0).*X(id > 0))) +! +! Arguments: +! x - type(psb_z_vect_type) The input vector containing the entries of X. +! w - type(psb_z_vect_type) The input vector containing the entries of W. +! id - type(psb_z_vect_type) The inpute vector containing the mask +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! global - logical(optional) Whether to perform the global reduction, default: .true. +! +function psb_znrm2_weightmask_vect(x,w,idv, desc_a, info,global) result(res) + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_penv_mod + use psb_z_vect_mod + implicit none + + real(psb_dpk_) :: res + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: w + type(psb_z_vect_type), intent (inout) :: idv + type(psb_desc_type), intent(in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, ndim, i, id, idx, ndm, ldx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + real(psb_dpk_) :: snrm2, dd + character(len=20) :: name, ch_err + + name='psb_znrm2v_weightmask' + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info=psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + m = desc_a%get_global_rows() + ldx = x%get_nrows() + call psb_chkvect(m,lone,ldx,ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + if (desc_a%get_local_rows() > 0) then + ndim = desc_a%get_local_rows() + res = x%nrm2(ndim,w,idv) + ! adjust because overlapped elements are computed more than once + if (size(desc_a%ovrlap_elem,1)>0) then + if (x%is_dev()) call x%sync() + do i=1,size(desc_a%ovrlap_elem,1) + idx = desc_a%ovrlap_elem(i,1) + ndm = desc_a%ovrlap_elem(i,2) + dd = dble(ndm-1)/dble(ndm) + res = res - sqrt(zone - dd*(abs(x%v%v(idx))/res)**2) + end do + end if + else + res = dzero + end if + + if (global_) call psb_nrm2(ictxt,res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function psb_znrm2_weightmask_vect !!$ !!$ Parallel Sparse BLAS version 3.5 diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 506a185c2..22dd56ae6 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -53,7 +53,7 @@ program vecoperation integer(psb_ipk_) :: nr, nlr, info, i, ii, ib=1 integer(psb_lpk_) :: nt integer(psb_lpk_), allocatable :: myidx(:) - real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf, norm2w + real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf, norm2w, norm2wc character(len=20) :: name,ch_err,readinput real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) real(psb_dpk_) :: c @@ -229,11 +229,13 @@ program vecoperation norm1 = psb_norm1(x,desc_a,info) norm2 = psb_norm2(x,desc_a,info) norm2w = psb_norm2(x,absz,desc_a,info) + norm2wc = psb_norm2(x,absz,z,desc_a,info) norminf = psb_normi(x,desc_a,info) - write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5)')norminf,norm1 - write(psb_out_unit,'(" \|x\|_2 : ",es12.5," \|x\|_2,w : ",es12.5)')norm2,norm2w - - + if (iam == psb_root_) then + write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5)')norminf,norm1 + write(psb_out_unit,'(" \|x\|_2 : ",es12.5," \|x\|_2,w : ",es12.5)')norm2,norm2w + write(psb_out_unit,'(" masked \|x\|_2,w : ",es12.5)')norm2wc + end if ! ! cleanup storage and exit From e59932e496c96f88319826f0246dc93749271447 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 21 Feb 2020 14:52:12 +0100 Subject: [PATCH 14/61] chagend name to acmp for the compare routines --- base/modules/serial/psb_c_base_vect_mod.f90 | 16 +++++++-------- base/modules/serial/psb_c_vect_mod.F90 | 22 ++++++++++----------- base/modules/serial/psb_d_base_vect_mod.f90 | 16 +++++++-------- base/modules/serial/psb_d_vect_mod.F90 | 22 ++++++++++----------- base/modules/serial/psb_i_vect_mod.F90 | 2 +- base/modules/serial/psb_l_vect_mod.F90 | 2 +- base/modules/serial/psb_s_base_vect_mod.f90 | 16 +++++++-------- base/modules/serial/psb_s_vect_mod.F90 | 22 ++++++++++----------- base/modules/serial/psb_z_base_vect_mod.f90 | 16 +++++++-------- base/modules/serial/psb_z_vect_mod.F90 | 22 ++++++++++----------- base/psblas/psb_ccmp_vect.f90 | 2 +- base/psblas/psb_dcmp_vect.f90 | 2 +- base/psblas/psb_scmp_vect.f90 | 2 +- base/psblas/psb_zcmp_vect.f90 | 2 +- 14 files changed, 82 insertions(+), 82 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index d629256a5..c67aa5d26 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -190,9 +190,9 @@ module psb_c_base_vect_mod ! ! Comparison and mask operation ! - procedure, pass(z) :: cmp_a2 => c_base_cmp_a2 - procedure, pass(z) :: cmp_v2 => c_base_cmp_v2 - generic, public :: cmp => cmp_a2,cmp_v2 + procedure, pass(z) :: acmp_a2 => c_base_acmp_a2 + procedure, pass(z) :: acmp_v2 => c_base_acmp_v2 + generic, public :: acmp => acmp_a2,acmp_v2 end type psb_c_base_vect_type @@ -1418,7 +1418,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine c_base_cmp_a2(x,c,z,info) + subroutine c_base_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -1439,7 +1439,7 @@ contains end do info = 0 - end subroutine c_base_cmp_a2 + end subroutine c_base_acmp_a2 ! !> Function base_cmp_v2 !! \memberof psb_c_base_vect_type @@ -1449,7 +1449,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine c_base_cmp_v2(x,c,z,info) + subroutine c_base_acmp_v2(x,c,z,info) use psi_serial_mod implicit none class(psb_c_base_vect_type), intent(inout) :: x @@ -1459,8 +1459,8 @@ contains info = 0 if (x%is_dev()) call x%sync() - call z%cmp(x%v,c,info) - end subroutine c_base_cmp_v2 + call z%acmp(x%v,c,info) + end subroutine c_base_acmp_v2 ! ! Simple scaling diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 393cbaa8b..192d94e49 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -114,9 +114,9 @@ module psb_c_vect_mod generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => c_vect_amax procedure, pass(x) :: asum => c_vect_asum - procedure, pass(z) :: cmp_a2 => c_vect_cmp_a2 - procedure, pass(z) :: cmp_v2 => c_vect_cmp_v2 - generic, public :: cmp => cmp_a2, cmp_v2 + procedure, pass(z) :: acmp_a2 => c_vect_acmp_a2 + procedure, pass(z) :: acmp_v2 => c_vect_acmp_v2 + generic, public :: acmp => acmp_a2, acmp_v2 end type psb_c_vect_type @@ -144,7 +144,7 @@ module psb_c_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: c_vect_cmp_a2, c_vect_cmp_v2 +! private :: c_vect_acmp_a2, c_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ @@ -867,7 +867,7 @@ contains end subroutine c_vect_inv_a2_check - subroutine c_vect_cmp_a2(x,c,z,info) + subroutine c_vect_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -877,11 +877,11 @@ contains info = 0 if (allocated(z%v)) & - & call z%cmp(x,c,info) + & call z%acmp(x,c,info) - end subroutine c_vect_cmp_a2 + end subroutine c_vect_acmp_a2 - subroutine c_vect_cmp_v2(x,c,z,info) + subroutine c_vect_acmp_v2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -891,9 +891,9 @@ contains info = 0 if (allocated(x%v).and.allocated(z%v)) & - & call z%v%cmp(x%v,c,info) + & call z%v%acmp(x%v,c,info) - end subroutine c_vect_cmp_v2 + end subroutine c_vect_acmp_v2 subroutine c_vect_scal(alpha, x) use psi_serial_mod @@ -964,7 +964,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%cmp(id%v,szero,info) + call w%v%acmp(id%v,szero,info) call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 692418939..a1a475001 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -190,9 +190,9 @@ module psb_d_base_vect_mod ! ! Comparison and mask operation ! - procedure, pass(z) :: cmp_a2 => d_base_cmp_a2 - procedure, pass(z) :: cmp_v2 => d_base_cmp_v2 - generic, public :: cmp => cmp_a2,cmp_v2 + procedure, pass(z) :: acmp_a2 => d_base_acmp_a2 + procedure, pass(z) :: acmp_v2 => d_base_acmp_v2 + generic, public :: acmp => acmp_a2,acmp_v2 end type psb_d_base_vect_type @@ -1418,7 +1418,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine d_base_cmp_a2(x,c,z,info) + subroutine d_base_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -1439,7 +1439,7 @@ contains end do info = 0 - end subroutine d_base_cmp_a2 + end subroutine d_base_acmp_a2 ! !> Function base_cmp_v2 !! \memberof psb_d_base_vect_type @@ -1449,7 +1449,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine d_base_cmp_v2(x,c,z,info) + subroutine d_base_acmp_v2(x,c,z,info) use psi_serial_mod implicit none class(psb_d_base_vect_type), intent(inout) :: x @@ -1459,8 +1459,8 @@ contains info = 0 if (x%is_dev()) call x%sync() - call z%cmp(x%v,c,info) - end subroutine d_base_cmp_v2 + call z%acmp(x%v,c,info) + end subroutine d_base_acmp_v2 ! ! Simple scaling diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index d897e7848..18525b258 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -114,9 +114,9 @@ module psb_d_vect_mod generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => d_vect_amax procedure, pass(x) :: asum => d_vect_asum - procedure, pass(z) :: cmp_a2 => d_vect_cmp_a2 - procedure, pass(z) :: cmp_v2 => d_vect_cmp_v2 - generic, public :: cmp => cmp_a2, cmp_v2 + procedure, pass(z) :: acmp_a2 => d_vect_acmp_a2 + procedure, pass(z) :: acmp_v2 => d_vect_acmp_v2 + generic, public :: acmp => acmp_a2, acmp_v2 end type psb_d_vect_type @@ -144,7 +144,7 @@ module psb_d_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: d_vect_cmp_a2, d_vect_cmp_v2 +! private :: d_vect_acmp_a2, d_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ @@ -867,7 +867,7 @@ contains end subroutine d_vect_inv_a2_check - subroutine d_vect_cmp_a2(x,c,z,info) + subroutine d_vect_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -877,11 +877,11 @@ contains info = 0 if (allocated(z%v)) & - & call z%cmp(x,c,info) + & call z%acmp(x,c,info) - end subroutine d_vect_cmp_a2 + end subroutine d_vect_acmp_a2 - subroutine d_vect_cmp_v2(x,c,z,info) + subroutine d_vect_acmp_v2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -891,9 +891,9 @@ contains info = 0 if (allocated(x%v).and.allocated(z%v)) & - & call z%v%cmp(x%v,c,info) + & call z%v%acmp(x%v,c,info) - end subroutine d_vect_cmp_v2 + end subroutine d_vect_acmp_v2 subroutine d_vect_scal(alpha, x) use psi_serial_mod @@ -964,7 +964,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%cmp(id%v,dzero,info) + call w%v%acmp(id%v,dzero,info) call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index ca8571099..8b4a21a75 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -101,7 +101,7 @@ module psb_i_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: i_vect_cmp_a2, i_vect_cmp_v2 +! private :: i_vect_acmp_a2, i_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 3472e1d8c..629c843df 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -102,7 +102,7 @@ module psb_l_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: l_vect_cmp_a2, l_vect_cmp_v2 +! private :: l_vect_acmp_a2, l_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 1c7e71625..4ce6de51a 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -190,9 +190,9 @@ module psb_s_base_vect_mod ! ! Comparison and mask operation ! - procedure, pass(z) :: cmp_a2 => s_base_cmp_a2 - procedure, pass(z) :: cmp_v2 => s_base_cmp_v2 - generic, public :: cmp => cmp_a2,cmp_v2 + procedure, pass(z) :: acmp_a2 => s_base_acmp_a2 + procedure, pass(z) :: acmp_v2 => s_base_acmp_v2 + generic, public :: acmp => acmp_a2,acmp_v2 end type psb_s_base_vect_type @@ -1418,7 +1418,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine s_base_cmp_a2(x,c,z,info) + subroutine s_base_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -1439,7 +1439,7 @@ contains end do info = 0 - end subroutine s_base_cmp_a2 + end subroutine s_base_acmp_a2 ! !> Function base_cmp_v2 !! \memberof psb_s_base_vect_type @@ -1449,7 +1449,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine s_base_cmp_v2(x,c,z,info) + subroutine s_base_acmp_v2(x,c,z,info) use psi_serial_mod implicit none class(psb_s_base_vect_type), intent(inout) :: x @@ -1459,8 +1459,8 @@ contains info = 0 if (x%is_dev()) call x%sync() - call z%cmp(x%v,c,info) - end subroutine s_base_cmp_v2 + call z%acmp(x%v,c,info) + end subroutine s_base_acmp_v2 ! ! Simple scaling diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 8ae50c7d8..4e24e7262 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -114,9 +114,9 @@ module psb_s_vect_mod generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => s_vect_amax procedure, pass(x) :: asum => s_vect_asum - procedure, pass(z) :: cmp_a2 => s_vect_cmp_a2 - procedure, pass(z) :: cmp_v2 => s_vect_cmp_v2 - generic, public :: cmp => cmp_a2, cmp_v2 + procedure, pass(z) :: acmp_a2 => s_vect_acmp_a2 + procedure, pass(z) :: acmp_v2 => s_vect_acmp_v2 + generic, public :: acmp => acmp_a2, acmp_v2 end type psb_s_vect_type @@ -144,7 +144,7 @@ module psb_s_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: s_vect_cmp_a2, s_vect_cmp_v2 +! private :: s_vect_acmp_a2, s_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ @@ -867,7 +867,7 @@ contains end subroutine s_vect_inv_a2_check - subroutine s_vect_cmp_a2(x,c,z,info) + subroutine s_vect_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -877,11 +877,11 @@ contains info = 0 if (allocated(z%v)) & - & call z%cmp(x,c,info) + & call z%acmp(x,c,info) - end subroutine s_vect_cmp_a2 + end subroutine s_vect_acmp_a2 - subroutine s_vect_cmp_v2(x,c,z,info) + subroutine s_vect_acmp_v2(x,c,z,info) use psi_serial_mod implicit none real(psb_spk_), intent(in) :: c @@ -891,9 +891,9 @@ contains info = 0 if (allocated(x%v).and.allocated(z%v)) & - & call z%v%cmp(x%v,c,info) + & call z%v%acmp(x%v,c,info) - end subroutine s_vect_cmp_v2 + end subroutine s_vect_acmp_v2 subroutine s_vect_scal(alpha, x) use psi_serial_mod @@ -964,7 +964,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%cmp(id%v,szero,info) + call w%v%acmp(id%v,szero,info) call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index f885c1490..c73cdd65f 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -190,9 +190,9 @@ module psb_z_base_vect_mod ! ! Comparison and mask operation ! - procedure, pass(z) :: cmp_a2 => z_base_cmp_a2 - procedure, pass(z) :: cmp_v2 => z_base_cmp_v2 - generic, public :: cmp => cmp_a2,cmp_v2 + procedure, pass(z) :: acmp_a2 => z_base_acmp_a2 + procedure, pass(z) :: acmp_v2 => z_base_acmp_v2 + generic, public :: acmp => acmp_a2,acmp_v2 end type psb_z_base_vect_type @@ -1418,7 +1418,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine z_base_cmp_a2(x,c,z,info) + subroutine z_base_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -1439,7 +1439,7 @@ contains end do info = 0 - end subroutine z_base_cmp_a2 + end subroutine z_base_acmp_a2 ! !> Function base_cmp_v2 !! \memberof psb_z_base_vect_type @@ -1449,7 +1449,7 @@ contains !! \param c The comparison term !! \param info return code ! - subroutine z_base_cmp_v2(x,c,z,info) + subroutine z_base_acmp_v2(x,c,z,info) use psi_serial_mod implicit none class(psb_z_base_vect_type), intent(inout) :: x @@ -1459,8 +1459,8 @@ contains info = 0 if (x%is_dev()) call x%sync() - call z%cmp(x%v,c,info) - end subroutine z_base_cmp_v2 + call z%acmp(x%v,c,info) + end subroutine z_base_acmp_v2 ! ! Simple scaling diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 7358fe448..b8a6de229 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -114,9 +114,9 @@ module psb_z_vect_mod generic, public :: nrm2 => nrm2std, nrm2weight, nrm2weightmask procedure, pass(x) :: amax => z_vect_amax procedure, pass(x) :: asum => z_vect_asum - procedure, pass(z) :: cmp_a2 => z_vect_cmp_a2 - procedure, pass(z) :: cmp_v2 => z_vect_cmp_v2 - generic, public :: cmp => cmp_a2, cmp_v2 + procedure, pass(z) :: acmp_a2 => z_vect_acmp_a2 + procedure, pass(z) :: acmp_v2 => z_vect_acmp_v2 + generic, public :: acmp => acmp_a2, acmp_v2 end type psb_z_vect_type @@ -144,7 +144,7 @@ module psb_z_vect_mod ! @NOTCPLXS@ ! @NOTINTS@ -! private :: z_vect_cmp_a2, z_vect_cmp_v2 +! private :: z_vect_acmp_a2, z_vect_acmp_v2 ! @NOTINTE@ ! @NOTCPLXE@ @@ -867,7 +867,7 @@ contains end subroutine z_vect_inv_a2_check - subroutine z_vect_cmp_a2(x,c,z,info) + subroutine z_vect_acmp_a2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -877,11 +877,11 @@ contains info = 0 if (allocated(z%v)) & - & call z%cmp(x,c,info) + & call z%acmp(x,c,info) - end subroutine z_vect_cmp_a2 + end subroutine z_vect_acmp_a2 - subroutine z_vect_cmp_v2(x,c,z,info) + subroutine z_vect_acmp_v2(x,c,z,info) use psi_serial_mod implicit none real(psb_dpk_), intent(in) :: c @@ -891,9 +891,9 @@ contains info = 0 if (allocated(x%v).and.allocated(z%v)) & - & call z%v%cmp(x%v,c,info) + & call z%v%acmp(x%v,c,info) - end subroutine z_vect_cmp_v2 + end subroutine z_vect_acmp_v2 subroutine z_vect_scal(alpha, x) use psi_serial_mod @@ -964,7 +964,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%cmp(id%v,dzero,info) + call w%v%acmp(id%v,dzero,info) call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/psblas/psb_ccmp_vect.f90 b/base/psblas/psb_ccmp_vect.f90 index 27d4f989e..e808836f4 100644 --- a/base/psblas/psb_ccmp_vect.f90 +++ b/base/psblas/psb_ccmp_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_ccmp_vect(x,c,z,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call z%cmp(x,c,info) + call z%acmp(x,c,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 index bd5ae706e..85113bcd3 100644 --- a/base/psblas/psb_dcmp_vect.f90 +++ b/base/psblas/psb_dcmp_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_dcmp_vect(x,c,z,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call z%cmp(x,c,info) + call z%acmp(x,c,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 index 7aafd9ef0..738658570 100644 --- a/base/psblas/psb_scmp_vect.f90 +++ b/base/psblas/psb_scmp_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_scmp_vect(x,c,z,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call z%cmp(x,c,info) + call z%acmp(x,c,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_zcmp_vect.f90 b/base/psblas/psb_zcmp_vect.f90 index fc62d528b..fa820d431 100644 --- a/base/psblas/psb_zcmp_vect.f90 +++ b/base/psblas/psb_zcmp_vect.f90 @@ -92,7 +92,7 @@ subroutine psb_zcmp_vect(x,c,z,desc_a,info) end if if(desc_a%get_local_rows() > 0) then - call z%cmp(x,c,info) + call z%acmp(x,c,info) end if call psb_erractionrestore(err_act) From b8ab997bc1e72139bc2c71a3e28088c8bc1963ed Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 21 Feb 2020 17:06:03 +0100 Subject: [PATCH 15/61] Added generation of mask vector for constraint tests psb_mask --- base/modules/psblas/psb_c_psblas_mod.F90 | 1 + base/modules/psblas/psb_d_psblas_mod.F90 | 13 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 13 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 1 + base/modules/serial/psb_c_base_vect_mod.f90 | 2 + base/modules/serial/psb_c_vect_mod.F90 | 2 + base/modules/serial/psb_d_base_vect_mod.f90 | 97 ++++++++++++++++ base/modules/serial/psb_d_vect_mod.F90 | 34 ++++++ base/modules/serial/psb_i_base_vect_mod.f90 | 2 + base/modules/serial/psb_i_vect_mod.F90 | 2 + base/modules/serial/psb_l_base_vect_mod.f90 | 2 + base/modules/serial/psb_l_vect_mod.F90 | 2 + base/modules/serial/psb_s_base_vect_mod.f90 | 97 ++++++++++++++++ base/modules/serial/psb_s_vect_mod.F90 | 34 ++++++ base/modules/serial/psb_z_base_vect_mod.f90 | 2 + base/modules/serial/psb_z_vect_mod.F90 | 2 + base/psblas/psb_ccmp_vect.f90 | 1 + base/psblas/psb_dcmp_vect.f90 | 121 ++++++++++++++++++++ base/psblas/psb_scmp_vect.f90 | 121 ++++++++++++++++++++ base/psblas/psb_zcmp_vect.f90 | 1 + test/kernel/vecoperation.f90 | 3 + 21 files changed, 553 insertions(+) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index a9c37d991..9a884b8a3 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -523,4 +523,5 @@ module psb_c_psblas_mod end subroutine psb_ccmp_vect end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 4303f8bc8..28cfa0688 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -523,4 +523,17 @@ module psb_d_psblas_mod end subroutine psb_dcmp_vect end interface + interface psb_mask + subroutine psb_dmask_vect(c,x,m,t,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + type(psb_d_vect_type), intent (inout) :: c + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: m + logical, intent(out) :: t + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dmask_vect + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 049698998..b1aba86eb 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -523,4 +523,17 @@ module psb_s_psblas_mod end subroutine psb_scmp_vect end interface + interface psb_mask + subroutine psb_smask_vect(c,x,m,t,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + type(psb_s_vect_type), intent (inout) :: c + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: m + logical, intent(out) :: t + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_smask_vect + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index dc4d02628..284a48b93 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -523,4 +523,5 @@ module psb_z_psblas_mod end subroutine psb_zcmp_vect end interface + end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index c67aa5d26..9ec9fa476 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -194,6 +194,7 @@ module psb_c_base_vect_mod procedure, pass(z) :: acmp_v2 => c_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + end type psb_c_base_vect_type public :: psb_c_base_vect @@ -1718,6 +1719,7 @@ contains end subroutine c_base_sctb_buf + end module psb_c_base_vect_mod diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 192d94e49..b8e437af6 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -118,6 +118,7 @@ module psb_c_vect_mod procedure, pass(z) :: acmp_v2 => c_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + end type psb_c_vect_type public :: psb_c_vect @@ -1002,6 +1003,7 @@ contains end function c_vect_asum + end module psb_c_vect_mod diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index a1a475001..8fb287c1b 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -194,6 +194,10 @@ module psb_d_base_vect_mod procedure, pass(z) :: acmp_v2 => d_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 +procedure, pass(m) :: mask_v => d_base_mask_v +procedure, pass(m) :: mask_a => d_base_mask_a +generic, public :: mask => mask_a, mask_v + end type psb_d_base_vect_type public :: psb_d_base_vect @@ -1718,6 +1722,99 @@ contains end subroutine d_base_sctb_buf + ! + !> Function base_mask_a + !! \memberof psb_d_base_vect_type + !! \brief Peform constraint tests looking at the value of c + !! \param x The array to be compared + !! \param c The array containing the information on the type of test to be + !! performed, if c(i) = 2 ">0", if c(i) = 1 ">=0", if c(i) = 0 no test, if + !! c(i) =-1 "<=0", if c(i) = -2 "< 0" + !! \param m The vector containing the result of the comparison 1.0 for a + !! failed test, and 0.0 for a passed one. + !! \param t logical resulting from an and operation on all the tests + !! \param info return code + ! + subroutine d_base_mask_a(c,x,m,t,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(inout) :: c(:) + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_base_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: t + integer(psb_ipk_) :: i, n + + if (m%is_dev()) call m%sync() + t = .true. + + n = size(x) + do i = 1, n, 1 + if (c(i).eq.2_psb_dpk_) then + if ( x(i) > dzero ) then + m%v(i) = 0_psb_dpk_ + else + m%v(i) = 1_psb_dpk_ + t = .false. + end if + elseif (c(i).eq.1_psb_dpk_) then + if ( x(i) >= dzero ) then + m%v(i) = 0_psb_dpk_ + else + m%v(i) = 1_psb_dpk_ + t = .false. + end if + elseif (c(i).eq.-1_psb_dpk_) then + if ( x(i) <= dzero ) then + m%v(i) = 0_psb_dpk_ + else + m%v(i) = 1_psb_dpk_ + t = .false. + end if + elseif (c(i).eq.-2_psb_dpk_) then + if ( x(i) < dzero ) then + m%v(i) = 0_psb_dpk_ + else + m%v(i) = 1_psb_dpk_ + t = .false. + end if + else + m%v(i) = 0_psb_dpk_ + end if + end do + info = 0 + + end subroutine d_base_mask_a + ! + !> Function base_mask_v + !! \memberof psb_d_base_vect_type + !! \brief Peform constraint tests looking at the value of c + !! \param x The vector to be compared + !! \param c The vector containing the information on the type of test to be + !! performed, if c(i) = 2 ">0", if c(i) = 1 ">=0", if c(i) = 0 no test, if + !! c(i) =-1 "<=0", if c(i) = -2 "< 0" + !! \param m The vector containing the result of the comparison 1.0 for a + !! failed test, and 0.0 for a passed one. + !! \param t logical resulting from an and operation on all the tests + !! \param info return code + ! + subroutine d_base_mask_v(c,x,m,t,info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: c + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: t + + info = 0 + if (x%is_dev()) call x%sync() + if (c%is_dev()) call c%sync() + + call m%mask(x%v,c%v,t,info) + end subroutine d_base_mask_v + + end module psb_d_base_vect_mod diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 18525b258..4c0cc6e80 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -118,6 +118,10 @@ module psb_d_vect_mod procedure, pass(z) :: acmp_v2 => d_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(m) :: mask_v => d_vect_mask_v + procedure, pass(m) :: mask_a => d_vect_mask_a + generic, public :: mask => mask_a, mask_v + end type psb_d_vect_type public :: psb_d_vect @@ -1002,6 +1006,36 @@ contains end function d_vect_asum + subroutine d_vect_mask_a(c,x,m,t,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(inout) :: c(:) + real(psb_dpk_), intent(inout) :: x(:) + logical, intent(out) :: t; + class(psb_d_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(m%v)) & + & call m%mask(c,x,t,info) + + end subroutine d_vect_mask_a + + subroutine d_vect_mask_v(c,x,m,t,info) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: c + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: m + logical, intent(out) :: t; + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(c%v)) & + & call m%v%mask(x%v,c%v,t,info) + + end subroutine d_vect_mask_v + end module psb_d_vect_mod diff --git a/base/modules/serial/psb_i_base_vect_mod.f90 b/base/modules/serial/psb_i_base_vect_mod.f90 index 438a10ae7..642ff4ff9 100644 --- a/base/modules/serial/psb_i_base_vect_mod.f90 +++ b/base/modules/serial/psb_i_base_vect_mod.f90 @@ -143,6 +143,7 @@ module psb_i_base_vect_mod + end type psb_i_base_vect_type public :: psb_i_base_vect @@ -974,6 +975,7 @@ contains end subroutine i_base_sctb_buf + end module psb_i_base_vect_mod diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 8b4a21a75..13a04e00b 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -80,6 +80,7 @@ module psb_i_vect_mod procedure, pass(x) :: set_sync => i_vect_set_sync + end type psb_i_vect_type public :: psb_i_vect @@ -551,6 +552,7 @@ contains end function i_vect_is_dev + end module psb_i_vect_mod diff --git a/base/modules/serial/psb_l_base_vect_mod.f90 b/base/modules/serial/psb_l_base_vect_mod.f90 index 052757598..fe25d30dd 100644 --- a/base/modules/serial/psb_l_base_vect_mod.f90 +++ b/base/modules/serial/psb_l_base_vect_mod.f90 @@ -144,6 +144,7 @@ module psb_l_base_vect_mod + end type psb_l_base_vect_type public :: psb_l_base_vect @@ -975,6 +976,7 @@ contains end subroutine l_base_sctb_buf + end module psb_l_base_vect_mod diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 629c843df..926982faf 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -81,6 +81,7 @@ module psb_l_vect_mod procedure, pass(x) :: set_sync => l_vect_set_sync + end type psb_l_vect_type public :: psb_l_vect @@ -552,6 +553,7 @@ contains end function l_vect_is_dev + end module psb_l_vect_mod diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 4ce6de51a..d1dbb20cd 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -194,6 +194,10 @@ module psb_s_base_vect_mod procedure, pass(z) :: acmp_v2 => s_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 +procedure, pass(m) :: mask_v => s_base_mask_v +procedure, pass(m) :: mask_a => s_base_mask_a +generic, public :: mask => mask_a, mask_v + end type psb_s_base_vect_type public :: psb_s_base_vect @@ -1718,6 +1722,99 @@ contains end subroutine s_base_sctb_buf + ! + !> Function base_mask_a + !! \memberof psb_s_base_vect_type + !! \brief Peform constraint tests looking at the value of c + !! \param x The array to be compared + !! \param c The array containing the information on the type of test to be + !! performed, if c(i) = 2 ">0", if c(i) = 1 ">=0", if c(i) = 0 no test, if + !! c(i) =-1 "<=0", if c(i) = -2 "< 0" + !! \param m The vector containing the result of the comparison 1.0 for a + !! failed test, and 0.0 for a passed one. + !! \param t logical resulting from an and operation on all the tests + !! \param info return code + ! + subroutine s_base_mask_a(c,x,m,t,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(inout) :: c(:) + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_base_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: t + integer(psb_ipk_) :: i, n + + if (m%is_dev()) call m%sync() + t = .true. + + n = size(x) + do i = 1, n, 1 + if (c(i).eq.2_psb_spk_) then + if ( x(i) > szero ) then + m%v(i) = 0_psb_spk_ + else + m%v(i) = 1_psb_spk_ + t = .false. + end if + elseif (c(i).eq.1_psb_spk_) then + if ( x(i) >= szero ) then + m%v(i) = 0_psb_spk_ + else + m%v(i) = 1_psb_spk_ + t = .false. + end if + elseif (c(i).eq.-1_psb_spk_) then + if ( x(i) <= szero ) then + m%v(i) = 0_psb_spk_ + else + m%v(i) = 1_psb_spk_ + t = .false. + end if + elseif (c(i).eq.-2_psb_spk_) then + if ( x(i) < szero ) then + m%v(i) = 0_psb_spk_ + else + m%v(i) = 1_psb_spk_ + t = .false. + end if + else + m%v(i) = 0_psb_spk_ + end if + end do + info = 0 + + end subroutine s_base_mask_a + ! + !> Function base_mask_v + !! \memberof psb_s_base_vect_type + !! \brief Peform constraint tests looking at the value of c + !! \param x The vector to be compared + !! \param c The vector containing the information on the type of test to be + !! performed, if c(i) = 2 ">0", if c(i) = 1 ">=0", if c(i) = 0 no test, if + !! c(i) =-1 "<=0", if c(i) = -2 "< 0" + !! \param m The vector containing the result of the comparison 1.0 for a + !! failed test, and 0.0 for a passed one. + !! \param t logical resulting from an and operation on all the tests + !! \param info return code + ! + subroutine s_base_mask_v(c,x,m,t,info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: c + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: t + + info = 0 + if (x%is_dev()) call x%sync() + if (c%is_dev()) call c%sync() + + call m%mask(x%v,c%v,t,info) + end subroutine s_base_mask_v + + end module psb_s_base_vect_mod diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 4e24e7262..5f0fd6dee 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -118,6 +118,10 @@ module psb_s_vect_mod procedure, pass(z) :: acmp_v2 => s_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(m) :: mask_v => s_vect_mask_v + procedure, pass(m) :: mask_a => s_vect_mask_a + generic, public :: mask => mask_a, mask_v + end type psb_s_vect_type public :: psb_s_vect @@ -1002,6 +1006,36 @@ contains end function s_vect_asum + subroutine s_vect_mask_a(c,x,m,t,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(inout) :: c(:) + real(psb_spk_), intent(inout) :: x(:) + logical, intent(out) :: t; + class(psb_s_vect_type), intent(inout) :: m + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(m%v)) & + & call m%mask(c,x,t,info) + + end subroutine s_vect_mask_a + + subroutine s_vect_mask_v(c,x,m,t,info) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: c + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: m + logical, intent(out) :: t; + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(c%v)) & + & call m%v%mask(x%v,c%v,t,info) + + end subroutine s_vect_mask_v + end module psb_s_vect_mod diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index c73cdd65f..ab5511306 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -194,6 +194,7 @@ module psb_z_base_vect_mod procedure, pass(z) :: acmp_v2 => z_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + end type psb_z_base_vect_type public :: psb_z_base_vect @@ -1718,6 +1719,7 @@ contains end subroutine z_base_sctb_buf + end module psb_z_base_vect_mod diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index b8a6de229..0bf21205d 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -118,6 +118,7 @@ module psb_z_vect_mod procedure, pass(z) :: acmp_v2 => z_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + end type psb_z_vect_type public :: psb_z_vect @@ -1002,6 +1003,7 @@ contains end function z_vect_asum + end module psb_z_vect_mod diff --git a/base/psblas/psb_ccmp_vect.f90 b/base/psblas/psb_ccmp_vect.f90 index e808836f4..a04298522 100644 --- a/base/psblas/psb_ccmp_vect.f90 +++ b/base/psblas/psb_ccmp_vect.f90 @@ -103,3 +103,4 @@ subroutine psb_ccmp_vect(x,c,z,desc_a,info) return end subroutine psb_ccmp_vect + diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 index 85113bcd3..c3b18a7b2 100644 --- a/base/psblas/psb_dcmp_vect.f90 +++ b/base/psblas/psb_dcmp_vect.f90 @@ -103,3 +103,124 @@ subroutine psb_dcmp_vect(x,c,z,desc_a,info) return end subroutine psb_dcmp_vect + +! +! 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_dmask_vect + +subroutine psb_dmask_vect(c,x,m,t,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dmask_vect + implicit none + type(psb_d_vect_type), intent (inout) :: c + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: m + logical, intent(out) :: t + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, mm + character(len=20) :: name, ch_err + + name='psb_d_mask_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(c%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(m%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + mm = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(mm,lone,c%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(mm,lone,x%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(mm,lone,m%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call m%mask(c,x,t,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dmask_vect + + diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 index 738658570..a33a0ec91 100644 --- a/base/psblas/psb_scmp_vect.f90 +++ b/base/psblas/psb_scmp_vect.f90 @@ -103,3 +103,124 @@ subroutine psb_scmp_vect(x,c,z,desc_a,info) return end subroutine psb_scmp_vect + +! +! 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_smask_vect + +subroutine psb_smask_vect(c,x,m,t,desc_a,info) + use psb_base_mod, psb_protect_name => psb_smask_vect + implicit none + type(psb_s_vect_type), intent (inout) :: c + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: m + logical, intent(out) :: t + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, mm + character(len=20) :: name, ch_err + + name='psb_s_mask_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(c%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(m%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + mm = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(mm,lone,c%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(mm,lone,x%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(mm,lone,m%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call m%mask(c,x,t,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_smask_vect + + diff --git a/base/psblas/psb_zcmp_vect.f90 b/base/psblas/psb_zcmp_vect.f90 index fa820d431..50d9bce53 100644 --- a/base/psblas/psb_zcmp_vect.f90 +++ b/base/psblas/psb_zcmp_vect.f90 @@ -103,3 +103,4 @@ subroutine psb_zcmp_vect(x,c,z,desc_a,info) return end subroutine psb_zcmp_vect + diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 22dd56ae6..330eeea12 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -57,6 +57,7 @@ program vecoperation character(len=20) :: name,ch_err,readinput real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) real(psb_dpk_) :: c + logical :: t info=psb_success_ @@ -225,6 +226,8 @@ program vecoperation write(psb_out_unit,'("z = ",es12.1)')vz(:) end if + call psb_mask(z,x,absz,t,desc_a,info) + write(psb_out_unit,'("Computation of vector norms:")') norm1 = psb_norm1(x,desc_a,info) norm2 = psb_norm2(x,desc_a,info) From 17e24bdcf00a064f36f0a01f7bbce1035e173cc0 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 24 Feb 2020 15:13:28 +0100 Subject: [PATCH 16/61] C Interfaces for new vector operators --- cbind/base/psb_c_psblas_cbind_mod.f90 | 468 +++++++++++++++++++---- cbind/base/psb_d_psblas_cbind_mod.f90 | 511 ++++++++++++++++++++++---- cbind/base/psb_s_psblas_cbind_mod.f90 | 511 ++++++++++++++++++++++---- cbind/base/psb_z_psblas_cbind_mod.f90 | 468 +++++++++++++++++++---- 4 files changed, 1666 insertions(+), 292 deletions(-) diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index d6604356b..57e3641fe 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -3,38 +3,38 @@ module psb_c_psblas_cbind_mod use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - + contains - + function psb_c_cgeaxpby(alpha,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cvector) :: xh,yh type(psb_c_descriptor) :: cdh complex(c_float_complex), value :: alpha,beta - + type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,yp integer(psb_c_ipk_) :: info - + res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if call psb_geaxpby(alpha,xp,beta,yp,descp,info) @@ -43,8 +43,261 @@ contains end function psb_c_cgeaxpby + function psb_c_cgemlt(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gemlt(xp,yp,descp,info) + + res = info + + end function psb_c_cgemlt + + function psb_c_cgediv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gediv(xp,yp,descp,info) + + res = info + + end function psb_c_cgediv + + function psb_c_cgediv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_cgediv_check + + function psb_c_cgeinv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geinv(xp,yp,descp,info) + + res = info + + end function psb_c_cgeinv + + function psb_c_cgeinv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_geinv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_cgeinv_check + + function psb_c_cgeabs(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geabs(xp,yp,descp,info) + + res = info + + end function psb_c_cgeabs + + function psb_c_cgecmp(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float_complex) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gecmp(xp,ch,zp,descp,info) + + res = info + + end function psb_c_cgecmp + + function psb_c_cgenrm2(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float_complex) :: res type(psb_c_cvector) :: xh @@ -55,23 +308,92 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_genrm2(xp,descp,info) end function psb_c_cgenrm2 - + + function psb_c_cgenrm2_weight(xh,wh,cdh) bind(c) result(res) + implicit none + real(c_float_complex) :: res + + type(psb_c_cvector) :: xh, wh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp, wp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + + res = psb_genrm2(xp,wp,descp,info) + + end function psb_c_cgenrm2_weight + + function psb_c_cgenrm2_weightmask(xh,wh,idvh,cdh) bind(c) result(res) + implicit none + real(c_float_complex) :: res + + type(psb_c_cvector) :: xh, wh, idvh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp, wp, idvp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + if (c_associated(idvh%item)) then + call c_f_pointer(idvh%item,idvp) + else + return + end if + + res = psb_genrm2(xp,wp,idvp,descp,info) + + end function psb_c_cgenrm2_weightmask + function psb_c_cgeamax(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float_complex) :: res type(psb_c_cvector) :: xh @@ -81,23 +403,23 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geamax(xp,descp,info) end function psb_c_cgeamax - + function psb_c_cgeasum(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float_complex) :: res type(psb_c_cvector) :: xh @@ -108,24 +430,24 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geasum(xp,descp,info) end function psb_c_cgeasum - + function psb_c_cspnrmi(ah,cdh) bind(c) result(res) - implicit none + implicit none real(c_float_complex) :: res type(psb_c_cspmat) :: ah @@ -135,15 +457,15 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if res = psb_spnrmi(ap,descp,info) @@ -151,7 +473,7 @@ contains end function psb_c_cspnrmi function psb_c_cgedot(xh,yh,cdh) bind(c) result(res) - implicit none + implicit none complex(c_float_complex) :: res type(psb_c_cvector) :: xh,yh @@ -161,20 +483,20 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if res = psb_gedot(xp,yp,descp,info) @@ -182,7 +504,7 @@ contains function psb_c_cspmm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: ah @@ -195,25 +517,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spmm(alpha,ap,xp,beta,yp,descp,info) @@ -224,7 +546,7 @@ contains function psb_c_cspmm_opt(alpha,ah,xh,beta,yh,cdh,trans,doswap) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: ah @@ -242,25 +564,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if fdoswap = doswap @@ -270,10 +592,10 @@ contains res = info end function psb_c_cspmm_opt - + function psb_c_cspsm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: ah @@ -286,25 +608,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spsm(alpha,ap,xp,beta,yp,descp,info) @@ -312,6 +634,6 @@ contains res = info end function psb_c_cspsm - + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 353339d88..f644530d2 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -3,38 +3,38 @@ module psb_d_psblas_cbind_mod use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - + contains - + function psb_c_dgeaxpby(alpha,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dvector) :: xh,yh type(psb_c_descriptor) :: cdh real(c_double), value :: alpha,beta - + type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,yp integer(psb_c_ipk_) :: info - + res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if call psb_geaxpby(alpha,xp,beta,yp,descp,info) @@ -43,8 +43,304 @@ contains end function psb_c_dgeaxpby + function psb_c_dgemlt(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gemlt(xp,yp,descp,info) + + res = info + + end function psb_c_dgemlt + + function psb_c_dgediv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gediv(xp,yp,descp,info) + + res = info + + end function psb_c_dgediv + + function psb_c_dgediv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_dgediv_check + + function psb_c_dgeinv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geinv(xp,yp,descp,info) + + res = info + + end function psb_c_dgeinv + + function psb_c_dgeinv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_geinv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_dgeinv_check + + function psb_c_dgeabs(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geabs(xp,yp,descp,info) + + res = info + + end function psb_c_dgeabs + + function psb_c_dgecmp(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gecmp(xp,ch,zp,descp,info) + + res = info + + end function psb_c_dgecmp + + function psb_c_dmask(ch,xh,mh,t,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: ch,xh,mh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: t + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: cp,xp,mp + integer(psb_c_ipk_) :: info + logical :: ft + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ch%item)) then + call c_f_pointer(ch%item,cp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(mh%item)) then + call c_f_pointer(mh%item,mp) + else + return + end if + + ft = t + call psb_mask(cp,xp,mp,ft,descp,info) + + t = ft + res = info + + end function psb_c_dmask + function psb_c_dgenrm2(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double) :: res type(psb_c_dvector) :: xh @@ -55,23 +351,92 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_genrm2(xp,descp,info) end function psb_c_dgenrm2 - + + function psb_c_dgenrm2_weight(xh,wh,cdh) bind(c) result(res) + implicit none + real(c_double) :: res + + type(psb_c_dvector) :: xh, wh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp, wp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + + res = psb_genrm2(xp,wp,descp,info) + + end function psb_c_dgenrm2_weight + + function psb_c_dgenrm2_weightmask(xh,wh,idvh,cdh) bind(c) result(res) + implicit none + real(c_double) :: res + + type(psb_c_dvector) :: xh, wh, idvh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp, wp, idvp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + if (c_associated(idvh%item)) then + call c_f_pointer(idvh%item,idvp) + else + return + end if + + res = psb_genrm2(xp,wp,idvp,descp,info) + + end function psb_c_dgenrm2_weightmask + function psb_c_dgeamax(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double) :: res type(psb_c_dvector) :: xh @@ -81,23 +446,23 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geamax(xp,descp,info) end function psb_c_dgeamax - + function psb_c_dgeasum(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double) :: res type(psb_c_dvector) :: xh @@ -108,24 +473,24 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geasum(xp,descp,info) end function psb_c_dgeasum - + function psb_c_dspnrmi(ah,cdh) bind(c) result(res) - implicit none + implicit none real(c_double) :: res type(psb_c_dspmat) :: ah @@ -135,15 +500,15 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if res = psb_spnrmi(ap,descp,info) @@ -151,7 +516,7 @@ contains end function psb_c_dspnrmi function psb_c_dgedot(xh,yh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double) :: res type(psb_c_dvector) :: xh,yh @@ -161,20 +526,20 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if res = psb_gedot(xp,yp,descp,info) @@ -182,7 +547,7 @@ contains function psb_c_dspmm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: ah @@ -195,25 +560,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spmm(alpha,ap,xp,beta,yp,descp,info) @@ -224,7 +589,7 @@ contains function psb_c_dspmm_opt(alpha,ah,xh,beta,yh,cdh,trans,doswap) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: ah @@ -242,25 +607,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if fdoswap = doswap @@ -270,10 +635,10 @@ contains res = info end function psb_c_dspmm_opt - + function psb_c_dspsm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: ah @@ -286,25 +651,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spsm(alpha,ap,xp,beta,yp,descp,info) @@ -312,6 +677,6 @@ contains res = info end function psb_c_dspsm - + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 918430760..cdbb61168 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -3,38 +3,38 @@ module psb_s_psblas_cbind_mod use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - + contains - + function psb_c_sgeaxpby(alpha,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_svector) :: xh,yh type(psb_c_descriptor) :: cdh real(c_float), value :: alpha,beta - + type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,yp integer(psb_c_ipk_) :: info - + res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if call psb_geaxpby(alpha,xp,beta,yp,descp,info) @@ -43,8 +43,304 @@ contains end function psb_c_sgeaxpby + function psb_c_sgemlt(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gemlt(xp,yp,descp,info) + + res = info + + end function psb_c_sgemlt + + function psb_c_sgediv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gediv(xp,yp,descp,info) + + res = info + + end function psb_c_sgediv + + function psb_c_sgediv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_sgediv_check + + function psb_c_sgeinv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geinv(xp,yp,descp,info) + + res = info + + end function psb_c_sgeinv + + function psb_c_sgeinv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_geinv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_sgeinv_check + + function psb_c_sgeabs(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geabs(xp,yp,descp,info) + + res = info + + end function psb_c_sgeabs + + function psb_c_sgecmp(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gecmp(xp,ch,zp,descp,info) + + res = info + + end function psb_c_sgecmp + + function psb_c_smask(ch,xh,mh,t,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: ch,xh,mh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: t + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: cp,xp,mp + integer(psb_c_ipk_) :: info + logical :: ft + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ch%item)) then + call c_f_pointer(ch%item,cp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(mh%item)) then + call c_f_pointer(mh%item,mp) + else + return + end if + + ft = t + call psb_mask(cp,xp,mp,ft,descp,info) + + t = ft + res = info + + end function psb_c_smask + function psb_c_sgenrm2(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float) :: res type(psb_c_svector) :: xh @@ -55,23 +351,92 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_genrm2(xp,descp,info) end function psb_c_sgenrm2 - + + function psb_c_sgenrm2_weight(xh,wh,cdh) bind(c) result(res) + implicit none + real(c_float) :: res + + type(psb_c_svector) :: xh, wh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp, wp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + + res = psb_genrm2(xp,wp,descp,info) + + end function psb_c_sgenrm2_weight + + function psb_c_sgenrm2_weightmask(xh,wh,idvh,cdh) bind(c) result(res) + implicit none + real(c_float) :: res + + type(psb_c_svector) :: xh, wh, idvh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp, wp, idvp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + if (c_associated(idvh%item)) then + call c_f_pointer(idvh%item,idvp) + else + return + end if + + res = psb_genrm2(xp,wp,idvp,descp,info) + + end function psb_c_sgenrm2_weightmask + function psb_c_sgeamax(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float) :: res type(psb_c_svector) :: xh @@ -81,23 +446,23 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geamax(xp,descp,info) end function psb_c_sgeamax - + function psb_c_sgeasum(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float) :: res type(psb_c_svector) :: xh @@ -108,24 +473,24 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geasum(xp,descp,info) end function psb_c_sgeasum - + function psb_c_sspnrmi(ah,cdh) bind(c) result(res) - implicit none + implicit none real(c_float) :: res type(psb_c_sspmat) :: ah @@ -135,15 +500,15 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if res = psb_spnrmi(ap,descp,info) @@ -151,7 +516,7 @@ contains end function psb_c_sspnrmi function psb_c_sgedot(xh,yh,cdh) bind(c) result(res) - implicit none + implicit none real(c_float) :: res type(psb_c_svector) :: xh,yh @@ -161,20 +526,20 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if res = psb_gedot(xp,yp,descp,info) @@ -182,7 +547,7 @@ contains function psb_c_sspmm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: ah @@ -195,25 +560,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spmm(alpha,ap,xp,beta,yp,descp,info) @@ -224,7 +589,7 @@ contains function psb_c_sspmm_opt(alpha,ah,xh,beta,yh,cdh,trans,doswap) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: ah @@ -242,25 +607,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if fdoswap = doswap @@ -270,10 +635,10 @@ contains res = info end function psb_c_sspmm_opt - + function psb_c_sspsm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: ah @@ -286,25 +651,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spsm(alpha,ap,xp,beta,yp,descp,info) @@ -312,6 +677,6 @@ contains res = info end function psb_c_sspsm - + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 6f0cfd6f3..e6fef96b7 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -3,38 +3,38 @@ module psb_z_psblas_cbind_mod use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - + contains - + function psb_c_zgeaxpby(alpha,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zvector) :: xh,yh type(psb_c_descriptor) :: cdh complex(c_double_complex), value :: alpha,beta - + type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,yp integer(psb_c_ipk_) :: info - + res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if call psb_geaxpby(alpha,xp,beta,yp,descp,info) @@ -43,8 +43,261 @@ contains end function psb_c_zgeaxpby + function psb_c_zgemlt(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gemlt(xp,yp,descp,info) + + res = info + + end function psb_c_zgemlt + + function psb_c_zgediv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_gediv(xp,yp,descp,info) + + res = info + + end function psb_c_zgediv + + function psb_c_zgediv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_zgediv_check + + function psb_c_zgeinv(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geinv(xp,yp,descp,info) + + res = info + + end function psb_c_zgeinv + + function psb_c_zgeinv_check(xh,yh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + fflag = flag + call psb_geinv(xp,yp,descp,info,fflag) + + res = info + + end function psb_c_zgeinv_check + + function psb_c_zgeabs(xh,yh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + call psb_geabs(xp,yp,descp,info) + + res = info + + end function psb_c_zgeabs + + function psb_c_zgecmp(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double_complex) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gecmp(xp,ch,zp,descp,info) + + res = info + + end function psb_c_zgecmp + + function psb_c_zgenrm2(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double_complex) :: res type(psb_c_zvector) :: xh @@ -55,23 +308,92 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_genrm2(xp,descp,info) end function psb_c_zgenrm2 - + + function psb_c_zgenrm2_weight(xh,wh,cdh) bind(c) result(res) + implicit none + real(c_double_complex) :: res + + type(psb_c_zvector) :: xh, wh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp, wp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + + res = psb_genrm2(xp,wp,descp,info) + + end function psb_c_zgenrm2_weight + + function psb_c_zgenrm2_weightmask(xh,wh,idvh,cdh) bind(c) result(res) + implicit none + real(c_double_complex) :: res + + type(psb_c_zvector) :: xh, wh, idvh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp, wp, idvp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(wh%item)) then + call c_f_pointer(wh%item,wp) + else + return + end if + if (c_associated(idvh%item)) then + call c_f_pointer(idvh%item,idvp) + else + return + end if + + res = psb_genrm2(xp,wp,idvp,descp,info) + + end function psb_c_zgenrm2_weightmask + function psb_c_zgeamax(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double_complex) :: res type(psb_c_zvector) :: xh @@ -81,23 +403,23 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geamax(xp,descp,info) end function psb_c_zgeamax - + function psb_c_zgeasum(xh,cdh) bind(c) result(res) - implicit none + implicit none real(c_double_complex) :: res type(psb_c_zvector) :: xh @@ -108,24 +430,24 @@ contains res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - + res = psb_geasum(xp,descp,info) end function psb_c_zgeasum - + function psb_c_zspnrmi(ah,cdh) bind(c) result(res) - implicit none + implicit none real(c_double_complex) :: res type(psb_c_zspmat) :: ah @@ -135,15 +457,15 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if res = psb_spnrmi(ap,descp,info) @@ -151,7 +473,7 @@ contains end function psb_c_zspnrmi function psb_c_zgedot(xh,yh,cdh) bind(c) result(res) - implicit none + implicit none complex(c_double_complex) :: res type(psb_c_zvector) :: xh,yh @@ -161,20 +483,20 @@ contains integer(psb_c_ipk_) :: info res = -1.0 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if res = psb_gedot(xp,yp,descp,info) @@ -182,7 +504,7 @@ contains function psb_c_zspmm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: ah @@ -195,25 +517,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spmm(alpha,ap,xp,beta,yp,descp,info) @@ -224,7 +546,7 @@ contains function psb_c_zspmm_opt(alpha,ah,xh,beta,yh,cdh,trans,doswap) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: ah @@ -242,25 +564,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if fdoswap = doswap @@ -270,10 +592,10 @@ contains res = info end function psb_c_zspmm_opt - + function psb_c_zspsm(alpha,ah,xh,beta,yh,cdh) bind(c) result(res) - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: ah @@ -286,25 +608,25 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else - return + return end if - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,xp) else - return + return end if - if (c_associated(yh%item)) then + if (c_associated(yh%item)) then call c_f_pointer(yh%item,yp) else - return + return end if - if (c_associated(ah%item)) then + if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else - return + return end if call psb_spsm(alpha,ap,xp,beta,yp,descp,info) @@ -312,6 +634,6 @@ contains res = info end function psb_c_zspsm - + end module psb_z_psblas_cbind_mod From 7f42d6327516923a9c356e87ed27bc7936627182 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 24 Feb 2020 18:40:44 +0100 Subject: [PATCH 17/61] Added routine for logical all reduce and applied in psb_mask --- base/modules/penv/psi_collective_mod.F90 | 123 ++++++++++++++--------- base/psblas/psb_dcmp_vect.f90 | 2 + base/psblas/psb_scmp_vect.f90 | 2 + 3 files changed, 78 insertions(+), 49 deletions(-) diff --git a/base/modules/penv/psi_collective_mod.F90 b/base/modules/penv/psi_collective_mod.F90 index e382d6927..0fb372410 100644 --- a/base/modules/penv/psi_collective_mod.F90 +++ b/base/modules/penv/psi_collective_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_collective_mod use psi_penv_mod use psi_m_collective_mod @@ -42,10 +42,10 @@ module psi_collective_mod module procedure psb_hbcasts, psb_hbcastv,& & psb_hbcasts_ec, psb_hbcastv_ec,& & psb_lbcasts, psb_lbcastv, & - & psb_lbcasts_ec, psb_lbcastv_ec + & psb_lbcasts_ec, psb_lbcastv_ec end interface psb_bcast - + #if defined(SHORT_INTEGERS) interface psb_sum module procedure psb_i2sums, psb_i2sumv, psb_i2summ, & @@ -55,12 +55,12 @@ module psi_collective_mod contains - + subroutine psb_hbcasts(ictxt,dat,root,length) #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -85,7 +85,7 @@ contains call psb_info(ictxt,iam,np) call mpi_bcast(dat,length_,MPI_CHARACTER,root_,ictxt,info) -#endif +#endif end subroutine psb_hbcasts @@ -93,7 +93,7 @@ contains #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -110,24 +110,24 @@ contains root_ = psb_root_ endif length_ = len(dat) - size_ = size(dat) + size_ = size(dat) call psb_info(ictxt,iam,np) call mpi_bcast(dat,length_*size_,MPI_CHARACTER,root_,ictxt,info) -#endif +#endif end subroutine psb_hbcastv subroutine psb_hbcasts_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt character(len=*), intent(inout) :: dat integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_bcast(ictxt_,dat,root_) else @@ -136,14 +136,14 @@ contains end subroutine psb_hbcasts_ec subroutine psb_hbcastv_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt character(len=*), intent(inout) :: dat(:) integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_bcast(ictxt_,dat,root_) else @@ -152,12 +152,12 @@ contains end subroutine psb_hbcastv_ec - + subroutine psb_lbcasts(ictxt,dat,root) #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -176,16 +176,41 @@ contains call psb_info(ictxt,iam,np) call mpi_bcast(dat,1,MPI_LOGICAL,root_,ictxt,info) -#endif +#endif end subroutine psb_lbcasts + subroutine psb_lallreduceand(ictxt,dat,rec) +#ifdef MPI_MOD + use mpi +#endif + implicit none +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_mpk_), intent(in) :: ictxt + logical, intent(inout) :: dat + logical, intent(inout), optional :: rec + + integer(psb_mpk_) :: iam, np, info + +#if !defined(SERIAL_MPI) + call psb_info(ictxt,iam,np) + if (present(rec)) then + call mpi_allreduce(dat,rec,1,MPI_LOGICAL,MPI_LAND,ictxt,info) + else + call mpi_allreduce(MPI_IN_PLACE,dat,1,MPI_LOGICAL,MPI_LAND,ictxt,info) + endif +#endif + +end subroutine psb_lallreduceand + subroutine psb_lbcastv(ictxt,dat,root) #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -204,20 +229,20 @@ contains call psb_info(ictxt,iam,np) call mpi_bcast(dat,size(dat),MPI_LOGICAL,root_,ictxt,info) -#endif +#endif end subroutine psb_lbcastv subroutine psb_lbcasts_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt logical, intent(inout) :: dat integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_bcast(ictxt_,dat,root_) else @@ -226,14 +251,14 @@ contains end subroutine psb_lbcasts_ec subroutine psb_lbcastv_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt logical, intent(inout) :: dat(:) integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_bcast(ictxt_,dat,root_) else @@ -242,14 +267,14 @@ contains end subroutine psb_lbcastv_ec - + #if defined(SHORT_INTEGERS) subroutine psb_i2sums(ictxt,dat,root) #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -265,12 +290,12 @@ contains call psb_info(ictxt,iam,np) - if (present(root)) then + if (present(root)) then root_ = root else root_ = -1 endif - if (root_ == -1) then + if (root_ == -1) then call mpi_allreduce(dat,dat_,1,psb_mpi_i2pk_,mpi_sum,ictxt,info) dat = dat_ else @@ -278,7 +303,7 @@ contains if (iam == root_) dat = dat_ endif -#endif +#endif end subroutine psb_i2sums subroutine psb_i2sumv(ictxt,dat,root) @@ -286,7 +311,7 @@ contains #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -302,18 +327,18 @@ contains call psb_info(ictxt,iam,np) - if (present(root)) then + if (present(root)) then root_ = root else root_ = -1 endif - if (root_ == -1) then + if (root_ == -1) then call psb_realloc(size(dat),dat_,iinfo) dat_=dat if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),& & psb_mpi_i2pk_,mpi_sum,ictxt,info) else - if (iam == root_) then + if (iam == root_) then call psb_realloc(size(dat),dat_,iinfo) dat_=dat call mpi_reduce(dat_,dat,size(dat),psb_mpi_i2pk_,mpi_sum,root_,ictxt,info) @@ -321,7 +346,7 @@ contains call mpi_reduce(dat,dat_,size(dat),psb_mpi_i2pk_,mpi_sum,root_,ictxt,info) end if endif -#endif +#endif end subroutine psb_i2sumv subroutine psb_i2summ(ictxt,dat,root) @@ -329,7 +354,7 @@ contains #ifdef MPI_MOD use mpi #endif - implicit none + implicit none #ifdef MPI_H include 'mpif.h' #endif @@ -345,18 +370,18 @@ contains #if !defined(SERIAL_MPI) call psb_info(ictxt,iam,np) - if (present(root)) then + if (present(root)) then root_ = root else root_ = -1 endif - if (root_ == -1) then + if (root_ == -1) then call psb_realloc(size(dat,1),size(dat,2),dat_,iinfo) dat_=dat if (iinfo == psb_success_) call mpi_allreduce(dat_,dat,size(dat),& & psb_mpi_i2pk_,mpi_sum,ictxt,info) else - if (iam == root_) then + if (iam == root_) then call psb_realloc(size(dat,1),size(dat,2),dat_,iinfo) dat_=dat call mpi_reduce(dat_,dat,size(dat),psb_mpi_i2pk_,mpi_sum,root_,ictxt,info) @@ -364,18 +389,18 @@ contains call mpi_reduce(dat,dat_,size(dat),psb_mpi_i2pk_,mpi_sum,root_,ictxt,info) end if endif -#endif +#endif end subroutine psb_i2summ subroutine psb_i2sums_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt integer(psb_i2pk_), intent(inout) :: dat integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_sum(ictxt_,dat,root_) else @@ -384,14 +409,14 @@ contains end subroutine psb_i2sums_ec subroutine psb_i2sumv_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt integer(psb_i2pk_), intent(inout) :: dat(:) integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_sum(ictxt_,dat,root_) else @@ -400,14 +425,14 @@ contains end subroutine psb_i2sumv_ec subroutine psb_i2summ_ec(ictxt,dat,root) - implicit none + implicit none integer(psb_epk_), intent(in) :: ictxt integer(psb_i2pk_), intent(inout) :: dat(:,:) integer(psb_epk_), intent(in), optional :: root integer(psb_mpk_) :: ictxt_, root_ ictxt_ = ictxt - if (present(root)) then + if (present(root)) then root_ = root call psb_sum(ictxt_,dat,root_) else diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 index c3b18a7b2..77147497d 100644 --- a/base/psblas/psb_dcmp_vect.f90 +++ b/base/psblas/psb_dcmp_vect.f90 @@ -214,6 +214,8 @@ subroutine psb_dmask_vect(c,x,m,t,desc_a,info) call m%mask(c,x,t,info) end if + call psb_lallreduceand(ictxt,t) + call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 index a33a0ec91..a7b65b1d4 100644 --- a/base/psblas/psb_scmp_vect.f90 +++ b/base/psblas/psb_scmp_vect.f90 @@ -214,6 +214,8 @@ subroutine psb_smask_vect(c,x,m,t,desc_a,info) call m%mask(c,x,t,info) end if + call psb_lallreduceand(ictxt,t) + call psb_erractionrestore(err_act) return From 92fddf917b96801ece5c02c416a9d7d8eb0fcf6c Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 25 Feb 2020 09:27:23 +0100 Subject: [PATCH 18/61] Added header for c-bindings of new vec operations --- cbind/base/psb_c_cbase.h | 24 +++++++++++++++++------- cbind/base/psb_c_dbase.h | 26 +++++++++++++++++++------- cbind/base/psb_c_sbase.h | 25 ++++++++++++++++++------- cbind/base/psb_c_zbase.h | 24 +++++++++++++++++------- 4 files changed, 71 insertions(+), 28 deletions(-) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index c6bea6b6d..8cb29db22 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -8,11 +8,11 @@ extern "C" { typedef struct PSB_C_CVECTOR { void *cvector; -} psb_c_cvector; +} psb_c_cvector; typedef struct PSB_C_CSPMAT { void *cspmat; -} psb_c_cspmat; +} psb_c_cspmat; /* dense vectors */ @@ -43,7 +43,7 @@ psb_i_t psb_c_cmat_get_ncols(psb_c_cspmat *mh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ psb_i_t psb_c_csprn(psb_c_cspmat *mh, psb_c_descriptor *cdh, _Bool clear); -psb_i_t psb_c_cmat_name_print(psb_c_cspmat *mh, char *name); +psb_i_t psb_c_cmat_name_print(psb_c_cspmat *mh, char *name); /* psblas computational routines */ psb_c_t psb_c_cgedot(psb_c_cvector *xh, psb_c_cvector *yh, psb_c_descriptor *cdh); @@ -51,15 +51,25 @@ psb_s_t psb_c_cgenrm2(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cgeamax(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cgeasum(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cspnrmi(psb_c_cspmat *ah, psb_c_descriptor *cdh); -psb_i_t psb_c_cgeaxpby(psb_c_t alpha, psb_c_cvector *xh, +psb_i_t psb_c_cgeaxpby(psb_c_t alpha, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_cspmm(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, +psb_i_t psb_c_cspmm(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_cspmm_opt(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, +psb_i_t psb_c_cspmm_opt(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh, char *trans, bool doswap); -psb_i_t psb_c_cspsm(psb_c_t alpha, psb_c_cspmat *th, psb_c_cvector *xh, +psb_i_t psb_c_cspsm(psb_c_t alpha, psb_c_cspmat *th, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); +/* Additional computational routines */ +psb_i_t psb_c_cgemlt(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgediv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); +psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_c_cvector *ch,psb_c_cvector *zh,psb_c_descriptor *cdh); +psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); +psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 95baca5d6..4dde00a86 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -8,11 +8,11 @@ extern "C" { typedef struct PSB_C_DVECTOR { void *dvector; -} psb_c_dvector; +} psb_c_dvector; typedef struct PSB_C_DSPMAT { void *dspmat; -} psb_c_dspmat; +} psb_c_dspmat; /* dense vectors */ @@ -43,7 +43,7 @@ psb_i_t psb_c_dmat_get_ncols(psb_c_dspmat *mh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ psb_i_t psb_c_dsprn(psb_c_dspmat *mh, psb_c_descriptor *cdh, _Bool clear); -psb_i_t psb_c_dmat_name_print(psb_c_dspmat *mh, char *name); +psb_i_t psb_c_dmat_name_print(psb_c_dspmat *mh, char *name); /* psblas computational routines */ psb_d_t psb_c_dgedot(psb_c_dvector *xh, psb_c_dvector *yh, psb_c_descriptor *cdh); @@ -51,15 +51,27 @@ psb_d_t psb_c_dgenrm2(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dgeamax(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dgeasum(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dspnrmi(psb_c_dvector *xh, psb_c_descriptor *cdh); -psb_i_t psb_c_dgeaxpby(psb_d_t alpha, psb_c_dvector *xh, +psb_i_t psb_c_dgeaxpby(psb_d_t alpha, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_dspmm(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, +psb_i_t psb_c_dspmm(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_dspmm_opt(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, +psb_i_t psb_c_dspmm_opt(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh, char *trans, bool doswap); -psb_i_t psb_c_dspsm(psb_d_t alpha, psb_c_dspmat *th, psb_c_dvector *xh, +psb_i_t psb_c_dspsm(psb_d_t alpha, psb_c_dspmat *th, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); +/* Additional computational routines */ +psb_i_t psb_c_dgemlt(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgediv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_c_dvector *ch,psb_c_dvector *zh,psb_c_descriptor *cdh); +psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); +psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); +psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); + #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 5f5c52343..fcdb0cbd3 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -8,11 +8,11 @@ extern "C" { typedef struct PSB_C_SVECTOR { void *svector; -} psb_c_svector; +} psb_c_svector; typedef struct PSB_C_SSPMAT { void *sspmat; -} psb_c_sspmat; +} psb_c_sspmat; /* dense vectors */ @@ -43,7 +43,7 @@ psb_i_t psb_c_smat_get_ncols(psb_c_sspmat *mh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ psb_i_t psb_c_ssprn(psb_c_sspmat *mh, psb_c_descriptor *cdh, _Bool clear); -psb_i_t psb_c_smat_name_print(psb_c_sspmat *mh, char *name); +psb_i_t psb_c_smat_name_print(psb_c_sspmat *mh, char *name); /* psblas computational routines */ psb_s_t psb_c_sgedot(psb_c_svector *xh, psb_c_svector *yh, psb_c_descriptor *cdh); @@ -51,15 +51,26 @@ psb_s_t psb_c_sgenrm2(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sgeamax(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sgeasum(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sspnrmi(psb_c_sspmat *ah, psb_c_descriptor *cdh); -psb_i_t psb_c_sgeaxpby(psb_s_t alpha, psb_c_svector *xh, +psb_i_t psb_c_sgeaxpby(psb_s_t alpha, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_sspmm(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, +psb_i_t psb_c_sspmm(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_sspmm_opt(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, +psb_i_t psb_c_sspmm_opt(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh, char *trans, bool doswap); -psb_i_t psb_c_sspsm(psb_s_t alpha, psb_c_sspmat *th, psb_c_svector *xh, +psb_i_t psb_c_sspsm(psb_s_t alpha, psb_c_sspmat *th, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); +/* Additional computational routines */ +psb_i_t psb_c_sgemlt(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgediv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_c_svector *ch,psb_c_svector *zh,psb_c_descriptor *cdh); +psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); +psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); +psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index f61f64cf8..e3e5e7969 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -8,11 +8,11 @@ extern "C" { typedef struct PSB_C_ZVECTOR { void *zvector; -} psb_c_zvector; +} psb_c_zvector; typedef struct PSB_C_ZSPMAT { void *zspmat; -} psb_c_zspmat; +} psb_c_zspmat; /* dense vectors */ @@ -43,7 +43,7 @@ psb_i_t psb_c_zmat_get_ncols(psb_c_zspmat *mh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ psb_i_t psb_c_zsprn(psb_c_zspmat *mh, psb_c_descriptor *cdh, _Bool clear); -psb_i_t psb_c_zmat_name_print(psb_c_zspmat *mh, char *name); +psb_i_t psb_c_zmat_name_print(psb_c_zspmat *mh, char *name); /* psblas computational routines */ psb_z_t psb_c_zgedot(psb_c_zvector *xh, psb_c_zvector *yh, psb_c_descriptor *cdh); @@ -51,15 +51,25 @@ psb_d_t psb_c_zgenrm2(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zgeamax(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zgeasum(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zspnrmi(psb_c_zspmat *ah, psb_c_descriptor *cdh); -psb_i_t psb_c_zgeaxpby(psb_z_t alpha, psb_c_zvector *xh, +psb_i_t psb_c_zgeaxpby(psb_z_t alpha, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_zspmm(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, +psb_i_t psb_c_zspmm(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); -psb_i_t psb_c_zspmm_opt(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, +psb_i_t psb_c_zspmm_opt(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh, char *trans, bool doswap); -psb_i_t psb_c_zspsm(psb_z_t alpha, psb_c_zspmat *th, psb_c_zvector *xh, +psb_i_t psb_c_zspsm(psb_z_t alpha, psb_c_zspmat *th, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); +/* Additional computational routines */ +psb_i_t psb_c_zgemlt(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgediv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_c_zvector *ch,psb_c_zvector *zh,psb_c_descriptor *cdh); +psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); +psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus } #endif /* __cplusplus */ From 15f89400c33efe52410c0a476ee4daad521482f7 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 25 Feb 2020 14:09:25 +0100 Subject: [PATCH 19/61] Correction to the psb_geinv implementation for out flag handling --- base/psblas/psb_cinv_vect.f90 | 15 +++++++++++++++ base/psblas/psb_dinv_vect.f90 | 15 +++++++++++++++ base/psblas/psb_sinv_vect.f90 | 15 +++++++++++++++ base/psblas/psb_zinv_vect.f90 | 15 +++++++++++++++ 4 files changed, 60 insertions(+) diff --git a/base/psblas/psb_cinv_vect.f90 b/base/psblas/psb_cinv_vect.f90 index f7285e0c2..27f046818 100644 --- a/base/psblas/psb_cinv_vect.f90 +++ b/base/psblas/psb_cinv_vect.f90 @@ -112,6 +112,7 @@ subroutine psb_cinv_vect_check(x,y,desc_a,info,flag) type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag + logical :: check ! locals integer(psb_ipk_) :: ictxt, np, me,& @@ -169,6 +170,20 @@ subroutine psb_cinv_vect_check(x,y,desc_a,info,flag) call y%inv(x,info,flag) end if + if (info == 1_psb_ipk_) then + check = .FALSE. + else + check = .TRUE. + end if + + call psb_lallreduceand(ictxt,check) + + if (check) then + info = 1_psb_ipk_ + else + info = 0_psb_ipk_ + end if + call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_dinv_vect.f90 b/base/psblas/psb_dinv_vect.f90 index 787f4cab9..89b25e38f 100644 --- a/base/psblas/psb_dinv_vect.f90 +++ b/base/psblas/psb_dinv_vect.f90 @@ -112,6 +112,7 @@ subroutine psb_dinv_vect_check(x,y,desc_a,info,flag) type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag + logical :: check ! locals integer(psb_ipk_) :: ictxt, np, me,& @@ -169,6 +170,20 @@ subroutine psb_dinv_vect_check(x,y,desc_a,info,flag) call y%inv(x,info,flag) end if + if (info == 1_psb_ipk_) then + check = .FALSE. + else + check = .TRUE. + end if + + call psb_lallreduceand(ictxt,check) + + if (check) then + info = 1_psb_ipk_ + else + info = 0_psb_ipk_ + end if + call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_sinv_vect.f90 b/base/psblas/psb_sinv_vect.f90 index 0be53a706..5666a821b 100644 --- a/base/psblas/psb_sinv_vect.f90 +++ b/base/psblas/psb_sinv_vect.f90 @@ -112,6 +112,7 @@ subroutine psb_sinv_vect_check(x,y,desc_a,info,flag) type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag + logical :: check ! locals integer(psb_ipk_) :: ictxt, np, me,& @@ -169,6 +170,20 @@ subroutine psb_sinv_vect_check(x,y,desc_a,info,flag) call y%inv(x,info,flag) end if + if (info == 1_psb_ipk_) then + check = .FALSE. + else + check = .TRUE. + end if + + call psb_lallreduceand(ictxt,check) + + if (check) then + info = 1_psb_ipk_ + else + info = 0_psb_ipk_ + end if + call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_zinv_vect.f90 b/base/psblas/psb_zinv_vect.f90 index 4e61379c3..bb37ee69b 100644 --- a/base/psblas/psb_zinv_vect.f90 +++ b/base/psblas/psb_zinv_vect.f90 @@ -112,6 +112,7 @@ subroutine psb_zinv_vect_check(x,y,desc_a,info,flag) type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag + logical :: check ! locals integer(psb_ipk_) :: ictxt, np, me,& @@ -169,6 +170,20 @@ subroutine psb_zinv_vect_check(x,y,desc_a,info,flag) call y%inv(x,info,flag) end if + if (info == 1_psb_ipk_) then + check = .FALSE. + else + check = .TRUE. + end if + + call psb_lallreduceand(ictxt,check) + + if (check) then + info = 1_psb_ipk_ + else + info = 0_psb_ipk_ + end if + call psb_erractionrestore(err_act) return From 601b56f18959772c9ac17c33b33ddaa4d4b68a03 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 25 Feb 2020 15:33:25 +0100 Subject: [PATCH 20/61] corrected prototypes for psb_c_*gecmp --- cbind/base/psb_c_cbase.h | 2 +- cbind/base/psb_c_dbase.h | 2 +- cbind/base/psb_c_sbase.h | 2 +- cbind/base/psb_c_zbase.h | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 8cb29db22..1f7b2c047 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -67,7 +67,7 @@ psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); -psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_c_cvector *ch,psb_c_cvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 4dde00a86..0a5ea1404 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -67,7 +67,7 @@ psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_c_dvector *ch,psb_c_dvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index fcdb0cbd3..fdc27834e 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -67,7 +67,7 @@ psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_c_svector *ch,psb_c_svector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index e3e5e7969..830d5342e 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -67,7 +67,7 @@ psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_c_zvector *ch,psb_c_zvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus From 0edb671d218589622087581b1840b053cf2df3cb Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 25 Feb 2020 17:22:49 +0100 Subject: [PATCH 21/61] Added minimum of realtype distributed vectors --- base/modules/psblas/psb_c_psblas_mod.F90 | 1 + base/modules/psblas/psb_d_psblas_mod.F90 | 12 ++ base/modules/psblas/psb_s_psblas_mod.F90 | 12 ++ base/modules/psblas/psb_z_psblas_mod.F90 | 1 + base/modules/serial/psb_c_base_vect_mod.f90 | 1 + base/modules/serial/psb_c_vect_mod.F90 | 1 + base/modules/serial/psb_d_base_vect_mod.f90 | 17 ++ base/modules/serial/psb_d_vect_mod.F90 | 15 ++ base/modules/serial/psb_s_base_vect_mod.f90 | 17 ++ base/modules/serial/psb_s_vect_mod.F90 | 15 ++ base/modules/serial/psb_z_base_vect_mod.f90 | 1 + base/modules/serial/psb_z_vect_mod.F90 | 1 + base/psblas/psb_camax.f90 | 81 ++++----- base/psblas/psb_damax.f90 | 179 +++++++++++++++----- base/psblas/psb_samax.f90 | 179 +++++++++++++++----- base/psblas/psb_zamax.f90 | 81 ++++----- 16 files changed, 454 insertions(+), 160 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 9a884b8a3..e290b833b 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -183,6 +183,7 @@ module psb_c_psblas_mod end subroutine psb_cmamaxs end interface + interface psb_geasum function psb_casum_vect(x, desc_a, info,global) result(res) import :: psb_desc_type, psb_spk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 28cfa0688..606ede75a 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -183,6 +183,18 @@ module psb_d_psblas_mod end subroutine psb_dmamaxs end interface + interface psb_gemin + function psb_dmin_vect(x, desc_a, info,global) result(res) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_dmin_vect + end interface + interface psb_geasum function psb_dasum_vect(x, desc_a, info,global) result(res) import :: psb_desc_type, psb_dpk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index b1aba86eb..0baf228d8 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -183,6 +183,18 @@ module psb_s_psblas_mod end subroutine psb_smamaxs end interface + interface psb_gemin + function psb_smin_vect(x, desc_a, info,global) result(res) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function psb_smin_vect + end interface + interface psb_geasum function psb_sasum_vect(x, desc_a, info,global) result(res) import :: psb_desc_type, psb_spk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 284a48b93..6f3444c8b 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -183,6 +183,7 @@ module psb_z_psblas_mod end subroutine psb_zmamaxs end interface + interface psb_geasum function psb_zasum_vect(x, desc_a, info,global) result(res) import :: psb_desc_type, psb_dpk_, psb_ipk_, & diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 9ec9fa476..524160ed2 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -1519,6 +1519,7 @@ contains end function c_base_amax + ! !> Function base_asum !! \memberof psb_c_base_vect_type diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index b8e437af6..575850756 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -988,6 +988,7 @@ contains end function c_vect_amax + function c_vect_asum(n,x) result(res) implicit none class(psb_c_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 8fb287c1b..1c8d41f9d 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -194,6 +194,7 @@ module psb_d_base_vect_mod procedure, pass(z) :: acmp_v2 => d_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 +procedure, pass(x) :: minreal => d_base_min procedure, pass(m) :: mask_v => d_base_mask_v procedure, pass(m) :: mask_a => d_base_mask_a generic, public :: mask => mask_a, mask_v @@ -1522,6 +1523,22 @@ contains end function d_base_amax + ! + !> Function base_min + !! \memberof psb_d_base_vect_type + !! \brief min x(1:n) + !! \param n how many entries to consider + function d_base_min(n,x) result(res) + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + + if (x%is_dev()) call x%sync() + res = minval(x%v(1:n)) + + end function d_base_min + ! !> Function base_asum !! \memberof psb_d_base_vect_type diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 4c0cc6e80..27ba92126 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -118,6 +118,7 @@ module psb_d_vect_mod procedure, pass(z) :: acmp_v2 => d_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(x) :: minreal => d_vect_min procedure, pass(m) :: mask_v => d_vect_mask_v procedure, pass(m) :: mask_a => d_vect_mask_a generic, public :: mask => mask_a, mask_v @@ -991,6 +992,20 @@ contains end function d_vect_amax + function d_vect_min(n,x) result(res) + implicit none + class(psb_d_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_) :: res + + if (allocated(x%v)) then + res = x%v%minreal(n) + else + res = dzero + end if + + end function d_vect_min + function d_vect_asum(n,x) result(res) implicit none class(psb_d_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index d1dbb20cd..fb7b9950c 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -194,6 +194,7 @@ module psb_s_base_vect_mod procedure, pass(z) :: acmp_v2 => s_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 +procedure, pass(x) :: minreal => s_base_min procedure, pass(m) :: mask_v => s_base_mask_v procedure, pass(m) :: mask_a => s_base_mask_a generic, public :: mask => mask_a, mask_v @@ -1522,6 +1523,22 @@ contains end function s_base_amax + ! + !> Function base_min + !! \memberof psb_s_base_vect_type + !! \brief min x(1:n) + !! \param n how many entries to consider + function s_base_min(n,x) result(res) + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + + if (x%is_dev()) call x%sync() + res = minval(x%v(1:n)) + + end function s_base_min + ! !> Function base_asum !! \memberof psb_s_base_vect_type diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 5f0fd6dee..e80ae5d31 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -118,6 +118,7 @@ module psb_s_vect_mod procedure, pass(z) :: acmp_v2 => s_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(x) :: minreal => s_vect_min procedure, pass(m) :: mask_v => s_vect_mask_v procedure, pass(m) :: mask_a => s_vect_mask_a generic, public :: mask => mask_a, mask_v @@ -991,6 +992,20 @@ contains end function s_vect_amax + function s_vect_min(n,x) result(res) + implicit none + class(psb_s_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: n + real(psb_spk_) :: res + + if (allocated(x%v)) then + res = x%v%minreal(n) + else + res = szero + end if + + end function s_vect_min + function s_vect_asum(n,x) result(res) implicit none class(psb_s_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index ab5511306..a353af0cb 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -1519,6 +1519,7 @@ contains end function z_base_amax + ! !> Function base_asum !! \memberof psb_z_base_vect_type diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 0bf21205d..d3e84d03e 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -988,6 +988,7 @@ contains end function z_vect_amax + function z_vect_asum(n,x) result(res) implicit none class(psb_z_vect_type), intent(inout) :: x diff --git a/base/psblas/psb_camax.f90 b/base/psblas/psb_camax.f90 index 0de31a0cf..215696139 100644 --- a/base/psblas/psb_camax.f90 +++ b/base/psblas/psb_camax.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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_camax.f90 ! ! Function: psb_camax ! Computes the maximum absolute value of X ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N,JX:). ! @@ -77,7 +77,7 @@ function psb_camax(x,desc_a, info, jx,global) result(res) if (np == -1) then info = psb_err_context_error_ call psb_errpush(info,name) - goto 9999 + goto 9999 endif ix = 1 @@ -113,7 +113,7 @@ function psb_camax(x,desc_a, info, jx,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x(:,jjx)) - else + else res = szero end if @@ -121,7 +121,7 @@ function psb_camax(x,desc_a, info, jx,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -131,12 +131,12 @@ end function psb_camax -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -148,7 +148,7 @@ end function psb_camax !!$ 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 @@ -160,13 +160,13 @@ end function psb_camax !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_camaxv ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x(:) - complex The input vector. @@ -237,7 +237,7 @@ function psb_camaxv (x,desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = szero end if @@ -245,7 +245,7 @@ function psb_camaxv (x,desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -256,7 +256,7 @@ end function psb_camaxv ! Function: psb_camax_vect ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x - type(psb_c_vect_type) The input vector. @@ -302,7 +302,7 @@ function psb_camax_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -335,7 +335,7 @@ function psb_camax_vect(x, desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = x%amax(desc_a%get_local_rows()) - else + else res = szero end if @@ -343,7 +343,7 @@ function psb_camax_vect(x, desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -352,12 +352,12 @@ function psb_camax_vect(x, desc_a, info,global) result(res) end function psb_camax_vect -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -369,7 +369,7 @@ end function psb_camax_vect !!$ 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 @@ -381,13 +381,13 @@ end function psb_camax_vect !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_camaxvs ! Computes the maximum absolute value of X, subroutine version ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N). ! @@ -460,7 +460,7 @@ subroutine psb_camaxvs(res,x,desc_a, info,global) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = szero end if @@ -468,7 +468,7 @@ subroutine psb_camaxvs(res,x,desc_a, info,global) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -476,12 +476,12 @@ subroutine psb_camaxvs(res,x,desc_a, info,global) end subroutine psb_camaxvs -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -493,7 +493,7 @@ end subroutine psb_camaxvs !!$ 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 @@ -505,13 +505,13 @@ end subroutine psb_camaxvs !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_cmamaxs ! Searches the absolute max of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! res(:) - real. The result. @@ -596,9 +596,10 @@ subroutine psb_cmamaxs(res,x,desc_a, info,jx,global) if (global_) call psb_amx(ictxt, res(1:k)) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_cmamaxs + diff --git a/base/psblas/psb_damax.f90 b/base/psblas/psb_damax.f90 index 0f3ea0b61..ea3581d45 100644 --- a/base/psblas/psb_damax.f90 +++ b/base/psblas/psb_damax.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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_damax.f90 ! ! Function: psb_damax ! Computes the maximum absolute value of X ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N,JX:). ! @@ -77,7 +77,7 @@ function psb_damax(x,desc_a, info, jx,global) result(res) if (np == -1) then info = psb_err_context_error_ call psb_errpush(info,name) - goto 9999 + goto 9999 endif ix = 1 @@ -113,7 +113,7 @@ function psb_damax(x,desc_a, info, jx,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x(:,jjx)) - else + else res = dzero end if @@ -121,7 +121,7 @@ function psb_damax(x,desc_a, info, jx,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -131,12 +131,12 @@ end function psb_damax -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -148,7 +148,7 @@ end function psb_damax !!$ 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 @@ -160,13 +160,13 @@ end function psb_damax !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_damaxv ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x(:) - real The input vector. @@ -237,7 +237,7 @@ function psb_damaxv (x,desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = dzero end if @@ -245,7 +245,7 @@ function psb_damaxv (x,desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -256,7 +256,7 @@ end function psb_damaxv ! Function: psb_damax_vect ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x - type(psb_d_vect_type) The input vector. @@ -302,7 +302,7 @@ function psb_damax_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -335,7 +335,7 @@ function psb_damax_vect(x, desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = x%amax(desc_a%get_local_rows()) - else + else res = dzero end if @@ -343,7 +343,7 @@ function psb_damax_vect(x, desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -352,12 +352,12 @@ function psb_damax_vect(x, desc_a, info,global) result(res) end function psb_damax_vect -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -369,7 +369,7 @@ end function psb_damax_vect !!$ 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 @@ -381,13 +381,13 @@ end function psb_damax_vect !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_damaxvs ! Computes the maximum absolute value of X, subroutine version ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N). ! @@ -460,7 +460,7 @@ subroutine psb_damaxvs(res,x,desc_a, info,global) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = dzero end if @@ -468,7 +468,7 @@ subroutine psb_damaxvs(res,x,desc_a, info,global) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -476,12 +476,12 @@ subroutine psb_damaxvs(res,x,desc_a, info,global) end subroutine psb_damaxvs -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -493,7 +493,7 @@ end subroutine psb_damaxvs !!$ 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 @@ -505,13 +505,13 @@ end subroutine psb_damaxvs !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_dmamaxs ! Searches the absolute max of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! res(:) - real. The result. @@ -596,9 +596,108 @@ subroutine psb_dmamaxs(res,x,desc_a, info,jx,global) if (global_) call psb_amx(ictxt, res(1:k)) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_dmamaxs + +! +! Function: psb_dmin_vect +! Computes the minimum value of X. +! +! mini := min(X(i)) +! +! Arguments: +! x - type(psb_d_vect_type) The input vector. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! + +function psb_dmin_vect(x, desc_a, info,global) result(res) + use psb_penv_mod + use psb_serial_mod + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_d_vect_mod + implicit none + + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + character(len=20) :: name, ch_err + + name='psb_dmin_vect' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + + m = desc_a%get_global_rows() + call psb_chkvect(m,lone,x%get_nrows(),ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + ! compute local max + if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then + res = x%minreal(desc_a%get_local_rows()) + else + res = dzero + end if + + ! compute global min + if (global_) call psb_min(ictxt, res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end function psb_dmin_vect diff --git a/base/psblas/psb_samax.f90 b/base/psblas/psb_samax.f90 index 174c7a289..30b22fd8a 100644 --- a/base/psblas/psb_samax.f90 +++ b/base/psblas/psb_samax.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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_samax.f90 ! ! Function: psb_samax ! Computes the maximum absolute value of X ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N,JX:). ! @@ -77,7 +77,7 @@ function psb_samax(x,desc_a, info, jx,global) result(res) if (np == -1) then info = psb_err_context_error_ call psb_errpush(info,name) - goto 9999 + goto 9999 endif ix = 1 @@ -113,7 +113,7 @@ function psb_samax(x,desc_a, info, jx,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x(:,jjx)) - else + else res = szero end if @@ -121,7 +121,7 @@ function psb_samax(x,desc_a, info, jx,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -131,12 +131,12 @@ end function psb_samax -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -148,7 +148,7 @@ end function psb_samax !!$ 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 @@ -160,13 +160,13 @@ end function psb_samax !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_samaxv ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x(:) - real The input vector. @@ -237,7 +237,7 @@ function psb_samaxv (x,desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = szero end if @@ -245,7 +245,7 @@ function psb_samaxv (x,desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -256,7 +256,7 @@ end function psb_samaxv ! Function: psb_samax_vect ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x - type(psb_s_vect_type) The input vector. @@ -302,7 +302,7 @@ function psb_samax_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -335,7 +335,7 @@ function psb_samax_vect(x, desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = x%amax(desc_a%get_local_rows()) - else + else res = szero end if @@ -343,7 +343,7 @@ function psb_samax_vect(x, desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -352,12 +352,12 @@ function psb_samax_vect(x, desc_a, info,global) result(res) end function psb_samax_vect -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -369,7 +369,7 @@ end function psb_samax_vect !!$ 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 @@ -381,13 +381,13 @@ end function psb_samax_vect !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_samaxvs ! Computes the maximum absolute value of X, subroutine version ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N). ! @@ -460,7 +460,7 @@ subroutine psb_samaxvs(res,x,desc_a, info,global) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = szero end if @@ -468,7 +468,7 @@ subroutine psb_samaxvs(res,x,desc_a, info,global) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -476,12 +476,12 @@ subroutine psb_samaxvs(res,x,desc_a, info,global) end subroutine psb_samaxvs -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -493,7 +493,7 @@ end subroutine psb_samaxvs !!$ 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 @@ -505,13 +505,13 @@ end subroutine psb_samaxvs !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_smamaxs ! Searches the absolute max of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! res(:) - real. The result. @@ -596,9 +596,108 @@ subroutine psb_smamaxs(res,x,desc_a, info,jx,global) if (global_) call psb_amx(ictxt, res(1:k)) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_smamaxs + +! +! Function: psb_smin_vect +! Computes the minimum value of X. +! +! mini := min(X(i)) +! +! Arguments: +! x - type(psb_s_vect_type) The input vector. +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! + +function psb_smin_vect(x, desc_a, info,global) result(res) + use psb_penv_mod + use psb_serial_mod + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_s_vect_mod + implicit none + + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + character(len=20) :: name, ch_err + + name='psb_smin_vect' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + + m = desc_a%get_global_rows() + call psb_chkvect(m,lone,x%get_nrows(),ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + ! compute local max + if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then + res = x%minreal(desc_a%get_local_rows()) + else + res = szero + end if + + ! compute global min + if (global_) call psb_min(ictxt, res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end function psb_smin_vect diff --git a/base/psblas/psb_zamax.f90 b/base/psblas/psb_zamax.f90 index 5e7680235..8fd10043a 100644 --- a/base/psblas/psb_zamax.f90 +++ b/base/psblas/psb_zamax.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,14 +27,14 @@ ! 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_zamax.f90 ! ! Function: psb_zamax ! Computes the maximum absolute value of X ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N,JX:). ! @@ -77,7 +77,7 @@ function psb_zamax(x,desc_a, info, jx,global) result(res) if (np == -1) then info = psb_err_context_error_ call psb_errpush(info,name) - goto 9999 + goto 9999 endif ix = 1 @@ -113,7 +113,7 @@ function psb_zamax(x,desc_a, info, jx,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x(:,jjx)) - else + else res = dzero end if @@ -121,7 +121,7 @@ function psb_zamax(x,desc_a, info, jx,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -131,12 +131,12 @@ end function psb_zamax -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -148,7 +148,7 @@ end function psb_zamax !!$ 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 @@ -160,13 +160,13 @@ end function psb_zamax !!$ 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. -!!$ +!!$ !!$ ! ! Function: psb_zamaxv ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x(:) - complex The input vector. @@ -237,7 +237,7 @@ function psb_zamaxv (x,desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = dzero end if @@ -245,7 +245,7 @@ function psb_zamaxv (x,desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -256,7 +256,7 @@ end function psb_zamaxv ! Function: psb_zamax_vect ! Computes the maximum absolute value of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! x - type(psb_z_vect_type) The input vector. @@ -302,7 +302,7 @@ function psb_zamax_vect(x, desc_a, info,global) result(res) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -335,7 +335,7 @@ function psb_zamax_vect(x, desc_a, info,global) result(res) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = x%amax(desc_a%get_local_rows()) - else + else res = dzero end if @@ -343,7 +343,7 @@ function psb_zamax_vect(x, desc_a, info,global) result(res) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -352,12 +352,12 @@ function psb_zamax_vect(x, desc_a, info,global) result(res) end function psb_zamax_vect -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -369,7 +369,7 @@ end function psb_zamax_vect !!$ 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 @@ -381,13 +381,13 @@ end function psb_zamax_vect !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_zamaxvs ! Computes the maximum absolute value of X, subroutine version ! -! normi := max(abs(sub(X)(i)) +! normi := max(abs(sub(X)(i)) ! ! where sub( X ) denotes X(1:N). ! @@ -460,7 +460,7 @@ subroutine psb_zamaxvs(res,x,desc_a, info,global) ! compute local max if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then res = psb_amax(desc_a%get_local_rows()-iix+1,x) - else + else res = dzero end if @@ -468,7 +468,7 @@ subroutine psb_zamaxvs(res,x,desc_a, info,global) if (global_) call psb_amx(ictxt, res) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -476,12 +476,12 @@ subroutine psb_zamaxvs(res,x,desc_a, info,global) end subroutine psb_zamaxvs -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -493,7 +493,7 @@ end subroutine psb_zamaxvs !!$ 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 @@ -505,13 +505,13 @@ end subroutine psb_zamaxvs !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_zmamaxs ! Searches the absolute max of X. ! -! normi := max(abs(X(i)) +! normi := max(abs(X(i)) ! ! Arguments: ! res(:) - real. The result. @@ -596,9 +596,10 @@ subroutine psb_zmamaxs(res,x,desc_a, info,jx,global) if (global_) call psb_amx(ictxt, res(1:k)) call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_zmamaxs + From 37f6ed6077d0d36f129d160ec338cb65752c2551 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 25 Feb 2020 17:36:15 +0100 Subject: [PATCH 22/61] Added c interface for minimum of realtype distributed vectors --- cbind/base/psb_c_dbase.h | 2 ++ cbind/base/psb_c_psblas_cbind_mod.f90 | 1 + cbind/base/psb_c_sbase.h | 2 ++ cbind/base/psb_d_psblas_cbind_mod.f90 | 26 ++++++++++++++++++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 26 ++++++++++++++++++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 1 + 6 files changed, 58 insertions(+) diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 0a5ea1404..baa81eeef 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -71,6 +71,8 @@ psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descri psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); +psb_d_t psb_c_dgemin(psb_c_dvector *xh,psb_c_descriptor *cdh); + #ifdef __cplusplus } diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 57e3641fe..595d69620 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -418,6 +418,7 @@ contains end function psb_c_cgeamax + function psb_c_cgeasum(xh,cdh) bind(c) result(res) implicit none real(c_float_complex) :: res diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index fdc27834e..6211f86a7 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -71,6 +71,8 @@ psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descri psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); +psb_s_t psb_c_sgemin(psb_c_svector *xh,psb_c_descriptor *cdh); + #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index f644530d2..143ab84b1 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -461,6 +461,32 @@ contains end function psb_c_dgeamax + function psb_c_dgemin(xh,cdh) bind(c) result(res) + implicit none + real(c_double) :: 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.0 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + res = psb_gemin(xp,descp,info) + + end function psb_c_dgemin + function psb_c_dgeasum(xh,cdh) bind(c) result(res) implicit none real(c_double) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index cdbb61168..cbf6fe119 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -461,6 +461,32 @@ contains end function psb_c_sgeamax + function psb_c_sgemin(xh,cdh) bind(c) result(res) + implicit none + real(c_float) :: 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.0 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + res = psb_gemin(xp,descp,info) + + end function psb_c_sgemin + function psb_c_sgeasum(xh,cdh) bind(c) result(res) implicit none real(c_float) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index e6fef96b7..81c1d2cac 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -418,6 +418,7 @@ contains end function psb_c_zgeamax + function psb_c_zgeasum(xh,cdh) bind(c) result(res) implicit none real(c_double_complex) :: res From 22e7df48daed94561cd48f770571a382485502c4 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 26 Feb 2020 09:46:59 +0100 Subject: [PATCH 23/61] Added out-of-place psb_mlt subroutine interface --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 +++ base/psblas/psb_cmlt_vect.f90 | 93 ++++++++++++++++++++++++ base/psblas/psb_dmlt_vect.f90 | 93 ++++++++++++++++++++++++ base/psblas/psb_smlt_vect.f90 | 93 ++++++++++++++++++++++++ base/psblas/psb_zmlt_vect.f90 | 93 ++++++++++++++++++++++++ cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 42 +++++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 42 +++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 42 +++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 42 +++++++++++ 16 files changed, 588 insertions(+) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index e290b833b..37fd313ec 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -459,6 +459,17 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_cmlt_vect + subroutine psb_cmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx,conjgy) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type, psb_spk_ + complex(psb_spk_), intent(in) :: alpha,beta + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + end subroutine psb_cmlt_vect2 end interface interface psb_gediv diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 606ede75a..5c5d79926 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -470,6 +470,17 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_dmlt_vect + subroutine psb_dmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx,conjgy) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + real(psb_dpk_), intent(in) :: alpha,beta + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + end subroutine psb_dmlt_vect2 end interface interface psb_gediv diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 0baf228d8..90c306ce1 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -470,6 +470,17 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_smlt_vect + subroutine psb_smlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx,conjgy) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + real(psb_spk_), intent(in) :: alpha,beta + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + end subroutine psb_smlt_vect2 end interface interface psb_gediv diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 6f3444c8b..162fe8d3d 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -459,6 +459,17 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zmlt_vect + subroutine psb_zmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx,conjgy) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type, psb_dpk_ + complex(psb_dpk_), intent(in) :: alpha,beta + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + end subroutine psb_zmlt_vect2 end interface interface psb_gediv diff --git a/base/psblas/psb_cmlt_vect.f90 b/base/psblas/psb_cmlt_vect.f90 index 89679c0ff..e2b092709 100644 --- a/base/psblas/psb_cmlt_vect.f90 +++ b/base/psblas/psb_cmlt_vect.f90 @@ -103,3 +103,96 @@ subroutine psb_cmlt_vect(x,y,desc_a,info) return end subroutine psb_cmlt_vect + +! +! Subroutine: psb_cmlt_vect2 +! + +subroutine psb_cmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx, conjgy) + use psb_base_mod, psb_protect_name => psb_cmlt_vect2 + implicit none + complex(psb_spk_), intent(in) :: alpha,beta + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_c_mlt_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%mlt(alpha,x,y,beta,info,conjgx,conjgy) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cmlt_vect2 diff --git a/base/psblas/psb_dmlt_vect.f90 b/base/psblas/psb_dmlt_vect.f90 index 2f282824a..ac45802f8 100644 --- a/base/psblas/psb_dmlt_vect.f90 +++ b/base/psblas/psb_dmlt_vect.f90 @@ -103,3 +103,96 @@ subroutine psb_dmlt_vect(x,y,desc_a,info) return end subroutine psb_dmlt_vect + +! +! Subroutine: psb_dmlt_vect2 +! + +subroutine psb_dmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx, conjgy) + use psb_base_mod, psb_protect_name => psb_dmlt_vect2 + implicit none + real(psb_dpk_), intent(in) :: alpha,beta + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_d_mlt_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%mlt(alpha,x,y,beta,info,conjgx,conjgy) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dmlt_vect2 diff --git a/base/psblas/psb_smlt_vect.f90 b/base/psblas/psb_smlt_vect.f90 index f135e97d0..8f1623d9b 100644 --- a/base/psblas/psb_smlt_vect.f90 +++ b/base/psblas/psb_smlt_vect.f90 @@ -103,3 +103,96 @@ subroutine psb_smlt_vect(x,y,desc_a,info) return end subroutine psb_smlt_vect + +! +! Subroutine: psb_smlt_vect2 +! + +subroutine psb_smlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx, conjgy) + use psb_base_mod, psb_protect_name => psb_smlt_vect2 + implicit none + real(psb_spk_), intent(in) :: alpha,beta + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_s_mlt_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%mlt(alpha,x,y,beta,info,conjgx,conjgy) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_smlt_vect2 diff --git a/base/psblas/psb_zmlt_vect.f90 b/base/psblas/psb_zmlt_vect.f90 index 5d3153b55..598a12a72 100644 --- a/base/psblas/psb_zmlt_vect.f90 +++ b/base/psblas/psb_zmlt_vect.f90 @@ -103,3 +103,96 @@ subroutine psb_zmlt_vect(x,y,desc_a,info) return end subroutine psb_zmlt_vect + +! +! Subroutine: psb_zmlt_vect2 +! + +subroutine psb_zmlt_vect2(alpha,x,y,beta,z,desc_a,info,conjgx, conjgy) + use psb_base_mod, psb_protect_name => psb_zmlt_vect2 + implicit none + complex(psb_dpk_), intent(in) :: alpha,beta + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + character(len=1), intent(in), optional :: conjgx, conjgy + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_z_mlt_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%mlt(alpha,x,y,beta,info,conjgx,conjgy) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zmlt_vect2 diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 1f7b2c047..86f57f3fe 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -62,6 +62,7 @@ psb_i_t psb_c_cspsm(psb_c_t alpha, psb_c_cspmat *th, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); /* Additional computational routines */ psb_i_t psb_c_cgemlt(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgemlt2(psb_c_t alpha, psb_c_cvector *xh, psb_c_cvector *yh, psb_c_t beta, psb_c_cvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_cgediv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index baa81eeef..aa2030646 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -62,6 +62,7 @@ psb_i_t psb_c_dspsm(psb_d_t alpha, psb_c_dspmat *th, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); /* Additional computational routines */ psb_i_t psb_c_dgemlt(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgemlt2(psb_d_t alpha, psb_c_dvector *xh, psb_c_dvector *yh, psb_d_t beta, psb_c_dvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_dgediv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 595d69620..25b6e4451 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -78,6 +78,48 @@ contains end function psb_c_cgemlt + function psb_c_cgemlt2(alpha,xh,yh,beta,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh, zh + type(psb_c_descriptor) :: cdh + + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + complex(psb_spk_), intent(in) :: alpha,beta + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gemlt(alpha,xp,yp,beta,zp,descp,info) + + res = info + + end function psb_c_cgemlt2 + function psb_c_cgediv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 6211f86a7..f9e855fe1 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -62,6 +62,7 @@ psb_i_t psb_c_sspsm(psb_s_t alpha, psb_c_sspmat *th, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); /* Additional computational routines */ psb_i_t psb_c_sgemlt(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgemlt2(psb_s_t alpha, psb_c_svector *xh, psb_c_svector *yh, psb_s_t beta, psb_c_svector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_sgediv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 830d5342e..401826dcb 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -62,6 +62,7 @@ psb_i_t psb_c_zspsm(psb_z_t alpha, psb_c_zspmat *th, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); /* Additional computational routines */ psb_i_t psb_c_zgemlt(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgemlt2(psb_z_t alpha, psb_c_zvector *xh, psb_c_zvector *yh, psb_z_t beta, psb_c_zvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_zgediv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 143ab84b1..8fd05660b 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -78,6 +78,48 @@ contains end function psb_c_dgemlt + function psb_c_dgemlt2(alpha,xh,yh,beta,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh, zh + type(psb_c_descriptor) :: cdh + + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + real(psb_dpk_), intent(in) :: alpha,beta + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gemlt(alpha,xp,yp,beta,zp,descp,info) + + res = info + + end function psb_c_dgemlt2 + function psb_c_dgediv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index cbf6fe119..f4c306efb 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -78,6 +78,48 @@ contains end function psb_c_sgemlt + function psb_c_sgemlt2(alpha,xh,yh,beta,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh, zh + type(psb_c_descriptor) :: cdh + + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + real(psb_spk_), intent(in) :: alpha,beta + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gemlt(alpha,xp,yp,beta,zp,descp,info) + + res = info + + end function psb_c_sgemlt2 + function psb_c_sgediv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 81c1d2cac..ae814d6d4 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -78,6 +78,48 @@ contains end function psb_c_zgemlt + function psb_c_zgemlt2(alpha,xh,yh,beta,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh, zh + type(psb_c_descriptor) :: cdh + + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + complex(psb_dpk_), intent(in) :: alpha,beta + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gemlt(alpha,xp,yp,beta,zp,descp,info) + + res = info + + end function psb_c_zgemlt2 + function psb_c_zgediv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res From 439246e6439c252f7ec26abea57efa01442bd8ef Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 26 Feb 2020 13:25:24 +0100 Subject: [PATCH 24/61] Added out-of-place entrywise division with C interfaces --- base/modules/psblas/psb_c_psblas_mod.F90 | 19 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 19 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 19 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 19 +++ base/modules/serial/psb_c_base_vect_mod.f90 | 55 ++++++- base/modules/serial/psb_c_vect_mod.F90 | 36 +++- base/modules/serial/psb_d_base_vect_mod.f90 | 55 ++++++- base/modules/serial/psb_d_vect_mod.F90 | 36 +++- base/modules/serial/psb_s_base_vect_mod.f90 | 55 ++++++- base/modules/serial/psb_s_vect_mod.F90 | 36 +++- base/modules/serial/psb_z_base_vect_mod.f90 | 55 ++++++- base/modules/serial/psb_z_vect_mod.F90 | 36 +++- base/psblas/psb_cdiv_vect.f90 | 174 ++++++++++++++++++++ base/psblas/psb_ddiv_vect.f90 | 174 ++++++++++++++++++++ base/psblas/psb_sdiv_vect.f90 | 174 ++++++++++++++++++++ base/psblas/psb_zdiv_vect.f90 | 174 ++++++++++++++++++++ cbind/base/psb_c_cbase.h | 4 +- cbind/base/psb_c_dbase.h | 4 +- cbind/base/psb_c_psblas_cbind_mod.f90 | 83 ++++++++++ cbind/base/psb_c_sbase.h | 4 +- cbind/base/psb_c_zbase.h | 4 +- cbind/base/psb_d_psblas_cbind_mod.f90 | 83 ++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 83 ++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 83 ++++++++++ 24 files changed, 1464 insertions(+), 20 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 37fd313ec..a1e232c18 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -481,6 +481,15 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_cdiv_vect + subroutine psb_cdiv_vect2(x,y,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cdiv_vect2 subroutine psb_cdiv_vect_check(x,y,desc_a,info,flag) import :: psb_desc_type, psb_ipk_, & & psb_c_vect_type @@ -490,6 +499,16 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag end subroutine psb_cdiv_vect_check + subroutine psb_cdiv_vect2_check(x,y,z,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_cdiv_vect2_check end interface interface psb_geinv diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 5c5d79926..5fd7fc7b8 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -492,6 +492,15 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_ddiv_vect + subroutine psb_ddiv_vect2(x,y,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ddiv_vect2 subroutine psb_ddiv_vect_check(x,y,desc_a,info,flag) import :: psb_desc_type, psb_ipk_, & & psb_d_vect_type @@ -501,6 +510,16 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag end subroutine psb_ddiv_vect_check + subroutine psb_ddiv_vect2_check(x,y,z,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_ddiv_vect2_check end interface interface psb_geinv diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 90c306ce1..01fe18525 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -492,6 +492,15 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_sdiv_vect + subroutine psb_sdiv_vect2(x,y,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_sdiv_vect2 subroutine psb_sdiv_vect_check(x,y,desc_a,info,flag) import :: psb_desc_type, psb_ipk_, & & psb_s_vect_type @@ -501,6 +510,16 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag end subroutine psb_sdiv_vect_check + subroutine psb_sdiv_vect2_check(x,y,z,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_sdiv_vect2_check end interface interface psb_geinv diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 162fe8d3d..8fe2f9104 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -481,6 +481,15 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zdiv_vect + subroutine psb_zdiv_vect2(x,y,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zdiv_vect2 subroutine psb_zdiv_vect_check(x,y,desc_a,info,flag) import :: psb_desc_type, psb_ipk_, & & psb_z_vect_type @@ -490,6 +499,16 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info logical, intent(in) :: flag end subroutine psb_zdiv_vect_check + subroutine psb_zdiv_vect2_check(x,y,z,desc_a,info,flag) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + end subroutine psb_zdiv_vect2_check end interface interface psb_geinv diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 524160ed2..f9e1bd9b0 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -162,15 +162,19 @@ module psb_c_base_vect_mod procedure, pass(z) :: mlt_v_2 => c_base_mlt_v_2 procedure, pass(z) :: mlt_va => c_base_mlt_va procedure, pass(z) :: mlt_av => c_base_mlt_av - generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va + generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, & + mlt_va ! ! Vector-Vector operations ! procedure, pass(x) :: div_v => c_base_div_v procedure, pass(x) :: div_v_check => c_base_div_v_check + procedure, pass(x) :: div_v2 => c_base_div_v2 + procedure, pass(x) :: div_v2_check => c_base_div_v2_check procedure, pass(z) :: div_a2 => c_base_div_a2 procedure, pass(z) :: div_a2_check => c_base_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => c_base_inv_v procedure, pass(y) :: inv_v_check => c_base_inv_v_check procedure, pass(y) :: inv_a2 => c_base_inv_a2 @@ -1220,6 +1224,28 @@ contains end subroutine c_base_div_v ! + !> Function base_div_v2 + !! \memberof psb_c_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine c_base_div_v2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info) + + + end subroutine c_base_div_v2 + ! !> Function base_div_v_check !! \memberof psb_c_base_vect_type !! \brief Vector entry-by-entry divide by a vector x=x/y @@ -1242,9 +1268,32 @@ contains end subroutine c_base_div_v_check ! + !> Function base_div_v2_check + !! \memberof psb_c_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine c_base_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info,flag) + + + end subroutine c_base_div_v2_check + ! !> Function base_div_a2 !! \memberof psb_c_base_vect_type - !! \brief Entry-by-entry divide between normal array x=x/y + !! \brief Entry-by-entry divide between normal array z=x/y !! \param y(:) The array to be divided by !! \param info return code !! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 575850756..a44329594 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -95,10 +95,13 @@ module psb_c_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => c_vect_div_v + procedure, pass(x) :: div_v2 => c_vect_div_v2 procedure, pass(x) :: div_v_check => c_vect_div_v_check + procedure, pass(x) :: div_v2_check => c_vect_div_v2_check procedure, pass(z) :: div_a2 => c_vect_div_a2 procedure, pass(z) :: div_a2_check => c_vect_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => c_vect_inv_v procedure, pass(y) :: inv_v_check => c_vect_inv_v_check procedure, pass(y) :: inv_a2 => c_vect_inv_a2 @@ -764,6 +767,21 @@ contains end subroutine c_vect_div_v + subroutine c_vect_div_v2( x, y, z, info) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info) + + end subroutine c_vect_div_v2 + subroutine c_vect_div_v_check(x, y, info, flag) use psi_serial_mod implicit none @@ -779,6 +797,22 @@ contains end subroutine c_vect_div_v_check + subroutine c_vect_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info,flag) + + end subroutine c_vect_div_v2_check + subroutine c_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 1c8d41f9d..fcff2ff82 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -162,15 +162,19 @@ module psb_d_base_vect_mod procedure, pass(z) :: mlt_v_2 => d_base_mlt_v_2 procedure, pass(z) :: mlt_va => d_base_mlt_va procedure, pass(z) :: mlt_av => d_base_mlt_av - generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va + generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, & + mlt_va ! ! Vector-Vector operations ! procedure, pass(x) :: div_v => d_base_div_v procedure, pass(x) :: div_v_check => d_base_div_v_check + procedure, pass(x) :: div_v2 => d_base_div_v2 + procedure, pass(x) :: div_v2_check => d_base_div_v2_check procedure, pass(z) :: div_a2 => d_base_div_a2 procedure, pass(z) :: div_a2_check => d_base_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => d_base_inv_v procedure, pass(y) :: inv_v_check => d_base_inv_v_check procedure, pass(y) :: inv_a2 => d_base_inv_a2 @@ -1224,6 +1228,28 @@ contains end subroutine d_base_div_v ! + !> Function base_div_v2 + !! \memberof psb_d_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine d_base_div_v2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info) + + + end subroutine d_base_div_v2 + ! !> Function base_div_v_check !! \memberof psb_d_base_vect_type !! \brief Vector entry-by-entry divide by a vector x=x/y @@ -1246,9 +1272,32 @@ contains end subroutine d_base_div_v_check ! + !> Function base_div_v2_check + !! \memberof psb_d_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine d_base_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info,flag) + + + end subroutine d_base_div_v2_check + ! !> Function base_div_a2 !! \memberof psb_d_base_vect_type - !! \brief Entry-by-entry divide between normal array x=x/y + !! \brief Entry-by-entry divide between normal array z=x/y !! \param y(:) The array to be divided by !! \param info return code !! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 27ba92126..acb2a60d2 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -95,10 +95,13 @@ module psb_d_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => d_vect_div_v + procedure, pass(x) :: div_v2 => d_vect_div_v2 procedure, pass(x) :: div_v_check => d_vect_div_v_check + procedure, pass(x) :: div_v2_check => d_vect_div_v2_check procedure, pass(z) :: div_a2 => d_vect_div_a2 procedure, pass(z) :: div_a2_check => d_vect_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => d_vect_inv_v procedure, pass(y) :: inv_v_check => d_vect_inv_v_check procedure, pass(y) :: inv_a2 => d_vect_inv_a2 @@ -768,6 +771,21 @@ contains end subroutine d_vect_div_v + subroutine d_vect_div_v2( x, y, z, info) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info) + + end subroutine d_vect_div_v2 + subroutine d_vect_div_v_check(x, y, info, flag) use psi_serial_mod implicit none @@ -783,6 +801,22 @@ contains end subroutine d_vect_div_v_check + subroutine d_vect_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info,flag) + + end subroutine d_vect_div_v2_check + subroutine d_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index fb7b9950c..fd153d3e7 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -162,15 +162,19 @@ module psb_s_base_vect_mod procedure, pass(z) :: mlt_v_2 => s_base_mlt_v_2 procedure, pass(z) :: mlt_va => s_base_mlt_va procedure, pass(z) :: mlt_av => s_base_mlt_av - generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va + generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, & + mlt_va ! ! Vector-Vector operations ! procedure, pass(x) :: div_v => s_base_div_v procedure, pass(x) :: div_v_check => s_base_div_v_check + procedure, pass(x) :: div_v2 => s_base_div_v2 + procedure, pass(x) :: div_v2_check => s_base_div_v2_check procedure, pass(z) :: div_a2 => s_base_div_a2 procedure, pass(z) :: div_a2_check => s_base_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => s_base_inv_v procedure, pass(y) :: inv_v_check => s_base_inv_v_check procedure, pass(y) :: inv_a2 => s_base_inv_a2 @@ -1224,6 +1228,28 @@ contains end subroutine s_base_div_v ! + !> Function base_div_v2 + !! \memberof psb_s_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine s_base_div_v2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info) + + + end subroutine s_base_div_v2 + ! !> Function base_div_v_check !! \memberof psb_s_base_vect_type !! \brief Vector entry-by-entry divide by a vector x=x/y @@ -1246,9 +1272,32 @@ contains end subroutine s_base_div_v_check ! + !> Function base_div_v2_check + !! \memberof psb_s_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine s_base_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info,flag) + + + end subroutine s_base_div_v2_check + ! !> Function base_div_a2 !! \memberof psb_s_base_vect_type - !! \brief Entry-by-entry divide between normal array x=x/y + !! \brief Entry-by-entry divide between normal array z=x/y !! \param y(:) The array to be divided by !! \param info return code !! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index e80ae5d31..7b4f93846 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -95,10 +95,13 @@ module psb_s_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => s_vect_div_v + procedure, pass(x) :: div_v2 => s_vect_div_v2 procedure, pass(x) :: div_v_check => s_vect_div_v_check + procedure, pass(x) :: div_v2_check => s_vect_div_v2_check procedure, pass(z) :: div_a2 => s_vect_div_a2 procedure, pass(z) :: div_a2_check => s_vect_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => s_vect_inv_v procedure, pass(y) :: inv_v_check => s_vect_inv_v_check procedure, pass(y) :: inv_a2 => s_vect_inv_a2 @@ -768,6 +771,21 @@ contains end subroutine s_vect_div_v + subroutine s_vect_div_v2( x, y, z, info) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info) + + end subroutine s_vect_div_v2 + subroutine s_vect_div_v_check(x, y, info, flag) use psi_serial_mod implicit none @@ -783,6 +801,22 @@ contains end subroutine s_vect_div_v_check + subroutine s_vect_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info,flag) + + end subroutine s_vect_div_v2_check + subroutine s_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index a353af0cb..9fd1d02f9 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -162,15 +162,19 @@ module psb_z_base_vect_mod procedure, pass(z) :: mlt_v_2 => z_base_mlt_v_2 procedure, pass(z) :: mlt_va => z_base_mlt_va procedure, pass(z) :: mlt_av => z_base_mlt_av - generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, mlt_va + generic, public :: mlt => mlt_v, mlt_a, mlt_a_2, mlt_v_2, mlt_av, & + mlt_va ! ! Vector-Vector operations ! procedure, pass(x) :: div_v => z_base_div_v procedure, pass(x) :: div_v_check => z_base_div_v_check + procedure, pass(x) :: div_v2 => z_base_div_v2 + procedure, pass(x) :: div_v2_check => z_base_div_v2_check procedure, pass(z) :: div_a2 => z_base_div_a2 procedure, pass(z) :: div_a2_check => z_base_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => z_base_inv_v procedure, pass(y) :: inv_v_check => z_base_inv_v_check procedure, pass(y) :: inv_a2 => z_base_inv_a2 @@ -1220,6 +1224,28 @@ contains end subroutine z_base_div_v ! + !> Function base_div_v2 + !! \memberof psb_z_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine z_base_div_v2(x, y, z, info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info) + + + end subroutine z_base_div_v2 + ! !> Function base_div_v_check !! \memberof psb_z_base_vect_type !! \brief Vector entry-by-entry divide by a vector x=x/y @@ -1242,9 +1268,32 @@ contains end subroutine z_base_div_v_check ! + !> Function base_div_v2_check + !! \memberof psb_z_base_vect_type + !! \brief Vector entry-by-entry divide by a vector z=x/y + !! \param y The array to be divided by + !! \param info return code + !! + subroutine z_base_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (z%is_dev()) call z%sync() + call z%div(x%v,y%v,info,flag) + + + end subroutine z_base_div_v2_check + ! !> Function base_div_a2 !! \memberof psb_z_base_vect_type - !! \brief Entry-by-entry divide between normal array x=x/y + !! \brief Entry-by-entry divide between normal array z=x/y !! \param y(:) The array to be divided by !! \param info return code !! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index d3e84d03e..40e2a5659 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -95,10 +95,13 @@ module psb_z_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => z_vect_div_v + procedure, pass(x) :: div_v2 => z_vect_div_v2 procedure, pass(x) :: div_v_check => z_vect_div_v_check + procedure, pass(x) :: div_v2_check => z_vect_div_v2_check procedure, pass(z) :: div_a2 => z_vect_div_a2 procedure, pass(z) :: div_a2_check => z_vect_div_a2_check - generic, public :: div => div_v, div_v_check, div_a2, div_a2_check + generic, public :: div => div_v, div_v2, div_v_check, & + div_v2_check, div_a2, div_a2_check procedure, pass(y) :: inv_v => z_vect_inv_v procedure, pass(y) :: inv_v_check => z_vect_inv_v_check procedure, pass(y) :: inv_a2 => z_vect_inv_a2 @@ -764,6 +767,21 @@ contains end subroutine z_vect_div_v + subroutine z_vect_div_v2( x, y, z, info) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info) + + end subroutine z_vect_div_v2 + subroutine z_vect_div_v_check(x, y, info, flag) use psi_serial_mod implicit none @@ -779,6 +797,22 @@ contains end subroutine z_vect_div_v_check + subroutine z_vect_div_v2_check(x, y, z, info, flag) + use psi_serial_mod + implicit none + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + logical, intent(in) :: flag + + info = 0 + if (allocated(x%v).and.allocated(y%v).and.allocated(z%v)) & + & call z%v%div(x%v,y%v,info,flag) + + end subroutine z_vect_div_v2_check + subroutine z_vect_div_a2(x, y, z, info) use psi_serial_mod implicit none diff --git a/base/psblas/psb_cdiv_vect.f90 b/base/psblas/psb_cdiv_vect.f90 index 99e4fef64..32fdba9df 100644 --- a/base/psblas/psb_cdiv_vect.f90 +++ b/base/psblas/psb_cdiv_vect.f90 @@ -104,6 +104,93 @@ subroutine psb_cdiv_vect(x,y,desc_a,info) end subroutine psb_cdiv_vect +subroutine psb_cdiv_vect2(x,y,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cdiv_vect2 + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_c_div_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cdiv_vect2 + subroutine psb_cdiv_vect_check(x,y,desc_a,info,flag) use psb_base_mod, psb_protect_name => psb_cdiv_vect_check implicit none @@ -177,3 +264,90 @@ subroutine psb_cdiv_vect_check(x,y,desc_a,info,flag) return end subroutine psb_cdiv_vect_check + +subroutine psb_cdiv_vect2_check(x,y,z,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_cdiv_vect2_check + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_c_div_vect2_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cdiv_vect2_check diff --git a/base/psblas/psb_ddiv_vect.f90 b/base/psblas/psb_ddiv_vect.f90 index 20536a2c8..90ddd1c43 100644 --- a/base/psblas/psb_ddiv_vect.f90 +++ b/base/psblas/psb_ddiv_vect.f90 @@ -104,6 +104,93 @@ subroutine psb_ddiv_vect(x,y,desc_a,info) end subroutine psb_ddiv_vect +subroutine psb_ddiv_vect2(x,y,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_ddiv_vect2 + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_d_div_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ddiv_vect2 + subroutine psb_ddiv_vect_check(x,y,desc_a,info,flag) use psb_base_mod, psb_protect_name => psb_ddiv_vect_check implicit none @@ -177,3 +264,90 @@ subroutine psb_ddiv_vect_check(x,y,desc_a,info,flag) return end subroutine psb_ddiv_vect_check + +subroutine psb_ddiv_vect2_check(x,y,z,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_ddiv_vect2_check + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_d_div_vect2_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ddiv_vect2_check diff --git a/base/psblas/psb_sdiv_vect.f90 b/base/psblas/psb_sdiv_vect.f90 index 42bc8b832..5e81abce2 100644 --- a/base/psblas/psb_sdiv_vect.f90 +++ b/base/psblas/psb_sdiv_vect.f90 @@ -104,6 +104,93 @@ subroutine psb_sdiv_vect(x,y,desc_a,info) end subroutine psb_sdiv_vect +subroutine psb_sdiv_vect2(x,y,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_sdiv_vect2 + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_s_div_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sdiv_vect2 + subroutine psb_sdiv_vect_check(x,y,desc_a,info,flag) use psb_base_mod, psb_protect_name => psb_sdiv_vect_check implicit none @@ -177,3 +264,90 @@ subroutine psb_sdiv_vect_check(x,y,desc_a,info,flag) return end subroutine psb_sdiv_vect_check + +subroutine psb_sdiv_vect2_check(x,y,z,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_sdiv_vect2_check + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_s_div_vect2_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sdiv_vect2_check diff --git a/base/psblas/psb_zdiv_vect.f90 b/base/psblas/psb_zdiv_vect.f90 index 5ef0552a5..582f12331 100644 --- a/base/psblas/psb_zdiv_vect.f90 +++ b/base/psblas/psb_zdiv_vect.f90 @@ -104,6 +104,93 @@ subroutine psb_zdiv_vect(x,y,desc_a,info) end subroutine psb_zdiv_vect +subroutine psb_zdiv_vect2(x,y,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zdiv_vect2 + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_z_div_vect2' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zdiv_vect2 + subroutine psb_zdiv_vect_check(x,y,desc_a,info,flag) use psb_base_mod, psb_protect_name => psb_zdiv_vect_check implicit none @@ -177,3 +264,90 @@ subroutine psb_zdiv_vect_check(x,y,desc_a,info,flag) return end subroutine psb_zdiv_vect_check + +subroutine psb_zdiv_vect2_check(x,y,z,desc_a,info,flag) + use psb_base_mod, psb_protect_name => psb_zdiv_vect2_check + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in) :: flag + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_z_div_vect2_check' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%div(x,y,info,flag) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zdiv_vect2_check diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 86f57f3fe..04e534ec7 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -64,7 +64,9 @@ psb_i_t psb_c_cspsm(psb_c_t alpha, psb_c_cspmat *th, psb_c_cvector *xh, psb_i_t psb_c_cgemlt(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgemlt2(psb_c_t alpha, psb_c_cvector *xh, psb_c_cvector *yh, psb_c_t beta, psb_c_cvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_cgediv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh, bool flag); +psb_i_t psb_c_cgediv2(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgediv2_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index aa2030646..f97e6904d 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -64,7 +64,9 @@ psb_i_t psb_c_dspsm(psb_d_t alpha, psb_c_dspmat *th, psb_c_dvector *xh, psb_i_t psb_c_dgemlt(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgemlt2(psb_d_t alpha, psb_c_dvector *xh, psb_c_dvector *yh, psb_d_t beta, psb_c_dvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_dgediv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh, bool flag); +psb_i_t psb_c_dgediv2(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_dvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgediv2_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_dvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 25b6e4451..2801e7092 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -155,6 +155,46 @@ contains end function psb_c_cgediv + function psb_c_cgediv2(xh,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gediv(xp,yp,zp,descp,info) + + res = info + + end function psb_c_cgediv2 + function psb_c_cgediv_check(xh,yh,cdh, flag) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -193,6 +233,49 @@ contains end function psb_c_cgediv_check + function psb_c_cgediv2_check(xh,yh,zh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,zp,descp,info,fflag) + + res = info + + end function psb_c_cgediv2_check + function psb_c_cgeinv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index f9e855fe1..02b7818d4 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -64,7 +64,9 @@ psb_i_t psb_c_sspsm(psb_s_t alpha, psb_c_sspmat *th, psb_c_svector *xh, psb_i_t psb_c_sgemlt(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgemlt2(psb_s_t alpha, psb_c_svector *xh, psb_c_svector *yh, psb_s_t beta, psb_c_svector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_sgediv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh, bool flag); +psb_i_t psb_c_sgediv2(psb_c_svector *xh,psb_c_svector *yh,psb_c_svector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgediv2_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_svector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 401826dcb..a5701e4a2 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -64,7 +64,9 @@ psb_i_t psb_c_zspsm(psb_z_t alpha, psb_c_zspmat *th, psb_c_zvector *xh, psb_i_t psb_c_zgemlt(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgemlt2(psb_z_t alpha, psb_c_zvector *xh, psb_c_zvector *yh, psb_z_t beta, psb_c_zvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_zgediv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh, bool flag); +psb_i_t psb_c_zgediv2(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_zvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgediv2_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_zvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 8fd05660b..4e878628c 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -155,6 +155,46 @@ contains end function psb_c_dgediv + function psb_c_dgediv2(xh,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gediv(xp,yp,zp,descp,info) + + res = info + + end function psb_c_dgediv2 + function psb_c_dgediv_check(xh,yh,cdh, flag) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -193,6 +233,49 @@ contains end function psb_c_dgediv_check + function psb_c_dgediv2_check(xh,yh,zh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,zp,descp,info,fflag) + + res = info + + end function psb_c_dgediv2_check + function psb_c_dgeinv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index f4c306efb..88b1e226a 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -155,6 +155,46 @@ contains end function psb_c_sgediv + function psb_c_sgediv2(xh,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gediv(xp,yp,zp,descp,info) + + res = info + + end function psb_c_sgediv2 + function psb_c_sgediv_check(xh,yh,cdh, flag) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -193,6 +233,49 @@ contains end function psb_c_sgediv_check + function psb_c_sgediv2_check(xh,yh,zh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,zp,descp,info,fflag) + + res = info + + end function psb_c_sgediv2_check + function psb_c_sgeinv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index ae814d6d4..8b2845a45 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -155,6 +155,46 @@ contains end function psb_c_zgediv + function psb_c_zgediv2(xh,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gediv(xp,yp,zp,descp,info) + + res = info + + end function psb_c_zgediv2 + function psb_c_zgediv_check(xh,yh,cdh, flag) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -193,6 +233,49 @@ contains end function psb_c_zgediv_check + function psb_c_zgediv2_check(xh,yh,zh,cdh, flag) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + logical(c_bool), value :: flag + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + logical :: fflag + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + fflag = flag + call psb_gediv(xp,yp,zp,descp,info,fflag) + + res = info + + end function psb_c_zgediv2_check + function psb_c_zgeinv(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res From ea9c4691591fbb47c38b05581da62a1b738e7c8d Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 26 Feb 2020 18:48:04 +0100 Subject: [PATCH 25/61] Added psb_geaddconst subroutine to add constant value to vector with C-interfaces --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 ++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 ++ base/modules/serial/psb_c_base_vect_mod.f90 | 56 ++++++++ base/modules/serial/psb_c_vect_mod.F90 | 37 +++++- base/modules/serial/psb_d_base_vect_mod.f90 | 56 ++++++++ base/modules/serial/psb_d_vect_mod.F90 | 37 +++++- base/modules/serial/psb_i_base_vect_mod.f90 | 2 + base/modules/serial/psb_i_vect_mod.F90 | 7 +- base/modules/serial/psb_l_base_vect_mod.f90 | 2 + base/modules/serial/psb_l_vect_mod.F90 | 7 +- base/modules/serial/psb_s_base_vect_mod.f90 | 56 ++++++++ base/modules/serial/psb_s_vect_mod.F90 | 37 +++++- base/modules/serial/psb_z_base_vect_mod.f90 | 56 ++++++++ base/modules/serial/psb_z_vect_mod.F90 | 37 +++++- base/psblas/psb_caxpby.f90 | 137 ++++++++++++++++---- base/psblas/psb_daxpby.f90 | 137 ++++++++++++++++---- base/psblas/psb_saxpby.f90 | 137 ++++++++++++++++---- base/psblas/psb_zaxpby.f90 | 137 ++++++++++++++++---- cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 36 +++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 36 +++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 36 +++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 36 +++++ 28 files changed, 990 insertions(+), 140 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index a1e232c18..f5fabd1ee 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -553,6 +553,17 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ccmp_vect end interface + interface psb_geaddconst + subroutine psb_caddconst_vect(x,b,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type, psb_spk_ + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_caddconst_vect + end interface end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 5fd7fc7b8..18311e0d0 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -564,6 +564,17 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_dcmp_vect end interface + interface psb_geaddconst + subroutine psb_daddconst_vect(x,b,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_daddconst_vect + end interface interface psb_mask subroutine psb_dmask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 01fe18525..4a1ef2126 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -564,6 +564,17 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_scmp_vect end interface + interface psb_geaddconst + subroutine psb_saddconst_vect(x,b,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_saddconst_vect + end interface interface psb_mask subroutine psb_smask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 8fe2f9104..fa7ec1b78 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -553,6 +553,17 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zcmp_vect end interface + interface psb_geaddconst + subroutine psb_zaddconst_vect(x,b,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type, psb_dpk_ + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zaddconst_vect + end interface end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index f9e1bd9b0..4ea3227ab 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -197,6 +197,14 @@ module psb_c_base_vect_mod procedure, pass(z) :: acmp_a2 => c_base_acmp_a2 procedure, pass(z) :: acmp_v2 => c_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + ! + ! Add constant value to all entry of a vector + ! + procedure, pass(z) :: addconst_a2 => c_base_addconst_a2 + procedure, pass(z) :: addconst_v2 => c_base_addconst_v2 + generic, public :: addconst => addconst_a2,addconst_v2 + + end type psb_c_base_vect_type @@ -1770,6 +1778,54 @@ contains end subroutine c_base_sctb_buf + ! + !> Function _base_addconst_a2 + !! \memberof psb_c_base_vect_type + !! \brief Add the constant b to every entry of the array x + !! \param x The input array + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine c_base_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = x(i) + b + end do + info = 0 + + end subroutine c_base_addconst_a2 + ! + !> Function _base_addconst_v2 + !! \memberof psb_c_base_vect_type + !! \briefAdd the constant b to every entry of the vector x + !! \param x The input vector + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine c_base_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: b + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%addconst(x%v,b,info) + end subroutine c_base_addconst_v2 end module psb_c_base_vect_mod diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index a44329594..d8eda7291 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -120,6 +120,9 @@ module psb_c_vect_mod procedure, pass(z) :: acmp_a2 => c_vect_acmp_a2 procedure, pass(z) :: acmp_v2 => c_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(z) :: addconst_a2 => c_vect_addconst_a2 + procedure, pass(z) :: addconst_v2 => c_vect_addconst_v2 + generic, public :: addconst => addconst_a2, addconst_v2 end type psb_c_vect_type @@ -146,12 +149,6 @@ module psb_c_vect_mod & c_vect_absval2, c_vect_nrm2, c_vect_amax, c_vect_asum -! @NOTCPLXS@ -! @NOTINTS@ -! private :: c_vect_acmp_a2, c_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_c_base_vect_type), allocatable, target,& & save, private :: psb_c_base_vect_default @@ -1039,6 +1036,34 @@ contains + subroutine c_vect_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%addconst(x,b,info) + + end subroutine c_vect_addconst_a2 + + subroutine c_vect_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%addconst(x%v,b,info) + + end subroutine c_vect_addconst_v2 + end module psb_c_vect_mod diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index fcff2ff82..b0d2d25e7 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -197,12 +197,20 @@ module psb_d_base_vect_mod procedure, pass(z) :: acmp_a2 => d_base_acmp_a2 procedure, pass(z) :: acmp_v2 => d_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + ! + ! Add constant value to all entry of a vector + ! + procedure, pass(z) :: addconst_a2 => d_base_addconst_a2 + procedure, pass(z) :: addconst_v2 => d_base_addconst_v2 + generic, public :: addconst => addconst_a2,addconst_v2 procedure, pass(x) :: minreal => d_base_min procedure, pass(m) :: mask_v => d_base_mask_v procedure, pass(m) :: mask_a => d_base_mask_a generic, public :: mask => mask_a, mask_v + + end type psb_d_base_vect_type public :: psb_d_base_vect @@ -1881,6 +1889,54 @@ contains end subroutine d_base_mask_v + ! + !> Function _base_addconst_a2 + !! \memberof psb_d_base_vect_type + !! \brief Add the constant b to every entry of the array x + !! \param x The input array + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine d_base_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = x(i) + b + end do + info = 0 + + end subroutine d_base_addconst_a2 + ! + !> Function _base_addconst_v2 + !! \memberof psb_d_base_vect_type + !! \briefAdd the constant b to every entry of the vector x + !! \param x The input vector + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine d_base_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: b + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%addconst(x%v,b,info) + end subroutine d_base_addconst_v2 end module psb_d_base_vect_mod diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index acb2a60d2..b9be3d41e 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -120,6 +120,9 @@ module psb_d_vect_mod procedure, pass(z) :: acmp_a2 => d_vect_acmp_a2 procedure, pass(z) :: acmp_v2 => d_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(z) :: addconst_a2 => d_vect_addconst_a2 + procedure, pass(z) :: addconst_v2 => d_vect_addconst_v2 + generic, public :: addconst => addconst_a2, addconst_v2 procedure, pass(x) :: minreal => d_vect_min procedure, pass(m) :: mask_v => d_vect_mask_v @@ -150,12 +153,6 @@ module psb_d_vect_mod & d_vect_absval2, d_vect_nrm2, d_vect_amax, d_vect_asum -! @NOTCPLXS@ -! @NOTINTS@ -! private :: d_vect_acmp_a2, d_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_d_base_vect_type), allocatable, target,& & save, private :: psb_d_base_vect_default @@ -1085,6 +1082,34 @@ contains end subroutine d_vect_mask_v + subroutine d_vect_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%addconst(x,b,info) + + end subroutine d_vect_addconst_a2 + + subroutine d_vect_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%addconst(x%v,b,info) + + end subroutine d_vect_addconst_v2 + end module psb_d_vect_mod diff --git a/base/modules/serial/psb_i_base_vect_mod.f90 b/base/modules/serial/psb_i_base_vect_mod.f90 index 642ff4ff9..851d7896d 100644 --- a/base/modules/serial/psb_i_base_vect_mod.f90 +++ b/base/modules/serial/psb_i_base_vect_mod.f90 @@ -144,6 +144,8 @@ module psb_i_base_vect_mod + + end type psb_i_base_vect_type public :: psb_i_base_vect diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 13a04e00b..35a8d826e 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -100,12 +100,6 @@ module psb_i_vect_mod & i_vect_set_dev, i_vect_set_sync -! @NOTCPLXS@ -! @NOTINTS@ -! private :: i_vect_acmp_a2, i_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_i_base_vect_type), allocatable, target,& & save, private :: psb_i_base_vect_default @@ -553,6 +547,7 @@ contains + end module psb_i_vect_mod diff --git a/base/modules/serial/psb_l_base_vect_mod.f90 b/base/modules/serial/psb_l_base_vect_mod.f90 index fe25d30dd..58eda6308 100644 --- a/base/modules/serial/psb_l_base_vect_mod.f90 +++ b/base/modules/serial/psb_l_base_vect_mod.f90 @@ -145,6 +145,8 @@ module psb_l_base_vect_mod + + end type psb_l_base_vect_type public :: psb_l_base_vect diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 926982faf..a781e4855 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -101,12 +101,6 @@ module psb_l_vect_mod & l_vect_set_dev, l_vect_set_sync -! @NOTCPLXS@ -! @NOTINTS@ -! private :: l_vect_acmp_a2, l_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_l_base_vect_type), allocatable, target,& & save, private :: psb_l_base_vect_default @@ -554,6 +548,7 @@ contains + end module psb_l_vect_mod diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index fd153d3e7..35e92fefe 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -197,12 +197,20 @@ module psb_s_base_vect_mod procedure, pass(z) :: acmp_a2 => s_base_acmp_a2 procedure, pass(z) :: acmp_v2 => s_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + ! + ! Add constant value to all entry of a vector + ! + procedure, pass(z) :: addconst_a2 => s_base_addconst_a2 + procedure, pass(z) :: addconst_v2 => s_base_addconst_v2 + generic, public :: addconst => addconst_a2,addconst_v2 procedure, pass(x) :: minreal => s_base_min procedure, pass(m) :: mask_v => s_base_mask_v procedure, pass(m) :: mask_a => s_base_mask_a generic, public :: mask => mask_a, mask_v + + end type psb_s_base_vect_type public :: psb_s_base_vect @@ -1881,6 +1889,54 @@ contains end subroutine s_base_mask_v + ! + !> Function _base_addconst_a2 + !! \memberof psb_s_base_vect_type + !! \brief Add the constant b to every entry of the array x + !! \param x The input array + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine s_base_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = x(i) + b + end do + info = 0 + + end subroutine s_base_addconst_a2 + ! + !> Function _base_addconst_v2 + !! \memberof psb_s_base_vect_type + !! \briefAdd the constant b to every entry of the vector x + !! \param x The input vector + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine s_base_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: b + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%addconst(x%v,b,info) + end subroutine s_base_addconst_v2 end module psb_s_base_vect_mod diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 7b4f93846..0fda1f2a4 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -120,6 +120,9 @@ module psb_s_vect_mod procedure, pass(z) :: acmp_a2 => s_vect_acmp_a2 procedure, pass(z) :: acmp_v2 => s_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(z) :: addconst_a2 => s_vect_addconst_a2 + procedure, pass(z) :: addconst_v2 => s_vect_addconst_v2 + generic, public :: addconst => addconst_a2, addconst_v2 procedure, pass(x) :: minreal => s_vect_min procedure, pass(m) :: mask_v => s_vect_mask_v @@ -150,12 +153,6 @@ module psb_s_vect_mod & s_vect_absval2, s_vect_nrm2, s_vect_amax, s_vect_asum -! @NOTCPLXS@ -! @NOTINTS@ -! private :: s_vect_acmp_a2, s_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_s_base_vect_type), allocatable, target,& & save, private :: psb_s_base_vect_default @@ -1085,6 +1082,34 @@ contains end subroutine s_vect_mask_v + subroutine s_vect_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%addconst(x,b,info) + + end subroutine s_vect_addconst_a2 + + subroutine s_vect_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: b + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%addconst(x%v,b,info) + + end subroutine s_vect_addconst_v2 + end module psb_s_vect_mod diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 9fd1d02f9..0dfa42ca7 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -197,6 +197,14 @@ module psb_z_base_vect_mod procedure, pass(z) :: acmp_a2 => z_base_acmp_a2 procedure, pass(z) :: acmp_v2 => z_base_acmp_v2 generic, public :: acmp => acmp_a2,acmp_v2 + ! + ! Add constant value to all entry of a vector + ! + procedure, pass(z) :: addconst_a2 => z_base_addconst_a2 + procedure, pass(z) :: addconst_v2 => z_base_addconst_v2 + generic, public :: addconst => addconst_a2,addconst_v2 + + end type psb_z_base_vect_type @@ -1770,6 +1778,54 @@ contains end subroutine z_base_sctb_buf + ! + !> Function _base_addconst_a2 + !! \memberof psb_z_base_vect_type + !! \brief Add the constant b to every entry of the array x + !! \param x The input array + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine z_base_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = x(i) + b + end do + info = 0 + + end subroutine z_base_addconst_a2 + ! + !> Function _base_addconst_v2 + !! \memberof psb_z_base_vect_type + !! \briefAdd the constant b to every entry of the vector x + !! \param x The input vector + !! \param z The vector containing the x(i) + b + !! \param b The added term + !! \param info return code + ! + subroutine z_base_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: b + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%addconst(x%v,b,info) + end subroutine z_base_addconst_v2 end module psb_z_base_vect_mod diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 40e2a5659..69684c66f 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -120,6 +120,9 @@ module psb_z_vect_mod procedure, pass(z) :: acmp_a2 => z_vect_acmp_a2 procedure, pass(z) :: acmp_v2 => z_vect_acmp_v2 generic, public :: acmp => acmp_a2, acmp_v2 + procedure, pass(z) :: addconst_a2 => z_vect_addconst_a2 + procedure, pass(z) :: addconst_v2 => z_vect_addconst_v2 + generic, public :: addconst => addconst_a2, addconst_v2 end type psb_z_vect_type @@ -146,12 +149,6 @@ module psb_z_vect_mod & z_vect_absval2, z_vect_nrm2, z_vect_amax, z_vect_asum -! @NOTCPLXS@ -! @NOTINTS@ -! private :: z_vect_acmp_a2, z_vect_acmp_v2 -! @NOTINTE@ -! @NOTCPLXE@ - class(psb_z_base_vect_type), allocatable, target,& & save, private :: psb_z_base_vect_default @@ -1039,6 +1036,34 @@ contains + subroutine z_vect_addconst_a2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%addconst(x,b,info) + + end subroutine z_vect_addconst_a2 + + subroutine z_vect_addconst_v2(x,b,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: b + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%addconst(x%v,b,info) + + end subroutine z_vect_addconst_v2 + end module psb_z_vect_mod diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index daa478293..47217d611 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_caxpby.f90 ! @@ -46,12 +46,12 @@ ! info - integer Return code ! ! Note: from a functional point of view, X is input, but here -! it's declared INOUT because of the sync() methods. +! it's declared INOUT because of the sync() methods. ! subroutine psb_caxpby_vect(alpha, x, beta, y,& & desc_a, info) use psb_base_mod, psb_protect_name => psb_caxpby_vect - implicit none + implicit none type(psb_c_vect_type), intent (inout) :: x type(psb_c_vect_type), intent (inout) :: y complex(psb_spk_), intent (in) :: alpha, beta @@ -65,7 +65,7 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,& character(len=20) :: name, ch_err name='psb_cgeaxpby' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -77,12 +77,12 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,& call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -121,7 +121,7 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,& end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -146,13 +146,13 @@ end subroutine psb_caxpby_vect ! y(:,:) - complex,inout The input vector Y ! desc_a - type(psb_desc_type) The communication descriptor. ! info - integer Return code -! jx - integer(optional) The column offset for X -! jy - integer(optional) The column offset for Y +! jx - integer(optional) The column offset for X +! jy - integer(optional) The column offset for Y ! subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_caxpby - implicit none + implicit none integer(psb_ipk_), intent(in), optional :: n, jx, jy integer(psb_ipk_), intent(out) :: info @@ -198,7 +198,7 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) if (present(n)) then if(((ijx+n) <= size(x,2)).and.& - & ((ijy+n) <= size(y,2))) then + & ((ijy+n) <= size(y,2))) then in = n else in = min(size(x,2),size(y,2)) @@ -242,7 +242,7 @@ subroutine psb_caxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -253,12 +253,12 @@ end subroutine psb_caxpby -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -270,7 +270,7 @@ end subroutine psb_caxpby !!$ 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 @@ -282,8 +282,8 @@ end subroutine psb_caxpby !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_caxpbyv ! Adds one distributed vector to another, @@ -301,7 +301,7 @@ end subroutine psb_caxpby ! subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_caxpbyv - implicit none + implicit none integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a @@ -366,9 +366,94 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_caxpbyv +! +! Subroutine: psb_caddconst_vect +! Adds one distributed vector to another, +! +! Z(i) := X(i) + b +! +! Arguments: +! x - type(psb_c_vect_type) The input vector containing the entries of X +! b - complex,input The scalar used to add each component of X +! z - type(psb_c_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_caddconst_vect(x,b,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_caddconst_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%addconst(x,b,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_caddconst_vect diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 73f62881b..432da8248 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_daxpby.f90 ! @@ -46,12 +46,12 @@ ! info - integer Return code ! ! Note: from a functional point of view, X is input, but here -! it's declared INOUT because of the sync() methods. +! it's declared INOUT because of the sync() methods. ! subroutine psb_daxpby_vect(alpha, x, beta, y,& & desc_a, info) use psb_base_mod, psb_protect_name => psb_daxpby_vect - implicit none + implicit none type(psb_d_vect_type), intent (inout) :: x type(psb_d_vect_type), intent (inout) :: y real(psb_dpk_), intent (in) :: alpha, beta @@ -65,7 +65,7 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,& character(len=20) :: name, ch_err name='psb_dgeaxpby' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -77,12 +77,12 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,& call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -121,7 +121,7 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,& end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -146,13 +146,13 @@ end subroutine psb_daxpby_vect ! y(:,:) - real,inout The input vector Y ! desc_a - type(psb_desc_type) The communication descriptor. ! info - integer Return code -! jx - integer(optional) The column offset for X -! jy - integer(optional) The column offset for Y +! jx - integer(optional) The column offset for X +! jy - integer(optional) The column offset for Y ! subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_daxpby - implicit none + implicit none integer(psb_ipk_), intent(in), optional :: n, jx, jy integer(psb_ipk_), intent(out) :: info @@ -198,7 +198,7 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) if (present(n)) then if(((ijx+n) <= size(x,2)).and.& - & ((ijy+n) <= size(y,2))) then + & ((ijy+n) <= size(y,2))) then in = n else in = min(size(x,2),size(y,2)) @@ -242,7 +242,7 @@ subroutine psb_daxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -253,12 +253,12 @@ end subroutine psb_daxpby -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -270,7 +270,7 @@ end subroutine psb_daxpby !!$ 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 @@ -282,8 +282,8 @@ end subroutine psb_daxpby !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_daxpbyv ! Adds one distributed vector to another, @@ -301,7 +301,7 @@ end subroutine psb_daxpby ! subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_daxpbyv - implicit none + implicit none integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a @@ -366,9 +366,94 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_daxpbyv +! +! Subroutine: psb_daddconst_vect +! Adds one distributed vector to another, +! +! Z(i) := X(i) + b +! +! Arguments: +! x - type(psb_d_vect_type) The input vector containing the entries of X +! b - real,input The scalar used to add each component of X +! z - type(psb_d_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_daddconst_vect(x,b,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_daddconst_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%addconst(x,b,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_daddconst_vect diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index d3f573dca..5d2e47a66 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_saxpby.f90 ! @@ -46,12 +46,12 @@ ! info - integer Return code ! ! Note: from a functional point of view, X is input, but here -! it's declared INOUT because of the sync() methods. +! it's declared INOUT because of the sync() methods. ! subroutine psb_saxpby_vect(alpha, x, beta, y,& & desc_a, info) use psb_base_mod, psb_protect_name => psb_saxpby_vect - implicit none + implicit none type(psb_s_vect_type), intent (inout) :: x type(psb_s_vect_type), intent (inout) :: y real(psb_spk_), intent (in) :: alpha, beta @@ -65,7 +65,7 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,& character(len=20) :: name, ch_err name='psb_sgeaxpby' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -77,12 +77,12 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,& call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -121,7 +121,7 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,& end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -146,13 +146,13 @@ end subroutine psb_saxpby_vect ! y(:,:) - real,inout The input vector Y ! desc_a - type(psb_desc_type) The communication descriptor. ! info - integer Return code -! jx - integer(optional) The column offset for X -! jy - integer(optional) The column offset for Y +! jx - integer(optional) The column offset for X +! jy - integer(optional) The column offset for Y ! subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_saxpby - implicit none + implicit none integer(psb_ipk_), intent(in), optional :: n, jx, jy integer(psb_ipk_), intent(out) :: info @@ -198,7 +198,7 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) if (present(n)) then if(((ijx+n) <= size(x,2)).and.& - & ((ijy+n) <= size(y,2))) then + & ((ijy+n) <= size(y,2))) then in = n else in = min(size(x,2),size(y,2)) @@ -242,7 +242,7 @@ subroutine psb_saxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -253,12 +253,12 @@ end subroutine psb_saxpby -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -270,7 +270,7 @@ end subroutine psb_saxpby !!$ 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 @@ -282,8 +282,8 @@ end subroutine psb_saxpby !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_saxpbyv ! Adds one distributed vector to another, @@ -301,7 +301,7 @@ end subroutine psb_saxpby ! subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_saxpbyv - implicit none + implicit none integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a @@ -366,9 +366,94 @@ subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_saxpbyv +! +! Subroutine: psb_saddconst_vect +! Adds one distributed vector to another, +! +! Z(i) := X(i) + b +! +! Arguments: +! x - type(psb_s_vect_type) The input vector containing the entries of X +! b - real,input The scalar used to add each component of X +! z - type(psb_s_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_saddconst_vect(x,b,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_saddconst_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%addconst(x,b,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_saddconst_vect diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index b48bb5ff2..9eb60323d 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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_zaxpby.f90 ! @@ -46,12 +46,12 @@ ! info - integer Return code ! ! Note: from a functional point of view, X is input, but here -! it's declared INOUT because of the sync() methods. +! it's declared INOUT because of the sync() methods. ! subroutine psb_zaxpby_vect(alpha, x, beta, y,& & desc_a, info) use psb_base_mod, psb_protect_name => psb_zaxpby_vect - implicit none + implicit none type(psb_z_vect_type), intent (inout) :: x type(psb_z_vect_type), intent (inout) :: y complex(psb_dpk_), intent (in) :: alpha, beta @@ -65,7 +65,7 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,& character(len=20) :: name, ch_err name='psb_zgeaxpby' - if (psb_errstatus_fatal()) return + if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -77,12 +77,12 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,& call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 @@ -121,7 +121,7 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,& end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -146,13 +146,13 @@ end subroutine psb_zaxpby_vect ! y(:,:) - complex,inout The input vector Y ! desc_a - type(psb_desc_type) The communication descriptor. ! info - integer Return code -! jx - integer(optional) The column offset for X -! jy - integer(optional) The column offset for Y +! jx - integer(optional) The column offset for X +! jy - integer(optional) The column offset for Y ! subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) use psb_base_mod, psb_protect_name => psb_zaxpby - implicit none + implicit none integer(psb_ipk_), intent(in), optional :: n, jx, jy integer(psb_ipk_), intent(out) :: info @@ -198,7 +198,7 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) if (present(n)) then if(((ijx+n) <= size(x,2)).and.& - & ((ijy+n) <= size(y,2))) then + & ((ijy+n) <= size(y,2))) then in = n else in = min(size(x,2),size(y,2)) @@ -242,7 +242,7 @@ subroutine psb_zaxpby(alpha, x, beta,y,desc_a,info, n, jx, jy) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) @@ -253,12 +253,12 @@ end subroutine psb_zaxpby -!!$ +!!$ !!$ Parallel Sparse BLAS version 3.5 !!$ (C) Copyright 2006-2018 !!$ Salvatore Filippone University of Rome Tor Vergata -!!$ Alfredo Buttari -!!$ +!!$ Alfredo Buttari +!!$ !!$ Redistribution and use in source and binary forms, with or without !!$ modification, are permitted provided that the following conditions !!$ are met: @@ -270,7 +270,7 @@ end subroutine psb_zaxpby !!$ 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 @@ -282,8 +282,8 @@ end subroutine psb_zaxpby !!$ 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. -!!$ -!!$ +!!$ +!!$ ! ! Subroutine: psb_zaxpbyv ! Adds one distributed vector to another, @@ -301,7 +301,7 @@ end subroutine psb_zaxpby ! subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info) use psb_base_mod, psb_protect_name => psb_zaxpbyv - implicit none + implicit none integer(psb_ipk_), intent(out) :: info type(psb_desc_type), intent(in) :: desc_a @@ -366,9 +366,94 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info) end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(ictxt,err_act) return end subroutine psb_zaxpbyv +! +! Subroutine: psb_zaddconst_vect +! Adds one distributed vector to another, +! +! Z(i) := X(i) + b +! +! Arguments: +! x - type(psb_z_vect_type) The input vector containing the entries of X +! b - complex,input The scalar used to add each component of X +! z - type(psb_z_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_zaddconst_vect(x,b,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zaddconst_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: b + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_cmp_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%addconst(x,b,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zaddconst_vect diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 04e534ec7..f55b2479e 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -71,6 +71,7 @@ psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index f97e6904d..70d185aae 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -71,6 +71,7 @@ psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 2801e7092..dc9cdab58 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -420,6 +420,42 @@ contains end function psb_c_cgecmp + function psb_c_cgeaddconst(xh,bh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float_complex) :: bh + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaddconst(xp,bh,zp,descp,info) + + res = info + + end function psb_c_cgeaddconst + function psb_c_cgenrm2(xh,cdh) bind(c) result(res) implicit none diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 02b7818d4..d1be13137 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -71,6 +71,7 @@ psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index a5701e4a2..0ab91e2c3 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -71,6 +71,7 @@ psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 4e878628c..4d0b6fed6 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -420,6 +420,42 @@ contains end function psb_c_dgecmp + function psb_c_dgeaddconst(xh,bh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double) :: bh + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaddconst(xp,bh,zp,descp,info) + + res = info + + end function psb_c_dgeaddconst + function psb_c_dmask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 88b1e226a..4867e08f9 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -420,6 +420,42 @@ contains end function psb_c_sgecmp + function psb_c_sgeaddconst(xh,bh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float) :: bh + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaddconst(xp,bh,zp,descp,info) + + res = info + + end function psb_c_sgeaddconst + function psb_c_smask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 8b2845a45..b2a8375ab 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -420,6 +420,42 @@ contains end function psb_c_zgecmp + function psb_c_zgeaddconst(xh,bh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double_complex) :: bh + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaddconst(xp,bh,zp,descp,info) + + res = info + + end function psb_c_zgeaddconst + function psb_c_zgenrm2(xh,cdh) bind(c) result(res) implicit none From fd89f2f1bfbf35e33e70693394eae38ca39e93dd Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 26 Feb 2020 19:34:14 +0100 Subject: [PATCH 26/61] Added psb_gescal subroutine to entrywise scale distributed vector with C interface --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 +++ base/modules/serial/psb_c_base_vect_mod.f90 | 55 ++++++++++++- base/modules/serial/psb_c_vect_mod.F90 | 33 +++++++- base/modules/serial/psb_d_base_vect_mod.f90 | 55 ++++++++++++- base/modules/serial/psb_d_vect_mod.F90 | 33 +++++++- base/modules/serial/psb_s_base_vect_mod.f90 | 55 ++++++++++++- base/modules/serial/psb_s_vect_mod.F90 | 33 +++++++- base/modules/serial/psb_z_base_vect_mod.f90 | 55 ++++++++++++- base/modules/serial/psb_z_vect_mod.F90 | 33 +++++++- base/psblas/psb_caxpby.f90 | 87 ++++++++++++++++++++- base/psblas/psb_daxpby.f90 | 87 ++++++++++++++++++++- base/psblas/psb_saxpby.f90 | 87 ++++++++++++++++++++- base/psblas/psb_zaxpby.f90 | 87 ++++++++++++++++++++- cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 36 +++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 36 +++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 36 +++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 36 +++++++++ 24 files changed, 880 insertions(+), 12 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index f5fabd1ee..d20e1a488 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -564,6 +564,17 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_caddconst_vect end interface + interface psb_gescal + subroutine psb_cscal_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_c_vect_type, psb_spk_ + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_cscal_vect + end interface end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 18311e0d0..53cbda437 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -575,6 +575,17 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_daddconst_vect end interface + interface psb_gescal + subroutine psb_dscal_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_dscal_vect + end interface interface psb_mask subroutine psb_dmask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 4a1ef2126..80f1d19a1 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -575,6 +575,17 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_saddconst_vect end interface + interface psb_gescal + subroutine psb_sscal_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_sscal_vect + end interface interface psb_mask subroutine psb_smask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index fa7ec1b78..94d31e003 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -564,6 +564,17 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zaddconst_vect end interface + interface psb_gescal + subroutine psb_zscal_vect(x,c,z,desc_a,info) + import :: psb_desc_type, psb_ipk_, & + & psb_z_vect_type, psb_dpk_ + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zscal_vect + end interface end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 4ea3227ab..32f4e22ef 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -183,7 +183,10 @@ module psb_c_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal => c_base_scal + procedure, pass(x) :: scal_v => c_base_scal + procedure, pass(z) :: scal_v2 => c_base_scal_v2 + procedure, pass(z) :: scal_a2 => c_base_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => c_base_absval1 procedure, pass(x) :: absval2 => c_base_absval2 generic, public :: absval => absval1, absval2 @@ -1541,6 +1544,56 @@ contains end subroutine c_base_scal + ! + !> Function base_scal_a2 + !! \memberof psb_c_base_vect_type + !! \brief Out of place scaling of the array x + !! \param x The array to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine c_base_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: i,n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = c*x(i) + end do + info = 0 + + end subroutine c_base_scal_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_c_base_vect_type + !! \brief Out of place scaling of the vector x + !! \param x The vector to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine c_base_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_c_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: c + class(psb_c_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%scal(x%v,c,info) + end subroutine c_base_scal_v2 + ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index d8eda7291..afa2f0a93 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -107,7 +107,10 @@ module psb_c_vect_mod procedure, pass(y) :: inv_a2 => c_vect_inv_a2 procedure, pass(y) :: inv_a2_check => c_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal => c_vect_scal + procedure, pass(x) :: scal_v => c_vect_scal + procedure, pass(z) :: scal_v2 => c_vect_scal_v2 + procedure, pass(z) :: scal_a2 => c_vect_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 generic, public :: absval => absval1, absval2 @@ -937,6 +940,34 @@ contains end subroutine c_vect_scal + subroutine c_vect_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + complex(psb_spk_), intent(inout) :: x(:) + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%scal(x,c,info) + + end subroutine c_vect_scal_a2 + + subroutine c_vect_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%scal(x%v,c,info) + + end subroutine c_vect_scal_v2 + subroutine c_vect_absval1(x) class(psb_c_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index b0d2d25e7..733847aca 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -183,7 +183,10 @@ module psb_d_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal => d_base_scal + procedure, pass(x) :: scal_v => d_base_scal + procedure, pass(z) :: scal_v2 => d_base_scal_v2 + procedure, pass(z) :: scal_a2 => d_base_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => d_base_absval1 procedure, pass(x) :: absval2 => d_base_absval2 generic, public :: absval => absval1, absval2 @@ -1545,6 +1548,56 @@ contains end subroutine d_base_scal + ! + !> Function base_scal_a2 + !! \memberof psb_d_base_vect_type + !! \brief Out of place scaling of the array x + !! \param x The array to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine d_base_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: i,n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = c*x(i) + end do + info = 0 + + end subroutine d_base_scal_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_d_base_vect_type + !! \brief Out of place scaling of the vector x + !! \param x The vector to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine d_base_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: c + class(psb_d_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%scal(x%v,c,info) + end subroutine d_base_scal_v2 + ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index b9be3d41e..3b3011b90 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -107,7 +107,10 @@ module psb_d_vect_mod procedure, pass(y) :: inv_a2 => d_vect_inv_a2 procedure, pass(y) :: inv_a2_check => d_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal => d_vect_scal + procedure, pass(x) :: scal_v => d_vect_scal + procedure, pass(z) :: scal_v2 => d_vect_scal_v2 + procedure, pass(z) :: scal_a2 => d_vect_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 generic, public :: absval => absval1, absval2 @@ -941,6 +944,34 @@ contains end subroutine d_vect_scal + subroutine d_vect_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + real(psb_dpk_), intent(inout) :: x(:) + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%scal(x,c,info) + + end subroutine d_vect_scal_a2 + + subroutine d_vect_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%scal(x%v,c,info) + + end subroutine d_vect_scal_v2 + subroutine d_vect_absval1(x) class(psb_d_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 35e92fefe..12d9f381f 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -183,7 +183,10 @@ module psb_s_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal => s_base_scal + procedure, pass(x) :: scal_v => s_base_scal + procedure, pass(z) :: scal_v2 => s_base_scal_v2 + procedure, pass(z) :: scal_a2 => s_base_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => s_base_absval1 procedure, pass(x) :: absval2 => s_base_absval2 generic, public :: absval => absval1, absval2 @@ -1545,6 +1548,56 @@ contains end subroutine s_base_scal + ! + !> Function base_scal_a2 + !! \memberof psb_s_base_vect_type + !! \brief Out of place scaling of the array x + !! \param x The array to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine s_base_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: i,n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = c*x(i) + end do + info = 0 + + end subroutine s_base_scal_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_s_base_vect_type + !! \brief Out of place scaling of the vector x + !! \param x The vector to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine s_base_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: c + class(psb_s_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%scal(x%v,c,info) + end subroutine s_base_scal_v2 + ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 0fda1f2a4..62ef21c73 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -107,7 +107,10 @@ module psb_s_vect_mod procedure, pass(y) :: inv_a2 => s_vect_inv_a2 procedure, pass(y) :: inv_a2_check => s_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal => s_vect_scal + procedure, pass(x) :: scal_v => s_vect_scal + procedure, pass(z) :: scal_v2 => s_vect_scal_v2 + procedure, pass(z) :: scal_a2 => s_vect_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 generic, public :: absval => absval1, absval2 @@ -941,6 +944,34 @@ contains end subroutine s_vect_scal + subroutine s_vect_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + real(psb_spk_), intent(inout) :: x(:) + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%scal(x,c,info) + + end subroutine s_vect_scal_a2 + + subroutine s_vect_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_spk_), intent(in) :: c + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%scal(x%v,c,info) + + end subroutine s_vect_scal_v2 + subroutine s_vect_absval1(x) class(psb_s_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 0dfa42ca7..502b77951 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -183,7 +183,10 @@ module psb_z_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal => z_base_scal + procedure, pass(x) :: scal_v => z_base_scal + procedure, pass(z) :: scal_v2 => z_base_scal_v2 + procedure, pass(z) :: scal_a2 => z_base_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => z_base_absval1 procedure, pass(x) :: absval2 => z_base_absval2 generic, public :: absval => absval1, absval2 @@ -1541,6 +1544,56 @@ contains end subroutine z_base_scal + ! + !> Function base_scal_a2 + !! \memberof psb_z_base_vect_type + !! \brief Out of place scaling of the array x + !! \param x The array to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine z_base_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: i,n + + if (z%is_dev()) call z%sync() + + n = size(x) + do i = 1, n, 1 + z%v(i) = c*x(i) + end do + info = 0 + + end subroutine z_base_scal_a2 + ! + !> Function base_cmp_v2 + !! \memberof psb_z_base_vect_type + !! \brief Out of place scaling of the vector x + !! \param x The vector to be scaled + !! \param z The scaled vector z = c*x + !! \param c The scaling term + !! \param info return code + ! + subroutine z_base_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + class(psb_z_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: c + class(psb_z_base_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + call z%scal(x%v,c,info) + end subroutine z_base_scal_v2 + ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 69684c66f..7b01aba01 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -107,7 +107,10 @@ module psb_z_vect_mod procedure, pass(y) :: inv_a2 => z_vect_inv_a2 procedure, pass(y) :: inv_a2_check => z_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal => z_vect_scal + procedure, pass(x) :: scal_v => z_vect_scal + procedure, pass(z) :: scal_v2 => z_vect_scal_v2 + procedure, pass(z) :: scal_a2 => z_vect_scal_a2 + generic, public :: scal => scal_v, scal_v2, scal_a2 procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 generic, public :: absval => absval1, absval2 @@ -937,6 +940,34 @@ contains end subroutine z_vect_scal + subroutine z_vect_scal_a2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + complex(psb_dpk_), intent(inout) :: x(:) + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(z%v)) & + & call z%scal(x,c,info) + + end subroutine z_vect_scal_a2 + + subroutine z_vect_scal_v2(x,c,z,info) + use psi_serial_mod + implicit none + real(psb_dpk_), intent(in) :: c + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (allocated(x%v).and.allocated(z%v)) & + & call z%v%scal(x%v,c,info) + + end subroutine z_vect_scal_v2 + subroutine z_vect_absval1(x) class(psb_z_vect_type), intent(inout) :: x diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 47217d611..280022b15 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -400,7 +400,7 @@ subroutine psb_caddconst_vect(x,b,z,desc_a,info) integer(psb_lpk_) :: ix, ijx, iy, ijy, m character(len=20) :: name, ch_err - name='psb_c_cmp_vect' + name='psb_c_addconst_vect' if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -457,3 +457,88 @@ subroutine psb_caddconst_vect(x,b,z,desc_a,info) return end subroutine psb_caddconst_vect +! +! Subroutine: psb_cscal_vect +! Scale one distributed vector with scalar c, +! +! Z(i) := c*X(i) +! +! Arguments: +! x - type(psb_c_vect_type) The input vector containing the entries of X +! c - complex,input The scalar used to add each component of X +! z - type(psb_c_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_cscal_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_cscal_vect + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_c_scal_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%scal(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_cscal_vect diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 432da8248..4bdb24a82 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -400,7 +400,7 @@ subroutine psb_daddconst_vect(x,b,z,desc_a,info) integer(psb_lpk_) :: ix, ijx, iy, ijy, m character(len=20) :: name, ch_err - name='psb_d_cmp_vect' + name='psb_d_addconst_vect' if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -457,3 +457,88 @@ subroutine psb_daddconst_vect(x,b,z,desc_a,info) return end subroutine psb_daddconst_vect +! +! Subroutine: psb_dscal_vect +! Scale one distributed vector with scalar c, +! +! Z(i) := c*X(i) +! +! Arguments: +! x - type(psb_d_vect_type) The input vector containing the entries of X +! c - real,input The scalar used to add each component of X +! z - type(psb_d_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_dscal_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_dscal_vect + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_d_scal_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%scal(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dscal_vect diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 5d2e47a66..2d3be43e4 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -400,7 +400,7 @@ subroutine psb_saddconst_vect(x,b,z,desc_a,info) integer(psb_lpk_) :: ix, ijx, iy, ijy, m character(len=20) :: name, ch_err - name='psb_s_cmp_vect' + name='psb_s_addconst_vect' if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -457,3 +457,88 @@ subroutine psb_saddconst_vect(x,b,z,desc_a,info) return end subroutine psb_saddconst_vect +! +! Subroutine: psb_sscal_vect +! Scale one distributed vector with scalar c, +! +! Z(i) := c*X(i) +! +! Arguments: +! x - type(psb_s_vect_type) The input vector containing the entries of X +! c - real,input The scalar used to add each component of X +! z - type(psb_s_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_sscal_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_sscal_vect + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_s_scal_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%scal(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_sscal_vect diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index 9eb60323d..b2cd7a0eb 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -400,7 +400,7 @@ subroutine psb_zaddconst_vect(x,b,z,desc_a,info) integer(psb_lpk_) :: ix, ijx, iy, ijy, m character(len=20) :: name, ch_err - name='psb_z_cmp_vect' + name='psb_z_addconst_vect' if (psb_errstatus_fatal()) return info=psb_success_ call psb_erractionsave(err_act) @@ -457,3 +457,88 @@ subroutine psb_zaddconst_vect(x,b,z,desc_a,info) return end subroutine psb_zaddconst_vect +! +! Subroutine: psb_zscal_vect +! Scale one distributed vector with scalar c, +! +! Z(i) := c*X(i) +! +! Arguments: +! x - type(psb_z_vect_type) The input vector containing the entries of X +! c - complex,input The scalar used to add each component of X +! z - type(psb_z_vect_type) The input/output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +subroutine psb_zscal_vect(x,c,z,desc_a,info) + use psb_base_mod, psb_protect_name => psb_zscal_vect + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: z + real(psb_dpk_), intent(in) :: c + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy + integer(psb_lpk_) :: ix, ijx, iy, ijy, m + character(len=20) :: name, ch_err + + name='psb_z_scal_vect' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if(desc_a%get_local_rows() > 0) then + call z%scal(x,c,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zscal_vect diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index f55b2479e..9ae6ef1f0 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -72,6 +72,7 @@ psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgescal(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 70d185aae..4e1b645e7 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -72,6 +72,7 @@ psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgescal(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index dc9cdab58..608db58b6 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -456,6 +456,42 @@ contains end function psb_c_cgeaddconst + function psb_c_cgescal(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float_complex) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gescal(xp,ch,zp,descp,info) + + res = info + + end function psb_c_cgescal + function psb_c_cgenrm2(xh,cdh) bind(c) result(res) implicit none diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index d1be13137..6aa4db188 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -72,6 +72,7 @@ psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgescal(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 0ab91e2c3..c3c9e342b 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -72,6 +72,7 @@ psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgescal(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 4d0b6fed6..6b0b79945 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -456,6 +456,42 @@ contains end function psb_c_dgeaddconst + function psb_c_dgescal(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gescal(xp,ch,zp,descp,info) + + res = info + + end function psb_c_dgescal + function psb_c_dmask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 4867e08f9..057992f6c 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -456,6 +456,42 @@ contains end function psb_c_sgeaddconst + function psb_c_sgescal(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_float) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gescal(xp,ch,zp,descp,info) + + res = info + + end function psb_c_sgescal + function psb_c_smask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index b2a8375ab..b25068536 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -456,6 +456,42 @@ contains end function psb_c_zgeaddconst + function psb_c_zgescal(xh,ch,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,zh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,zp + integer(psb_c_ipk_) :: info + real(c_double_complex) :: ch + + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_gescal(xp,ch,zp,descp,info) + + res = info + + end function psb_c_zgescal + function psb_c_zgenrm2(xh,cdh) bind(c) result(res) implicit none From 8bf0ff673bf33e584ef7de3b6331c1b69e040c38 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 26 Feb 2020 23:37:15 +0100 Subject: [PATCH 27/61] Added psb_minquotient function with C interface --- base/modules/psblas/psb_d_psblas_mod.F90 | 12 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 12 +++ base/modules/serial/psb_d_base_vect_mod.f90 | 67 +++++++++++++++- base/modules/serial/psb_d_vect_mod.F90 | 33 ++++++++ base/modules/serial/psb_s_base_vect_mod.f90 | 67 +++++++++++++++- base/modules/serial/psb_s_vect_mod.F90 | 33 ++++++++ base/psblas/psb_cdiv_vect.f90 | 1 + base/psblas/psb_ddiv_vect.f90 | 88 +++++++++++++++++++++ base/psblas/psb_sdiv_vect.f90 | 88 +++++++++++++++++++++ base/psblas/psb_zdiv_vect.f90 | 1 + cbind/base/psb_c_dbase.h | 2 +- cbind/base/psb_d_psblas_cbind_mod.f90 | 34 ++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 34 ++++++++ 13 files changed, 463 insertions(+), 9 deletions(-) diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 53cbda437..fe0d7658a 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -599,5 +599,17 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_dmask_vect end interface + interface psb_minquotient + function psb_dminquotient_vect(x,y,desc_a,info,global) result(res) + import :: psb_desc_type, psb_ipk_, & + & psb_d_vect_type, psb_dpk_ + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function + end interface end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 80f1d19a1..4544e0112 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -599,5 +599,17 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_smask_vect end interface + interface psb_minquotient + function psb_sminquotient_vect(x,y,desc_a,info,global) result(res) + import :: psb_desc_type, psb_ipk_, & + & psb_s_vect_type, psb_spk_ + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + end function + end interface end module psb_s_psblas_mod diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 733847aca..fbdcc0cc7 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -207,10 +207,13 @@ module psb_d_base_vect_mod procedure, pass(z) :: addconst_v2 => d_base_addconst_v2 generic, public :: addconst => addconst_a2,addconst_v2 -procedure, pass(x) :: minreal => d_base_min -procedure, pass(m) :: mask_v => d_base_mask_v -procedure, pass(m) :: mask_a => d_base_mask_a -generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minreal => d_base_min + procedure, pass(m) :: mask_v => d_base_mask_v + procedure, pass(m) :: mask_a => d_base_mask_a + generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minquotient_v => d_base_minquotient_v + procedure, pass(x) :: minquotient_a2 => d_base_minquotient_a2 + generic, public :: minquotient => minquotient_v, minquotient_a2 @@ -1649,6 +1652,62 @@ contains end function d_base_min + ! + !> Function base_minquotient_v + !! \memberof psb_d_base_vect_type + !! \brief Minimum entry of the vector entry-by-entry divide x/y + !! \param x The numerator vector + !! \param y The denumerator vector + !! \param info return code + !! + function d_base_minquotient_v(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + real(psb_dpk_) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + if (y%is_dev()) call y%sync() + + z = x%minquotient(y%v,info) + + end function d_base_minquotient_v + + ! + !> Function base_minquotient_a2 + !! \memberof psb_d_base_vect_type + !! \brief Minimum entry of the array entry-by-entry divide x/y + !! \param x The numerator array + !! \param y The denumerator array + !! \param info return code + !! + function d_base_minquotient_a2(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_d_base_vect_type), intent(inout) :: x + real(psb_dpk_), intent(in) :: y(:) + real(psb_dpk_) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + real(psb_dpk_) :: temp + + info = 0 + + z = huge(z) + n = min(size(y), size(x%v)) + do i=1, n + if ( y(i) /= dzero ) then + temp = x%v(i)/y(i) + if (temp <= z) z = temp + end if + end do + + end function d_base_minquotient_a2 + + ! !> Function base_asum !! \memberof psb_d_base_vect_type diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 3b3011b90..f49db5411 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -131,6 +131,9 @@ module psb_d_vect_mod procedure, pass(m) :: mask_v => d_vect_mask_v procedure, pass(m) :: mask_a => d_vect_mask_a generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minquotient_v => d_vect_minquotient_v + procedure, pass(x) :: minquotient_a2 => d_vect_minquotient_a2 + generic, public :: minquotient => minquotient_v, minquotient_a2 end type psb_d_vect_type @@ -1113,6 +1116,36 @@ contains end subroutine d_vect_mask_v + function d_vect_minquotient_v(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + real(psb_dpk_) :: z + integer(psb_ipk_), intent(out) :: info + + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & z = x%v%minquotient(y%v,info) + + end function d_vect_minquotient_v + + function d_vect_minquotient_a2(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_d_vect_type), intent(inout) :: x + real(psb_dpk_), intent(inout) :: y(:) + integer(psb_ipk_), intent(out) :: info + real(psb_dpk_) :: z + + info = 0 + z = x%v%minquotient(y,info) + + end function d_vect_minquotient_a2 + + + subroutine d_vect_addconst_a2(x,b,z,info) use psi_serial_mod implicit none diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 12d9f381f..451baef54 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -207,10 +207,13 @@ module psb_s_base_vect_mod procedure, pass(z) :: addconst_v2 => s_base_addconst_v2 generic, public :: addconst => addconst_a2,addconst_v2 -procedure, pass(x) :: minreal => s_base_min -procedure, pass(m) :: mask_v => s_base_mask_v -procedure, pass(m) :: mask_a => s_base_mask_a -generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minreal => s_base_min + procedure, pass(m) :: mask_v => s_base_mask_v + procedure, pass(m) :: mask_a => s_base_mask_a + generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minquotient_v => s_base_minquotient_v + procedure, pass(x) :: minquotient_a2 => s_base_minquotient_a2 + generic, public :: minquotient => minquotient_v, minquotient_a2 @@ -1649,6 +1652,62 @@ contains end function s_base_min + ! + !> Function base_minquotient_v + !! \memberof psb_s_base_vect_type + !! \brief Minimum entry of the vector entry-by-entry divide x/y + !! \param x The numerator vector + !! \param y The denumerator vector + !! \param info return code + !! + function s_base_minquotient_v(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + real(psb_spk_) :: z + integer(psb_ipk_), intent(out) :: info + + info = 0 + if (x%is_dev()) call x%sync() + if (y%is_dev()) call y%sync() + + z = x%minquotient(y%v,info) + + end function s_base_minquotient_v + + ! + !> Function base_minquotient_a2 + !! \memberof psb_s_base_vect_type + !! \brief Minimum entry of the array entry-by-entry divide x/y + !! \param x The numerator array + !! \param y The denumerator array + !! \param info return code + !! + function s_base_minquotient_a2(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_s_base_vect_type), intent(inout) :: x + real(psb_spk_), intent(in) :: y(:) + real(psb_spk_) :: z + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: i, n + real(psb_spk_) :: temp + + info = 0 + + z = huge(z) + n = min(size(y), size(x%v)) + do i=1, n + if ( y(i) /= szero ) then + temp = x%v(i)/y(i) + if (temp <= z) z = temp + end if + end do + + end function s_base_minquotient_a2 + + ! !> Function base_asum !! \memberof psb_s_base_vect_type diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 62ef21c73..aad99c9c5 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -131,6 +131,9 @@ module psb_s_vect_mod procedure, pass(m) :: mask_v => s_vect_mask_v procedure, pass(m) :: mask_a => s_vect_mask_a generic, public :: mask => mask_a, mask_v + procedure, pass(x) :: minquotient_v => s_vect_minquotient_v + procedure, pass(x) :: minquotient_a2 => s_vect_minquotient_a2 + generic, public :: minquotient => minquotient_v, minquotient_a2 end type psb_s_vect_type @@ -1113,6 +1116,36 @@ contains end subroutine s_vect_mask_v + function s_vect_minquotient_v(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + real(psb_spk_) :: z + integer(psb_ipk_), intent(out) :: info + + + info = 0 + if (allocated(x%v).and.allocated(y%v)) & + & z = x%v%minquotient(y%v,info) + + end function s_vect_minquotient_v + + function s_vect_minquotient_a2(x, y, info) result(z) + use psi_serial_mod + implicit none + class(psb_s_vect_type), intent(inout) :: x + real(psb_spk_), intent(inout) :: y(:) + integer(psb_ipk_), intent(out) :: info + real(psb_spk_) :: z + + info = 0 + z = x%v%minquotient(y,info) + + end function s_vect_minquotient_a2 + + + subroutine s_vect_addconst_a2(x,b,z,info) use psi_serial_mod implicit none diff --git a/base/psblas/psb_cdiv_vect.f90 b/base/psblas/psb_cdiv_vect.f90 index 32fdba9df..3e709da48 100644 --- a/base/psblas/psb_cdiv_vect.f90 +++ b/base/psblas/psb_cdiv_vect.f90 @@ -351,3 +351,4 @@ subroutine psb_cdiv_vect2_check(x,y,z,desc_a,info,flag) return end subroutine psb_cdiv_vect2_check + diff --git a/base/psblas/psb_ddiv_vect.f90 b/base/psblas/psb_ddiv_vect.f90 index 90ddd1c43..d5a85913c 100644 --- a/base/psblas/psb_ddiv_vect.f90 +++ b/base/psblas/psb_ddiv_vect.f90 @@ -351,3 +351,91 @@ subroutine psb_ddiv_vect2_check(x,y,z,desc_a,info,flag) return end subroutine psb_ddiv_vect2_check + +function psb_dminquotient_vect(x,y,desc_a,info,global) result(res) + use psb_penv_mod + use psb_serial_mod + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_d_vect_mod + implicit none + + real(psb_dpk_) :: res + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + character(len=20) :: name, ch_err + + name='psb_dminquotient_vect' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + + m = desc_a%get_global_rows() + call psb_chkvect(m,lone,x%get_nrows(),ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + ! compute local max + if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then + res = x%minquotient(y,info) + else + res = dzero + end if + + ! compute global min + if (global_) call psb_min(ictxt, res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end function psb_dminquotient_vect diff --git a/base/psblas/psb_sdiv_vect.f90 b/base/psblas/psb_sdiv_vect.f90 index 5e81abce2..2fba3e738 100644 --- a/base/psblas/psb_sdiv_vect.f90 +++ b/base/psblas/psb_sdiv_vect.f90 @@ -351,3 +351,91 @@ subroutine psb_sdiv_vect2_check(x,y,z,desc_a,info,flag) return end subroutine psb_sdiv_vect2_check + +function psb_sminquotient_vect(x,y,desc_a,info,global) result(res) + use psb_penv_mod + use psb_serial_mod + use psb_desc_mod + use psb_check_mod + use psb_error_mod + use psb_s_vect_mod + implicit none + + real(psb_spk_) :: res + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(in), optional :: global + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx + integer(psb_lpk_) :: ix, jx, iy, ijy, m + logical :: global_ + character(len=20) :: name, ch_err + + name='psb_sminquotient_vect' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + if (present(global)) then + global_ = global + else + global_ = .true. + end if + + ix = 1 + jx = 1 + + m = desc_a%get_global_rows() + call psb_chkvect(m,lone,x%get_nrows(),ix,jx,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if (iix /= 1) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + goto 9999 + end if + + ! compute local max + if ((desc_a%get_local_rows() > 0).and.(m /= 0)) then + res = x%minquotient(y,info) + else + res = szero + end if + + ! compute global min + if (global_) call psb_min(ictxt, res) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end function psb_sminquotient_vect diff --git a/base/psblas/psb_zdiv_vect.f90 b/base/psblas/psb_zdiv_vect.f90 index 582f12331..f07f5d003 100644 --- a/base/psblas/psb_zdiv_vect.f90 +++ b/base/psblas/psb_zdiv_vect.f90 @@ -351,3 +351,4 @@ subroutine psb_zdiv_vect2_check(x,y,z,desc_a,info,flag) return end subroutine psb_zdiv_vect2_check + diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 4e1b645e7..04f5d2324 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -77,7 +77,7 @@ psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descripto psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); psb_d_t psb_c_dgemin(psb_c_dvector *xh,psb_c_descriptor *cdh); - +psb_d_t psb_c_dminquotient(psb_c_dvector *xh,psb_c_dvector *yh, psb_c_descriptor *cdh); #ifdef __cplusplus } diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 6b0b79945..37d315c04 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -536,6 +536,40 @@ contains end function psb_c_dmask + function psb_c_dminquotient(xh,yh,cdh) bind(c) result(res) + implicit none + real(psb_dpk_) :: res + + type(psb_c_dvector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + res = psb_minquotient(xp,yp,descp,info) + + + end function psb_c_dminquotient + function psb_c_dgenrm2(xh,cdh) bind(c) result(res) implicit none real(c_double) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 057992f6c..dd42f6f58 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -536,6 +536,40 @@ contains end function psb_c_smask + function psb_c_sminquotient(xh,yh,cdh) bind(c) result(res) + implicit none + real(psb_spk_) :: res + + type(psb_c_svector) :: xh,yh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + res = psb_minquotient(xp,yp,descp,info) + + + end function psb_c_sminquotient + function psb_c_sgenrm2(xh,cdh) bind(c) result(res) implicit none real(c_float) :: res From 44f05510bc510a260151ab29e04a7c6d42f61ac6 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 10 Mar 2020 17:34:08 +0100 Subject: [PATCH 28/61] Added out-of-place axpby and relative c interface --- base/modules/auxil/psi_c_serial_mod.f90 | 44 +- base/modules/auxil/psi_d_serial_mod.f90 | 44 +- base/modules/auxil/psi_e_serial_mod.f90 | 44 +- base/modules/auxil/psi_m_serial_mod.f90 | 44 +- base/modules/auxil/psi_s_serial_mod.f90 | 44 +- base/modules/auxil/psi_z_serial_mod.f90 | 44 +- base/modules/psblas/psb_c_psblas_mod.F90 | 22 + base/modules/psblas/psb_d_psblas_mod.F90 | 22 + base/modules/psblas/psb_s_psblas_mod.F90 | 22 + base/modules/psblas/psb_z_psblas_mod.F90 | 22 + base/modules/serial/psb_c_base_vect_mod.f90 | 66 ++- base/modules/serial/psb_c_vect_mod.F90 | 36 +- base/modules/serial/psb_d_base_vect_mod.f90 | 66 ++- base/modules/serial/psb_d_vect_mod.F90 | 36 +- base/modules/serial/psb_s_base_vect_mod.f90 | 66 ++- base/modules/serial/psb_s_vect_mod.F90 | 36 +- base/modules/serial/psb_z_base_vect_mod.f90 | 66 ++- base/modules/serial/psb_z_vect_mod.F90 | 36 +- base/psblas/psb_caxpby.f90 | 278 ++++++++++++ base/psblas/psb_daxpby.f90 | 278 ++++++++++++ base/psblas/psb_saxpby.f90 | 278 ++++++++++++ base/psblas/psb_zaxpby.f90 | 278 ++++++++++++ base/serial/psi_c_serial_impl.f90 | 453 +++++++++++++++----- base/serial/psi_d_serial_impl.f90 | 453 +++++++++++++++----- base/serial/psi_e_serial_impl.f90 | 453 +++++++++++++++----- base/serial/psi_m_serial_impl.f90 | 453 +++++++++++++++----- base/serial/psi_s_serial_impl.f90 | 453 +++++++++++++++----- base/serial/psi_z_serial_impl.f90 | 453 +++++++++++++++----- cbind/base/psb_c_cbase.h | 2 + cbind/base/psb_c_dbase.h | 2 + cbind/base/psb_c_psblas_cbind_mod.f90 | 43 ++ cbind/base/psb_c_sbase.h | 2 + cbind/base/psb_c_zbase.h | 2 + cbind/base/psb_d_psblas_cbind_mod.f90 | 43 ++ cbind/base/psb_s_psblas_cbind_mod.f90 | 43 ++ cbind/base/psb_z_psblas_cbind_mod.f90 | 43 ++ 36 files changed, 4018 insertions(+), 752 deletions(-) diff --git a/base/modules/auxil/psi_c_serial_mod.f90 b/base/modules/auxil/psi_c_serial_mod.f90 index 5dc25dc44..05145c1c9 100644 --- a/base/modules/auxil/psi_c_serial_mod.f90 +++ b/base/modules/auxil/psi_c_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_c_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_, psb_spk_ @@ -36,7 +36,7 @@ module psi_c_serial_mod ! 2-D version subroutine psb_cgelp(trans,iperm,x,info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none complex(psb_spk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_c_serial_mod end subroutine psb_cgelp subroutine psb_cgelpv(trans,iperm,x,info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none complex(psb_spk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_cgelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_caxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_c_serial_mod end subroutine psi_caxpby subroutine psi_caxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) complex(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_caxpbyv + subroutine psi_caxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_spk_ + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_spk_), intent (in) :: x(:) + complex(psb_spk_), intent (in) :: y(:) + complex(psb_spk_), intent (in) :: z(:) + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_caxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_c_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: x(:,:), y(:) - + end subroutine psi_cgthzmv subroutine psi_cgthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_spk_ implicit none integer(psb_ipk_) :: n, k, idx(:) complex(psb_spk_) :: x(:,:), y(:,:) - + end subroutine psi_cgthzmm subroutine psi_cgthzv(n,idx,x,y) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: x(:), y(:) end subroutine psi_cgthzv @@ -124,7 +134,7 @@ module psi_c_serial_mod subroutine psi_csctv(n,idx,x,beta,y) import :: psb_ipk_, psb_spk_ implicit none - + integer(psb_ipk_) :: n, idx(:) complex(psb_spk_) :: beta, x(:), y(:) end subroutine psi_csctv diff --git a/base/modules/auxil/psi_d_serial_mod.f90 b/base/modules/auxil/psi_d_serial_mod.f90 index 541446c70..0bea1bce5 100644 --- a/base/modules/auxil/psi_d_serial_mod.f90 +++ b/base/modules/auxil/psi_d_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_d_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_, psb_dpk_ @@ -36,7 +36,7 @@ module psi_d_serial_mod ! 2-D version subroutine psb_dgelp(trans,iperm,x,info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none real(psb_dpk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_d_serial_mod end subroutine psb_dgelp subroutine psb_dgelpv(trans,iperm,x,info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none real(psb_dpk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_dgelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_daxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_d_serial_mod end subroutine psi_daxpby subroutine psi_daxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) real(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_daxpbyv + subroutine psi_daxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_dpk_ + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_dpk_), intent (in) :: x(:) + real(psb_dpk_), intent (in) :: y(:) + real(psb_dpk_), intent (in) :: z(:) + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_daxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_d_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: x(:,:), y(:) - + end subroutine psi_dgthzmv subroutine psi_dgthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_dpk_ implicit none integer(psb_ipk_) :: n, k, idx(:) real(psb_dpk_) :: x(:,:), y(:,:) - + end subroutine psi_dgthzmm subroutine psi_dgthzv(n,idx,x,y) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: x(:), y(:) end subroutine psi_dgthzv @@ -124,7 +134,7 @@ module psi_d_serial_mod subroutine psi_dsctv(n,idx,x,beta,y) import :: psb_ipk_, psb_dpk_ implicit none - + integer(psb_ipk_) :: n, idx(:) real(psb_dpk_) :: beta, x(:), y(:) end subroutine psi_dsctv diff --git a/base/modules/auxil/psi_e_serial_mod.f90 b/base/modules/auxil/psi_e_serial_mod.f90 index f95d812b4..f8b9694db 100644 --- a/base/modules/auxil/psi_e_serial_mod.f90 +++ b/base/modules/auxil/psi_e_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_e_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_ @@ -36,7 +36,7 @@ module psi_e_serial_mod ! 2-D version subroutine psb_egelp(trans,iperm,x,info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_epk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_e_serial_mod end subroutine psb_egelp subroutine psb_egelpv(trans,iperm,x,info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_epk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_egelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_eaxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n integer(psb_epk_), intent (in) :: x(:,:) integer(psb_epk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_e_serial_mod end subroutine psi_eaxpby subroutine psi_eaxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m integer(psb_epk_), intent (in) :: x(:) integer(psb_epk_), intent (inout) :: y(:) integer(psb_epk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_eaxpbyv + subroutine psi_eaxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ + implicit none + integer(psb_ipk_), intent(in) :: m + integer(psb_epk_), intent (in) :: x(:) + integer(psb_epk_), intent (in) :: y(:) + integer(psb_epk_), intent (in) :: z(:) + integer(psb_epk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_eaxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_e_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) integer(psb_epk_) :: x(:,:), y(:) - + end subroutine psi_egthzmv subroutine psi_egthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ implicit none integer(psb_ipk_) :: n, k, idx(:) integer(psb_epk_) :: x(:,:), y(:,:) - + end subroutine psi_egthzmm subroutine psi_egthzv(n,idx,x,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_epk_) :: x(:), y(:) end subroutine psi_egthzv @@ -124,7 +134,7 @@ module psi_e_serial_mod subroutine psi_esctv(n,idx,x,beta,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ implicit none - + integer(psb_ipk_) :: n, idx(:) integer(psb_epk_) :: beta, x(:), y(:) end subroutine psi_esctv diff --git a/base/modules/auxil/psi_m_serial_mod.f90 b/base/modules/auxil/psi_m_serial_mod.f90 index e9575fc7b..2acb74829 100644 --- a/base/modules/auxil/psi_m_serial_mod.f90 +++ b/base/modules/auxil/psi_m_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_m_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_ @@ -36,7 +36,7 @@ module psi_m_serial_mod ! 2-D version subroutine psb_mgelp(trans,iperm,x,info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_mpk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_m_serial_mod end subroutine psb_mgelp subroutine psb_mgelpv(trans,iperm,x,info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_mpk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_mgelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_maxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n integer(psb_mpk_), intent (in) :: x(:,:) integer(psb_mpk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_m_serial_mod end subroutine psi_maxpby subroutine psi_maxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m integer(psb_mpk_), intent (in) :: x(:) integer(psb_mpk_), intent (inout) :: y(:) integer(psb_mpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_maxpbyv + subroutine psi_maxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ + implicit none + integer(psb_ipk_), intent(in) :: m + integer(psb_mpk_), intent (in) :: x(:) + integer(psb_mpk_), intent (in) :: y(:) + integer(psb_mpk_), intent (in) :: z(:) + integer(psb_mpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_maxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_m_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) integer(psb_mpk_) :: x(:,:), y(:) - + end subroutine psi_mgthzmv subroutine psi_mgthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ implicit none integer(psb_ipk_) :: n, k, idx(:) integer(psb_mpk_) :: x(:,:), y(:,:) - + end subroutine psi_mgthzmm subroutine psi_mgthzv(n,idx,x,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) integer(psb_mpk_) :: x(:), y(:) end subroutine psi_mgthzv @@ -124,7 +134,7 @@ module psi_m_serial_mod subroutine psi_msctv(n,idx,x,beta,y) import :: psb_ipk_, psb_lpk_,psb_mpk_, psb_epk_ implicit none - + integer(psb_ipk_) :: n, idx(:) integer(psb_mpk_) :: beta, x(:), y(:) end subroutine psi_msctv diff --git a/base/modules/auxil/psi_s_serial_mod.f90 b/base/modules/auxil/psi_s_serial_mod.f90 index 443b16fe8..ac3dbb624 100644 --- a/base/modules/auxil/psi_s_serial_mod.f90 +++ b/base/modules/auxil/psi_s_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_s_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_, psb_spk_ @@ -36,7 +36,7 @@ module psi_s_serial_mod ! 2-D version subroutine psb_sgelp(trans,iperm,x,info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none real(psb_spk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_s_serial_mod end subroutine psb_sgelp subroutine psb_sgelpv(trans,iperm,x,info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none real(psb_spk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_sgelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_saxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_s_serial_mod end subroutine psi_saxpby subroutine psi_saxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) real(psb_spk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_saxpbyv + subroutine psi_saxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_spk_ + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_spk_), intent (in) :: x(:) + real(psb_spk_), intent (in) :: y(:) + real(psb_spk_), intent (in) :: z(:) + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_saxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_s_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: x(:,:), y(:) - + end subroutine psi_sgthzmv subroutine psi_sgthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_spk_ implicit none integer(psb_ipk_) :: n, k, idx(:) real(psb_spk_) :: x(:,:), y(:,:) - + end subroutine psi_sgthzmm subroutine psi_sgthzv(n,idx,x,y) import :: psb_ipk_, psb_spk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: x(:), y(:) end subroutine psi_sgthzv @@ -124,7 +134,7 @@ module psi_s_serial_mod subroutine psi_ssctv(n,idx,x,beta,y) import :: psb_ipk_, psb_spk_ implicit none - + integer(psb_ipk_) :: n, idx(:) real(psb_spk_) :: beta, x(:), y(:) end subroutine psi_ssctv diff --git a/base/modules/auxil/psi_z_serial_mod.f90 b/base/modules/auxil/psi_z_serial_mod.f90 index f0d7dd115..ee148ef2c 100644 --- a/base/modules/auxil/psi_z_serial_mod.f90 +++ b/base/modules/auxil/psi_z_serial_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! module psi_z_serial_mod use psb_const_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_, psb_dpk_ @@ -36,7 +36,7 @@ module psi_z_serial_mod ! 2-D version subroutine psb_zgelp(trans,iperm,x,info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none complex(psb_dpk_), intent(inout) :: x(:,:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info @@ -44,18 +44,18 @@ module psi_z_serial_mod end subroutine psb_zgelp subroutine psb_zgelpv(trans,iperm,x,info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none complex(psb_dpk_), intent(inout) :: x(:) integer(psb_ipk_), intent(in) :: iperm(:) integer(psb_ipk_), intent(out) :: info character, intent(in) :: trans end subroutine psb_zgelpv end interface psb_gelp - - interface psb_geaxpby + + interface psb_geaxpby subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (inout) :: y(:,:) @@ -64,13 +64,23 @@ module psi_z_serial_mod end subroutine psi_zaxpby subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) complex(psb_dpk_), intent (in) :: alpha, beta integer(psb_ipk_), intent(out) :: info end subroutine psi_zaxpbyv + subroutine psi_zaxpbyv2(m,alpha, x, beta, y, z, info) + import :: psb_ipk_, psb_dpk_ + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_dpk_), intent (in) :: x(:) + complex(psb_dpk_), intent (in) :: y(:) + complex(psb_dpk_), intent (in) :: z(:) + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + end subroutine psi_zaxpbyv2 end interface psb_geaxpby interface psi_gth @@ -91,18 +101,18 @@ module psi_z_serial_mod implicit none integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: x(:,:), y(:) - + end subroutine psi_zgthzmv subroutine psi_zgthzmm(n,k,idx,x,y) import :: psb_ipk_, psb_dpk_ implicit none integer(psb_ipk_) :: n, k, idx(:) complex(psb_dpk_) :: x(:,:), y(:,:) - + end subroutine psi_zgthzmm subroutine psi_zgthzv(n,idx,x,y) import :: psb_ipk_, psb_dpk_ - implicit none + implicit none integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: x(:), y(:) end subroutine psi_zgthzv @@ -124,7 +134,7 @@ module psi_z_serial_mod subroutine psi_zsctv(n,idx,x,beta,y) import :: psb_ipk_, psb_dpk_ implicit none - + integer(psb_ipk_) :: n, idx(:) complex(psb_dpk_) :: beta, x(:), y(:) end subroutine psi_zsctv diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index d20e1a488..632bc0432 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -98,6 +98,17 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_caxpby_vect + subroutine psb_caxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_caxpby_vect_out subroutine psb_caxpbyv(alpha, x, beta, y,& & desc_a, info) import :: psb_desc_type, psb_spk_, psb_ipk_, & @@ -108,6 +119,17 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_caxpbyv + subroutine psb_caxpbyvout(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_c_vect_type, psb_cspmat_type + complex(psb_spk_), intent (in) :: x(:) + complex(psb_spk_), intent (in) :: y(:) + complex(psb_spk_), intent (inout) :: z(:) + complex(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_caxpbyvout subroutine psb_caxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) import :: psb_desc_type, psb_spk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index fe0d7658a..aafe69317 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -98,6 +98,17 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_daxpby_vect + subroutine psb_daxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_daxpby_vect_out subroutine psb_daxpbyv(alpha, x, beta, y,& & desc_a, info) import :: psb_desc_type, psb_dpk_, psb_ipk_, & @@ -108,6 +119,17 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_daxpbyv + subroutine psb_daxpbyvout(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_d_vect_type, psb_dspmat_type + real(psb_dpk_), intent (in) :: x(:) + real(psb_dpk_), intent (in) :: y(:) + real(psb_dpk_), intent (inout) :: z(:) + real(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_daxpbyvout subroutine psb_daxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) import :: psb_desc_type, psb_dpk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 4544e0112..48ccc2125 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -98,6 +98,17 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_saxpby_vect + subroutine psb_saxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_saxpby_vect_out subroutine psb_saxpbyv(alpha, x, beta, y,& & desc_a, info) import :: psb_desc_type, psb_spk_, psb_ipk_, & @@ -108,6 +119,17 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_saxpbyv + subroutine psb_saxpbyvout(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_spk_, psb_ipk_, & + & psb_s_vect_type, psb_sspmat_type + real(psb_spk_), intent (in) :: x(:) + real(psb_spk_), intent (in) :: y(:) + real(psb_spk_), intent (inout) :: z(:) + real(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_saxpbyvout subroutine psb_saxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) import :: psb_desc_type, psb_spk_, psb_ipk_, & diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 94d31e003..3e920f83c 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -98,6 +98,17 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zaxpby_vect + subroutine psb_zaxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zaxpby_vect_out subroutine psb_zaxpbyv(alpha, x, beta, y,& & desc_a, info) import :: psb_desc_type, psb_dpk_, psb_ipk_, & @@ -108,6 +119,17 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zaxpbyv + subroutine psb_zaxpbyvout(alpha, x, beta, y,& + & z, desc_a, info) + import :: psb_desc_type, psb_dpk_, psb_ipk_, & + & psb_z_vect_type, psb_zspmat_type + complex(psb_dpk_), intent (in) :: x(:) + complex(psb_dpk_), intent (in) :: y(:) + complex(psb_dpk_), intent (inout) :: z(:) + complex(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end subroutine psb_zaxpbyvout subroutine psb_zaxpby(alpha, x, beta, y,& & desc_a, info, n, jx, jy) import :: psb_desc_type, psb_dpk_, psb_ipk_, & diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 32f4e22ef..887b9e3b8 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -151,7 +151,9 @@ module psb_c_base_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => c_base_axpby_v procedure, pass(y) :: axpby_a => c_base_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => c_base_axpby_v2 + procedure, pass(z) :: axpby_a2 => c_base_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 ! ! Vector by vector multiplication. Need all variants ! to handle multiple requirements from preconditioners @@ -974,6 +976,38 @@ contains end subroutine c_base_axpby_v + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + ! + !> Function base_axpby_v2 + !! \memberof psb_c_base_vect_type + !! \brief AXPBY by a (base_vect) z=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x The class(base_vect) to be added + !! \param beta scalar alpha + !! \param y The class(base_vect) to be added + !! \param z The class(base_vect) to be returned + !! \param info return code + !! + subroutine c_base_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_c_base_vect_type), intent(inout) :: x + class(psb_c_base_vect_type), intent(inout) :: y + class(psb_c_base_vect_type), intent(inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (x%is_dev()) call x%sync() + + call z%axpby(m,alpha,x%v,beta,y%v,info) + + end subroutine c_base_axpby_v2 + ! ! AXPBY is invoked via Y, hence the structure below. ! @@ -1002,6 +1036,36 @@ contains end subroutine c_base_axpby_a + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + !> Function base_axpby_a2 + !! \memberof psb_c_base_vect_type + !! \brief AXPBY by a normal array y=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x(:) The array to be added + !! \param beta scalar beta + !! \param y(:) The array to be added + !! \param info return code + !! + subroutine c_base_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + class(psb_c_base_vect_type), intent(inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (z%is_dev()) call z%sync() + call psb_geaxpby(m,alpha,x,beta,y,z%v,info) + call z%set_host() + + end subroutine c_base_axpby_a2 + ! ! Multiple variants of two operations: diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index afa2f0a93..cbfdc1162 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -85,7 +85,9 @@ module psb_c_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => c_vect_axpby_v procedure, pass(y) :: axpby_a => c_vect_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => c_vect_axpby_v2 + procedure, pass(z) :: axpby_a2 => c_vect_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 procedure, pass(y) :: mlt_v => c_vect_mlt_v procedure, pass(y) :: mlt_a => c_vect_mlt_a procedure, pass(z) :: mlt_a_2 => c_vect_mlt_a_2 @@ -640,6 +642,24 @@ contains end subroutine c_vect_axpby_v + subroutine c_vect_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_c_vect_type), intent(inout) :: x + class(psb_c_vect_type), intent(inout) :: y + class(psb_c_vect_type), intent(inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(x%v).and.allocated(y%v)) then + call z%v%axpby(m,alpha,x%v,beta,y%v,info) + else + info = psb_err_invalid_vect_state_ + end if + + end subroutine c_vect_axpby_v2 + subroutine c_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none @@ -654,6 +674,20 @@ contains end subroutine c_vect_axpby_a + subroutine c_vect_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + class(psb_c_vect_type), intent(inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(z%v)) & + & call z%v%axpby(m,alpha,x,beta,y,info) + + end subroutine c_vect_axpby_a2 subroutine c_vect_mlt_v(x, y, info) use psi_serial_mod diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index fbdcc0cc7..0b6ea1296 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -151,7 +151,9 @@ module psb_d_base_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => d_base_axpby_v procedure, pass(y) :: axpby_a => d_base_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => d_base_axpby_v2 + procedure, pass(z) :: axpby_a2 => d_base_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 ! ! Vector by vector multiplication. Need all variants ! to handle multiple requirements from preconditioners @@ -981,6 +983,38 @@ contains end subroutine d_base_axpby_v + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + ! + !> Function base_axpby_v2 + !! \memberof psb_d_base_vect_type + !! \brief AXPBY by a (base_vect) z=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x The class(base_vect) to be added + !! \param beta scalar alpha + !! \param y The class(base_vect) to be added + !! \param z The class(base_vect) to be returned + !! \param info return code + !! + subroutine d_base_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_d_base_vect_type), intent(inout) :: x + class(psb_d_base_vect_type), intent(inout) :: y + class(psb_d_base_vect_type), intent(inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (x%is_dev()) call x%sync() + + call z%axpby(m,alpha,x%v,beta,y%v,info) + + end subroutine d_base_axpby_v2 + ! ! AXPBY is invoked via Y, hence the structure below. ! @@ -1009,6 +1043,36 @@ contains end subroutine d_base_axpby_a + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + !> Function base_axpby_a2 + !! \memberof psb_d_base_vect_type + !! \brief AXPBY by a normal array y=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x(:) The array to be added + !! \param beta scalar beta + !! \param y(:) The array to be added + !! \param info return code + !! + subroutine d_base_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + class(psb_d_base_vect_type), intent(inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (z%is_dev()) call z%sync() + call psb_geaxpby(m,alpha,x,beta,y,z%v,info) + call z%set_host() + + end subroutine d_base_axpby_a2 + ! ! Multiple variants of two operations: diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index f49db5411..edd99bf5a 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -85,7 +85,9 @@ module psb_d_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => d_vect_axpby_v procedure, pass(y) :: axpby_a => d_vect_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => d_vect_axpby_v2 + procedure, pass(z) :: axpby_a2 => d_vect_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 procedure, pass(y) :: mlt_v => d_vect_mlt_v procedure, pass(y) :: mlt_a => d_vect_mlt_a procedure, pass(z) :: mlt_a_2 => d_vect_mlt_a_2 @@ -647,6 +649,24 @@ contains end subroutine d_vect_axpby_v + subroutine d_vect_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_d_vect_type), intent(inout) :: x + class(psb_d_vect_type), intent(inout) :: y + class(psb_d_vect_type), intent(inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(x%v).and.allocated(y%v)) then + call z%v%axpby(m,alpha,x%v,beta,y%v,info) + else + info = psb_err_invalid_vect_state_ + end if + + end subroutine d_vect_axpby_v2 + subroutine d_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none @@ -661,6 +681,20 @@ contains end subroutine d_vect_axpby_a + subroutine d_vect_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + class(psb_d_vect_type), intent(inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(z%v)) & + & call z%v%axpby(m,alpha,x,beta,y,info) + + end subroutine d_vect_axpby_a2 subroutine d_vect_mlt_v(x, y, info) use psi_serial_mod diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 451baef54..1a9511776 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -151,7 +151,9 @@ module psb_s_base_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => s_base_axpby_v procedure, pass(y) :: axpby_a => s_base_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => s_base_axpby_v2 + procedure, pass(z) :: axpby_a2 => s_base_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 ! ! Vector by vector multiplication. Need all variants ! to handle multiple requirements from preconditioners @@ -981,6 +983,38 @@ contains end subroutine s_base_axpby_v + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + ! + !> Function base_axpby_v2 + !! \memberof psb_s_base_vect_type + !! \brief AXPBY by a (base_vect) z=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x The class(base_vect) to be added + !! \param beta scalar alpha + !! \param y The class(base_vect) to be added + !! \param z The class(base_vect) to be returned + !! \param info return code + !! + subroutine s_base_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_s_base_vect_type), intent(inout) :: x + class(psb_s_base_vect_type), intent(inout) :: y + class(psb_s_base_vect_type), intent(inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (x%is_dev()) call x%sync() + + call z%axpby(m,alpha,x%v,beta,y%v,info) + + end subroutine s_base_axpby_v2 + ! ! AXPBY is invoked via Y, hence the structure below. ! @@ -1009,6 +1043,36 @@ contains end subroutine s_base_axpby_a + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + !> Function base_axpby_a2 + !! \memberof psb_s_base_vect_type + !! \brief AXPBY by a normal array y=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x(:) The array to be added + !! \param beta scalar beta + !! \param y(:) The array to be added + !! \param info return code + !! + subroutine s_base_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + class(psb_s_base_vect_type), intent(inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (z%is_dev()) call z%sync() + call psb_geaxpby(m,alpha,x,beta,y,z%v,info) + call z%set_host() + + end subroutine s_base_axpby_a2 + ! ! Multiple variants of two operations: diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index aad99c9c5..edeedacba 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -85,7 +85,9 @@ module psb_s_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => s_vect_axpby_v procedure, pass(y) :: axpby_a => s_vect_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => s_vect_axpby_v2 + procedure, pass(z) :: axpby_a2 => s_vect_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 procedure, pass(y) :: mlt_v => s_vect_mlt_v procedure, pass(y) :: mlt_a => s_vect_mlt_a procedure, pass(z) :: mlt_a_2 => s_vect_mlt_a_2 @@ -647,6 +649,24 @@ contains end subroutine s_vect_axpby_v + subroutine s_vect_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_s_vect_type), intent(inout) :: x + class(psb_s_vect_type), intent(inout) :: y + class(psb_s_vect_type), intent(inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(x%v).and.allocated(y%v)) then + call z%v%axpby(m,alpha,x%v,beta,y%v,info) + else + info = psb_err_invalid_vect_state_ + end if + + end subroutine s_vect_axpby_v2 + subroutine s_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none @@ -661,6 +681,20 @@ contains end subroutine s_vect_axpby_a + subroutine s_vect_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + class(psb_s_vect_type), intent(inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(z%v)) & + & call z%v%axpby(m,alpha,x,beta,y,info) + + end subroutine s_vect_axpby_a2 subroutine s_vect_mlt_v(x, y, info) use psi_serial_mod diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 502b77951..a7e6978ac 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -151,7 +151,9 @@ module psb_z_base_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => z_base_axpby_v procedure, pass(y) :: axpby_a => z_base_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => z_base_axpby_v2 + procedure, pass(z) :: axpby_a2 => z_base_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 ! ! Vector by vector multiplication. Need all variants ! to handle multiple requirements from preconditioners @@ -974,6 +976,38 @@ contains end subroutine z_base_axpby_v + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + ! + !> Function base_axpby_v2 + !! \memberof psb_z_base_vect_type + !! \brief AXPBY by a (base_vect) z=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x The class(base_vect) to be added + !! \param beta scalar alpha + !! \param y The class(base_vect) to be added + !! \param z The class(base_vect) to be returned + !! \param info return code + !! + subroutine z_base_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_z_base_vect_type), intent(inout) :: x + class(psb_z_base_vect_type), intent(inout) :: y + class(psb_z_base_vect_type), intent(inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (x%is_dev()) call x%sync() + + call z%axpby(m,alpha,x%v,beta,y%v,info) + + end subroutine z_base_axpby_v2 + ! ! AXPBY is invoked via Y, hence the structure below. ! @@ -1002,6 +1036,36 @@ contains end subroutine z_base_axpby_a + ! + ! AXPBY is invoked via Z, hence the structure below. + ! + ! + !> Function base_axpby_a2 + !! \memberof psb_z_base_vect_type + !! \brief AXPBY by a normal array y=alpha*x+beta*y + !! \param m Number of entries to be considered + !! \param alpha scalar alpha + !! \param x(:) The array to be added + !! \param beta scalar beta + !! \param y(:) The array to be added + !! \param info return code + !! + subroutine z_base_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + class(psb_z_base_vect_type), intent(inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (z%is_dev()) call z%sync() + call psb_geaxpby(m,alpha,x,beta,y,z%v,info) + call z%set_host() + + end subroutine z_base_axpby_a2 + ! ! Multiple variants of two operations: diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 7b01aba01..77aba066b 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -85,7 +85,9 @@ module psb_z_vect_mod generic, public :: dot => dot_v, dot_a procedure, pass(y) :: axpby_v => z_vect_axpby_v procedure, pass(y) :: axpby_a => z_vect_axpby_a - generic, public :: axpby => axpby_v, axpby_a + procedure, pass(z) :: axpby_v2 => z_vect_axpby_v2 + procedure, pass(z) :: axpby_a2 => z_vect_axpby_a2 + generic, public :: axpby => axpby_v, axpby_a, axpby_v2, axpby_a2 procedure, pass(y) :: mlt_v => z_vect_mlt_v procedure, pass(y) :: mlt_a => z_vect_mlt_a procedure, pass(z) :: mlt_a_2 => z_vect_mlt_a_2 @@ -640,6 +642,24 @@ contains end subroutine z_vect_axpby_v + subroutine z_vect_axpby_v2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + class(psb_z_vect_type), intent(inout) :: x + class(psb_z_vect_type), intent(inout) :: y + class(psb_z_vect_type), intent(inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(x%v).and.allocated(y%v)) then + call z%v%axpby(m,alpha,x%v,beta,y%v,info) + else + info = psb_err_invalid_vect_state_ + end if + + end subroutine z_vect_axpby_v2 + subroutine z_vect_axpby_a(m,alpha, x, beta, y, info) use psi_serial_mod implicit none @@ -654,6 +674,20 @@ contains end subroutine z_vect_axpby_a + subroutine z_vect_axpby_a2(m,alpha, x, beta, y, z, info) + use psi_serial_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + class(psb_z_vect_type), intent(inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + + if (allocated(z%v)) & + & call z%v%axpby(m,alpha,x,beta,y,info) + + end subroutine z_vect_axpby_a2 subroutine z_vect_mlt_v(x, y, info) use psi_serial_mod diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 280022b15..b92072ab8 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -129,6 +129,152 @@ subroutine psb_caxpby_vect(alpha, x, beta, y,& end subroutine psb_caxpby_vect +! +! 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_caxpby.f90 + +! +! Subroutine: psb_caxpby_vect_out +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - complex,input The scalar used to multiply each component of X +! x - type(psb_c_vect_type) The input vector containing the entries of X +! beta - complex,input The scalar used to multiply each component of Y +! y - type(psb_c_vect_type) The input vector Y +! z - type(psb_c_vect_type) The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! Note: from a functional point of view, X is input, but here +! it's declared INOUT because of the sync() methods. +! +subroutine psb_caxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + use psb_base_mod, psb_protect_name => psb_caxpby_vect_out + implicit none + type(psb_c_vect_type), intent (inout) :: x + type(psb_c_vect_type), intent (inout) :: y + type(psb_c_vect_type), intent (inout) :: z + complex(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_cgeaxpby' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call z%axpby(desc_a%get_local_rows(),& + & alpha,x,beta,z,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_caxpby_vect_out + ! ! Subroutine: psb_caxpby ! Adds one distributed matrix to another, @@ -372,6 +518,138 @@ subroutine psb_caxpbyv(alpha, x, beta,y,desc_a,info) return end subroutine psb_caxpbyv + +!!$ +!!$ Parallel Sparse BLAS version 3.5 +!!$ (C) Copyright 2006-2018 +!!$ Salvatore Filippone University of Rome Tor Vergata +!!$ 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. +!!$ +!!$ +! +! Subroutine: psb_caxpbyvout +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - complex,input The scalar used to multiply each component of X +! x(:) - complex,input The input vector containing the entries of X +! beta - complex,input The scalar used to multiply each component of Y +! y(:) - complex,input The input vector Y containing the entries of Y +! Z(:) - complex,inout The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! +subroutine psb_caxpbyvout(alpha, x, beta,y, z, desc_a,info) + use psb_base_mod, psb_protect_name => psb_caxpbyvout + implicit none + + integer(psb_ipk_), intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + complex(psb_spk_), intent(in) :: alpha, beta + complex(psb_spk_), intent(in) :: x(:) + complex(psb_spk_), intent(in) :: y(:) + complex(psb_spk_), intent(inout) :: z(:) + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz, lldx, lldy, lldz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + logical, parameter :: debug=.false. + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + lldx = size(x,1) + lldy = size(y,1) + lldz = size(z,1) + ! check vector correctness + call psb_chkvect(m,lone,lldx,ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldy,iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldz,iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call caxpby(desc_a%get_local_cols(),ione,& + & alpha,x,lldx,beta,& + & y,lldy,z,lldz,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_caxpbyvout + ! ! Subroutine: psb_caddconst_vect ! Adds one distributed vector to another, diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 4bdb24a82..4ee12d46d 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -129,6 +129,152 @@ subroutine psb_daxpby_vect(alpha, x, beta, y,& end subroutine psb_daxpby_vect +! +! 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_daxpby.f90 + +! +! Subroutine: psb_daxpby_vect_out +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - real,input The scalar used to multiply each component of X +! x - type(psb_d_vect_type) The input vector containing the entries of X +! beta - real,input The scalar used to multiply each component of Y +! y - type(psb_d_vect_type) The input vector Y +! z - type(psb_d_vect_type) The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! Note: from a functional point of view, X is input, but here +! it's declared INOUT because of the sync() methods. +! +subroutine psb_daxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + use psb_base_mod, psb_protect_name => psb_daxpby_vect_out + implicit none + type(psb_d_vect_type), intent (inout) :: x + type(psb_d_vect_type), intent (inout) :: y + type(psb_d_vect_type), intent (inout) :: z + real(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_dgeaxpby' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call z%axpby(desc_a%get_local_rows(),& + & alpha,x,beta,z,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_daxpby_vect_out + ! ! Subroutine: psb_daxpby ! Adds one distributed matrix to another, @@ -372,6 +518,138 @@ subroutine psb_daxpbyv(alpha, x, beta,y,desc_a,info) return end subroutine psb_daxpbyv + +!!$ +!!$ Parallel Sparse BLAS version 3.5 +!!$ (C) Copyright 2006-2018 +!!$ Salvatore Filippone University of Rome Tor Vergata +!!$ 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. +!!$ +!!$ +! +! Subroutine: psb_daxpbyvout +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - real,input The scalar used to multiply each component of X +! x(:) - real,input The input vector containing the entries of X +! beta - real,input The scalar used to multiply each component of Y +! y(:) - real,input The input vector Y containing the entries of Y +! Z(:) - real,inout The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! +subroutine psb_daxpbyvout(alpha, x, beta,y, z, desc_a,info) + use psb_base_mod, psb_protect_name => psb_daxpbyvout + implicit none + + integer(psb_ipk_), intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + real(psb_dpk_), intent(in) :: alpha, beta + real(psb_dpk_), intent(in) :: x(:) + real(psb_dpk_), intent(in) :: y(:) + real(psb_dpk_), intent(inout) :: z(:) + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz, lldx, lldy, lldz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + logical, parameter :: debug=.false. + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + lldx = size(x,1) + lldy = size(y,1) + lldz = size(z,1) + ! check vector correctness + call psb_chkvect(m,lone,lldx,ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldy,iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldz,iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call daxpby(desc_a%get_local_cols(),ione,& + & alpha,x,lldx,beta,& + & y,lldy,z,lldz,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_daxpbyvout + ! ! Subroutine: psb_daddconst_vect ! Adds one distributed vector to another, diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 2d3be43e4..0c619984a 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -129,6 +129,152 @@ subroutine psb_saxpby_vect(alpha, x, beta, y,& end subroutine psb_saxpby_vect +! +! 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_saxpby.f90 + +! +! Subroutine: psb_saxpby_vect_out +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - real,input The scalar used to multiply each component of X +! x - type(psb_s_vect_type) The input vector containing the entries of X +! beta - real,input The scalar used to multiply each component of Y +! y - type(psb_s_vect_type) The input vector Y +! z - type(psb_s_vect_type) The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! Note: from a functional point of view, X is input, but here +! it's declared INOUT because of the sync() methods. +! +subroutine psb_saxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + use psb_base_mod, psb_protect_name => psb_saxpby_vect_out + implicit none + type(psb_s_vect_type), intent (inout) :: x + type(psb_s_vect_type), intent (inout) :: y + type(psb_s_vect_type), intent (inout) :: z + real(psb_spk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_sgeaxpby' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call z%axpby(desc_a%get_local_rows(),& + & alpha,x,beta,z,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_saxpby_vect_out + ! ! Subroutine: psb_saxpby ! Adds one distributed matrix to another, @@ -372,6 +518,138 @@ subroutine psb_saxpbyv(alpha, x, beta,y,desc_a,info) return end subroutine psb_saxpbyv + +!!$ +!!$ Parallel Sparse BLAS version 3.5 +!!$ (C) Copyright 2006-2018 +!!$ Salvatore Filippone University of Rome Tor Vergata +!!$ 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. +!!$ +!!$ +! +! Subroutine: psb_saxpbyvout +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - real,input The scalar used to multiply each component of X +! x(:) - real,input The input vector containing the entries of X +! beta - real,input The scalar used to multiply each component of Y +! y(:) - real,input The input vector Y containing the entries of Y +! Z(:) - real,inout The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! +subroutine psb_saxpbyvout(alpha, x, beta,y, z, desc_a,info) + use psb_base_mod, psb_protect_name => psb_saxpbyvout + implicit none + + integer(psb_ipk_), intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + real(psb_spk_), intent(in) :: alpha, beta + real(psb_spk_), intent(in) :: x(:) + real(psb_spk_), intent(in) :: y(:) + real(psb_spk_), intent(inout) :: z(:) + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz, lldx, lldy, lldz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + logical, parameter :: debug=.false. + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + lldx = size(x,1) + lldy = size(y,1) + lldz = size(z,1) + ! check vector correctness + call psb_chkvect(m,lone,lldx,ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldy,iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldz,iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call saxpby(desc_a%get_local_cols(),ione,& + & alpha,x,lldx,beta,& + & y,lldy,z,lldz,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_saxpbyvout + ! ! Subroutine: psb_saddconst_vect ! Adds one distributed vector to another, diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index b2cd7a0eb..f60e87393 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -129,6 +129,152 @@ subroutine psb_zaxpby_vect(alpha, x, beta, y,& end subroutine psb_zaxpby_vect +! +! 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_zaxpby.f90 + +! +! Subroutine: psb_zaxpby_vect_out +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - complex,input The scalar used to multiply each component of X +! x - type(psb_z_vect_type) The input vector containing the entries of X +! beta - complex,input The scalar used to multiply each component of Y +! y - type(psb_z_vect_type) The input vector Y +! z - type(psb_z_vect_type) The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! Note: from a functional point of view, X is input, but here +! it's declared INOUT because of the sync() methods. +! +subroutine psb_zaxpby_vect_out(alpha, x, beta, y,& + & z, desc_a, info) + use psb_base_mod, psb_protect_name => psb_zaxpby_vect_out + implicit none + type(psb_z_vect_type), intent (inout) :: x + type(psb_z_vect_type), intent (inout) :: y + type(psb_z_vect_type), intent (inout) :: z + complex(psb_dpk_), intent (in) :: alpha, beta + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + + name='psb_zgeaxpby' + if (psb_errstatus_fatal()) return + info=psb_success_ + call psb_erractionsave(err_act) + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(x%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(y%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + if (.not.allocated(z%v)) then + info = psb_err_invalid_vect_state_ + call psb_errpush(info,name) + goto 9999 + endif + + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + + ! check vector correctness + call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,y%get_nrows(),iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,z%get_nrows(),iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 3' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call z%axpby(desc_a%get_local_rows(),& + & alpha,x,beta,z,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zaxpby_vect_out + ! ! Subroutine: psb_zaxpby ! Adds one distributed matrix to another, @@ -372,6 +518,138 @@ subroutine psb_zaxpbyv(alpha, x, beta,y,desc_a,info) return end subroutine psb_zaxpbyv + +!!$ +!!$ Parallel Sparse BLAS version 3.5 +!!$ (C) Copyright 2006-2018 +!!$ Salvatore Filippone University of Rome Tor Vergata +!!$ 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. +!!$ +!!$ +! +! Subroutine: psb_zaxpbyvout +! Adds one distributed vector to another, +! +! Z := beta * Y + alpha * X +! +! Arguments: +! alpha - complex,input The scalar used to multiply each component of X +! x(:) - complex,input The input vector containing the entries of X +! beta - complex,input The scalar used to multiply each component of Y +! y(:) - complex,input The input vector Y containing the entries of Y +! Z(:) - complex,inout The output vector Z +! desc_a - type(psb_desc_type) The communication descriptor. +! info - integer Return code +! +! +subroutine psb_zaxpbyvout(alpha, x, beta,y, z, desc_a,info) + use psb_base_mod, psb_protect_name => psb_zaxpbyvout + implicit none + + integer(psb_ipk_), intent(out) :: info + type(psb_desc_type), intent(in) :: desc_a + complex(psb_dpk_), intent(in) :: alpha, beta + complex(psb_dpk_), intent(in) :: x(:) + complex(psb_dpk_), intent(in) :: y(:) + complex(psb_dpk_), intent(inout) :: z(:) + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iix, jjx, iiy, jjy, iiz, jjz, lldx, lldy, lldz + integer(psb_lpk_) :: ix, ijx, iy, ijy, iz, ijz, m + character(len=20) :: name, ch_err + logical, parameter :: debug=.false. + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + + call psb_info(ictxt, me, np) + if (np == -ione) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ix = ione + iy = ione + iz = ione + + m = desc_a%get_global_rows() + lldx = size(x,1) + lldy = size(y,1) + lldz = size(z,1) + ! check vector correctness + call psb_chkvect(m,lone,lldx,ix,lone,desc_a,info,iix,jjx) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldy,iy,lone,desc_a,info,iiy,jjy) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkvect(m,lone,lldz,iz,lone,desc_a,info,iiz,jjz) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkvect 2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + if ((iix /= ione).or.(iiy /= ione).or.(iiz /= ione)) then + info=psb_err_ix_n1_iy_n1_unsupported_ + call psb_errpush(info,name) + end if + + if(desc_a%get_local_rows() > 0) then + call zaxpby(desc_a%get_local_cols(),ione,& + & alpha,x,lldx,beta,& + & y,lldy,z,lldz,info) + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_zaxpbyvout + ! ! Subroutine: psb_zaddconst_vect ! Adds one distributed vector to another, diff --git a/base/serial/psi_c_serial_impl.f90 b/base/serial/psi_c_serial_impl.f90 index 77841b762..2120683da 100644 --- a/base/serial/psi_c_serial_impl.f90 +++ b/base/serial/psi_c_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_caxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n complex(psb_spk_), intent (in) :: x(:,:) complex(psb_spk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call caxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_caxpby(m,n,alpha, x, beta, y, info) end subroutine psi_caxpby subroutine psi_caxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_spk_), intent (in) :: x(:) complex(psb_spk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call caxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_caxpbyv(m,alpha, x, beta, y, info) end subroutine psi_caxpbyv +subroutine psi_caxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_spk_), intent (in) :: x(:) + complex(psb_spk_), intent (in) :: y(:) + complex(psb_spk_), intent (inout) :: z(:) + complex(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call caxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_caxpbyv2 subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == czero) then - if (alpha == czero) then + if (beta == czero) then + if (alpha == czero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -cone) then + else if (alpha == -cone) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == cone) then + else + if (beta == cone) then ! Do nothing - else if (beta == -cone) then - y(1:n*k) = -y(1:n*k) + else if (beta == -cone) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == czero) then + if (alpha == czero) then ! do nothing - else if (alpha == cone) then + else if (alpha == cone) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_cgthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_cgthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == czero) then - if (alpha == czero) then + if (beta == czero) then + if (alpha == czero) then do i=1,n y(i) = czero end do - else if (alpha == cone) then + else if (alpha == cone) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -cone) then + else if (alpha == -cone) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == cone) then + else + if (beta == cone) then ! Do nothing - else if (beta == -cone) then - y(1:n) = -y(1:n) + else if (beta == -cone) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == czero) then + if (alpha == czero) then ! do nothing - else if (alpha == cone) then + else if (alpha == cone) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -cone) then + else if (alpha == -cone) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_cgthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_cgthzv(n,idx,x,y) end subroutine psi_cgthzv subroutine psi_csctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_csctmm(n,k,idx,x,beta,y) end subroutine psi_csctmm subroutine psi_csctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_csctv subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info complex(psb_spk_) X(lldx,*), Y(lldy,*) complex(psb_spk_) alpha, beta @@ -447,19 +508,19 @@ subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.czero) then - if (beta.eq.czero) then - do j=1, n - do i=1,m + if (alpha.eq.czero) then + if (beta.eq.czero) then + do j=1, n + do i=1,m y(i,j) = czero enddo enddo else if (beta.eq.cone) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-cone) then - do j=1,n - do i=1,m + else if (beta.eq.-cone) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.cone) then - if (beta.eq.czero) then - do j=1,n - do i=1,m + if (beta.eq.czero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.cone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-cone) then - do j=1,n - do i=1,m + else if (beta.eq.-cone) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-cone) then + else if (alpha.eq.-cone) then - if (beta.eq.czero) then - do j=1,n - do i=1,m + if (beta.eq.czero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.cone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-cone) then - do j=1,n - do i=1,m + else if (beta.eq.-cone) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.czero) then - do j=1,n - do i=1,m + if (beta.eq.czero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.cone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-cone) then - do j=1,n - do i=1,m + else if (beta.eq.-cone) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine caxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine caxpby + +subroutine caxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + complex(psb_spk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + complex(psb_spk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='caxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.czero) then + if (beta.eq.czero) then + do j=1, n + do i=1,m + Z(i,j) = czero + enddo + enddo + else if (beta.eq.cone) then + ! + ! Do nothing! + ! + + else if (beta.eq.-cone) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.cone) then + + if (beta.eq.czero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.cone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-cone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-cone) then + + if (beta.eq.czero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.cone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-cone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.czero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.cone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-cone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine caxpbyv2 diff --git a/base/serial/psi_d_serial_impl.f90 b/base/serial/psi_d_serial_impl.f90 index 0e1904f1e..0d80f459d 100644 --- a/base/serial/psi_d_serial_impl.f90 +++ b/base/serial/psi_d_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_daxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n real(psb_dpk_), intent (in) :: x(:,:) real(psb_dpk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call daxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_daxpby(m,n,alpha, x, beta, y, info) end subroutine psi_daxpby subroutine psi_daxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_dpk_), intent (in) :: x(:) real(psb_dpk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call daxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_daxpbyv(m,alpha, x, beta, y, info) end subroutine psi_daxpbyv +subroutine psi_daxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_dpk_), intent (in) :: x(:) + real(psb_dpk_), intent (in) :: y(:) + real(psb_dpk_), intent (inout) :: z(:) + real(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call daxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_daxpbyv2 subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == dzero) then - if (alpha == dzero) then + if (beta == dzero) then + if (alpha == dzero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -done) then + else if (alpha == -done) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == done) then + else + if (beta == done) then ! Do nothing - else if (beta == -done) then - y(1:n*k) = -y(1:n*k) + else if (beta == -done) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == dzero) then + if (alpha == dzero) then ! do nothing - else if (alpha == done) then + else if (alpha == done) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_dgthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_dgthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == dzero) then - if (alpha == dzero) then + if (beta == dzero) then + if (alpha == dzero) then do i=1,n y(i) = dzero end do - else if (alpha == done) then + else if (alpha == done) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -done) then + else if (alpha == -done) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == done) then + else + if (beta == done) then ! Do nothing - else if (beta == -done) then - y(1:n) = -y(1:n) + else if (beta == -done) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == dzero) then + if (alpha == dzero) then ! do nothing - else if (alpha == done) then + else if (alpha == done) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -done) then + else if (alpha == -done) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_dgthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_dgthzv(n,idx,x,y) end subroutine psi_dgthzv subroutine psi_dsctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_dsctmm(n,k,idx,x,beta,y) end subroutine psi_dsctmm subroutine psi_dsctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_dsctv subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info real(psb_dpk_) X(lldx,*), Y(lldy,*) real(psb_dpk_) alpha, beta @@ -447,19 +508,19 @@ subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.dzero) then - if (beta.eq.dzero) then - do j=1, n - do i=1,m + if (alpha.eq.dzero) then + if (beta.eq.dzero) then + do j=1, n + do i=1,m y(i,j) = dzero enddo enddo else if (beta.eq.done) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-done) then - do j=1,n - do i=1,m + else if (beta.eq.-done) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.done) then - if (beta.eq.dzero) then - do j=1,n - do i=1,m + if (beta.eq.dzero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.done) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-done) then - do j=1,n - do i=1,m + else if (beta.eq.-done) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-done) then + else if (alpha.eq.-done) then - if (beta.eq.dzero) then - do j=1,n - do i=1,m + if (beta.eq.dzero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.done) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-done) then - do j=1,n - do i=1,m + else if (beta.eq.-done) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.dzero) then - do j=1,n - do i=1,m + if (beta.eq.dzero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.done) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-done) then - do j=1,n - do i=1,m + else if (beta.eq.-done) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine daxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine daxpby + +subroutine daxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + real(psb_dpk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + real(psb_dpk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='daxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.dzero) then + if (beta.eq.dzero) then + do j=1, n + do i=1,m + Z(i,j) = dzero + enddo + enddo + else if (beta.eq.done) then + ! + ! Do nothing! + ! + + else if (beta.eq.-done) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.done) then + + if (beta.eq.dzero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.done) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-done) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-done) then + + if (beta.eq.dzero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.done) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-done) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.dzero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.done) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-done) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine daxpbyv2 diff --git a/base/serial/psi_e_serial_impl.f90 b/base/serial/psi_e_serial_impl.f90 index 9f1986511..0595d87e3 100644 --- a/base/serial/psi_e_serial_impl.f90 +++ b/base/serial/psi_e_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_eaxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n integer(psb_epk_), intent (in) :: x(:,:) integer(psb_epk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_eaxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call eaxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_eaxpby(m,n,alpha, x, beta, y, info) end subroutine psi_eaxpby subroutine psi_eaxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m integer(psb_epk_), intent (in) :: x(:) integer(psb_epk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_eaxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call eaxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_eaxpbyv(m,alpha, x, beta, y, info) end subroutine psi_eaxpbyv +subroutine psi_eaxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + integer(psb_epk_), intent (in) :: x(:) + integer(psb_epk_), intent (in) :: y(:) + integer(psb_epk_), intent (inout) :: z(:) + integer(psb_epk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call eaxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_eaxpbyv2 subroutine psi_egthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_egthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == ezero) then - if (alpha == ezero) then + if (beta == ezero) then + if (alpha == ezero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_egthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -eone) then + else if (alpha == -eone) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_egthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == eone) then + else + if (beta == eone) then ! Do nothing - else if (beta == -eone) then - y(1:n*k) = -y(1:n*k) + else if (beta == -eone) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == ezero) then + if (alpha == ezero) then ! do nothing - else if (alpha == eone) then + else if (alpha == eone) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_egthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_egthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == ezero) then - if (alpha == ezero) then + if (beta == ezero) then + if (alpha == ezero) then do i=1,n y(i) = ezero end do - else if (alpha == eone) then + else if (alpha == eone) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -eone) then + else if (alpha == -eone) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == eone) then + else + if (beta == eone) then ! Do nothing - else if (beta == -eone) then - y(1:n) = -y(1:n) + else if (beta == -eone) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == ezero) then + if (alpha == ezero) then ! do nothing - else if (alpha == eone) then + else if (alpha == eone) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -eone) then + else if (alpha == -eone) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_egthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_egthzv(n,idx,x,y) end subroutine psi_egthzv subroutine psi_esctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_esctmm(n,k,idx,x,beta,y) end subroutine psi_esctmm subroutine psi_esctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_esctv subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info integer(psb_epk_) X(lldx,*), Y(lldy,*) integer(psb_epk_) alpha, beta @@ -447,19 +508,19 @@ subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.ezero) then - if (beta.eq.ezero) then - do j=1, n - do i=1,m + if (alpha.eq.ezero) then + if (beta.eq.ezero) then + do j=1, n + do i=1,m y(i,j) = ezero enddo enddo else if (beta.eq.eone) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-eone) then - do j=1,n - do i=1,m + else if (beta.eq.-eone) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.eone) then - if (beta.eq.ezero) then - do j=1,n - do i=1,m + if (beta.eq.ezero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.eone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-eone) then - do j=1,n - do i=1,m + else if (beta.eq.-eone) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-eone) then + else if (alpha.eq.-eone) then - if (beta.eq.ezero) then - do j=1,n - do i=1,m + if (beta.eq.ezero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.eone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-eone) then - do j=1,n - do i=1,m + else if (beta.eq.-eone) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.ezero) then - do j=1,n - do i=1,m + if (beta.eq.ezero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.eone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-eone) then - do j=1,n - do i=1,m + else if (beta.eq.-eone) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine eaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine eaxpby + +subroutine eaxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + integer(psb_epk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + integer(psb_epk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='eaxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.ezero) then + if (beta.eq.ezero) then + do j=1, n + do i=1,m + Z(i,j) = ezero + enddo + enddo + else if (beta.eq.eone) then + ! + ! Do nothing! + ! + + else if (beta.eq.-eone) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.eone) then + + if (beta.eq.ezero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.eone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-eone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-eone) then + + if (beta.eq.ezero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.eone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-eone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.ezero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.eone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-eone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine eaxpbyv2 diff --git a/base/serial/psi_m_serial_impl.f90 b/base/serial/psi_m_serial_impl.f90 index a885f2bd6..cc8b9f4f1 100644 --- a/base/serial/psi_m_serial_impl.f90 +++ b/base/serial/psi_m_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_maxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n integer(psb_mpk_), intent (in) :: x(:,:) integer(psb_mpk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_maxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call maxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_maxpby(m,n,alpha, x, beta, y, info) end subroutine psi_maxpby subroutine psi_maxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m integer(psb_mpk_), intent (in) :: x(:) integer(psb_mpk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_maxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call maxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_maxpbyv(m,alpha, x, beta, y, info) end subroutine psi_maxpbyv +subroutine psi_maxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + integer(psb_mpk_), intent (in) :: x(:) + integer(psb_mpk_), intent (in) :: y(:) + integer(psb_mpk_), intent (inout) :: z(:) + integer(psb_mpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call maxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_maxpbyv2 subroutine psi_mgthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_mgthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == mzero) then - if (alpha == mzero) then + if (beta == mzero) then + if (alpha == mzero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_mgthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -mone) then + else if (alpha == -mone) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_mgthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == mone) then + else + if (beta == mone) then ! Do nothing - else if (beta == -mone) then - y(1:n*k) = -y(1:n*k) + else if (beta == -mone) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == mzero) then + if (alpha == mzero) then ! do nothing - else if (alpha == mone) then + else if (alpha == mone) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_mgthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_mgthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == mzero) then - if (alpha == mzero) then + if (beta == mzero) then + if (alpha == mzero) then do i=1,n y(i) = mzero end do - else if (alpha == mone) then + else if (alpha == mone) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -mone) then + else if (alpha == -mone) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == mone) then + else + if (beta == mone) then ! Do nothing - else if (beta == -mone) then - y(1:n) = -y(1:n) + else if (beta == -mone) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == mzero) then + if (alpha == mzero) then ! do nothing - else if (alpha == mone) then + else if (alpha == mone) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -mone) then + else if (alpha == -mone) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_mgthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_mgthzv(n,idx,x,y) end subroutine psi_mgthzv subroutine psi_msctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_msctmm(n,k,idx,x,beta,y) end subroutine psi_msctmm subroutine psi_msctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_msctv subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info integer(psb_mpk_) X(lldx,*), Y(lldy,*) integer(psb_mpk_) alpha, beta @@ -447,19 +508,19 @@ subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.mzero) then - if (beta.eq.mzero) then - do j=1, n - do i=1,m + if (alpha.eq.mzero) then + if (beta.eq.mzero) then + do j=1, n + do i=1,m y(i,j) = mzero enddo enddo else if (beta.eq.mone) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-mone) then - do j=1,n - do i=1,m + else if (beta.eq.-mone) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.mone) then - if (beta.eq.mzero) then - do j=1,n - do i=1,m + if (beta.eq.mzero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.mone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-mone) then - do j=1,n - do i=1,m + else if (beta.eq.-mone) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-mone) then + else if (alpha.eq.-mone) then - if (beta.eq.mzero) then - do j=1,n - do i=1,m + if (beta.eq.mzero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.mone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-mone) then - do j=1,n - do i=1,m + else if (beta.eq.-mone) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.mzero) then - do j=1,n - do i=1,m + if (beta.eq.mzero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.mone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-mone) then - do j=1,n - do i=1,m + else if (beta.eq.-mone) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine maxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine maxpby + +subroutine maxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + integer(psb_mpk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + integer(psb_mpk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='maxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.mzero) then + if (beta.eq.mzero) then + do j=1, n + do i=1,m + Z(i,j) = mzero + enddo + enddo + else if (beta.eq.mone) then + ! + ! Do nothing! + ! + + else if (beta.eq.-mone) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.mone) then + + if (beta.eq.mzero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.mone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-mone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-mone) then + + if (beta.eq.mzero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.mone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-mone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.mzero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.mone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-mone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine maxpbyv2 diff --git a/base/serial/psi_s_serial_impl.f90 b/base/serial/psi_s_serial_impl.f90 index f9b837279..dfe2559be 100644 --- a/base/serial/psi_s_serial_impl.f90 +++ b/base/serial/psi_s_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_saxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n real(psb_spk_), intent (in) :: x(:,:) real(psb_spk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call saxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_saxpby(m,n,alpha, x, beta, y, info) end subroutine psi_saxpby subroutine psi_saxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m real(psb_spk_), intent (in) :: x(:) real(psb_spk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call saxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_saxpbyv(m,alpha, x, beta, y, info) end subroutine psi_saxpbyv +subroutine psi_saxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + real(psb_spk_), intent (in) :: x(:) + real(psb_spk_), intent (in) :: y(:) + real(psb_spk_), intent (inout) :: z(:) + real(psb_spk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call saxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_saxpbyv2 subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == szero) then - if (alpha == szero) then + if (beta == szero) then + if (alpha == szero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -sone) then + else if (alpha == -sone) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == sone) then + else + if (beta == sone) then ! Do nothing - else if (beta == -sone) then - y(1:n*k) = -y(1:n*k) + else if (beta == -sone) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == szero) then + if (alpha == szero) then ! do nothing - else if (alpha == sone) then + else if (alpha == sone) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_sgthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_sgthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == szero) then - if (alpha == szero) then + if (beta == szero) then + if (alpha == szero) then do i=1,n y(i) = szero end do - else if (alpha == sone) then + else if (alpha == sone) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -sone) then + else if (alpha == -sone) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == sone) then + else + if (beta == sone) then ! Do nothing - else if (beta == -sone) then - y(1:n) = -y(1:n) + else if (beta == -sone) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == szero) then + if (alpha == szero) then ! do nothing - else if (alpha == sone) then + else if (alpha == sone) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -sone) then + else if (alpha == -sone) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_sgthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_sgthzv(n,idx,x,y) end subroutine psi_sgthzv subroutine psi_ssctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_ssctmm(n,k,idx,x,beta,y) end subroutine psi_ssctmm subroutine psi_ssctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_ssctv subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info real(psb_spk_) X(lldx,*), Y(lldy,*) real(psb_spk_) alpha, beta @@ -447,19 +508,19 @@ subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.szero) then - if (beta.eq.szero) then - do j=1, n - do i=1,m + if (alpha.eq.szero) then + if (beta.eq.szero) then + do j=1, n + do i=1,m y(i,j) = szero enddo enddo else if (beta.eq.sone) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-sone) then - do j=1,n - do i=1,m + else if (beta.eq.-sone) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.sone) then - if (beta.eq.szero) then - do j=1,n - do i=1,m + if (beta.eq.szero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.sone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-sone) then - do j=1,n - do i=1,m + else if (beta.eq.-sone) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-sone) then + else if (alpha.eq.-sone) then - if (beta.eq.szero) then - do j=1,n - do i=1,m + if (beta.eq.szero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.sone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-sone) then - do j=1,n - do i=1,m + else if (beta.eq.-sone) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.szero) then - do j=1,n - do i=1,m + if (beta.eq.szero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.sone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-sone) then - do j=1,n - do i=1,m + else if (beta.eq.-sone) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine saxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine saxpby + +subroutine saxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + real(psb_spk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + real(psb_spk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='saxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.szero) then + if (beta.eq.szero) then + do j=1, n + do i=1,m + Z(i,j) = szero + enddo + enddo + else if (beta.eq.sone) then + ! + ! Do nothing! + ! + + else if (beta.eq.-sone) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.sone) then + + if (beta.eq.szero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.sone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-sone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-sone) then + + if (beta.eq.szero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.sone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-sone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.szero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.sone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-sone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine saxpbyv2 diff --git a/base/serial/psi_z_serial_impl.f90 b/base/serial/psi_z_serial_impl.f90 index 8d9454304..5b7036e64 100644 --- a/base/serial/psi_z_serial_impl.f90 +++ b/base/serial/psi_z_serial_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! +! +! subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m, n complex(psb_dpk_), intent (in) :: x(:,:) complex(psb_dpk_), intent (inout) :: y(:,:) @@ -55,27 +55,27 @@ subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (n < 0) then info = psb_err_iarg_neg_ ierr(1) = 2; ierr(2) = n call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then + if (lx < m) then info = psb_err_input_asize_small_i_ ierr(1) = 4; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 6; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if ((m>0).and.(n>0)) call zaxpby(m,n,alpha,x,lx,beta,y,ly,info) @@ -89,10 +89,10 @@ subroutine psi_zaxpby(m,n,alpha, x, beta, y, info) end subroutine psi_zaxpby subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) - + use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m complex(psb_dpk_), intent (in) :: x(:) complex(psb_dpk_), intent (inout) :: y(:) @@ -114,21 +114,21 @@ subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) info = psb_err_iarg_neg_ ierr(1) = 1; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if lx = size(x,1) ly = size(y,1) - if (lx < m) then - info = psb_err_input_asize_small_i_ + if (lx < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 3; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if - if (ly < m) then - info = psb_err_input_asize_small_i_ + if (ly < m) then + info = psb_err_input_asize_small_i_ ierr(1) = 5; ierr(2) = m call psb_errpush(info,name,i_err=ierr) - goto 9999 + goto 9999 end if if (m>0) call zaxpby(m,ione,alpha,x,lx,beta,y,ly,info) @@ -142,6 +142,67 @@ subroutine psi_zaxpbyv(m,alpha, x, beta, y, info) end subroutine psi_zaxpbyv +subroutine psi_zaxpbyv2(m,alpha, x, beta, y, z, info) + + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_), intent(in) :: m + complex(psb_dpk_), intent (in) :: x(:) + complex(psb_dpk_), intent (in) :: y(:) + complex(psb_dpk_), intent (inout) :: z(:) + complex(psb_dpk_), intent (in) :: alpha, beta + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: lx, ly, lz + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name, ch_err + + name='psb_geaxpby' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + if (m < 0) then + info = psb_err_iarg_neg_ + ierr(1) = 1; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + lx = size(x,1) + ly = size(y,1) + lz = size(z,1) + if (lx < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 3; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (ly < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + if (lz < m) then + info = psb_err_input_asize_small_i_ + ierr(1) = 5; ierr(2) = m + call psb_errpush(info,name,i_err=ierr) + goto 9999 + end if + + if (m>0) call zaxpbyv2(m,ione,alpha,x,lx,beta,y,ly,z,lz,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psi_zaxpbyv2 subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y) @@ -154,8 +215,8 @@ subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i, j, pt - if (beta == zzero) then - if (alpha == zzero) then + if (beta == zzero) then + if (alpha == zzero) then pt=0 do j=1,k do i=1,n @@ -171,11 +232,11 @@ subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y) y(pt) = x(idx(i),j) end do end do - else if (alpha == -zone) then + else if (alpha == -zone) then pt=0 do j=1,k do i=1,n - pt=pt+1 + pt=pt+1 y(pt) = -x(idx(i),j) end do end do @@ -188,18 +249,18 @@ subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y) end do end do end if - else - if (beta == zone) then + else + if (beta == zone) then ! Do nothing - else if (beta == -zone) then - y(1:n*k) = -y(1:n*k) + else if (beta == -zone) then + y(1:n*k) = -y(1:n*k) else - y(1:n*k) = beta*y(1:n*k) + y(1:n*k) = beta*y(1:n*k) end if - if (alpha == zzero) then + if (alpha == zzero) then ! do nothing - else if (alpha == zone) then + else if (alpha == zone) then pt=0 do j=1,k do i=1,n @@ -215,7 +276,7 @@ subroutine psi_zgthmv(n,k,idx,alpha,x,beta,y) y(pt) = y(pt) - x(idx(i),j) end do end do - else + else pt=0 do j=1,k do i=1,n @@ -238,44 +299,44 @@ subroutine psi_zgthv(n,idx,alpha,x,beta,y) ! Locals integer(psb_ipk_) :: i - if (beta == zzero) then - if (alpha == zzero) then + if (beta == zzero) then + if (alpha == zzero) then do i=1,n y(i) = zzero end do - else if (alpha == zone) then + else if (alpha == zone) then do i=1,n y(i) = x(idx(i)) end do - else if (alpha == -zone) then + else if (alpha == -zone) then do i=1,n y(i) = -x(idx(i)) end do - else + else do i=1,n y(i) = alpha*x(idx(i)) end do end if - else - if (beta == zone) then + else + if (beta == zone) then ! Do nothing - else if (beta == -zone) then - y(1:n) = -y(1:n) + else if (beta == -zone) then + y(1:n) = -y(1:n) else - y(1:n) = beta*y(1:n) + y(1:n) = beta*y(1:n) end if - if (alpha == zzero) then + if (alpha == zzero) then ! do nothing - else if (alpha == zone) then + else if (alpha == zone) then do i=1,n y(i) = y(i) + x(idx(i)) end do - else if (alpha == -zone) then + else if (alpha == -zone) then do i=1,n y(i) = y(i) - x(idx(i)) end do - else + else do i=1,n y(i) = y(i) + alpha*x(idx(i)) end do @@ -295,7 +356,7 @@ subroutine psi_zgthzmm(n,k,idx,x,y) ! Locals integer(psb_ipk_) :: i - + do i=1,n y(i,1:k)=x(idx(i),1:k) end do @@ -341,7 +402,7 @@ subroutine psi_zgthzv(n,idx,x,y) end subroutine psi_zgthzv subroutine psi_zsctmm(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -367,7 +428,7 @@ subroutine psi_zsctmm(n,k,idx,x,beta,y) end subroutine psi_zsctmm subroutine psi_zsctmv(n,k,idx,x,beta,y) - + use psb_const_mod implicit none @@ -433,7 +494,7 @@ end subroutine psi_zsctv subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) use psb_const_mod use psb_error_mod - implicit none + implicit none integer(psb_ipk_) :: n, m, lldx, lldy, info complex(psb_dpk_) X(lldx,*), Y(lldy,*) complex(psb_dpk_) alpha, beta @@ -447,19 +508,19 @@ subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) ! Error handling ! info = psb_success_ - if (m.lt.0) then + if (m.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (n.lt.0) then + else if (n.lt.0) then info=psb_err_iarg_neg_ int_err(1)=1 int_err(2)=n call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldx.lt.max(1,m)) then + else if (lldx.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=5 int_err(2)=1 @@ -467,7 +528,7 @@ subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) int_err(4)=m call fcpsb_errpush(info,name,int_err) goto 9999 - else if (lldy.lt.max(1,m)) then + else if (lldy.lt.max(1,m)) then info=psb_err_iarg_not_gtia_ii_ int_err(1)=8 int_err(2)=1 @@ -477,27 +538,27 @@ subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) goto 9999 endif - if (alpha.eq.zzero) then - if (beta.eq.zzero) then - do j=1, n - do i=1,m + if (alpha.eq.zzero) then + if (beta.eq.zzero) then + do j=1, n + do i=1,m y(i,j) = zzero enddo enddo else if (beta.eq.zone) then - ! - ! Do nothing! - ! + ! + ! Do nothing! + ! - else if (beta.eq.-zone) then - do j=1,n - do i=1,m + else if (beta.eq.-zone) then + do j=1,n + do i=1,m y(i,j) = - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = beta*y(i,j) enddo enddo @@ -505,86 +566,86 @@ subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) else if (alpha.eq.zone) then - if (beta.eq.zzero) then - do j=1,n - do i=1,m + if (beta.eq.zzero) then + do j=1,n + do i=1,m y(i,j) = x(i,j) enddo enddo else if (beta.eq.zone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-zone) then - do j=1,n - do i=1,m + else if (beta.eq.-zone) then + do j=1,n + do i=1,m y(i,j) = x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = x(i,j) + beta*y(i,j) enddo enddo endif - else if (alpha.eq.-zone) then + else if (alpha.eq.-zone) then - if (beta.eq.zzero) then - do j=1,n - do i=1,m + if (beta.eq.zzero) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) enddo enddo else if (beta.eq.zone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = -x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-zone) then - do j=1,n - do i=1,m + else if (beta.eq.-zone) then + do j=1,n + do i=1,m y(i,j) = -x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = -x(i,j) + beta*y(i,j) enddo enddo endif - else + else - if (beta.eq.zzero) then - do j=1,n - do i=1,m + if (beta.eq.zzero) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) enddo enddo else if (beta.eq.zone) then - do j=1,n - do i=1,m + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + y(i,j) enddo enddo - else if (beta.eq.-zone) then - do j=1,n - do i=1,m + else if (beta.eq.-zone) then + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) - y(i,j) enddo enddo - else - do j=1,n - do i=1,m + else + do j=1,n + do i=1,m y(i,j) = alpha*x(i,j) + beta*y(i,j) enddo enddo @@ -599,3 +660,181 @@ subroutine zaxpby(m, n, alpha, X, lldx, beta, Y, lldy, info) return end subroutine zaxpby + +subroutine zaxpbyv2(m, n, alpha, X, lldx, beta, Y, lldy, Z, lldz, info) + use psb_const_mod + use psb_error_mod + implicit none + integer(psb_ipk_) :: n, m, lldx, lldy, lldz, info + complex(psb_dpk_) X(lldx,*), Y(lldy,*), Z(lldy,*) + complex(psb_dpk_) alpha, beta + integer(psb_ipk_) :: i, j + integer(psb_ipk_) :: int_err(5) + character name*20 + name='zaxpby' + + + ! + ! Error handling + ! + info = psb_success_ + if (m.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (n.lt.0) then + info=psb_err_iarg_neg_ + int_err(1)=1 + int_err(2)=n + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldx.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=5 + int_err(2)=1 + int_err(3)=lldx + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldy.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldy + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + else if (lldz.lt.max(1,m)) then + info=psb_err_iarg_not_gtia_ii_ + int_err(1)=8 + int_err(2)=1 + int_err(3)=lldz + int_err(4)=m + call fcpsb_errpush(info,name,int_err) + goto 9999 + endif + + if (alpha.eq.zzero) then + if (beta.eq.zzero) then + do j=1, n + do i=1,m + Z(i,j) = zzero + enddo + enddo + else if (beta.eq.zone) then + ! + ! Do nothing! + ! + + else if (beta.eq.-zone) then + do j=1,n + do i=1,m + Z(i,j) = - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.zone) then + + if (beta.eq.zzero) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + enddo + enddo + else if (beta.eq.zone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-zone) then + do j=1,n + do i=1,m + Z(i,j) = x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else if (alpha.eq.-zone) then + + if (beta.eq.zzero) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + enddo + enddo + else if (beta.eq.zone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-zone) then + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = -x(i,j) + beta*y(i,j) + enddo + enddo + endif + + else + + if (beta.eq.zzero) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + enddo + enddo + else if (beta.eq.zone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + y(i,j) + enddo + enddo + + else if (beta.eq.-zone) then + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) - y(i,j) + enddo + enddo + else + do j=1,n + do i=1,m + Z(i,j) = alpha*x(i,j) + beta*y(i,j) + enddo + enddo + endif + + endif + + return + +9999 continue + call fcpsb_serror() + return + +end subroutine zaxpbyv2 diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 9ae6ef1f0..f02584190 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -53,6 +53,8 @@ psb_s_t psb_c_cgeasum(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cspnrmi(psb_c_cspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_cgeaxpby(psb_c_t alpha, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); +psb_i_t psb_c_cgeaxpbyz(psb_c_t alpha, psb_c_cvector *xh, + psb_c_t beta, psb_c_cvector *yh, psb_c_cvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_cspmm(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_cspmm_opt(psb_c_t alpha, psb_c_cspmat *ah, psb_c_cvector *xh, diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 04f5d2324..a31041071 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -53,6 +53,8 @@ psb_d_t psb_c_dgeasum(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dspnrmi(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_dgeaxpby(psb_d_t alpha, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); +psb_i_t psb_c_dgeaxpbyz(psb_d_t alpha, psb_c_dvector *xh, + psb_d_t beta, psb_c_dvector *yh, psb_c_dvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_dspmm(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_dspmm_opt(psb_d_t alpha, psb_c_dspmat *ah, psb_c_dvector *xh, diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 608db58b6..6bbee9203 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -43,6 +43,49 @@ contains end function psb_c_cgeaxpby + function psb_c_cgeaxpbyz(alpha,xh,beta,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + complex(c_float_complex), value :: alpha,beta + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaxpby(alpha,xp,beta,yp,zp,descp,info) + + res = info + + end function psb_c_cgeaxpbyz + function psb_c_cgemlt(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 6aa4db188..55f6b0e81 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -53,6 +53,8 @@ psb_s_t psb_c_sgeasum(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sspnrmi(psb_c_sspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_sgeaxpby(psb_s_t alpha, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); +psb_i_t psb_c_sgeaxpbyz(psb_s_t alpha, psb_c_svector *xh, + psb_s_t beta, psb_c_svector *yh, psb_c_svector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_sspmm(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_sspmm_opt(psb_s_t alpha, psb_c_sspmat *ah, psb_c_svector *xh, diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index c3c9e342b..fadd23a9d 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -53,6 +53,8 @@ psb_d_t psb_c_zgeasum(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zspnrmi(psb_c_zspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_zgeaxpby(psb_z_t alpha, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); +psb_i_t psb_c_zgeaxpbyz(psb_z_t alpha, psb_c_zvector *xh, + psb_z_t beta, psb_c_zvector *yh, psb_c_zvector *zh, psb_c_descriptor *cdh); psb_i_t psb_c_zspmm(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_zspmm_opt(psb_z_t alpha, psb_c_zspmat *ah, psb_c_zvector *xh, diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 37d315c04..fd2d670a7 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -43,6 +43,49 @@ contains end function psb_c_dgeaxpby + function psb_c_dgeaxpbyz(alpha,xh,beta,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + real(c_double), value :: alpha,beta + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaxpby(alpha,xp,beta,yp,zp,descp,info) + + res = info + + end function psb_c_dgeaxpbyz + function psb_c_dgemlt(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index dd42f6f58..9a7a35715 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -43,6 +43,49 @@ contains end function psb_c_sgeaxpby + function psb_c_sgeaxpbyz(alpha,xh,beta,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + real(c_float), value :: alpha,beta + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaxpby(alpha,xp,beta,yp,zp,descp,info) + + res = info + + end function psb_c_sgeaxpbyz + function psb_c_sgemlt(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index b25068536..1b7f83a67 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -43,6 +43,49 @@ contains end function psb_c_zgeaxpby + function psb_c_zgeaxpbyz(alpha,xh,beta,yh,zh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: xh,yh,zh + type(psb_c_descriptor) :: cdh + complex(c_double_complex), value :: alpha,beta + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp,zp + 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 + call c_f_pointer(xh%item,xp) + else + return + end if + if (c_associated(yh%item)) then + call c_f_pointer(yh%item,yp) + else + return + end if + + if (c_associated(zh%item)) then + call c_f_pointer(zh%item,zp) + else + return + end if + + call psb_geaxpby(alpha,xp,beta,yp,zp,descp,info) + + res = info + + end function psb_c_zgeaxpbyz + function psb_c_zgemlt(xh,yh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res From 177bc6ecb3facf443be5c9fdfae3298e3094af16 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 26 Mar 2020 18:58:47 +0100 Subject: [PATCH 29/61] Added function psb_c_dvect_f_get_pnt to get pointer to vector data structure --- cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_serial_cbind_mod.F90 | 85 ++++++++++++++++----------- cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_serial_cbind_mod.F90 | 85 ++++++++++++++++----------- cbind/base/psb_s_serial_cbind_mod.F90 | 85 ++++++++++++++++----------- cbind/base/psb_z_serial_cbind_mod.F90 | 85 ++++++++++++++++----------- 8 files changed, 208 insertions(+), 136 deletions(-) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index f02584190..b977a3fb1 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -21,6 +21,7 @@ psb_i_t psb_c_cvect_get_nrows(psb_c_cvector *xh); psb_c_t *psb_c_cvect_get_cpy( psb_c_cvector *xh); psb_i_t psb_c_cvect_f_get_cpy(psb_c_t *v, psb_c_cvector *xh); 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_cgeins(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val, diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index a31041071..4a1ee6012 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -21,6 +21,7 @@ psb_i_t psb_c_dvect_get_nrows(psb_c_dvector *xh); psb_d_t *psb_c_dvect_get_cpy( psb_c_dvector *xh); psb_i_t psb_c_dvect_f_get_cpy(psb_d_t *v, psb_c_dvector *xh); 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_dgeins(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val, diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 55f6b0e81..bee92c658 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -21,6 +21,7 @@ psb_i_t psb_c_svect_get_nrows(psb_c_svector *xh); psb_s_t *psb_c_svect_get_cpy( psb_c_svector *xh); psb_i_t psb_c_svect_f_get_cpy(psb_s_t *v, psb_c_svector *xh); 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_sgeins(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val, diff --git a/cbind/base/psb_c_serial_cbind_mod.F90 b/cbind/base/psb_c_serial_cbind_mod.F90 index 5c05abd0e..d46e776ce 100644 --- a/cbind/base/psb_c_serial_cbind_mod.F90 +++ b/cbind/base/psb_c_serial_cbind_mod.F90 @@ -7,11 +7,11 @@ module psb_c_serial_cbind_mod contains - - function psb_c_cvect_get_nrows(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_cvect_get_nrows(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_cvector) :: xh type(psb_c_vect_type), pointer :: vp @@ -19,27 +19,27 @@ contains res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) res = vp%get_nrows() end if end function psb_c_cvect_get_nrows - - function psb_c_cvect_f_get_cpy(v,xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_cvect_f_get_cpy(v,xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res complex(c_float_complex) :: v(*) type(psb_c_cvector) :: xh - + type(psb_c_vect_type), pointer :: vp complex(psb_spk_), allocatable :: fv(:) integer(psb_c_ipk_) :: info, sz res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) fv = vp%get_vect() sz = size(fv) @@ -48,31 +48,49 @@ contains end function psb_c_cvect_f_get_cpy - - function psb_c_cvect_zero(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_cvect_zero(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_cvector) :: xh - + type(psb_c_vect_type), pointer :: vp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) call vp%zero() end if end function psb_c_cvect_zero - + function psb_c_cvect_f_get_pnt(xh) bind(c) result(res) + implicit none + + type(c_ptr) :: res + type(psb_c_cvector) :: xh + + type(psb_c_vect_type), pointer :: vp + + res = c_null_ptr + + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,vp) + if(vp%is_dev()) call vp%sync() + res = c_loc(vp%v%v) + end if + + end function psb_c_cvect_f_get_pnt + + function psb_c_cmat_get_nrows(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: mh @@ -80,22 +98,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_nrows() end function psb_c_cmat_get_nrows - + function psb_c_cmat_get_ncols(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: mh @@ -103,22 +121,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_ncols() end function psb_c_cmat_get_ncols - + function psb_c_cmat_name_print(mh,name) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res character(c_char) :: name(*) @@ -128,17 +146,16 @@ contains character(1024) :: fname res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if call stringc2f(name,fname) - + call ap%print(fname,head='PSBLAS Cbinding Interface') end function psb_c_cmat_name_print - + end module psb_c_serial_cbind_mod - diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index fadd23a9d..29cb2d3fb 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -21,6 +21,7 @@ psb_i_t psb_c_zvect_get_nrows(psb_c_zvector *xh); psb_z_t *psb_c_zvect_get_cpy( psb_c_zvector *xh); psb_i_t psb_c_zvect_f_get_cpy(psb_z_t *v, psb_c_zvector *xh); 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_zgeins(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val, diff --git a/cbind/base/psb_d_serial_cbind_mod.F90 b/cbind/base/psb_d_serial_cbind_mod.F90 index d8c1e7291..f8f742fc1 100644 --- a/cbind/base/psb_d_serial_cbind_mod.F90 +++ b/cbind/base/psb_d_serial_cbind_mod.F90 @@ -7,11 +7,11 @@ module psb_d_serial_cbind_mod contains - - function psb_c_dvect_get_nrows(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_dvect_get_nrows(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_dvector) :: xh type(psb_d_vect_type), pointer :: vp @@ -19,27 +19,27 @@ contains res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) res = vp%get_nrows() end if end function psb_c_dvect_get_nrows - - function psb_c_dvect_f_get_cpy(v,xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_dvect_f_get_cpy(v,xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res real(c_double) :: v(*) type(psb_c_dvector) :: xh - + type(psb_d_vect_type), pointer :: vp real(psb_dpk_), allocatable :: fv(:) integer(psb_c_ipk_) :: info, sz res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) fv = vp%get_vect() sz = size(fv) @@ -48,31 +48,49 @@ contains end function psb_c_dvect_f_get_cpy - - function psb_c_dvect_zero(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_dvect_zero(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_dvector) :: xh - + type(psb_d_vect_type), pointer :: vp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) call vp%zero() end if end function psb_c_dvect_zero - + function psb_c_dvect_f_get_pnt(xh) bind(c) result(res) + implicit none + + type(c_ptr) :: res + type(psb_c_dvector) :: xh + + type(psb_d_vect_type), pointer :: vp + + res = c_null_ptr + + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,vp) + if(vp%is_dev()) call vp%sync() + res = c_loc(vp%v%v) + end if + + end function psb_c_dvect_f_get_pnt + + function psb_c_dmat_get_nrows(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: mh @@ -80,22 +98,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_nrows() end function psb_c_dmat_get_nrows - + function psb_c_dmat_get_ncols(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: mh @@ -103,22 +121,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_ncols() end function psb_c_dmat_get_ncols - + function psb_c_dmat_name_print(mh,name) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res character(c_char) :: name(*) @@ -128,17 +146,16 @@ contains character(1024) :: fname res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if call stringc2f(name,fname) - + call ap%print(fname,head='PSBLAS Cbinding Interface') end function psb_c_dmat_name_print - + end module psb_d_serial_cbind_mod - diff --git a/cbind/base/psb_s_serial_cbind_mod.F90 b/cbind/base/psb_s_serial_cbind_mod.F90 index 5df7ff899..65a0bae7c 100644 --- a/cbind/base/psb_s_serial_cbind_mod.F90 +++ b/cbind/base/psb_s_serial_cbind_mod.F90 @@ -7,11 +7,11 @@ module psb_s_serial_cbind_mod contains - - function psb_c_svect_get_nrows(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_svect_get_nrows(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_svector) :: xh type(psb_s_vect_type), pointer :: vp @@ -19,27 +19,27 @@ contains res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) res = vp%get_nrows() end if end function psb_c_svect_get_nrows - - function psb_c_svect_f_get_cpy(v,xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_svect_f_get_cpy(v,xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res real(c_float) :: v(*) type(psb_c_svector) :: xh - + type(psb_s_vect_type), pointer :: vp real(psb_spk_), allocatable :: fv(:) integer(psb_c_ipk_) :: info, sz res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) fv = vp%get_vect() sz = size(fv) @@ -48,31 +48,49 @@ contains end function psb_c_svect_f_get_cpy - - function psb_c_svect_zero(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_svect_zero(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_svector) :: xh - + type(psb_s_vect_type), pointer :: vp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) call vp%zero() end if end function psb_c_svect_zero - + function psb_c_svect_f_get_pnt(xh) bind(c) result(res) + implicit none + + type(c_ptr) :: res + type(psb_c_svector) :: xh + + type(psb_s_vect_type), pointer :: vp + + res = c_null_ptr + + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,vp) + if(vp%is_dev()) call vp%sync() + res = c_loc(vp%v%v) + end if + + end function psb_c_svect_f_get_pnt + + function psb_c_smat_get_nrows(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: mh @@ -80,22 +98,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_nrows() end function psb_c_smat_get_nrows - + function psb_c_smat_get_ncols(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: mh @@ -103,22 +121,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_ncols() end function psb_c_smat_get_ncols - + function psb_c_smat_name_print(mh,name) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res character(c_char) :: name(*) @@ -128,17 +146,16 @@ contains character(1024) :: fname res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if call stringc2f(name,fname) - + call ap%print(fname,head='PSBLAS Cbinding Interface') end function psb_c_smat_name_print - + end module psb_s_serial_cbind_mod - diff --git a/cbind/base/psb_z_serial_cbind_mod.F90 b/cbind/base/psb_z_serial_cbind_mod.F90 index 27cfa76ac..01dfa0182 100644 --- a/cbind/base/psb_z_serial_cbind_mod.F90 +++ b/cbind/base/psb_z_serial_cbind_mod.F90 @@ -7,11 +7,11 @@ module psb_z_serial_cbind_mod contains - - function psb_c_zvect_get_nrows(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_zvect_get_nrows(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_zvector) :: xh type(psb_z_vect_type), pointer :: vp @@ -19,27 +19,27 @@ contains res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) res = vp%get_nrows() end if end function psb_c_zvect_get_nrows - - function psb_c_zvect_f_get_cpy(v,xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_zvect_f_get_cpy(v,xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res complex(c_double_complex) :: v(*) type(psb_c_zvector) :: xh - + type(psb_z_vect_type), pointer :: vp complex(psb_dpk_), allocatable :: fv(:) integer(psb_c_ipk_) :: info, sz res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) fv = vp%get_vect() sz = size(fv) @@ -48,31 +48,49 @@ contains end function psb_c_zvect_f_get_cpy - - function psb_c_zvect_zero(xh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_zvect_zero(xh) bind(c) result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_zvector) :: xh - + type(psb_z_vect_type), pointer :: vp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(xh%item)) then + if (c_associated(xh%item)) then call c_f_pointer(xh%item,vp) call vp%zero() end if end function psb_c_zvect_zero - + function psb_c_zvect_f_get_pnt(xh) bind(c) result(res) + implicit none + + type(c_ptr) :: res + type(psb_c_zvector) :: xh + + type(psb_z_vect_type), pointer :: vp + + res = c_null_ptr + + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,vp) + if(vp%is_dev()) call vp%sync() + res = c_loc(vp%v%v) + end if + + end function psb_c_zvect_f_get_pnt + + function psb_c_zmat_get_nrows(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: mh @@ -80,22 +98,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_nrows() end function psb_c_zmat_get_nrows - + function psb_c_zmat_get_ncols(mh) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: mh @@ -103,22 +121,22 @@ contains integer(psb_c_ipk_) :: info res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if - + res = ap%get_ncols() end function psb_c_zmat_get_ncols - + function psb_c_zmat_name_print(mh,name) bind(c) result(res) use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod - implicit none + implicit none integer(psb_c_ipk_) :: res character(c_char) :: name(*) @@ -128,17 +146,16 @@ contains character(1024) :: fname res = 0 - if (c_associated(mh%item)) then + if (c_associated(mh%item)) then call c_f_pointer(mh%item,ap) else - return + return end if call stringc2f(name,fname) - + call ap%print(fname,head='PSBLAS Cbinding Interface') end function psb_c_zmat_name_print - + end module psb_z_serial_cbind_mod - From ea6ad3a85fdf7209897b9f15e9bca3429dd6e3fc Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 11:36:09 +0200 Subject: [PATCH 30/61] Corrected bug in out-of-place axpby --- base/psblas/psb_caxpby.f90 | 2 +- base/psblas/psb_daxpby.f90 | 2 +- base/psblas/psb_saxpby.f90 | 2 +- base/psblas/psb_zaxpby.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index b92072ab8..2311f3e2c 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_caxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index 4ee12d46d..c3a54f93a 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_daxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 0c619984a..6384968ec 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_saxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index f60e87393..b5863d5ae 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -263,7 +263,7 @@ subroutine psb_zaxpby_vect_out(alpha, x, beta, y,& if(desc_a%get_local_rows() > 0) then call z%axpby(desc_a%get_local_rows(),& - & alpha,x,beta,z,info) + & alpha,x,beta,y,info) end if call psb_erractionrestore(err_act) From effb97630570ef46d16850a4379a4a6ca34bbe4a Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 12:03:54 +0200 Subject: [PATCH 31/61] Added test for out-of-place psb_gemlt --- test/kernel/vecoperation.f90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 330eeea12..3969f75fe 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -181,6 +181,18 @@ program vecoperation write(psb_out_unit,'("y = ",es12.1)')vy(:) end if + call psb_gemlt(1.0_psb_dpk_,x,y,0.0_psb_dpk_,z,desc_a,info) + + if (iam == psb_root_) then + write(psb_out_unit,'("mlt : z = x*y ")') + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + vz = z%get_vect() + write(psb_out_unit,'("z = ",es12.1)')vz(:) + end if + call psb_gediv(x,y,desc_a,info) if (iam == psb_root_) then From 28c1efe6500bf243f3ab993ace240e0a03c8af42 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 13:46:34 +0200 Subject: [PATCH 32/61] Corrected pass argument in div routines --- base/modules/serial/psb_c_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_c_vect_mod.F90 | 2 +- base/modules/serial/psb_d_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_d_vect_mod.F90 | 2 +- base/modules/serial/psb_s_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_s_vect_mod.F90 | 2 +- base/modules/serial/psb_z_base_vect_mod.f90 | 4 ++-- base/modules/serial/psb_z_vect_mod.F90 | 2 +- test/kernel/vecoperation.f90 | 12 ++++++++++++ 9 files changed, 24 insertions(+), 12 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 887b9e3b8..249f533d3 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -171,8 +171,8 @@ module psb_c_base_vect_mod ! procedure, pass(x) :: div_v => c_base_div_v procedure, pass(x) :: div_v_check => c_base_div_v_check - procedure, pass(x) :: div_v2 => c_base_div_v2 - procedure, pass(x) :: div_v2_check => c_base_div_v2_check + procedure, pass(z) :: div_v2 => c_base_div_v2 + procedure, pass(z) :: div_v2_check => c_base_div_v2_check procedure, pass(z) :: div_a2 => c_base_div_a2 procedure, pass(z) :: div_a2_check => c_base_div_a2_check generic, public :: div => div_v, div_v2, div_v_check, & diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index cbfdc1162..0e4ffab14 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -97,7 +97,7 @@ module psb_c_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => c_vect_div_v - procedure, pass(x) :: div_v2 => c_vect_div_v2 + procedure, pass(z) :: div_v2 => c_vect_div_v2 procedure, pass(x) :: div_v_check => c_vect_div_v_check procedure, pass(x) :: div_v2_check => c_vect_div_v2_check procedure, pass(z) :: div_a2 => c_vect_div_a2 diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 0b6ea1296..7d74b322e 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -171,8 +171,8 @@ module psb_d_base_vect_mod ! procedure, pass(x) :: div_v => d_base_div_v procedure, pass(x) :: div_v_check => d_base_div_v_check - procedure, pass(x) :: div_v2 => d_base_div_v2 - procedure, pass(x) :: div_v2_check => d_base_div_v2_check + procedure, pass(z) :: div_v2 => d_base_div_v2 + procedure, pass(z) :: div_v2_check => d_base_div_v2_check procedure, pass(z) :: div_a2 => d_base_div_a2 procedure, pass(z) :: div_a2_check => d_base_div_a2_check generic, public :: div => div_v, div_v2, div_v_check, & diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index edd99bf5a..6097d0b63 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -97,7 +97,7 @@ module psb_d_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => d_vect_div_v - procedure, pass(x) :: div_v2 => d_vect_div_v2 + procedure, pass(z) :: div_v2 => d_vect_div_v2 procedure, pass(x) :: div_v_check => d_vect_div_v_check procedure, pass(x) :: div_v2_check => d_vect_div_v2_check procedure, pass(z) :: div_a2 => d_vect_div_a2 diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 1a9511776..5969749c7 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -171,8 +171,8 @@ module psb_s_base_vect_mod ! procedure, pass(x) :: div_v => s_base_div_v procedure, pass(x) :: div_v_check => s_base_div_v_check - procedure, pass(x) :: div_v2 => s_base_div_v2 - procedure, pass(x) :: div_v2_check => s_base_div_v2_check + procedure, pass(z) :: div_v2 => s_base_div_v2 + procedure, pass(z) :: div_v2_check => s_base_div_v2_check procedure, pass(z) :: div_a2 => s_base_div_a2 procedure, pass(z) :: div_a2_check => s_base_div_a2_check generic, public :: div => div_v, div_v2, div_v_check, & diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index edeedacba..5703dfafa 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -97,7 +97,7 @@ module psb_s_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => s_vect_div_v - procedure, pass(x) :: div_v2 => s_vect_div_v2 + procedure, pass(z) :: div_v2 => s_vect_div_v2 procedure, pass(x) :: div_v_check => s_vect_div_v_check procedure, pass(x) :: div_v2_check => s_vect_div_v2_check procedure, pass(z) :: div_a2 => s_vect_div_a2 diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index a7e6978ac..237865356 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -171,8 +171,8 @@ module psb_z_base_vect_mod ! procedure, pass(x) :: div_v => z_base_div_v procedure, pass(x) :: div_v_check => z_base_div_v_check - procedure, pass(x) :: div_v2 => z_base_div_v2 - procedure, pass(x) :: div_v2_check => z_base_div_v2_check + procedure, pass(z) :: div_v2 => z_base_div_v2 + procedure, pass(z) :: div_v2_check => z_base_div_v2_check procedure, pass(z) :: div_a2 => z_base_div_a2 procedure, pass(z) :: div_a2_check => z_base_div_a2_check generic, public :: div => div_v, div_v2, div_v_check, & diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 77aba066b..e647405b4 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -97,7 +97,7 @@ module psb_z_vect_mod generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,& & mlt_v_2, mlt_av, mlt_va procedure, pass(x) :: div_v => z_vect_div_v - procedure, pass(x) :: div_v2 => z_vect_div_v2 + procedure, pass(z) :: div_v2 => z_vect_div_v2 procedure, pass(x) :: div_v_check => z_vect_div_v_check procedure, pass(x) :: div_v2_check => z_vect_div_v2_check procedure, pass(z) :: div_a2 => z_vect_div_a2 diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index 3969f75fe..b3872246b 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -203,6 +203,18 @@ program vecoperation write(psb_out_unit,'("y = ",es12.1)')vy(:) end if + call psb_gediv(x,y,z,desc_a,info) + + if (iam == psb_root_) then + write(psb_out_unit,'("div : z = x/y")') + vx = x%get_vect() + write(psb_out_unit,'("x = ",es12.1)')vx(:) + vy = y%get_vect() + write(psb_out_unit,'("y = ",es12.1)')vy(:) + vz = z%get_vect() + write(psb_out_unit,'("z = ",es12.1)')vz(:) + end if + call psb_geinv(x,z,desc_a,info) if (iam == psb_root_) then From 82db0f43b401b92fe59eaa4e564bedb21fe5a19e Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 19:02:06 +0200 Subject: [PATCH 33/61] New C interface for psb_genrmi sum_i |x_i| --- cbind/base/psb_c_cbase.h | 2 +- cbind/base/psb_c_dbase.h | 2 +- cbind/base/psb_c_psblas_cbind_mod.f90 | 31 +++++++++++++++++++++++++++ cbind/base/psb_c_sbase.h | 2 +- cbind/base/psb_c_zbase.h | 2 +- cbind/base/psb_d_psblas_cbind_mod.f90 | 31 +++++++++++++++++++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 31 +++++++++++++++++++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 31 +++++++++++++++++++++++++++ 8 files changed, 128 insertions(+), 4 deletions(-) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index b977a3fb1..35f744a70 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -51,7 +51,7 @@ psb_c_t psb_c_cgedot(psb_c_cvector *xh, psb_c_cvector *yh, psb_c_descriptor *cdh psb_s_t psb_c_cgenrm2(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cgeamax(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_cgeasum(psb_c_cvector *xh, psb_c_descriptor *cdh); -psb_s_t psb_c_cspnrmi(psb_c_cspmat *ah, psb_c_descriptor *cdh); +psb_s_t psb_c_cgenrmi(psb_c_cspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_cgeaxpby(psb_c_t alpha, psb_c_cvector *xh, psb_c_t beta, psb_c_cvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_cgeaxpbyz(psb_c_t alpha, psb_c_cvector *xh, diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 4a1ee6012..b5b381581 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -51,7 +51,7 @@ psb_d_t psb_c_dgedot(psb_c_dvector *xh, psb_c_dvector *yh, psb_c_descriptor *cdh psb_d_t psb_c_dgenrm2(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dgeamax(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_dgeasum(psb_c_dvector *xh, psb_c_descriptor *cdh); -psb_d_t psb_c_dspnrmi(psb_c_dvector *xh, psb_c_descriptor *cdh); +psb_d_t psb_c_dgenrmi(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_dgeaxpby(psb_d_t alpha, psb_c_dvector *xh, psb_d_t beta, psb_c_dvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_dgeaxpbyz(psb_d_t alpha, psb_c_dvector *xh, diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 6bbee9203..00f802800 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -563,6 +563,37 @@ contains end function psb_c_cgenrm2 + function psb_c_cgenrmi(xh,cdh) bind(c) result(res) + implicit none + real(c_float_complex) :: res + + type(psb_c_cvector) :: xh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp + type(psb_c_vect_type) :: yp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + call psb_geall(yp,descp,info) + call psb_geabs(xp,yp,descp,info) + res = psb_geasum(yp,descp,info) + call psb_gefree(yp,descp,info) + + end function psb_c_cgenrmi + function psb_c_cgenrm2_weight(xh,wh,cdh) bind(c) result(res) implicit none real(c_float_complex) :: res diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index bee92c658..7449ba51b 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -51,7 +51,7 @@ psb_s_t psb_c_sgedot(psb_c_svector *xh, psb_c_svector *yh, psb_c_descriptor *cdh psb_s_t psb_c_sgenrm2(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sgeamax(psb_c_svector *xh, psb_c_descriptor *cdh); psb_s_t psb_c_sgeasum(psb_c_svector *xh, psb_c_descriptor *cdh); -psb_s_t psb_c_sspnrmi(psb_c_sspmat *ah, psb_c_descriptor *cdh); +psb_s_t psb_c_sgenrmi(psb_c_sspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_sgeaxpby(psb_s_t alpha, psb_c_svector *xh, psb_s_t beta, psb_c_svector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_sgeaxpbyz(psb_s_t alpha, psb_c_svector *xh, diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 29cb2d3fb..9159b372a 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -51,7 +51,7 @@ psb_z_t psb_c_zgedot(psb_c_zvector *xh, psb_c_zvector *yh, psb_c_descriptor *cdh psb_d_t psb_c_zgenrm2(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zgeamax(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_d_t psb_c_zgeasum(psb_c_zvector *xh, psb_c_descriptor *cdh); -psb_d_t psb_c_zspnrmi(psb_c_zspmat *ah, psb_c_descriptor *cdh); +psb_d_t psb_c_zgenrmi(psb_c_zspmat *ah, psb_c_descriptor *cdh); psb_i_t psb_c_zgeaxpby(psb_z_t alpha, psb_c_zvector *xh, psb_z_t beta, psb_c_zvector *yh, psb_c_descriptor *cdh); psb_i_t psb_c_zgeaxpbyz(psb_z_t alpha, psb_c_zvector *xh, diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index fd2d670a7..2260e09e3 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -640,6 +640,37 @@ contains end function psb_c_dgenrm2 + function psb_c_dgenrmi(xh,cdh) bind(c) result(res) + implicit none + real(c_double) :: res + + type(psb_c_dvector) :: xh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp + type(psb_d_vect_type) :: yp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + call psb_geall(yp,descp,info) + call psb_geabs(xp,yp,descp,info) + res = psb_geasum(yp,descp,info) + call psb_gefree(yp,descp,info) + + end function psb_c_dgenrmi + function psb_c_dgenrm2_weight(xh,wh,cdh) bind(c) result(res) implicit none real(c_double) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 9a7a35715..bba8e7da9 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -640,6 +640,37 @@ contains end function psb_c_sgenrm2 + function psb_c_sgenrmi(xh,cdh) bind(c) result(res) + implicit none + real(c_float) :: res + + type(psb_c_svector) :: xh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp + type(psb_s_vect_type) :: yp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + call psb_geall(yp,descp,info) + call psb_geabs(xp,yp,descp,info) + res = psb_geasum(yp,descp,info) + call psb_gefree(yp,descp,info) + + end function psb_c_sgenrmi + function psb_c_sgenrm2_weight(xh,wh,cdh) bind(c) result(res) implicit none real(c_float) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 1b7f83a67..0e1dd23e6 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -563,6 +563,37 @@ contains end function psb_c_zgenrm2 + function psb_c_zgenrmi(xh,cdh) bind(c) result(res) + implicit none + real(c_double_complex) :: res + + type(psb_c_zvector) :: xh + type(psb_c_descriptor) :: cdh + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp + type(psb_z_vect_type) :: yp + integer(psb_c_ipk_) :: info + + res = -1.0 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + call c_f_pointer(xh%item,xp) + else + return + end if + + call psb_geall(yp,descp,info) + call psb_geabs(xp,yp,descp,info) + res = psb_geasum(yp,descp,info) + call psb_gefree(yp,descp,info) + + end function psb_c_zgenrmi + function psb_c_zgenrm2_weight(xh,wh,cdh) bind(c) result(res) implicit none real(c_double_complex) :: res From 5504e34161b2220f77aae72282b6f0492555e8dd Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 30 Mar 2020 21:48:26 +0200 Subject: [PATCH 34/61] Removed the out-interface for vector scaling --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 -- base/modules/psblas/psb_d_psblas_mod.F90 | 11 -- base/modules/psblas/psb_s_psblas_mod.F90 | 11 -- base/modules/psblas/psb_z_psblas_mod.F90 | 11 -- base/modules/serial/psb_c_base_vect_mod.f90 | 55 +-------- base/modules/serial/psb_c_vect_mod.F90 | 33 +---- base/modules/serial/psb_d_base_vect_mod.f90 | 55 +-------- base/modules/serial/psb_d_vect_mod.F90 | 33 +---- base/modules/serial/psb_s_base_vect_mod.f90 | 55 +-------- base/modules/serial/psb_s_vect_mod.F90 | 33 +---- base/modules/serial/psb_z_base_vect_mod.f90 | 55 +-------- base/modules/serial/psb_z_vect_mod.F90 | 33 +---- base/psblas/psb_caxpby.f90 | 85 ------------- base/psblas/psb_daxpby.f90 | 85 ------------- base/psblas/psb_saxpby.f90 | 85 ------------- base/psblas/psb_zaxpby.f90 | 85 ------------- cbind/base/psb_base_tools_cbind_mod.F90 | 129 ++++++++++---------- cbind/base/psb_c_base.c | 15 +-- cbind/base/psb_c_cbase.h | 1 - cbind/base/psb_c_dbase.h | 1 - cbind/base/psb_c_psblas_cbind_mod.f90 | 36 ------ cbind/base/psb_c_sbase.h | 1 - cbind/base/psb_c_zbase.h | 1 - cbind/base/psb_d_psblas_cbind_mod.f90 | 36 ------ cbind/base/psb_s_psblas_cbind_mod.f90 | 36 ------ cbind/base/psb_z_psblas_cbind_mod.f90 | 36 ------ 26 files changed, 81 insertions(+), 947 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 632bc0432..ad52858e3 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -586,17 +586,6 @@ module psb_c_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_caddconst_vect end interface - interface psb_gescal - subroutine psb_cscal_vect(x,c,z,desc_a,info) - import :: psb_desc_type, psb_ipk_, & - & psb_c_vect_type, psb_spk_ - type(psb_c_vect_type), intent (inout) :: x - type(psb_c_vect_type), intent (inout) :: z - real(psb_spk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - end subroutine psb_cscal_vect - end interface end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index aafe69317..57055e73a 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -597,17 +597,6 @@ module psb_d_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_daddconst_vect end interface - interface psb_gescal - subroutine psb_dscal_vect(x,c,z,desc_a,info) - import :: psb_desc_type, psb_ipk_, & - & psb_d_vect_type, psb_dpk_ - type(psb_d_vect_type), intent (inout) :: x - type(psb_d_vect_type), intent (inout) :: z - real(psb_dpk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - end subroutine psb_dscal_vect - end interface interface psb_mask subroutine psb_dmask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 48ccc2125..5dc5e6423 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -597,17 +597,6 @@ module psb_s_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_saddconst_vect end interface - interface psb_gescal - subroutine psb_sscal_vect(x,c,z,desc_a,info) - import :: psb_desc_type, psb_ipk_, & - & psb_s_vect_type, psb_spk_ - type(psb_s_vect_type), intent (inout) :: x - type(psb_s_vect_type), intent (inout) :: z - real(psb_spk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - end subroutine psb_sscal_vect - end interface interface psb_mask subroutine psb_smask_vect(c,x,m,t,desc_a,info) diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 3e920f83c..02a45e03e 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -586,17 +586,6 @@ module psb_z_psblas_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zaddconst_vect end interface - interface psb_gescal - subroutine psb_zscal_vect(x,c,z,desc_a,info) - import :: psb_desc_type, psb_ipk_, & - & psb_z_vect_type, psb_dpk_ - type(psb_z_vect_type), intent (inout) :: x - type(psb_z_vect_type), intent (inout) :: z - real(psb_dpk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - end subroutine psb_zscal_vect - end interface end module psb_z_psblas_mod diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 249f533d3..4facf5365 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -185,10 +185,7 @@ module psb_c_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal_v => c_base_scal - procedure, pass(z) :: scal_v2 => c_base_scal_v2 - procedure, pass(z) :: scal_a2 => c_base_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => c_base_scal procedure, pass(x) :: absval1 => c_base_absval1 procedure, pass(x) :: absval2 => c_base_absval2 generic, public :: absval => absval1, absval2 @@ -1608,56 +1605,6 @@ contains end subroutine c_base_scal - ! - !> Function base_scal_a2 - !! \memberof psb_c_base_vect_type - !! \brief Out of place scaling of the array x - !! \param x The array to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine c_base_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - complex(psb_spk_), intent(inout) :: x(:) - class(psb_c_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i,n - - if (z%is_dev()) call z%sync() - - n = size(x) - do i = 1, n, 1 - z%v(i) = c*x(i) - end do - info = 0 - - end subroutine c_base_scal_a2 - ! - !> Function base_cmp_v2 - !! \memberof psb_c_base_vect_type - !! \brief Out of place scaling of the vector x - !! \param x The vector to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine c_base_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - class(psb_c_base_vect_type), intent(inout) :: x - real(psb_spk_), intent(in) :: c - class(psb_c_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (x%is_dev()) call x%sync() - call z%scal(x%v,c,info) - end subroutine c_base_scal_v2 - ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 0e4ffab14..8beb57a1a 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -109,10 +109,7 @@ module psb_c_vect_mod procedure, pass(y) :: inv_a2 => c_vect_inv_a2 procedure, pass(y) :: inv_a2_check => c_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal_v => c_vect_scal - procedure, pass(z) :: scal_v2 => c_vect_scal_v2 - procedure, pass(z) :: scal_a2 => c_vect_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => c_vect_scal procedure, pass(x) :: absval1 => c_vect_absval1 procedure, pass(x) :: absval2 => c_vect_absval2 generic, public :: absval => absval1, absval2 @@ -974,34 +971,6 @@ contains end subroutine c_vect_scal - subroutine c_vect_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - complex(psb_spk_), intent(inout) :: x(:) - class(psb_c_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(z%v)) & - & call z%scal(x,c,info) - - end subroutine c_vect_scal_a2 - - subroutine c_vect_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - class(psb_c_vect_type), intent(inout) :: x - class(psb_c_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(x%v).and.allocated(z%v)) & - & call z%v%scal(x%v,c,info) - - end subroutine c_vect_scal_v2 - subroutine c_vect_absval1(x) class(psb_c_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 7d74b322e..72759110b 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -185,10 +185,7 @@ module psb_d_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal_v => d_base_scal - procedure, pass(z) :: scal_v2 => d_base_scal_v2 - procedure, pass(z) :: scal_a2 => d_base_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => d_base_scal procedure, pass(x) :: absval1 => d_base_absval1 procedure, pass(x) :: absval2 => d_base_absval2 generic, public :: absval => absval1, absval2 @@ -1615,56 +1612,6 @@ contains end subroutine d_base_scal - ! - !> Function base_scal_a2 - !! \memberof psb_d_base_vect_type - !! \brief Out of place scaling of the array x - !! \param x The array to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine d_base_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - real(psb_dpk_), intent(inout) :: x(:) - class(psb_d_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i,n - - if (z%is_dev()) call z%sync() - - n = size(x) - do i = 1, n, 1 - z%v(i) = c*x(i) - end do - info = 0 - - end subroutine d_base_scal_a2 - ! - !> Function base_cmp_v2 - !! \memberof psb_d_base_vect_type - !! \brief Out of place scaling of the vector x - !! \param x The vector to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine d_base_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - class(psb_d_base_vect_type), intent(inout) :: x - real(psb_dpk_), intent(in) :: c - class(psb_d_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (x%is_dev()) call x%sync() - call z%scal(x%v,c,info) - end subroutine d_base_scal_v2 - ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 6097d0b63..99198a3df 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -109,10 +109,7 @@ module psb_d_vect_mod procedure, pass(y) :: inv_a2 => d_vect_inv_a2 procedure, pass(y) :: inv_a2_check => d_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal_v => d_vect_scal - procedure, pass(z) :: scal_v2 => d_vect_scal_v2 - procedure, pass(z) :: scal_a2 => d_vect_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => d_vect_scal procedure, pass(x) :: absval1 => d_vect_absval1 procedure, pass(x) :: absval2 => d_vect_absval2 generic, public :: absval => absval1, absval2 @@ -981,34 +978,6 @@ contains end subroutine d_vect_scal - subroutine d_vect_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - real(psb_dpk_), intent(inout) :: x(:) - class(psb_d_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(z%v)) & - & call z%scal(x,c,info) - - end subroutine d_vect_scal_a2 - - subroutine d_vect_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - class(psb_d_vect_type), intent(inout) :: x - class(psb_d_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(x%v).and.allocated(z%v)) & - & call z%v%scal(x%v,c,info) - - end subroutine d_vect_scal_v2 - subroutine d_vect_absval1(x) class(psb_d_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 5969749c7..6aab64974 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -185,10 +185,7 @@ module psb_s_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal_v => s_base_scal - procedure, pass(z) :: scal_v2 => s_base_scal_v2 - procedure, pass(z) :: scal_a2 => s_base_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => s_base_scal procedure, pass(x) :: absval1 => s_base_absval1 procedure, pass(x) :: absval2 => s_base_absval2 generic, public :: absval => absval1, absval2 @@ -1615,56 +1612,6 @@ contains end subroutine s_base_scal - ! - !> Function base_scal_a2 - !! \memberof psb_s_base_vect_type - !! \brief Out of place scaling of the array x - !! \param x The array to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine s_base_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - real(psb_spk_), intent(inout) :: x(:) - class(psb_s_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i,n - - if (z%is_dev()) call z%sync() - - n = size(x) - do i = 1, n, 1 - z%v(i) = c*x(i) - end do - info = 0 - - end subroutine s_base_scal_a2 - ! - !> Function base_cmp_v2 - !! \memberof psb_s_base_vect_type - !! \brief Out of place scaling of the vector x - !! \param x The vector to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine s_base_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - class(psb_s_base_vect_type), intent(inout) :: x - real(psb_spk_), intent(in) :: c - class(psb_s_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (x%is_dev()) call x%sync() - call z%scal(x%v,c,info) - end subroutine s_base_scal_v2 - ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 5703dfafa..c2a3a6d94 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -109,10 +109,7 @@ module psb_s_vect_mod procedure, pass(y) :: inv_a2 => s_vect_inv_a2 procedure, pass(y) :: inv_a2_check => s_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal_v => s_vect_scal - procedure, pass(z) :: scal_v2 => s_vect_scal_v2 - procedure, pass(z) :: scal_a2 => s_vect_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => s_vect_scal procedure, pass(x) :: absval1 => s_vect_absval1 procedure, pass(x) :: absval2 => s_vect_absval2 generic, public :: absval => absval1, absval2 @@ -981,34 +978,6 @@ contains end subroutine s_vect_scal - subroutine s_vect_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - real(psb_spk_), intent(inout) :: x(:) - class(psb_s_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(z%v)) & - & call z%scal(x,c,info) - - end subroutine s_vect_scal_a2 - - subroutine s_vect_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_spk_), intent(in) :: c - class(psb_s_vect_type), intent(inout) :: x - class(psb_s_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(x%v).and.allocated(z%v)) & - & call z%v%scal(x%v,c,info) - - end subroutine s_vect_scal_v2 - subroutine s_vect_absval1(x) class(psb_s_vect_type), intent(inout) :: x diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 237865356..085e9c3ad 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -185,10 +185,7 @@ module psb_z_base_vect_mod ! ! Scaling and norms ! - procedure, pass(x) :: scal_v => z_base_scal - procedure, pass(z) :: scal_v2 => z_base_scal_v2 - procedure, pass(z) :: scal_a2 => z_base_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => z_base_scal procedure, pass(x) :: absval1 => z_base_absval1 procedure, pass(x) :: absval2 => z_base_absval2 generic, public :: absval => absval1, absval2 @@ -1608,56 +1605,6 @@ contains end subroutine z_base_scal - ! - !> Function base_scal_a2 - !! \memberof psb_z_base_vect_type - !! \brief Out of place scaling of the array x - !! \param x The array to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine z_base_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - complex(psb_dpk_), intent(inout) :: x(:) - class(psb_z_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i,n - - if (z%is_dev()) call z%sync() - - n = size(x) - do i = 1, n, 1 - z%v(i) = c*x(i) - end do - info = 0 - - end subroutine z_base_scal_a2 - ! - !> Function base_cmp_v2 - !! \memberof psb_z_base_vect_type - !! \brief Out of place scaling of the vector x - !! \param x The vector to be scaled - !! \param z The scaled vector z = c*x - !! \param c The scaling term - !! \param info return code - ! - subroutine z_base_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - class(psb_z_base_vect_type), intent(inout) :: x - real(psb_dpk_), intent(in) :: c - class(psb_z_base_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (x%is_dev()) call x%sync() - call z%scal(x%v,c,info) - end subroutine z_base_scal_v2 - ! ! Norms 1, 2 and infinity ! diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index e647405b4..76331b0a7 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -109,10 +109,7 @@ module psb_z_vect_mod procedure, pass(y) :: inv_a2 => z_vect_inv_a2 procedure, pass(y) :: inv_a2_check => z_vect_inv_a2_check generic, public :: inv => inv_v, inv_v_check, inv_a2, inv_a2_check - procedure, pass(x) :: scal_v => z_vect_scal - procedure, pass(z) :: scal_v2 => z_vect_scal_v2 - procedure, pass(z) :: scal_a2 => z_vect_scal_a2 - generic, public :: scal => scal_v, scal_v2, scal_a2 + procedure, pass(x) :: scal => z_vect_scal procedure, pass(x) :: absval1 => z_vect_absval1 procedure, pass(x) :: absval2 => z_vect_absval2 generic, public :: absval => absval1, absval2 @@ -974,34 +971,6 @@ contains end subroutine z_vect_scal - subroutine z_vect_scal_a2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - complex(psb_dpk_), intent(inout) :: x(:) - class(psb_z_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(z%v)) & - & call z%scal(x,c,info) - - end subroutine z_vect_scal_a2 - - subroutine z_vect_scal_v2(x,c,z,info) - use psi_serial_mod - implicit none - real(psb_dpk_), intent(in) :: c - class(psb_z_vect_type), intent(inout) :: x - class(psb_z_vect_type), intent(inout) :: z - integer(psb_ipk_), intent(out) :: info - - info = 0 - if (allocated(x%v).and.allocated(z%v)) & - & call z%v%scal(x%v,c,info) - - end subroutine z_vect_scal_v2 - subroutine z_vect_absval1(x) class(psb_z_vect_type), intent(inout) :: x diff --git a/base/psblas/psb_caxpby.f90 b/base/psblas/psb_caxpby.f90 index 2311f3e2c..6518e7301 100644 --- a/base/psblas/psb_caxpby.f90 +++ b/base/psblas/psb_caxpby.f90 @@ -735,88 +735,3 @@ subroutine psb_caddconst_vect(x,b,z,desc_a,info) return end subroutine psb_caddconst_vect -! -! Subroutine: psb_cscal_vect -! Scale one distributed vector with scalar c, -! -! Z(i) := c*X(i) -! -! Arguments: -! x - type(psb_c_vect_type) The input vector containing the entries of X -! c - complex,input The scalar used to add each component of X -! z - type(psb_c_vect_type) The input/output vector Z -! desc_a - type(psb_desc_type) The communication descriptor. -! info - integer Return code -! -subroutine psb_cscal_vect(x,c,z,desc_a,info) - use psb_base_mod, psb_protect_name => psb_cscal_vect - implicit none - type(psb_c_vect_type), intent (inout) :: x - type(psb_c_vect_type), intent (inout) :: z - real(psb_spk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iix, jjx, iiy, jjy - integer(psb_lpk_) :: ix, ijx, iy, ijy, m - character(len=20) :: name, ch_err - - name='psb_c_scal_vect' - if (psb_errstatus_fatal()) return - info=psb_success_ - call psb_erractionsave(err_act) - - ictxt=desc_a%get_context() - - call psb_info(ictxt, me, np) - if (np == -ione) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(x%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(z%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - - ix = ione - iy = ione - - m = desc_a%get_global_rows() - - ! check vector correctness - call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - if(desc_a%get_local_rows() > 0) then - call z%scal(x,c,info) - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return - -end subroutine psb_cscal_vect diff --git a/base/psblas/psb_daxpby.f90 b/base/psblas/psb_daxpby.f90 index c3a54f93a..550711e4a 100644 --- a/base/psblas/psb_daxpby.f90 +++ b/base/psblas/psb_daxpby.f90 @@ -735,88 +735,3 @@ subroutine psb_daddconst_vect(x,b,z,desc_a,info) return end subroutine psb_daddconst_vect -! -! Subroutine: psb_dscal_vect -! Scale one distributed vector with scalar c, -! -! Z(i) := c*X(i) -! -! Arguments: -! x - type(psb_d_vect_type) The input vector containing the entries of X -! c - real,input The scalar used to add each component of X -! z - type(psb_d_vect_type) The input/output vector Z -! desc_a - type(psb_desc_type) The communication descriptor. -! info - integer Return code -! -subroutine psb_dscal_vect(x,c,z,desc_a,info) - use psb_base_mod, psb_protect_name => psb_dscal_vect - implicit none - type(psb_d_vect_type), intent (inout) :: x - type(psb_d_vect_type), intent (inout) :: z - real(psb_dpk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iix, jjx, iiy, jjy - integer(psb_lpk_) :: ix, ijx, iy, ijy, m - character(len=20) :: name, ch_err - - name='psb_d_scal_vect' - if (psb_errstatus_fatal()) return - info=psb_success_ - call psb_erractionsave(err_act) - - ictxt=desc_a%get_context() - - call psb_info(ictxt, me, np) - if (np == -ione) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(x%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(z%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - - ix = ione - iy = ione - - m = desc_a%get_global_rows() - - ! check vector correctness - call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - if(desc_a%get_local_rows() > 0) then - call z%scal(x,c,info) - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return - -end subroutine psb_dscal_vect diff --git a/base/psblas/psb_saxpby.f90 b/base/psblas/psb_saxpby.f90 index 6384968ec..b264c3b07 100644 --- a/base/psblas/psb_saxpby.f90 +++ b/base/psblas/psb_saxpby.f90 @@ -735,88 +735,3 @@ subroutine psb_saddconst_vect(x,b,z,desc_a,info) return end subroutine psb_saddconst_vect -! -! Subroutine: psb_sscal_vect -! Scale one distributed vector with scalar c, -! -! Z(i) := c*X(i) -! -! Arguments: -! x - type(psb_s_vect_type) The input vector containing the entries of X -! c - real,input The scalar used to add each component of X -! z - type(psb_s_vect_type) The input/output vector Z -! desc_a - type(psb_desc_type) The communication descriptor. -! info - integer Return code -! -subroutine psb_sscal_vect(x,c,z,desc_a,info) - use psb_base_mod, psb_protect_name => psb_sscal_vect - implicit none - type(psb_s_vect_type), intent (inout) :: x - type(psb_s_vect_type), intent (inout) :: z - real(psb_spk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iix, jjx, iiy, jjy - integer(psb_lpk_) :: ix, ijx, iy, ijy, m - character(len=20) :: name, ch_err - - name='psb_s_scal_vect' - if (psb_errstatus_fatal()) return - info=psb_success_ - call psb_erractionsave(err_act) - - ictxt=desc_a%get_context() - - call psb_info(ictxt, me, np) - if (np == -ione) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(x%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(z%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - - ix = ione - iy = ione - - m = desc_a%get_global_rows() - - ! check vector correctness - call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - if(desc_a%get_local_rows() > 0) then - call z%scal(x,c,info) - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return - -end subroutine psb_sscal_vect diff --git a/base/psblas/psb_zaxpby.f90 b/base/psblas/psb_zaxpby.f90 index b5863d5ae..c0cf79fd8 100644 --- a/base/psblas/psb_zaxpby.f90 +++ b/base/psblas/psb_zaxpby.f90 @@ -735,88 +735,3 @@ subroutine psb_zaddconst_vect(x,b,z,desc_a,info) return end subroutine psb_zaddconst_vect -! -! Subroutine: psb_zscal_vect -! Scale one distributed vector with scalar c, -! -! Z(i) := c*X(i) -! -! Arguments: -! x - type(psb_z_vect_type) The input vector containing the entries of X -! c - complex,input The scalar used to add each component of X -! z - type(psb_z_vect_type) The input/output vector Z -! desc_a - type(psb_desc_type) The communication descriptor. -! info - integer Return code -! -subroutine psb_zscal_vect(x,c,z,desc_a,info) - use psb_base_mod, psb_protect_name => psb_zscal_vect - implicit none - type(psb_z_vect_type), intent (inout) :: x - type(psb_z_vect_type), intent (inout) :: z - real(psb_dpk_), intent(in) :: c - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iix, jjx, iiy, jjy - integer(psb_lpk_) :: ix, ijx, iy, ijy, m - character(len=20) :: name, ch_err - - name='psb_z_scal_vect' - if (psb_errstatus_fatal()) return - info=psb_success_ - call psb_erractionsave(err_act) - - ictxt=desc_a%get_context() - - call psb_info(ictxt, me, np) - if (np == -ione) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(x%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - if (.not.allocated(z%v)) then - info = psb_err_invalid_vect_state_ - call psb_errpush(info,name) - goto 9999 - endif - - ix = ione - iy = ione - - m = desc_a%get_global_rows() - - ! check vector correctness - call psb_chkvect(m,lone,x%get_nrows(),ix,lone,desc_a,info,iix,jjx) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - call psb_chkvect(m,lone,z%get_nrows(),iy,lone,desc_a,info,iiy,jjy) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkvect 2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - if(desc_a%get_local_rows() > 0) then - call z%scal(x,c,info) - end if - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return - -end subroutine psb_zscal_vect diff --git a/cbind/base/psb_base_tools_cbind_mod.F90 b/cbind/base/psb_base_tools_cbind_mod.F90 index af32c637d..75028e272 100644 --- a/cbind/base/psb_base_tools_cbind_mod.F90 +++ b/cbind/base/psb_base_tools_cbind_mod.F90 @@ -4,27 +4,29 @@ module psb_base_tools_cbind_mod use psb_objhandle_mod use psb_cpenv_mod use psb_base_string_cbind_mod - + contains - + + ! Aggiungere funzione per estrarre comunicatore + function psb_c_error() bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + implicit none + integer(psb_c_ipk_) :: res res = 0 call psb_error() end function psb_c_error - + function psb_c_clean_errstack() bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res + implicit none + integer(psb_c_ipk_) :: res res = 0 call psb_clean_errstack() end function psb_c_clean_errstack - - function psb_c_cdall_vg(ng,vg,ictxt,cdh) bind(c,name='psb_c_cdall_vg') result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_cdall_vg(ng,vg,ictxt,cdh) bind(c,name='psb_c_cdall_vg') result(res) + implicit none + + integer(psb_c_ipk_) :: res integer(psb_c_lpk_), value :: ng integer(psb_c_ipk_), value :: ictxt integer(psb_c_ipk_) :: vg(*) @@ -33,12 +35,12 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (ng <=0) then + if (ng <=0) then write(0,*) 'Invalid size' return end if - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call descp%free(info) if (info == 0) deallocate(descp,stat=info) @@ -46,32 +48,32 @@ contains end if allocate(descp,stat=info) - if (info < 0) return - + if (info < 0) return + call psb_cdall(ictxt,descp,info,vg=vg(1:ng)) cdh%item = c_loc(descp) res = info end function psb_c_cdall_vg - - - function psb_c_cdall_vl(nl,vl,ictxt,cdh) bind(c,name='psb_c_cdall_vl') result(res) - implicit none - integer(psb_c_ipk_) :: res + + function psb_c_cdall_vl(nl,vl,ictxt,cdh) bind(c,name='psb_c_cdall_vl') result(res) + implicit none + + integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: nl, ictxt integer(psb_c_lpk_) :: vl(*) type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp - integer(psb_c_ipk_) :: info, ixb + integer(psb_c_ipk_) :: info, ixb res = -1 - if (nl <=0) then + if (nl <=0) then write(0,*) 'Invalid size' return end if - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call descp%free(info) if (info == 0) deallocate(descp,stat=info) @@ -79,11 +81,11 @@ contains end if allocate(descp,stat=info) - if (info < 0) return + if (info < 0) return ixb = psb_c_get_index_base() - - if (ixb == 1) then + + if (ixb == 1) then call psb_cdall(ictxt,descp,info,vl=vl(1:nl)) else call psb_cdall(ictxt,descp,info,vl=(vl(1:nl)+(1-ixb))) @@ -94,21 +96,21 @@ contains end function psb_c_cdall_vl function psb_c_cdall_nl(nl,ictxt,cdh) bind(c,name='psb_c_cdall_nl') result(res) - implicit none + implicit none - integer(psb_c_ipk_) :: res + integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: nl, ictxt type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp integer(psb_c_ipk_) :: info res = -1 - if (nl <=0) then + if (nl <=0) then write(0,*) 'Invalid size' return end if - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call descp%free(info) if (info == 0) deallocate(descp,stat=info) @@ -116,8 +118,8 @@ contains end if allocate(descp,stat=info) - if (info < 0) return - + if (info < 0) return + call psb_cdall(ictxt,descp,info,nl=nl) cdh%item = c_loc(descp) res = info @@ -125,9 +127,9 @@ contains end function psb_c_cdall_nl function psb_c_cdall_repl(n,ictxt,cdh) bind(c,name='psb_c_cdall_repl') result(res) - implicit none + implicit none - integer(psb_c_ipk_) :: res + integer(psb_c_ipk_) :: res integer(psb_c_lpk_), value :: n integer(psb_c_ipk_), value :: ictxt type(psb_c_object_type) :: cdh @@ -135,12 +137,12 @@ contains integer(psb_c_ipk_) :: info res = -1 - if (n <=0) then + if (n <=0) then write(0,*) 'Invalid size' return end if - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call descp%free(info) if (info == 0) deallocate(descp,stat=info) @@ -148,25 +150,25 @@ contains end if allocate(descp,stat=info) - if (info < 0) return - + if (info < 0) return + call psb_cdall(ictxt,descp,info,mg=n,repl=.true.) cdh%item = c_loc(descp) res = info end function psb_c_cdall_repl - - function psb_c_cdasb(cdh) bind(c,name='psb_c_cdasb') result(res) - implicit none - integer(psb_c_ipk_) :: res + function psb_c_cdasb(cdh) bind(c,name='psb_c_cdasb') result(res) + implicit none + + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call psb_cdasb(descp,info) res = info @@ -177,39 +179,39 @@ contains function psb_c_cdfree(cdh) bind(c,name='psb_c_cdfree') result(res) - implicit none - integer(psb_c_ipk_) :: res + implicit none + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + 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 cdh%item = c_null_ptr end if - + res = info return end function psb_c_cdfree function psb_c_cdins(nz,ia,ja,cdh) bind(c,name='psb_c_cdins') result(res) - implicit none - integer(psb_c_ipk_) :: res + implicit none + integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: nz type(psb_c_object_type) :: cdh integer(psb_c_lpk_) :: ia(*),ja(*) - + type(psb_desc_type), pointer :: descp integer(psb_c_ipk_) :: info res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) call psb_cdins(nz,ia(1:nz),ja(1:nz),descp,info) res = info @@ -220,9 +222,9 @@ contains function psb_c_cd_get_local_rows(cdh) bind(c,name='psb_c_cd_get_local_rows') result(res) - implicit none + implicit none - integer(psb_c_ipk_) :: res + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp @@ -230,7 +232,7 @@ contains res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) res = descp%get_local_rows() @@ -241,9 +243,9 @@ contains function psb_c_cd_get_local_cols(cdh) bind(c,name='psb_c_cd_get_local_cols') result(res) - implicit none + implicit none - integer(psb_c_ipk_) :: res + integer(psb_c_ipk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp @@ -251,7 +253,7 @@ contains res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) res = descp%get_local_cols() @@ -260,9 +262,9 @@ contains end function psb_c_cd_get_local_cols function psb_c_cd_get_global_rows(cdh) bind(c,name='psb_c_cd_get_global_rows') result(res) - implicit none + implicit none - integer(psb_c_lpk_) :: res + integer(psb_c_lpk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp @@ -270,7 +272,7 @@ contains res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) res = descp%get_global_rows() @@ -281,9 +283,9 @@ contains function psb_c_cd_get_global_cols(cdh) bind(c,name='psb_c_cd_get_global_cols') result(res) - implicit none + implicit none - integer(psb_c_lpk_) :: res + integer(psb_c_lpk_) :: res type(psb_c_object_type) :: cdh type(psb_desc_type), pointer :: descp @@ -291,7 +293,7 @@ contains res = -1 - if (c_associated(cdh%item)) then + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) res = descp%get_global_cols() @@ -301,4 +303,3 @@ contains end module psb_base_tools_cbind_mod - diff --git a/cbind/base/psb_c_base.c b/cbind/base/psb_c_base.c index 96a6df34f..4683e49cb 100644 --- a/cbind/base/psb_c_base.c +++ b/cbind/base/psb_c_base.c @@ -5,7 +5,7 @@ psb_c_descriptor* psb_c_new_descriptor() { psb_c_descriptor* temp; - + temp=(psb_c_descriptor *) malloc(sizeof(psb_c_descriptor)); temp->descriptor=NULL; return(temp); @@ -13,11 +13,11 @@ psb_c_descriptor* psb_c_new_descriptor() void psb_c_print_errmsg() -{ - char *mesg; - +{ + char *mesg; + for (mesg = psb_c_pop_errmsg(); mesg != NULL; mesg = psb_c_pop_errmsg()) { - fprintf(stderr,"%s\n",mesg); + fprintf(stderr,"%s\n",mesg); free(mesg); } @@ -28,7 +28,7 @@ void psb_c_print_errmsg() #define PSB_MAX_ERR_LINES 4 static int maxlen=PSB_MAX_ERR_LINES*(PSB_MAX_ERRLINE_LEN+2); char *psb_c_pop_errmsg() -{ +{ char *tmp; tmp = (char*) malloc(maxlen*sizeof(char)); if (psb_c_f2c_errmsg(tmp,maxlen)<=0) { @@ -36,4 +36,5 @@ char *psb_c_pop_errmsg() } return(tmp); } - + +// Convertire il comunicatore fortran in comunicatore c diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 35f744a70..1fa7873e8 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -75,7 +75,6 @@ psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); -psb_i_t psb_c_cgescal(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index b5b381581..cdeb02795 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -75,7 +75,6 @@ psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); -psb_i_t psb_c_dgescal(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 00f802800..cc22a1242 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -499,42 +499,6 @@ contains end function psb_c_cgeaddconst - function psb_c_cgescal(xh,ch,zh,cdh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res - - type(psb_c_cvector) :: xh,zh - type(psb_c_descriptor) :: cdh - - type(psb_desc_type), pointer :: descp - type(psb_c_vect_type), pointer :: xp,zp - integer(psb_c_ipk_) :: info - real(c_float_complex) :: ch - - 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 - call c_f_pointer(xh%item,xp) - else - return - end if - if (c_associated(zh%item)) then - call c_f_pointer(zh%item,zp) - else - return - end if - - call psb_gescal(xp,ch,zp,descp,info) - - res = info - - end function psb_c_cgescal - function psb_c_cgenrm2(xh,cdh) bind(c) result(res) implicit none diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 7449ba51b..8db2d5ac2 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -75,7 +75,6 @@ psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); -psb_i_t psb_c_sgescal(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 9159b372a..aebaccedc 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -75,7 +75,6 @@ psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); -psb_i_t psb_c_zgescal(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 2260e09e3..766175b04 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -499,42 +499,6 @@ contains end function psb_c_dgeaddconst - function psb_c_dgescal(xh,ch,zh,cdh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res - - type(psb_c_dvector) :: xh,zh - type(psb_c_descriptor) :: cdh - - type(psb_desc_type), pointer :: descp - type(psb_d_vect_type), pointer :: xp,zp - integer(psb_c_ipk_) :: info - real(c_double) :: ch - - 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 - call c_f_pointer(xh%item,xp) - else - return - end if - if (c_associated(zh%item)) then - call c_f_pointer(zh%item,zp) - else - return - end if - - call psb_gescal(xp,ch,zp,descp,info) - - res = info - - end function psb_c_dgescal - function psb_c_dmask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index bba8e7da9..8ce42dafd 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -499,42 +499,6 @@ contains end function psb_c_sgeaddconst - function psb_c_sgescal(xh,ch,zh,cdh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res - - type(psb_c_svector) :: xh,zh - type(psb_c_descriptor) :: cdh - - type(psb_desc_type), pointer :: descp - type(psb_s_vect_type), pointer :: xp,zp - integer(psb_c_ipk_) :: info - real(c_float) :: ch - - 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 - call c_f_pointer(xh%item,xp) - else - return - end if - if (c_associated(zh%item)) then - call c_f_pointer(zh%item,zp) - else - return - end if - - call psb_gescal(xp,ch,zp,descp,info) - - res = info - - end function psb_c_sgescal - function psb_c_smask(ch,xh,mh,t,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 0e1dd23e6..a35ee8275 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -499,42 +499,6 @@ contains end function psb_c_zgeaddconst - function psb_c_zgescal(xh,ch,zh,cdh) bind(c) result(res) - implicit none - integer(psb_c_ipk_) :: res - - type(psb_c_zvector) :: xh,zh - type(psb_c_descriptor) :: cdh - - type(psb_desc_type), pointer :: descp - type(psb_z_vect_type), pointer :: xp,zp - integer(psb_c_ipk_) :: info - real(c_double_complex) :: ch - - 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 - call c_f_pointer(xh%item,xp) - else - return - end if - if (c_associated(zh%item)) then - call c_f_pointer(zh%item,zp) - else - return - end if - - call psb_gescal(xp,ch,zp,descp,info) - - res = info - - end function psb_c_zgescal - function psb_c_zgenrm2(xh,cdh) bind(c) result(res) implicit none From 1f441df5a0fe8f4bea3e66b27e9a21b12fbf97b5 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 31 Mar 2020 21:20:33 +0200 Subject: [PATCH 35/61] modified tester for vector operation --- test/kernel/vecoperation.f90 | 443 +++++++++++++++++++++-------------- 1 file changed, 269 insertions(+), 174 deletions(-) diff --git a/test/kernel/vecoperation.f90 b/test/kernel/vecoperation.f90 index b3872246b..0b73ff15c 100644 --- a/test/kernel/vecoperation.f90 +++ b/test/kernel/vecoperation.f90 @@ -31,37 +31,170 @@ ! ! File: vecoperation.f90 ! +module unittestvector_mod + + use psb_base_mod, only : psb_dpk_, psb_ipk_, psb_desc_type,& + & psb_dspmat_type, psb_d_vect_type, dzero,& + & psb_d_base_sparse_mat, psb_d_base_vect_type, psb_i_base_vect_type + + interface psb_gen_const + module procedure psb_d_gen_const + end interface psb_gen_const + +contains + + function psb_check_ans(v,val,ictxt) result(ans) + use psb_base_mod + + implicit none + + type(psb_d_vect_type) :: v + real(psb_dpk_) :: val + integer(psb_ipk_) :: ictxt + logical :: ans + + ! Local variables + integer(psb_ipk_) :: np, iam, info + real(psb_dpk_) :: check + real(psb_dpk_), allocatable :: va(:) + + call psb_info(ictxt,iam,np) + + va = v%get_vect() + va = va - val; + + check = maxval(va); + + call psb_sum(ictxt,check) + + if(check == 0.d0) then + ans = .true. + else + ans = .false. + end if + + end function psb_check_ans + ! + ! subroutine to fill a vector with constant entries + ! + subroutine psb_d_gen_const(v,val,idim,ictxt,desc_a,info) + use psb_base_mod + implicit none + + type(psb_d_vect_type) :: v + type(psb_desc_type) :: desc_a + integer(psb_lpk_) :: idim + integer(psb_ipk_) :: ictxt, info + real(psb_dpk_) :: val + + ! Local variables + integer(psb_ipk_), parameter :: nb=20 + real(psb_dpk_) :: zt(nb) + character(len=20) :: name, ch_err + integer(psb_ipk_) :: np, iam, nr, nt + integer(psb_ipk_) :: n,nlr,ib,ii + integer(psb_ipk_) :: err_act + integer(psb_lpk_), allocatable :: myidx(:) + + + info = psb_success_ + name = 'create_constant_vector' + call psb_erractionsave(err_act) + + call psb_info(ictxt, iam, np) + + n = idim*np ! The global dimension is the number of process times + ! the input size + + ! We use a simple minded block distribution + nt = (n+np-1)/np + nr = max(0,min(nt,n-(iam*nt))) + nt = nr + + call psb_sum(ictxt,nt) + if (nt /= n) then + write(psb_err_unit,*) iam, 'Initialization error ',nr,nt,n + info = -1 + call psb_barrier(ictxt) + call psb_abort(ictxt) + return + end if + ! Allocate the descriptor with simple minded data distribution + call psb_cdall(ictxt,desc_a,info,nl=nr) + ! Allocate the vector on the recently build descriptor + if (info == psb_success_) call psb_geall(v,desc_a,info) + ! Check that allocation has gone good + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='allocation rout.' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + myidx = desc_a%get_global_indices() + nlr = size(myidx) + + do ii=1,nlr,nb + ib = min(nb,nlr-ii+1) + zt(:) = val + call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),v,desc_a,info) + if(info /= psb_success_) exit + end do + + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='insert rout.' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + ! Assembly of communicator and vector + call psb_cdasb(desc_a,info) + if (info == psb_success_) call psb_geasb(v,desc_a,info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return + end subroutine psb_d_gen_const + +end module unittestvector_mod + + program vecoperation use psb_base_mod use psb_util_mod + use unittestvector_mod implicit none ! input parameters - integer(psb_ipk_) :: idim = 100 + integer(psb_lpk_) :: idim = 100 ! miscellaneous real(psb_dpk_), parameter :: one = 1.d0 - real(psb_dpk_) :: t1, t2 - + real(psb_dpk_), parameter :: two = 2.d0 + real(psb_dpk_), parameter :: onehalf = 0.5_psb_dpk_ + real(psb_dpk_), parameter :: negativeone = -1.d0 + real(psb_dpk_), parameter :: negativetwo = -2.d0 + real(psb_dpk_), parameter :: negativeonehalf = -0.5_psb_dpk_ ! descriptor type(psb_desc_type) :: desc_a ! vector - type(psb_d_vect_type) :: x,y,z,absz + type(psb_d_vect_type) :: x,y,z ! blacs parameters integer(psb_ipk_) :: ictxt, iam, np - ! other variables - integer(psb_ipk_) :: nr, nlr, info, i, ii, ib=1 - integer(psb_lpk_) :: nt - integer(psb_lpk_), allocatable :: myidx(:) - real(psb_dpk_) :: zt(1), dotresult, norm2, norm1, norminf, norm2w, norm2wc + ! auxiliary parameters + integer(psb_ipk_) :: info character(len=20) :: name,ch_err,readinput - real(psb_dpk_), allocatable :: vx(:), vy(:), vz(:) - real(psb_dpk_) :: c - logical :: t + real(psb_dpk_) :: ans + logical :: hasitnotfailed + integer(psb_lpk_), allocatable :: myidx(:) + integer(psb_ipk_) :: ib = 1 + real(psb_dpk_) :: zt(1) info=psb_success_ - - call psb_init(ictxt) call psb_info(ictxt,iam,np) @@ -84,193 +217,153 @@ program vecoperation if (len_trim(readinput) /= 0) read(readinput,*)idim if (iam == psb_root_) write(psb_out_unit,'(" ")') - if (iam == psb_root_) write(psb_out_unit,'("Vector size",I10)')idim + if (iam == psb_root_) write(psb_out_unit,'("Local vector size",I10)')idim + if (iam == psb_root_) write(psb_out_unit,'("Global vector size",I10)')np*idim ! - ! Data distribution - ! We assume a simple contiguous block distribution + ! Test of standard vector operation ! - nt = (idim+np-1)/np - nr = max(0,min(nt,idim-(iam*nt))) - nt = nr - - call psb_sum(ictxt,nt) - if (nt /= idim) then - write(psb_err_unit,*) iam, 'Initialization error ',nr,nt,idim - info = -1 - call psb_barrier(ictxt) - call psb_abort(ictxt) - return - end if - - call psb_cdall(ictxt,desc_a,info,nl=nr) - myidx = desc_a%get_global_indices() - nlr = size(myidx) - - ! - ! allocate and fill in the vectors - ! - call psb_barrier(ictxt) - t1 = psb_wtime() - ! Allocate memory - call psb_geall(x,desc_a,info) - call psb_geall(y,desc_a,info) - call psb_geall(z,desc_a,info) - call psb_geall(absz,desc_a,info) - ! Put entries into the vectors - do ii=1,nlr - zt(1) = 1.0_psb_dpk_ - call psb_geins(ib,myidx(ii:),zt(1:),x,desc_a,info) - zt(1) = 2.0_psb_dpk_ - call psb_geins(ib,myidx(ii:),zt(1:),y,desc_a,info) - zt(1) = -10.0_psb_dpk_ - call psb_geins(ib,myidx(ii:),zt(1:),z,desc_a,info) - call psb_geins(ib,myidx(ii:),zt(1:),absz,desc_a,info) - end do - ! Assemble - call psb_cdasb(desc_a,info) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='comm asb rout.' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - if (info == psb_success_) call psb_geasb(x,desc_a,info) - if (info == psb_success_) call psb_geasb(y,desc_a,info) - if (info == psb_success_) call psb_geasb(z,desc_a,info) - if (info == psb_success_) call psb_geasb(absz,desc_a,info) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='vec asb rout.' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - call psb_barrier(ictxt) - t2 = psb_wtime() - t1 - - if (iam == psb_root_) write(psb_out_unit,'("Overall vector creation time : ",es12.5)')t2 + if (iam == psb_root_) write(psb_out_unit,'(" ")') + if (iam == psb_root_) write(psb_out_unit,'("Standard Vector Operations")') + if (iam == psb_root_) write(psb_out_unit,'(" ")') + ! X = 1 + call psb_d_gen_const(x,one,idim,ictxt,desc_a,info) + hasitnotfailed = psb_check_ans(x,one,ictxt) if (iam == psb_root_) then - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> Constant vector ")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- Constant vector ")') end if - - ! - ! Vector operations - ! - dotresult = psb_gedot(x,y,desc_a,info) ! Dot-product - if (iam == psb_root_) write(psb_out_unit,'("Dot product result : ",es12.5)')dotresult - call psb_geaxpby(1.0_psb_dpk_, x, 1.0_psb_dpk_, y, desc_a, info) ! \alpha x + \beta y - + ! X = 1 , Y = -2, Y = X + Y = 1 -2 = -1 + call psb_d_gen_const(x,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,negativetwo,idim,ictxt,desc_a,info) + call psb_geaxpby(one,x,one,y,desc_a,info) + hasitnotfailed = psb_check_ans(y,negativeone,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("axpby : x + y")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Y = X + Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Y = X + Y ")') end if - - call psb_gemlt(x,y,desc_a,info) - + ! X = 1 , Y = 2, Y = -X + Y = -1 +2 = 1 + call psb_d_gen_const(x,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,two,idim,ictxt,desc_a,info) + call psb_geaxpby(negativeone,x,one,y,desc_a,info) + hasitnotfailed = psb_check_ans(y,one,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("mlt : y = x*y ")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Y = -X + Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Y = -X + Y ")') end if - - call psb_gemlt(1.0_psb_dpk_,x,y,0.0_psb_dpk_,z,desc_a,info) - + ! X = 2 , Y = -2, Y = 0.5*X + Y = 1 - 2 = -1 + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,negativetwo,idim,ictxt,desc_a,info) + call psb_geaxpby(onehalf,x,one,y,desc_a,info) + hasitnotfailed = psb_check_ans(y,negativeone,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("mlt : z = x*y ")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) - vz = z%get_vect() - write(psb_out_unit,'("z = ",es12.1)')vz(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Y = 0.5 X + Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Y = 0.5 X + Y ")') end if - - call psb_gediv(x,y,desc_a,info) - + ! X = -2 , Y = 1, Z = 0, Z = X + Y = -2 + 1 = -1 + call psb_d_gen_const(x,negativetwo,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_geaxpby(one,x,one,y,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,negativeone,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("div : x = x/y")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Z = X + Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Z = X + Y ")') end if - + ! X = 2 , Y = 1, Z = 0, Z = X - Y = 2 - 1 = 1 + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_geaxpby(one,x,negativeone,y,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,one,ictxt) + if (iam == psb_root_) then + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Z = X - Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Z = X - Y ")') + end if + ! X = 2 , Y = 1, Z = 0, Z = -X + Y = -2 + 1 = -1 + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_geaxpby(negativeone,x,one,y,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,negativeone,ictxt) + if (iam == psb_root_) then + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> axpby Z = -X + Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- axpby Z = -X + Y ")') + end if + ! X = 2 , Y = -0.5, Z = 0, Z = X*Y = 2*(-0.5) = -1 + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,negativeonehalf,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_gemlt(one,x,y,dzero,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,negativeone,ictxt) + if (iam == psb_root_) then + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> mlt Z = X*Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- mlt Z = X*Y ")') + end if + ! X = 1 , Y = 2, Z = 0, Z = X/Y = 1/2 = 0.5 + call psb_d_gen_const(x,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) call psb_gediv(x,y,z,desc_a,info) - + hasitnotfailed = psb_check_ans(z,onehalf,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("div : z = x/y")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vy = y%get_vect() - write(psb_out_unit,'("y = ",es12.1)')vy(:) - vz = z%get_vect() - write(psb_out_unit,'("z = ",es12.1)')vz(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> div Z = X/Y")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- div Z = X/Y ")') end if - + ! X = -1 , Z = 0, Z = |X| = |-1| = 1 + call psb_d_gen_const(x,negativeone,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_geabs(x,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,one,ictxt) + if (iam == psb_root_) then + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> abs Z = |X|")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- abs Z = |X| ")') + end if + ! X = 2 , Z = 0, Z = 1/X = 1/2 = 0.5 + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) call psb_geinv(x,z,desc_a,info) - + hasitnotfailed = psb_check_ans(z,onehalf,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("inv : z = 1/x")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vz = z%get_vect() - write(psb_out_unit,'("z = ",es12.1)')vz(:) + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> inv Z = 1/X")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- inv Z = 1/X ")') end if - - call psb_geaxpby(-1.0_psb_dpk_, x, 0.0_psb_dpk_, x, desc_a, info) + ! X = 1, Z = 0, c = -2, Z = X + c = -1 + call psb_d_gen_const(x,one,idim,ictxt,desc_a,info) + call psb_d_gen_const(z,dzero,idim,ictxt,desc_a,info) + call psb_geaddconst(x,negativetwo,z,desc_a,info) + hasitnotfailed = psb_check_ans(z,negativeone,ictxt) if (iam == psb_root_) then - write(psb_out_unit,'("abs : z = |x|")') - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - end if - - call psb_geabs(x,absz,desc_a,info) - - if (iam == psb_root_) then - vz = absz%get_vect() - write(psb_out_unit,'("|x| = ",es12.1)')vz(:) - end if - - c = 1.0/5.0; - call psb_gecmp(x,c,z,desc_a,info); - - if (iam == psb_root_) then - write(psb_out_unit,'("|z(i)| >=",es12.1)')c - vx = x%get_vect() - write(psb_out_unit,'("x = ",es12.1)')vx(:) - vz = z%get_vect() - write(psb_out_unit,'("z = ",es12.1)')vz(:) - end if - - call psb_mask(z,x,absz,t,desc_a,info) - - write(psb_out_unit,'("Computation of vector norms:")') - norm1 = psb_norm1(x,desc_a,info) - norm2 = psb_norm2(x,desc_a,info) - norm2w = psb_norm2(x,absz,desc_a,info) - norm2wc = psb_norm2(x,absz,z,desc_a,info) - norminf = psb_normi(x,desc_a,info) - if (iam == psb_root_) then - write(psb_out_unit,'("\|x\|_inf : ",es12.5," \|x\|_1 :",es12.5)')norminf,norm1 - write(psb_out_unit,'(" \|x\|_2 : ",es12.5," \|x\|_2,w : ",es12.5)')norm2,norm2w - write(psb_out_unit,'(" masked \|x\|_2,w : ",es12.5)')norm2wc + if(hasitnotfailed) write(psb_out_unit,'("TEST PASSED >>> Add constant Z = X + c")') + if(.not.hasitnotfailed) write(psb_out_unit,'("TEST FAILED --- Add constant Z = X + c")') end if ! - ! cleanup storage and exit + ! Vector to field operation ! + if (iam == psb_root_) write(psb_out_unit,'(" ")') + if (iam == psb_root_) write(psb_out_unit,'("Vector to Field Operations")') + if (iam == psb_root_) write(psb_out_unit,'(" ")') + + ! Dot product + call psb_d_gen_const(x,two,idim,ictxt,desc_a,info) + call psb_d_gen_const(y,onehalf,idim,ictxt,desc_a,info) + ans = psb_gedot(x,y,desc_a,info) + if (iam == psb_root_) then + if(ans == np*idim) write(psb_out_unit,'("TEST PASSED >>> Dot product")') + if(ans /= np*idim) write(psb_out_unit,'("TEST FAILED --- Dot product")') + end if + ! MaxNorm + call psb_d_gen_const(x,negativeonehalf,idim,ictxt,desc_a,info) + ans = psb_geamax(x,desc_a,info) + if (iam == psb_root_) then + if(ans == onehalf) write(psb_out_unit,'("TEST PASSED >>> MaxNorm")') + if(ans /= onehalf) write(psb_out_unit,'("TEST FAILED --- MaxNorm")') + end if + call psb_gefree(x,desc_a,info) call psb_gefree(y,desc_a,info) call psb_gefree(z,desc_a,info) - call psb_gefree(absz,desc_a,info) call psb_cdfree(desc_a,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ @@ -279,6 +372,8 @@ program vecoperation goto 9999 end if + + call psb_exit(ictxt) stop From 03cd6de7640c1b71053eaf0584d96c5f7e32438b Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 1 Apr 2020 17:00:48 +0200 Subject: [PATCH 36/61] Corrected bug for passage by value --- cbind/base/psb_c_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_d_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_s_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_z_psblas_cbind_mod.f90 | 12 ++++++------ 4 files changed, 24 insertions(+), 24 deletions(-) diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index cc22a1242..9215abe35 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -129,10 +129,10 @@ contains type(psb_c_descriptor) :: cdh - type(psb_desc_type), pointer :: descp - type(psb_c_vect_type), pointer :: xp,yp,zp - integer(psb_c_ipk_) :: info - complex(psb_spk_), intent(in) :: alpha,beta + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + complex(psb_spk_), intent(in), value :: alpha,beta res = -1 @@ -437,7 +437,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_float_complex) :: ch + real(c_float_complex), value :: ch res = -1 @@ -473,7 +473,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_c_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_float_complex) :: bh + real(c_float_complex), value :: bh res = -1 diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 766175b04..0006f0341 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -129,10 +129,10 @@ contains type(psb_c_descriptor) :: cdh - type(psb_desc_type), pointer :: descp - type(psb_d_vect_type), pointer :: xp,yp,zp - integer(psb_c_ipk_) :: info - real(psb_dpk_), intent(in) :: alpha,beta + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + real(psb_dpk_), intent(in), value :: alpha,beta res = -1 @@ -437,7 +437,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_double) :: ch + real(c_double), value :: ch res = -1 @@ -473,7 +473,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_double) :: bh + real(c_double), value :: bh res = -1 diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 8ce42dafd..cb5681b24 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -129,10 +129,10 @@ contains type(psb_c_descriptor) :: cdh - type(psb_desc_type), pointer :: descp - type(psb_s_vect_type), pointer :: xp,yp,zp - integer(psb_c_ipk_) :: info - real(psb_spk_), intent(in) :: alpha,beta + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + real(psb_spk_), intent(in), value :: alpha,beta res = -1 @@ -437,7 +437,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_float) :: ch + real(c_float), value :: ch res = -1 @@ -473,7 +473,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_float) :: bh + real(c_float), value :: bh res = -1 diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index a35ee8275..8ff526c9d 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -129,10 +129,10 @@ contains type(psb_c_descriptor) :: cdh - type(psb_desc_type), pointer :: descp - type(psb_z_vect_type), pointer :: xp,yp,zp - integer(psb_c_ipk_) :: info - complex(psb_dpk_), intent(in) :: alpha,beta + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp,yp,zp + integer(psb_c_ipk_) :: info + complex(psb_dpk_), intent(in), value :: alpha,beta res = -1 @@ -437,7 +437,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_double_complex) :: ch + real(c_double_complex), value :: ch res = -1 @@ -473,7 +473,7 @@ contains type(psb_desc_type), pointer :: descp type(psb_z_vect_type), pointer :: xp,zp integer(psb_c_ipk_) :: info - real(c_double_complex) :: bh + real(c_double_complex), value :: bh res = -1 From 6e28cc2b449e7123435924111028216e1b5f6410 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 2 Apr 2020 15:04:50 +0200 Subject: [PATCH 37/61] Corrected c interface of psb_mask for logic output --- cbind/base/psb_c_dbase.h | 2 +- cbind/base/psb_c_sbase.h | 2 +- cbind/base/psb_d_psblas_cbind_mod.f90 | 9 ++++----- cbind/base/psb_s_psblas_cbind_mod.f90 | 9 ++++----- 4 files changed, 10 insertions(+), 12 deletions(-) diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index cdeb02795..a51d738cb 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -77,7 +77,7 @@ psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descri psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); -psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, bool t, psb_c_descriptor *cdh); +psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, void *t, psb_c_descriptor *cdh); psb_d_t psb_c_dgemin(psb_c_dvector *xh,psb_c_descriptor *cdh); psb_d_t psb_c_dminquotient(psb_c_dvector *xh,psb_c_dvector *yh, psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 8db2d5ac2..41bdb0bda 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -77,7 +77,7 @@ psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descri psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); -psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, bool t, psb_c_descriptor *cdh); +psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, void *t, psb_c_descriptor *cdh); psb_s_t psb_c_sgemin(psb_c_svector *xh,psb_c_descriptor *cdh); #ifdef __cplusplus diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 0006f0341..efe1620fa 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -505,12 +505,12 @@ contains type(psb_c_dvector) :: ch,xh,mh type(psb_c_descriptor) :: cdh - logical(c_bool), value :: t + type(c_ptr), value :: t type(psb_desc_type), pointer :: descp type(psb_d_vect_type), pointer :: cp,xp,mp integer(psb_c_ipk_) :: info - logical :: ft + logical, pointer :: fp res = -1 @@ -534,11 +534,10 @@ contains else return end if + call c_f_pointer(t,fp) - ft = t - call psb_mask(cp,xp,mp,ft,descp,info) + call psb_mask(cp,xp,mp,fp,descp,info) - t = ft res = info end function psb_c_dmask diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index cb5681b24..3d55041cd 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -505,12 +505,12 @@ contains type(psb_c_svector) :: ch,xh,mh type(psb_c_descriptor) :: cdh - logical(c_bool), value :: t + type(c_ptr), value :: t type(psb_desc_type), pointer :: descp type(psb_s_vect_type), pointer :: cp,xp,mp integer(psb_c_ipk_) :: info - logical :: ft + logical, pointer :: fp res = -1 @@ -534,11 +534,10 @@ contains else return end if + call c_f_pointer(t,fp) - ft = t - call psb_mask(cp,xp,mp,ft,descp,info) + call psb_mask(cp,xp,mp,fp,descp,info) - t = ft res = info end function psb_c_smask From 9e9a2e3975c1c3e25d5c81a36d7aaf7f0a2cf6cb Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 2 Apr 2020 16:31:30 +0200 Subject: [PATCH 38/61] Corrected implementation of @X@_base_inv_a2_check to be compliant with NVECTOR behavior --- base/modules/serial/psb_c_base_vect_mod.f90 | 2 +- base/modules/serial/psb_d_base_vect_mod.f90 | 2 +- base/modules/serial/psb_s_base_vect_mod.f90 | 2 +- base/modules/serial/psb_z_base_vect_mod.f90 | 2 +- cbind/base/psb_c_cbase.h | 2 +- cbind/base/psb_c_dbase.h | 2 +- cbind/base/psb_c_sbase.h | 2 +- cbind/base/psb_c_zbase.h | 2 +- 8 files changed, 8 insertions(+), 8 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.f90 b/base/modules/serial/psb_c_base_vect_mod.f90 index 4facf5365..116b2a8d1 100644 --- a/base/modules/serial/psb_c_base_vect_mod.f90 +++ b/base/modules/serial/psb_c_base_vect_mod.f90 @@ -1523,7 +1523,7 @@ contains y%v(i) = 1_psb_spk_/x(i) else info = 1 - exit + y%v(i) = 0_psb_spk_ end if end do end if diff --git a/base/modules/serial/psb_d_base_vect_mod.f90 b/base/modules/serial/psb_d_base_vect_mod.f90 index 72759110b..0311e9949 100644 --- a/base/modules/serial/psb_d_base_vect_mod.f90 +++ b/base/modules/serial/psb_d_base_vect_mod.f90 @@ -1530,7 +1530,7 @@ contains y%v(i) = 1_psb_dpk_/x(i) else info = 1 - exit + y%v(i) = 0_psb_dpk_ end if end do end if diff --git a/base/modules/serial/psb_s_base_vect_mod.f90 b/base/modules/serial/psb_s_base_vect_mod.f90 index 6aab64974..01851abf2 100644 --- a/base/modules/serial/psb_s_base_vect_mod.f90 +++ b/base/modules/serial/psb_s_base_vect_mod.f90 @@ -1530,7 +1530,7 @@ contains y%v(i) = 1_psb_spk_/x(i) else info = 1 - exit + y%v(i) = 0_psb_spk_ end if end do end if diff --git a/base/modules/serial/psb_z_base_vect_mod.f90 b/base/modules/serial/psb_z_base_vect_mod.f90 index 085e9c3ad..f44f31db8 100644 --- a/base/modules/serial/psb_z_base_vect_mod.f90 +++ b/base/modules/serial/psb_z_base_vect_mod.f90 @@ -1523,7 +1523,7 @@ contains y%v(i) = 1_psb_dpk_/x(i) else info = 1 - exit + y%v(i) = 0_psb_dpk_ end if end do end if diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 1fa7873e8..e5e568d24 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -71,7 +71,7 @@ psb_i_t psb_c_cgediv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor psb_i_t psb_c_cgediv2(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_cgediv2_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index a51d738cb..2c11045e8 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -71,7 +71,7 @@ psb_i_t psb_c_dgediv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor psb_i_t psb_c_dgediv2(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_dgediv2_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_dvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 41bdb0bda..664761f75 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -71,7 +71,7 @@ psb_i_t psb_c_sgediv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor psb_i_t psb_c_sgediv2(psb_c_svector *xh,psb_c_svector *yh,psb_c_svector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_sgediv2_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_svector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index aebaccedc..738cd9d86 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -71,7 +71,7 @@ psb_i_t psb_c_zgediv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor psb_i_t psb_c_zgediv2(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_zgediv2_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_zvector *zh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); -psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); +psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); From 0f309850cc473406b4b580b7e0ed02c2841e8e38 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 2 Apr 2020 17:36:09 +0200 Subject: [PATCH 39/61] Corrected routine for weighted masked 2norm --- base/modules/serial/psb_c_vect_mod.F90 | 2 +- base/modules/serial/psb_d_vect_mod.F90 | 2 +- base/modules/serial/psb_s_vect_mod.F90 | 2 +- base/modules/serial/psb_z_vect_mod.F90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 8beb57a1a..384b04576 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -1030,7 +1030,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%acmp(id%v,szero,info) + where( abs(id%v%v) <= szero) x%v%v = szero call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index 99198a3df..306ef735a 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -1037,7 +1037,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%acmp(id%v,dzero,info) + where( abs(id%v%v) <= dzero) x%v%v = dzero call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index c2a3a6d94..23e12c32d 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -1037,7 +1037,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%acmp(id%v,szero,info) + where( abs(id%v%v) <= szero) x%v%v = szero call w%v%mlt(x%v,info) res = w%v%nrm2(n) else diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 76331b0a7..7c3bf1278 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -1030,7 +1030,7 @@ contains integer(psb_ipk_) :: info if (allocated(x%v).and.allocated(w%v).and.allocated(id%v)) then - call w%v%acmp(id%v,dzero,info) + where( abs(id%v%v) <= dzero) x%v%v = dzero call w%v%mlt(x%v,info) res = w%v%nrm2(n) else From 8a67534f0fd362958b328582c2483c74c656231b Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Fri, 3 Apr 2020 15:50:09 +0200 Subject: [PATCH 40/61] Added CBIND for functions in psb_util_mod --- cbind/Makefile | 17 +++---- cbind/util/Makefile | 41 ++++++++++++++++ cbind/util/psb_c_cutil.h | 16 +++++++ cbind/util/psb_c_dutil.h | 16 +++++++ cbind/util/psb_c_sutil.h | 16 +++++++ cbind/util/psb_c_util_cbind_mod.f90 | 72 +++++++++++++++++++++++++++++ cbind/util/psb_c_zutil.h | 16 +++++++ cbind/util/psb_d_util_cbind_mod.f90 | 72 +++++++++++++++++++++++++++++ cbind/util/psb_s_util_cbind_mod.f90 | 72 +++++++++++++++++++++++++++++ cbind/util/psb_util_cbind.h | 10 ++++ cbind/util/psb_z_util_cbind_mod.f90 | 72 +++++++++++++++++++++++++++++ 11 files changed, 412 insertions(+), 8 deletions(-) create mode 100644 cbind/util/Makefile create mode 100644 cbind/util/psb_c_cutil.h create mode 100644 cbind/util/psb_c_dutil.h create mode 100644 cbind/util/psb_c_sutil.h create mode 100644 cbind/util/psb_c_util_cbind_mod.f90 create mode 100644 cbind/util/psb_c_zutil.h create mode 100644 cbind/util/psb_d_util_cbind_mod.f90 create mode 100644 cbind/util/psb_s_util_cbind_mod.f90 create mode 100644 cbind/util/psb_util_cbind.h create mode 100644 cbind/util/psb_z_util_cbind_mod.f90 diff --git a/cbind/Makefile b/cbind/Makefile index 9beb16046..2abb6cfe5 100644 --- a/cbind/Makefile +++ b/cbind/Makefile @@ -6,25 +6,26 @@ INCDIR=../include MODDIR=../modules/ LIBNAME=$(CBINDLIBNAME) -lib: based precd krylovd +lib: based precd krylovd utild /bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR) /bin/cp -p $(CPUPDFLAG) *.h $(INCDIR) - /bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR) + /bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR) based: - cd base && $(MAKE) lib LIBNAME=$(LIBNAME) + cd base && $(MAKE) lib LIBNAME=$(LIBNAME) precd: based - cd prec && $(MAKE) lib LIBNAME=$(LIBNAME) + cd prec && $(MAKE) lib LIBNAME=$(LIBNAME) krylovd: based precd - cd krylov && $(MAKE) lib LIBNAME=$(LIBNAME) + cd krylov && $(MAKE) lib LIBNAME=$(LIBNAME) +utild: based + cd util && $(MAKE) lib LIBNAME=$(LIBNAME) - -clean: +clean: cd base && $(MAKE) clean cd prec && $(MAKE) clean cd krylov && $(MAKE) clean - + cd util && $(MAKE) clean veryclean: clean cd test/pargen && $(MAKE) clean diff --git a/cbind/util/Makefile b/cbind/util/Makefile new file mode 100644 index 000000000..f79809770 --- /dev/null +++ b/cbind/util/Makefile @@ -0,0 +1,41 @@ +TOP=../.. +include $(TOP)/Make.inc +LIBDIR=$(TOP)lib +INCLUDEDIR=$(TOP)/include +MODDIR=$(TOP)/modules +HERE=.. + +FINCLUDES=$(FMFLAG). $(FMFLAG)$(HERE) $(FMFLAG)$(MODDIR) +CINCLUDES=-I. -I$(HERE) -I$(INCLUDEDIR) + +FOBJS= psb_c_util_cbind_mod.o \ + psb_d_util_cbind_mod.o \ + psb_s_util_cbind_mod.o \ + psb_z_util_cbind_mod.o + +# COBJS= psb_c_sutil.o psb_c_dutil.o psb_c_cutil.o psb_c_zutil.o +CMOD= psb_util_cbind.h psb_c_cutil.h psb_c_zutil.h psb_c_dutil.h psb_c_sutil.h +OBJS=$(FOBJS) $(COBJS) + +LIBNAME=$(CBINDLIBNAME) + + +lib: $(OBJS) $(CMOD) + $(AR) $(HERE)/$(LIBNAME) $(OBJS) + $(RANLIB) $(HERE)/$(LIBNAME) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) + +# $(COBJS): $(CMOD) + +psb_util_cbind_mod.o: psb_c_util_cbind_mod.o \ + psb_d_util_cbind_mod.o \ + psb_s_util_cbind_mod.o \ + psb_z_util_cbind_mod.o + +veryclean: clean + /bin/rm -f $(HERE)/$(LIBNAME) + +clean: + /bin/rm -f $(OBJS) *$(.mod) + +veryclean: clean diff --git a/cbind/util/psb_c_cutil.h b/cbind/util/psb_c_cutil.h new file mode 100644 index 000000000..4d2755d6b --- /dev/null +++ b/cbind/util/psb_c_cutil.h @@ -0,0 +1,16 @@ +#ifndef PSB_C_CUTIL_ +#define PSB_C_CUTIL_ +#include "psb_base_cbind.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* I/O Routine */ +psb_i_t psb_c_cmm_mat_write(psb_c_cspmat *ah, char *matrixtitle, char *filename); + +#ifdef __cplusplus +} +#endif /* __cplusplus */ + +#endif diff --git a/cbind/util/psb_c_dutil.h b/cbind/util/psb_c_dutil.h new file mode 100644 index 000000000..306d73104 --- /dev/null +++ b/cbind/util/psb_c_dutil.h @@ -0,0 +1,16 @@ +#ifndef PSB_C_DUTIL_ +#define PSB_C_DUTIL_ +#include "psb_base_cbind.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* I/O Routine */ +psb_i_t psb_c_dmm_mat_write(psb_c_dspmat *ah, char *matrixtitle, char *filename); + +#ifdef __cplusplus +} +#endif /* __cplusplus */ + +#endif diff --git a/cbind/util/psb_c_sutil.h b/cbind/util/psb_c_sutil.h new file mode 100644 index 000000000..9dd1ed54f --- /dev/null +++ b/cbind/util/psb_c_sutil.h @@ -0,0 +1,16 @@ +#ifndef PSB_C_SUTIL_ +#define PSB_C_SUTIL_ +#include "psb_base_cbind.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* I/O Routine */ +psb_i_t psb_c_smm_mat_write(psb_c_sspmat *ah, char *matrixtitle, char *filename); + +#ifdef __cplusplus +} +#endif /* __cplusplus */ + +#endif diff --git a/cbind/util/psb_c_util_cbind_mod.f90 b/cbind/util/psb_c_util_cbind_mod.f90 new file mode 100644 index 000000000..4b67b523f --- /dev/null +++ b/cbind/util/psb_c_util_cbind_mod.f90 @@ -0,0 +1,72 @@ +! +! 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. +! +! + +module psb_c_util_cbind_mod + use iso_c_binding + use psb_base_mod + use psb_util_mod + use psb_objhandle_mod + use psb_base_string_cbind_mod + +contains + + function psb_c_cmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + implicit none + real(c_float_complex) :: res + + type(psb_c_cspmat) :: ah + character(c_char) :: matrixtitle(*) + character(c_char) :: filename(*) + + type(psb_cspmat_type), pointer :: ap + character(1024) :: mtitle + character(1024) :: fname + integer(psb_c_ipk_) :: info + + + res = -1.0 + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call stringc2f(matrixtitle,mtitle) + call stringc2f(filename,fname) + + call mm_mat_write(ap,mtitle,info,filename=fname) + + res = info + + end function psb_c_cmm_mat_write + +end module diff --git a/cbind/util/psb_c_zutil.h b/cbind/util/psb_c_zutil.h new file mode 100644 index 000000000..f5d0f2258 --- /dev/null +++ b/cbind/util/psb_c_zutil.h @@ -0,0 +1,16 @@ +#ifndef PSB_C_ZUTIL_ +#define PSB_C_ZUTIL_ +#include "psb_base_cbind.h" + +#ifdef __cplusplus +extern "C" { +#endif + +/* I/O Routine */ +psb_i_t psb_c_zmm_mat_write(psb_c_zspmat *ah, char *matrixtitle, char *filename); + +#ifdef __cplusplus +} +#endif /* __cplusplus */ + +#endif diff --git a/cbind/util/psb_d_util_cbind_mod.f90 b/cbind/util/psb_d_util_cbind_mod.f90 new file mode 100644 index 000000000..4c689fdf3 --- /dev/null +++ b/cbind/util/psb_d_util_cbind_mod.f90 @@ -0,0 +1,72 @@ +! +! 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. +! +! + +module psb_d_util_cbind_mod + use iso_c_binding + use psb_base_mod + use psb_util_mod + use psb_objhandle_mod + use psb_base_string_cbind_mod + +contains + + function psb_c_dmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + implicit none + real(c_double) :: res + + type(psb_c_dspmat) :: ah + character(c_char) :: matrixtitle(*) + character(c_char) :: filename(*) + + type(psb_dspmat_type), pointer :: ap + character(1024) :: mtitle + character(1024) :: fname + integer(psb_c_ipk_) :: info + + + res = -1.0 + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call stringc2f(matrixtitle,mtitle) + call stringc2f(filename,fname) + + call mm_mat_write(ap,mtitle,info,filename=fname) + + res = info + + end function psb_c_dmm_mat_write + +end module diff --git a/cbind/util/psb_s_util_cbind_mod.f90 b/cbind/util/psb_s_util_cbind_mod.f90 new file mode 100644 index 000000000..010c2604d --- /dev/null +++ b/cbind/util/psb_s_util_cbind_mod.f90 @@ -0,0 +1,72 @@ +! +! 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. +! +! + +module psb_s_util_cbind_mod + use iso_c_binding + use psb_base_mod + use psb_util_mod + use psb_objhandle_mod + use psb_base_string_cbind_mod + +contains + + function psb_c_smm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + implicit none + real(c_float) :: res + + type(psb_c_sspmat) :: ah + character(c_char) :: matrixtitle(*) + character(c_char) :: filename(*) + + type(psb_sspmat_type), pointer :: ap + character(1024) :: mtitle + character(1024) :: fname + integer(psb_c_ipk_) :: info + + + res = -1.0 + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call stringc2f(matrixtitle,mtitle) + call stringc2f(filename,fname) + + call mm_mat_write(ap,mtitle,info,filename=fname) + + res = info + + end function psb_c_smm_mat_write + +end module diff --git a/cbind/util/psb_util_cbind.h b/cbind/util/psb_util_cbind.h new file mode 100644 index 000000000..4179b3b1c --- /dev/null +++ b/cbind/util/psb_util_cbind.h @@ -0,0 +1,10 @@ +#ifndef PSB_UTIL_CBIND_ +#define PSB_UTIL_CBIND_ + +#include "psb_c_sutil.h" +#include "psb_c_dutil.h" +#include "psb_c_cutil.h" +#include "psb_c_zutil.h" + + +#endif diff --git a/cbind/util/psb_z_util_cbind_mod.f90 b/cbind/util/psb_z_util_cbind_mod.f90 new file mode 100644 index 000000000..758f28fe7 --- /dev/null +++ b/cbind/util/psb_z_util_cbind_mod.f90 @@ -0,0 +1,72 @@ +! +! 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. +! +! + +module psb_z_util_cbind_mod + use iso_c_binding + use psb_base_mod + use psb_util_mod + use psb_objhandle_mod + use psb_base_string_cbind_mod + +contains + + function psb_c_zmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + implicit none + real(c_double_complex) :: res + + type(psb_c_zspmat) :: ah + character(c_char) :: matrixtitle(*) + character(c_char) :: filename(*) + + type(psb_zspmat_type), pointer :: ap + character(1024) :: mtitle + character(1024) :: fname + integer(psb_c_ipk_) :: info + + + res = -1.0 + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call stringc2f(matrixtitle,mtitle) + call stringc2f(filename,fname) + + call mm_mat_write(ap,mtitle,info,filename=fname) + + res = info + + end function psb_c_zmm_mat_write + +end module From a6db1b566c83195d225f03b950915828f6cf595c Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 12:49:41 +0200 Subject: [PATCH 41/61] Added Interface (and C Interface) for nnz of a sparse matrix --- base/modules/psblas/psb_c_psblas_mod.F90 | 13 +++- base/modules/psblas/psb_d_psblas_mod.F90 | 13 +++- base/modules/psblas/psb_s_psblas_mod.F90 | 13 +++- base/modules/psblas/psb_z_psblas_mod.F90 | 13 +++- base/psblas/Makefile | 3 +- base/psblas/psb_cgetmatinfo.f90 | 92 ++++++++++++++++++++++++ base/psblas/psb_dgetmatinfo.f90 | 92 ++++++++++++++++++++++++ base/psblas/psb_sgetmatinfo.f90 | 92 ++++++++++++++++++++++++ base/psblas/psb_zgetmatinfo.f90 | 92 ++++++++++++++++++++++++ cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 26 +++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 26 +++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 26 +++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 26 +++++++ 17 files changed, 526 insertions(+), 5 deletions(-) create mode 100644 base/psblas/psb_cgetmatinfo.f90 create mode 100644 base/psblas/psb_dgetmatinfo.f90 create mode 100644 base/psblas/psb_sgetmatinfo.f90 create mode 100644 base/psblas/psb_zgetmatinfo.f90 diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index ad52858e3..56ea620a4 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -30,7 +30,7 @@ ! ! module psb_c_psblas_mod - use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_, psb_lpk_ use psb_c_vect_mod, only : psb_c_vect_type use psb_c_mat_mod, only : psb_cspmat_type @@ -588,4 +588,15 @@ module psb_c_psblas_mod end interface + interface psb_nnz + function psb_cget_nnz(a,desc_a,info) result(res) + import :: psb_desc_type, psb_ipk_, psb_lpk_, & + & psb_cspmat_type, psb_spk_ + integer(psb_lpk_) :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 57055e73a..2c0ea4386 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -30,7 +30,7 @@ ! ! module psb_d_psblas_mod - use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_, psb_lpk_ use psb_d_vect_mod, only : psb_d_vect_type use psb_d_mat_mod, only : psb_dspmat_type @@ -623,4 +623,15 @@ module psb_d_psblas_mod end function end interface + interface psb_nnz + function psb_dget_nnz(a,desc_a,info) result(res) + import :: psb_desc_type, psb_ipk_, psb_lpk_, & + & psb_dspmat_type, psb_dpk_ + integer(psb_lpk_) :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 5dc5e6423..8b9a21c0f 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -30,7 +30,7 @@ ! ! module psb_s_psblas_mod - use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_ + use psb_desc_mod, only : psb_desc_type, psb_spk_, psb_ipk_, psb_lpk_ use psb_s_vect_mod, only : psb_s_vect_type use psb_s_mat_mod, only : psb_sspmat_type @@ -623,4 +623,15 @@ module psb_s_psblas_mod end function end interface + interface psb_nnz + function psb_sget_nnz(a,desc_a,info) result(res) + import :: psb_desc_type, psb_ipk_, psb_lpk_, & + & psb_sspmat_type, psb_spk_ + integer(psb_lpk_) :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 02a45e03e..279c28ba3 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -30,7 +30,7 @@ ! ! module psb_z_psblas_mod - use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_ + use psb_desc_mod, only : psb_desc_type, psb_dpk_, psb_ipk_, psb_lpk_ use psb_z_vect_mod, only : psb_z_vect_type use psb_z_mat_mod, only : psb_zspmat_type @@ -588,4 +588,15 @@ module psb_z_psblas_mod end interface + interface psb_nnz + function psb_zget_nnz(a,desc_a,info) result(res) + import :: psb_desc_type, psb_ipk_, psb_lpk_, & + & psb_zspmat_type, psb_dpk_ + integer(psb_lpk_) :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_z_psblas_mod diff --git a/base/psblas/Makefile b/base/psblas/Makefile index 1c54aaa5a..a16ab35cd 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -15,7 +15,8 @@ OBJS= psb_ddot.o psb_damax.o psb_dasum.o psb_daxpby.o\ psb_cinv_vect.o psb_dinv_vect.o psb_zinv_vect.o psb_sinv_vect.o\ psb_dcmp_vect.o psb_scmp_vect.o psb_ccmp_vect.o psb_zcmp_vect.o\ psb_cabs_vect.o psb_dabs_vect.o psb_sabs_vect.o \ - psb_zabs_vect.o + psb_zabs_vect.o psb_cgetmatinfo.o psb_dgetmatinfo.o psb_sgetmatinfo.o \ + psb_zgetmatinfo.o LIBDIR=.. INCDIR=.. diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 new file mode 100644 index 000000000..43bd7ea50 --- /dev/null +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -0,0 +1,92 @@ +! +! 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_cgetmatinfo.f90 +! +! This function containts the implementation for obtaining information on the +! paralle sparse matrix +! +function psb_cget_nnz(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_cget_nnz + use psi_mod + use mpi + + implicit none + + integer(psb_lpk_) :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_cspmv' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + localnnz = a%get_nzeros() + + call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 new file mode 100644 index 000000000..39f4e539d --- /dev/null +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -0,0 +1,92 @@ +! +! 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_dgetmatinfo.f90 +! +! This function containts the implementation for obtaining information on the +! paralle sparse matrix +! +function psb_dget_nnz(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_dget_nnz + use psi_mod + use mpi + + implicit none + + integer(psb_lpk_) :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_dspmv' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + localnnz = a%get_nzeros() + + call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 new file mode 100644 index 000000000..f5593eaa4 --- /dev/null +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -0,0 +1,92 @@ +! +! 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_sgetmatinfo.f90 +! +! This function containts the implementation for obtaining information on the +! paralle sparse matrix +! +function psb_sget_nnz(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_sget_nnz + use psi_mod + use mpi + + implicit none + + integer(psb_lpk_) :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_sspmv' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + localnnz = a%get_nzeros() + + call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 new file mode 100644 index 000000000..76904239a --- /dev/null +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -0,0 +1,92 @@ +! +! 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_zgetmatinfo.f90 +! +! This function containts the implementation for obtaining information on the +! paralle sparse matrix +! +function psb_zget_nnz(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_zget_nnz + use psi_mod + use mpi + + implicit none + + integer(psb_lpk_) :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_zspmv' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + localnnz = a%get_nzeros() + + call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index e5e568d24..4f4e5bb34 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -40,6 +40,7 @@ psb_i_t psb_c_cspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, const psb_c_t *val, psb_c_cspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_cmat_get_nrows(psb_c_cspmat *mh); psb_i_t psb_c_cmat_get_ncols(psb_c_cspmat *mh); +psb_l_t psb_c_cnnz(psb_c_cspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 2c11045e8..15a5ab158 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -40,6 +40,7 @@ psb_i_t psb_c_dspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, const psb_d_t *val, psb_c_dspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_dmat_get_nrows(psb_c_dspmat *mh); psb_i_t psb_c_dmat_get_ncols(psb_c_dspmat *mh); +psb_l_t psb_c_dnnz(psb_c_dspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 9215abe35..d52d4140d 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -871,5 +871,31 @@ contains end function psb_c_cspsm + function psb_c_cnnz(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_nnz(ap,descp,info) + + end function psb_c_cnnz + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 664761f75..e9827fecd 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -40,6 +40,7 @@ psb_i_t psb_c_sspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, const psb_s_t *val, psb_c_sspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_smat_get_nrows(psb_c_sspmat *mh); psb_i_t psb_c_smat_get_ncols(psb_c_sspmat *mh); +psb_l_t psb_c_snnz(psb_c_sspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 738cd9d86..090e25449 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -40,6 +40,7 @@ psb_i_t psb_c_zspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, const psb_z_t *val, psb_c_zspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_zmat_get_nrows(psb_c_zspmat *mh); psb_i_t psb_c_zmat_get_ncols(psb_c_zspmat *mh); +psb_l_t psb_c_znnz(psb_c_zspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index efe1620fa..49ef0278c 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -972,5 +972,31 @@ contains end function psb_c_dspsm + function psb_c_dnnz(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_nnz(ap,descp,info) + + end function psb_c_dnnz + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 3d55041cd..76f850107 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -972,5 +972,31 @@ contains end function psb_c_sspsm + function psb_c_snnz(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_nnz(ap,descp,info) + + end function psb_c_snnz + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 8ff526c9d..91ca0f558 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -871,5 +871,31 @@ contains end function psb_c_zspsm + function psb_c_znnz(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_nnz(ap,descp,info) + + end function psb_c_znnz + end module psb_z_psblas_cbind_mod From c4cf78e7b8a446363fb39f0e71d471d98e9046b3 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 13:50:48 +0200 Subject: [PATCH 42/61] Added interface (and C interface) to is_upd() for sparse matrices --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 +++++ base/psblas/psb_cgetmatinfo.f90 | 56 +++++++++++++++++++++++- base/psblas/psb_dgetmatinfo.f90 | 56 +++++++++++++++++++++++- base/psblas/psb_sgetmatinfo.f90 | 56 +++++++++++++++++++++++- base/psblas/psb_zgetmatinfo.f90 | 56 +++++++++++++++++++++++- cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 24 ++++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 24 ++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 24 ++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 24 ++++++++++ 16 files changed, 364 insertions(+), 4 deletions(-) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 56ea620a4..05c0b895f 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -599,4 +599,15 @@ module psb_c_psblas_mod end function end interface + interface psb_is_matupd + function psb_c_is_matupd(a,desc_a,info) result(res) + import :: psb_desc_type, psb_cspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 2c0ea4386..165ee4c11 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -634,4 +634,15 @@ module psb_d_psblas_mod end function end interface + interface psb_is_matupd + function psb_d_is_matupd(a,desc_a,info) result(res) + import :: psb_desc_type, psb_dspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 8b9a21c0f..d1b04e759 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -634,4 +634,15 @@ module psb_s_psblas_mod end function end interface + interface psb_is_matupd + function psb_s_is_matupd(a,desc_a,info) result(res) + import :: psb_desc_type, psb_sspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 279c28ba3..e16a4060a 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -599,4 +599,15 @@ module psb_z_psblas_mod end function end interface + interface psb_is_matupd + function psb_z_is_matupd(a,desc_a,info) result(res) + import :: psb_desc_type, psb_zspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_z_psblas_mod diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 index 43bd7ea50..e2516d046 100644 --- a/base/psblas/psb_cgetmatinfo.f90 +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -52,7 +52,7 @@ function psb_cget_nnz(a,desc_a,info) result(res) integer(psb_lpk_) :: m,n,ia,ja,localnnz character(len=20) :: name, ch_err ! - name='psb_cspmv' + name='psb_cget_nnz' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -90,3 +90,57 @@ function psb_cget_nnz(a,desc_a,info) result(res) return end function + +function psb_c_is_matupd(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_c_is_matupd + use psi_mod + + implicit none + + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_cis_matupd' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_upd() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 index 39f4e539d..031ad63cd 100644 --- a/base/psblas/psb_dgetmatinfo.f90 +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -52,7 +52,7 @@ function psb_dget_nnz(a,desc_a,info) result(res) integer(psb_lpk_) :: m,n,ia,ja,localnnz character(len=20) :: name, ch_err ! - name='psb_dspmv' + name='psb_dget_nnz' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -90,3 +90,57 @@ function psb_dget_nnz(a,desc_a,info) result(res) return end function + +function psb_d_is_matupd(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_d_is_matupd + use psi_mod + + implicit none + + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_dis_matupd' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_upd() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 index f5593eaa4..a9a4d1320 100644 --- a/base/psblas/psb_sgetmatinfo.f90 +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -52,7 +52,7 @@ function psb_sget_nnz(a,desc_a,info) result(res) integer(psb_lpk_) :: m,n,ia,ja,localnnz character(len=20) :: name, ch_err ! - name='psb_sspmv' + name='psb_sget_nnz' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -90,3 +90,57 @@ function psb_sget_nnz(a,desc_a,info) result(res) return end function + +function psb_s_is_matupd(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_s_is_matupd + use psi_mod + + implicit none + + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_sis_matupd' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_upd() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 index 76904239a..6d1ec8575 100644 --- a/base/psblas/psb_zgetmatinfo.f90 +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -52,7 +52,7 @@ function psb_zget_nnz(a,desc_a,info) result(res) integer(psb_lpk_) :: m,n,ia,ja,localnnz character(len=20) :: name, ch_err ! - name='psb_zspmv' + name='psb_zget_nnz' info=psb_success_ call psb_erractionsave(err_act) if (psb_errstatus_fatal()) then @@ -90,3 +90,57 @@ function psb_zget_nnz(a,desc_a,info) result(res) return end function + +function psb_z_is_matupd(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_z_is_matupd + use psi_mod + + implicit none + + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_zis_matupd' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_upd() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 4f4e5bb34..0c76df49f 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -41,6 +41,7 @@ psb_i_t psb_c_cspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, psb_i_t psb_c_cmat_get_nrows(psb_c_cspmat *mh); psb_i_t psb_c_cmat_get_ncols(psb_c_cspmat *mh); psb_l_t psb_c_cnnz(psb_c_cspmat *mh,psb_c_descriptor *cdh); +bool psb_c_cis_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 15a5ab158..3c3ac7126 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -41,6 +41,7 @@ psb_i_t psb_c_dspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, psb_i_t psb_c_dmat_get_nrows(psb_c_dspmat *mh); psb_i_t psb_c_dmat_get_ncols(psb_c_dspmat *mh); psb_l_t psb_c_dnnz(psb_c_dspmat *mh,psb_c_descriptor *cdh); +bool psb_c_dis_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index d52d4140d..dfd9dde10 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -897,5 +897,29 @@ contains end function psb_c_cnnz + function psb_c_cis_matupd(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matupd(ap,descp,info) + end function end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index e9827fecd..2bd285b29 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -41,6 +41,7 @@ psb_i_t psb_c_sspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, psb_i_t psb_c_smat_get_nrows(psb_c_sspmat *mh); psb_i_t psb_c_smat_get_ncols(psb_c_sspmat *mh); psb_l_t psb_c_snnz(psb_c_sspmat *mh,psb_c_descriptor *cdh); +bool psb_c_sis_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 090e25449..94cf02097 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -41,6 +41,7 @@ psb_i_t psb_c_zspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, psb_i_t psb_c_zmat_get_nrows(psb_c_zspmat *mh); psb_i_t psb_c_zmat_get_ncols(psb_c_zspmat *mh); psb_l_t psb_c_znnz(psb_c_zspmat *mh,psb_c_descriptor *cdh); +bool psb_c_zis_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 49ef0278c..09f7e5959 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -998,5 +998,29 @@ contains end function psb_c_dnnz + function psb_c_dis_matupd(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matupd(ap,descp,info) + end function end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 76f850107..92b76b2f1 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -998,5 +998,29 @@ contains end function psb_c_snnz + function psb_c_sis_matupd(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matupd(ap,descp,info) + end function end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 91ca0f558..d9cc0e50e 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -897,5 +897,29 @@ contains end function psb_c_znnz + function psb_c_zis_matupd(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matupd(ap,descp,info) + end function end module psb_z_psblas_cbind_mod From d92b6c02cf6e6546d6d15a7fad353eb41ce6f070 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 14:00:21 +0200 Subject: [PATCH 43/61] Added interface (and C interface) to is_asb() for sparse matrices --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 +++++ base/psblas/psb_cgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_dgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_sgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_zgetmatinfo.f90 | 54 ++++++++++++++++++++++++ cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 25 +++++++++++ 16 files changed, 364 insertions(+) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 05c0b895f..9bf20758e 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -610,4 +610,15 @@ module psb_c_psblas_mod end function end interface + interface psb_is_matasb + function psb_c_is_matasb(a,desc_a,info) result(res) + import :: psb_desc_type, psb_cspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 165ee4c11..ac4be69ef 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -645,4 +645,15 @@ module psb_d_psblas_mod end function end interface + interface psb_is_matasb + function psb_d_is_matasb(a,desc_a,info) result(res) + import :: psb_desc_type, psb_dspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index d1b04e759..547b5e6ee 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -645,4 +645,15 @@ module psb_s_psblas_mod end function end interface + interface psb_is_matasb + function psb_s_is_matasb(a,desc_a,info) result(res) + import :: psb_desc_type, psb_sspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index e16a4060a..93940a16d 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -610,4 +610,15 @@ module psb_z_psblas_mod end function end interface + interface psb_is_matasb + function psb_z_is_matasb(a,desc_a,info) result(res) + import :: psb_desc_type, psb_zspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_z_psblas_mod diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 index e2516d046..70cadcea6 100644 --- a/base/psblas/psb_cgetmatinfo.f90 +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -144,3 +144,57 @@ function psb_c_is_matupd(a,desc_a,info) result(res) return end function + +function psb_c_is_matasb(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_c_is_matasb + use psi_mod + + implicit none + + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_cis_matasb' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_asb() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 index 031ad63cd..59b38bd04 100644 --- a/base/psblas/psb_dgetmatinfo.f90 +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -144,3 +144,57 @@ function psb_d_is_matupd(a,desc_a,info) result(res) return end function + +function psb_d_is_matasb(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_d_is_matasb + use psi_mod + + implicit none + + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_dis_matasb' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_asb() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 index a9a4d1320..f544a272c 100644 --- a/base/psblas/psb_sgetmatinfo.f90 +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -144,3 +144,57 @@ function psb_s_is_matupd(a,desc_a,info) result(res) return end function + +function psb_s_is_matasb(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_s_is_matasb + use psi_mod + + implicit none + + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_sis_matasb' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_asb() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 index 6d1ec8575..8bbb5bcc9 100644 --- a/base/psblas/psb_zgetmatinfo.f90 +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -144,3 +144,57 @@ function psb_z_is_matupd(a,desc_a,info) result(res) return end function + +function psb_z_is_matasb(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_z_is_matasb + use psi_mod + + implicit none + + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_zis_matasb' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_asb() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 0c76df49f..1c2123661 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -42,6 +42,7 @@ psb_i_t psb_c_cmat_get_nrows(psb_c_cspmat *mh); psb_i_t psb_c_cmat_get_ncols(psb_c_cspmat *mh); psb_l_t psb_c_cnnz(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); +bool psb_c_cis_matasb(psb_c_cspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 3c3ac7126..94dd92be3 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -42,6 +42,7 @@ psb_i_t psb_c_dmat_get_nrows(psb_c_dspmat *mh); psb_i_t psb_c_dmat_get_ncols(psb_c_dspmat *mh); psb_l_t psb_c_dnnz(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); +bool psb_c_dis_matasb(psb_c_dspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index dfd9dde10..5171d0abf 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -922,4 +922,29 @@ contains res = psb_is_matupd(ap,descp,info) end function + function psb_c_cis_matasb(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matasb(ap,descp,info) + end function + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 2bd285b29..961766cd2 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -42,6 +42,7 @@ psb_i_t psb_c_smat_get_nrows(psb_c_sspmat *mh); psb_i_t psb_c_smat_get_ncols(psb_c_sspmat *mh); psb_l_t psb_c_snnz(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); +bool psb_c_sis_matasb(psb_c_sspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 94cf02097..f5ca30f39 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -42,6 +42,7 @@ psb_i_t psb_c_zmat_get_nrows(psb_c_zspmat *mh); psb_i_t psb_c_zmat_get_ncols(psb_c_zspmat *mh); psb_l_t psb_c_znnz(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); +bool psb_c_zis_matasb(psb_c_zspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 09f7e5959..152d5f55d 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1023,4 +1023,29 @@ contains res = psb_is_matupd(ap,descp,info) end function + function psb_c_dis_matasb(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matasb(ap,descp,info) + end function + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 92b76b2f1..c5a3e686e 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1023,4 +1023,29 @@ contains res = psb_is_matupd(ap,descp,info) end function + function psb_c_sis_matasb(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matasb(ap,descp,info) + end function + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index d9cc0e50e..d6f853b85 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -922,4 +922,29 @@ contains res = psb_is_matupd(ap,descp,info) end function + function psb_c_zis_matasb(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matasb(ap,descp,info) + end function + end module psb_z_psblas_cbind_mod From 814e09f5dbe4281985ead528c861d51b63f05c89 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 14:11:31 +0200 Subject: [PATCH 44/61] Added interface (and C interface) to is_bld() for sparse matrices --- base/modules/psblas/psb_c_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_d_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_s_psblas_mod.F90 | 11 +++++ base/modules/psblas/psb_z_psblas_mod.F90 | 11 +++++ base/psblas/psb_cgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_dgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_sgetmatinfo.f90 | 54 ++++++++++++++++++++++++ base/psblas/psb_zgetmatinfo.f90 | 54 ++++++++++++++++++++++++ cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 1 + cbind/base/psb_d_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 25 +++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 25 +++++++++++ 16 files changed, 364 insertions(+) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index 9bf20758e..b5f9d97a5 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -621,4 +621,15 @@ module psb_c_psblas_mod end function end interface + interface psb_is_matbld + function psb_c_is_matbld(a,desc_a,info) result(res) + import :: psb_desc_type, psb_cspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_c_psblas_mod diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index ac4be69ef..05e4b3436 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -656,4 +656,15 @@ module psb_d_psblas_mod end function end interface + interface psb_is_matbld + function psb_d_is_matbld(a,desc_a,info) result(res) + import :: psb_desc_type, psb_dspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_d_psblas_mod diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 547b5e6ee..651a0c6e0 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -656,4 +656,15 @@ module psb_s_psblas_mod end function end interface + interface psb_is_matbld + function psb_s_is_matbld(a,desc_a,info) result(res) + import :: psb_desc_type, psb_sspmat_type, & + & psb_spk_, psb_ipk_ + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_s_psblas_mod diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 93940a16d..63fed5ae9 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -621,4 +621,15 @@ module psb_z_psblas_mod end function end interface + interface psb_is_matbld + function psb_z_is_matbld(a,desc_a,info) result(res) + import :: psb_desc_type, psb_zspmat_type, & + & psb_dpk_, psb_ipk_ + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + end function + end interface + end module psb_z_psblas_mod diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 index 70cadcea6..296bae9db 100644 --- a/base/psblas/psb_cgetmatinfo.f90 +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -198,3 +198,57 @@ function psb_c_is_matasb(a,desc_a,info) result(res) return end function + +function psb_c_is_matbld(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_c_is_matbld + use psi_mod + + implicit none + + logical :: res + type(psb_cspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_cis_matbld' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_bld() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 index 59b38bd04..1dd24c7ab 100644 --- a/base/psblas/psb_dgetmatinfo.f90 +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -198,3 +198,57 @@ function psb_d_is_matasb(a,desc_a,info) result(res) return end function + +function psb_d_is_matbld(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_d_is_matbld + use psi_mod + + implicit none + + logical :: res + type(psb_dspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_dis_matbld' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_bld() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 index f544a272c..47684d8f6 100644 --- a/base/psblas/psb_sgetmatinfo.f90 +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -198,3 +198,57 @@ function psb_s_is_matasb(a,desc_a,info) result(res) return end function + +function psb_s_is_matbld(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_s_is_matbld + use psi_mod + + implicit none + + logical :: res + type(psb_sspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_sis_matbld' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_bld() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 index 8bbb5bcc9..1dfa75251 100644 --- a/base/psblas/psb_zgetmatinfo.f90 +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -198,3 +198,57 @@ function psb_z_is_matasb(a,desc_a,info) result(res) return end function + +function psb_z_is_matbld(a,desc_a,info) result(res) + use psb_base_mod, psb_protect_name => psb_z_is_matbld + use psi_mod + + implicit none + + logical :: res + type(psb_zspmat_type), intent(in) :: a + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! locals + integer(psb_ipk_) :: ictxt, np, me,& + & err_act, iia, jja + integer(psb_lpk_) :: m,n,ia,ja,localnnz + character(len=20) :: name, ch_err + ! + name='psb_zis_matbld' + info=psb_success_ + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + + ! Check for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%is_bld() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end function diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 1c2123661..dbc81b42c 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -43,6 +43,7 @@ psb_i_t psb_c_cmat_get_ncols(psb_c_cspmat *mh); psb_l_t psb_c_cnnz(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matasb(psb_c_cspmat *mh,psb_c_descriptor *cdh); +bool psb_c_cis_matbld(psb_c_cspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 94dd92be3..d510f0fa9 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -43,6 +43,7 @@ psb_i_t psb_c_dmat_get_ncols(psb_c_dspmat *mh); psb_l_t psb_c_dnnz(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matasb(psb_c_dspmat *mh,psb_c_descriptor *cdh); +bool psb_c_dis_matbld(psb_c_dspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 5171d0abf..6bfc9d265 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -947,4 +947,29 @@ contains res = psb_is_matasb(ap,descp,info) end function + function psb_c_cis_matbld(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matbld(ap,descp,info) + end function + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 961766cd2..5e89d14ec 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -43,6 +43,7 @@ psb_i_t psb_c_smat_get_ncols(psb_c_sspmat *mh); psb_l_t psb_c_snnz(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matasb(psb_c_sspmat *mh,psb_c_descriptor *cdh); +bool psb_c_sis_matbld(psb_c_sspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index f5ca30f39..c245fd837 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -43,6 +43,7 @@ psb_i_t psb_c_zmat_get_ncols(psb_c_zspmat *mh); psb_l_t psb_c_znnz(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matasb(psb_c_zspmat *mh,psb_c_descriptor *cdh); +bool psb_c_zis_matbld(psb_c_zspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 152d5f55d..41257e298 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1048,4 +1048,29 @@ contains res = psb_is_matasb(ap,descp,info) end function + function psb_c_dis_matbld(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matbld(ap,descp,info) + end function + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index c5a3e686e..5b25f77a2 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1048,4 +1048,29 @@ contains res = psb_is_matasb(ap,descp,info) end function + function psb_c_sis_matbld(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matbld(ap,descp,info) + end function + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index d6f853b85..7986b459d 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -947,4 +947,29 @@ contains res = psb_is_matasb(ap,descp,info) end function + function psb_c_zis_matbld(ah,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + + 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 + + res = psb_is_matbld(ap,descp,info) + end function + end module psb_z_psblas_cbind_mod From 58198de6faa85fadf1b6189f403ec0c5b8b81272 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 15:50:49 +0200 Subject: [PATCH 45/61] Added c interfaces to set_asb(), set_upd(), set_bld() for sparse matrices --- cbind/base/psb_c_cbase.h | 3 + cbind/base/psb_c_dbase.h | 3 + cbind/base/psb_c_psblas_cbind_mod.f90 | 85 +++++++++++++++++++++++++++ cbind/base/psb_c_sbase.h | 3 + cbind/base/psb_c_zbase.h | 3 + cbind/base/psb_d_psblas_cbind_mod.f90 | 85 +++++++++++++++++++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 85 +++++++++++++++++++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 85 +++++++++++++++++++++++++++ 8 files changed, 352 insertions(+) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index dbc81b42c..452b74eff 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -44,6 +44,9 @@ psb_l_t psb_c_cnnz(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matasb(psb_c_cspmat *mh,psb_c_descriptor *cdh); bool psb_c_cis_matbld(psb_c_cspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_cset_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_cset_matasb(psb_c_cspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_cset_matbld(psb_c_cspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index d510f0fa9..0705b6ba9 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -44,6 +44,9 @@ psb_l_t psb_c_dnnz(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matasb(psb_c_dspmat *mh,psb_c_descriptor *cdh); bool psb_c_dis_matbld(psb_c_dspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_dset_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_dset_matasb(psb_c_dspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_dset_matbld(psb_c_dspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 6bfc9d265..c68626f56 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -972,4 +972,89 @@ contains res = psb_is_matbld(ap,descp,info) end function + function psb_c_cset_matupd(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + + 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 + + call ap%set_upd() + + res = psb_success_ + end function + + function psb_c_cset_matasb(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + + 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 + + call ap%set_asb() + + res = psb_success_ + + end function + + function psb_c_cset_matbld(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + + 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 + + call ap%set_bld() + + res = psb_success_ + end function + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 5e89d14ec..cc80bee37 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -44,6 +44,9 @@ psb_l_t psb_c_snnz(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matasb(psb_c_sspmat *mh,psb_c_descriptor *cdh); bool psb_c_sis_matbld(psb_c_sspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_sset_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_sset_matasb(psb_c_sspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_sset_matbld(psb_c_sspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index c245fd837..38056affb 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -44,6 +44,9 @@ psb_l_t psb_c_znnz(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matasb(psb_c_zspmat *mh,psb_c_descriptor *cdh); bool psb_c_zis_matbld(psb_c_zspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_zset_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_zset_matasb(psb_c_zspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_zset_matbld(psb_c_zspmat *mh,psb_c_descriptor *cdh); /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 41257e298..50eca5632 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1073,4 +1073,89 @@ contains res = psb_is_matbld(ap,descp,info) end function + function psb_c_dset_matupd(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + + 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 + + call ap%set_upd() + + res = psb_success_ + end function + + function psb_c_dset_matasb(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + + 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 + + call ap%set_asb() + + res = psb_success_ + + end function + + function psb_c_dset_matbld(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + + 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 + + call ap%set_bld() + + res = psb_success_ + end function + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 5b25f77a2..dbc5de0fd 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1073,4 +1073,89 @@ contains res = psb_is_matbld(ap,descp,info) end function + function psb_c_sset_matupd(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + + 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 + + call ap%set_upd() + + res = psb_success_ + end function + + function psb_c_sset_matasb(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + + 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 + + call ap%set_asb() + + res = psb_success_ + + end function + + function psb_c_sset_matbld(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + + 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 + + call ap%set_bld() + + res = psb_success_ + end function + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 7986b459d..73a55a520 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -972,4 +972,89 @@ contains res = psb_is_matbld(ap,descp,info) end function + function psb_c_zset_matupd(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + + 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 + + call ap%set_upd() + + res = psb_success_ + end function + + function psb_c_zset_matasb(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + + 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 + + call ap%set_asb() + + res = psb_success_ + + end function + + function psb_c_zset_matbld(ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + + 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 + + call ap%set_bld() + + res = psb_success_ + end function + end module psb_z_psblas_cbind_mod From 0ff5321fc1eaedb238ac5a123659ec02d9d2dd4c Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Mon, 6 Apr 2020 16:00:35 +0200 Subject: [PATCH 46/61] Added c interface for sparse matrix copy --- cbind/base/psb_c_cbase.h | 1 + cbind/base/psb_c_dbase.h | 1 + cbind/base/psb_c_psblas_cbind_mod.f90 | 34 +++++++++++++++++++++++++++ cbind/base/psb_c_sbase.h | 1 + cbind/base/psb_c_zbase.h | 2 ++ cbind/base/psb_d_psblas_cbind_mod.f90 | 34 +++++++++++++++++++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 34 +++++++++++++++++++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 34 +++++++++++++++++++++++++++ 8 files changed, 141 insertions(+) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 452b74eff..1130018a8 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -47,6 +47,7 @@ bool psb_c_cis_matbld(psb_c_cspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_cset_matupd(psb_c_cspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_cset_matasb(psb_c_cspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_cset_matbld(psb_c_cspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_ccopy_mat(psb_c_cspmat *ah,psb_c_cspmat *bh,psb_c_descriptor *cdh); /* psb_i_t psb_c_cspasb_opt(psb_c_cspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 0705b6ba9..09feea6fa 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -47,6 +47,7 @@ bool psb_c_dis_matbld(psb_c_dspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_dset_matupd(psb_c_dspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_dset_matasb(psb_c_dspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_dset_matbld(psb_c_dspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_dcopy_mat(psb_c_dspmat *ah,psb_c_dspmat *bh,psb_c_descriptor *cdh); /* psb_i_t psb_c_dspasb_opt(psb_c_dspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index c68626f56..7193236c8 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -1057,4 +1057,38 @@ contains res = psb_success_ end function + function psb_c_ccopy_mat(ah,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%clone(bp,info) + + res = info + end function + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index cc80bee37..97384968e 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -47,6 +47,7 @@ bool psb_c_sis_matbld(psb_c_sspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_sset_matupd(psb_c_sspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_sset_matasb(psb_c_sspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_sset_matbld(psb_c_sspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_scopy_mat(psb_c_sspmat *ah,psb_c_sspmat *bh,psb_c_descriptor *cdh); /* psb_i_t psb_c_sspasb_opt(psb_c_sspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 38056affb..01be0f686 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -47,6 +47,8 @@ bool psb_c_zis_matbld(psb_c_zspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_zset_matupd(psb_c_zspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_zset_matasb(psb_c_zspmat *mh,psb_c_descriptor *cdh); psb_i_t psb_c_zset_matbld(psb_c_zspmat *mh,psb_c_descriptor *cdh); +psb_i_t psb_c_zcopy_mat(psb_c_zspmat *ah,psb_c_zspmat *bh,psb_c_descriptor *cdh); + /* psb_i_t psb_c_zspasb_opt(psb_c_zspmat *mh, psb_c_descriptor *cdh, */ /* const char *afmt, psb_i_t upd, psb_i_t dupl); */ diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 50eca5632..672fb7421 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1158,4 +1158,38 @@ contains res = psb_success_ end function + function psb_c_dcopy_mat(ah,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%clone(bp,info) + + res = info + end function + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index dbc5de0fd..64d751bf6 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1158,4 +1158,38 @@ contains res = psb_success_ end function + function psb_c_scopy_mat(ah,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%clone(bp,info) + + res = info + end function + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 73a55a520..01fcb588d 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -1057,4 +1057,38 @@ contains res = psb_success_ end function + function psb_c_zcopy_mat(ah,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%clone(bp,info) + + res = info + end function + end module psb_z_psblas_cbind_mod From e1084167199ac4a37c05303560b71eaaffb92370 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 7 Apr 2020 12:38:38 +0200 Subject: [PATCH 47/61] Added function for scaled sparse matrix plus identity --- base/modules/serial/psb_c_base_mat_mod.F90 | 2256 ++++++++++---------- base/modules/serial/psb_c_csc_mat_mod.f90 | 484 +++-- base/modules/serial/psb_c_csr_mat_mod.f90 | 542 ++--- base/modules/serial/psb_c_mat_mod.F90 | 1067 ++++----- base/modules/serial/psb_d_base_mat_mod.F90 | 2256 ++++++++++---------- base/modules/serial/psb_d_csc_mat_mod.f90 | 484 +++-- base/modules/serial/psb_d_csr_mat_mod.f90 | 542 ++--- base/modules/serial/psb_d_mat_mod.F90 | 1067 ++++----- base/modules/serial/psb_s_base_mat_mod.F90 | 2256 ++++++++++---------- base/modules/serial/psb_s_csc_mat_mod.f90 | 484 +++-- base/modules/serial/psb_s_csr_mat_mod.f90 | 542 ++--- base/modules/serial/psb_s_mat_mod.F90 | 1067 ++++----- base/modules/serial/psb_z_base_mat_mod.F90 | 2256 ++++++++++---------- base/modules/serial/psb_z_csc_mat_mod.f90 | 484 +++-- base/modules/serial/psb_z_csr_mat_mod.f90 | 542 ++--- base/modules/serial/psb_z_mat_mod.F90 | 1067 ++++----- base/serial/impl/psb_c_base_mat_impl.F90 | 1063 ++++----- base/serial/impl/psb_c_coo_impl.f90 | 2032 +++++++++--------- base/serial/impl/psb_c_csc_impl.f90 | 1345 ++++++------ base/serial/impl/psb_c_csr_impl.f90 | 1658 +++++++------- base/serial/impl/psb_c_mat_impl.F90 | 1127 +++++----- base/serial/impl/psb_d_base_mat_impl.F90 | 1063 ++++----- base/serial/impl/psb_d_coo_impl.f90 | 2032 +++++++++--------- base/serial/impl/psb_d_csc_impl.f90 | 1345 ++++++------ base/serial/impl/psb_d_csr_impl.f90 | 1658 +++++++------- base/serial/impl/psb_d_mat_impl.F90 | 1127 +++++----- base/serial/impl/psb_s_base_mat_impl.F90 | 1063 ++++----- base/serial/impl/psb_s_coo_impl.f90 | 2032 +++++++++--------- base/serial/impl/psb_s_csc_impl.f90 | 1345 ++++++------ base/serial/impl/psb_s_csr_impl.f90 | 1658 +++++++------- base/serial/impl/psb_s_mat_impl.F90 | 1127 +++++----- base/serial/impl/psb_z_base_mat_impl.F90 | 1063 ++++----- base/serial/impl/psb_z_coo_impl.f90 | 2032 +++++++++--------- base/serial/impl/psb_z_csc_impl.f90 | 1345 ++++++------ base/serial/impl/psb_z_csr_impl.f90 | 1658 +++++++------- base/serial/impl/psb_z_mat_impl.F90 | 1127 +++++----- cbind/base/psb_c_psblas_cbind_mod.f90 | 60 + cbind/base/psb_d_psblas_cbind_mod.f90 | 60 + cbind/base/psb_s_psblas_cbind_mod.f90 | 60 + cbind/base/psb_z_psblas_cbind_mod.f90 | 60 + 40 files changed, 23932 insertions(+), 22604 deletions(-) diff --git a/base/modules/serial/psb_c_base_mat_mod.F90 b/base/modules/serial/psb_c_base_mat_mod.F90 index 63268b546..8233f5cc9 100644 --- a/base/modules/serial/psb_c_base_mat_mod.F90 +++ b/base/modules/serial/psb_c_base_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,12 +27,12 @@ ! 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. -! -! +! +! ! ! module psb_c_base_mat_mod - + use psb_base_mat_mod use psb_c_base_vect_mod @@ -56,59 +56,59 @@ module psb_c_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_c_base_csput_a - procedure, pass(a) :: csput_v => psb_c_base_csput_v + procedure, pass(a) :: csput_v => psb_c_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_c_base_csgetrow procedure, pass(a) :: csgetblk => psb_c_base_csgetblk procedure, pass(a) :: get_diag => psb_c_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_c_base_tril procedure, pass(a) :: triu => psb_c_base_triu - procedure, pass(a) :: csclip => psb_c_base_csclip - procedure, pass(a) :: cp_to_coo => psb_c_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_c_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_c_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_c_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_c_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_c_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_c_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_c_base_mv_from_fmt - procedure, pass(a) :: mold => psb_c_base_mold + procedure, pass(a) :: csclip => psb_c_base_csclip + procedure, pass(a) :: cp_to_coo => psb_c_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_c_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_c_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_c_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_c_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_c_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_c_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_c_base_mv_from_fmt + procedure, pass(a) :: mold => psb_c_base_mold procedure, pass(a) :: clone => psb_c_base_clone procedure, pass(a) :: make_nonunit => psb_c_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_c_base_clean_zeros ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_c_base_cp_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_c_base_cp_from_lcoo - procedure, pass(a) :: cp_to_lfmt => psb_c_base_cp_to_lfmt - procedure, pass(a) :: cp_from_lfmt => psb_c_base_cp_from_lfmt - procedure, pass(a) :: mv_to_lcoo => psb_c_base_mv_to_lcoo - procedure, pass(a) :: mv_from_lcoo => psb_c_base_mv_from_lcoo - procedure, pass(a) :: mv_to_lfmt => psb_c_base_mv_to_lfmt - procedure, pass(a) :: mv_from_lfmt => psb_c_base_mv_from_lfmt + procedure, pass(a) :: cp_to_lcoo => psb_c_base_cp_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_c_base_cp_from_lcoo + procedure, pass(a) :: cp_to_lfmt => psb_c_base_cp_to_lfmt + procedure, pass(a) :: cp_from_lfmt => psb_c_base_cp_from_lfmt + procedure, pass(a) :: mv_to_lcoo => psb_c_base_mv_to_lcoo + procedure, pass(a) :: mv_from_lcoo => psb_c_base_mv_from_lcoo + procedure, pass(a) :: mv_to_lfmt => psb_c_base_mv_to_lfmt + procedure, pass(a) :: mv_from_lfmt => psb_c_base_mv_from_lfmt + - ! - ! Transpose methods: defined here but not implemented. - ! + ! Transpose methods: defined here but not implemented. + ! procedure, pass(a) :: transp_1mat => psb_c_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_c_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_c_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_c_base_transc_2mat - + + ! + ! Computational methods: defined here but not implemented. ! - ! Computational methods: defined here but not implemented. - ! procedure, pass(a) :: vect_mv => psb_c_base_vect_mv procedure, pass(a) :: csmv => psb_c_base_csmv procedure, pass(a) :: csmm => psb_c_base_csmm generic, public :: spmm => csmm, csmv, vect_mv procedure, pass(a) :: in_vect_sv => psb_c_base_inner_vect_sv - procedure, pass(a) :: inner_cssv => psb_c_base_inner_cssv + procedure, pass(a) :: inner_cssv => psb_c_base_inner_cssv procedure, pass(a) :: inner_cssm => psb_c_base_inner_cssm generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv procedure, pass(a) :: vect_cssv => psb_c_base_vect_cssv @@ -125,15 +125,16 @@ module psb_c_base_mat_mod procedure, pass(a) :: arwsum => psb_c_base_arwsum procedure, pass(a) :: colsum => psb_c_base_colsum procedure, pass(a) :: aclsum => psb_c_base_aclsum + procedure, pass(a) :: scalpid => psb_c_base_scalplusidentity end type psb_c_base_sparse_mat - + private :: c_base_mat_sync, c_base_mat_is_host, c_base_mat_is_dev, & & c_base_mat_is_sync, c_base_mat_set_host, c_base_mat_set_dev,& & c_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_c_coo_sparse_mat !! \extends psb_c_base_mat_mod::psb_c_base_sparse_mat - !! + !! !! psb_c_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -147,15 +148,15 @@ module psb_c_base_mat_mod integer(psb_ipk_), allocatable :: ia(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => c_coo_get_size procedure, pass(a) :: get_nzeros => c_coo_get_nzeros procedure, nopass :: get_fmt => c_coo_get_fmt @@ -174,9 +175,9 @@ module psb_c_base_mat_mod ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_c_cp_coo_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_c_cp_coo_from_lcoo - + procedure, pass(a) :: cp_to_lcoo => psb_c_cp_coo_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_c_cp_coo_from_lcoo + procedure, pass(a) :: csput_a => psb_c_coo_csput_a procedure, pass(a) :: get_diag => psb_c_coo_get_diag procedure, pass(a) :: csgetrow => psb_c_coo_csgetrow @@ -201,18 +202,18 @@ module psb_c_base_mat_mod ! This is COO specific ! procedure, pass(a) :: set_nzeros => c_coo_set_nzeros - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => c_coo_transp_1mat procedure, pass(a) :: transc_1mat => c_coo_transc_1mat ! - ! Computational methods. - ! + ! Computational methods. + ! procedure, pass(a) :: csmm => psb_c_coo_csmm procedure, pass(a) :: csmv => psb_c_coo_csmv procedure, pass(a) :: inner_cssm => psb_c_coo_cssm @@ -226,14 +227,15 @@ module psb_c_base_mat_mod procedure, pass(a) :: arwsum => psb_c_coo_arwsum procedure, pass(a) :: colsum => psb_c_coo_colsum procedure, pass(a) :: aclsum => psb_c_coo_aclsum - + procedure, pass(a) :: scalpid => psb_c_coo_scalplusidentity + end type psb_c_coo_sparse_mat - + private :: c_coo_get_nzeros, c_coo_set_nzeros, & & c_coo_get_fmt, c_coo_free, c_coo_sizeof, & & c_coo_transp_1mat, c_coo_transc_1mat - - + + !> \namespace psb_base_mod \class psb_lc_base_sparse_mat !! \extends psb_lbase_mat_mod::psb_lbase_sparse_mat !! The psb_lc_base_sparse_mat type, extending psb_base_sparse_mat, @@ -253,33 +255,33 @@ module psb_c_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_lc_base_csput_a - procedure, pass(a) :: csput_v => psb_lc_base_csput_v + procedure, pass(a) :: csput_v => psb_lc_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_lc_base_csgetrow procedure, pass(a) :: csgetblk => psb_lc_base_csgetblk procedure, pass(a) :: get_diag => psb_lc_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_lc_base_tril procedure, pass(a) :: triu => psb_lc_base_triu - procedure, pass(a) :: csclip => psb_lc_base_csclip - procedure, pass(a) :: cp_to_coo => psb_lc_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_lc_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_lc_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_lc_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_lc_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_lc_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_lc_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_lc_base_mv_from_fmt - procedure, pass(a) :: mold => psb_lc_base_mold + procedure, pass(a) :: csclip => psb_lc_base_csclip + procedure, pass(a) :: cp_to_coo => psb_lc_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_lc_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_lc_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_lc_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_lc_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_lc_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_lc_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_lc_base_mv_from_fmt + procedure, pass(a) :: mold => psb_lc_base_mold procedure, pass(a) :: clone => psb_lc_base_clone procedure, pass(a) :: make_nonunit => psb_lc_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_lc_base_clean_zeros ! - ! Computational methods: defined here but not implemented. - ! + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_lc_base_scals procedure, pass(a) :: scalv => psb_lc_base_scal generic, public :: scal => scals, scalv @@ -290,35 +292,36 @@ module psb_c_base_mat_mod procedure, pass(a) :: arwsum => psb_lc_base_arwsum procedure, pass(a) :: colsum => psb_lc_base_colsum procedure, pass(a) :: aclsum => psb_lc_base_aclsum + procedure, pass(a) :: scalpid => psb_lc_base_scalplusidentity ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_icoo => psb_lc_base_cp_to_icoo - procedure, pass(a) :: cp_from_icoo => psb_lc_base_cp_from_icoo - procedure, pass(a) :: cp_to_ifmt => psb_lc_base_cp_to_ifmt - procedure, pass(a) :: cp_from_ifmt => psb_lc_base_cp_from_ifmt - procedure, pass(a) :: mv_to_icoo => psb_lc_base_mv_to_icoo - procedure, pass(a) :: mv_from_icoo => psb_lc_base_mv_from_icoo - procedure, pass(a) :: mv_to_ifmt => psb_lc_base_mv_to_ifmt - procedure, pass(a) :: mv_from_ifmt => psb_lc_base_mv_from_ifmt - + procedure, pass(a) :: cp_to_icoo => psb_lc_base_cp_to_icoo + procedure, pass(a) :: cp_from_icoo => psb_lc_base_cp_from_icoo + procedure, pass(a) :: cp_to_ifmt => psb_lc_base_cp_to_ifmt + procedure, pass(a) :: cp_from_ifmt => psb_lc_base_cp_from_ifmt + procedure, pass(a) :: mv_to_icoo => psb_lc_base_mv_to_icoo + procedure, pass(a) :: mv_from_icoo => psb_lc_base_mv_from_icoo + procedure, pass(a) :: mv_to_ifmt => psb_lc_base_mv_to_ifmt + procedure, pass(a) :: mv_from_ifmt => psb_lc_base_mv_from_ifmt + + ! + ! Transpose methods: defined here but not implemented. ! - ! Transpose methods: defined here but not implemented. - ! procedure, pass(a) :: transp_1mat => psb_lc_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_lc_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_lc_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_lc_base_transc_2mat - + end type psb_lc_base_sparse_mat - + private :: lc_base_mat_sync, lc_base_mat_is_host, lc_base_mat_is_dev, & & lc_base_mat_is_sync, lc_base_mat_set_host, lc_base_mat_set_dev,& & lc_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_lc_coo_sparse_mat !! \extends psb_lc_base_mat_mod::psb_lc_base_sparse_mat - !! + !! !! psb_lc_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -332,15 +335,15 @@ module psb_c_base_mat_mod integer(psb_lpk_), allocatable :: ia(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => lc_coo_get_size procedure, pass(a) :: get_nzeros => lc_coo_get_nzeros procedure, nopass :: get_fmt => lc_coo_get_fmt @@ -357,7 +360,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: mv_from_fmt => psb_lc_mv_coo_from_fmt procedure, pass(a) :: cp_to_icoo => psb_lc_cp_coo_to_icoo procedure, pass(a) :: cp_from_icoo => psb_lc_cp_coo_from_icoo - + procedure, pass(a) :: csput_a => psb_lc_coo_csput_a procedure, pass(a) :: get_diag => psb_lc_coo_get_diag procedure, pass(a) :: csgetrow => psb_lc_coo_csgetrow @@ -378,9 +381,9 @@ module psb_c_base_mat_mod procedure, pass(a) :: set_sort_status => lc_coo_set_sort_status procedure, pass(a) :: get_sort_status => lc_coo_get_sort_status - - ! Computational methods: defined here but not implemented. - ! + + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_lc_coo_scals procedure, pass(a) :: scalv => psb_lc_coo_scal procedure, pass(a) :: maxval => psb_lc_coo_maxval @@ -390,6 +393,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: arwsum => psb_lc_coo_arwsum procedure, pass(a) :: colsum => psb_lc_coo_colsum procedure, pass(a) :: aclsum => psb_lc_coo_aclsum + procedure, pass(a) :: scalpid => psb_lc_coo_scalplusidentity ! ! This is COO specific @@ -402,25 +406,25 @@ module psb_c_base_mat_mod procedure, pass(a) :: iset_nzeros => lc_coo_iset_nzeros generic, public :: set_nzeros => iset_nzeros #endif - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => lc_coo_transp_1mat procedure, pass(a) :: transc_1mat => lc_coo_transc_1mat - + end type psb_lc_coo_sparse_mat - + private :: lc_coo_get_nzeros, lc_coo_iset_nzeros, & & lc_coo_get_fmt, lc_coo_free, lc_coo_sizeof, & & lc_coo_transp_1mat, lc_coo_transc_1mat #if defined(IPK4) && defined(LPK8) private :: lc_coo_lset_nzeros #endif - + ! == ================= ! ! BASE interfaces @@ -429,14 +433,14 @@ module psb_c_base_mat_mod !> Function csput: !! \memberof psb_c_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -449,33 +453,33 @@ module psb_c_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_csput_a end interface - - interface - subroutine psb_c_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_c_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -483,43 +487,43 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_c_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_c_base_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -532,33 +536,33 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_c_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_c_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_c_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(in) :: imin,imax @@ -569,34 +573,34 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_c_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_c_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_c_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -617,27 +621,27 @@ module psb_c_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_c_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -646,13 +650,13 @@ module psb_c_base_mat_mod class(psb_c_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_c_base_tril end interface - + ! !> Function triu: !! \memberof psb_c_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -661,27 +665,27 @@ module psb_c_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_c_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -690,27 +694,27 @@ module psb_c_base_mat_mod class(psb_c_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_c_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_c_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_c_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_c_base_get_diag(a,d,info) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_c_base_sparse_mat @@ -720,10 +724,10 @@ module psb_c_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mold(a,b,info) - import + ! + interface + subroutine psb_c_base_mold(a,b,info) + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -735,21 +739,21 @@ module psb_c_base_mat_mod !> Function clone: !! \memberof psb_c_base_sparse_mat !! \brief Allocate and clone a class(psb_c_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_c_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_clone end interface @@ -759,18 +763,18 @@ module psb_c_base_mat_mod !> Function make_nonunit: !! \memberof psb_c_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_c_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_c_base_sparse_mat @@ -778,16 +782,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_to_coo(a,b,info) + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_c_base_sparse_mat @@ -795,16 +799,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_from_coo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_c_base_sparse_mat @@ -813,16 +817,16 @@ module psb_c_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_to_fmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_c_base_sparse_mat @@ -831,16 +835,16 @@ module psb_c_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_from_fmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_c_base_sparse_mat @@ -848,16 +852,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_to_coo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_c_base_sparse_mat @@ -865,16 +869,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_from_coo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_c_base_sparse_mat @@ -883,16 +887,16 @@ module psb_c_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_to_fmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_c_base_sparse_mat @@ -901,10 +905,10 @@ module psb_c_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_from_fmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -917,16 +921,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_to_lcoo(a,b,info) + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_lcoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_c_base_sparse_mat @@ -934,16 +938,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_from_lcoo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_lcoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_c_base_sparse_mat @@ -952,16 +956,16 @@ module psb_c_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_to_lfmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_to_lfmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_c_base_sparse_mat @@ -970,16 +974,16 @@ module psb_c_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_cp_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_c_base_cp_from_lfmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_cp_from_lfmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_c_base_sparse_mat @@ -987,16 +991,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_to_lcoo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_lcoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_c_base_sparse_mat @@ -1004,16 +1008,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_from_lcoo(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_from_lcoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_c_base_sparse_mat @@ -1022,16 +1026,16 @@ module psb_c_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_to_lfmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_mv_to_lfmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_c_base_sparse_mat @@ -1040,10 +1044,10 @@ module psb_c_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_c_base_mv_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_c_base_mv_from_lfmt(a,b,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1052,78 +1056,78 @@ module psb_c_base_mat_mod ! - !> + !> !! \memberof psb_c_base_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros ! interface subroutine psb_c_base_clean_zeros(a, info) - import + import class(psb_c_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_clean_zeros end interface - + ! !> Function transp: !! \memberof psb_c_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_c_base_transp_2mat(a,b) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_c_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_c_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_c_base_transc_2mat(a,b) - import + import class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_c_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_c_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_c_base_transp_1mat(a) - import + import class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_c_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_c_base_transc_1mat(a) - import + import class(psb_c_base_sparse_mat), intent(inout) :: a end subroutine psb_c_base_transc_1mat end interface - + ! !> Function csmm: !! \memberof psb_c_base_sparse_mat @@ -1142,9 +1146,9 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! ! - interface + interface subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) - import + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1152,7 +1156,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_csmm end interface - + !> Function csmv: !! \memberof psb_c_base_sparse_mat !! \brief Product by a dense rank 1 array. @@ -1170,9 +1174,9 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1180,7 +1184,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_csmv end interface - + !> Function vect_mv: !! \memberof psb_c_base_sparse_mat !! \brief Product by an encapsulated array type(psb_c_vect_type) @@ -1192,7 +1196,7 @@ module psb_c_base_mat_mod !! versions with the standard arrays. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1205,9 +1209,9 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x @@ -1216,7 +1220,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_vect_mv end interface - + ! !> Function cssm: !! \memberof psb_c_base_sparse_mat @@ -1225,7 +1229,7 @@ module psb_c_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssm. + !! Internal workhorse called by cssm. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1237,9 +1241,9 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1247,8 +1251,8 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_inner_cssm end interface - - + + ! !> Function cssv: !! \memberof psb_c_base_sparse_mat @@ -1257,7 +1261,7 @@ module psb_c_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssv. + !! Internal workhorse called by cssv. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1269,12 +1273,12 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface - subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1282,7 +1286,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_inner_cssv end interface - + ! !> Function inner_vect_cssv: !! \memberof psb_c_base_sparse_mat @@ -1292,10 +1296,10 @@ module psb_c_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by vect_cssv. + !! Internal workhorse called by vect_cssv. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1307,9 +1311,9 @@ module psb_c_base_mat_mod !! \param trans [N] Whether to use A (N), its transpose (T) !! or its conjugate transpose (C) ! - interface - subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x, y @@ -1317,7 +1321,7 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_base_inner_vect_sv end interface - + ! !> Function cssm: !! \memberof psb_c_base_sparse_mat @@ -1336,12 +1340,12 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1350,7 +1354,7 @@ module psb_c_base_mat_mod complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_base_cssm end interface - + ! !> Function cssv: !! \memberof psb_c_base_sparse_mat @@ -1369,12 +1373,12 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1383,7 +1387,7 @@ module psb_c_base_mat_mod complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_base_cssv end interface - + ! !> Function vect_cssv: !! \memberof psb_c_base_sparse_mat @@ -1403,12 +1407,12 @@ module psb_c_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D [none] Diagonal for scaling. + !! \param D [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x,y @@ -1417,24 +1421,24 @@ module psb_c_base_mat_mod class(psb_c_base_vect_type), optional, intent(inout) :: d end subroutine psb_c_base_vect_cssv end interface - + ! !> Function base_scals: !! \memberof psb_c_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_c_base_scals(d,a,info) - import + interface + subroutine psb_c_base_scals(d,a,info) + import class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_c_base_scals end interface - + ! !> Function base_scal: !! \memberof psb_c_base_sparse_mat @@ -1444,40 +1448,57 @@ module psb_c_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_c_base_scal(d,a,info,side) - import + interface + subroutine psb_c_base_scal(d,a,info,side) + import class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_c_base_scal end interface - + + ! + !> Function base_scalplusidentity: + !! \memberof psb_c_base_sparse_mat + !! \brief Scale a matrix by a vector and sums an identity + !! + !! \param d Scaling + !! \param info return code + ! + interface + subroutine psb_c_base_scalplusidentity(d,a,info) + import + class(psb_c_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_base_scalplusidentity + end interface + ! !> Function base_maxval: !! \memberof psb_c_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_c_base_maxval(a) result(res) - import + import class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_c_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_c_base_csnmi(a) result(res) - import + import class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_csnmi @@ -1488,11 +1509,11 @@ module psb_c_base_mat_mod !> Function base_csnmi: !! \memberof psb_c_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_c_base_csnm1(a) result(res) - import + import class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_base_csnm1 @@ -1504,11 +1525,11 @@ module psb_c_base_mat_mod !! \memberof psb_c_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_c_base_rowsum(d,a) - import + interface + subroutine psb_c_base_rowsum(d,a) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_rowsum @@ -1519,26 +1540,26 @@ module psb_c_base_mat_mod !! \memberof psb_c_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_c_base_arwsum(d,a) - import + !! + interface + subroutine psb_c_base_arwsum(d,a) + import class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_c_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_c_base_colsum(d,a) - import + interface + subroutine psb_c_base_colsum(d,a) + import class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_colsum @@ -1549,16 +1570,16 @@ module psb_c_base_mat_mod !! \memberof psb_c_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_c_base_aclsum(d,a) - import + !! + interface + subroutine psb_c_base_aclsum(d,a) + import class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_base_aclsum end interface - + ! == =============== ! ! COO interfaces @@ -1566,81 +1587,81 @@ module psb_c_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_c_coo_reallocate_nz(nz,a) - import + subroutine psb_c_coo_reallocate_nz(nz,a) + import integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_c_coo_reinit(a,clear) - import - class(psb_c_coo_sparse_mat), intent(inout) :: a + import + class(psb_c_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_coo_reinit end interface ! - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_c_coo_trim(a) - import + import class(psb_c_coo_sparse_mat), intent(inout) :: a end subroutine psb_c_coo_trim end interface ! - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros ! interface subroutine psb_c_coo_clean_zeros(a,info) - import + import class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_ipk_), intent(in) :: m,n class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_coo_allocate_mnnz end interface - + !> \memberof psb_c_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_c_coo_mold(a,b,info) - import + interface + subroutine psb_c_coo_mold(a,b,info) + import class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_c_coo_sparse_mat @@ -1655,17 +1676,17 @@ module psb_c_base_mat_mod ! interface subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_c_coo_sparse_mat), intent(in) :: a + class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_c_coo_sparse_mat @@ -1674,16 +1695,16 @@ module psb_c_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_c_coo_get_nz_row(idx,a) result(res) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res end function psb_c_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -1695,12 +1716,12 @@ module psb_c_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_spk_), intent(inout) :: val(:) @@ -1709,162 +1730,162 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_c_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_c_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_c_fix_coo(a,info,idir) - import + interface + subroutine psb_c_fix_coo(a,info,idir) + import class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_c_fix_coo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_coo - interface - subroutine psb_c_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_c_cp_coo_to_coo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_coo - interface - subroutine psb_c_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_c_cp_coo_from_coo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_from_coo end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_coo - interface - subroutine psb_c_cp_coo_to_lcoo(a,b,info) - import + interface + subroutine psb_c_cp_coo_to_lcoo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_to_lcoo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_coo - interface - subroutine psb_c_cp_coo_from_lcoo(a,b,info) - import + interface + subroutine psb_c_cp_coo_from_lcoo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_from_lcoo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_coo - !! - interface - subroutine psb_c_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_c_cp_coo_to_fmt(a,b,info) + import class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_fmt - !! - interface - subroutine psb_c_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_c_cp_coo_from_fmt(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_coo - interface - subroutine psb_c_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_c_mv_coo_to_coo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_coo - interface - subroutine psb_c_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_c_mv_coo_from_coo(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_fmt - interface - subroutine psb_c_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_c_mv_coo_to_fmt(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_fmt - interface - subroutine psb_c_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_c_mv_coo_from_fmt(a,b,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_c_coo_cp_from(a,b) - import + import class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(in) :: b end subroutine psb_c_coo_cp_from end interface - - interface + + interface subroutine psb_c_coo_mv_from(a,b) - import + import class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(inout) :: b end subroutine psb_c_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_c_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -1881,9 +1902,9 @@ module psb_c_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& @@ -1891,14 +1912,14 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_csput_a end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1910,14 +1931,14 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_coo_csgetptn end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csgetrow - interface + interface subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1930,13 +1951,13 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_c_coo_csgetrow end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssv - interface - subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1944,12 +1965,12 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_coo_cssv end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssm - interface - subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1957,13 +1978,13 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_coo_cssm end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmv - interface - subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1972,12 +1993,12 @@ module psb_c_base_mat_mod end subroutine psb_c_coo_csmv end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmm - interface - subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1985,121 +2006,132 @@ module psb_c_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_coo_csmm end interface - - - !> + + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_maxval - interface + interface function psb_c_coo_maxval(a) result(res) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_maxval end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csnmi - interface + interface function psb_c_coo_csnmi(a) result(res) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_csnmi end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csnm1 - interface + interface function psb_c_coo_csnm1(a) result(res) - import + import class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_coo_csnm1 end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_rowsum - interface - subroutine psb_c_coo_rowsum(d,a) - import + interface + subroutine psb_c_coo_rowsum(d,a) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_rowsum end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_arwsum - interface - subroutine psb_c_coo_arwsum(d,a) - import + interface + subroutine psb_c_coo_arwsum(d,a) + import class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_arwsum end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_colsum - interface - subroutine psb_c_coo_colsum(d,a) - import + interface + subroutine psb_c_coo_colsum(d,a) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_colsum end interface - !> + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_aclsum - interface - subroutine psb_c_coo_aclsum(d,a) - import + interface + subroutine psb_c_coo_aclsum(d,a) + import class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_coo_aclsum end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_get_diag - interface - subroutine psb_c_coo_get_diag(a,d,info) - import + interface + subroutine psb_c_coo_get_diag(a,d,info) + import class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_get_diag end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scal - interface - subroutine psb_c_coo_scal(d,a,info,side) - import + interface + subroutine psb_c_coo_scal(d,a,info,side) + import class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_c_coo_scal end interface - - !> + + !> !! \memberof psb_c_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scals interface - subroutine psb_c_coo_scals(d,a,info) - import + subroutine psb_c_coo_scals(d,a,info) + import class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_scals end interface - + !> + !! \memberof psb_c_coo_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity + interface + subroutine psb_c_coo_scalplusidentity(d,a,info) + import + class(psb_c_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_coo_scalplusidentity + end interface + ! == ================= ! ! BASE interfaces @@ -2108,14 +2140,14 @@ module psb_c_base_mat_mod !> Function csput: !! \memberof psb_lc_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -2128,33 +2160,33 @@ module psb_c_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_csput_a end interface - - interface - subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2162,43 +2194,43 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_lc_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lc_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -2211,33 +2243,33 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_lc_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_lc_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lc_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_lpk_), intent(in) :: imin,imax @@ -2248,34 +2280,34 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_lc_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lc_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -2296,27 +2328,27 @@ module psb_c_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lc_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -2325,13 +2357,13 @@ module psb_c_base_mat_mod class(psb_lc_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_lc_base_tril end interface - + ! !> Function triu: !! \memberof psb_lc_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -2340,27 +2372,27 @@ module psb_c_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lc_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -2369,27 +2401,27 @@ module psb_c_base_mat_mod class(psb_lc_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_lc_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_lc_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_lc_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_lc_base_get_diag(a,d,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_lc_base_sparse_mat @@ -2399,10 +2431,10 @@ module psb_c_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mold(a,b,info) - import + ! + interface + subroutine psb_lc_base_mold(a,b,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2414,21 +2446,21 @@ module psb_c_base_mat_mod !> Function clone: !! \memberof psb_lc_base_sparse_mat !! \brief Allocate and clone a class(psb_lc_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_lc_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_clone end interface @@ -2438,18 +2470,18 @@ module psb_c_base_mat_mod !> Function make_nonunit: !! \memberof psb_lc_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_lc_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a end subroutine psb_lc_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_lc_base_sparse_mat @@ -2457,16 +2489,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_to_coo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_lc_base_sparse_mat @@ -2474,16 +2506,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_from_coo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2492,16 +2524,16 @@ module psb_c_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_to_fmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2510,16 +2542,16 @@ module psb_c_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_from_fmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_lc_base_sparse_mat @@ -2527,16 +2559,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_to_coo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_lc_base_sparse_mat @@ -2544,16 +2576,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_from_coo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2562,16 +2594,16 @@ module psb_c_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_to_fmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2580,17 +2612,17 @@ module psb_c_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_from_fmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_from_fmt end interface - + ! !> Function cp_to_coo: !! \memberof psb_lc_base_sparse_mat @@ -2598,16 +2630,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_to_icoo(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_to_icoo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_to_icoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_lc_base_sparse_mat @@ -2615,16 +2647,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_from_icoo(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_from_icoo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_from_icoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2633,16 +2665,16 @@ module psb_c_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_to_ifmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_to_ifmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2651,16 +2683,16 @@ module psb_c_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_cp_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_cp_from_ifmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_cp_from_ifmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_lc_base_sparse_mat @@ -2668,16 +2700,16 @@ module psb_c_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_to_icoo(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_to_icoo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_to_icoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_lc_base_sparse_mat @@ -2685,16 +2717,16 @@ module psb_c_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_from_icoo(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_from_icoo(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_from_icoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2703,16 +2735,16 @@ module psb_c_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_to_ifmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_mv_to_ifmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_lc_base_sparse_mat @@ -2721,10 +2753,10 @@ module psb_c_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lc_base_mv_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_lc_base_mv_from_ifmt(a,b,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2734,111 +2766,128 @@ module psb_c_base_mat_mod ! - !> + !> !! \memberof psb_lc_base_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros ! interface subroutine psb_lc_base_clean_zeros(a, info) - import + import class(psb_lc_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_clean_zeros end interface - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_maxval - interface + interface function psb_lc_coo_maxval(a) result(res) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_coo_maxval end interface - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_csnmi - interface + interface function psb_lc_coo_csnmi(a) result(res) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_coo_csnmi end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_csnm1 - interface + interface function psb_lc_coo_csnm1(a) result(res) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_coo_csnm1 end interface - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_rowsum - interface - subroutine psb_lc_coo_rowsum(d,a) - import + interface + subroutine psb_lc_coo_rowsum(d,a) + import class(psb_lc_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_coo_rowsum end interface - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_arwsum - interface - subroutine psb_lc_coo_arwsum(d,a) - import + interface + subroutine psb_lc_coo_arwsum(d,a) + import class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_coo_arwsum end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_colsum - interface - subroutine psb_lc_coo_colsum(d,a) - import + interface + subroutine psb_lc_coo_colsum(d,a) + import class(psb_lc_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_coo_colsum end interface - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_aclsum - interface - subroutine psb_lc_coo_aclsum(d,a) - import + interface + subroutine psb_lc_coo_aclsum(d,a) + import class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_coo_aclsum end interface - + ! !> Function base_scals: !! \memberof psb_lc_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_lc_base_scals(d,a,info) - import + interface + subroutine psb_lc_base_scals(d,a,info) + import class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_scals end interface - + + ! + !> Function base_scalsplusidentity: + !! \memberof psb_lc_base_sparse_mat + !! \brief Scale a matrix by a single scalar value and adds identity + !! + !! \param d Scaling factor + !! \param info return code + ! + interface + subroutine psb_lc_base_scalplusidentity(d,a,info) + import + class(psb_lc_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_base_scalplusidentity + end interface + ! !> Function base_scal: !! \memberof psb_lc_base_sparse_mat @@ -2848,40 +2897,40 @@ module psb_c_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_lc_base_scal(d,a,info,side) - import + interface + subroutine psb_lc_base_scal(d,a,info,side) + import class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_lc_base_scal end interface - + ! !> Function base_maxval: !! \memberof psb_lc_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_lc_base_maxval(a) result(res) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_lc_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_lc_base_csnmi(a) result(res) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_base_csnmi @@ -2892,11 +2941,11 @@ module psb_c_base_mat_mod !> Function base_csnmi: !! \memberof psb_lc_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_lc_base_csnm1(a) result(res) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_base_csnm1 @@ -2908,11 +2957,11 @@ module psb_c_base_mat_mod !! \memberof psb_lc_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_lc_base_rowsum(d,a) - import + interface + subroutine psb_lc_base_rowsum(d,a) + import class(psb_lc_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_base_rowsum @@ -2923,26 +2972,26 @@ module psb_c_base_mat_mod !! \memberof psb_lc_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_lc_base_arwsum(d,a) - import + !! + interface + subroutine psb_lc_base_arwsum(d,a) + import class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_lc_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_lc_base_colsum(d,a) - import + interface + subroutine psb_lc_base_colsum(d,a) + import class(psb_lc_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_base_colsum @@ -2953,76 +3002,76 @@ module psb_c_base_mat_mod !! \memberof psb_lc_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_lc_base_aclsum(d,a) - import + !! + interface + subroutine psb_lc_base_aclsum(d,a) + import class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_base_aclsum end interface - + ! !> Function transp: !! \memberof psb_lc_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_lc_base_transp_2mat(a,b) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_lc_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_lc_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_lc_base_transc_2mat(a,b) - import + import class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_lc_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_lc_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_lc_base_transp_1mat(a) - import + import class(psb_lc_base_sparse_mat), intent(inout) :: a end subroutine psb_lc_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_lc_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_lc_base_transc_1mat(a) - import + import class(psb_lc_base_sparse_mat), intent(inout) :: a end subroutine psb_lc_base_transc_1mat end interface - + ! == =============== ! ! COO interfaces @@ -3030,81 +3079,81 @@ module psb_c_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_lc_coo_reallocate_nz(nz,a) - import + subroutine psb_lc_coo_reallocate_nz(nz,a) + import integer(psb_lpk_), intent(in) :: nz class(psb_lc_coo_sparse_mat), intent(inout) :: a end subroutine psb_lc_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_lc_coo_reinit(a,clear) - import - class(psb_lc_coo_sparse_mat), intent(inout) :: a + import + class(psb_lc_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lc_coo_reinit end interface ! - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_lc_coo_trim(a) - import + import class(psb_lc_coo_sparse_mat), intent(inout) :: a end subroutine psb_lc_coo_trim end interface ! - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros ! interface subroutine psb_lc_coo_clean_zeros(a,info) - import + import class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_lpk_), intent(in) :: m,n class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_lc_coo_allocate_mnnz end interface - + !> \memberof psb_lc_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lc_coo_mold(a,b,info) - import + interface + subroutine psb_lc_coo_mold(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_lc_coo_sparse_mat @@ -3119,17 +3168,17 @@ module psb_c_base_mat_mod ! interface subroutine psb_lc_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_lc_coo_sparse_mat), intent(in) :: a + class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lc_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_lc_coo_sparse_mat @@ -3138,16 +3187,16 @@ module psb_c_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_lc_coo_get_nz_row(idx,a) result(res) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res end function psb_lc_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -3159,12 +3208,12 @@ module psb_c_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_lpk_), intent(in) :: nr,nc,nzin integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -3174,164 +3223,164 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_lc_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_lc_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_lc_fix_coo(a,info,idir) - import + interface + subroutine psb_lc_fix_coo(a,info,idir) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_lc_fix_coo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_coo - interface - subroutine psb_lc_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_lc_cp_coo_to_coo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_coo - interface - subroutine psb_lc_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_lc_cp_coo_from_coo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_from_coo end interface - - - !> + + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_coo - interface - subroutine psb_lc_cp_coo_to_icoo(a,b,info) - import + interface + subroutine psb_lc_cp_coo_to_icoo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_to_icoo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_coo - interface - subroutine psb_lc_cp_coo_from_icoo(a,b,info) - import + interface + subroutine psb_lc_cp_coo_from_icoo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_from_icoo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_coo - !! - interface - subroutine psb_lc_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_lc_cp_coo_to_fmt(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_fmt - !! - interface - subroutine psb_lc_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_lc_cp_coo_from_fmt(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_coo - interface - subroutine psb_lc_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_lc_mv_coo_to_coo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_coo - interface - subroutine psb_lc_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_lc_mv_coo_from_coo(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_fmt - interface - subroutine psb_lc_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_lc_mv_coo_to_fmt(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_fmt - interface - subroutine psb_lc_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_lc_mv_coo_from_fmt(a,b,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_lc_coo_cp_from(a,b) - import + import class(psb_lc_coo_sparse_mat), intent(inout) :: a type(psb_lc_coo_sparse_mat), intent(in) :: b end subroutine psb_lc_coo_cp_from end interface - - interface + + interface subroutine psb_lc_coo_mv_from(a,b) - import + import class(psb_lc_coo_sparse_mat), intent(inout) :: a type(psb_lc_coo_sparse_mat), intent(inout) :: b end subroutine psb_lc_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_lc_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -3348,9 +3397,9 @@ module psb_c_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz,ia(:), ja(:),& @@ -3358,14 +3407,14 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_csput_a end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lc_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3377,14 +3426,14 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_coo_csgetptn end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csgetrow - interface + interface subroutine psb_lc_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3397,141 +3446,153 @@ module psb_c_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_coo_csgetrow end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_get_diag - interface - subroutine psb_lc_coo_get_diag(a,d,info) - import + interface + subroutine psb_lc_coo_get_diag(a,d,info) + import class(psb_lc_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_get_diag end interface - - - !> + + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scal - interface - subroutine psb_lc_coo_scal(d,a,info,side) - import + interface + subroutine psb_lc_coo_scal(d,a,info,side) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_lc_coo_scal end interface - - !> + + !> !! \memberof psb_lc_coo_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scals interface - subroutine psb_lc_coo_scals(d,a,info) - import + subroutine psb_lc_coo_scals(d,a,info) + import class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_scals end interface - -contains - - + + !> + !! \memberof psb_lc_coo_sparse_mat + !! \see psb_lc_base_mat_mod::psb_lc_base_scalplusidentity + interface + subroutine psb_lc_coo_scalplusidentity(d,a,info) + import + class(psb_lc_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_coo_scalplusidentity + end interface + +contains + + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function c_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_ip res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%ia) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function c_coo_sizeof - - + + function c_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function c_coo_get_fmt - - + + function c_coo_get_size(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function c_coo_get_size - - + + function c_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%nnz end function c_coo_get_nzeros - + function c_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function c_coo_is_by_rows - + function c_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function c_coo_is_by_cols - + function c_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function c_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3539,52 +3600,52 @@ contains ! ! ! == ================================== - + subroutine c_coo_set_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine c_coo_set_nzeros - + function c_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_c_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function c_coo_get_sort_status - + subroutine c_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_c_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine c_coo_set_sort_status - - + + subroutine c_coo_set_by_rows(a) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine c_coo_set_by_rows - - + + subroutine c_coo_set_by_cols(a) - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine c_coo_set_by_cols - + ! == ================================== ! ! @@ -3596,12 +3657,12 @@ contains ! ! ! == ================================== - - subroutine c_coo_free(a) - implicit none - + + subroutine c_coo_free(a) + implicit none + class(psb_c_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3610,13 +3671,13 @@ contains call a%set_ncols(0_psb_ipk_) call a%set_nzeros(0_psb_ipk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine c_coo_free - - - + + + ! == ================================== ! ! @@ -3630,132 +3691,132 @@ contains ! ! == ================================== subroutine c_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_c_coo_sparse_mat), intent(inout) :: a - - integer(psb_ipk_), allocatable :: itemp(:) + + integer(psb_ipk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_c_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine c_coo_transp_1mat - + subroutine c_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_c_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_c_is_complex_) a%val(:) = conjg(a%val(:)) end subroutine c_coo_transc_1mat - + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function lc_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_lp res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%ia) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function lc_coo_sizeof - - + + function lc_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function lc_coo_get_fmt - - + + function lc_coo_get_size(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function lc_coo_get_size - - + + function lc_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%nnz end function lc_coo_get_nzeros - + function lc_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function lc_coo_is_by_rows - + function lc_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function lc_coo_is_by_cols - + function lc_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function lc_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3763,63 +3824,63 @@ contains ! ! ! == ================================== - + subroutine lc_coo_iset_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_lc_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine lc_coo_iset_nzeros #if defined(IPK4) && defined(LPK8) subroutine lc_coo_lset_nzeros(nz,a) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lc_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine lc_coo_lset_nzeros #endif - + function lc_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_lc_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function lc_coo_get_sort_status - + subroutine lc_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_lc_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine lc_coo_set_sort_status - - + + subroutine lc_coo_set_by_rows(a) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine lc_coo_set_by_rows - - + + subroutine lc_coo_set_by_cols(a) - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine lc_coo_set_by_cols - + ! == ================================== ! ! @@ -3831,12 +3892,12 @@ contains ! ! ! == ================================== - - subroutine lc_coo_free(a) - implicit none - + + subroutine lc_coo_free(a) + implicit none + class(psb_lc_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3845,13 +3906,13 @@ contains call a%set_ncols(0_psb_lpk_) call a%set_nzeros(0_psb_lpk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine lc_coo_free - - - + + + ! == ================================== ! ! @@ -3865,40 +3926,37 @@ contains ! ! == ================================== subroutine lc_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_lc_coo_sparse_mat), intent(inout) :: a - - integer(psb_lpk_), allocatable :: itemp(:) + + integer(psb_lpk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_lc_base_sparse_mat%psb_lbase_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine lc_coo_transp_1mat - + subroutine lc_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_lc_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_lc_is_complex_) a%val(:) = conjg(a%val(:)) end subroutine lc_coo_transc_1mat end module psb_c_base_mat_mod - - - diff --git a/base/modules/serial/psb_c_csc_mat_mod.f90 b/base/modules/serial/psb_c_csc_mat_mod.f90 index 62f79c7bb..0a4db372b 100644 --- a/base/modules/serial/psb_c_csc_mat_mod.f90 +++ b/base/modules/serial/psb_c_csc_mat_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_c_csc_mat_mod ! @@ -40,23 +40,23 @@ ! ! Please refere to psb_c_base_mat_mod for a detailed description ! of the various methods, and to psb_c_csc_impl for implementation details. -! +! module psb_c_csc_mat_mod use psb_c_base_mat_mod !> \namespace psb_base_mod \class psb_c_csc_sparse_mat !! \extends psb_c_base_mat_mod::psb_c_base_sparse_mat - !! + !! !! psb_c_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_c_base_sparse_mat) :: psb_c_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_ipk_), allocatable :: icp(:) !> Row indices. integer(psb_ipk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) contains @@ -71,6 +71,7 @@ module psb_c_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csc_cssv procedure, pass(a) :: scals => psb_c_csc_scals procedure, pass(a) :: scalv => psb_c_csc_scal + procedure, pass(a) :: scalpid => psb_c_csc_scalplusidentity procedure, pass(a) :: maxval => psb_c_csc_maxval procedure, pass(a) :: spnm1 => psb_c_csc_csnm1 procedure, pass(a) :: rowsum => psb_c_csc_rowsum @@ -107,16 +108,16 @@ module psb_c_csc_mat_mod !> \namespace psb_base_mod \class psb_c_csc_sparse_mat !! \extends psb_c_base_mat_mod::psb_c_base_sparse_mat - !! + !! !! psb_c_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_lc_base_sparse_mat) :: psb_lc_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_lpk_), allocatable :: icp(:) !> Row indices. integer(psb_lpk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) contains @@ -127,6 +128,7 @@ module psb_c_csc_mat_mod procedure, pass(a) :: sizeof => lc_csc_sizeof procedure, pass(a) :: scals => psb_lc_csc_scals procedure, pass(a) :: scalv => psb_lc_csc_scal + procedure, pass(a) :: scalpid => psb_lc_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lc_csc_maxval procedure, pass(a) :: spnm1 => psb_lc_csc_csnm1 procedure, pass(a) :: rowsum => psb_lc_csc_rowsum @@ -163,23 +165,23 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_c_csc_reallocate_nz(nz,a) + subroutine psb_c_csc_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_reallocate_nz end interface - + !> \memberof psb_c_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_c_csc_reinit(a,clear) import - class(psb_c_csc_sparse_mat), intent(inout) :: a + class(psb_c_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csc_reinit end interface - + !> \memberof psb_c_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -188,22 +190,22 @@ module psb_c_csc_mat_mod class(psb_c_csc_sparse_mat), intent(inout) :: a end subroutine psb_c_csc_trim end interface - + !> \memberof psb_c_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_c_csc_mold(a,b,info) + interface + subroutine psb_c_csc_mold(a,b,info) import class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_mold end interface - + !> \memberof psb_c_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_c_csc_sparse_mat), intent(inout) :: a @@ -211,147 +213,147 @@ module psb_c_csc_mat_mod end subroutine psb_c_csc_allocate_mnnz end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_print interface subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_c_csc_sparse_mat), intent(in) :: a + class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_csc_print end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_coo - interface - subroutine psb_c_cp_csc_to_coo(a,b,info) + interface + subroutine psb_c_cp_csc_to_coo(a,b,info) import class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_to_coo end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_coo - interface - subroutine psb_c_cp_csc_from_coo(a,b,info) + interface + subroutine psb_c_cp_csc_from_coo(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_from_coo end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_fmt - interface - subroutine psb_c_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_c_cp_csc_to_fmt(a,b,info) import class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_to_fmt end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_fmt - interface - subroutine psb_c_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_c_cp_csc_from_fmt(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csc_from_fmt end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_coo - interface - subroutine psb_c_mv_csc_to_coo(a,b,info) + interface + subroutine psb_c_mv_csc_to_coo(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_to_coo end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_coo - interface - subroutine psb_c_mv_csc_from_coo(a,b,info) + interface + subroutine psb_c_mv_csc_from_coo(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_from_coo end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_fmt - interface - subroutine psb_c_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_c_mv_csc_to_fmt(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_to_fmt end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_fmt - interface - subroutine psb_c_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_c_mv_csc_from_fmt(a,b,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros ! interface subroutine psb_c_csc_clean_zeros(a, info) - import + import class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_clean_zeros end interface - - + + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from - interface + interface subroutine psb_c_csc_cp_from(a,b) import class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(in) :: b end subroutine psb_c_csc_cp_from end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from - interface + interface subroutine psb_c_csc_mv_from(a,b) import class(psb_c_csc_sparse_mat), intent(inout) :: a type(psb_c_csc_sparse_mat), intent(inout) :: b end subroutine psb_c_csc_mv_from end interface - - + + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csput_a - interface - subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -360,10 +362,10 @@ module psb_c_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_csput_a end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -378,10 +380,10 @@ module psb_c_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csc_csgetptn end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csgetrow - interface + interface subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import :: psb_ipk_, psb_c_csc_sparse_mat, psb_spk_ @@ -400,7 +402,7 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csgetblk - interface + interface subroutine psb_c_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) import @@ -414,11 +416,11 @@ module psb_c_csc_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_c_csc_csgetblk end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssv - interface - subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -429,8 +431,8 @@ module psb_c_csc_mat_mod end interface !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssm - interface - subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -439,11 +441,11 @@ module psb_c_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csc_cssm end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmv - interface - subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -455,8 +457,8 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmm - interface - subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -465,21 +467,21 @@ module psb_c_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csc_csmm end interface - - + + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_maxval - interface + interface function psb_c_csc_maxval(a) result(res) import class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csc_maxval end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csnm1 - interface + interface function psb_c_csc_csnm1(a) result(res) import class(psb_c_csc_sparse_mat), intent(in) :: a @@ -489,8 +491,8 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_rowsum - interface - subroutine psb_c_csc_rowsum(d,a) + interface + subroutine psb_c_csc_rowsum(d,a) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -499,18 +501,18 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_arwsum - interface - subroutine psb_c_csc_arwsum(d,a) + interface + subroutine psb_c_csc_arwsum(d,a) import class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_arwsum end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_colsum - interface - subroutine psb_c_csc_colsum(d,a) + interface + subroutine psb_c_csc_colsum(d,a) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -519,29 +521,29 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_aclsum - interface - subroutine psb_c_csc_aclsum(d,a) + interface + subroutine psb_c_csc_aclsum(d,a) import class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csc_aclsum end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_get_diag - interface - subroutine psb_c_csc_get_diag(a,d,info) + interface + subroutine psb_c_csc_get_diag(a,d,info) import class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_get_diag end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scal - interface - subroutine psb_c_csc_scal(d,a,info,side) + interface + subroutine psb_c_csc_scal(d,a,info,side) import class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) @@ -549,42 +551,53 @@ module psb_c_csc_mat_mod character, intent(in), optional :: side end subroutine psb_c_csc_scal end interface - + !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scals interface - subroutine psb_c_csc_scals(d,a,info) + subroutine psb_c_csc_scals(d,a,info) import class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csc_scals end interface - + + !> \memberof psb_c_csc_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity + interface + subroutine psb_c_csc_scalplusidentity(d,a,info) + import + class(psb_c_csc_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_csc_scalplusidentity + end interface + ! ! lc - ! + ! !> \memberof psb_lc_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_lc_csc_reallocate_nz(nz,a) + subroutine psb_lc_csc_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_lc_csc_sparse_mat), intent(inout) :: a end subroutine psb_lc_csc_reallocate_nz end interface - + !> \memberof psb_lc_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_lc_csc_reinit(a,clear) import - class(psb_lc_csc_sparse_mat), intent(inout) :: a + class(psb_lc_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lc_csc_reinit end interface - + !> \memberof psb_lc_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -593,22 +606,22 @@ module psb_c_csc_mat_mod class(psb_lc_csc_sparse_mat), intent(inout) :: a end subroutine psb_lc_csc_trim end interface - + !> \memberof psb_lc_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lc_csc_mold(a,b,info) + interface + subroutine psb_lc_csc_mold(a,b,info) import class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csc_mold end interface - + !> \memberof psb_lc_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_lc_csc_sparse_mat), intent(inout) :: a @@ -616,146 +629,146 @@ module psb_c_csc_mat_mod end subroutine psb_lc_csc_allocate_mnnz end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_print interface subroutine psb_lc_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_lc_csc_sparse_mat), intent(in) :: a + class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lc_csc_print end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_coo - interface - subroutine psb_lc_cp_csc_to_coo(a,b,info) + interface + subroutine psb_lc_cp_csc_to_coo(a,b,info) import class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csc_to_coo end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_coo - interface - subroutine psb_lc_cp_csc_from_coo(a,b,info) + interface + subroutine psb_lc_cp_csc_from_coo(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csc_from_coo end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_fmt - interface - subroutine psb_lc_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_lc_cp_csc_to_fmt(a,b,info) import class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csc_to_fmt end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_fmt - interface - subroutine psb_lc_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_lc_cp_csc_from_fmt(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csc_from_fmt end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_coo - interface - subroutine psb_lc_mv_csc_to_coo(a,b,info) + interface + subroutine psb_lc_mv_csc_to_coo(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csc_to_coo end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_coo - interface - subroutine psb_lc_mv_csc_from_coo(a,b,info) + interface + subroutine psb_lc_mv_csc_from_coo(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csc_from_coo end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_fmt - interface - subroutine psb_lc_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_lc_mv_csc_to_fmt(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csc_to_fmt end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_fmt - interface - subroutine psb_lc_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_lc_mv_csc_from_fmt(a,b,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros ! interface subroutine psb_lc_csc_clean_zeros(a, info) - import + import class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csc_clean_zeros end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from - interface + interface subroutine psb_lc_csc_cp_from(a,b) import class(psb_lc_csc_sparse_mat), intent(inout) :: a type(psb_lc_csc_sparse_mat), intent(in) :: b end subroutine psb_lc_csc_cp_from end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from - interface + interface subroutine psb_lc_csc_mv_from(a,b) import class(psb_lc_csc_sparse_mat), intent(inout) :: a type(psb_lc_csc_sparse_mat), intent(inout) :: b end subroutine psb_lc_csc_mv_from end interface - - + + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csput_a - interface - subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -764,10 +777,10 @@ module psb_c_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csc_csput_a end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lc_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -782,10 +795,10 @@ module psb_c_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csc_csgetptn end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csgetrow - interface + interface subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -804,7 +817,7 @@ module psb_c_csc_mat_mod !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csgetblk - interface + interface subroutine psb_lc_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import @@ -818,31 +831,31 @@ module psb_c_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csc_csgetblk end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_get_diag - interface - subroutine psb_lc_csc_get_diag(a,d,info) + interface + subroutine psb_lc_csc_get_diag(a,d,info) import class(psb_lc_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csc_get_diag end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_maxval - interface + interface function psb_lc_csc_maxval(a) result(res) import class(psb_lc_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_csc_maxval end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_csnm1 - interface + interface function psb_lc_csc_csnm1(a) result(res) import class(psb_lc_csc_sparse_mat), intent(in) :: a @@ -852,8 +865,8 @@ module psb_c_csc_mat_mod !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_rowsum - interface - subroutine psb_lc_csc_rowsum(d,a) + interface + subroutine psb_lc_csc_rowsum(d,a) import class(psb_lc_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -862,18 +875,18 @@ module psb_c_csc_mat_mod !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_arwsum - interface - subroutine psb_lc_csc_arwsum(d,a) + interface + subroutine psb_lc_csc_arwsum(d,a) import class(psb_lc_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_csc_arwsum end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_colsum - interface - subroutine psb_lc_csc_colsum(d,a) + interface + subroutine psb_lc_csc_colsum(d,a) import class(psb_lc_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -882,18 +895,18 @@ module psb_c_csc_mat_mod !> \memberof psb_lc_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_aclsum - interface - subroutine psb_lc_csc_aclsum(d,a) + interface + subroutine psb_lc_csc_aclsum(d,a) import class(psb_lc_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_csc_aclsum end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scal - interface - subroutine psb_lc_csc_scal(d,a,info,side) + interface + subroutine psb_lc_csc_scal(d,a,info,side) import class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) @@ -901,27 +914,36 @@ module psb_c_csc_mat_mod character, intent(in), optional :: side end subroutine psb_lc_csc_scal end interface - + !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scals interface - subroutine psb_lc_csc_scals(d,a,info) + subroutine psb_lc_csc_scals(d,a,info) import class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csc_scals end interface - - -contains + !> \memberof psb_lc_csc_sparse_mat + !! \see psb_lc_base_mat_mod::psb_lc_base_scalplusidentity + interface + subroutine psb_lc_csc_scalplusidentity(d,a,info) + import + class(psb_lc_csc_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_csc_scalplusidentity + end interface + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -929,54 +951,54 @@ contains ! ! == =================================== - + function c_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function c_csc_is_by_cols - + function c_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%icp) res = res + psb_sizeof_ip * psb_size(a%ia) - + end function c_csc_sizeof function c_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function c_csc_get_fmt - + function c_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function c_csc_get_nzeros function c_csc_get_size(a) result(res) - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -988,17 +1010,17 @@ contains function c_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function c_csc_get_nz_col @@ -1013,11 +1035,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine c_csc_free(a) - implicit none + subroutine c_csc_free(a) + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a @@ -1027,7 +1049,7 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine c_csc_free @@ -1038,7 +1060,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1046,57 +1068,57 @@ contains ! ! == =================================== - + function lc_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function lc_csc_is_by_cols ! ! lc ! - + function lc_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2*psb_sizeof_lp res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%icp) res = res + psb_sizeof_lp * psb_size(a%ia) - + end function lc_csc_sizeof function lc_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function lc_csc_get_fmt - + function lc_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%icp(a%get_ncols()+1)-1 end function lc_csc_get_nzeros function lc_csc_get_size(a) result(res) - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1108,17 +1130,17 @@ contains function lc_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function lc_csc_get_nz_col @@ -1133,11 +1155,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine lc_csc_free(a) - implicit none + subroutine lc_csc_free(a) + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a @@ -1147,7 +1169,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine lc_csc_free diff --git a/base/modules/serial/psb_c_csr_mat_mod.f90 b/base/modules/serial/psb_c_csr_mat_mod.f90 index 5e502ebab..f2b2f65cc 100644 --- a/base/modules/serial/psb_c_csr_mat_mod.f90 +++ b/base/modules/serial/psb_c_csr_mat_mod.f90 @@ -1,10 +1,10 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -16,7 +16,7 @@ ! 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 @@ -28,8 +28,8 @@ ! 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. -! -! +! +! ! ! package: psb_c_csr_mat_mod ! @@ -48,17 +48,17 @@ module psb_c_csr_mat_mod !> \namespace psb_base_mod \class psb_c_csr_sparse_mat !! \extends psb_c_base_mat_mod::psb_c_base_sparse_mat - !! + !! !! psb_c_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_c_base_sparse_mat) :: psb_c_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_ipk_), allocatable :: irp(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) contains @@ -73,6 +73,7 @@ module psb_c_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csr_cssv procedure, pass(a) :: scals => psb_c_csr_scals procedure, pass(a) :: scalv => psb_c_csr_scal + procedure, pass(a) :: scalpid => psb_c_csr_scalplusidentity procedure, pass(a) :: maxval => psb_c_csr_maxval procedure, pass(a) :: spnmi => psb_c_csr_csnmi procedure, pass(a) :: rowsum => psb_c_csr_rowsum @@ -112,23 +113,23 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_c_csr_reallocate_nz(nz,a) + subroutine psb_c_csr_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_c_csr_sparse_mat), intent(inout) :: a end subroutine psb_c_csr_reallocate_nz end interface - + !> \memberof psb_c_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_c_csr_reinit(a,clear) import - class(psb_c_csr_sparse_mat), intent(inout) :: a + class(psb_c_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_csr_reinit end interface - + !> \memberof psb_c_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -138,22 +139,22 @@ module psb_c_csr_mat_mod end subroutine psb_c_csr_trim end interface - + !> \memberof psb_c_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_c_csr_mold(a,b,info) + interface + subroutine psb_c_csr_mold(a,b,info) import class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_mold end interface - + !> \memberof psb_c_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_c_csr_sparse_mat), intent(inout) :: a @@ -161,14 +162,14 @@ module psb_c_csr_mat_mod end subroutine psb_c_csr_allocate_mnnz end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_print interface subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_c_csr_sparse_mat), intent(in) :: a + class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -187,27 +188,27 @@ module psb_c_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_c_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -216,13 +217,13 @@ module psb_c_csr_mat_mod class(psb_c_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_c_csr_tril end interface - + ! !> Function triu: !! \memberof psb_c_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -231,27 +232,27 @@ module psb_c_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_c_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -260,133 +261,133 @@ module psb_c_csr_mat_mod class(psb_c_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_c_csr_triu end interface - + ! - !> + !> !! \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_clean_zeros ! interface subroutine psb_c_csr_clean_zeros(a, info) - import + import class(psb_c_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_clean_zeros end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_coo - interface - subroutine psb_c_cp_csr_to_coo(a,b,info) + interface + subroutine psb_c_cp_csr_to_coo(a,b,info) import class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_to_coo end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_coo - interface - subroutine psb_c_cp_csr_from_coo(a,b,info) + interface + subroutine psb_c_cp_csr_from_coo(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_from_coo end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_to_fmt - interface - subroutine psb_c_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_c_cp_csr_to_fmt(a,b,info) import class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_to_fmt end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from_fmt - interface - subroutine psb_c_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_c_cp_csr_from_fmt(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_cp_csr_from_fmt end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_coo - interface - subroutine psb_c_mv_csr_to_coo(a,b,info) + interface + subroutine psb_c_mv_csr_to_coo(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_to_coo end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_coo - interface - subroutine psb_c_mv_csr_from_coo(a,b,info) + interface + subroutine psb_c_mv_csr_from_coo(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_from_coo end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_to_fmt - interface - subroutine psb_c_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_c_mv_csr_to_fmt(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_to_fmt end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from_fmt - interface - subroutine psb_c_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_c_mv_csr_from_fmt(a,b,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_c_mv_csr_from_fmt end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cp_from - interface + interface subroutine psb_c_csr_cp_from(a,b) import class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(in) :: b end subroutine psb_c_csr_cp_from end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_mv_from - interface + interface subroutine psb_c_csr_mv_from(a,b) import class(psb_c_csr_sparse_mat), intent(inout) :: a type(psb_c_csr_sparse_mat), intent(inout) :: b end subroutine psb_c_csr_mv_from end interface - - + + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csput_a - interface - subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -395,10 +396,10 @@ module psb_c_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_csput_a end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -413,10 +414,10 @@ module psb_c_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csr_csgetptn end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csgetrow - interface + interface subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import @@ -435,8 +436,8 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssv - interface - subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -447,8 +448,8 @@ module psb_c_csr_mat_mod end interface !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_cssm - interface - subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -457,11 +458,11 @@ module psb_c_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csr_cssm end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmv - interface - subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -473,8 +474,8 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csmm - interface - subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -483,32 +484,32 @@ module psb_c_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csr_csmm end interface - - + + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_maxval - interface + interface function psb_c_csr_maxval(a) result(res) import class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_maxval end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_csnmi - interface + interface function psb_c_csr_csnmi(a) result(res) import class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_c_csr_csnmi end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_rowsum - interface - subroutine psb_c_csr_rowsum(d,a) + interface + subroutine psb_c_csr_rowsum(d,a) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -517,18 +518,18 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_arwsum - interface - subroutine psb_c_csr_arwsum(d,a) + interface + subroutine psb_c_csr_arwsum(d,a) import class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_arwsum end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_colsum - interface - subroutine psb_c_csr_colsum(d,a) + interface + subroutine psb_c_csr_colsum(d,a) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -537,29 +538,29 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_aclsum - interface - subroutine psb_c_csr_aclsum(d,a) + interface + subroutine psb_c_csr_aclsum(d,a) import class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_c_csr_aclsum end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_get_diag - interface - subroutine psb_c_csr_get_diag(a,d,info) + interface + subroutine psb_c_csr_get_diag(a,d,info) import class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_get_diag end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scal - interface - subroutine psb_c_csr_scal(d,a,info,side) + interface + subroutine psb_c_csr_scal(d,a,info,side) import class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) @@ -567,32 +568,43 @@ module psb_c_csr_mat_mod character, intent(in), optional :: side end subroutine psb_c_csr_scal end interface - + !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scals interface - subroutine psb_c_csr_scals(d,a,info) + subroutine psb_c_csr_scals(d,a,info) import class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csr_scals end interface - + + !> \memberof psb_c_csr_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity + interface + subroutine psb_c_csr_scalplusidentity(d,a,info) + import + class(psb_c_csr_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_csr_scalplusidentity + end interface + !> \namespace psb_base_mod \class psb_lc_csr_sparse_mat !! \extends psb_lc_base_mat_mod::psb_lc_base_sparse_mat - !! + !! !! psb_lc_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_lc_base_sparse_mat) :: psb_lc_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_lpk_), allocatable :: irp(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_spk_), allocatable :: val(:) contains @@ -642,23 +654,23 @@ module psb_c_csr_mat_mod !> \memberof psb_lc_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_lc_csr_reallocate_nz(nz,a) + subroutine psb_lc_csr_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_lc_csr_sparse_mat), intent(inout) :: a end subroutine psb_lc_csr_reallocate_nz end interface - + !> \memberof psb_lc_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_lc_csr_reinit(a,clear) import - class(psb_lc_csr_sparse_mat), intent(inout) :: a + class(psb_lc_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lc_csr_reinit end interface - + !> \memberof psb_lc_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -668,22 +680,22 @@ module psb_c_csr_mat_mod end subroutine psb_lc_csr_trim end interface - + !> \memberof psb_lc_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lc_csr_mold(a,b,info) + interface + subroutine psb_lc_csr_mold(a,b,info) import class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csr_mold end interface - + !> \memberof psb_lc_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_lc_csr_sparse_mat), intent(inout) :: a @@ -691,14 +703,14 @@ module psb_c_csr_mat_mod end subroutine psb_lc_csr_allocate_mnnz end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_print interface subroutine psb_lc_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_lc_csr_sparse_mat), intent(in) :: a + class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -717,27 +729,27 @@ module psb_c_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lc_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -746,13 +758,13 @@ module psb_c_csr_mat_mod class(psb_lc_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_lc_csr_tril end interface - + ! !> Function triu: !! \memberof psb_c_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -761,27 +773,27 @@ module psb_c_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lc_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -792,133 +804,133 @@ module psb_c_csr_mat_mod end interface ! - !> + !> !! \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_clean_zeros ! interface subroutine psb_lc_csr_clean_zeros(a, info) - import + import class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csr_clean_zeros end interface - - + + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_coo - interface - subroutine psb_lc_cp_csr_to_coo(a,b,info) + interface + subroutine psb_lc_cp_csr_to_coo(a,b,info) import class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csr_to_coo end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_coo - interface - subroutine psb_lc_cp_csr_from_coo(a,b,info) + interface + subroutine psb_lc_cp_csr_from_coo(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csr_from_coo end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_to_fmt - interface - subroutine psb_lc_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_lc_cp_csr_to_fmt(a,b,info) import class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csr_to_fmt end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from_fmt - interface - subroutine psb_lc_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_lc_cp_csr_from_fmt(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_cp_csr_from_fmt end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_coo - interface - subroutine psb_lc_mv_csr_to_coo(a,b,info) + interface + subroutine psb_lc_mv_csr_to_coo(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csr_to_coo end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_coo - interface - subroutine psb_lc_mv_csr_from_coo(a,b,info) + interface + subroutine psb_lc_mv_csr_from_coo(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csr_from_coo end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_to_fmt - interface - subroutine psb_lc_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_lc_mv_csr_to_fmt(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csr_to_fmt end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from_fmt - interface - subroutine psb_lc_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_lc_mv_csr_from_fmt(a,b,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_mv_csr_from_fmt end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_cp_from - interface + interface subroutine psb_lc_csr_cp_from(a,b) import class(psb_lc_csr_sparse_mat), intent(inout) :: a type(psb_lc_csr_sparse_mat), intent(in) :: b end subroutine psb_lc_csr_cp_from end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_mv_from - interface + interface subroutine psb_lc_csr_mv_from(a,b) import class(psb_lc_csr_sparse_mat), intent(inout) :: a type(psb_lc_csr_sparse_mat), intent(inout) :: b end subroutine psb_lc_csr_mv_from end interface - - + + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csput_a - interface - subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -927,10 +939,10 @@ module psb_c_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csr_csput_a end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lc_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -945,10 +957,10 @@ module psb_c_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csr_csgetptn end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_csgetrow - interface + interface subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -964,11 +976,11 @@ module psb_c_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csr_csgetrow end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_get_diag - interface - subroutine psb_lc_csr_get_diag(a,d,info) + interface + subroutine psb_lc_csr_get_diag(a,d,info) import class(psb_lc_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -978,8 +990,8 @@ module psb_c_csr_mat_mod !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scal - interface - subroutine psb_lc_csr_scal(d,a,info,side) + interface + subroutine psb_lc_csr_scal(d,a,info,side) import class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) @@ -987,42 +999,42 @@ module psb_c_csr_mat_mod character, intent(in), optional :: side end subroutine psb_lc_csr_scal end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scals interface - subroutine psb_lc_csr_scals(d,a,info) + subroutine psb_lc_csr_scals(d,a,info) import class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csr_scals end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_maxval - interface + interface function psb_lc_csr_maxval(a) result(res) import class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_csr_maxval end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_csnmi - interface + interface function psb_lc_csr_csnmi(a) result(res) import class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_lc_csr_csnmi end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_rowsum - interface - subroutine psb_lc_csr_rowsum(d,a) + interface + subroutine psb_lc_csr_rowsum(d,a) import class(psb_lc_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -1031,18 +1043,18 @@ module psb_c_csr_mat_mod !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_arwsum - interface - subroutine psb_lc_csr_arwsum(d,a) + interface + subroutine psb_lc_csr_arwsum(d,a) import class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_csr_arwsum end interface - + !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_colsum - interface - subroutine psb_lc_csr_colsum(d,a) + interface + subroutine psb_lc_csr_colsum(d,a) import class(psb_lc_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) @@ -1051,22 +1063,22 @@ module psb_c_csr_mat_mod !> \memberof psb_lc_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_lc_base_aclsum - interface - subroutine psb_lc_csr_aclsum(d,a) + interface + subroutine psb_lc_csr_aclsum(d,a) import class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_lc_csr_aclsum end interface - -contains + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1075,54 +1087,54 @@ contains ! == =================================== - + function c_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function c_csr_is_by_rows - + function c_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%irp) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function c_csr_sizeof function c_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function c_csr_get_fmt - + function c_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function c_csr_get_nzeros function c_csr_get_size(a) result(res) - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1134,17 +1146,17 @@ contains function c_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function c_csr_get_nz_row @@ -1159,10 +1171,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine c_csr_free(a) - implicit none + subroutine c_csr_free(a) + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a @@ -1172,18 +1184,18 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine c_csr_free - + ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1192,54 +1204,54 @@ contains ! == =================================== - + function lc_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function lc_csr_is_by_rows - + function lc_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res - res = 2 * psb_sizeof_lp + res = 2 * psb_sizeof_lp res = res + (2*psb_sizeof_sp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%irp) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function lc_csr_sizeof function lc_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function lc_csr_get_fmt - + function lc_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%irp(a%get_nrows()+1)-1 end function lc_csr_get_nzeros function lc_csr_get_size(a) result(res) - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1251,17 +1263,17 @@ contains function lc_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function lc_csr_get_nz_row @@ -1276,10 +1288,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine lc_csr_free(a) - implicit none + subroutine lc_csr_free(a) + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a @@ -1289,7 +1301,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine lc_csr_free diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90 index 2e2c6a919..b213d18ab 100644 --- a/base/modules/serial/psb_c_mat_mod.F90 +++ b/base/modules/serial/psb_c_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_c_mat_mod ! @@ -37,7 +37,7 @@ ! provide a mean of switching, at run-time, among different formats, ! potentially unknown at the library compile-time by adding a layer of ! indirection. This type encapsulates the psb_c_base_sparse_mat class -! inside another class which is the one visible to the user. +! inside another class which is the one visible to the user. ! Most methods of the psb_c_mat_mod simply call the methods of the ! encapsulated class. ! The exceptions are mainly cscnv and cp_from/cp_to; these provide @@ -48,14 +48,14 @@ ! through the application life. ! In particular, computational methods can only be invoked when ! the matrix is in the ASSEMBLED state, whereas the other states are -! dedicated to operations on the internal matrix data. -! A sparse matrix can move between states according to the +! dedicated to operations on the internal matrix data. +! A sparse matrix can move between states according to the ! following state transition table. Associated with these states are ! the possible dynamic types of the inner matrix object. ! Only COO matrices can ever be in the BUILD state, whereas -! the ASSEMBLED and UPDATE state can be entered by any class. -! -! In Out Method +! the ASSEMBLED and UPDATE state can be entered by any class. +! +! In Out Method !| ---------------------------------- !| Null Build csall !| Build Build csput @@ -64,7 +64,7 @@ !| Assembled Update reinit !| Update Update csput !| Update Assembled cscnv -!| * unchanged reall +!| * unchanged reall !| Assembled Null free ! ! @@ -74,7 +74,7 @@ ! of the indices, which are PSB_LPK_ so that the entries ! are guaranteed to be able to contain global indices. ! This type only supports data handling and preprocessing, it is -! not supposed to be used for computations. +! not supposed to be used for computations. ! module psb_c_mat_mod @@ -84,7 +84,7 @@ 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 contains ! Getters @@ -126,12 +126,12 @@ module psb_c_mat_mod procedure, pass(a) :: set_unit => psb_c_set_unit procedure, pass(a) :: set_repeatable_updates => psb_c_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_c_csall procedure, pass(a) :: free => psb_c_free procedure, pass(a) :: trim => psb_c_trim procedure, pass(a) :: csput_a => psb_c_csput_a - procedure, pass(a) :: csput_v => psb_c_csput_v + procedure, pass(a) :: csput_v => psb_c_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_c_csgetptn procedure, pass(a) :: csgetrow => psb_c_csgetrow @@ -141,7 +141,7 @@ module psb_c_mat_mod procedure, pass(a) :: lcsgetptn => psb_c_lcsgetptn procedure, pass(a) :: lcsgetrow => psb_c_lcsgetrow generic, public :: csget => lcsgetptn, lcsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_c_tril procedure, pass(a) :: triu => psb_c_triu procedure, pass(a) :: m_csclip => psb_c_csclip @@ -168,7 +168,7 @@ module psb_c_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => c_mat_sync procedure, pass(a) :: is_host => c_mat_is_host @@ -204,16 +204,16 @@ module psb_c_mat_mod procedure, pass(a) :: mv_to_lb => psb_c_mv_to_lb procedure, pass(a) :: cp_from_lb => psb_c_cp_from_lb procedure, pass(a) :: cp_to_lb => psb_c_cp_to_lb - procedure, pass(a) :: mv_from_l => psb_c_mv_from_l - procedure, pass(a) :: mv_to_l => psb_c_mv_to_l - procedure, pass(a) :: cp_from_l => psb_c_cp_from_l - procedure, pass(a) :: cp_to_l => psb_c_cp_to_l + procedure, pass(a) :: mv_from_l => psb_c_mv_from_l + procedure, pass(a) :: mv_to_l => psb_c_mv_to_l + procedure, pass(a) :: cp_from_l => psb_c_cp_from_l + procedure, pass(a) :: cp_to_l => psb_c_cp_to_l generic, public :: mv_from => mv_from_lb, mv_from_l generic, public :: mv_to => mv_to_lb, mv_to_l generic, public :: cp_from => cp_from_lb, cp_from_l generic, public :: cp_to => cp_to_lb, cp_to_l - - ! Computational routines + + ! Computational routines procedure, pass(a) :: get_diag => psb_c_get_diag procedure, pass(a) :: maxval => psb_c_maxval procedure, pass(a) :: spnmi => psb_c_csnmi @@ -233,6 +233,7 @@ module psb_c_mat_mod procedure, pass(a) :: cssv => psb_c_cssv procedure, pass(a) :: cssm => psb_c_cssm generic, public :: spsm => cssm, cssv, cssv_v + procedure, pass(a) :: scalpid => psb_c_scalplusidentity end type psb_cspmat_type @@ -266,7 +267,7 @@ module psb_c_mat_mod type :: psb_lcspmat_type - class(psb_lc_base_sparse_mat), allocatable :: a + class(psb_lc_base_sparse_mat), allocatable :: a contains ! Getters @@ -295,7 +296,7 @@ module psb_c_mat_mod ! Setters procedure, pass(a) :: set_lnrows => psb_lc_set_lnrows procedure, pass(a) :: set_lncols => psb_lc_set_lncols -#if defined(IPK4) && defined(LPK8) +#if defined(IPK4) && defined(LPK8) procedure, pass(a) :: set_inrows => psb_lc_set_inrows procedure, pass(a) :: set_incols => psb_lc_set_incols generic, public :: set_nrows => set_inrows, set_lnrows @@ -304,7 +305,7 @@ module psb_c_mat_mod generic, public :: set_nrows => set_lnrows generic, public :: set_ncols => set_lncols #endif - + procedure, pass(a) :: set_dupl => psb_lc_set_dupl procedure, pass(a) :: set_null => psb_lc_set_null procedure, pass(a) :: set_bld => psb_lc_set_bld @@ -318,12 +319,12 @@ module psb_c_mat_mod procedure, pass(a) :: set_unit => psb_lc_set_unit procedure, pass(a) :: set_repeatable_updates => psb_lc_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_lc_csall procedure, pass(a) :: free => psb_lc_free procedure, pass(a) :: trim => psb_lc_trim procedure, pass(a) :: csput_a => psb_lc_csput_a - procedure, pass(a) :: csput_v => psb_lc_csput_v + procedure, pass(a) :: csput_v => psb_lc_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_lc_csgetptn procedure, pass(a) :: csgetrow => psb_lc_csgetrow @@ -333,7 +334,7 @@ module psb_c_mat_mod !!$ procedure, pass(a) :: icsgetptn => psb_lc_icsgetptn !!$ procedure, pass(a) :: icsgetrow => psb_lc_icsgetrow !!$ generic, public :: csget => icsgetptn, icsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_lc_tril procedure, pass(a) :: triu => psb_lc_triu procedure, pass(a) :: m_csclip => psb_lc_csclip @@ -360,7 +361,7 @@ module psb_c_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => lc_mat_sync procedure, pass(a) :: is_host => lc_mat_is_host @@ -396,16 +397,16 @@ module psb_c_mat_mod procedure, pass(a) :: mv_to_ib => psb_lc_mv_to_ib procedure, pass(a) :: cp_from_ib => psb_lc_cp_from_ib procedure, pass(a) :: cp_to_ib => psb_lc_cp_to_ib - procedure, pass(a) :: mv_from_i => psb_lc_mv_from_i - procedure, pass(a) :: mv_to_i => psb_lc_mv_to_i - procedure, pass(a) :: cp_from_i => psb_lc_cp_from_i - procedure, pass(a) :: cp_to_i => psb_lc_cp_to_i + procedure, pass(a) :: mv_from_i => psb_lc_mv_from_i + procedure, pass(a) :: mv_to_i => psb_lc_mv_to_i + procedure, pass(a) :: cp_from_i => psb_lc_cp_from_i + procedure, pass(a) :: cp_to_i => psb_lc_cp_to_i generic, public :: mv_from => mv_from_ib, mv_from_i generic, public :: mv_to => mv_to_ib, mv_to_i generic, public :: cp_from => cp_from_ib, cp_from_i generic, public :: cp_to => cp_to_ib, cp_to_i - ! Computational routines + ! Computational routines procedure, pass(a) :: get_diag => psb_lc_get_diag procedure, pass(a) :: maxval => psb_lc_maxval procedure, pass(a) :: spnmi => psb_lc_csnmi @@ -448,7 +449,7 @@ module psb_c_mat_mod ! ! ! - ! Setters + ! Setters ! ! ! @@ -458,142 +459,142 @@ module psb_c_mat_mod ! == =================================== - interface - subroutine psb_c_set_nrows(m,a) + interface + subroutine psb_c_set_nrows(m,a) import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_c_set_nrows end interface - - interface - subroutine psb_c_set_ncols(n,a) + + interface + subroutine psb_c_set_ncols(n,a) import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_c_set_ncols end interface - - interface - subroutine psb_c_set_dupl(n,a) + + interface + subroutine psb_c_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_c_set_dupl end interface - - interface - subroutine psb_c_set_null(a) + + interface + subroutine psb_c_set_null(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_null end interface - - interface - subroutine psb_c_set_bld(a) + + interface + subroutine psb_c_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_bld end interface - - interface - subroutine psb_c_set_upd(a) + + interface + subroutine psb_c_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_upd end interface - - interface - subroutine psb_c_set_asb(a) + + interface + subroutine psb_c_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_set_asb end interface - - interface - subroutine psb_c_set_sorted(a,val) + + interface + subroutine psb_c_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_sorted end interface - - interface - subroutine psb_c_set_triangle(a,val) + + interface + subroutine psb_c_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_triangle end interface - - interface - subroutine psb_c_set_symmetric(a,val) + + interface + subroutine psb_c_set_symmetric(a,val) import :: psb_ipk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_symmetric end interface - - interface - subroutine psb_c_set_unit(a,val) + + interface + subroutine psb_c_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_unit end interface - - interface - subroutine psb_c_set_lower(a,val) + + interface + subroutine psb_c_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_lower end interface - - interface - subroutine psb_c_set_upper(a,val) + + interface + subroutine psb_c_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_c_set_upper end interface - - interface + + interface subroutine psb_c_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_cspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_cspmat_type), intent(in) :: a + class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_sparse_print end interface - interface + interface subroutine psb_c_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_cspmat_type character(len=*), intent(in) :: fname - class(psb_cspmat_type), intent(in) :: a + class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_c_n_sparse_print end interface - - interface + + interface subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_cspmat_type - class(psb_cspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + class(psb_cspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_c_get_neigh end interface - - interface - subroutine psb_c_csall(nr,nc,a,info,nz) + + interface + subroutine psb_c_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc @@ -601,31 +602,31 @@ module psb_c_mat_mod integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_c_csall end interface - - interface - subroutine psb_c_reallocate_nz(nz,a) + + interface + subroutine psb_c_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type integer(psb_ipk_), intent(in) :: nz class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_reallocate_nz end interface - - interface - subroutine psb_c_free(a) + + interface + subroutine psb_c_free(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_free end interface - - interface - subroutine psb_c_trim(a) + + interface + subroutine psb_c_trim(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_trim end interface - - interface - subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -634,9 +635,9 @@ module psb_c_mat_mod end subroutine psb_c_csput_a end interface - - interface - subroutine psb_c_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_c_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_vect_mod, only : psb_c_vect_type use psb_i_vect_mod, only : psb_i_vect_type import :: psb_ipk_, psb_lpk_, psb_cspmat_type @@ -647,8 +648,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_csput_v end interface - - interface + + interface subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -663,8 +664,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetptn end interface - - interface + + interface subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -680,8 +681,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetrow end interface - - interface + + interface subroutine psb_c_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -695,8 +696,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csgetblk end interface - - interface + + interface subroutine psb_c_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -708,8 +709,8 @@ module psb_c_mat_mod class(psb_cspmat_type), optional, intent(inout) :: u end subroutine psb_c_tril end interface - - interface + + interface subroutine psb_c_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -723,7 +724,7 @@ module psb_c_mat_mod end interface - interface + interface subroutine psb_c_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -734,8 +735,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_csclip end interface - - interface + + interface subroutine psb_c_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_coo_sparse_mat @@ -746,60 +747,60 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_c_b_csclip end interface - - interface + + interface subroutine psb_c_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_c_mold end interface - - interface - subroutine psb_c_asb(a,mold) + + interface + subroutine psb_c_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_c_asb end interface - - interface + + interface subroutine psb_c_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_transp_1mat end interface - - interface + + interface subroutine psb_c_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b end subroutine psb_c_transp_2mat end interface - - interface + + interface subroutine psb_c_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a end subroutine psb_c_transc_1mat end interface - - interface + + interface subroutine psb_c_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b end subroutine psb_c_transc_2mat end interface - - interface + + interface subroutine psb_c_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_cspmat_type - class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_c_reinit - + end interface @@ -814,9 +815,9 @@ module psb_c_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a @@ -827,9 +828,9 @@ module psb_c_mat_mod class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_c_cscnv end interface - - interface + + interface subroutine psb_c_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a @@ -839,9 +840,9 @@ module psb_c_mat_mod class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_c_cscnv_ip end interface - - interface + + interface subroutine psb_c_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a @@ -850,12 +851,12 @@ module psb_c_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_c_cscnv_base end interface - + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_c_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(in) :: a @@ -863,46 +864,46 @@ module psb_c_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_c_clip_d end interface - - interface + + interface subroutine psb_c_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_c_clip_d_ip end interface - + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_c_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_from end interface - - interface + + interface subroutine psb_c_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(in) :: b end subroutine psb_c_cp_from end interface - - interface + + interface subroutine psb_c_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_to end interface - - interface + + interface subroutine psb_c_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_c_cp_to @@ -910,63 +911,63 @@ module psb_c_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_c_mv_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_from_lb end interface - - interface + + interface subroutine psb_c_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_cspmat_type), intent(out) :: a class(psb_lc_base_sparse_mat), intent(in) :: b end subroutine psb_c_cp_from_lb end interface - - interface + + interface subroutine psb_c_mv_to_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_cspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_c_mv_to_lb end interface - - interface + + interface subroutine psb_c_cp_to_lb(a,b) - import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_cspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_c_cp_to_lb end interface - interface + interface subroutine psb_c_mv_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lcspmat_type class(psb_cspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b end subroutine psb_c_mv_from_l end interface - - interface + + interface subroutine psb_c_cp_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lcspmat_type class(psb_cspmat_type), intent(out) :: a class(psb_lcspmat_type), intent(in) :: b end subroutine psb_c_cp_from_l end interface - - interface + + interface subroutine psb_c_mv_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lcspmat_type class(psb_cspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b end subroutine psb_c_mv_to_l end interface - - interface + + interface subroutine psb_c_cp_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_, psb_lcspmat_type class(psb_cspmat_type), intent(in) :: a @@ -976,8 +977,8 @@ module psb_c_mat_mod ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_cspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a @@ -985,8 +986,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_cspmat_type_move end interface - - interface + + interface subroutine psb_cspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_cspmat_type class(psb_cspmat_type), intent(inout) :: a @@ -1012,7 +1013,7 @@ module psb_c_mat_mod ! == =================================== interface psb_csmm - subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) + subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -1020,7 +1021,7 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csmm - subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) + subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1028,7 +1029,7 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_c_csmv - subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) + subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_c_vect_mod, only : psb_c_vect_type import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1039,9 +1040,9 @@ module psb_c_mat_mod character, optional, intent(in) :: trans end subroutine psb_c_csmv_vect end interface - + interface psb_cssm - subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -1050,7 +1051,7 @@ module psb_c_mat_mod character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_cssm - subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1059,7 +1060,7 @@ module psb_c_mat_mod character, optional, intent(in) :: trans, scale complex(psb_spk_), intent(in), optional :: d(:) end subroutine psb_c_cssv - subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_c_vect_mod, only : psb_c_vect_type import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1071,24 +1072,24 @@ module psb_c_mat_mod type(psb_c_vect_type), optional, intent(inout) :: d end subroutine psb_c_cssv_vect end interface - - interface + + interface function psb_c_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_c_maxval end interface - - interface + + interface function psb_c_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_c_csnmi end interface - - interface + + interface function psb_c_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1096,7 +1097,7 @@ module psb_c_mat_mod end function psb_c_csnm1 end interface - interface + interface function psb_c_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1105,7 +1106,7 @@ module psb_c_mat_mod end function psb_c_rowsum end interface - interface + interface function psb_c_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1113,8 +1114,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_c_arwsum end interface - - interface + + interface function psb_c_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1123,7 +1124,7 @@ module psb_c_mat_mod end function psb_c_colsum end interface - interface + interface function psb_c_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1132,7 +1133,7 @@ module psb_c_mat_mod end function psb_c_aclsum end interface - interface + interface function psb_c_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ class(psb_cspmat_type), intent(in) :: a @@ -1140,7 +1141,7 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_c_get_diag end interface - + interface psb_scal subroutine psb_c_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ @@ -1157,12 +1158,20 @@ module psb_c_mat_mod end subroutine psb_c_scals end interface + interface psb_scalplusidentity + subroutine psb_c_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ + class(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_scalplusidentity + end interface ! == =================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -1172,156 +1181,156 @@ module psb_c_mat_mod ! == =================================== - interface - subroutine psb_lc_set_lnrows(m,a) + interface + subroutine psb_lc_set_lnrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m end subroutine psb_lc_set_lnrows #if defined(IPK4) && defined(LPK8) - subroutine psb_lc_set_inrows(m,a) + subroutine psb_lc_set_inrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_lc_set_inrows #endif end interface - - interface - subroutine psb_lc_set_lncols(n,a) + + interface + subroutine psb_lc_set_lncols(n,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n end subroutine psb_lc_set_lncols -#if defined(IPK4) && defined(LPK8) - subroutine psb_lc_set_incols(n,a) +#if defined(IPK4) && defined(LPK8) + subroutine psb_lc_set_incols(n,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_lc_set_incols #endif end interface - - interface - subroutine psb_lc_set_dupl(n,a) + + interface + subroutine psb_lc_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_lc_set_dupl end interface - - interface - subroutine psb_lc_set_null(a) + + interface + subroutine psb_lc_set_null(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_set_null end interface - - interface - subroutine psb_lc_set_bld(a) + + interface + subroutine psb_lc_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_set_bld end interface - - interface - subroutine psb_lc_set_upd(a) + + interface + subroutine psb_lc_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_set_upd end interface - - interface - subroutine psb_lc_set_asb(a) + + interface + subroutine psb_lc_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_set_asb end interface - - interface - subroutine psb_lc_set_sorted(a,val) + + interface + subroutine psb_lc_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_sorted end interface - - interface - subroutine psb_lc_set_triangle(a,val) + + interface + subroutine psb_lc_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_triangle end interface - - interface - subroutine psb_lc_set_symmetric(a,val) + + interface + subroutine psb_lc_set_symmetric(a,val) import :: psb_ipk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_symmetric end interface - - interface - subroutine psb_lc_set_unit(a,val) + + interface + subroutine psb_lc_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_unit end interface - - interface - subroutine psb_lc_set_lower(a,val) + + interface + subroutine psb_lc_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_lower end interface - - interface - subroutine psb_lc_set_upper(a,val) + + interface + subroutine psb_lc_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lc_set_upper end interface - - interface + + interface subroutine psb_lc_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_lcspmat_type), intent(in) :: a + class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lc_sparse_print end interface - interface + interface subroutine psb_lc_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type character(len=*), intent(in) :: fname - class(psb_lcspmat_type), intent(in) :: a + class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lc_n_sparse_print end interface - - interface + + interface subroutine psb_lc_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type - class(psb_lcspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + class(psb_lcspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev end subroutine psb_lc_get_neigh end interface - - interface - subroutine psb_lc_csall(nr,nc,a,info,nz) + + interface + subroutine psb_lc_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc @@ -1329,31 +1338,31 @@ module psb_c_mat_mod integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_lc_csall end interface - - interface - subroutine psb_lc_reallocate_nz(nz,a) + + interface + subroutine psb_lc_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type integer(psb_lpk_), intent(in) :: nz class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_reallocate_nz end interface - - interface - subroutine psb_lc_free(a) + + interface + subroutine psb_lc_free(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_free end interface - - interface - subroutine psb_lc_trim(a) + + interface + subroutine psb_lc_trim(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_trim end interface - - interface - subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -1362,9 +1371,9 @@ module psb_c_mat_mod end subroutine psb_lc_csput_a end interface - - interface - subroutine psb_lc_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_lc_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_vect_mod, only : psb_c_vect_type use psb_l_vect_mod, only : psb_l_vect_type import :: psb_ipk_, psb_lpk_, psb_lcspmat_type @@ -1375,8 +1384,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_csput_v end interface - - interface + + interface subroutine psb_lc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1391,8 +1400,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csgetptn end interface - - interface + + interface subroutine psb_lc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1408,8 +1417,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csgetrow end interface - - interface + + interface subroutine psb_lc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1423,8 +1432,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csgetblk end interface - - interface + + interface subroutine psb_lc_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1436,8 +1445,8 @@ module psb_c_mat_mod class(psb_lcspmat_type), optional, intent(inout) :: u end subroutine psb_lc_tril end interface - - interface + + interface subroutine psb_lc_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1451,7 +1460,7 @@ module psb_c_mat_mod end interface - interface + interface subroutine psb_lc_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1462,8 +1471,8 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_csclip end interface - - interface + + interface subroutine psb_lc_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_coo_sparse_mat @@ -1474,60 +1483,60 @@ module psb_c_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lc_b_csclip end interface - - interface + + interface subroutine psb_lc_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_lc_mold end interface - - interface - subroutine psb_lc_asb(a,mold) + + interface + subroutine psb_lc_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_lc_asb end interface - - interface + + interface subroutine psb_lc_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_transp_1mat end interface - - interface + + interface subroutine psb_lc_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b end subroutine psb_lc_transp_2mat end interface - - interface + + interface subroutine psb_lc_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a end subroutine psb_lc_transc_1mat end interface - - interface + + interface subroutine psb_lc_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b end subroutine psb_lc_transc_2mat end interface - - interface + + interface subroutine psb_lc_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type - class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lc_reinit - + end interface @@ -1542,9 +1551,9 @@ module psb_c_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_lc_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(in) :: a @@ -1555,9 +1564,9 @@ module psb_c_mat_mod class(psb_lc_base_sparse_mat), intent(in), optional :: mold end subroutine psb_lc_cscnv end interface - - interface + + interface subroutine psb_lc_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a @@ -1567,9 +1576,9 @@ module psb_c_mat_mod class(psb_lc_base_sparse_mat), intent(in), optional :: mold end subroutine psb_lc_cscnv_ip end interface - - interface + + interface subroutine psb_lc_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(in) :: a @@ -1578,13 +1587,13 @@ module psb_c_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_lc_cscnv_base end interface - - + + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_lc_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(in) :: a @@ -1592,47 +1601,47 @@ module psb_c_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_lc_clip_d end interface - - interface + + interface subroutine psb_lc_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_lc_clip_d_ip end interface - - + + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_lc_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_mv_from end interface - - interface + + interface subroutine psb_lc_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(out) :: a class(psb_lc_base_sparse_mat), intent(in) :: b end subroutine psb_lc_cp_from end interface - - interface + + interface subroutine psb_lc_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_mv_to end interface - - interface + + interface subroutine psb_lc_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_lc_base_sparse_mat class(psb_lcspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_cp_to @@ -1640,63 +1649,63 @@ module psb_c_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_lc_mv_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_mv_from_ib end interface - - interface + + interface subroutine psb_lc_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_lcspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(in) :: b end subroutine psb_lc_cp_from_ib end interface - - interface + + interface subroutine psb_lc_mv_to_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_lcspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_mv_to_ib end interface - - interface + + interface subroutine psb_lc_cp_to_ib(a,b) - import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_c_base_sparse_mat class(psb_lcspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b end subroutine psb_lc_cp_to_ib end interface - interface + interface subroutine psb_lc_mv_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_cspmat_type class(psb_lcspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b end subroutine psb_lc_mv_from_i end interface - - interface + + interface subroutine psb_lc_cp_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_cspmat_type class(psb_lcspmat_type), intent(out) :: a class(psb_cspmat_type), intent(in) :: b end subroutine psb_lc_cp_from_i end interface - - interface + + interface subroutine psb_lc_mv_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_cspmat_type class(psb_lcspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b end subroutine psb_lc_mv_to_i end interface - - interface + + interface subroutine psb_lc_cp_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_, psb_cspmat_type class(psb_lcspmat_type), intent(in) :: a @@ -1704,11 +1713,11 @@ module psb_c_mat_mod end subroutine psb_lc_cp_to_i end interface - + ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_lcspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a @@ -1716,8 +1725,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lcspmat_type_move end interface - - interface + + interface subroutine psb_lcspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type class(psb_lcspmat_type), intent(inout) :: a @@ -1728,7 +1737,7 @@ module psb_c_mat_mod - interface + interface function psb_lc_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1736,7 +1745,7 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lc_get_diag end interface - + interface psb_scal subroutine psb_lc_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ @@ -1753,23 +1762,23 @@ module psb_c_mat_mod end subroutine psb_lc_scals end interface - interface + interface function psb_lc_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_lc_maxval end interface - - interface + + interface function psb_lc_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_lc_csnmi end interface - - interface + + interface function psb_lc_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1777,7 +1786,7 @@ module psb_c_mat_mod end function psb_lc_csnm1 end interface - interface + interface function psb_lc_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1786,7 +1795,7 @@ module psb_c_mat_mod end function psb_lc_rowsum end interface - interface + interface function psb_lc_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1794,8 +1803,8 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lc_arwsum end interface - - interface + + interface function psb_lc_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1804,7 +1813,7 @@ module psb_c_mat_mod end function psb_lc_colsum end interface - interface + interface function psb_lc_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ class(psb_lcspmat_type), intent(in) :: a @@ -1812,40 +1821,40 @@ module psb_c_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lc_aclsum end interface - -contains - subroutine psb_c_set_mat_default(a) - implicit none +contains + + subroutine psb_c_set_mat_default(a) + implicit none class(psb_c_base_sparse_mat), intent(in) :: a - - if (allocated(psb_c_base_mat_default)) then + + if (allocated(psb_c_base_mat_default)) then deallocate(psb_c_base_mat_default) end if allocate(psb_c_base_mat_default, mold=a) end subroutine psb_c_set_mat_default - + function psb_c_get_mat_default(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), pointer :: res - + res => psb_c_get_base_mat_default() - + end function psb_c_get_mat_default - + function psb_c_get_base_mat_default() result(res) - implicit none + implicit none class(psb_c_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_c_base_mat_default)) then + + if (.not.allocated(psb_c_base_mat_default)) then allocate(psb_c_csr_sparse_mat :: psb_c_base_mat_default) end if res => psb_c_base_mat_default - + end function psb_c_get_base_mat_default @@ -1855,7 +1864,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1863,26 +1872,26 @@ contains ! ! == =================================== - + function psb_c_sizeof(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_c_sizeof function psb_c_get_fmt(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -1892,11 +1901,11 @@ contains function psb_c_get_dupl(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -1904,11 +1913,11 @@ contains end function psb_c_get_dupl function psb_c_get_nrows(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -1917,11 +1926,11 @@ contains end function psb_c_get_nrows function psb_c_get_ncols(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -1930,11 +1939,11 @@ contains end function psb_c_get_ncols function psb_c_is_triangle(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -1943,11 +1952,11 @@ contains end function psb_c_is_triangle function psb_c_is_symmetric(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -1956,11 +1965,11 @@ contains end function psb_c_is_symmetric function psb_c_is_unit(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -1969,11 +1978,11 @@ contains end function psb_c_is_unit function psb_c_is_upper(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -1982,11 +1991,11 @@ contains end function psb_c_is_upper function psb_c_is_lower(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -1995,12 +2004,12 @@ contains end function psb_c_is_lower function psb_c_is_null(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2008,11 +2017,11 @@ contains end function psb_c_is_null function psb_c_is_bld(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2021,11 +2030,11 @@ contains end function psb_c_is_bld function psb_c_is_upd(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2034,11 +2043,11 @@ contains end function psb_c_is_upd function psb_c_is_asb(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2047,11 +2056,11 @@ contains end function psb_c_is_asb function psb_c_is_sorted(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2060,11 +2069,11 @@ contains end function psb_c_is_sorted function psb_c_is_by_rows(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2073,11 +2082,11 @@ contains end function psb_c_is_by_rows function psb_c_is_by_cols(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2088,61 +2097,61 @@ contains ! subroutine c_mat_sync(a) - implicit none + implicit none class(psb_cspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine c_mat_sync ! subroutine c_mat_set_host(a) - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine c_mat_set_host ! subroutine c_mat_set_dev(a) - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine c_mat_set_dev ! subroutine c_mat_set_sync(a) - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine c_mat_set_sync ! function c_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function c_mat_is_dev - + ! function c_mat_is_host(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2152,11 +2161,11 @@ contains ! function c_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2167,11 +2176,11 @@ contains function psb_c_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2179,25 +2188,25 @@ contains end function psb_c_is_repeatable_updates - subroutine psb_c_set_repeatable_updates(a,val) - implicit none + subroutine psb_c_set_repeatable_updates(a,val) + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_c_set_repeatable_updates function psb_c_get_nzeros(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2205,13 +2214,13 @@ contains function psb_c_get_size(a) result(res) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2219,23 +2228,23 @@ contains function psb_c_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_ipk_), intent(in) :: idx class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_c_get_nz_row subroutine psb_c_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_cspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_c_clean_zeros @@ -2243,7 +2252,7 @@ contains #if defined(IPK4) && defined(LPK8) subroutine psb_c_lcsgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2272,17 +2281,17 @@ contains end if call a%csget(imin,imax,nz,lia,lja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_c_lcsgetptn - + subroutine psb_c_lcsgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2311,12 +2320,12 @@ contains call a%csget(imin,imax,nz,lia,lja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_c_lcsgetrow #endif @@ -2324,38 +2333,38 @@ contains ! lc methods ! - - subroutine psb_lc_set_mat_default(a) - implicit none + + subroutine psb_lc_set_mat_default(a) + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a - - if (allocated(psb_lc_base_mat_default)) then + + if (allocated(psb_lc_base_mat_default)) then deallocate(psb_lc_base_mat_default) end if allocate(psb_lc_base_mat_default, mold=a) end subroutine psb_lc_set_mat_default - + function psb_lc_get_mat_default(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), pointer :: res - + res => psb_lc_get_base_mat_default() - + end function psb_lc_get_mat_default - + function psb_lc_get_base_mat_default() result(res) - implicit none + implicit none class(psb_lc_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_lc_base_mat_default)) then + + if (.not.allocated(psb_lc_base_mat_default)) then allocate(psb_lc_csr_sparse_mat :: psb_lc_base_mat_default) end if res => psb_lc_base_mat_default - + end function psb_lc_get_base_mat_default @@ -2365,7 +2374,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -2373,26 +2382,26 @@ contains ! ! == =================================== - + function psb_lc_sizeof(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_lc_sizeof function psb_lc_get_fmt(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -2402,11 +2411,11 @@ contains function psb_lc_get_dupl(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -2414,11 +2423,11 @@ contains end function psb_lc_get_dupl function psb_lc_get_nrows(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -2427,11 +2436,11 @@ contains end function psb_lc_get_nrows function psb_lc_get_ncols(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -2440,11 +2449,11 @@ contains end function psb_lc_get_ncols function psb_lc_is_triangle(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -2454,11 +2463,11 @@ contains function psb_lc_is_symmetric(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -2467,11 +2476,11 @@ contains end function psb_lc_is_symmetric function psb_lc_is_unit(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -2480,11 +2489,11 @@ contains end function psb_lc_is_unit function psb_lc_is_upper(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -2493,11 +2502,11 @@ contains end function psb_lc_is_upper function psb_lc_is_lower(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -2506,12 +2515,12 @@ contains end function psb_lc_is_lower function psb_lc_is_null(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2519,11 +2528,11 @@ contains end function psb_lc_is_null function psb_lc_is_bld(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2532,11 +2541,11 @@ contains end function psb_lc_is_bld function psb_lc_is_upd(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2545,11 +2554,11 @@ contains end function psb_lc_is_upd function psb_lc_is_asb(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2558,11 +2567,11 @@ contains end function psb_lc_is_asb function psb_lc_is_sorted(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2571,11 +2580,11 @@ contains end function psb_lc_is_sorted function psb_lc_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2584,11 +2593,11 @@ contains end function psb_lc_is_by_rows function psb_lc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2599,61 +2608,61 @@ contains ! subroutine lc_mat_sync(a) - implicit none + implicit none class(psb_lcspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine lc_mat_sync ! subroutine lc_mat_set_host(a) - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine lc_mat_set_host ! subroutine lc_mat_set_dev(a) - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine lc_mat_set_dev ! subroutine lc_mat_set_sync(a) - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine lc_mat_set_sync ! function lc_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function lc_mat_is_dev - + ! function lc_mat_is_host(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2663,11 +2672,11 @@ contains ! function lc_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2678,11 +2687,11 @@ contains function psb_lc_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2690,25 +2699,25 @@ contains end function psb_lc_is_repeatable_updates - subroutine psb_lc_set_repeatable_updates(a,val) - implicit none + subroutine psb_lc_set_repeatable_updates(a,val) + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_lc_set_repeatable_updates function psb_lc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2716,13 +2725,13 @@ contains function psb_lc_get_size(a) result(res) - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2730,23 +2739,23 @@ contains function psb_lc_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_lpk_), intent(in) :: idx class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_lc_get_nz_row subroutine psb_lc_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_lcspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_lc_clean_zeros @@ -2754,7 +2763,7 @@ contains #if defined(IPK4) && defined(LPK8) !!$ subroutine psb_lc_icsgetptn(imin,imax,a,nz,ia,ja,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lcspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2790,12 +2799,12 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_lc_icsgetptn -!!$ +!!$ !!$ subroutine psb_lc_icsgetrow(imin,imax,a,nz,ia,ja,val,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lcspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2831,7 +2840,7 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_lc_icsgetrow #endif diff --git a/base/modules/serial/psb_d_base_mat_mod.F90 b/base/modules/serial/psb_d_base_mat_mod.F90 index c7c8ab39b..b8cd3a9c2 100644 --- a/base/modules/serial/psb_d_base_mat_mod.F90 +++ b/base/modules/serial/psb_d_base_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,12 +27,12 @@ ! 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. -! -! +! +! ! ! module psb_d_base_mat_mod - + use psb_base_mat_mod use psb_d_base_vect_mod @@ -56,59 +56,59 @@ module psb_d_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_d_base_csput_a - procedure, pass(a) :: csput_v => psb_d_base_csput_v + procedure, pass(a) :: csput_v => psb_d_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_d_base_csgetrow procedure, pass(a) :: csgetblk => psb_d_base_csgetblk procedure, pass(a) :: get_diag => psb_d_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_d_base_tril procedure, pass(a) :: triu => psb_d_base_triu - procedure, pass(a) :: csclip => psb_d_base_csclip - procedure, pass(a) :: cp_to_coo => psb_d_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_d_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_d_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_d_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_d_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_d_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_d_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_d_base_mv_from_fmt - procedure, pass(a) :: mold => psb_d_base_mold + procedure, pass(a) :: csclip => psb_d_base_csclip + procedure, pass(a) :: cp_to_coo => psb_d_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_d_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_d_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_d_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_d_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_d_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_d_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_d_base_mv_from_fmt + procedure, pass(a) :: mold => psb_d_base_mold procedure, pass(a) :: clone => psb_d_base_clone procedure, pass(a) :: make_nonunit => psb_d_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_d_base_clean_zeros ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_d_base_cp_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_d_base_cp_from_lcoo - procedure, pass(a) :: cp_to_lfmt => psb_d_base_cp_to_lfmt - procedure, pass(a) :: cp_from_lfmt => psb_d_base_cp_from_lfmt - procedure, pass(a) :: mv_to_lcoo => psb_d_base_mv_to_lcoo - procedure, pass(a) :: mv_from_lcoo => psb_d_base_mv_from_lcoo - procedure, pass(a) :: mv_to_lfmt => psb_d_base_mv_to_lfmt - procedure, pass(a) :: mv_from_lfmt => psb_d_base_mv_from_lfmt + procedure, pass(a) :: cp_to_lcoo => psb_d_base_cp_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_d_base_cp_from_lcoo + procedure, pass(a) :: cp_to_lfmt => psb_d_base_cp_to_lfmt + procedure, pass(a) :: cp_from_lfmt => psb_d_base_cp_from_lfmt + procedure, pass(a) :: mv_to_lcoo => psb_d_base_mv_to_lcoo + procedure, pass(a) :: mv_from_lcoo => psb_d_base_mv_from_lcoo + procedure, pass(a) :: mv_to_lfmt => psb_d_base_mv_to_lfmt + procedure, pass(a) :: mv_from_lfmt => psb_d_base_mv_from_lfmt + - ! - ! Transpose methods: defined here but not implemented. - ! + ! Transpose methods: defined here but not implemented. + ! procedure, pass(a) :: transp_1mat => psb_d_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_d_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_d_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_d_base_transc_2mat - + + ! + ! Computational methods: defined here but not implemented. ! - ! Computational methods: defined here but not implemented. - ! procedure, pass(a) :: vect_mv => psb_d_base_vect_mv procedure, pass(a) :: csmv => psb_d_base_csmv procedure, pass(a) :: csmm => psb_d_base_csmm generic, public :: spmm => csmm, csmv, vect_mv procedure, pass(a) :: in_vect_sv => psb_d_base_inner_vect_sv - procedure, pass(a) :: inner_cssv => psb_d_base_inner_cssv + procedure, pass(a) :: inner_cssv => psb_d_base_inner_cssv procedure, pass(a) :: inner_cssm => psb_d_base_inner_cssm generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv procedure, pass(a) :: vect_cssv => psb_d_base_vect_cssv @@ -125,15 +125,16 @@ module psb_d_base_mat_mod procedure, pass(a) :: arwsum => psb_d_base_arwsum procedure, pass(a) :: colsum => psb_d_base_colsum procedure, pass(a) :: aclsum => psb_d_base_aclsum + procedure, pass(a) :: scalpid => psb_d_base_scalplusidentity end type psb_d_base_sparse_mat - + private :: d_base_mat_sync, d_base_mat_is_host, d_base_mat_is_dev, & & d_base_mat_is_sync, d_base_mat_set_host, d_base_mat_set_dev,& & d_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_d_coo_sparse_mat !! \extends psb_d_base_mat_mod::psb_d_base_sparse_mat - !! + !! !! psb_d_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -147,15 +148,15 @@ module psb_d_base_mat_mod integer(psb_ipk_), allocatable :: ia(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => d_coo_get_size procedure, pass(a) :: get_nzeros => d_coo_get_nzeros procedure, nopass :: get_fmt => d_coo_get_fmt @@ -174,9 +175,9 @@ module psb_d_base_mat_mod ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_d_cp_coo_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_d_cp_coo_from_lcoo - + procedure, pass(a) :: cp_to_lcoo => psb_d_cp_coo_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_d_cp_coo_from_lcoo + procedure, pass(a) :: csput_a => psb_d_coo_csput_a procedure, pass(a) :: get_diag => psb_d_coo_get_diag procedure, pass(a) :: csgetrow => psb_d_coo_csgetrow @@ -201,18 +202,18 @@ module psb_d_base_mat_mod ! This is COO specific ! procedure, pass(a) :: set_nzeros => d_coo_set_nzeros - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => d_coo_transp_1mat procedure, pass(a) :: transc_1mat => d_coo_transc_1mat ! - ! Computational methods. - ! + ! Computational methods. + ! procedure, pass(a) :: csmm => psb_d_coo_csmm procedure, pass(a) :: csmv => psb_d_coo_csmv procedure, pass(a) :: inner_cssm => psb_d_coo_cssm @@ -226,14 +227,15 @@ module psb_d_base_mat_mod procedure, pass(a) :: arwsum => psb_d_coo_arwsum procedure, pass(a) :: colsum => psb_d_coo_colsum procedure, pass(a) :: aclsum => psb_d_coo_aclsum - + procedure, pass(a) :: scalpid => psb_d_coo_scalplusidentity + end type psb_d_coo_sparse_mat - + private :: d_coo_get_nzeros, d_coo_set_nzeros, & & d_coo_get_fmt, d_coo_free, d_coo_sizeof, & & d_coo_transp_1mat, d_coo_transc_1mat - - + + !> \namespace psb_base_mod \class psb_ld_base_sparse_mat !! \extends psb_lbase_mat_mod::psb_lbase_sparse_mat !! The psb_ld_base_sparse_mat type, extending psb_base_sparse_mat, @@ -253,33 +255,33 @@ module psb_d_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_ld_base_csput_a - procedure, pass(a) :: csput_v => psb_ld_base_csput_v + procedure, pass(a) :: csput_v => psb_ld_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_ld_base_csgetrow procedure, pass(a) :: csgetblk => psb_ld_base_csgetblk procedure, pass(a) :: get_diag => psb_ld_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_ld_base_tril procedure, pass(a) :: triu => psb_ld_base_triu - procedure, pass(a) :: csclip => psb_ld_base_csclip - procedure, pass(a) :: cp_to_coo => psb_ld_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_ld_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_ld_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_ld_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_ld_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_ld_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_ld_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_ld_base_mv_from_fmt - procedure, pass(a) :: mold => psb_ld_base_mold + procedure, pass(a) :: csclip => psb_ld_base_csclip + procedure, pass(a) :: cp_to_coo => psb_ld_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_ld_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_ld_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_ld_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_ld_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_ld_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_ld_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_ld_base_mv_from_fmt + procedure, pass(a) :: mold => psb_ld_base_mold procedure, pass(a) :: clone => psb_ld_base_clone procedure, pass(a) :: make_nonunit => psb_ld_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_ld_base_clean_zeros ! - ! Computational methods: defined here but not implemented. - ! + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_ld_base_scals procedure, pass(a) :: scalv => psb_ld_base_scal generic, public :: scal => scals, scalv @@ -290,35 +292,36 @@ module psb_d_base_mat_mod procedure, pass(a) :: arwsum => psb_ld_base_arwsum procedure, pass(a) :: colsum => psb_ld_base_colsum procedure, pass(a) :: aclsum => psb_ld_base_aclsum + procedure, pass(a) :: scalpid => psb_ld_base_scalplusidentity ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_icoo => psb_ld_base_cp_to_icoo - procedure, pass(a) :: cp_from_icoo => psb_ld_base_cp_from_icoo - procedure, pass(a) :: cp_to_ifmt => psb_ld_base_cp_to_ifmt - procedure, pass(a) :: cp_from_ifmt => psb_ld_base_cp_from_ifmt - procedure, pass(a) :: mv_to_icoo => psb_ld_base_mv_to_icoo - procedure, pass(a) :: mv_from_icoo => psb_ld_base_mv_from_icoo - procedure, pass(a) :: mv_to_ifmt => psb_ld_base_mv_to_ifmt - procedure, pass(a) :: mv_from_ifmt => psb_ld_base_mv_from_ifmt - + procedure, pass(a) :: cp_to_icoo => psb_ld_base_cp_to_icoo + procedure, pass(a) :: cp_from_icoo => psb_ld_base_cp_from_icoo + procedure, pass(a) :: cp_to_ifmt => psb_ld_base_cp_to_ifmt + procedure, pass(a) :: cp_from_ifmt => psb_ld_base_cp_from_ifmt + procedure, pass(a) :: mv_to_icoo => psb_ld_base_mv_to_icoo + procedure, pass(a) :: mv_from_icoo => psb_ld_base_mv_from_icoo + procedure, pass(a) :: mv_to_ifmt => psb_ld_base_mv_to_ifmt + procedure, pass(a) :: mv_from_ifmt => psb_ld_base_mv_from_ifmt + + ! + ! Transpose methods: defined here but not implemented. ! - ! Transpose methods: defined here but not implemented. - ! procedure, pass(a) :: transp_1mat => psb_ld_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_ld_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_ld_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_ld_base_transc_2mat - + end type psb_ld_base_sparse_mat - + private :: ld_base_mat_sync, ld_base_mat_is_host, ld_base_mat_is_dev, & & ld_base_mat_is_sync, ld_base_mat_set_host, ld_base_mat_set_dev,& & ld_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_ld_coo_sparse_mat !! \extends psb_ld_base_mat_mod::psb_ld_base_sparse_mat - !! + !! !! psb_ld_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -332,15 +335,15 @@ module psb_d_base_mat_mod integer(psb_lpk_), allocatable :: ia(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => ld_coo_get_size procedure, pass(a) :: get_nzeros => ld_coo_get_nzeros procedure, nopass :: get_fmt => ld_coo_get_fmt @@ -357,7 +360,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: mv_from_fmt => psb_ld_mv_coo_from_fmt procedure, pass(a) :: cp_to_icoo => psb_ld_cp_coo_to_icoo procedure, pass(a) :: cp_from_icoo => psb_ld_cp_coo_from_icoo - + procedure, pass(a) :: csput_a => psb_ld_coo_csput_a procedure, pass(a) :: get_diag => psb_ld_coo_get_diag procedure, pass(a) :: csgetrow => psb_ld_coo_csgetrow @@ -378,9 +381,9 @@ module psb_d_base_mat_mod procedure, pass(a) :: set_sort_status => ld_coo_set_sort_status procedure, pass(a) :: get_sort_status => ld_coo_get_sort_status - - ! Computational methods: defined here but not implemented. - ! + + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_ld_coo_scals procedure, pass(a) :: scalv => psb_ld_coo_scal procedure, pass(a) :: maxval => psb_ld_coo_maxval @@ -390,6 +393,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: arwsum => psb_ld_coo_arwsum procedure, pass(a) :: colsum => psb_ld_coo_colsum procedure, pass(a) :: aclsum => psb_ld_coo_aclsum + procedure, pass(a) :: scalpid => psb_ld_coo_scalplusidentity ! ! This is COO specific @@ -402,25 +406,25 @@ module psb_d_base_mat_mod procedure, pass(a) :: iset_nzeros => ld_coo_iset_nzeros generic, public :: set_nzeros => iset_nzeros #endif - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => ld_coo_transp_1mat procedure, pass(a) :: transc_1mat => ld_coo_transc_1mat - + end type psb_ld_coo_sparse_mat - + private :: ld_coo_get_nzeros, ld_coo_iset_nzeros, & & ld_coo_get_fmt, ld_coo_free, ld_coo_sizeof, & & ld_coo_transp_1mat, ld_coo_transc_1mat #if defined(IPK4) && defined(LPK8) private :: ld_coo_lset_nzeros #endif - + ! == ================= ! ! BASE interfaces @@ -429,14 +433,14 @@ module psb_d_base_mat_mod !> Function csput: !! \memberof psb_d_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -449,33 +453,33 @@ module psb_d_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_csput_a end interface - - interface - subroutine psb_d_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_d_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -483,43 +487,43 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_d_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_d_base_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -532,33 +536,33 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_d_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_d_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_d_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(in) :: imin,imax @@ -569,34 +573,34 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_d_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_d_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_d_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -617,27 +621,27 @@ module psb_d_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_d_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -646,13 +650,13 @@ module psb_d_base_mat_mod class(psb_d_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_d_base_tril end interface - + ! !> Function triu: !! \memberof psb_d_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -661,27 +665,27 @@ module psb_d_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_d_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -690,27 +694,27 @@ module psb_d_base_mat_mod class(psb_d_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_d_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_d_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_d_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_d_base_get_diag(a,d,info) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_d_base_sparse_mat @@ -720,10 +724,10 @@ module psb_d_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mold(a,b,info) - import + ! + interface + subroutine psb_d_base_mold(a,b,info) + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -735,21 +739,21 @@ module psb_d_base_mat_mod !> Function clone: !! \memberof psb_d_base_sparse_mat !! \brief Allocate and clone a class(psb_d_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_d_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_clone end interface @@ -759,18 +763,18 @@ module psb_d_base_mat_mod !> Function make_nonunit: !! \memberof psb_d_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_d_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_d_base_sparse_mat @@ -778,16 +782,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_to_coo(a,b,info) + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_d_base_sparse_mat @@ -795,16 +799,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_from_coo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_d_base_sparse_mat @@ -813,16 +817,16 @@ module psb_d_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_to_fmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_d_base_sparse_mat @@ -831,16 +835,16 @@ module psb_d_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_from_fmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_d_base_sparse_mat @@ -848,16 +852,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_to_coo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_d_base_sparse_mat @@ -865,16 +869,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_from_coo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_d_base_sparse_mat @@ -883,16 +887,16 @@ module psb_d_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_to_fmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_d_base_sparse_mat @@ -901,10 +905,10 @@ module psb_d_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_from_fmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -917,16 +921,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_to_lcoo(a,b,info) + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_lcoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_d_base_sparse_mat @@ -934,16 +938,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_from_lcoo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_lcoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_d_base_sparse_mat @@ -952,16 +956,16 @@ module psb_d_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_to_lfmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_to_lfmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_d_base_sparse_mat @@ -970,16 +974,16 @@ module psb_d_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_cp_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_d_base_cp_from_lfmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_cp_from_lfmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_d_base_sparse_mat @@ -987,16 +991,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_to_lcoo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_lcoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_d_base_sparse_mat @@ -1004,16 +1008,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_from_lcoo(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_from_lcoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_d_base_sparse_mat @@ -1022,16 +1026,16 @@ module psb_d_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_to_lfmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_mv_to_lfmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_d_base_sparse_mat @@ -1040,10 +1044,10 @@ module psb_d_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_d_base_mv_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_d_base_mv_from_lfmt(a,b,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1052,78 +1056,78 @@ module psb_d_base_mat_mod ! - !> + !> !! \memberof psb_d_base_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros ! interface subroutine psb_d_base_clean_zeros(a, info) - import + import class(psb_d_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_clean_zeros end interface - + ! !> Function transp: !! \memberof psb_d_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_d_base_transp_2mat(a,b) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_d_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_d_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_d_base_transc_2mat(a,b) - import + import class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_d_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_d_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_d_base_transp_1mat(a) - import + import class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_d_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_d_base_transc_1mat(a) - import + import class(psb_d_base_sparse_mat), intent(inout) :: a end subroutine psb_d_base_transc_1mat end interface - + ! !> Function csmm: !! \memberof psb_d_base_sparse_mat @@ -1142,9 +1146,9 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! ! - interface + interface subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1152,7 +1156,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_csmm end interface - + !> Function csmv: !! \memberof psb_d_base_sparse_mat !! \brief Product by a dense rank 1 array. @@ -1170,9 +1174,9 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1180,7 +1184,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_csmv end interface - + !> Function vect_mv: !! \memberof psb_d_base_sparse_mat !! \brief Product by an encapsulated array type(psb_d_vect_type) @@ -1192,7 +1196,7 @@ module psb_d_base_mat_mod !! versions with the standard arrays. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1205,9 +1209,9 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x @@ -1216,7 +1220,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_vect_mv end interface - + ! !> Function cssm: !! \memberof psb_d_base_sparse_mat @@ -1225,7 +1229,7 @@ module psb_d_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssm. + !! Internal workhorse called by cssm. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1237,9 +1241,9 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1247,8 +1251,8 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_inner_cssm end interface - - + + ! !> Function cssv: !! \memberof psb_d_base_sparse_mat @@ -1257,7 +1261,7 @@ module psb_d_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssv. + !! Internal workhorse called by cssv. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1269,12 +1273,12 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface - subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1282,7 +1286,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_inner_cssv end interface - + ! !> Function inner_vect_cssv: !! \memberof psb_d_base_sparse_mat @@ -1292,10 +1296,10 @@ module psb_d_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by vect_cssv. + !! Internal workhorse called by vect_cssv. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1307,9 +1311,9 @@ module psb_d_base_mat_mod !! \param trans [N] Whether to use A (N), its transpose (T) !! or its conjugate transpose (C) ! - interface - subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x, y @@ -1317,7 +1321,7 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_base_inner_vect_sv end interface - + ! !> Function cssm: !! \memberof psb_d_base_sparse_mat @@ -1336,12 +1340,12 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1350,7 +1354,7 @@ module psb_d_base_mat_mod real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_base_cssm end interface - + ! !> Function cssv: !! \memberof psb_d_base_sparse_mat @@ -1369,12 +1373,12 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1383,7 +1387,7 @@ module psb_d_base_mat_mod real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_base_cssv end interface - + ! !> Function vect_cssv: !! \memberof psb_d_base_sparse_mat @@ -1403,12 +1407,12 @@ module psb_d_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D [none] Diagonal for scaling. + !! \param D [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x,y @@ -1417,24 +1421,24 @@ module psb_d_base_mat_mod class(psb_d_base_vect_type), optional, intent(inout) :: d end subroutine psb_d_base_vect_cssv end interface - + ! !> Function base_scals: !! \memberof psb_d_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_d_base_scals(d,a,info) - import + interface + subroutine psb_d_base_scals(d,a,info) + import class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_d_base_scals end interface - + ! !> Function base_scal: !! \memberof psb_d_base_sparse_mat @@ -1444,40 +1448,57 @@ module psb_d_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_d_base_scal(d,a,info,side) - import + interface + subroutine psb_d_base_scal(d,a,info,side) + import class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_d_base_scal end interface - + + ! + !> Function base_scalplusidentity: + !! \memberof psb_d_base_sparse_mat + !! \brief Scale a matrix by a vector and sums an identity + !! + !! \param d Scaling + !! \param info return code + ! + interface + subroutine psb_d_base_scalplusidentity(d,a,info) + import + class(psb_d_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_base_scalplusidentity + end interface + ! !> Function base_maxval: !! \memberof psb_d_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_d_base_maxval(a) result(res) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_d_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_d_base_csnmi(a) result(res) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnmi @@ -1488,11 +1509,11 @@ module psb_d_base_mat_mod !> Function base_csnmi: !! \memberof psb_d_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_d_base_csnm1(a) result(res) - import + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_base_csnm1 @@ -1504,11 +1525,11 @@ module psb_d_base_mat_mod !! \memberof psb_d_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_d_base_rowsum(d,a) - import + interface + subroutine psb_d_base_rowsum(d,a) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_rowsum @@ -1519,26 +1540,26 @@ module psb_d_base_mat_mod !! \memberof psb_d_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_d_base_arwsum(d,a) - import + !! + interface + subroutine psb_d_base_arwsum(d,a) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_d_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_d_base_colsum(d,a) - import + interface + subroutine psb_d_base_colsum(d,a) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_colsum @@ -1549,16 +1570,16 @@ module psb_d_base_mat_mod !! \memberof psb_d_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_d_base_aclsum(d,a) - import + !! + interface + subroutine psb_d_base_aclsum(d,a) + import class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_base_aclsum end interface - + ! == =============== ! ! COO interfaces @@ -1566,81 +1587,81 @@ module psb_d_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_d_coo_reallocate_nz(nz,a) - import + subroutine psb_d_coo_reallocate_nz(nz,a) + import integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_d_coo_reinit(a,clear) - import - class(psb_d_coo_sparse_mat), intent(inout) :: a + import + class(psb_d_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_coo_reinit end interface ! - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_d_coo_trim(a) - import + import class(psb_d_coo_sparse_mat), intent(inout) :: a end subroutine psb_d_coo_trim end interface ! - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros ! interface subroutine psb_d_coo_clean_zeros(a,info) - import + import class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_ipk_), intent(in) :: m,n class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_coo_allocate_mnnz end interface - + !> \memberof psb_d_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_d_coo_mold(a,b,info) - import + interface + subroutine psb_d_coo_mold(a,b,info) + import class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_d_coo_sparse_mat @@ -1655,17 +1676,17 @@ module psb_d_base_mat_mod ! interface subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_d_coo_sparse_mat), intent(in) :: a + class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_d_coo_sparse_mat @@ -1674,16 +1695,16 @@ module psb_d_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_d_coo_get_nz_row(idx,a) result(res) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res end function psb_d_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -1695,12 +1716,12 @@ module psb_d_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_dpk_), intent(inout) :: val(:) @@ -1709,162 +1730,162 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_d_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_d_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_d_fix_coo(a,info,idir) - import + interface + subroutine psb_d_fix_coo(a,info,idir) + import class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_d_fix_coo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_coo - interface - subroutine psb_d_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_d_cp_coo_to_coo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_coo - interface - subroutine psb_d_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_d_cp_coo_from_coo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_from_coo end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_coo - interface - subroutine psb_d_cp_coo_to_lcoo(a,b,info) - import + interface + subroutine psb_d_cp_coo_to_lcoo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_to_lcoo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_coo - interface - subroutine psb_d_cp_coo_from_lcoo(a,b,info) - import + interface + subroutine psb_d_cp_coo_from_lcoo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_from_lcoo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_coo - !! - interface - subroutine psb_d_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_d_cp_coo_to_fmt(a,b,info) + import class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_fmt - !! - interface - subroutine psb_d_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_d_cp_coo_from_fmt(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_coo - interface - subroutine psb_d_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_d_mv_coo_to_coo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_coo - interface - subroutine psb_d_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_d_mv_coo_from_coo(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_fmt - interface - subroutine psb_d_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_d_mv_coo_to_fmt(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_fmt - interface - subroutine psb_d_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_d_mv_coo_from_fmt(a,b,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_d_coo_cp_from(a,b) - import + import class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(in) :: b end subroutine psb_d_coo_cp_from end interface - - interface + + interface subroutine psb_d_coo_mv_from(a,b) - import + import class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(inout) :: b end subroutine psb_d_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_d_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -1881,9 +1902,9 @@ module psb_d_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& @@ -1891,14 +1912,14 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_csput_a end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1910,14 +1931,14 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_coo_csgetptn end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csgetrow - interface + interface subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1930,13 +1951,13 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_d_coo_csgetrow end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssv - interface - subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1944,12 +1965,12 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_coo_cssv end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssm - interface - subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1957,13 +1978,13 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_coo_cssm end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmv - interface - subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1972,12 +1993,12 @@ module psb_d_base_mat_mod end subroutine psb_d_coo_csmv end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmm - interface - subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1985,121 +2006,132 @@ module psb_d_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_coo_csmm end interface - - - !> + + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_maxval - interface + interface function psb_d_coo_maxval(a) result(res) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_maxval end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csnmi - interface + interface function psb_d_coo_csnmi(a) result(res) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnmi end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csnm1 - interface + interface function psb_d_coo_csnm1(a) result(res) - import + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_coo_csnm1 end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_rowsum - interface - subroutine psb_d_coo_rowsum(d,a) - import + interface + subroutine psb_d_coo_rowsum(d,a) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_rowsum end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_arwsum - interface - subroutine psb_d_coo_arwsum(d,a) - import + interface + subroutine psb_d_coo_arwsum(d,a) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_arwsum end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_colsum - interface - subroutine psb_d_coo_colsum(d,a) - import + interface + subroutine psb_d_coo_colsum(d,a) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_colsum end interface - !> + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_aclsum - interface - subroutine psb_d_coo_aclsum(d,a) - import + interface + subroutine psb_d_coo_aclsum(d,a) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_coo_aclsum end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_get_diag - interface - subroutine psb_d_coo_get_diag(a,d,info) - import + interface + subroutine psb_d_coo_get_diag(a,d,info) + import class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_get_diag end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scal - interface - subroutine psb_d_coo_scal(d,a,info,side) - import + interface + subroutine psb_d_coo_scal(d,a,info,side) + import class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_d_coo_scal end interface - - !> + + !> !! \memberof psb_d_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scals interface - subroutine psb_d_coo_scals(d,a,info) - import + subroutine psb_d_coo_scals(d,a,info) + import class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_scals end interface - + !> + !! \memberof psb_d_coo_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity + interface + subroutine psb_d_coo_scalplusidentity(d,a,info) + import + class(psb_d_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_coo_scalplusidentity + end interface + ! == ================= ! ! BASE interfaces @@ -2108,14 +2140,14 @@ module psb_d_base_mat_mod !> Function csput: !! \memberof psb_ld_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -2128,33 +2160,33 @@ module psb_d_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_csput_a end interface - - interface - subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2162,43 +2194,43 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_ld_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ld_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -2211,33 +2243,33 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_ld_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_ld_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ld_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_lpk_), intent(in) :: imin,imax @@ -2248,34 +2280,34 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_ld_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ld_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -2296,27 +2328,27 @@ module psb_d_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ld_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -2325,13 +2357,13 @@ module psb_d_base_mat_mod class(psb_ld_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_ld_base_tril end interface - + ! !> Function triu: !! \memberof psb_ld_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -2340,27 +2372,27 @@ module psb_d_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ld_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -2369,27 +2401,27 @@ module psb_d_base_mat_mod class(psb_ld_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_ld_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_ld_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_ld_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_ld_base_get_diag(a,d,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_ld_base_sparse_mat @@ -2399,10 +2431,10 @@ module psb_d_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mold(a,b,info) - import + ! + interface + subroutine psb_ld_base_mold(a,b,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2414,21 +2446,21 @@ module psb_d_base_mat_mod !> Function clone: !! \memberof psb_ld_base_sparse_mat !! \brief Allocate and clone a class(psb_ld_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_ld_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_clone end interface @@ -2438,18 +2470,18 @@ module psb_d_base_mat_mod !> Function make_nonunit: !! \memberof psb_ld_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_ld_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a end subroutine psb_ld_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_ld_base_sparse_mat @@ -2457,16 +2489,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_to_coo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_ld_base_sparse_mat @@ -2474,16 +2506,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_from_coo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2492,16 +2524,16 @@ module psb_d_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_to_fmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2510,16 +2542,16 @@ module psb_d_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_from_fmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_ld_base_sparse_mat @@ -2527,16 +2559,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_to_coo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_ld_base_sparse_mat @@ -2544,16 +2576,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_from_coo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2562,16 +2594,16 @@ module psb_d_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_to_fmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2580,17 +2612,17 @@ module psb_d_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_from_fmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_from_fmt end interface - + ! !> Function cp_to_coo: !! \memberof psb_ld_base_sparse_mat @@ -2598,16 +2630,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_to_icoo(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_to_icoo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_to_icoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_ld_base_sparse_mat @@ -2615,16 +2647,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_from_icoo(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_from_icoo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_from_icoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2633,16 +2665,16 @@ module psb_d_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_to_ifmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_to_ifmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2651,16 +2683,16 @@ module psb_d_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_cp_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_cp_from_ifmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_cp_from_ifmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_ld_base_sparse_mat @@ -2668,16 +2700,16 @@ module psb_d_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_to_icoo(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_to_icoo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_to_icoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_ld_base_sparse_mat @@ -2685,16 +2717,16 @@ module psb_d_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_from_icoo(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_from_icoo(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_from_icoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2703,16 +2735,16 @@ module psb_d_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_to_ifmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_mv_to_ifmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_ld_base_sparse_mat @@ -2721,10 +2753,10 @@ module psb_d_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ld_base_mv_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_ld_base_mv_from_ifmt(a,b,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2734,111 +2766,128 @@ module psb_d_base_mat_mod ! - !> + !> !! \memberof psb_ld_base_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros ! interface subroutine psb_ld_base_clean_zeros(a, info) - import + import class(psb_ld_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_clean_zeros end interface - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_maxval - interface + interface function psb_ld_coo_maxval(a) result(res) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_coo_maxval end interface - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_csnmi - interface + interface function psb_ld_coo_csnmi(a) result(res) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_coo_csnmi end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_csnm1 - interface + interface function psb_ld_coo_csnm1(a) result(res) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_coo_csnm1 end interface - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_rowsum - interface - subroutine psb_ld_coo_rowsum(d,a) - import + interface + subroutine psb_ld_coo_rowsum(d,a) + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_coo_rowsum end interface - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_arwsum - interface - subroutine psb_ld_coo_arwsum(d,a) - import + interface + subroutine psb_ld_coo_arwsum(d,a) + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_coo_arwsum end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_colsum - interface - subroutine psb_ld_coo_colsum(d,a) - import + interface + subroutine psb_ld_coo_colsum(d,a) + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_coo_colsum end interface - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_aclsum - interface - subroutine psb_ld_coo_aclsum(d,a) - import + interface + subroutine psb_ld_coo_aclsum(d,a) + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_coo_aclsum end interface - + ! !> Function base_scals: !! \memberof psb_ld_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_ld_base_scals(d,a,info) - import + interface + subroutine psb_ld_base_scals(d,a,info) + import class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_scals end interface - + + ! + !> Function base_scalsplusidentity: + !! \memberof psb_ld_base_sparse_mat + !! \brief Scale a matrix by a single scalar value and adds identity + !! + !! \param d Scaling factor + !! \param info return code + ! + interface + subroutine psb_ld_base_scalplusidentity(d,a,info) + import + class(psb_ld_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_base_scalplusidentity + end interface + ! !> Function base_scal: !! \memberof psb_ld_base_sparse_mat @@ -2848,40 +2897,40 @@ module psb_d_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_ld_base_scal(d,a,info,side) - import + interface + subroutine psb_ld_base_scal(d,a,info,side) + import class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_ld_base_scal end interface - + ! !> Function base_maxval: !! \memberof psb_ld_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_ld_base_maxval(a) result(res) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_ld_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_ld_base_csnmi(a) result(res) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_base_csnmi @@ -2892,11 +2941,11 @@ module psb_d_base_mat_mod !> Function base_csnmi: !! \memberof psb_ld_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_ld_base_csnm1(a) result(res) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_base_csnm1 @@ -2908,11 +2957,11 @@ module psb_d_base_mat_mod !! \memberof psb_ld_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_ld_base_rowsum(d,a) - import + interface + subroutine psb_ld_base_rowsum(d,a) + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_base_rowsum @@ -2923,26 +2972,26 @@ module psb_d_base_mat_mod !! \memberof psb_ld_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_ld_base_arwsum(d,a) - import + !! + interface + subroutine psb_ld_base_arwsum(d,a) + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_ld_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_ld_base_colsum(d,a) - import + interface + subroutine psb_ld_base_colsum(d,a) + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_base_colsum @@ -2953,76 +3002,76 @@ module psb_d_base_mat_mod !! \memberof psb_ld_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_ld_base_aclsum(d,a) - import + !! + interface + subroutine psb_ld_base_aclsum(d,a) + import class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_base_aclsum end interface - + ! !> Function transp: !! \memberof psb_ld_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_ld_base_transp_2mat(a,b) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_ld_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_ld_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_ld_base_transc_2mat(a,b) - import + import class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_ld_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_ld_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_ld_base_transp_1mat(a) - import + import class(psb_ld_base_sparse_mat), intent(inout) :: a end subroutine psb_ld_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_ld_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_ld_base_transc_1mat(a) - import + import class(psb_ld_base_sparse_mat), intent(inout) :: a end subroutine psb_ld_base_transc_1mat end interface - + ! == =============== ! ! COO interfaces @@ -3030,81 +3079,81 @@ module psb_d_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_ld_coo_reallocate_nz(nz,a) - import + subroutine psb_ld_coo_reallocate_nz(nz,a) + import integer(psb_lpk_), intent(in) :: nz class(psb_ld_coo_sparse_mat), intent(inout) :: a end subroutine psb_ld_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_ld_coo_reinit(a,clear) - import - class(psb_ld_coo_sparse_mat), intent(inout) :: a + import + class(psb_ld_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ld_coo_reinit end interface ! - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_ld_coo_trim(a) - import + import class(psb_ld_coo_sparse_mat), intent(inout) :: a end subroutine psb_ld_coo_trim end interface ! - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros ! interface subroutine psb_ld_coo_clean_zeros(a,info) - import + import class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_lpk_), intent(in) :: m,n class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_ld_coo_allocate_mnnz end interface - + !> \memberof psb_ld_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ld_coo_mold(a,b,info) - import + interface + subroutine psb_ld_coo_mold(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_ld_coo_sparse_mat @@ -3119,17 +3168,17 @@ module psb_d_base_mat_mod ! interface subroutine psb_ld_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_ld_coo_sparse_mat), intent(in) :: a + class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ld_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_ld_coo_sparse_mat @@ -3138,16 +3187,16 @@ module psb_d_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_ld_coo_get_nz_row(idx,a) result(res) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res end function psb_ld_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -3159,12 +3208,12 @@ module psb_d_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_lpk_), intent(in) :: nr,nc,nzin integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -3174,164 +3223,164 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_ld_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_ld_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_ld_fix_coo(a,info,idir) - import + interface + subroutine psb_ld_fix_coo(a,info,idir) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_ld_fix_coo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_coo - interface - subroutine psb_ld_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_ld_cp_coo_to_coo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_coo - interface - subroutine psb_ld_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_ld_cp_coo_from_coo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_from_coo end interface - - - !> + + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_coo - interface - subroutine psb_ld_cp_coo_to_icoo(a,b,info) - import + interface + subroutine psb_ld_cp_coo_to_icoo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_to_icoo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_coo - interface - subroutine psb_ld_cp_coo_from_icoo(a,b,info) - import + interface + subroutine psb_ld_cp_coo_from_icoo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_from_icoo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_coo - !! - interface - subroutine psb_ld_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_ld_cp_coo_to_fmt(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_fmt - !! - interface - subroutine psb_ld_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_ld_cp_coo_from_fmt(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_coo - interface - subroutine psb_ld_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_ld_mv_coo_to_coo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_coo - interface - subroutine psb_ld_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_ld_mv_coo_from_coo(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_fmt - interface - subroutine psb_ld_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_ld_mv_coo_to_fmt(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_fmt - interface - subroutine psb_ld_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_ld_mv_coo_from_fmt(a,b,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_ld_coo_cp_from(a,b) - import + import class(psb_ld_coo_sparse_mat), intent(inout) :: a type(psb_ld_coo_sparse_mat), intent(in) :: b end subroutine psb_ld_coo_cp_from end interface - - interface + + interface subroutine psb_ld_coo_mv_from(a,b) - import + import class(psb_ld_coo_sparse_mat), intent(inout) :: a type(psb_ld_coo_sparse_mat), intent(inout) :: b end subroutine psb_ld_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_ld_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -3348,9 +3397,9 @@ module psb_d_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz,ia(:), ja(:),& @@ -3358,14 +3407,14 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_csput_a end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ld_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3377,14 +3426,14 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_coo_csgetptn end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csgetrow - interface + interface subroutine psb_ld_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3397,141 +3446,153 @@ module psb_d_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_coo_csgetrow end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_get_diag - interface - subroutine psb_ld_coo_get_diag(a,d,info) - import + interface + subroutine psb_ld_coo_get_diag(a,d,info) + import class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_get_diag end interface - - - !> + + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scal - interface - subroutine psb_ld_coo_scal(d,a,info,side) - import + interface + subroutine psb_ld_coo_scal(d,a,info,side) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_ld_coo_scal end interface - - !> + + !> !! \memberof psb_ld_coo_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scals interface - subroutine psb_ld_coo_scals(d,a,info) - import + subroutine psb_ld_coo_scals(d,a,info) + import class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_scals end interface - -contains - - + + !> + !! \memberof psb_ld_coo_sparse_mat + !! \see psb_ld_base_mat_mod::psb_ld_base_scalplusidentity + interface + subroutine psb_ld_coo_scalplusidentity(d,a,info) + import + class(psb_ld_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_coo_scalplusidentity + end interface + +contains + + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function d_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_ip res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%ia) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function d_coo_sizeof - - + + function d_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function d_coo_get_fmt - - + + function d_coo_get_size(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function d_coo_get_size - - + + function d_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%nnz end function d_coo_get_nzeros - + function d_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function d_coo_is_by_rows - + function d_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function d_coo_is_by_cols - + function d_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function d_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3539,52 +3600,52 @@ contains ! ! ! == ================================== - + subroutine d_coo_set_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine d_coo_set_nzeros - + function d_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_d_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function d_coo_get_sort_status - + subroutine d_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_d_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine d_coo_set_sort_status - - + + subroutine d_coo_set_by_rows(a) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine d_coo_set_by_rows - - + + subroutine d_coo_set_by_cols(a) - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine d_coo_set_by_cols - + ! == ================================== ! ! @@ -3596,12 +3657,12 @@ contains ! ! ! == ================================== - - subroutine d_coo_free(a) - implicit none - + + subroutine d_coo_free(a) + implicit none + class(psb_d_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3610,13 +3671,13 @@ contains call a%set_ncols(0_psb_ipk_) call a%set_nzeros(0_psb_ipk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine d_coo_free - - - + + + ! == ================================== ! ! @@ -3630,132 +3691,132 @@ contains ! ! == ================================== subroutine d_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_d_coo_sparse_mat), intent(inout) :: a - - integer(psb_ipk_), allocatable :: itemp(:) + + integer(psb_ipk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_d_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine d_coo_transp_1mat - + subroutine d_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_d_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_d_is_complex_) a%val(:) = (a%val(:)) end subroutine d_coo_transc_1mat - + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function ld_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_lp res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%ia) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function ld_coo_sizeof - - + + function ld_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function ld_coo_get_fmt - - + + function ld_coo_get_size(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function ld_coo_get_size - - + + function ld_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%nnz end function ld_coo_get_nzeros - + function ld_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function ld_coo_is_by_rows - + function ld_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function ld_coo_is_by_cols - + function ld_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function ld_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3763,63 +3824,63 @@ contains ! ! ! == ================================== - + subroutine ld_coo_iset_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_ld_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine ld_coo_iset_nzeros #if defined(IPK4) && defined(LPK8) subroutine ld_coo_lset_nzeros(nz,a) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ld_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine ld_coo_lset_nzeros #endif - + function ld_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_ld_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function ld_coo_get_sort_status - + subroutine ld_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_ld_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine ld_coo_set_sort_status - - + + subroutine ld_coo_set_by_rows(a) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine ld_coo_set_by_rows - - + + subroutine ld_coo_set_by_cols(a) - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine ld_coo_set_by_cols - + ! == ================================== ! ! @@ -3831,12 +3892,12 @@ contains ! ! ! == ================================== - - subroutine ld_coo_free(a) - implicit none - + + subroutine ld_coo_free(a) + implicit none + class(psb_ld_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3845,13 +3906,13 @@ contains call a%set_ncols(0_psb_lpk_) call a%set_nzeros(0_psb_lpk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine ld_coo_free - - - + + + ! == ================================== ! ! @@ -3865,40 +3926,37 @@ contains ! ! == ================================== subroutine ld_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_ld_coo_sparse_mat), intent(inout) :: a - - integer(psb_lpk_), allocatable :: itemp(:) + + integer(psb_lpk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_ld_base_sparse_mat%psb_lbase_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine ld_coo_transp_1mat - + subroutine ld_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_ld_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_ld_is_complex_) a%val(:) = (a%val(:)) end subroutine ld_coo_transc_1mat end module psb_d_base_mat_mod - - - diff --git a/base/modules/serial/psb_d_csc_mat_mod.f90 b/base/modules/serial/psb_d_csc_mat_mod.f90 index 9ab0c2fce..c702aa83f 100644 --- a/base/modules/serial/psb_d_csc_mat_mod.f90 +++ b/base/modules/serial/psb_d_csc_mat_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_d_csc_mat_mod ! @@ -40,23 +40,23 @@ ! ! Please refere to psb_d_base_mat_mod for a detailed description ! of the various methods, and to psb_d_csc_impl for implementation details. -! +! module psb_d_csc_mat_mod use psb_d_base_mat_mod !> \namespace psb_base_mod \class psb_d_csc_sparse_mat !! \extends psb_d_base_mat_mod::psb_d_base_sparse_mat - !! + !! !! psb_d_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_d_base_sparse_mat) :: psb_d_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_ipk_), allocatable :: icp(:) !> Row indices. integer(psb_ipk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) contains @@ -71,6 +71,7 @@ module psb_d_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csc_cssv procedure, pass(a) :: scals => psb_d_csc_scals procedure, pass(a) :: scalv => psb_d_csc_scal + procedure, pass(a) :: scalpid => psb_d_csc_scalplusidentity procedure, pass(a) :: maxval => psb_d_csc_maxval procedure, pass(a) :: spnm1 => psb_d_csc_csnm1 procedure, pass(a) :: rowsum => psb_d_csc_rowsum @@ -107,16 +108,16 @@ module psb_d_csc_mat_mod !> \namespace psb_base_mod \class psb_d_csc_sparse_mat !! \extends psb_d_base_mat_mod::psb_d_base_sparse_mat - !! + !! !! psb_d_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_ld_base_sparse_mat) :: psb_ld_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_lpk_), allocatable :: icp(:) !> Row indices. integer(psb_lpk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) contains @@ -127,6 +128,7 @@ module psb_d_csc_mat_mod procedure, pass(a) :: sizeof => ld_csc_sizeof procedure, pass(a) :: scals => psb_ld_csc_scals procedure, pass(a) :: scalv => psb_ld_csc_scal + procedure, pass(a) :: scalpid => psb_ld_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ld_csc_maxval procedure, pass(a) :: spnm1 => psb_ld_csc_csnm1 procedure, pass(a) :: rowsum => psb_ld_csc_rowsum @@ -163,23 +165,23 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_d_csc_reallocate_nz(nz,a) + subroutine psb_d_csc_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_reallocate_nz end interface - + !> \memberof psb_d_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_d_csc_reinit(a,clear) import - class(psb_d_csc_sparse_mat), intent(inout) :: a + class(psb_d_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csc_reinit end interface - + !> \memberof psb_d_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -188,22 +190,22 @@ module psb_d_csc_mat_mod class(psb_d_csc_sparse_mat), intent(inout) :: a end subroutine psb_d_csc_trim end interface - + !> \memberof psb_d_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_d_csc_mold(a,b,info) + interface + subroutine psb_d_csc_mold(a,b,info) import class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_mold end interface - + !> \memberof psb_d_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_d_csc_sparse_mat), intent(inout) :: a @@ -211,147 +213,147 @@ module psb_d_csc_mat_mod end subroutine psb_d_csc_allocate_mnnz end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_print interface subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_d_csc_sparse_mat), intent(in) :: a + class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_csc_print end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_coo - interface - subroutine psb_d_cp_csc_to_coo(a,b,info) + interface + subroutine psb_d_cp_csc_to_coo(a,b,info) import class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_to_coo end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_coo - interface - subroutine psb_d_cp_csc_from_coo(a,b,info) + interface + subroutine psb_d_cp_csc_from_coo(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_from_coo end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_fmt - interface - subroutine psb_d_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_d_cp_csc_to_fmt(a,b,info) import class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_to_fmt end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_fmt - interface - subroutine psb_d_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_d_cp_csc_from_fmt(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csc_from_fmt end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_coo - interface - subroutine psb_d_mv_csc_to_coo(a,b,info) + interface + subroutine psb_d_mv_csc_to_coo(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_to_coo end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_coo - interface - subroutine psb_d_mv_csc_from_coo(a,b,info) + interface + subroutine psb_d_mv_csc_from_coo(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_from_coo end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_fmt - interface - subroutine psb_d_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_d_mv_csc_to_fmt(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_to_fmt end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_fmt - interface - subroutine psb_d_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_d_mv_csc_from_fmt(a,b,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros ! interface subroutine psb_d_csc_clean_zeros(a, info) - import + import class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_clean_zeros end interface - - + + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from - interface + interface subroutine psb_d_csc_cp_from(a,b) import class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(in) :: b end subroutine psb_d_csc_cp_from end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from - interface + interface subroutine psb_d_csc_mv_from(a,b) import class(psb_d_csc_sparse_mat), intent(inout) :: a type(psb_d_csc_sparse_mat), intent(inout) :: b end subroutine psb_d_csc_mv_from end interface - - + + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csput_a - interface - subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -360,10 +362,10 @@ module psb_d_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_csput_a end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -378,10 +380,10 @@ module psb_d_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csc_csgetptn end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csgetrow - interface + interface subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import :: psb_ipk_, psb_d_csc_sparse_mat, psb_dpk_ @@ -400,7 +402,7 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csgetblk - interface + interface subroutine psb_d_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) import @@ -414,11 +416,11 @@ module psb_d_csc_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_d_csc_csgetblk end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssv - interface - subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -429,8 +431,8 @@ module psb_d_csc_mat_mod end interface !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssm - interface - subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -439,11 +441,11 @@ module psb_d_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csc_cssm end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmv - interface - subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -455,8 +457,8 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmm - interface - subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -465,21 +467,21 @@ module psb_d_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csc_csmm end interface - - + + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_maxval - interface + interface function psb_d_csc_maxval(a) result(res) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csc_maxval end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csnm1 - interface + interface function psb_d_csc_csnm1(a) result(res) import class(psb_d_csc_sparse_mat), intent(in) :: a @@ -489,8 +491,8 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_rowsum - interface - subroutine psb_d_csc_rowsum(d,a) + interface + subroutine psb_d_csc_rowsum(d,a) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -499,18 +501,18 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_arwsum - interface - subroutine psb_d_csc_arwsum(d,a) + interface + subroutine psb_d_csc_arwsum(d,a) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_arwsum end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_colsum - interface - subroutine psb_d_csc_colsum(d,a) + interface + subroutine psb_d_csc_colsum(d,a) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -519,29 +521,29 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_aclsum - interface - subroutine psb_d_csc_aclsum(d,a) + interface + subroutine psb_d_csc_aclsum(d,a) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csc_aclsum end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_get_diag - interface - subroutine psb_d_csc_get_diag(a,d,info) + interface + subroutine psb_d_csc_get_diag(a,d,info) import class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_get_diag end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scal - interface - subroutine psb_d_csc_scal(d,a,info,side) + interface + subroutine psb_d_csc_scal(d,a,info,side) import class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) @@ -549,42 +551,53 @@ module psb_d_csc_mat_mod character, intent(in), optional :: side end subroutine psb_d_csc_scal end interface - + !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scals interface - subroutine psb_d_csc_scals(d,a,info) + subroutine psb_d_csc_scals(d,a,info) import class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csc_scals end interface - + + !> \memberof psb_d_csc_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity + interface + subroutine psb_d_csc_scalplusidentity(d,a,info) + import + class(psb_d_csc_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_csc_scalplusidentity + end interface + ! ! ld - ! + ! !> \memberof psb_ld_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_ld_csc_reallocate_nz(nz,a) + subroutine psb_ld_csc_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_ld_csc_sparse_mat), intent(inout) :: a end subroutine psb_ld_csc_reallocate_nz end interface - + !> \memberof psb_ld_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_ld_csc_reinit(a,clear) import - class(psb_ld_csc_sparse_mat), intent(inout) :: a + class(psb_ld_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ld_csc_reinit end interface - + !> \memberof psb_ld_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -593,22 +606,22 @@ module psb_d_csc_mat_mod class(psb_ld_csc_sparse_mat), intent(inout) :: a end subroutine psb_ld_csc_trim end interface - + !> \memberof psb_ld_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ld_csc_mold(a,b,info) + interface + subroutine psb_ld_csc_mold(a,b,info) import class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csc_mold end interface - + !> \memberof psb_ld_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_ld_csc_sparse_mat), intent(inout) :: a @@ -616,146 +629,146 @@ module psb_d_csc_mat_mod end subroutine psb_ld_csc_allocate_mnnz end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_print interface subroutine psb_ld_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_ld_csc_sparse_mat), intent(in) :: a + class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ld_csc_print end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_coo - interface - subroutine psb_ld_cp_csc_to_coo(a,b,info) + interface + subroutine psb_ld_cp_csc_to_coo(a,b,info) import class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csc_to_coo end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_coo - interface - subroutine psb_ld_cp_csc_from_coo(a,b,info) + interface + subroutine psb_ld_cp_csc_from_coo(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csc_from_coo end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_fmt - interface - subroutine psb_ld_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_ld_cp_csc_to_fmt(a,b,info) import class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csc_to_fmt end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_fmt - interface - subroutine psb_ld_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_ld_cp_csc_from_fmt(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csc_from_fmt end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_coo - interface - subroutine psb_ld_mv_csc_to_coo(a,b,info) + interface + subroutine psb_ld_mv_csc_to_coo(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csc_to_coo end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_coo - interface - subroutine psb_ld_mv_csc_from_coo(a,b,info) + interface + subroutine psb_ld_mv_csc_from_coo(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csc_from_coo end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_fmt - interface - subroutine psb_ld_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_ld_mv_csc_to_fmt(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csc_to_fmt end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_fmt - interface - subroutine psb_ld_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_ld_mv_csc_from_fmt(a,b,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros ! interface subroutine psb_ld_csc_clean_zeros(a, info) - import + import class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csc_clean_zeros end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from - interface + interface subroutine psb_ld_csc_cp_from(a,b) import class(psb_ld_csc_sparse_mat), intent(inout) :: a type(psb_ld_csc_sparse_mat), intent(in) :: b end subroutine psb_ld_csc_cp_from end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from - interface + interface subroutine psb_ld_csc_mv_from(a,b) import class(psb_ld_csc_sparse_mat), intent(inout) :: a type(psb_ld_csc_sparse_mat), intent(inout) :: b end subroutine psb_ld_csc_mv_from end interface - - + + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csput_a - interface - subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -764,10 +777,10 @@ module psb_d_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csc_csput_a end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ld_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -782,10 +795,10 @@ module psb_d_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csc_csgetptn end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csgetrow - interface + interface subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -804,7 +817,7 @@ module psb_d_csc_mat_mod !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csgetblk - interface + interface subroutine psb_ld_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import @@ -818,31 +831,31 @@ module psb_d_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csc_csgetblk end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_get_diag - interface - subroutine psb_ld_csc_get_diag(a,d,info) + interface + subroutine psb_ld_csc_get_diag(a,d,info) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csc_get_diag end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_maxval - interface + interface function psb_ld_csc_maxval(a) result(res) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_csc_maxval end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_csnm1 - interface + interface function psb_ld_csc_csnm1(a) result(res) import class(psb_ld_csc_sparse_mat), intent(in) :: a @@ -852,8 +865,8 @@ module psb_d_csc_mat_mod !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_rowsum - interface - subroutine psb_ld_csc_rowsum(d,a) + interface + subroutine psb_ld_csc_rowsum(d,a) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -862,18 +875,18 @@ module psb_d_csc_mat_mod !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_arwsum - interface - subroutine psb_ld_csc_arwsum(d,a) + interface + subroutine psb_ld_csc_arwsum(d,a) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_csc_arwsum end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_colsum - interface - subroutine psb_ld_csc_colsum(d,a) + interface + subroutine psb_ld_csc_colsum(d,a) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -882,18 +895,18 @@ module psb_d_csc_mat_mod !> \memberof psb_ld_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_aclsum - interface - subroutine psb_ld_csc_aclsum(d,a) + interface + subroutine psb_ld_csc_aclsum(d,a) import class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_csc_aclsum end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scal - interface - subroutine psb_ld_csc_scal(d,a,info,side) + interface + subroutine psb_ld_csc_scal(d,a,info,side) import class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) @@ -901,27 +914,36 @@ module psb_d_csc_mat_mod character, intent(in), optional :: side end subroutine psb_ld_csc_scal end interface - + !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scals interface - subroutine psb_ld_csc_scals(d,a,info) + subroutine psb_ld_csc_scals(d,a,info) import class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csc_scals end interface - - -contains + !> \memberof psb_ld_csc_sparse_mat + !! \see psb_ld_base_mat_mod::psb_ld_base_scalplusidentity + interface + subroutine psb_ld_csc_scalplusidentity(d,a,info) + import + class(psb_ld_csc_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_csc_scalplusidentity + end interface + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -929,54 +951,54 @@ contains ! ! == =================================== - + function d_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function d_csc_is_by_cols - + function d_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%icp) res = res + psb_sizeof_ip * psb_size(a%ia) - + end function d_csc_sizeof function d_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function d_csc_get_fmt - + function d_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function d_csc_get_nzeros function d_csc_get_size(a) result(res) - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -988,17 +1010,17 @@ contains function d_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function d_csc_get_nz_col @@ -1013,11 +1035,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine d_csc_free(a) - implicit none + subroutine d_csc_free(a) + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a @@ -1027,7 +1049,7 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine d_csc_free @@ -1038,7 +1060,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1046,57 +1068,57 @@ contains ! ! == =================================== - + function ld_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function ld_csc_is_by_cols ! ! ld ! - + function ld_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2*psb_sizeof_lp res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%icp) res = res + psb_sizeof_lp * psb_size(a%ia) - + end function ld_csc_sizeof function ld_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function ld_csc_get_fmt - + function ld_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%icp(a%get_ncols()+1)-1 end function ld_csc_get_nzeros function ld_csc_get_size(a) result(res) - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1108,17 +1130,17 @@ contains function ld_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function ld_csc_get_nz_col @@ -1133,11 +1155,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine ld_csc_free(a) - implicit none + subroutine ld_csc_free(a) + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a @@ -1147,7 +1169,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine ld_csc_free diff --git a/base/modules/serial/psb_d_csr_mat_mod.f90 b/base/modules/serial/psb_d_csr_mat_mod.f90 index c84ee4f2d..4ac24d1dc 100644 --- a/base/modules/serial/psb_d_csr_mat_mod.f90 +++ b/base/modules/serial/psb_d_csr_mat_mod.f90 @@ -1,10 +1,10 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -16,7 +16,7 @@ ! 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 @@ -28,8 +28,8 @@ ! 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. -! -! +! +! ! ! package: psb_d_csr_mat_mod ! @@ -48,17 +48,17 @@ module psb_d_csr_mat_mod !> \namespace psb_base_mod \class psb_d_csr_sparse_mat !! \extends psb_d_base_mat_mod::psb_d_base_sparse_mat - !! + !! !! psb_d_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_d_base_sparse_mat) :: psb_d_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_ipk_), allocatable :: irp(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) contains @@ -73,6 +73,7 @@ module psb_d_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csr_cssv procedure, pass(a) :: scals => psb_d_csr_scals procedure, pass(a) :: scalv => psb_d_csr_scal + procedure, pass(a) :: scalpid => psb_d_csr_scalplusidentity procedure, pass(a) :: maxval => psb_d_csr_maxval procedure, pass(a) :: spnmi => psb_d_csr_csnmi procedure, pass(a) :: rowsum => psb_d_csr_rowsum @@ -112,23 +113,23 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_d_csr_reallocate_nz(nz,a) + subroutine psb_d_csr_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_d_csr_sparse_mat), intent(inout) :: a end subroutine psb_d_csr_reallocate_nz end interface - + !> \memberof psb_d_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_d_csr_reinit(a,clear) import - class(psb_d_csr_sparse_mat), intent(inout) :: a + class(psb_d_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_csr_reinit end interface - + !> \memberof psb_d_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -138,22 +139,22 @@ module psb_d_csr_mat_mod end subroutine psb_d_csr_trim end interface - + !> \memberof psb_d_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_d_csr_mold(a,b,info) + interface + subroutine psb_d_csr_mold(a,b,info) import class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_mold end interface - + !> \memberof psb_d_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_d_csr_sparse_mat), intent(inout) :: a @@ -161,14 +162,14 @@ module psb_d_csr_mat_mod end subroutine psb_d_csr_allocate_mnnz end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_print interface subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_d_csr_sparse_mat), intent(in) :: a + class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -187,27 +188,27 @@ module psb_d_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_d_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -216,13 +217,13 @@ module psb_d_csr_mat_mod class(psb_d_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_d_csr_tril end interface - + ! !> Function triu: !! \memberof psb_d_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -231,27 +232,27 @@ module psb_d_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_d_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -260,133 +261,133 @@ module psb_d_csr_mat_mod class(psb_d_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_d_csr_triu end interface - + ! - !> + !> !! \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_clean_zeros ! interface subroutine psb_d_csr_clean_zeros(a, info) - import + import class(psb_d_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_clean_zeros end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_coo - interface - subroutine psb_d_cp_csr_to_coo(a,b,info) + interface + subroutine psb_d_cp_csr_to_coo(a,b,info) import class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_to_coo end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_coo - interface - subroutine psb_d_cp_csr_from_coo(a,b,info) + interface + subroutine psb_d_cp_csr_from_coo(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_from_coo end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_to_fmt - interface - subroutine psb_d_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_d_cp_csr_to_fmt(a,b,info) import class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_to_fmt end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from_fmt - interface - subroutine psb_d_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_d_cp_csr_from_fmt(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_cp_csr_from_fmt end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_coo - interface - subroutine psb_d_mv_csr_to_coo(a,b,info) + interface + subroutine psb_d_mv_csr_to_coo(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_to_coo end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_coo - interface - subroutine psb_d_mv_csr_from_coo(a,b,info) + interface + subroutine psb_d_mv_csr_from_coo(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_from_coo end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_to_fmt - interface - subroutine psb_d_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_d_mv_csr_to_fmt(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_to_fmt end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from_fmt - interface - subroutine psb_d_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_d_mv_csr_from_fmt(a,b,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_d_mv_csr_from_fmt end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cp_from - interface + interface subroutine psb_d_csr_cp_from(a,b) import class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(in) :: b end subroutine psb_d_csr_cp_from end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_mv_from - interface + interface subroutine psb_d_csr_mv_from(a,b) import class(psb_d_csr_sparse_mat), intent(inout) :: a type(psb_d_csr_sparse_mat), intent(inout) :: b end subroutine psb_d_csr_mv_from end interface - - + + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csput_a - interface - subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -395,10 +396,10 @@ module psb_d_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_csput_a end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -413,10 +414,10 @@ module psb_d_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csr_csgetptn end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csgetrow - interface + interface subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import @@ -435,8 +436,8 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssv - interface - subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -447,8 +448,8 @@ module psb_d_csr_mat_mod end interface !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_cssm - interface - subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -457,11 +458,11 @@ module psb_d_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csr_cssm end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmv - interface - subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -473,8 +474,8 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csmm - interface - subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -483,32 +484,32 @@ module psb_d_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csr_csmm end interface - - + + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_maxval - interface + interface function psb_d_csr_maxval(a) result(res) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_maxval end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_csnmi - interface + interface function psb_d_csr_csnmi(a) result(res) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csr_csnmi end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_rowsum - interface - subroutine psb_d_csr_rowsum(d,a) + interface + subroutine psb_d_csr_rowsum(d,a) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -517,18 +518,18 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_arwsum - interface - subroutine psb_d_csr_arwsum(d,a) + interface + subroutine psb_d_csr_arwsum(d,a) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_arwsum end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_colsum - interface - subroutine psb_d_csr_colsum(d,a) + interface + subroutine psb_d_csr_colsum(d,a) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -537,29 +538,29 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_aclsum - interface - subroutine psb_d_csr_aclsum(d,a) + interface + subroutine psb_d_csr_aclsum(d,a) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_d_csr_aclsum end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_get_diag - interface - subroutine psb_d_csr_get_diag(a,d,info) + interface + subroutine psb_d_csr_get_diag(a,d,info) import class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_get_diag end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scal - interface - subroutine psb_d_csr_scal(d,a,info,side) + interface + subroutine psb_d_csr_scal(d,a,info,side) import class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) @@ -567,32 +568,43 @@ module psb_d_csr_mat_mod character, intent(in), optional :: side end subroutine psb_d_csr_scal end interface - + !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scals interface - subroutine psb_d_csr_scals(d,a,info) + subroutine psb_d_csr_scals(d,a,info) import class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csr_scals end interface - + + !> \memberof psb_d_csr_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity + interface + subroutine psb_d_csr_scalplusidentity(d,a,info) + import + class(psb_d_csr_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_csr_scalplusidentity + end interface + !> \namespace psb_base_mod \class psb_ld_csr_sparse_mat !! \extends psb_ld_base_mat_mod::psb_ld_base_sparse_mat - !! + !! !! psb_ld_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_ld_base_sparse_mat) :: psb_ld_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_lpk_), allocatable :: irp(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_dpk_), allocatable :: val(:) contains @@ -642,23 +654,23 @@ module psb_d_csr_mat_mod !> \memberof psb_ld_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_ld_csr_reallocate_nz(nz,a) + subroutine psb_ld_csr_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_ld_csr_sparse_mat), intent(inout) :: a end subroutine psb_ld_csr_reallocate_nz end interface - + !> \memberof psb_ld_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_ld_csr_reinit(a,clear) import - class(psb_ld_csr_sparse_mat), intent(inout) :: a + class(psb_ld_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ld_csr_reinit end interface - + !> \memberof psb_ld_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -668,22 +680,22 @@ module psb_d_csr_mat_mod end subroutine psb_ld_csr_trim end interface - + !> \memberof psb_ld_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ld_csr_mold(a,b,info) + interface + subroutine psb_ld_csr_mold(a,b,info) import class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csr_mold end interface - + !> \memberof psb_ld_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_ld_csr_sparse_mat), intent(inout) :: a @@ -691,14 +703,14 @@ module psb_d_csr_mat_mod end subroutine psb_ld_csr_allocate_mnnz end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_print interface subroutine psb_ld_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_ld_csr_sparse_mat), intent(in) :: a + class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -717,27 +729,27 @@ module psb_d_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ld_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -746,13 +758,13 @@ module psb_d_csr_mat_mod class(psb_ld_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_ld_csr_tril end interface - + ! !> Function triu: !! \memberof psb_d_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -761,27 +773,27 @@ module psb_d_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ld_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -792,133 +804,133 @@ module psb_d_csr_mat_mod end interface ! - !> + !> !! \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_clean_zeros ! interface subroutine psb_ld_csr_clean_zeros(a, info) - import + import class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csr_clean_zeros end interface - - + + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_coo - interface - subroutine psb_ld_cp_csr_to_coo(a,b,info) + interface + subroutine psb_ld_cp_csr_to_coo(a,b,info) import class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csr_to_coo end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_coo - interface - subroutine psb_ld_cp_csr_from_coo(a,b,info) + interface + subroutine psb_ld_cp_csr_from_coo(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csr_from_coo end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_to_fmt - interface - subroutine psb_ld_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_ld_cp_csr_to_fmt(a,b,info) import class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csr_to_fmt end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from_fmt - interface - subroutine psb_ld_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_ld_cp_csr_from_fmt(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_cp_csr_from_fmt end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_coo - interface - subroutine psb_ld_mv_csr_to_coo(a,b,info) + interface + subroutine psb_ld_mv_csr_to_coo(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csr_to_coo end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_coo - interface - subroutine psb_ld_mv_csr_from_coo(a,b,info) + interface + subroutine psb_ld_mv_csr_from_coo(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csr_from_coo end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_to_fmt - interface - subroutine psb_ld_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_ld_mv_csr_to_fmt(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csr_to_fmt end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from_fmt - interface - subroutine psb_ld_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_ld_mv_csr_from_fmt(a,b,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_mv_csr_from_fmt end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_cp_from - interface + interface subroutine psb_ld_csr_cp_from(a,b) import class(psb_ld_csr_sparse_mat), intent(inout) :: a type(psb_ld_csr_sparse_mat), intent(in) :: b end subroutine psb_ld_csr_cp_from end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_mv_from - interface + interface subroutine psb_ld_csr_mv_from(a,b) import class(psb_ld_csr_sparse_mat), intent(inout) :: a type(psb_ld_csr_sparse_mat), intent(inout) :: b end subroutine psb_ld_csr_mv_from end interface - - + + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csput_a - interface - subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -927,10 +939,10 @@ module psb_d_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csr_csput_a end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ld_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -945,10 +957,10 @@ module psb_d_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csr_csgetptn end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_csgetrow - interface + interface subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -964,11 +976,11 @@ module psb_d_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csr_csgetrow end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_get_diag - interface - subroutine psb_ld_csr_get_diag(a,d,info) + interface + subroutine psb_ld_csr_get_diag(a,d,info) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -978,8 +990,8 @@ module psb_d_csr_mat_mod !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scal - interface - subroutine psb_ld_csr_scal(d,a,info,side) + interface + subroutine psb_ld_csr_scal(d,a,info,side) import class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) @@ -987,42 +999,42 @@ module psb_d_csr_mat_mod character, intent(in), optional :: side end subroutine psb_ld_csr_scal end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scals interface - subroutine psb_ld_csr_scals(d,a,info) + subroutine psb_ld_csr_scals(d,a,info) import class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csr_scals end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_maxval - interface + interface function psb_ld_csr_maxval(a) result(res) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_csr_maxval end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_csnmi - interface + interface function psb_ld_csr_csnmi(a) result(res) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_csr_csnmi end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_rowsum - interface - subroutine psb_ld_csr_rowsum(d,a) + interface + subroutine psb_ld_csr_rowsum(d,a) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -1031,18 +1043,18 @@ module psb_d_csr_mat_mod !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_arwsum - interface - subroutine psb_ld_csr_arwsum(d,a) + interface + subroutine psb_ld_csr_arwsum(d,a) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_csr_arwsum end interface - + !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_colsum - interface - subroutine psb_ld_csr_colsum(d,a) + interface + subroutine psb_ld_csr_colsum(d,a) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) @@ -1051,22 +1063,22 @@ module psb_d_csr_mat_mod !> \memberof psb_ld_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_ld_base_aclsum - interface - subroutine psb_ld_csr_aclsum(d,a) + interface + subroutine psb_ld_csr_aclsum(d,a) import class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_ld_csr_aclsum end interface - -contains + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1075,54 +1087,54 @@ contains ! == =================================== - + function d_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function d_csr_is_by_rows - + function d_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%irp) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function d_csr_sizeof function d_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function d_csr_get_fmt - + function d_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function d_csr_get_nzeros function d_csr_get_size(a) result(res) - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1134,17 +1146,17 @@ contains function d_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function d_csr_get_nz_row @@ -1159,10 +1171,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine d_csr_free(a) - implicit none + subroutine d_csr_free(a) + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a @@ -1172,18 +1184,18 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine d_csr_free - + ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1192,54 +1204,54 @@ contains ! == =================================== - + function ld_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function ld_csr_is_by_rows - + function ld_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res - res = 2 * psb_sizeof_lp + res = 2 * psb_sizeof_lp res = res + psb_sizeof_dp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%irp) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function ld_csr_sizeof function ld_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function ld_csr_get_fmt - + function ld_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%irp(a%get_nrows()+1)-1 end function ld_csr_get_nzeros function ld_csr_get_size(a) result(res) - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1251,17 +1263,17 @@ contains function ld_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function ld_csr_get_nz_row @@ -1276,10 +1288,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine ld_csr_free(a) - implicit none + subroutine ld_csr_free(a) + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a @@ -1289,7 +1301,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine ld_csr_free diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index c889c2a36..fb5612805 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_d_mat_mod ! @@ -37,7 +37,7 @@ ! provide a mean of switching, at run-time, among different formats, ! potentially unknown at the library compile-time by adding a layer of ! indirection. This type encapsulates the psb_d_base_sparse_mat class -! inside another class which is the one visible to the user. +! inside another class which is the one visible to the user. ! Most methods of the psb_d_mat_mod simply call the methods of the ! encapsulated class. ! The exceptions are mainly cscnv and cp_from/cp_to; these provide @@ -48,14 +48,14 @@ ! through the application life. ! In particular, computational methods can only be invoked when ! the matrix is in the ASSEMBLED state, whereas the other states are -! dedicated to operations on the internal matrix data. -! A sparse matrix can move between states according to the +! dedicated to operations on the internal matrix data. +! A sparse matrix can move between states according to the ! following state transition table. Associated with these states are ! the possible dynamic types of the inner matrix object. ! Only COO matrices can ever be in the BUILD state, whereas -! the ASSEMBLED and UPDATE state can be entered by any class. -! -! In Out Method +! the ASSEMBLED and UPDATE state can be entered by any class. +! +! In Out Method !| ---------------------------------- !| Null Build csall !| Build Build csput @@ -64,7 +64,7 @@ !| Assembled Update reinit !| Update Update csput !| Update Assembled cscnv -!| * unchanged reall +!| * unchanged reall !| Assembled Null free ! ! @@ -74,7 +74,7 @@ ! of the indices, which are PSB_LPK_ so that the entries ! are guaranteed to be able to contain global indices. ! This type only supports data handling and preprocessing, it is -! not supposed to be used for computations. +! not supposed to be used for computations. ! module psb_d_mat_mod @@ -84,7 +84,7 @@ 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 contains ! Getters @@ -126,12 +126,12 @@ module psb_d_mat_mod procedure, pass(a) :: set_unit => psb_d_set_unit procedure, pass(a) :: set_repeatable_updates => psb_d_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_d_csall procedure, pass(a) :: free => psb_d_free procedure, pass(a) :: trim => psb_d_trim procedure, pass(a) :: csput_a => psb_d_csput_a - procedure, pass(a) :: csput_v => psb_d_csput_v + procedure, pass(a) :: csput_v => psb_d_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_d_csgetptn procedure, pass(a) :: csgetrow => psb_d_csgetrow @@ -141,7 +141,7 @@ module psb_d_mat_mod procedure, pass(a) :: lcsgetptn => psb_d_lcsgetptn procedure, pass(a) :: lcsgetrow => psb_d_lcsgetrow generic, public :: csget => lcsgetptn, lcsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_d_tril procedure, pass(a) :: triu => psb_d_triu procedure, pass(a) :: m_csclip => psb_d_csclip @@ -168,7 +168,7 @@ module psb_d_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => d_mat_sync procedure, pass(a) :: is_host => d_mat_is_host @@ -204,16 +204,16 @@ module psb_d_mat_mod procedure, pass(a) :: mv_to_lb => psb_d_mv_to_lb procedure, pass(a) :: cp_from_lb => psb_d_cp_from_lb procedure, pass(a) :: cp_to_lb => psb_d_cp_to_lb - procedure, pass(a) :: mv_from_l => psb_d_mv_from_l - procedure, pass(a) :: mv_to_l => psb_d_mv_to_l - procedure, pass(a) :: cp_from_l => psb_d_cp_from_l - procedure, pass(a) :: cp_to_l => psb_d_cp_to_l + procedure, pass(a) :: mv_from_l => psb_d_mv_from_l + procedure, pass(a) :: mv_to_l => psb_d_mv_to_l + procedure, pass(a) :: cp_from_l => psb_d_cp_from_l + procedure, pass(a) :: cp_to_l => psb_d_cp_to_l generic, public :: mv_from => mv_from_lb, mv_from_l generic, public :: mv_to => mv_to_lb, mv_to_l generic, public :: cp_from => cp_from_lb, cp_from_l generic, public :: cp_to => cp_to_lb, cp_to_l - - ! Computational routines + + ! Computational routines procedure, pass(a) :: get_diag => psb_d_get_diag procedure, pass(a) :: maxval => psb_d_maxval procedure, pass(a) :: spnmi => psb_d_csnmi @@ -233,6 +233,7 @@ module psb_d_mat_mod procedure, pass(a) :: cssv => psb_d_cssv procedure, pass(a) :: cssm => psb_d_cssm generic, public :: spsm => cssm, cssv, cssv_v + procedure, pass(a) :: scalpid => psb_d_scalplusidentity end type psb_dspmat_type @@ -266,7 +267,7 @@ module psb_d_mat_mod type :: psb_ldspmat_type - class(psb_ld_base_sparse_mat), allocatable :: a + class(psb_ld_base_sparse_mat), allocatable :: a contains ! Getters @@ -295,7 +296,7 @@ module psb_d_mat_mod ! Setters procedure, pass(a) :: set_lnrows => psb_ld_set_lnrows procedure, pass(a) :: set_lncols => psb_ld_set_lncols -#if defined(IPK4) && defined(LPK8) +#if defined(IPK4) && defined(LPK8) procedure, pass(a) :: set_inrows => psb_ld_set_inrows procedure, pass(a) :: set_incols => psb_ld_set_incols generic, public :: set_nrows => set_inrows, set_lnrows @@ -304,7 +305,7 @@ module psb_d_mat_mod generic, public :: set_nrows => set_lnrows generic, public :: set_ncols => set_lncols #endif - + procedure, pass(a) :: set_dupl => psb_ld_set_dupl procedure, pass(a) :: set_null => psb_ld_set_null procedure, pass(a) :: set_bld => psb_ld_set_bld @@ -318,12 +319,12 @@ module psb_d_mat_mod procedure, pass(a) :: set_unit => psb_ld_set_unit procedure, pass(a) :: set_repeatable_updates => psb_ld_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_ld_csall procedure, pass(a) :: free => psb_ld_free procedure, pass(a) :: trim => psb_ld_trim procedure, pass(a) :: csput_a => psb_ld_csput_a - procedure, pass(a) :: csput_v => psb_ld_csput_v + procedure, pass(a) :: csput_v => psb_ld_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_ld_csgetptn procedure, pass(a) :: csgetrow => psb_ld_csgetrow @@ -333,7 +334,7 @@ module psb_d_mat_mod !!$ procedure, pass(a) :: icsgetptn => psb_ld_icsgetptn !!$ procedure, pass(a) :: icsgetrow => psb_ld_icsgetrow !!$ generic, public :: csget => icsgetptn, icsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_ld_tril procedure, pass(a) :: triu => psb_ld_triu procedure, pass(a) :: m_csclip => psb_ld_csclip @@ -360,7 +361,7 @@ module psb_d_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => ld_mat_sync procedure, pass(a) :: is_host => ld_mat_is_host @@ -396,16 +397,16 @@ module psb_d_mat_mod procedure, pass(a) :: mv_to_ib => psb_ld_mv_to_ib procedure, pass(a) :: cp_from_ib => psb_ld_cp_from_ib procedure, pass(a) :: cp_to_ib => psb_ld_cp_to_ib - procedure, pass(a) :: mv_from_i => psb_ld_mv_from_i - procedure, pass(a) :: mv_to_i => psb_ld_mv_to_i - procedure, pass(a) :: cp_from_i => psb_ld_cp_from_i - procedure, pass(a) :: cp_to_i => psb_ld_cp_to_i + procedure, pass(a) :: mv_from_i => psb_ld_mv_from_i + procedure, pass(a) :: mv_to_i => psb_ld_mv_to_i + procedure, pass(a) :: cp_from_i => psb_ld_cp_from_i + procedure, pass(a) :: cp_to_i => psb_ld_cp_to_i generic, public :: mv_from => mv_from_ib, mv_from_i generic, public :: mv_to => mv_to_ib, mv_to_i generic, public :: cp_from => cp_from_ib, cp_from_i generic, public :: cp_to => cp_to_ib, cp_to_i - ! Computational routines + ! Computational routines procedure, pass(a) :: get_diag => psb_ld_get_diag procedure, pass(a) :: maxval => psb_ld_maxval procedure, pass(a) :: spnmi => psb_ld_csnmi @@ -448,7 +449,7 @@ module psb_d_mat_mod ! ! ! - ! Setters + ! Setters ! ! ! @@ -458,142 +459,142 @@ module psb_d_mat_mod ! == =================================== - interface - subroutine psb_d_set_nrows(m,a) + interface + subroutine psb_d_set_nrows(m,a) import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_d_set_nrows end interface - - interface - subroutine psb_d_set_ncols(n,a) + + interface + subroutine psb_d_set_ncols(n,a) import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_d_set_ncols end interface - - interface - subroutine psb_d_set_dupl(n,a) + + interface + subroutine psb_d_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_d_set_dupl end interface - - interface - subroutine psb_d_set_null(a) + + interface + subroutine psb_d_set_null(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_null end interface - - interface - subroutine psb_d_set_bld(a) + + interface + subroutine psb_d_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_bld end interface - - interface - subroutine psb_d_set_upd(a) + + interface + subroutine psb_d_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_upd end interface - - interface - subroutine psb_d_set_asb(a) + + interface + subroutine psb_d_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_set_asb end interface - - interface - subroutine psb_d_set_sorted(a,val) + + interface + subroutine psb_d_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_sorted end interface - - interface - subroutine psb_d_set_triangle(a,val) + + interface + subroutine psb_d_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_triangle end interface - - interface - subroutine psb_d_set_symmetric(a,val) + + interface + subroutine psb_d_set_symmetric(a,val) import :: psb_ipk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_symmetric end interface - - interface - subroutine psb_d_set_unit(a,val) + + interface + subroutine psb_d_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_unit end interface - - interface - subroutine psb_d_set_lower(a,val) + + interface + subroutine psb_d_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_lower end interface - - interface - subroutine psb_d_set_upper(a,val) + + interface + subroutine psb_d_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_d_set_upper end interface - - interface + + interface subroutine psb_d_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_dspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_dspmat_type), intent(in) :: a + class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_sparse_print end interface - interface + interface subroutine psb_d_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_dspmat_type character(len=*), intent(in) :: fname - class(psb_dspmat_type), intent(in) :: a + class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_d_n_sparse_print end interface - - interface + + interface subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_dspmat_type - class(psb_dspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + class(psb_dspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_d_get_neigh end interface - - interface - subroutine psb_d_csall(nr,nc,a,info,nz) + + interface + subroutine psb_d_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc @@ -601,31 +602,31 @@ module psb_d_mat_mod integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_d_csall end interface - - interface - subroutine psb_d_reallocate_nz(nz,a) + + interface + subroutine psb_d_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type integer(psb_ipk_), intent(in) :: nz class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_reallocate_nz end interface - - interface - subroutine psb_d_free(a) + + interface + subroutine psb_d_free(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_free end interface - - interface - subroutine psb_d_trim(a) + + interface + subroutine psb_d_trim(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_trim end interface - - interface - subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -634,9 +635,9 @@ module psb_d_mat_mod end subroutine psb_d_csput_a end interface - - interface - subroutine psb_d_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_d_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_vect_mod, only : psb_d_vect_type use psb_i_vect_mod, only : psb_i_vect_type import :: psb_ipk_, psb_lpk_, psb_dspmat_type @@ -647,8 +648,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_csput_v end interface - - interface + + interface subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -663,8 +664,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetptn end interface - - interface + + interface subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -680,8 +681,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetrow end interface - - interface + + interface subroutine psb_d_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -695,8 +696,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csgetblk end interface - - interface + + interface subroutine psb_d_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -708,8 +709,8 @@ module psb_d_mat_mod class(psb_dspmat_type), optional, intent(inout) :: u end subroutine psb_d_tril end interface - - interface + + interface subroutine psb_d_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -723,7 +724,7 @@ module psb_d_mat_mod end interface - interface + interface subroutine psb_d_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -734,8 +735,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_csclip end interface - - interface + + interface subroutine psb_d_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_coo_sparse_mat @@ -746,60 +747,60 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_d_b_csclip end interface - - interface + + interface subroutine psb_d_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_d_mold end interface - - interface - subroutine psb_d_asb(a,mold) + + interface + subroutine psb_d_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_d_asb end interface - - interface + + interface subroutine psb_d_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_transp_1mat end interface - - interface + + interface subroutine psb_d_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b end subroutine psb_d_transp_2mat end interface - - interface + + interface subroutine psb_d_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a end subroutine psb_d_transc_1mat end interface - - interface + + interface subroutine psb_d_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b end subroutine psb_d_transc_2mat end interface - - interface + + interface subroutine psb_d_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_dspmat_type - class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_d_reinit - + end interface @@ -814,9 +815,9 @@ module psb_d_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a @@ -827,9 +828,9 @@ module psb_d_mat_mod class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_d_cscnv end interface - - interface + + interface subroutine psb_d_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a @@ -839,9 +840,9 @@ module psb_d_mat_mod class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_d_cscnv_ip end interface - - interface + + interface subroutine psb_d_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a @@ -850,12 +851,12 @@ module psb_d_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_d_cscnv_base end interface - + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_d_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(in) :: a @@ -863,46 +864,46 @@ module psb_d_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_d_clip_d end interface - - interface + + interface subroutine psb_d_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_d_clip_d_ip end interface - + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_d_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_from end interface - - interface + + interface subroutine psb_d_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(in) :: b end subroutine psb_d_cp_from end interface - - interface + + interface subroutine psb_d_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_to end interface - - interface + + interface subroutine psb_d_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_d_cp_to @@ -910,63 +911,63 @@ module psb_d_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_d_mv_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_from_lb end interface - - interface + + interface subroutine psb_d_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_dspmat_type), intent(out) :: a class(psb_ld_base_sparse_mat), intent(in) :: b end subroutine psb_d_cp_from_lb end interface - - interface + + interface subroutine psb_d_mv_to_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_dspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_d_mv_to_lb end interface - - interface + + interface subroutine psb_d_cp_to_lb(a,b) - import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_dspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_d_cp_to_lb end interface - interface + interface subroutine psb_d_mv_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ldspmat_type class(psb_dspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b end subroutine psb_d_mv_from_l end interface - - interface + + interface subroutine psb_d_cp_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ldspmat_type class(psb_dspmat_type), intent(out) :: a class(psb_ldspmat_type), intent(in) :: b end subroutine psb_d_cp_from_l end interface - - interface + + interface subroutine psb_d_mv_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ldspmat_type class(psb_dspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b end subroutine psb_d_mv_to_l end interface - - interface + + interface subroutine psb_d_cp_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_, psb_ldspmat_type class(psb_dspmat_type), intent(in) :: a @@ -976,8 +977,8 @@ module psb_d_mat_mod ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_dspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a @@ -985,8 +986,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_dspmat_type_move end interface - - interface + + interface subroutine psb_dspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_dspmat_type class(psb_dspmat_type), intent(inout) :: a @@ -1012,7 +1013,7 @@ module psb_d_mat_mod ! == =================================== interface psb_csmm - subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) + subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -1020,7 +1021,7 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csmm - subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) + subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1028,7 +1029,7 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_d_csmv - subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) + subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_d_vect_mod, only : psb_d_vect_type import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1039,9 +1040,9 @@ module psb_d_mat_mod character, optional, intent(in) :: trans end subroutine psb_d_csmv_vect end interface - + interface psb_cssm - subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -1050,7 +1051,7 @@ module psb_d_mat_mod character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_cssm - subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1059,7 +1060,7 @@ module psb_d_mat_mod character, optional, intent(in) :: trans, scale real(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_d_cssv - subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_d_vect_mod, only : psb_d_vect_type import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1071,24 +1072,24 @@ module psb_d_mat_mod type(psb_d_vect_type), optional, intent(inout) :: d end subroutine psb_d_cssv_vect end interface - - interface + + interface function psb_d_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_d_maxval end interface - - interface + + interface function psb_d_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_d_csnmi end interface - - interface + + interface function psb_d_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1096,7 +1097,7 @@ module psb_d_mat_mod end function psb_d_csnm1 end interface - interface + interface function psb_d_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1105,7 +1106,7 @@ module psb_d_mat_mod end function psb_d_rowsum end interface - interface + interface function psb_d_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1113,8 +1114,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_d_arwsum end interface - - interface + + interface function psb_d_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1123,7 +1124,7 @@ module psb_d_mat_mod end function psb_d_colsum end interface - interface + interface function psb_d_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1132,7 +1133,7 @@ module psb_d_mat_mod end function psb_d_aclsum end interface - interface + interface function psb_d_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ class(psb_dspmat_type), intent(in) :: a @@ -1140,7 +1141,7 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_d_get_diag end interface - + interface psb_scal subroutine psb_d_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ @@ -1157,12 +1158,20 @@ module psb_d_mat_mod end subroutine psb_d_scals end interface + interface psb_scalplusidentity + subroutine psb_d_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ + class(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_scalplusidentity + end interface ! == =================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -1172,156 +1181,156 @@ module psb_d_mat_mod ! == =================================== - interface - subroutine psb_ld_set_lnrows(m,a) + interface + subroutine psb_ld_set_lnrows(m,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m end subroutine psb_ld_set_lnrows #if defined(IPK4) && defined(LPK8) - subroutine psb_ld_set_inrows(m,a) + subroutine psb_ld_set_inrows(m,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_ld_set_inrows #endif end interface - - interface - subroutine psb_ld_set_lncols(n,a) + + interface + subroutine psb_ld_set_lncols(n,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n end subroutine psb_ld_set_lncols -#if defined(IPK4) && defined(LPK8) - subroutine psb_ld_set_incols(n,a) +#if defined(IPK4) && defined(LPK8) + subroutine psb_ld_set_incols(n,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_ld_set_incols #endif end interface - - interface - subroutine psb_ld_set_dupl(n,a) + + interface + subroutine psb_ld_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_ld_set_dupl end interface - - interface - subroutine psb_ld_set_null(a) + + interface + subroutine psb_ld_set_null(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_set_null end interface - - interface - subroutine psb_ld_set_bld(a) + + interface + subroutine psb_ld_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_set_bld end interface - - interface - subroutine psb_ld_set_upd(a) + + interface + subroutine psb_ld_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_set_upd end interface - - interface - subroutine psb_ld_set_asb(a) + + interface + subroutine psb_ld_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_set_asb end interface - - interface - subroutine psb_ld_set_sorted(a,val) + + interface + subroutine psb_ld_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_sorted end interface - - interface - subroutine psb_ld_set_triangle(a,val) + + interface + subroutine psb_ld_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_triangle end interface - - interface - subroutine psb_ld_set_symmetric(a,val) + + interface + subroutine psb_ld_set_symmetric(a,val) import :: psb_ipk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_symmetric end interface - - interface - subroutine psb_ld_set_unit(a,val) + + interface + subroutine psb_ld_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_unit end interface - - interface - subroutine psb_ld_set_lower(a,val) + + interface + subroutine psb_ld_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_lower end interface - - interface - subroutine psb_ld_set_upper(a,val) + + interface + subroutine psb_ld_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ld_set_upper end interface - - interface + + interface subroutine psb_ld_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_ldspmat_type), intent(in) :: a + class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ld_sparse_print end interface - interface + interface subroutine psb_ld_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type character(len=*), intent(in) :: fname - class(psb_ldspmat_type), intent(in) :: a + class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ld_n_sparse_print end interface - - interface + + interface subroutine psb_ld_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type - class(psb_ldspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + class(psb_ldspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev end subroutine psb_ld_get_neigh end interface - - interface - subroutine psb_ld_csall(nr,nc,a,info,nz) + + interface + subroutine psb_ld_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc @@ -1329,31 +1338,31 @@ module psb_d_mat_mod integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_ld_csall end interface - - interface - subroutine psb_ld_reallocate_nz(nz,a) + + interface + subroutine psb_ld_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type integer(psb_lpk_), intent(in) :: nz class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_reallocate_nz end interface - - interface - subroutine psb_ld_free(a) + + interface + subroutine psb_ld_free(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_free end interface - - interface - subroutine psb_ld_trim(a) + + interface + subroutine psb_ld_trim(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_trim end interface - - interface - subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -1362,9 +1371,9 @@ module psb_d_mat_mod end subroutine psb_ld_csput_a end interface - - interface - subroutine psb_ld_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_ld_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_vect_mod, only : psb_d_vect_type use psb_l_vect_mod, only : psb_l_vect_type import :: psb_ipk_, psb_lpk_, psb_ldspmat_type @@ -1375,8 +1384,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_csput_v end interface - - interface + + interface subroutine psb_ld_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1391,8 +1400,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csgetptn end interface - - interface + + interface subroutine psb_ld_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1408,8 +1417,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csgetrow end interface - - interface + + interface subroutine psb_ld_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1423,8 +1432,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csgetblk end interface - - interface + + interface subroutine psb_ld_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1436,8 +1445,8 @@ module psb_d_mat_mod class(psb_ldspmat_type), optional, intent(inout) :: u end subroutine psb_ld_tril end interface - - interface + + interface subroutine psb_ld_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1451,7 +1460,7 @@ module psb_d_mat_mod end interface - interface + interface subroutine psb_ld_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1462,8 +1471,8 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_csclip end interface - - interface + + interface subroutine psb_ld_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_coo_sparse_mat @@ -1474,60 +1483,60 @@ module psb_d_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ld_b_csclip end interface - - interface + + interface subroutine psb_ld_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_ld_mold end interface - - interface - subroutine psb_ld_asb(a,mold) + + interface + subroutine psb_ld_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_ld_asb end interface - - interface + + interface subroutine psb_ld_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_transp_1mat end interface - - interface + + interface subroutine psb_ld_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b end subroutine psb_ld_transp_2mat end interface - - interface + + interface subroutine psb_ld_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a end subroutine psb_ld_transc_1mat end interface - - interface + + interface subroutine psb_ld_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b end subroutine psb_ld_transc_2mat end interface - - interface + + interface subroutine psb_ld_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type - class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ld_reinit - + end interface @@ -1542,9 +1551,9 @@ module psb_d_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_ld_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(in) :: a @@ -1555,9 +1564,9 @@ module psb_d_mat_mod class(psb_ld_base_sparse_mat), intent(in), optional :: mold end subroutine psb_ld_cscnv end interface - - interface + + interface subroutine psb_ld_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a @@ -1567,9 +1576,9 @@ module psb_d_mat_mod class(psb_ld_base_sparse_mat), intent(in), optional :: mold end subroutine psb_ld_cscnv_ip end interface - - interface + + interface subroutine psb_ld_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(in) :: a @@ -1578,13 +1587,13 @@ module psb_d_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_ld_cscnv_base end interface - - + + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_ld_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(in) :: a @@ -1592,47 +1601,47 @@ module psb_d_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_ld_clip_d end interface - - interface + + interface subroutine psb_ld_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_ld_clip_d_ip end interface - - + + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_ld_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_mv_from end interface - - interface + + interface subroutine psb_ld_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(out) :: a class(psb_ld_base_sparse_mat), intent(in) :: b end subroutine psb_ld_cp_from end interface - - interface + + interface subroutine psb_ld_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_mv_to end interface - - interface + + interface subroutine psb_ld_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_ld_base_sparse_mat class(psb_ldspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_cp_to @@ -1640,63 +1649,63 @@ module psb_d_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_ld_mv_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_mv_from_ib end interface - - interface + + interface subroutine psb_ld_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_ldspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(in) :: b end subroutine psb_ld_cp_from_ib end interface - - interface + + interface subroutine psb_ld_mv_to_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_ldspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_mv_to_ib end interface - - interface + + interface subroutine psb_ld_cp_to_ib(a,b) - import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_d_base_sparse_mat class(psb_ldspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b end subroutine psb_ld_cp_to_ib end interface - interface + interface subroutine psb_ld_mv_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_dspmat_type class(psb_ldspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b end subroutine psb_ld_mv_from_i end interface - - interface + + interface subroutine psb_ld_cp_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_dspmat_type class(psb_ldspmat_type), intent(out) :: a class(psb_dspmat_type), intent(in) :: b end subroutine psb_ld_cp_from_i end interface - - interface + + interface subroutine psb_ld_mv_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_dspmat_type class(psb_ldspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b end subroutine psb_ld_mv_to_i end interface - - interface + + interface subroutine psb_ld_cp_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_, psb_dspmat_type class(psb_ldspmat_type), intent(in) :: a @@ -1704,11 +1713,11 @@ module psb_d_mat_mod end subroutine psb_ld_cp_to_i end interface - + ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_ldspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a @@ -1716,8 +1725,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ldspmat_type_move end interface - - interface + + interface subroutine psb_ldspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type class(psb_ldspmat_type), intent(inout) :: a @@ -1728,7 +1737,7 @@ module psb_d_mat_mod - interface + interface function psb_ld_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1736,7 +1745,7 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ld_get_diag end interface - + interface psb_scal subroutine psb_ld_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ @@ -1753,23 +1762,23 @@ module psb_d_mat_mod end subroutine psb_ld_scals end interface - interface + interface function psb_ld_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_maxval end interface - - interface + + interface function psb_ld_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_ld_csnmi end interface - - interface + + interface function psb_ld_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1777,7 +1786,7 @@ module psb_d_mat_mod end function psb_ld_csnm1 end interface - interface + interface function psb_ld_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1786,7 +1795,7 @@ module psb_d_mat_mod end function psb_ld_rowsum end interface - interface + interface function psb_ld_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1794,8 +1803,8 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ld_arwsum end interface - - interface + + interface function psb_ld_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1804,7 +1813,7 @@ module psb_d_mat_mod end function psb_ld_colsum end interface - interface + interface function psb_ld_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ class(psb_ldspmat_type), intent(in) :: a @@ -1812,40 +1821,40 @@ module psb_d_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ld_aclsum end interface - -contains - subroutine psb_d_set_mat_default(a) - implicit none +contains + + subroutine psb_d_set_mat_default(a) + implicit none class(psb_d_base_sparse_mat), intent(in) :: a - - if (allocated(psb_d_base_mat_default)) then + + if (allocated(psb_d_base_mat_default)) then deallocate(psb_d_base_mat_default) end if allocate(psb_d_base_mat_default, mold=a) end subroutine psb_d_set_mat_default - + function psb_d_get_mat_default(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), pointer :: res - + res => psb_d_get_base_mat_default() - + end function psb_d_get_mat_default - + function psb_d_get_base_mat_default() result(res) - implicit none + implicit none class(psb_d_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_d_base_mat_default)) then + + if (.not.allocated(psb_d_base_mat_default)) then allocate(psb_d_csr_sparse_mat :: psb_d_base_mat_default) end if res => psb_d_base_mat_default - + end function psb_d_get_base_mat_default @@ -1855,7 +1864,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1863,26 +1872,26 @@ contains ! ! == =================================== - + function psb_d_sizeof(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_d_sizeof function psb_d_get_fmt(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -1892,11 +1901,11 @@ contains function psb_d_get_dupl(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -1904,11 +1913,11 @@ contains end function psb_d_get_dupl function psb_d_get_nrows(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -1917,11 +1926,11 @@ contains end function psb_d_get_nrows function psb_d_get_ncols(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -1930,11 +1939,11 @@ contains end function psb_d_get_ncols function psb_d_is_triangle(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -1943,11 +1952,11 @@ contains end function psb_d_is_triangle function psb_d_is_symmetric(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -1956,11 +1965,11 @@ contains end function psb_d_is_symmetric function psb_d_is_unit(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -1969,11 +1978,11 @@ contains end function psb_d_is_unit function psb_d_is_upper(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -1982,11 +1991,11 @@ contains end function psb_d_is_upper function psb_d_is_lower(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -1995,12 +2004,12 @@ contains end function psb_d_is_lower function psb_d_is_null(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2008,11 +2017,11 @@ contains end function psb_d_is_null function psb_d_is_bld(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2021,11 +2030,11 @@ contains end function psb_d_is_bld function psb_d_is_upd(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2034,11 +2043,11 @@ contains end function psb_d_is_upd function psb_d_is_asb(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2047,11 +2056,11 @@ contains end function psb_d_is_asb function psb_d_is_sorted(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2060,11 +2069,11 @@ contains end function psb_d_is_sorted function psb_d_is_by_rows(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2073,11 +2082,11 @@ contains end function psb_d_is_by_rows function psb_d_is_by_cols(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2088,61 +2097,61 @@ contains ! subroutine d_mat_sync(a) - implicit none + implicit none class(psb_dspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine d_mat_sync ! subroutine d_mat_set_host(a) - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine d_mat_set_host ! subroutine d_mat_set_dev(a) - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine d_mat_set_dev ! subroutine d_mat_set_sync(a) - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine d_mat_set_sync ! function d_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function d_mat_is_dev - + ! function d_mat_is_host(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2152,11 +2161,11 @@ contains ! function d_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2167,11 +2176,11 @@ contains function psb_d_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2179,25 +2188,25 @@ contains end function psb_d_is_repeatable_updates - subroutine psb_d_set_repeatable_updates(a,val) - implicit none + subroutine psb_d_set_repeatable_updates(a,val) + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_d_set_repeatable_updates function psb_d_get_nzeros(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2205,13 +2214,13 @@ contains function psb_d_get_size(a) result(res) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2219,23 +2228,23 @@ contains function psb_d_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_ipk_), intent(in) :: idx class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_d_get_nz_row subroutine psb_d_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_dspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_d_clean_zeros @@ -2243,7 +2252,7 @@ contains #if defined(IPK4) && defined(LPK8) subroutine psb_d_lcsgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2272,17 +2281,17 @@ contains end if call a%csget(imin,imax,nz,lia,lja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_d_lcsgetptn - + subroutine psb_d_lcsgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2311,12 +2320,12 @@ contains call a%csget(imin,imax,nz,lia,lja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_d_lcsgetrow #endif @@ -2324,38 +2333,38 @@ contains ! ld methods ! - - subroutine psb_ld_set_mat_default(a) - implicit none + + subroutine psb_ld_set_mat_default(a) + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a - - if (allocated(psb_ld_base_mat_default)) then + + if (allocated(psb_ld_base_mat_default)) then deallocate(psb_ld_base_mat_default) end if allocate(psb_ld_base_mat_default, mold=a) end subroutine psb_ld_set_mat_default - + function psb_ld_get_mat_default(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), pointer :: res - + res => psb_ld_get_base_mat_default() - + end function psb_ld_get_mat_default - + function psb_ld_get_base_mat_default() result(res) - implicit none + implicit none class(psb_ld_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_ld_base_mat_default)) then + + if (.not.allocated(psb_ld_base_mat_default)) then allocate(psb_ld_csr_sparse_mat :: psb_ld_base_mat_default) end if res => psb_ld_base_mat_default - + end function psb_ld_get_base_mat_default @@ -2365,7 +2374,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -2373,26 +2382,26 @@ contains ! ! == =================================== - + function psb_ld_sizeof(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_ld_sizeof function psb_ld_get_fmt(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -2402,11 +2411,11 @@ contains function psb_ld_get_dupl(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -2414,11 +2423,11 @@ contains end function psb_ld_get_dupl function psb_ld_get_nrows(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -2427,11 +2436,11 @@ contains end function psb_ld_get_nrows function psb_ld_get_ncols(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -2440,11 +2449,11 @@ contains end function psb_ld_get_ncols function psb_ld_is_triangle(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -2454,11 +2463,11 @@ contains function psb_ld_is_symmetric(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -2467,11 +2476,11 @@ contains end function psb_ld_is_symmetric function psb_ld_is_unit(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -2480,11 +2489,11 @@ contains end function psb_ld_is_unit function psb_ld_is_upper(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -2493,11 +2502,11 @@ contains end function psb_ld_is_upper function psb_ld_is_lower(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -2506,12 +2515,12 @@ contains end function psb_ld_is_lower function psb_ld_is_null(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2519,11 +2528,11 @@ contains end function psb_ld_is_null function psb_ld_is_bld(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2532,11 +2541,11 @@ contains end function psb_ld_is_bld function psb_ld_is_upd(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2545,11 +2554,11 @@ contains end function psb_ld_is_upd function psb_ld_is_asb(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2558,11 +2567,11 @@ contains end function psb_ld_is_asb function psb_ld_is_sorted(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2571,11 +2580,11 @@ contains end function psb_ld_is_sorted function psb_ld_is_by_rows(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2584,11 +2593,11 @@ contains end function psb_ld_is_by_rows function psb_ld_is_by_cols(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2599,61 +2608,61 @@ contains ! subroutine ld_mat_sync(a) - implicit none + implicit none class(psb_ldspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine ld_mat_sync ! subroutine ld_mat_set_host(a) - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine ld_mat_set_host ! subroutine ld_mat_set_dev(a) - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine ld_mat_set_dev ! subroutine ld_mat_set_sync(a) - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine ld_mat_set_sync ! function ld_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function ld_mat_is_dev - + ! function ld_mat_is_host(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2663,11 +2672,11 @@ contains ! function ld_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2678,11 +2687,11 @@ contains function psb_ld_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2690,25 +2699,25 @@ contains end function psb_ld_is_repeatable_updates - subroutine psb_ld_set_repeatable_updates(a,val) - implicit none + subroutine psb_ld_set_repeatable_updates(a,val) + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_ld_set_repeatable_updates function psb_ld_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2716,13 +2725,13 @@ contains function psb_ld_get_size(a) result(res) - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2730,23 +2739,23 @@ contains function psb_ld_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_lpk_), intent(in) :: idx class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_ld_get_nz_row subroutine psb_ld_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_ldspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_ld_clean_zeros @@ -2754,7 +2763,7 @@ contains #if defined(IPK4) && defined(LPK8) !!$ subroutine psb_ld_icsgetptn(imin,imax,a,nz,ia,ja,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_ldspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2790,12 +2799,12 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_ld_icsgetptn -!!$ +!!$ !!$ subroutine psb_ld_icsgetrow(imin,imax,a,nz,ia,ja,val,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_ldspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2831,7 +2840,7 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_ld_icsgetrow #endif diff --git a/base/modules/serial/psb_s_base_mat_mod.F90 b/base/modules/serial/psb_s_base_mat_mod.F90 index d04fa692b..bb2ba9586 100644 --- a/base/modules/serial/psb_s_base_mat_mod.F90 +++ b/base/modules/serial/psb_s_base_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,12 +27,12 @@ ! 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. -! -! +! +! ! ! module psb_s_base_mat_mod - + use psb_base_mat_mod use psb_s_base_vect_mod @@ -56,59 +56,59 @@ module psb_s_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_s_base_csput_a - procedure, pass(a) :: csput_v => psb_s_base_csput_v + procedure, pass(a) :: csput_v => psb_s_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_s_base_csgetrow procedure, pass(a) :: csgetblk => psb_s_base_csgetblk procedure, pass(a) :: get_diag => psb_s_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_s_base_tril procedure, pass(a) :: triu => psb_s_base_triu - procedure, pass(a) :: csclip => psb_s_base_csclip - procedure, pass(a) :: cp_to_coo => psb_s_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_s_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_s_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_s_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_s_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_s_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_s_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_s_base_mv_from_fmt - procedure, pass(a) :: mold => psb_s_base_mold + procedure, pass(a) :: csclip => psb_s_base_csclip + procedure, pass(a) :: cp_to_coo => psb_s_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_s_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_s_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_s_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_s_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_s_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_s_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_s_base_mv_from_fmt + procedure, pass(a) :: mold => psb_s_base_mold procedure, pass(a) :: clone => psb_s_base_clone procedure, pass(a) :: make_nonunit => psb_s_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_s_base_clean_zeros ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_s_base_cp_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_s_base_cp_from_lcoo - procedure, pass(a) :: cp_to_lfmt => psb_s_base_cp_to_lfmt - procedure, pass(a) :: cp_from_lfmt => psb_s_base_cp_from_lfmt - procedure, pass(a) :: mv_to_lcoo => psb_s_base_mv_to_lcoo - procedure, pass(a) :: mv_from_lcoo => psb_s_base_mv_from_lcoo - procedure, pass(a) :: mv_to_lfmt => psb_s_base_mv_to_lfmt - procedure, pass(a) :: mv_from_lfmt => psb_s_base_mv_from_lfmt + procedure, pass(a) :: cp_to_lcoo => psb_s_base_cp_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_s_base_cp_from_lcoo + procedure, pass(a) :: cp_to_lfmt => psb_s_base_cp_to_lfmt + procedure, pass(a) :: cp_from_lfmt => psb_s_base_cp_from_lfmt + procedure, pass(a) :: mv_to_lcoo => psb_s_base_mv_to_lcoo + procedure, pass(a) :: mv_from_lcoo => psb_s_base_mv_from_lcoo + procedure, pass(a) :: mv_to_lfmt => psb_s_base_mv_to_lfmt + procedure, pass(a) :: mv_from_lfmt => psb_s_base_mv_from_lfmt + - ! - ! Transpose methods: defined here but not implemented. - ! + ! Transpose methods: defined here but not implemented. + ! procedure, pass(a) :: transp_1mat => psb_s_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_s_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_s_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_s_base_transc_2mat - + + ! + ! Computational methods: defined here but not implemented. ! - ! Computational methods: defined here but not implemented. - ! procedure, pass(a) :: vect_mv => psb_s_base_vect_mv procedure, pass(a) :: csmv => psb_s_base_csmv procedure, pass(a) :: csmm => psb_s_base_csmm generic, public :: spmm => csmm, csmv, vect_mv procedure, pass(a) :: in_vect_sv => psb_s_base_inner_vect_sv - procedure, pass(a) :: inner_cssv => psb_s_base_inner_cssv + procedure, pass(a) :: inner_cssv => psb_s_base_inner_cssv procedure, pass(a) :: inner_cssm => psb_s_base_inner_cssm generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv procedure, pass(a) :: vect_cssv => psb_s_base_vect_cssv @@ -125,15 +125,16 @@ module psb_s_base_mat_mod procedure, pass(a) :: arwsum => psb_s_base_arwsum procedure, pass(a) :: colsum => psb_s_base_colsum procedure, pass(a) :: aclsum => psb_s_base_aclsum + procedure, pass(a) :: scalpid => psb_s_base_scalplusidentity end type psb_s_base_sparse_mat - + private :: s_base_mat_sync, s_base_mat_is_host, s_base_mat_is_dev, & & s_base_mat_is_sync, s_base_mat_set_host, s_base_mat_set_dev,& & s_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_s_coo_sparse_mat !! \extends psb_s_base_mat_mod::psb_s_base_sparse_mat - !! + !! !! psb_s_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -147,15 +148,15 @@ module psb_s_base_mat_mod integer(psb_ipk_), allocatable :: ia(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => s_coo_get_size procedure, pass(a) :: get_nzeros => s_coo_get_nzeros procedure, nopass :: get_fmt => s_coo_get_fmt @@ -174,9 +175,9 @@ module psb_s_base_mat_mod ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_s_cp_coo_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_s_cp_coo_from_lcoo - + procedure, pass(a) :: cp_to_lcoo => psb_s_cp_coo_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_s_cp_coo_from_lcoo + procedure, pass(a) :: csput_a => psb_s_coo_csput_a procedure, pass(a) :: get_diag => psb_s_coo_get_diag procedure, pass(a) :: csgetrow => psb_s_coo_csgetrow @@ -201,18 +202,18 @@ module psb_s_base_mat_mod ! This is COO specific ! procedure, pass(a) :: set_nzeros => s_coo_set_nzeros - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => s_coo_transp_1mat procedure, pass(a) :: transc_1mat => s_coo_transc_1mat ! - ! Computational methods. - ! + ! Computational methods. + ! procedure, pass(a) :: csmm => psb_s_coo_csmm procedure, pass(a) :: csmv => psb_s_coo_csmv procedure, pass(a) :: inner_cssm => psb_s_coo_cssm @@ -226,14 +227,15 @@ module psb_s_base_mat_mod procedure, pass(a) :: arwsum => psb_s_coo_arwsum procedure, pass(a) :: colsum => psb_s_coo_colsum procedure, pass(a) :: aclsum => psb_s_coo_aclsum - + procedure, pass(a) :: scalpid => psb_s_coo_scalplusidentity + end type psb_s_coo_sparse_mat - + private :: s_coo_get_nzeros, s_coo_set_nzeros, & & s_coo_get_fmt, s_coo_free, s_coo_sizeof, & & s_coo_transp_1mat, s_coo_transc_1mat - - + + !> \namespace psb_base_mod \class psb_ls_base_sparse_mat !! \extends psb_lbase_mat_mod::psb_lbase_sparse_mat !! The psb_ls_base_sparse_mat type, extending psb_base_sparse_mat, @@ -253,33 +255,33 @@ module psb_s_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_ls_base_csput_a - procedure, pass(a) :: csput_v => psb_ls_base_csput_v + procedure, pass(a) :: csput_v => psb_ls_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_ls_base_csgetrow procedure, pass(a) :: csgetblk => psb_ls_base_csgetblk procedure, pass(a) :: get_diag => psb_ls_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_ls_base_tril procedure, pass(a) :: triu => psb_ls_base_triu - procedure, pass(a) :: csclip => psb_ls_base_csclip - procedure, pass(a) :: cp_to_coo => psb_ls_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_ls_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_ls_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_ls_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_ls_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_ls_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_ls_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_ls_base_mv_from_fmt - procedure, pass(a) :: mold => psb_ls_base_mold + procedure, pass(a) :: csclip => psb_ls_base_csclip + procedure, pass(a) :: cp_to_coo => psb_ls_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_ls_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_ls_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_ls_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_ls_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_ls_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_ls_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_ls_base_mv_from_fmt + procedure, pass(a) :: mold => psb_ls_base_mold procedure, pass(a) :: clone => psb_ls_base_clone procedure, pass(a) :: make_nonunit => psb_ls_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_ls_base_clean_zeros ! - ! Computational methods: defined here but not implemented. - ! + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_ls_base_scals procedure, pass(a) :: scalv => psb_ls_base_scal generic, public :: scal => scals, scalv @@ -290,35 +292,36 @@ module psb_s_base_mat_mod procedure, pass(a) :: arwsum => psb_ls_base_arwsum procedure, pass(a) :: colsum => psb_ls_base_colsum procedure, pass(a) :: aclsum => psb_ls_base_aclsum + procedure, pass(a) :: scalpid => psb_ls_base_scalplusidentity ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_icoo => psb_ls_base_cp_to_icoo - procedure, pass(a) :: cp_from_icoo => psb_ls_base_cp_from_icoo - procedure, pass(a) :: cp_to_ifmt => psb_ls_base_cp_to_ifmt - procedure, pass(a) :: cp_from_ifmt => psb_ls_base_cp_from_ifmt - procedure, pass(a) :: mv_to_icoo => psb_ls_base_mv_to_icoo - procedure, pass(a) :: mv_from_icoo => psb_ls_base_mv_from_icoo - procedure, pass(a) :: mv_to_ifmt => psb_ls_base_mv_to_ifmt - procedure, pass(a) :: mv_from_ifmt => psb_ls_base_mv_from_ifmt - + procedure, pass(a) :: cp_to_icoo => psb_ls_base_cp_to_icoo + procedure, pass(a) :: cp_from_icoo => psb_ls_base_cp_from_icoo + procedure, pass(a) :: cp_to_ifmt => psb_ls_base_cp_to_ifmt + procedure, pass(a) :: cp_from_ifmt => psb_ls_base_cp_from_ifmt + procedure, pass(a) :: mv_to_icoo => psb_ls_base_mv_to_icoo + procedure, pass(a) :: mv_from_icoo => psb_ls_base_mv_from_icoo + procedure, pass(a) :: mv_to_ifmt => psb_ls_base_mv_to_ifmt + procedure, pass(a) :: mv_from_ifmt => psb_ls_base_mv_from_ifmt + + ! + ! Transpose methods: defined here but not implemented. ! - ! Transpose methods: defined here but not implemented. - ! procedure, pass(a) :: transp_1mat => psb_ls_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_ls_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_ls_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_ls_base_transc_2mat - + end type psb_ls_base_sparse_mat - + private :: ls_base_mat_sync, ls_base_mat_is_host, ls_base_mat_is_dev, & & ls_base_mat_is_sync, ls_base_mat_set_host, ls_base_mat_set_dev,& & ls_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_ls_coo_sparse_mat !! \extends psb_ls_base_mat_mod::psb_ls_base_sparse_mat - !! + !! !! psb_ls_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -332,15 +335,15 @@ module psb_s_base_mat_mod integer(psb_lpk_), allocatable :: ia(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => ls_coo_get_size procedure, pass(a) :: get_nzeros => ls_coo_get_nzeros procedure, nopass :: get_fmt => ls_coo_get_fmt @@ -357,7 +360,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: mv_from_fmt => psb_ls_mv_coo_from_fmt procedure, pass(a) :: cp_to_icoo => psb_ls_cp_coo_to_icoo procedure, pass(a) :: cp_from_icoo => psb_ls_cp_coo_from_icoo - + procedure, pass(a) :: csput_a => psb_ls_coo_csput_a procedure, pass(a) :: get_diag => psb_ls_coo_get_diag procedure, pass(a) :: csgetrow => psb_ls_coo_csgetrow @@ -378,9 +381,9 @@ module psb_s_base_mat_mod procedure, pass(a) :: set_sort_status => ls_coo_set_sort_status procedure, pass(a) :: get_sort_status => ls_coo_get_sort_status - - ! Computational methods: defined here but not implemented. - ! + + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_ls_coo_scals procedure, pass(a) :: scalv => psb_ls_coo_scal procedure, pass(a) :: maxval => psb_ls_coo_maxval @@ -390,6 +393,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: arwsum => psb_ls_coo_arwsum procedure, pass(a) :: colsum => psb_ls_coo_colsum procedure, pass(a) :: aclsum => psb_ls_coo_aclsum + procedure, pass(a) :: scalpid => psb_ls_coo_scalplusidentity ! ! This is COO specific @@ -402,25 +406,25 @@ module psb_s_base_mat_mod procedure, pass(a) :: iset_nzeros => ls_coo_iset_nzeros generic, public :: set_nzeros => iset_nzeros #endif - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => ls_coo_transp_1mat procedure, pass(a) :: transc_1mat => ls_coo_transc_1mat - + end type psb_ls_coo_sparse_mat - + private :: ls_coo_get_nzeros, ls_coo_iset_nzeros, & & ls_coo_get_fmt, ls_coo_free, ls_coo_sizeof, & & ls_coo_transp_1mat, ls_coo_transc_1mat #if defined(IPK4) && defined(LPK8) private :: ls_coo_lset_nzeros #endif - + ! == ================= ! ! BASE interfaces @@ -429,14 +433,14 @@ module psb_s_base_mat_mod !> Function csput: !! \memberof psb_s_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -449,33 +453,33 @@ module psb_s_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_csput_a end interface - - interface - subroutine psb_s_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_s_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -483,43 +487,43 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_s_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_s_base_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -532,33 +536,33 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_s_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_s_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_s_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(in) :: imin,imax @@ -569,34 +573,34 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_s_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_s_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_s_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -617,27 +621,27 @@ module psb_s_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_s_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -646,13 +650,13 @@ module psb_s_base_mat_mod class(psb_s_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_s_base_tril end interface - + ! !> Function triu: !! \memberof psb_s_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -661,27 +665,27 @@ module psb_s_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_s_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -690,27 +694,27 @@ module psb_s_base_mat_mod class(psb_s_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_s_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_s_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_s_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_s_base_get_diag(a,d,info) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_s_base_sparse_mat @@ -720,10 +724,10 @@ module psb_s_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mold(a,b,info) - import + ! + interface + subroutine psb_s_base_mold(a,b,info) + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -735,21 +739,21 @@ module psb_s_base_mat_mod !> Function clone: !! \memberof psb_s_base_sparse_mat !! \brief Allocate and clone a class(psb_s_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_s_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_clone end interface @@ -759,18 +763,18 @@ module psb_s_base_mat_mod !> Function make_nonunit: !! \memberof psb_s_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_s_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_s_base_sparse_mat @@ -778,16 +782,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_to_coo(a,b,info) + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_s_base_sparse_mat @@ -795,16 +799,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_from_coo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_s_base_sparse_mat @@ -813,16 +817,16 @@ module psb_s_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_to_fmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_s_base_sparse_mat @@ -831,16 +835,16 @@ module psb_s_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_from_fmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_s_base_sparse_mat @@ -848,16 +852,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_to_coo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_s_base_sparse_mat @@ -865,16 +869,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_from_coo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_s_base_sparse_mat @@ -883,16 +887,16 @@ module psb_s_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_to_fmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_s_base_sparse_mat @@ -901,10 +905,10 @@ module psb_s_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_from_fmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -917,16 +921,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_to_lcoo(a,b,info) + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_lcoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_s_base_sparse_mat @@ -934,16 +938,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_from_lcoo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_lcoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_s_base_sparse_mat @@ -952,16 +956,16 @@ module psb_s_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_to_lfmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_to_lfmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_s_base_sparse_mat @@ -970,16 +974,16 @@ module psb_s_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_cp_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_s_base_cp_from_lfmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_cp_from_lfmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_s_base_sparse_mat @@ -987,16 +991,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_to_lcoo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_lcoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_s_base_sparse_mat @@ -1004,16 +1008,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_from_lcoo(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_from_lcoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_s_base_sparse_mat @@ -1022,16 +1026,16 @@ module psb_s_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_to_lfmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_mv_to_lfmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_s_base_sparse_mat @@ -1040,10 +1044,10 @@ module psb_s_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_s_base_mv_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_s_base_mv_from_lfmt(a,b,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1052,78 +1056,78 @@ module psb_s_base_mat_mod ! - !> + !> !! \memberof psb_s_base_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros ! interface subroutine psb_s_base_clean_zeros(a, info) - import + import class(psb_s_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_clean_zeros end interface - + ! !> Function transp: !! \memberof psb_s_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_s_base_transp_2mat(a,b) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_s_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_s_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_s_base_transc_2mat(a,b) - import + import class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_s_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_s_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_s_base_transp_1mat(a) - import + import class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_s_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_s_base_transc_1mat(a) - import + import class(psb_s_base_sparse_mat), intent(inout) :: a end subroutine psb_s_base_transc_1mat end interface - + ! !> Function csmm: !! \memberof psb_s_base_sparse_mat @@ -1142,9 +1146,9 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! ! - interface + interface subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1152,7 +1156,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_csmm end interface - + !> Function csmv: !! \memberof psb_s_base_sparse_mat !! \brief Product by a dense rank 1 array. @@ -1170,9 +1174,9 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1180,7 +1184,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_csmv end interface - + !> Function vect_mv: !! \memberof psb_s_base_sparse_mat !! \brief Product by an encapsulated array type(psb_s_vect_type) @@ -1192,7 +1196,7 @@ module psb_s_base_mat_mod !! versions with the standard arrays. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1205,9 +1209,9 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x @@ -1216,7 +1220,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_vect_mv end interface - + ! !> Function cssm: !! \memberof psb_s_base_sparse_mat @@ -1225,7 +1229,7 @@ module psb_s_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssm. + !! Internal workhorse called by cssm. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1237,9 +1241,9 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1247,8 +1251,8 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_inner_cssm end interface - - + + ! !> Function cssv: !! \memberof psb_s_base_sparse_mat @@ -1257,7 +1261,7 @@ module psb_s_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssv. + !! Internal workhorse called by cssv. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1269,12 +1273,12 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface - subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1282,7 +1286,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_inner_cssv end interface - + ! !> Function inner_vect_cssv: !! \memberof psb_s_base_sparse_mat @@ -1292,10 +1296,10 @@ module psb_s_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by vect_cssv. + !! Internal workhorse called by vect_cssv. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1307,9 +1311,9 @@ module psb_s_base_mat_mod !! \param trans [N] Whether to use A (N), its transpose (T) !! or its conjugate transpose (C) ! - interface - subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x, y @@ -1317,7 +1321,7 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_base_inner_vect_sv end interface - + ! !> Function cssm: !! \memberof psb_s_base_sparse_mat @@ -1336,12 +1340,12 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1350,7 +1354,7 @@ module psb_s_base_mat_mod real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_base_cssm end interface - + ! !> Function cssv: !! \memberof psb_s_base_sparse_mat @@ -1369,12 +1373,12 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1383,7 +1387,7 @@ module psb_s_base_mat_mod real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_base_cssv end interface - + ! !> Function vect_cssv: !! \memberof psb_s_base_sparse_mat @@ -1403,12 +1407,12 @@ module psb_s_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D [none] Diagonal for scaling. + !! \param D [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x,y @@ -1417,24 +1421,24 @@ module psb_s_base_mat_mod class(psb_s_base_vect_type), optional, intent(inout) :: d end subroutine psb_s_base_vect_cssv end interface - + ! !> Function base_scals: !! \memberof psb_s_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_s_base_scals(d,a,info) - import + interface + subroutine psb_s_base_scals(d,a,info) + import class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_s_base_scals end interface - + ! !> Function base_scal: !! \memberof psb_s_base_sparse_mat @@ -1444,40 +1448,57 @@ module psb_s_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_s_base_scal(d,a,info,side) - import + interface + subroutine psb_s_base_scal(d,a,info,side) + import class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_s_base_scal end interface - + + ! + !> Function base_scalplusidentity: + !! \memberof psb_s_base_sparse_mat + !! \brief Scale a matrix by a vector and sums an identity + !! + !! \param d Scaling + !! \param info return code + ! + interface + subroutine psb_s_base_scalplusidentity(d,a,info) + import + class(psb_s_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_base_scalplusidentity + end interface + ! !> Function base_maxval: !! \memberof psb_s_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_s_base_maxval(a) result(res) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_s_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_s_base_csnmi(a) result(res) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_csnmi @@ -1488,11 +1509,11 @@ module psb_s_base_mat_mod !> Function base_csnmi: !! \memberof psb_s_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_s_base_csnm1(a) result(res) - import + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_base_csnm1 @@ -1504,11 +1525,11 @@ module psb_s_base_mat_mod !! \memberof psb_s_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_s_base_rowsum(d,a) - import + interface + subroutine psb_s_base_rowsum(d,a) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_rowsum @@ -1519,26 +1540,26 @@ module psb_s_base_mat_mod !! \memberof psb_s_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_s_base_arwsum(d,a) - import + !! + interface + subroutine psb_s_base_arwsum(d,a) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_s_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_s_base_colsum(d,a) - import + interface + subroutine psb_s_base_colsum(d,a) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_colsum @@ -1549,16 +1570,16 @@ module psb_s_base_mat_mod !! \memberof psb_s_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_s_base_aclsum(d,a) - import + !! + interface + subroutine psb_s_base_aclsum(d,a) + import class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_base_aclsum end interface - + ! == =============== ! ! COO interfaces @@ -1566,81 +1587,81 @@ module psb_s_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_s_coo_reallocate_nz(nz,a) - import + subroutine psb_s_coo_reallocate_nz(nz,a) + import integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_s_coo_reinit(a,clear) - import - class(psb_s_coo_sparse_mat), intent(inout) :: a + import + class(psb_s_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_coo_reinit end interface ! - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_s_coo_trim(a) - import + import class(psb_s_coo_sparse_mat), intent(inout) :: a end subroutine psb_s_coo_trim end interface ! - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros ! interface subroutine psb_s_coo_clean_zeros(a,info) - import + import class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_ipk_), intent(in) :: m,n class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_coo_allocate_mnnz end interface - + !> \memberof psb_s_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_s_coo_mold(a,b,info) - import + interface + subroutine psb_s_coo_mold(a,b,info) + import class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_s_coo_sparse_mat @@ -1655,17 +1676,17 @@ module psb_s_base_mat_mod ! interface subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_s_coo_sparse_mat), intent(in) :: a + class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_s_coo_sparse_mat @@ -1674,16 +1695,16 @@ module psb_s_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_s_coo_get_nz_row(idx,a) result(res) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res end function psb_s_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -1695,12 +1716,12 @@ module psb_s_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) real(psb_spk_), intent(inout) :: val(:) @@ -1709,162 +1730,162 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_s_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_s_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_s_fix_coo(a,info,idir) - import + interface + subroutine psb_s_fix_coo(a,info,idir) + import class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_s_fix_coo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_coo - interface - subroutine psb_s_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_s_cp_coo_to_coo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_coo - interface - subroutine psb_s_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_s_cp_coo_from_coo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_from_coo end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_coo - interface - subroutine psb_s_cp_coo_to_lcoo(a,b,info) - import + interface + subroutine psb_s_cp_coo_to_lcoo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_to_lcoo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_coo - interface - subroutine psb_s_cp_coo_from_lcoo(a,b,info) - import + interface + subroutine psb_s_cp_coo_from_lcoo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_from_lcoo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_coo - !! - interface - subroutine psb_s_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_s_cp_coo_to_fmt(a,b,info) + import class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_fmt - !! - interface - subroutine psb_s_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_s_cp_coo_from_fmt(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_coo - interface - subroutine psb_s_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_s_mv_coo_to_coo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_coo - interface - subroutine psb_s_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_s_mv_coo_from_coo(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_fmt - interface - subroutine psb_s_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_s_mv_coo_to_fmt(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_fmt - interface - subroutine psb_s_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_s_mv_coo_from_fmt(a,b,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_s_coo_cp_from(a,b) - import + import class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(in) :: b end subroutine psb_s_coo_cp_from end interface - - interface + + interface subroutine psb_s_coo_mv_from(a,b) - import + import class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(inout) :: b end subroutine psb_s_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_s_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -1881,9 +1902,9 @@ module psb_s_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& @@ -1891,14 +1912,14 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_csput_a end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1910,14 +1931,14 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_coo_csgetptn end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csgetrow - interface + interface subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1930,13 +1951,13 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_s_coo_csgetrow end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssv - interface - subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1944,12 +1965,12 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_coo_cssv end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssm - interface - subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1957,13 +1978,13 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_coo_cssm end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmv - interface - subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1972,12 +1993,12 @@ module psb_s_base_mat_mod end subroutine psb_s_coo_csmv end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmm - interface - subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1985,121 +2006,132 @@ module psb_s_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_coo_csmm end interface - - - !> + + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_maxval - interface + interface function psb_s_coo_maxval(a) result(res) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_maxval end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csnmi - interface + interface function psb_s_coo_csnmi(a) result(res) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_csnmi end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csnm1 - interface + interface function psb_s_coo_csnm1(a) result(res) - import + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_coo_csnm1 end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_rowsum - interface - subroutine psb_s_coo_rowsum(d,a) - import + interface + subroutine psb_s_coo_rowsum(d,a) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_rowsum end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_arwsum - interface - subroutine psb_s_coo_arwsum(d,a) - import + interface + subroutine psb_s_coo_arwsum(d,a) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_arwsum end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_colsum - interface - subroutine psb_s_coo_colsum(d,a) - import + interface + subroutine psb_s_coo_colsum(d,a) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_colsum end interface - !> + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_aclsum - interface - subroutine psb_s_coo_aclsum(d,a) - import + interface + subroutine psb_s_coo_aclsum(d,a) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_coo_aclsum end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_get_diag - interface - subroutine psb_s_coo_get_diag(a,d,info) - import + interface + subroutine psb_s_coo_get_diag(a,d,info) + import class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_get_diag end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scal - interface - subroutine psb_s_coo_scal(d,a,info,side) - import + interface + subroutine psb_s_coo_scal(d,a,info,side) + import class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_s_coo_scal end interface - - !> + + !> !! \memberof psb_s_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scals interface - subroutine psb_s_coo_scals(d,a,info) - import + subroutine psb_s_coo_scals(d,a,info) + import class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_scals end interface - + !> + !! \memberof psb_s_coo_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity + interface + subroutine psb_s_coo_scalplusidentity(d,a,info) + import + class(psb_s_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_coo_scalplusidentity + end interface + ! == ================= ! ! BASE interfaces @@ -2108,14 +2140,14 @@ module psb_s_base_mat_mod !> Function csput: !! \memberof psb_ls_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -2128,33 +2160,33 @@ module psb_s_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_csput_a end interface - - interface - subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2162,43 +2194,43 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_ls_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ls_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -2211,33 +2243,33 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_ls_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_ls_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ls_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_lpk_), intent(in) :: imin,imax @@ -2248,34 +2280,34 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_ls_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_ls_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -2296,27 +2328,27 @@ module psb_s_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ls_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -2325,13 +2357,13 @@ module psb_s_base_mat_mod class(psb_ls_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_ls_base_tril end interface - + ! !> Function triu: !! \memberof psb_ls_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -2340,27 +2372,27 @@ module psb_s_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ls_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -2369,27 +2401,27 @@ module psb_s_base_mat_mod class(psb_ls_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_ls_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_ls_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_ls_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_ls_base_get_diag(a,d,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_ls_base_sparse_mat @@ -2399,10 +2431,10 @@ module psb_s_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mold(a,b,info) - import + ! + interface + subroutine psb_ls_base_mold(a,b,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2414,21 +2446,21 @@ module psb_s_base_mat_mod !> Function clone: !! \memberof psb_ls_base_sparse_mat !! \brief Allocate and clone a class(psb_ls_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_ls_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_clone end interface @@ -2438,18 +2470,18 @@ module psb_s_base_mat_mod !> Function make_nonunit: !! \memberof psb_ls_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_ls_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a end subroutine psb_ls_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_ls_base_sparse_mat @@ -2457,16 +2489,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_to_coo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_ls_base_sparse_mat @@ -2474,16 +2506,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_from_coo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2492,16 +2524,16 @@ module psb_s_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_to_fmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2510,16 +2542,16 @@ module psb_s_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_from_fmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_ls_base_sparse_mat @@ -2527,16 +2559,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_to_coo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_ls_base_sparse_mat @@ -2544,16 +2576,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_from_coo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2562,16 +2594,16 @@ module psb_s_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_to_fmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2580,17 +2612,17 @@ module psb_s_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_from_fmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_from_fmt end interface - + ! !> Function cp_to_coo: !! \memberof psb_ls_base_sparse_mat @@ -2598,16 +2630,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_to_icoo(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_to_icoo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_to_icoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_ls_base_sparse_mat @@ -2615,16 +2647,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_from_icoo(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_from_icoo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_from_icoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2633,16 +2665,16 @@ module psb_s_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_to_ifmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_to_ifmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2651,16 +2683,16 @@ module psb_s_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_cp_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_cp_from_ifmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_cp_from_ifmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_ls_base_sparse_mat @@ -2668,16 +2700,16 @@ module psb_s_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_to_icoo(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_to_icoo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_to_icoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_ls_base_sparse_mat @@ -2685,16 +2717,16 @@ module psb_s_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_from_icoo(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_from_icoo(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_from_icoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2703,16 +2735,16 @@ module psb_s_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_to_ifmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_mv_to_ifmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_ls_base_sparse_mat @@ -2721,10 +2753,10 @@ module psb_s_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_ls_base_mv_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_ls_base_mv_from_ifmt(a,b,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2734,111 +2766,128 @@ module psb_s_base_mat_mod ! - !> + !> !! \memberof psb_ls_base_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros ! interface subroutine psb_ls_base_clean_zeros(a, info) - import + import class(psb_ls_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_clean_zeros end interface - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_maxval - interface + interface function psb_ls_coo_maxval(a) result(res) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_coo_maxval end interface - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_csnmi - interface + interface function psb_ls_coo_csnmi(a) result(res) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_coo_csnmi end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_csnm1 - interface + interface function psb_ls_coo_csnm1(a) result(res) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_coo_csnm1 end interface - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_rowsum - interface - subroutine psb_ls_coo_rowsum(d,a) - import + interface + subroutine psb_ls_coo_rowsum(d,a) + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_coo_rowsum end interface - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_arwsum - interface - subroutine psb_ls_coo_arwsum(d,a) - import + interface + subroutine psb_ls_coo_arwsum(d,a) + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_coo_arwsum end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_colsum - interface - subroutine psb_ls_coo_colsum(d,a) - import + interface + subroutine psb_ls_coo_colsum(d,a) + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_coo_colsum end interface - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_aclsum - interface - subroutine psb_ls_coo_aclsum(d,a) - import + interface + subroutine psb_ls_coo_aclsum(d,a) + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_coo_aclsum end interface - + ! !> Function base_scals: !! \memberof psb_ls_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_ls_base_scals(d,a,info) - import + interface + subroutine psb_ls_base_scals(d,a,info) + import class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_scals end interface - + + ! + !> Function base_scalsplusidentity: + !! \memberof psb_ls_base_sparse_mat + !! \brief Scale a matrix by a single scalar value and adds identity + !! + !! \param d Scaling factor + !! \param info return code + ! + interface + subroutine psb_ls_base_scalplusidentity(d,a,info) + import + class(psb_ls_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_base_scalplusidentity + end interface + ! !> Function base_scal: !! \memberof psb_ls_base_sparse_mat @@ -2848,40 +2897,40 @@ module psb_s_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_ls_base_scal(d,a,info,side) - import + interface + subroutine psb_ls_base_scal(d,a,info,side) + import class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_ls_base_scal end interface - + ! !> Function base_maxval: !! \memberof psb_ls_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_ls_base_maxval(a) result(res) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_ls_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_ls_base_csnmi(a) result(res) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_base_csnmi @@ -2892,11 +2941,11 @@ module psb_s_base_mat_mod !> Function base_csnmi: !! \memberof psb_ls_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_ls_base_csnm1(a) result(res) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_base_csnm1 @@ -2908,11 +2957,11 @@ module psb_s_base_mat_mod !! \memberof psb_ls_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_ls_base_rowsum(d,a) - import + interface + subroutine psb_ls_base_rowsum(d,a) + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_base_rowsum @@ -2923,26 +2972,26 @@ module psb_s_base_mat_mod !! \memberof psb_ls_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_ls_base_arwsum(d,a) - import + !! + interface + subroutine psb_ls_base_arwsum(d,a) + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_ls_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_ls_base_colsum(d,a) - import + interface + subroutine psb_ls_base_colsum(d,a) + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_base_colsum @@ -2953,76 +3002,76 @@ module psb_s_base_mat_mod !! \memberof psb_ls_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_ls_base_aclsum(d,a) - import + !! + interface + subroutine psb_ls_base_aclsum(d,a) + import class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_base_aclsum end interface - + ! !> Function transp: !! \memberof psb_ls_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_ls_base_transp_2mat(a,b) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_ls_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_ls_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_ls_base_transc_2mat(a,b) - import + import class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_ls_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_ls_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_ls_base_transp_1mat(a) - import + import class(psb_ls_base_sparse_mat), intent(inout) :: a end subroutine psb_ls_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_ls_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_ls_base_transc_1mat(a) - import + import class(psb_ls_base_sparse_mat), intent(inout) :: a end subroutine psb_ls_base_transc_1mat end interface - + ! == =============== ! ! COO interfaces @@ -3030,81 +3079,81 @@ module psb_s_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_ls_coo_reallocate_nz(nz,a) - import + subroutine psb_ls_coo_reallocate_nz(nz,a) + import integer(psb_lpk_), intent(in) :: nz class(psb_ls_coo_sparse_mat), intent(inout) :: a end subroutine psb_ls_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_ls_coo_reinit(a,clear) - import - class(psb_ls_coo_sparse_mat), intent(inout) :: a + import + class(psb_ls_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ls_coo_reinit end interface ! - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_ls_coo_trim(a) - import + import class(psb_ls_coo_sparse_mat), intent(inout) :: a end subroutine psb_ls_coo_trim end interface ! - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros ! interface subroutine psb_ls_coo_clean_zeros(a,info) - import + import class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_lpk_), intent(in) :: m,n class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_ls_coo_allocate_mnnz end interface - + !> \memberof psb_ls_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ls_coo_mold(a,b,info) - import + interface + subroutine psb_ls_coo_mold(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_ls_coo_sparse_mat @@ -3119,17 +3168,17 @@ module psb_s_base_mat_mod ! interface subroutine psb_ls_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_ls_coo_sparse_mat), intent(in) :: a + class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ls_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_ls_coo_sparse_mat @@ -3138,16 +3187,16 @@ module psb_s_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_ls_coo_get_nz_row(idx,a) result(res) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res end function psb_ls_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -3159,12 +3208,12 @@ module psb_s_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_lpk_), intent(in) :: nr,nc,nzin integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -3174,164 +3223,164 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_ls_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_ls_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_ls_fix_coo(a,info,idir) - import + interface + subroutine psb_ls_fix_coo(a,info,idir) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_ls_fix_coo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_coo - interface - subroutine psb_ls_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_ls_cp_coo_to_coo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_coo - interface - subroutine psb_ls_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_ls_cp_coo_from_coo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_from_coo end interface - - - !> + + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_coo - interface - subroutine psb_ls_cp_coo_to_icoo(a,b,info) - import + interface + subroutine psb_ls_cp_coo_to_icoo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_to_icoo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_coo - interface - subroutine psb_ls_cp_coo_from_icoo(a,b,info) - import + interface + subroutine psb_ls_cp_coo_from_icoo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_from_icoo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_coo - !! - interface - subroutine psb_ls_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_ls_cp_coo_to_fmt(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_fmt - !! - interface - subroutine psb_ls_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_ls_cp_coo_from_fmt(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_coo - interface - subroutine psb_ls_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_ls_mv_coo_to_coo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_coo - interface - subroutine psb_ls_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_ls_mv_coo_from_coo(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_fmt - interface - subroutine psb_ls_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_ls_mv_coo_to_fmt(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_fmt - interface - subroutine psb_ls_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_ls_mv_coo_from_fmt(a,b,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_ls_coo_cp_from(a,b) - import + import class(psb_ls_coo_sparse_mat), intent(inout) :: a type(psb_ls_coo_sparse_mat), intent(in) :: b end subroutine psb_ls_coo_cp_from end interface - - interface + + interface subroutine psb_ls_coo_mv_from(a,b) - import + import class(psb_ls_coo_sparse_mat), intent(inout) :: a type(psb_ls_coo_sparse_mat), intent(inout) :: b end subroutine psb_ls_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_ls_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -3348,9 +3397,9 @@ module psb_s_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz,ia(:), ja(:),& @@ -3358,14 +3407,14 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_csput_a end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ls_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3377,14 +3426,14 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_coo_csgetptn end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csgetrow - interface + interface subroutine psb_ls_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3397,141 +3446,153 @@ module psb_s_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_coo_csgetrow end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_get_diag - interface - subroutine psb_ls_coo_get_diag(a,d,info) - import + interface + subroutine psb_ls_coo_get_diag(a,d,info) + import class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_get_diag end interface - - - !> + + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scal - interface - subroutine psb_ls_coo_scal(d,a,info,side) - import + interface + subroutine psb_ls_coo_scal(d,a,info,side) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_ls_coo_scal end interface - - !> + + !> !! \memberof psb_ls_coo_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scals interface - subroutine psb_ls_coo_scals(d,a,info) - import + subroutine psb_ls_coo_scals(d,a,info) + import class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_scals end interface - -contains - - + + !> + !! \memberof psb_ls_coo_sparse_mat + !! \see psb_ls_base_mat_mod::psb_ls_base_scalplusidentity + interface + subroutine psb_ls_coo_scalplusidentity(d,a,info) + import + class(psb_ls_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_coo_scalplusidentity + end interface + +contains + + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function s_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_ip res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%ia) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function s_coo_sizeof - - + + function s_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function s_coo_get_fmt - - + + function s_coo_get_size(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function s_coo_get_size - - + + function s_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%nnz end function s_coo_get_nzeros - + function s_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function s_coo_is_by_rows - + function s_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function s_coo_is_by_cols - + function s_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function s_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3539,52 +3600,52 @@ contains ! ! ! == ================================== - + subroutine s_coo_set_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine s_coo_set_nzeros - + function s_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_s_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function s_coo_get_sort_status - + subroutine s_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_s_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine s_coo_set_sort_status - - + + subroutine s_coo_set_by_rows(a) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine s_coo_set_by_rows - - + + subroutine s_coo_set_by_cols(a) - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine s_coo_set_by_cols - + ! == ================================== ! ! @@ -3596,12 +3657,12 @@ contains ! ! ! == ================================== - - subroutine s_coo_free(a) - implicit none - + + subroutine s_coo_free(a) + implicit none + class(psb_s_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3610,13 +3671,13 @@ contains call a%set_ncols(0_psb_ipk_) call a%set_nzeros(0_psb_ipk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine s_coo_free - - - + + + ! == ================================== ! ! @@ -3630,132 +3691,132 @@ contains ! ! == ================================== subroutine s_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_s_coo_sparse_mat), intent(inout) :: a - - integer(psb_ipk_), allocatable :: itemp(:) + + integer(psb_ipk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_s_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine s_coo_transp_1mat - + subroutine s_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_s_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_s_is_complex_) a%val(:) = (a%val(:)) end subroutine s_coo_transc_1mat - + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function ls_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_lp res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%ia) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function ls_coo_sizeof - - + + function ls_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function ls_coo_get_fmt - - + + function ls_coo_get_size(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function ls_coo_get_size - - + + function ls_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%nnz end function ls_coo_get_nzeros - + function ls_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function ls_coo_is_by_rows - + function ls_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function ls_coo_is_by_cols - + function ls_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function ls_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3763,63 +3824,63 @@ contains ! ! ! == ================================== - + subroutine ls_coo_iset_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_ls_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine ls_coo_iset_nzeros #if defined(IPK4) && defined(LPK8) subroutine ls_coo_lset_nzeros(nz,a) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ls_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine ls_coo_lset_nzeros #endif - + function ls_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_ls_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function ls_coo_get_sort_status - + subroutine ls_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_ls_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine ls_coo_set_sort_status - - + + subroutine ls_coo_set_by_rows(a) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine ls_coo_set_by_rows - - + + subroutine ls_coo_set_by_cols(a) - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine ls_coo_set_by_cols - + ! == ================================== ! ! @@ -3831,12 +3892,12 @@ contains ! ! ! == ================================== - - subroutine ls_coo_free(a) - implicit none - + + subroutine ls_coo_free(a) + implicit none + class(psb_ls_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3845,13 +3906,13 @@ contains call a%set_ncols(0_psb_lpk_) call a%set_nzeros(0_psb_lpk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine ls_coo_free - - - + + + ! == ================================== ! ! @@ -3865,40 +3926,37 @@ contains ! ! == ================================== subroutine ls_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_ls_coo_sparse_mat), intent(inout) :: a - - integer(psb_lpk_), allocatable :: itemp(:) + + integer(psb_lpk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_ls_base_sparse_mat%psb_lbase_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine ls_coo_transp_1mat - + subroutine ls_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_ls_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_ls_is_complex_) a%val(:) = (a%val(:)) end subroutine ls_coo_transc_1mat end module psb_s_base_mat_mod - - - diff --git a/base/modules/serial/psb_s_csc_mat_mod.f90 b/base/modules/serial/psb_s_csc_mat_mod.f90 index 542785391..500379a7c 100644 --- a/base/modules/serial/psb_s_csc_mat_mod.f90 +++ b/base/modules/serial/psb_s_csc_mat_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_s_csc_mat_mod ! @@ -40,23 +40,23 @@ ! ! Please refere to psb_s_base_mat_mod for a detailed description ! of the various methods, and to psb_s_csc_impl for implementation details. -! +! module psb_s_csc_mat_mod use psb_s_base_mat_mod !> \namespace psb_base_mod \class psb_s_csc_sparse_mat !! \extends psb_s_base_mat_mod::psb_s_base_sparse_mat - !! + !! !! psb_s_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_s_base_sparse_mat) :: psb_s_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_ipk_), allocatable :: icp(:) !> Row indices. integer(psb_ipk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) contains @@ -71,6 +71,7 @@ module psb_s_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csc_cssv procedure, pass(a) :: scals => psb_s_csc_scals procedure, pass(a) :: scalv => psb_s_csc_scal + procedure, pass(a) :: scalpid => psb_s_csc_scalplusidentity procedure, pass(a) :: maxval => psb_s_csc_maxval procedure, pass(a) :: spnm1 => psb_s_csc_csnm1 procedure, pass(a) :: rowsum => psb_s_csc_rowsum @@ -107,16 +108,16 @@ module psb_s_csc_mat_mod !> \namespace psb_base_mod \class psb_s_csc_sparse_mat !! \extends psb_s_base_mat_mod::psb_s_base_sparse_mat - !! + !! !! psb_s_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_ls_base_sparse_mat) :: psb_ls_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_lpk_), allocatable :: icp(:) !> Row indices. integer(psb_lpk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) contains @@ -127,6 +128,7 @@ module psb_s_csc_mat_mod procedure, pass(a) :: sizeof => ls_csc_sizeof procedure, pass(a) :: scals => psb_ls_csc_scals procedure, pass(a) :: scalv => psb_ls_csc_scal + procedure, pass(a) :: scalpid => psb_ls_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ls_csc_maxval procedure, pass(a) :: spnm1 => psb_ls_csc_csnm1 procedure, pass(a) :: rowsum => psb_ls_csc_rowsum @@ -163,23 +165,23 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_s_csc_reallocate_nz(nz,a) + subroutine psb_s_csc_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_reallocate_nz end interface - + !> \memberof psb_s_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_s_csc_reinit(a,clear) import - class(psb_s_csc_sparse_mat), intent(inout) :: a + class(psb_s_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csc_reinit end interface - + !> \memberof psb_s_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -188,22 +190,22 @@ module psb_s_csc_mat_mod class(psb_s_csc_sparse_mat), intent(inout) :: a end subroutine psb_s_csc_trim end interface - + !> \memberof psb_s_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_s_csc_mold(a,b,info) + interface + subroutine psb_s_csc_mold(a,b,info) import class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_mold end interface - + !> \memberof psb_s_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_s_csc_sparse_mat), intent(inout) :: a @@ -211,147 +213,147 @@ module psb_s_csc_mat_mod end subroutine psb_s_csc_allocate_mnnz end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_print interface subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_s_csc_sparse_mat), intent(in) :: a + class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_csc_print end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_coo - interface - subroutine psb_s_cp_csc_to_coo(a,b,info) + interface + subroutine psb_s_cp_csc_to_coo(a,b,info) import class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_to_coo end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_coo - interface - subroutine psb_s_cp_csc_from_coo(a,b,info) + interface + subroutine psb_s_cp_csc_from_coo(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_from_coo end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_fmt - interface - subroutine psb_s_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_s_cp_csc_to_fmt(a,b,info) import class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_to_fmt end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_fmt - interface - subroutine psb_s_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_s_cp_csc_from_fmt(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csc_from_fmt end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_coo - interface - subroutine psb_s_mv_csc_to_coo(a,b,info) + interface + subroutine psb_s_mv_csc_to_coo(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_to_coo end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_coo - interface - subroutine psb_s_mv_csc_from_coo(a,b,info) + interface + subroutine psb_s_mv_csc_from_coo(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_from_coo end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_fmt - interface - subroutine psb_s_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_s_mv_csc_to_fmt(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_to_fmt end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_fmt - interface - subroutine psb_s_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_s_mv_csc_from_fmt(a,b,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros ! interface subroutine psb_s_csc_clean_zeros(a, info) - import + import class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_clean_zeros end interface - - + + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from - interface + interface subroutine psb_s_csc_cp_from(a,b) import class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(in) :: b end subroutine psb_s_csc_cp_from end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from - interface + interface subroutine psb_s_csc_mv_from(a,b) import class(psb_s_csc_sparse_mat), intent(inout) :: a type(psb_s_csc_sparse_mat), intent(inout) :: b end subroutine psb_s_csc_mv_from end interface - - + + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csput_a - interface - subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -360,10 +362,10 @@ module psb_s_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_csput_a end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -378,10 +380,10 @@ module psb_s_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csc_csgetptn end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csgetrow - interface + interface subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import :: psb_ipk_, psb_s_csc_sparse_mat, psb_spk_ @@ -400,7 +402,7 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csgetblk - interface + interface subroutine psb_s_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) import @@ -414,11 +416,11 @@ module psb_s_csc_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_s_csc_csgetblk end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssv - interface - subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -429,8 +431,8 @@ module psb_s_csc_mat_mod end interface !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssm - interface - subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -439,11 +441,11 @@ module psb_s_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csc_cssm end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmv - interface - subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -455,8 +457,8 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmm - interface - subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -465,21 +467,21 @@ module psb_s_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csc_csmm end interface - - + + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_maxval - interface + interface function psb_s_csc_maxval(a) result(res) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csc_maxval end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csnm1 - interface + interface function psb_s_csc_csnm1(a) result(res) import class(psb_s_csc_sparse_mat), intent(in) :: a @@ -489,8 +491,8 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_rowsum - interface - subroutine psb_s_csc_rowsum(d,a) + interface + subroutine psb_s_csc_rowsum(d,a) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -499,18 +501,18 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_arwsum - interface - subroutine psb_s_csc_arwsum(d,a) + interface + subroutine psb_s_csc_arwsum(d,a) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_arwsum end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_colsum - interface - subroutine psb_s_csc_colsum(d,a) + interface + subroutine psb_s_csc_colsum(d,a) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -519,29 +521,29 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_aclsum - interface - subroutine psb_s_csc_aclsum(d,a) + interface + subroutine psb_s_csc_aclsum(d,a) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csc_aclsum end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_get_diag - interface - subroutine psb_s_csc_get_diag(a,d,info) + interface + subroutine psb_s_csc_get_diag(a,d,info) import class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_get_diag end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scal - interface - subroutine psb_s_csc_scal(d,a,info,side) + interface + subroutine psb_s_csc_scal(d,a,info,side) import class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) @@ -549,42 +551,53 @@ module psb_s_csc_mat_mod character, intent(in), optional :: side end subroutine psb_s_csc_scal end interface - + !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scals interface - subroutine psb_s_csc_scals(d,a,info) + subroutine psb_s_csc_scals(d,a,info) import class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csc_scals end interface - + + !> \memberof psb_s_csc_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity + interface + subroutine psb_s_csc_scalplusidentity(d,a,info) + import + class(psb_s_csc_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_csc_scalplusidentity + end interface + ! ! ls - ! + ! !> \memberof psb_ls_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_ls_csc_reallocate_nz(nz,a) + subroutine psb_ls_csc_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_ls_csc_sparse_mat), intent(inout) :: a end subroutine psb_ls_csc_reallocate_nz end interface - + !> \memberof psb_ls_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_ls_csc_reinit(a,clear) import - class(psb_ls_csc_sparse_mat), intent(inout) :: a + class(psb_ls_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ls_csc_reinit end interface - + !> \memberof psb_ls_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -593,22 +606,22 @@ module psb_s_csc_mat_mod class(psb_ls_csc_sparse_mat), intent(inout) :: a end subroutine psb_ls_csc_trim end interface - + !> \memberof psb_ls_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ls_csc_mold(a,b,info) + interface + subroutine psb_ls_csc_mold(a,b,info) import class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csc_mold end interface - + !> \memberof psb_ls_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_ls_csc_sparse_mat), intent(inout) :: a @@ -616,146 +629,146 @@ module psb_s_csc_mat_mod end subroutine psb_ls_csc_allocate_mnnz end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_print interface subroutine psb_ls_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_ls_csc_sparse_mat), intent(in) :: a + class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ls_csc_print end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_coo - interface - subroutine psb_ls_cp_csc_to_coo(a,b,info) + interface + subroutine psb_ls_cp_csc_to_coo(a,b,info) import class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csc_to_coo end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_coo - interface - subroutine psb_ls_cp_csc_from_coo(a,b,info) + interface + subroutine psb_ls_cp_csc_from_coo(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csc_from_coo end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_fmt - interface - subroutine psb_ls_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_ls_cp_csc_to_fmt(a,b,info) import class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csc_to_fmt end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_fmt - interface - subroutine psb_ls_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_ls_cp_csc_from_fmt(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csc_from_fmt end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_coo - interface - subroutine psb_ls_mv_csc_to_coo(a,b,info) + interface + subroutine psb_ls_mv_csc_to_coo(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csc_to_coo end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_coo - interface - subroutine psb_ls_mv_csc_from_coo(a,b,info) + interface + subroutine psb_ls_mv_csc_from_coo(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csc_from_coo end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_fmt - interface - subroutine psb_ls_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_ls_mv_csc_to_fmt(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csc_to_fmt end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_fmt - interface - subroutine psb_ls_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_ls_mv_csc_from_fmt(a,b,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros ! interface subroutine psb_ls_csc_clean_zeros(a, info) - import + import class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csc_clean_zeros end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from - interface + interface subroutine psb_ls_csc_cp_from(a,b) import class(psb_ls_csc_sparse_mat), intent(inout) :: a type(psb_ls_csc_sparse_mat), intent(in) :: b end subroutine psb_ls_csc_cp_from end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from - interface + interface subroutine psb_ls_csc_mv_from(a,b) import class(psb_ls_csc_sparse_mat), intent(inout) :: a type(psb_ls_csc_sparse_mat), intent(inout) :: b end subroutine psb_ls_csc_mv_from end interface - - + + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csput_a - interface - subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -764,10 +777,10 @@ module psb_s_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csc_csput_a end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ls_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -782,10 +795,10 @@ module psb_s_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csc_csgetptn end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csgetrow - interface + interface subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -804,7 +817,7 @@ module psb_s_csc_mat_mod !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csgetblk - interface + interface subroutine psb_ls_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import @@ -818,31 +831,31 @@ module psb_s_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csc_csgetblk end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_get_diag - interface - subroutine psb_ls_csc_get_diag(a,d,info) + interface + subroutine psb_ls_csc_get_diag(a,d,info) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csc_get_diag end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_maxval - interface + interface function psb_ls_csc_maxval(a) result(res) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_csc_maxval end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_csnm1 - interface + interface function psb_ls_csc_csnm1(a) result(res) import class(psb_ls_csc_sparse_mat), intent(in) :: a @@ -852,8 +865,8 @@ module psb_s_csc_mat_mod !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_rowsum - interface - subroutine psb_ls_csc_rowsum(d,a) + interface + subroutine psb_ls_csc_rowsum(d,a) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -862,18 +875,18 @@ module psb_s_csc_mat_mod !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_arwsum - interface - subroutine psb_ls_csc_arwsum(d,a) + interface + subroutine psb_ls_csc_arwsum(d,a) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_csc_arwsum end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_colsum - interface - subroutine psb_ls_csc_colsum(d,a) + interface + subroutine psb_ls_csc_colsum(d,a) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -882,18 +895,18 @@ module psb_s_csc_mat_mod !> \memberof psb_ls_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_aclsum - interface - subroutine psb_ls_csc_aclsum(d,a) + interface + subroutine psb_ls_csc_aclsum(d,a) import class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_csc_aclsum end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scal - interface - subroutine psb_ls_csc_scal(d,a,info,side) + interface + subroutine psb_ls_csc_scal(d,a,info,side) import class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) @@ -901,27 +914,36 @@ module psb_s_csc_mat_mod character, intent(in), optional :: side end subroutine psb_ls_csc_scal end interface - + !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scals interface - subroutine psb_ls_csc_scals(d,a,info) + subroutine psb_ls_csc_scals(d,a,info) import class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csc_scals end interface - - -contains + !> \memberof psb_ls_csc_sparse_mat + !! \see psb_ls_base_mat_mod::psb_ls_base_scalplusidentity + interface + subroutine psb_ls_csc_scalplusidentity(d,a,info) + import + class(psb_ls_csc_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_csc_scalplusidentity + end interface + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -929,54 +951,54 @@ contains ! ! == =================================== - + function s_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function s_csc_is_by_cols - + function s_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%icp) res = res + psb_sizeof_ip * psb_size(a%ia) - + end function s_csc_sizeof function s_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function s_csc_get_fmt - + function s_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function s_csc_get_nzeros function s_csc_get_size(a) result(res) - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -988,17 +1010,17 @@ contains function s_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function s_csc_get_nz_col @@ -1013,11 +1035,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine s_csc_free(a) - implicit none + subroutine s_csc_free(a) + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a @@ -1027,7 +1049,7 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine s_csc_free @@ -1038,7 +1060,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1046,57 +1068,57 @@ contains ! ! == =================================== - + function ls_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function ls_csc_is_by_cols ! ! ls ! - + function ls_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2*psb_sizeof_lp res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%icp) res = res + psb_sizeof_lp * psb_size(a%ia) - + end function ls_csc_sizeof function ls_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function ls_csc_get_fmt - + function ls_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%icp(a%get_ncols()+1)-1 end function ls_csc_get_nzeros function ls_csc_get_size(a) result(res) - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1108,17 +1130,17 @@ contains function ls_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function ls_csc_get_nz_col @@ -1133,11 +1155,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine ls_csc_free(a) - implicit none + subroutine ls_csc_free(a) + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a @@ -1147,7 +1169,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine ls_csc_free diff --git a/base/modules/serial/psb_s_csr_mat_mod.f90 b/base/modules/serial/psb_s_csr_mat_mod.f90 index 14b41bff7..2e92151d5 100644 --- a/base/modules/serial/psb_s_csr_mat_mod.f90 +++ b/base/modules/serial/psb_s_csr_mat_mod.f90 @@ -1,10 +1,10 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -16,7 +16,7 @@ ! 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 @@ -28,8 +28,8 @@ ! 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. -! -! +! +! ! ! package: psb_s_csr_mat_mod ! @@ -48,17 +48,17 @@ module psb_s_csr_mat_mod !> \namespace psb_base_mod \class psb_s_csr_sparse_mat !! \extends psb_s_base_mat_mod::psb_s_base_sparse_mat - !! + !! !! psb_s_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_s_base_sparse_mat) :: psb_s_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_ipk_), allocatable :: irp(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) contains @@ -73,6 +73,7 @@ module psb_s_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csr_cssv procedure, pass(a) :: scals => psb_s_csr_scals procedure, pass(a) :: scalv => psb_s_csr_scal + procedure, pass(a) :: scalpid => psb_s_csr_scalplusidentity procedure, pass(a) :: maxval => psb_s_csr_maxval procedure, pass(a) :: spnmi => psb_s_csr_csnmi procedure, pass(a) :: rowsum => psb_s_csr_rowsum @@ -112,23 +113,23 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_s_csr_reallocate_nz(nz,a) + subroutine psb_s_csr_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_s_csr_sparse_mat), intent(inout) :: a end subroutine psb_s_csr_reallocate_nz end interface - + !> \memberof psb_s_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_s_csr_reinit(a,clear) import - class(psb_s_csr_sparse_mat), intent(inout) :: a + class(psb_s_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_csr_reinit end interface - + !> \memberof psb_s_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -138,22 +139,22 @@ module psb_s_csr_mat_mod end subroutine psb_s_csr_trim end interface - + !> \memberof psb_s_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_s_csr_mold(a,b,info) + interface + subroutine psb_s_csr_mold(a,b,info) import class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_mold end interface - + !> \memberof psb_s_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_s_csr_sparse_mat), intent(inout) :: a @@ -161,14 +162,14 @@ module psb_s_csr_mat_mod end subroutine psb_s_csr_allocate_mnnz end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_print interface subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_s_csr_sparse_mat), intent(in) :: a + class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -187,27 +188,27 @@ module psb_s_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_s_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -216,13 +217,13 @@ module psb_s_csr_mat_mod class(psb_s_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_s_csr_tril end interface - + ! !> Function triu: !! \memberof psb_s_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -231,27 +232,27 @@ module psb_s_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_s_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -260,133 +261,133 @@ module psb_s_csr_mat_mod class(psb_s_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_s_csr_triu end interface - + ! - !> + !> !! \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_clean_zeros ! interface subroutine psb_s_csr_clean_zeros(a, info) - import + import class(psb_s_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_clean_zeros end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_coo - interface - subroutine psb_s_cp_csr_to_coo(a,b,info) + interface + subroutine psb_s_cp_csr_to_coo(a,b,info) import class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_to_coo end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_coo - interface - subroutine psb_s_cp_csr_from_coo(a,b,info) + interface + subroutine psb_s_cp_csr_from_coo(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_from_coo end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_to_fmt - interface - subroutine psb_s_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_s_cp_csr_to_fmt(a,b,info) import class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_to_fmt end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from_fmt - interface - subroutine psb_s_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_s_cp_csr_from_fmt(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_cp_csr_from_fmt end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_coo - interface - subroutine psb_s_mv_csr_to_coo(a,b,info) + interface + subroutine psb_s_mv_csr_to_coo(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_to_coo end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_coo - interface - subroutine psb_s_mv_csr_from_coo(a,b,info) + interface + subroutine psb_s_mv_csr_from_coo(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_from_coo end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_to_fmt - interface - subroutine psb_s_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_s_mv_csr_to_fmt(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_to_fmt end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from_fmt - interface - subroutine psb_s_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_s_mv_csr_from_fmt(a,b,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_s_mv_csr_from_fmt end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cp_from - interface + interface subroutine psb_s_csr_cp_from(a,b) import class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(in) :: b end subroutine psb_s_csr_cp_from end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_mv_from - interface + interface subroutine psb_s_csr_mv_from(a,b) import class(psb_s_csr_sparse_mat), intent(inout) :: a type(psb_s_csr_sparse_mat), intent(inout) :: b end subroutine psb_s_csr_mv_from end interface - - + + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csput_a - interface - subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -395,10 +396,10 @@ module psb_s_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_csput_a end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -413,10 +414,10 @@ module psb_s_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csr_csgetptn end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csgetrow - interface + interface subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import @@ -435,8 +436,8 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssv - interface - subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -447,8 +448,8 @@ module psb_s_csr_mat_mod end interface !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_cssm - interface - subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -457,11 +458,11 @@ module psb_s_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csr_cssm end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmv - interface - subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -473,8 +474,8 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csmm - interface - subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -483,32 +484,32 @@ module psb_s_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csr_csmm end interface - - + + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_maxval - interface + interface function psb_s_csr_maxval(a) result(res) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_maxval end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_csnmi - interface + interface function psb_s_csr_csnmi(a) result(res) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_s_csr_csnmi end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_rowsum - interface - subroutine psb_s_csr_rowsum(d,a) + interface + subroutine psb_s_csr_rowsum(d,a) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -517,18 +518,18 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_arwsum - interface - subroutine psb_s_csr_arwsum(d,a) + interface + subroutine psb_s_csr_arwsum(d,a) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_arwsum end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_colsum - interface - subroutine psb_s_csr_colsum(d,a) + interface + subroutine psb_s_csr_colsum(d,a) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -537,29 +538,29 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_aclsum - interface - subroutine psb_s_csr_aclsum(d,a) + interface + subroutine psb_s_csr_aclsum(d,a) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_s_csr_aclsum end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_get_diag - interface - subroutine psb_s_csr_get_diag(a,d,info) + interface + subroutine psb_s_csr_get_diag(a,d,info) import class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_get_diag end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scal - interface - subroutine psb_s_csr_scal(d,a,info,side) + interface + subroutine psb_s_csr_scal(d,a,info,side) import class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) @@ -567,32 +568,43 @@ module psb_s_csr_mat_mod character, intent(in), optional :: side end subroutine psb_s_csr_scal end interface - + !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scals interface - subroutine psb_s_csr_scals(d,a,info) + subroutine psb_s_csr_scals(d,a,info) import class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csr_scals end interface - + + !> \memberof psb_s_csr_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity + interface + subroutine psb_s_csr_scalplusidentity(d,a,info) + import + class(psb_s_csr_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_csr_scalplusidentity + end interface + !> \namespace psb_base_mod \class psb_ls_csr_sparse_mat !! \extends psb_ls_base_mat_mod::psb_ls_base_sparse_mat - !! + !! !! psb_ls_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_ls_base_sparse_mat) :: psb_ls_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_lpk_), allocatable :: irp(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. real(psb_spk_), allocatable :: val(:) contains @@ -642,23 +654,23 @@ module psb_s_csr_mat_mod !> \memberof psb_ls_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_ls_csr_reallocate_nz(nz,a) + subroutine psb_ls_csr_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_ls_csr_sparse_mat), intent(inout) :: a end subroutine psb_ls_csr_reallocate_nz end interface - + !> \memberof psb_ls_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_ls_csr_reinit(a,clear) import - class(psb_ls_csr_sparse_mat), intent(inout) :: a + class(psb_ls_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ls_csr_reinit end interface - + !> \memberof psb_ls_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -668,22 +680,22 @@ module psb_s_csr_mat_mod end subroutine psb_ls_csr_trim end interface - + !> \memberof psb_ls_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_ls_csr_mold(a,b,info) + interface + subroutine psb_ls_csr_mold(a,b,info) import class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csr_mold end interface - + !> \memberof psb_ls_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_ls_csr_sparse_mat), intent(inout) :: a @@ -691,14 +703,14 @@ module psb_s_csr_mat_mod end subroutine psb_ls_csr_allocate_mnnz end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_print interface subroutine psb_ls_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_ls_csr_sparse_mat), intent(in) :: a + class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -717,27 +729,27 @@ module psb_s_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ls_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -746,13 +758,13 @@ module psb_s_csr_mat_mod class(psb_ls_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_ls_csr_tril end interface - + ! !> Function triu: !! \memberof psb_s_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -761,27 +773,27 @@ module psb_s_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_ls_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -792,133 +804,133 @@ module psb_s_csr_mat_mod end interface ! - !> + !> !! \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_clean_zeros ! interface subroutine psb_ls_csr_clean_zeros(a, info) - import + import class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csr_clean_zeros end interface - - + + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_coo - interface - subroutine psb_ls_cp_csr_to_coo(a,b,info) + interface + subroutine psb_ls_cp_csr_to_coo(a,b,info) import class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csr_to_coo end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_coo - interface - subroutine psb_ls_cp_csr_from_coo(a,b,info) + interface + subroutine psb_ls_cp_csr_from_coo(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csr_from_coo end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_to_fmt - interface - subroutine psb_ls_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_ls_cp_csr_to_fmt(a,b,info) import class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csr_to_fmt end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from_fmt - interface - subroutine psb_ls_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_ls_cp_csr_from_fmt(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_cp_csr_from_fmt end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_coo - interface - subroutine psb_ls_mv_csr_to_coo(a,b,info) + interface + subroutine psb_ls_mv_csr_to_coo(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csr_to_coo end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_coo - interface - subroutine psb_ls_mv_csr_from_coo(a,b,info) + interface + subroutine psb_ls_mv_csr_from_coo(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csr_from_coo end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_to_fmt - interface - subroutine psb_ls_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_ls_mv_csr_to_fmt(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csr_to_fmt end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from_fmt - interface - subroutine psb_ls_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_ls_mv_csr_from_fmt(a,b,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_mv_csr_from_fmt end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_cp_from - interface + interface subroutine psb_ls_csr_cp_from(a,b) import class(psb_ls_csr_sparse_mat), intent(inout) :: a type(psb_ls_csr_sparse_mat), intent(in) :: b end subroutine psb_ls_csr_cp_from end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_mv_from - interface + interface subroutine psb_ls_csr_mv_from(a,b) import class(psb_ls_csr_sparse_mat), intent(inout) :: a type(psb_ls_csr_sparse_mat), intent(inout) :: b end subroutine psb_ls_csr_mv_from end interface - - + + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csput_a - interface - subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -927,10 +939,10 @@ module psb_s_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csr_csput_a end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_ls_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -945,10 +957,10 @@ module psb_s_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csr_csgetptn end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_csgetrow - interface + interface subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -964,11 +976,11 @@ module psb_s_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csr_csgetrow end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_get_diag - interface - subroutine psb_ls_csr_get_diag(a,d,info) + interface + subroutine psb_ls_csr_get_diag(a,d,info) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -978,8 +990,8 @@ module psb_s_csr_mat_mod !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scal - interface - subroutine psb_ls_csr_scal(d,a,info,side) + interface + subroutine psb_ls_csr_scal(d,a,info,side) import class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) @@ -987,42 +999,42 @@ module psb_s_csr_mat_mod character, intent(in), optional :: side end subroutine psb_ls_csr_scal end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scals interface - subroutine psb_ls_csr_scals(d,a,info) + subroutine psb_ls_csr_scals(d,a,info) import class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csr_scals end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_maxval - interface + interface function psb_ls_csr_maxval(a) result(res) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_csr_maxval end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_csnmi - interface + interface function psb_ls_csr_csnmi(a) result(res) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res end function psb_ls_csr_csnmi end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_rowsum - interface - subroutine psb_ls_csr_rowsum(d,a) + interface + subroutine psb_ls_csr_rowsum(d,a) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -1031,18 +1043,18 @@ module psb_s_csr_mat_mod !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_arwsum - interface - subroutine psb_ls_csr_arwsum(d,a) + interface + subroutine psb_ls_csr_arwsum(d,a) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_csr_arwsum end interface - + !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_colsum - interface - subroutine psb_ls_csr_colsum(d,a) + interface + subroutine psb_ls_csr_colsum(d,a) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) @@ -1051,22 +1063,22 @@ module psb_s_csr_mat_mod !> \memberof psb_ls_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_ls_base_aclsum - interface - subroutine psb_ls_csr_aclsum(d,a) + interface + subroutine psb_ls_csr_aclsum(d,a) import class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) end subroutine psb_ls_csr_aclsum end interface - -contains + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1075,54 +1087,54 @@ contains ! == =================================== - + function s_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function s_csr_is_by_rows - + function s_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%irp) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function s_csr_sizeof function s_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function s_csr_get_fmt - + function s_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function s_csr_get_nzeros function s_csr_get_size(a) result(res) - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1134,17 +1146,17 @@ contains function s_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function s_csr_get_nz_row @@ -1159,10 +1171,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine s_csr_free(a) - implicit none + subroutine s_csr_free(a) + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a @@ -1172,18 +1184,18 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine s_csr_free - + ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1192,54 +1204,54 @@ contains ! == =================================== - + function ls_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function ls_csr_is_by_rows - + function ls_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res - res = 2 * psb_sizeof_lp + res = 2 * psb_sizeof_lp res = res + psb_sizeof_sp * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%irp) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function ls_csr_sizeof function ls_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function ls_csr_get_fmt - + function ls_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%irp(a%get_nrows()+1)-1 end function ls_csr_get_nzeros function ls_csr_get_size(a) result(res) - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1251,17 +1263,17 @@ contains function ls_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function ls_csr_get_nz_row @@ -1276,10 +1288,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine ls_csr_free(a) - implicit none + subroutine ls_csr_free(a) + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a @@ -1289,7 +1301,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine ls_csr_free diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index 96e39e9d0..1eaa37332 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_s_mat_mod ! @@ -37,7 +37,7 @@ ! provide a mean of switching, at run-time, among different formats, ! potentially unknown at the library compile-time by adding a layer of ! indirection. This type encapsulates the psb_s_base_sparse_mat class -! inside another class which is the one visible to the user. +! inside another class which is the one visible to the user. ! Most methods of the psb_s_mat_mod simply call the methods of the ! encapsulated class. ! The exceptions are mainly cscnv and cp_from/cp_to; these provide @@ -48,14 +48,14 @@ ! through the application life. ! In particular, computational methods can only be invoked when ! the matrix is in the ASSEMBLED state, whereas the other states are -! dedicated to operations on the internal matrix data. -! A sparse matrix can move between states according to the +! dedicated to operations on the internal matrix data. +! A sparse matrix can move between states according to the ! following state transition table. Associated with these states are ! the possible dynamic types of the inner matrix object. ! Only COO matrices can ever be in the BUILD state, whereas -! the ASSEMBLED and UPDATE state can be entered by any class. -! -! In Out Method +! the ASSEMBLED and UPDATE state can be entered by any class. +! +! In Out Method !| ---------------------------------- !| Null Build csall !| Build Build csput @@ -64,7 +64,7 @@ !| Assembled Update reinit !| Update Update csput !| Update Assembled cscnv -!| * unchanged reall +!| * unchanged reall !| Assembled Null free ! ! @@ -74,7 +74,7 @@ ! of the indices, which are PSB_LPK_ so that the entries ! are guaranteed to be able to contain global indices. ! This type only supports data handling and preprocessing, it is -! not supposed to be used for computations. +! not supposed to be used for computations. ! module psb_s_mat_mod @@ -84,7 +84,7 @@ 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 contains ! Getters @@ -126,12 +126,12 @@ module psb_s_mat_mod procedure, pass(a) :: set_unit => psb_s_set_unit procedure, pass(a) :: set_repeatable_updates => psb_s_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_s_csall procedure, pass(a) :: free => psb_s_free procedure, pass(a) :: trim => psb_s_trim procedure, pass(a) :: csput_a => psb_s_csput_a - procedure, pass(a) :: csput_v => psb_s_csput_v + procedure, pass(a) :: csput_v => psb_s_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_s_csgetptn procedure, pass(a) :: csgetrow => psb_s_csgetrow @@ -141,7 +141,7 @@ module psb_s_mat_mod procedure, pass(a) :: lcsgetptn => psb_s_lcsgetptn procedure, pass(a) :: lcsgetrow => psb_s_lcsgetrow generic, public :: csget => lcsgetptn, lcsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_s_tril procedure, pass(a) :: triu => psb_s_triu procedure, pass(a) :: m_csclip => psb_s_csclip @@ -168,7 +168,7 @@ module psb_s_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => s_mat_sync procedure, pass(a) :: is_host => s_mat_is_host @@ -204,16 +204,16 @@ module psb_s_mat_mod procedure, pass(a) :: mv_to_lb => psb_s_mv_to_lb procedure, pass(a) :: cp_from_lb => psb_s_cp_from_lb procedure, pass(a) :: cp_to_lb => psb_s_cp_to_lb - procedure, pass(a) :: mv_from_l => psb_s_mv_from_l - procedure, pass(a) :: mv_to_l => psb_s_mv_to_l - procedure, pass(a) :: cp_from_l => psb_s_cp_from_l - procedure, pass(a) :: cp_to_l => psb_s_cp_to_l + procedure, pass(a) :: mv_from_l => psb_s_mv_from_l + procedure, pass(a) :: mv_to_l => psb_s_mv_to_l + procedure, pass(a) :: cp_from_l => psb_s_cp_from_l + procedure, pass(a) :: cp_to_l => psb_s_cp_to_l generic, public :: mv_from => mv_from_lb, mv_from_l generic, public :: mv_to => mv_to_lb, mv_to_l generic, public :: cp_from => cp_from_lb, cp_from_l generic, public :: cp_to => cp_to_lb, cp_to_l - - ! Computational routines + + ! Computational routines procedure, pass(a) :: get_diag => psb_s_get_diag procedure, pass(a) :: maxval => psb_s_maxval procedure, pass(a) :: spnmi => psb_s_csnmi @@ -233,6 +233,7 @@ module psb_s_mat_mod procedure, pass(a) :: cssv => psb_s_cssv procedure, pass(a) :: cssm => psb_s_cssm generic, public :: spsm => cssm, cssv, cssv_v + procedure, pass(a) :: scalpid => psb_s_scalplusidentity end type psb_sspmat_type @@ -266,7 +267,7 @@ module psb_s_mat_mod type :: psb_lsspmat_type - class(psb_ls_base_sparse_mat), allocatable :: a + class(psb_ls_base_sparse_mat), allocatable :: a contains ! Getters @@ -295,7 +296,7 @@ module psb_s_mat_mod ! Setters procedure, pass(a) :: set_lnrows => psb_ls_set_lnrows procedure, pass(a) :: set_lncols => psb_ls_set_lncols -#if defined(IPK4) && defined(LPK8) +#if defined(IPK4) && defined(LPK8) procedure, pass(a) :: set_inrows => psb_ls_set_inrows procedure, pass(a) :: set_incols => psb_ls_set_incols generic, public :: set_nrows => set_inrows, set_lnrows @@ -304,7 +305,7 @@ module psb_s_mat_mod generic, public :: set_nrows => set_lnrows generic, public :: set_ncols => set_lncols #endif - + procedure, pass(a) :: set_dupl => psb_ls_set_dupl procedure, pass(a) :: set_null => psb_ls_set_null procedure, pass(a) :: set_bld => psb_ls_set_bld @@ -318,12 +319,12 @@ module psb_s_mat_mod procedure, pass(a) :: set_unit => psb_ls_set_unit procedure, pass(a) :: set_repeatable_updates => psb_ls_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_ls_csall procedure, pass(a) :: free => psb_ls_free procedure, pass(a) :: trim => psb_ls_trim procedure, pass(a) :: csput_a => psb_ls_csput_a - procedure, pass(a) :: csput_v => psb_ls_csput_v + procedure, pass(a) :: csput_v => psb_ls_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_ls_csgetptn procedure, pass(a) :: csgetrow => psb_ls_csgetrow @@ -333,7 +334,7 @@ module psb_s_mat_mod !!$ procedure, pass(a) :: icsgetptn => psb_ls_icsgetptn !!$ procedure, pass(a) :: icsgetrow => psb_ls_icsgetrow !!$ generic, public :: csget => icsgetptn, icsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_ls_tril procedure, pass(a) :: triu => psb_ls_triu procedure, pass(a) :: m_csclip => psb_ls_csclip @@ -360,7 +361,7 @@ module psb_s_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => ls_mat_sync procedure, pass(a) :: is_host => ls_mat_is_host @@ -396,16 +397,16 @@ module psb_s_mat_mod procedure, pass(a) :: mv_to_ib => psb_ls_mv_to_ib procedure, pass(a) :: cp_from_ib => psb_ls_cp_from_ib procedure, pass(a) :: cp_to_ib => psb_ls_cp_to_ib - procedure, pass(a) :: mv_from_i => psb_ls_mv_from_i - procedure, pass(a) :: mv_to_i => psb_ls_mv_to_i - procedure, pass(a) :: cp_from_i => psb_ls_cp_from_i - procedure, pass(a) :: cp_to_i => psb_ls_cp_to_i + procedure, pass(a) :: mv_from_i => psb_ls_mv_from_i + procedure, pass(a) :: mv_to_i => psb_ls_mv_to_i + procedure, pass(a) :: cp_from_i => psb_ls_cp_from_i + procedure, pass(a) :: cp_to_i => psb_ls_cp_to_i generic, public :: mv_from => mv_from_ib, mv_from_i generic, public :: mv_to => mv_to_ib, mv_to_i generic, public :: cp_from => cp_from_ib, cp_from_i generic, public :: cp_to => cp_to_ib, cp_to_i - ! Computational routines + ! Computational routines procedure, pass(a) :: get_diag => psb_ls_get_diag procedure, pass(a) :: maxval => psb_ls_maxval procedure, pass(a) :: spnmi => psb_ls_csnmi @@ -448,7 +449,7 @@ module psb_s_mat_mod ! ! ! - ! Setters + ! Setters ! ! ! @@ -458,142 +459,142 @@ module psb_s_mat_mod ! == =================================== - interface - subroutine psb_s_set_nrows(m,a) + interface + subroutine psb_s_set_nrows(m,a) import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_s_set_nrows end interface - - interface - subroutine psb_s_set_ncols(n,a) + + interface + subroutine psb_s_set_ncols(n,a) import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_s_set_ncols end interface - - interface - subroutine psb_s_set_dupl(n,a) + + interface + subroutine psb_s_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_s_set_dupl end interface - - interface - subroutine psb_s_set_null(a) + + interface + subroutine psb_s_set_null(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_null end interface - - interface - subroutine psb_s_set_bld(a) + + interface + subroutine psb_s_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_bld end interface - - interface - subroutine psb_s_set_upd(a) + + interface + subroutine psb_s_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_upd end interface - - interface - subroutine psb_s_set_asb(a) + + interface + subroutine psb_s_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_set_asb end interface - - interface - subroutine psb_s_set_sorted(a,val) + + interface + subroutine psb_s_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_sorted end interface - - interface - subroutine psb_s_set_triangle(a,val) + + interface + subroutine psb_s_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_triangle end interface - - interface - subroutine psb_s_set_symmetric(a,val) + + interface + subroutine psb_s_set_symmetric(a,val) import :: psb_ipk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_symmetric end interface - - interface - subroutine psb_s_set_unit(a,val) + + interface + subroutine psb_s_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_unit end interface - - interface - subroutine psb_s_set_lower(a,val) + + interface + subroutine psb_s_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_lower end interface - - interface - subroutine psb_s_set_upper(a,val) + + interface + subroutine psb_s_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_s_set_upper end interface - - interface + + interface subroutine psb_s_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_sspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_sspmat_type), intent(in) :: a + class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_sparse_print end interface - interface + interface subroutine psb_s_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_sspmat_type character(len=*), intent(in) :: fname - class(psb_sspmat_type), intent(in) :: a + class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_s_n_sparse_print end interface - - interface + + interface subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_sspmat_type - class(psb_sspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + class(psb_sspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_s_get_neigh end interface - - interface - subroutine psb_s_csall(nr,nc,a,info,nz) + + interface + subroutine psb_s_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc @@ -601,31 +602,31 @@ module psb_s_mat_mod integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_s_csall end interface - - interface - subroutine psb_s_reallocate_nz(nz,a) + + interface + subroutine psb_s_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type integer(psb_ipk_), intent(in) :: nz class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_reallocate_nz end interface - - interface - subroutine psb_s_free(a) + + interface + subroutine psb_s_free(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_free end interface - - interface - subroutine psb_s_trim(a) + + interface + subroutine psb_s_trim(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_trim end interface - - interface - subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -634,9 +635,9 @@ module psb_s_mat_mod end subroutine psb_s_csput_a end interface - - interface - subroutine psb_s_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_s_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_vect_mod, only : psb_s_vect_type use psb_i_vect_mod, only : psb_i_vect_type import :: psb_ipk_, psb_lpk_, psb_sspmat_type @@ -647,8 +648,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_csput_v end interface - - interface + + interface subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -663,8 +664,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetptn end interface - - interface + + interface subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -680,8 +681,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetrow end interface - - interface + + interface subroutine psb_s_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -695,8 +696,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csgetblk end interface - - interface + + interface subroutine psb_s_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -708,8 +709,8 @@ module psb_s_mat_mod class(psb_sspmat_type), optional, intent(inout) :: u end subroutine psb_s_tril end interface - - interface + + interface subroutine psb_s_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -723,7 +724,7 @@ module psb_s_mat_mod end interface - interface + interface subroutine psb_s_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -734,8 +735,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_csclip end interface - - interface + + interface subroutine psb_s_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_coo_sparse_mat @@ -746,60 +747,60 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_s_b_csclip end interface - - interface + + interface subroutine psb_s_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_s_mold end interface - - interface - subroutine psb_s_asb(a,mold) + + interface + subroutine psb_s_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_s_asb end interface - - interface + + interface subroutine psb_s_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_transp_1mat end interface - - interface + + interface subroutine psb_s_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b end subroutine psb_s_transp_2mat end interface - - interface + + interface subroutine psb_s_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a end subroutine psb_s_transc_1mat end interface - - interface + + interface subroutine psb_s_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b end subroutine psb_s_transc_2mat end interface - - interface + + interface subroutine psb_s_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_sspmat_type - class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_s_reinit - + end interface @@ -814,9 +815,9 @@ module psb_s_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a @@ -827,9 +828,9 @@ module psb_s_mat_mod class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_s_cscnv end interface - - interface + + interface subroutine psb_s_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a @@ -839,9 +840,9 @@ module psb_s_mat_mod class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_s_cscnv_ip end interface - - interface + + interface subroutine psb_s_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a @@ -850,12 +851,12 @@ module psb_s_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_s_cscnv_base end interface - + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_s_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(in) :: a @@ -863,46 +864,46 @@ module psb_s_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_s_clip_d end interface - - interface + + interface subroutine psb_s_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_s_clip_d_ip end interface - + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_s_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_from end interface - - interface + + interface subroutine psb_s_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(in) :: b end subroutine psb_s_cp_from end interface - - interface + + interface subroutine psb_s_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_to end interface - - interface + + interface subroutine psb_s_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_s_cp_to @@ -910,63 +911,63 @@ module psb_s_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_s_mv_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_from_lb end interface - - interface + + interface subroutine psb_s_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_sspmat_type), intent(out) :: a class(psb_ls_base_sparse_mat), intent(in) :: b end subroutine psb_s_cp_from_lb end interface - - interface + + interface subroutine psb_s_mv_to_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_sspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_s_mv_to_lb end interface - - interface + + interface subroutine psb_s_cp_to_lb(a,b) - import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_sspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_s_cp_to_lb end interface - interface + interface subroutine psb_s_mv_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_lsspmat_type class(psb_sspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b end subroutine psb_s_mv_from_l end interface - - interface + + interface subroutine psb_s_cp_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_lsspmat_type class(psb_sspmat_type), intent(out) :: a class(psb_lsspmat_type), intent(in) :: b end subroutine psb_s_cp_from_l end interface - - interface + + interface subroutine psb_s_mv_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_lsspmat_type class(psb_sspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b end subroutine psb_s_mv_to_l end interface - - interface + + interface subroutine psb_s_cp_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_, psb_lsspmat_type class(psb_sspmat_type), intent(in) :: a @@ -976,8 +977,8 @@ module psb_s_mat_mod ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_sspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a @@ -985,8 +986,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_sspmat_type_move end interface - - interface + + interface subroutine psb_sspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_sspmat_type class(psb_sspmat_type), intent(inout) :: a @@ -1012,7 +1013,7 @@ module psb_s_mat_mod ! == =================================== interface psb_csmm - subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) + subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -1020,7 +1021,7 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csmm - subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) + subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1028,7 +1029,7 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_s_csmv - subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) + subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_s_vect_mod, only : psb_s_vect_type import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1039,9 +1040,9 @@ module psb_s_mat_mod character, optional, intent(in) :: trans end subroutine psb_s_csmv_vect end interface - + interface psb_cssm - subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) @@ -1050,7 +1051,7 @@ module psb_s_mat_mod character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_cssm - subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1059,7 +1060,7 @@ module psb_s_mat_mod character, optional, intent(in) :: trans, scale real(psb_spk_), intent(in), optional :: d(:) end subroutine psb_s_cssv - subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_s_vect_mod, only : psb_s_vect_type import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1071,24 +1072,24 @@ module psb_s_mat_mod type(psb_s_vect_type), optional, intent(inout) :: d end subroutine psb_s_cssv_vect end interface - - interface + + interface function psb_s_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_s_maxval end interface - - interface + + interface function psb_s_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_s_csnmi end interface - - interface + + interface function psb_s_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1096,7 +1097,7 @@ module psb_s_mat_mod end function psb_s_csnm1 end interface - interface + interface function psb_s_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1105,7 +1106,7 @@ module psb_s_mat_mod end function psb_s_rowsum end interface - interface + interface function psb_s_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1113,8 +1114,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_s_arwsum end interface - - interface + + interface function psb_s_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1123,7 +1124,7 @@ module psb_s_mat_mod end function psb_s_colsum end interface - interface + interface function psb_s_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1132,7 +1133,7 @@ module psb_s_mat_mod end function psb_s_aclsum end interface - interface + interface function psb_s_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ class(psb_sspmat_type), intent(in) :: a @@ -1140,7 +1141,7 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_s_get_diag end interface - + interface psb_scal subroutine psb_s_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ @@ -1157,12 +1158,20 @@ module psb_s_mat_mod end subroutine psb_s_scals end interface + interface psb_scalplusidentity + subroutine psb_s_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ + class(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_scalplusidentity + end interface ! == =================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -1172,156 +1181,156 @@ module psb_s_mat_mod ! == =================================== - interface - subroutine psb_ls_set_lnrows(m,a) + interface + subroutine psb_ls_set_lnrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m end subroutine psb_ls_set_lnrows #if defined(IPK4) && defined(LPK8) - subroutine psb_ls_set_inrows(m,a) + subroutine psb_ls_set_inrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_ls_set_inrows #endif end interface - - interface - subroutine psb_ls_set_lncols(n,a) + + interface + subroutine psb_ls_set_lncols(n,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n end subroutine psb_ls_set_lncols -#if defined(IPK4) && defined(LPK8) - subroutine psb_ls_set_incols(n,a) +#if defined(IPK4) && defined(LPK8) + subroutine psb_ls_set_incols(n,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_ls_set_incols #endif end interface - - interface - subroutine psb_ls_set_dupl(n,a) + + interface + subroutine psb_ls_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_ls_set_dupl end interface - - interface - subroutine psb_ls_set_null(a) + + interface + subroutine psb_ls_set_null(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_set_null end interface - - interface - subroutine psb_ls_set_bld(a) + + interface + subroutine psb_ls_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_set_bld end interface - - interface - subroutine psb_ls_set_upd(a) + + interface + subroutine psb_ls_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_set_upd end interface - - interface - subroutine psb_ls_set_asb(a) + + interface + subroutine psb_ls_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_set_asb end interface - - interface - subroutine psb_ls_set_sorted(a,val) + + interface + subroutine psb_ls_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_sorted end interface - - interface - subroutine psb_ls_set_triangle(a,val) + + interface + subroutine psb_ls_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_triangle end interface - - interface - subroutine psb_ls_set_symmetric(a,val) + + interface + subroutine psb_ls_set_symmetric(a,val) import :: psb_ipk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_symmetric end interface - - interface - subroutine psb_ls_set_unit(a,val) + + interface + subroutine psb_ls_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_unit end interface - - interface - subroutine psb_ls_set_lower(a,val) + + interface + subroutine psb_ls_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_lower end interface - - interface - subroutine psb_ls_set_upper(a,val) + + interface + subroutine psb_ls_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_ls_set_upper end interface - - interface + + interface subroutine psb_ls_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_lsspmat_type), intent(in) :: a + class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ls_sparse_print end interface - interface + interface subroutine psb_ls_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type character(len=*), intent(in) :: fname - class(psb_lsspmat_type), intent(in) :: a + class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_ls_n_sparse_print end interface - - interface + + interface subroutine psb_ls_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type - class(psb_lsspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + class(psb_lsspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev end subroutine psb_ls_get_neigh end interface - - interface - subroutine psb_ls_csall(nr,nc,a,info,nz) + + interface + subroutine psb_ls_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc @@ -1329,31 +1338,31 @@ module psb_s_mat_mod integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_ls_csall end interface - - interface - subroutine psb_ls_reallocate_nz(nz,a) + + interface + subroutine psb_ls_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type integer(psb_lpk_), intent(in) :: nz class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_reallocate_nz end interface - - interface - subroutine psb_ls_free(a) + + interface + subroutine psb_ls_free(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_free end interface - - interface - subroutine psb_ls_trim(a) + + interface + subroutine psb_ls_trim(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_trim end interface - - interface - subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -1362,9 +1371,9 @@ module psb_s_mat_mod end subroutine psb_ls_csput_a end interface - - interface - subroutine psb_ls_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_ls_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_vect_mod, only : psb_s_vect_type use psb_l_vect_mod, only : psb_l_vect_type import :: psb_ipk_, psb_lpk_, psb_lsspmat_type @@ -1375,8 +1384,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_csput_v end interface - - interface + + interface subroutine psb_ls_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1391,8 +1400,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csgetptn end interface - - interface + + interface subroutine psb_ls_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1408,8 +1417,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csgetrow end interface - - interface + + interface subroutine psb_ls_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1423,8 +1432,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csgetblk end interface - - interface + + interface subroutine psb_ls_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1436,8 +1445,8 @@ module psb_s_mat_mod class(psb_lsspmat_type), optional, intent(inout) :: u end subroutine psb_ls_tril end interface - - interface + + interface subroutine psb_ls_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1451,7 +1460,7 @@ module psb_s_mat_mod end interface - interface + interface subroutine psb_ls_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1462,8 +1471,8 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_csclip end interface - - interface + + interface subroutine psb_ls_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_coo_sparse_mat @@ -1474,60 +1483,60 @@ module psb_s_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_ls_b_csclip end interface - - interface + + interface subroutine psb_ls_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_ls_mold end interface - - interface - subroutine psb_ls_asb(a,mold) + + interface + subroutine psb_ls_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_ls_asb end interface - - interface + + interface subroutine psb_ls_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_transp_1mat end interface - - interface + + interface subroutine psb_ls_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b end subroutine psb_ls_transp_2mat end interface - - interface + + interface subroutine psb_ls_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a end subroutine psb_ls_transc_1mat end interface - - interface + + interface subroutine psb_ls_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b end subroutine psb_ls_transc_2mat end interface - - interface + + interface subroutine psb_ls_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type - class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_ls_reinit - + end interface @@ -1542,9 +1551,9 @@ module psb_s_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_ls_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(in) :: a @@ -1555,9 +1564,9 @@ module psb_s_mat_mod class(psb_ls_base_sparse_mat), intent(in), optional :: mold end subroutine psb_ls_cscnv end interface - - interface + + interface subroutine psb_ls_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a @@ -1567,9 +1576,9 @@ module psb_s_mat_mod class(psb_ls_base_sparse_mat), intent(in), optional :: mold end subroutine psb_ls_cscnv_ip end interface - - interface + + interface subroutine psb_ls_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(in) :: a @@ -1578,13 +1587,13 @@ module psb_s_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_ls_cscnv_base end interface - - + + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_ls_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(in) :: a @@ -1592,47 +1601,47 @@ module psb_s_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_ls_clip_d end interface - - interface + + interface subroutine psb_ls_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_ls_clip_d_ip end interface - - + + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_ls_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_mv_from end interface - - interface + + interface subroutine psb_ls_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(out) :: a class(psb_ls_base_sparse_mat), intent(in) :: b end subroutine psb_ls_cp_from end interface - - interface + + interface subroutine psb_ls_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_mv_to end interface - - interface + + interface subroutine psb_ls_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_ls_base_sparse_mat class(psb_lsspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_cp_to @@ -1640,63 +1649,63 @@ module psb_s_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_ls_mv_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_mv_from_ib end interface - - interface + + interface subroutine psb_ls_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_lsspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(in) :: b end subroutine psb_ls_cp_from_ib end interface - - interface + + interface subroutine psb_ls_mv_to_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_lsspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_mv_to_ib end interface - - interface + + interface subroutine psb_ls_cp_to_ib(a,b) - import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_s_base_sparse_mat class(psb_lsspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b end subroutine psb_ls_cp_to_ib end interface - interface + interface subroutine psb_ls_mv_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_sspmat_type class(psb_lsspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b end subroutine psb_ls_mv_from_i end interface - - interface + + interface subroutine psb_ls_cp_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_sspmat_type class(psb_lsspmat_type), intent(out) :: a class(psb_sspmat_type), intent(in) :: b end subroutine psb_ls_cp_from_i end interface - - interface + + interface subroutine psb_ls_mv_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_sspmat_type class(psb_lsspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b end subroutine psb_ls_mv_to_i end interface - - interface + + interface subroutine psb_ls_cp_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_, psb_sspmat_type class(psb_lsspmat_type), intent(in) :: a @@ -1704,11 +1713,11 @@ module psb_s_mat_mod end subroutine psb_ls_cp_to_i end interface - + ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_lsspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a @@ -1716,8 +1725,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lsspmat_type_move end interface - - interface + + interface subroutine psb_lsspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type class(psb_lsspmat_type), intent(inout) :: a @@ -1728,7 +1737,7 @@ module psb_s_mat_mod - interface + interface function psb_ls_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1736,7 +1745,7 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ls_get_diag end interface - + interface psb_scal subroutine psb_ls_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ @@ -1753,23 +1762,23 @@ module psb_s_mat_mod end subroutine psb_ls_scals end interface - interface + interface function psb_ls_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_ls_maxval end interface - - interface + + interface function psb_ls_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a real(psb_spk_) :: res end function psb_ls_csnmi end interface - - interface + + interface function psb_ls_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1777,7 +1786,7 @@ module psb_s_mat_mod end function psb_ls_csnm1 end interface - interface + interface function psb_ls_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1786,7 +1795,7 @@ module psb_s_mat_mod end function psb_ls_rowsum end interface - interface + interface function psb_ls_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1794,8 +1803,8 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ls_arwsum end interface - - interface + + interface function psb_ls_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1804,7 +1813,7 @@ module psb_s_mat_mod end function psb_ls_colsum end interface - interface + interface function psb_ls_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ class(psb_lsspmat_type), intent(in) :: a @@ -1812,40 +1821,40 @@ module psb_s_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_ls_aclsum end interface - -contains - subroutine psb_s_set_mat_default(a) - implicit none +contains + + subroutine psb_s_set_mat_default(a) + implicit none class(psb_s_base_sparse_mat), intent(in) :: a - - if (allocated(psb_s_base_mat_default)) then + + if (allocated(psb_s_base_mat_default)) then deallocate(psb_s_base_mat_default) end if allocate(psb_s_base_mat_default, mold=a) end subroutine psb_s_set_mat_default - + function psb_s_get_mat_default(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), pointer :: res - + res => psb_s_get_base_mat_default() - + end function psb_s_get_mat_default - + function psb_s_get_base_mat_default() result(res) - implicit none + implicit none class(psb_s_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_s_base_mat_default)) then + + if (.not.allocated(psb_s_base_mat_default)) then allocate(psb_s_csr_sparse_mat :: psb_s_base_mat_default) end if res => psb_s_base_mat_default - + end function psb_s_get_base_mat_default @@ -1855,7 +1864,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1863,26 +1872,26 @@ contains ! ! == =================================== - + function psb_s_sizeof(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_s_sizeof function psb_s_get_fmt(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -1892,11 +1901,11 @@ contains function psb_s_get_dupl(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -1904,11 +1913,11 @@ contains end function psb_s_get_dupl function psb_s_get_nrows(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -1917,11 +1926,11 @@ contains end function psb_s_get_nrows function psb_s_get_ncols(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -1930,11 +1939,11 @@ contains end function psb_s_get_ncols function psb_s_is_triangle(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -1943,11 +1952,11 @@ contains end function psb_s_is_triangle function psb_s_is_symmetric(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -1956,11 +1965,11 @@ contains end function psb_s_is_symmetric function psb_s_is_unit(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -1969,11 +1978,11 @@ contains end function psb_s_is_unit function psb_s_is_upper(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -1982,11 +1991,11 @@ contains end function psb_s_is_upper function psb_s_is_lower(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -1995,12 +2004,12 @@ contains end function psb_s_is_lower function psb_s_is_null(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2008,11 +2017,11 @@ contains end function psb_s_is_null function psb_s_is_bld(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2021,11 +2030,11 @@ contains end function psb_s_is_bld function psb_s_is_upd(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2034,11 +2043,11 @@ contains end function psb_s_is_upd function psb_s_is_asb(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2047,11 +2056,11 @@ contains end function psb_s_is_asb function psb_s_is_sorted(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2060,11 +2069,11 @@ contains end function psb_s_is_sorted function psb_s_is_by_rows(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2073,11 +2082,11 @@ contains end function psb_s_is_by_rows function psb_s_is_by_cols(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2088,61 +2097,61 @@ contains ! subroutine s_mat_sync(a) - implicit none + implicit none class(psb_sspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine s_mat_sync ! subroutine s_mat_set_host(a) - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine s_mat_set_host ! subroutine s_mat_set_dev(a) - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine s_mat_set_dev ! subroutine s_mat_set_sync(a) - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine s_mat_set_sync ! function s_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function s_mat_is_dev - + ! function s_mat_is_host(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2152,11 +2161,11 @@ contains ! function s_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2167,11 +2176,11 @@ contains function psb_s_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2179,25 +2188,25 @@ contains end function psb_s_is_repeatable_updates - subroutine psb_s_set_repeatable_updates(a,val) - implicit none + subroutine psb_s_set_repeatable_updates(a,val) + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_s_set_repeatable_updates function psb_s_get_nzeros(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2205,13 +2214,13 @@ contains function psb_s_get_size(a) result(res) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2219,23 +2228,23 @@ contains function psb_s_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_ipk_), intent(in) :: idx class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_s_get_nz_row subroutine psb_s_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_sspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_s_clean_zeros @@ -2243,7 +2252,7 @@ contains #if defined(IPK4) && defined(LPK8) subroutine psb_s_lcsgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2272,17 +2281,17 @@ contains end if call a%csget(imin,imax,nz,lia,lja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_s_lcsgetptn - + subroutine psb_s_lcsgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2311,12 +2320,12 @@ contains call a%csget(imin,imax,nz,lia,lja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_s_lcsgetrow #endif @@ -2324,38 +2333,38 @@ contains ! ls methods ! - - subroutine psb_ls_set_mat_default(a) - implicit none + + subroutine psb_ls_set_mat_default(a) + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a - - if (allocated(psb_ls_base_mat_default)) then + + if (allocated(psb_ls_base_mat_default)) then deallocate(psb_ls_base_mat_default) end if allocate(psb_ls_base_mat_default, mold=a) end subroutine psb_ls_set_mat_default - + function psb_ls_get_mat_default(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), pointer :: res - + res => psb_ls_get_base_mat_default() - + end function psb_ls_get_mat_default - + function psb_ls_get_base_mat_default() result(res) - implicit none + implicit none class(psb_ls_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_ls_base_mat_default)) then + + if (.not.allocated(psb_ls_base_mat_default)) then allocate(psb_ls_csr_sparse_mat :: psb_ls_base_mat_default) end if res => psb_ls_base_mat_default - + end function psb_ls_get_base_mat_default @@ -2365,7 +2374,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -2373,26 +2382,26 @@ contains ! ! == =================================== - + function psb_ls_sizeof(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_ls_sizeof function psb_ls_get_fmt(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -2402,11 +2411,11 @@ contains function psb_ls_get_dupl(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -2414,11 +2423,11 @@ contains end function psb_ls_get_dupl function psb_ls_get_nrows(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -2427,11 +2436,11 @@ contains end function psb_ls_get_nrows function psb_ls_get_ncols(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -2440,11 +2449,11 @@ contains end function psb_ls_get_ncols function psb_ls_is_triangle(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -2454,11 +2463,11 @@ contains function psb_ls_is_symmetric(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -2467,11 +2476,11 @@ contains end function psb_ls_is_symmetric function psb_ls_is_unit(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -2480,11 +2489,11 @@ contains end function psb_ls_is_unit function psb_ls_is_upper(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -2493,11 +2502,11 @@ contains end function psb_ls_is_upper function psb_ls_is_lower(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -2506,12 +2515,12 @@ contains end function psb_ls_is_lower function psb_ls_is_null(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2519,11 +2528,11 @@ contains end function psb_ls_is_null function psb_ls_is_bld(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2532,11 +2541,11 @@ contains end function psb_ls_is_bld function psb_ls_is_upd(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2545,11 +2554,11 @@ contains end function psb_ls_is_upd function psb_ls_is_asb(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2558,11 +2567,11 @@ contains end function psb_ls_is_asb function psb_ls_is_sorted(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2571,11 +2580,11 @@ contains end function psb_ls_is_sorted function psb_ls_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2584,11 +2593,11 @@ contains end function psb_ls_is_by_rows function psb_ls_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2599,61 +2608,61 @@ contains ! subroutine ls_mat_sync(a) - implicit none + implicit none class(psb_lsspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine ls_mat_sync ! subroutine ls_mat_set_host(a) - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine ls_mat_set_host ! subroutine ls_mat_set_dev(a) - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine ls_mat_set_dev ! subroutine ls_mat_set_sync(a) - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine ls_mat_set_sync ! function ls_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function ls_mat_is_dev - + ! function ls_mat_is_host(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2663,11 +2672,11 @@ contains ! function ls_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2678,11 +2687,11 @@ contains function psb_ls_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2690,25 +2699,25 @@ contains end function psb_ls_is_repeatable_updates - subroutine psb_ls_set_repeatable_updates(a,val) - implicit none + subroutine psb_ls_set_repeatable_updates(a,val) + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_ls_set_repeatable_updates function psb_ls_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2716,13 +2725,13 @@ contains function psb_ls_get_size(a) result(res) - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2730,23 +2739,23 @@ contains function psb_ls_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_lpk_), intent(in) :: idx class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_ls_get_nz_row subroutine psb_ls_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_lsspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_ls_clean_zeros @@ -2754,7 +2763,7 @@ contains #if defined(IPK4) && defined(LPK8) !!$ subroutine psb_ls_icsgetptn(imin,imax,a,nz,ia,ja,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lsspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2790,12 +2799,12 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_ls_icsgetptn -!!$ +!!$ !!$ subroutine psb_ls_icsgetrow(imin,imax,a,nz,ia,ja,val,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lsspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2831,7 +2840,7 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_ls_icsgetrow #endif diff --git a/base/modules/serial/psb_z_base_mat_mod.F90 b/base/modules/serial/psb_z_base_mat_mod.F90 index d18272426..f739af058 100644 --- a/base/modules/serial/psb_z_base_mat_mod.F90 +++ b/base/modules/serial/psb_z_base_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,12 +27,12 @@ ! 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. -! -! +! +! ! ! module psb_z_base_mat_mod - + use psb_base_mat_mod use psb_z_base_vect_mod @@ -56,59 +56,59 @@ module psb_z_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_z_base_csput_a - procedure, pass(a) :: csput_v => psb_z_base_csput_v + procedure, pass(a) :: csput_v => psb_z_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_z_base_csgetrow procedure, pass(a) :: csgetblk => psb_z_base_csgetblk procedure, pass(a) :: get_diag => psb_z_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_z_base_tril procedure, pass(a) :: triu => psb_z_base_triu - procedure, pass(a) :: csclip => psb_z_base_csclip - procedure, pass(a) :: cp_to_coo => psb_z_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_z_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_z_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_z_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_z_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_z_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_z_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_z_base_mv_from_fmt - procedure, pass(a) :: mold => psb_z_base_mold + procedure, pass(a) :: csclip => psb_z_base_csclip + procedure, pass(a) :: cp_to_coo => psb_z_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_z_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_z_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_z_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_z_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_z_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_z_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_z_base_mv_from_fmt + procedure, pass(a) :: mold => psb_z_base_mold procedure, pass(a) :: clone => psb_z_base_clone procedure, pass(a) :: make_nonunit => psb_z_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_z_base_clean_zeros ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_z_base_cp_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_z_base_cp_from_lcoo - procedure, pass(a) :: cp_to_lfmt => psb_z_base_cp_to_lfmt - procedure, pass(a) :: cp_from_lfmt => psb_z_base_cp_from_lfmt - procedure, pass(a) :: mv_to_lcoo => psb_z_base_mv_to_lcoo - procedure, pass(a) :: mv_from_lcoo => psb_z_base_mv_from_lcoo - procedure, pass(a) :: mv_to_lfmt => psb_z_base_mv_to_lfmt - procedure, pass(a) :: mv_from_lfmt => psb_z_base_mv_from_lfmt + procedure, pass(a) :: cp_to_lcoo => psb_z_base_cp_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_z_base_cp_from_lcoo + procedure, pass(a) :: cp_to_lfmt => psb_z_base_cp_to_lfmt + procedure, pass(a) :: cp_from_lfmt => psb_z_base_cp_from_lfmt + procedure, pass(a) :: mv_to_lcoo => psb_z_base_mv_to_lcoo + procedure, pass(a) :: mv_from_lcoo => psb_z_base_mv_from_lcoo + procedure, pass(a) :: mv_to_lfmt => psb_z_base_mv_to_lfmt + procedure, pass(a) :: mv_from_lfmt => psb_z_base_mv_from_lfmt + - ! - ! Transpose methods: defined here but not implemented. - ! + ! Transpose methods: defined here but not implemented. + ! procedure, pass(a) :: transp_1mat => psb_z_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_z_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_z_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_z_base_transc_2mat - + + ! + ! Computational methods: defined here but not implemented. ! - ! Computational methods: defined here but not implemented. - ! procedure, pass(a) :: vect_mv => psb_z_base_vect_mv procedure, pass(a) :: csmv => psb_z_base_csmv procedure, pass(a) :: csmm => psb_z_base_csmm generic, public :: spmm => csmm, csmv, vect_mv procedure, pass(a) :: in_vect_sv => psb_z_base_inner_vect_sv - procedure, pass(a) :: inner_cssv => psb_z_base_inner_cssv + procedure, pass(a) :: inner_cssv => psb_z_base_inner_cssv procedure, pass(a) :: inner_cssm => psb_z_base_inner_cssm generic, public :: inner_spsm => inner_cssm, inner_cssv, in_vect_sv procedure, pass(a) :: vect_cssv => psb_z_base_vect_cssv @@ -125,15 +125,16 @@ module psb_z_base_mat_mod procedure, pass(a) :: arwsum => psb_z_base_arwsum procedure, pass(a) :: colsum => psb_z_base_colsum procedure, pass(a) :: aclsum => psb_z_base_aclsum + procedure, pass(a) :: scalpid => psb_z_base_scalplusidentity end type psb_z_base_sparse_mat - + private :: z_base_mat_sync, z_base_mat_is_host, z_base_mat_is_dev, & & z_base_mat_is_sync, z_base_mat_set_host, z_base_mat_set_dev,& & z_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_z_coo_sparse_mat !! \extends psb_z_base_mat_mod::psb_z_base_sparse_mat - !! + !! !! psb_z_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -147,15 +148,15 @@ module psb_z_base_mat_mod integer(psb_ipk_), allocatable :: ia(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => z_coo_get_size procedure, pass(a) :: get_nzeros => z_coo_get_nzeros procedure, nopass :: get_fmt => z_coo_get_fmt @@ -174,9 +175,9 @@ module psb_z_base_mat_mod ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_lcoo => psb_z_cp_coo_to_lcoo - procedure, pass(a) :: cp_from_lcoo => psb_z_cp_coo_from_lcoo - + procedure, pass(a) :: cp_to_lcoo => psb_z_cp_coo_to_lcoo + procedure, pass(a) :: cp_from_lcoo => psb_z_cp_coo_from_lcoo + procedure, pass(a) :: csput_a => psb_z_coo_csput_a procedure, pass(a) :: get_diag => psb_z_coo_get_diag procedure, pass(a) :: csgetrow => psb_z_coo_csgetrow @@ -201,18 +202,18 @@ module psb_z_base_mat_mod ! This is COO specific ! procedure, pass(a) :: set_nzeros => z_coo_set_nzeros - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => z_coo_transp_1mat procedure, pass(a) :: transc_1mat => z_coo_transc_1mat ! - ! Computational methods. - ! + ! Computational methods. + ! procedure, pass(a) :: csmm => psb_z_coo_csmm procedure, pass(a) :: csmv => psb_z_coo_csmv procedure, pass(a) :: inner_cssm => psb_z_coo_cssm @@ -226,14 +227,15 @@ module psb_z_base_mat_mod procedure, pass(a) :: arwsum => psb_z_coo_arwsum procedure, pass(a) :: colsum => psb_z_coo_colsum procedure, pass(a) :: aclsum => psb_z_coo_aclsum - + procedure, pass(a) :: scalpid => psb_z_coo_scalplusidentity + end type psb_z_coo_sparse_mat - + private :: z_coo_get_nzeros, z_coo_set_nzeros, & & z_coo_get_fmt, z_coo_free, z_coo_sizeof, & & z_coo_transp_1mat, z_coo_transc_1mat - - + + !> \namespace psb_base_mod \class psb_lz_base_sparse_mat !! \extends psb_lbase_mat_mod::psb_lbase_sparse_mat !! The psb_lz_base_sparse_mat type, extending psb_base_sparse_mat, @@ -253,33 +255,33 @@ module psb_z_base_mat_mod contains ! ! Data management methods: defined here, but (mostly) not implemented. - ! + ! procedure, pass(a) :: csput_a => psb_lz_base_csput_a - procedure, pass(a) :: csput_v => psb_lz_base_csput_v + procedure, pass(a) :: csput_v => psb_lz_base_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetrow => psb_lz_base_csgetrow procedure, pass(a) :: csgetblk => psb_lz_base_csgetblk procedure, pass(a) :: get_diag => psb_lz_base_get_diag - generic, public :: csget => csgetrow, csgetblk + generic, public :: csget => csgetrow, csgetblk procedure, pass(a) :: tril => psb_lz_base_tril procedure, pass(a) :: triu => psb_lz_base_triu - procedure, pass(a) :: csclip => psb_lz_base_csclip - procedure, pass(a) :: cp_to_coo => psb_lz_base_cp_to_coo - procedure, pass(a) :: cp_from_coo => psb_lz_base_cp_from_coo - procedure, pass(a) :: cp_to_fmt => psb_lz_base_cp_to_fmt - procedure, pass(a) :: cp_from_fmt => psb_lz_base_cp_from_fmt - procedure, pass(a) :: mv_to_coo => psb_lz_base_mv_to_coo - procedure, pass(a) :: mv_from_coo => psb_lz_base_mv_from_coo - procedure, pass(a) :: mv_to_fmt => psb_lz_base_mv_to_fmt - procedure, pass(a) :: mv_from_fmt => psb_lz_base_mv_from_fmt - procedure, pass(a) :: mold => psb_lz_base_mold + procedure, pass(a) :: csclip => psb_lz_base_csclip + procedure, pass(a) :: cp_to_coo => psb_lz_base_cp_to_coo + procedure, pass(a) :: cp_from_coo => psb_lz_base_cp_from_coo + procedure, pass(a) :: cp_to_fmt => psb_lz_base_cp_to_fmt + procedure, pass(a) :: cp_from_fmt => psb_lz_base_cp_from_fmt + procedure, pass(a) :: mv_to_coo => psb_lz_base_mv_to_coo + procedure, pass(a) :: mv_from_coo => psb_lz_base_mv_from_coo + procedure, pass(a) :: mv_to_fmt => psb_lz_base_mv_to_fmt + procedure, pass(a) :: mv_from_fmt => psb_lz_base_mv_from_fmt + procedure, pass(a) :: mold => psb_lz_base_mold procedure, pass(a) :: clone => psb_lz_base_clone procedure, pass(a) :: make_nonunit => psb_lz_base_make_nonunit procedure, pass(a) :: clean_zeros => psb_lz_base_clean_zeros ! - ! Computational methods: defined here but not implemented. - ! + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_lz_base_scals procedure, pass(a) :: scalv => psb_lz_base_scal generic, public :: scal => scals, scalv @@ -290,35 +292,36 @@ module psb_z_base_mat_mod procedure, pass(a) :: arwsum => psb_lz_base_arwsum procedure, pass(a) :: colsum => psb_lz_base_colsum procedure, pass(a) :: aclsum => psb_lz_base_aclsum + procedure, pass(a) :: scalpid => psb_lz_base_scalplusidentity ! ! Convert internal indices ! - procedure, pass(a) :: cp_to_icoo => psb_lz_base_cp_to_icoo - procedure, pass(a) :: cp_from_icoo => psb_lz_base_cp_from_icoo - procedure, pass(a) :: cp_to_ifmt => psb_lz_base_cp_to_ifmt - procedure, pass(a) :: cp_from_ifmt => psb_lz_base_cp_from_ifmt - procedure, pass(a) :: mv_to_icoo => psb_lz_base_mv_to_icoo - procedure, pass(a) :: mv_from_icoo => psb_lz_base_mv_from_icoo - procedure, pass(a) :: mv_to_ifmt => psb_lz_base_mv_to_ifmt - procedure, pass(a) :: mv_from_ifmt => psb_lz_base_mv_from_ifmt - + procedure, pass(a) :: cp_to_icoo => psb_lz_base_cp_to_icoo + procedure, pass(a) :: cp_from_icoo => psb_lz_base_cp_from_icoo + procedure, pass(a) :: cp_to_ifmt => psb_lz_base_cp_to_ifmt + procedure, pass(a) :: cp_from_ifmt => psb_lz_base_cp_from_ifmt + procedure, pass(a) :: mv_to_icoo => psb_lz_base_mv_to_icoo + procedure, pass(a) :: mv_from_icoo => psb_lz_base_mv_from_icoo + procedure, pass(a) :: mv_to_ifmt => psb_lz_base_mv_to_ifmt + procedure, pass(a) :: mv_from_ifmt => psb_lz_base_mv_from_ifmt + + ! + ! Transpose methods: defined here but not implemented. ! - ! Transpose methods: defined here but not implemented. - ! procedure, pass(a) :: transp_1mat => psb_lz_base_transp_1mat procedure, pass(a) :: transp_2mat => psb_lz_base_transp_2mat procedure, pass(a) :: transc_1mat => psb_lz_base_transc_1mat procedure, pass(a) :: transc_2mat => psb_lz_base_transc_2mat - + end type psb_lz_base_sparse_mat - + private :: lz_base_mat_sync, lz_base_mat_is_host, lz_base_mat_is_dev, & & lz_base_mat_is_sync, lz_base_mat_set_host, lz_base_mat_set_dev,& & lz_base_mat_set_sync - + !> \namespace psb_base_mod \class psb_lz_coo_sparse_mat !! \extends psb_lz_base_mat_mod::psb_lz_base_sparse_mat - !! + !! !! psb_lz_coo_sparse_mat type and the related methods. This is the !! reference type for all the format transitions, copies and mv unless !! methods are implemented that allow the direct transition from one @@ -332,15 +335,15 @@ module psb_z_base_mat_mod integer(psb_lpk_), allocatable :: ia(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) integer, private :: sort_status=psb_unsorted_ - + contains ! - ! Data management methods. - ! + ! Data management methods. + ! procedure, pass(a) :: get_size => lz_coo_get_size procedure, pass(a) :: get_nzeros => lz_coo_get_nzeros procedure, nopass :: get_fmt => lz_coo_get_fmt @@ -357,7 +360,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: mv_from_fmt => psb_lz_mv_coo_from_fmt procedure, pass(a) :: cp_to_icoo => psb_lz_cp_coo_to_icoo procedure, pass(a) :: cp_from_icoo => psb_lz_cp_coo_from_icoo - + procedure, pass(a) :: csput_a => psb_lz_coo_csput_a procedure, pass(a) :: get_diag => psb_lz_coo_get_diag procedure, pass(a) :: csgetrow => psb_lz_coo_csgetrow @@ -378,9 +381,9 @@ module psb_z_base_mat_mod procedure, pass(a) :: set_sort_status => lz_coo_set_sort_status procedure, pass(a) :: get_sort_status => lz_coo_get_sort_status - - ! Computational methods: defined here but not implemented. - ! + + ! Computational methods: defined here but not implemented. + ! procedure, pass(a) :: scals => psb_lz_coo_scals procedure, pass(a) :: scalv => psb_lz_coo_scal procedure, pass(a) :: maxval => psb_lz_coo_maxval @@ -390,6 +393,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: arwsum => psb_lz_coo_arwsum procedure, pass(a) :: colsum => psb_lz_coo_colsum procedure, pass(a) :: aclsum => psb_lz_coo_aclsum + procedure, pass(a) :: scalpid => psb_lz_coo_scalplusidentity ! ! This is COO specific @@ -402,25 +406,25 @@ module psb_z_base_mat_mod procedure, pass(a) :: iset_nzeros => lz_coo_iset_nzeros generic, public :: set_nzeros => iset_nzeros #endif - + ! ! Transpose methods. These are the base of all ! indirection in transpose, together with conversions - ! they are sufficient for all cases. + ! they are sufficient for all cases. ! procedure, pass(a) :: transp_1mat => lz_coo_transp_1mat procedure, pass(a) :: transc_1mat => lz_coo_transc_1mat - + end type psb_lz_coo_sparse_mat - + private :: lz_coo_get_nzeros, lz_coo_iset_nzeros, & & lz_coo_get_fmt, lz_coo_free, lz_coo_sizeof, & & lz_coo_transp_1mat, lz_coo_transc_1mat #if defined(IPK4) && defined(LPK8) private :: lz_coo_lset_nzeros #endif - + ! == ================= ! ! BASE interfaces @@ -429,14 +433,14 @@ module psb_z_base_mat_mod !> Function csput: !! \memberof psb_z_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -449,33 +453,33 @@ module psb_z_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_csput_a end interface - - interface - subroutine psb_z_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_z_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -483,43 +487,43 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_z_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_z_base_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -532,33 +536,33 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_z_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_z_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_z_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(in) :: imin,imax @@ -569,34 +573,34 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_z_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_z_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_z_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -617,27 +621,27 @@ module psb_z_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_z_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -646,13 +650,13 @@ module psb_z_base_mat_mod class(psb_z_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_z_base_tril end interface - + ! !> Function triu: !! \memberof psb_z_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -661,27 +665,27 @@ module psb_z_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_z_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -690,27 +694,27 @@ module psb_z_base_mat_mod class(psb_z_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_z_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_z_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_z_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_z_base_get_diag(a,d,info) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_z_base_sparse_mat @@ -720,10 +724,10 @@ module psb_z_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mold(a,b,info) - import + ! + interface + subroutine psb_z_base_mold(a,b,info) + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -735,21 +739,21 @@ module psb_z_base_mat_mod !> Function clone: !! \memberof psb_z_base_sparse_mat !! \brief Allocate and clone a class(psb_z_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_z_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_clone end interface @@ -759,18 +763,18 @@ module psb_z_base_mat_mod !> Function make_nonunit: !! \memberof psb_z_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_z_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_z_base_sparse_mat @@ -778,16 +782,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_to_coo(a,b,info) + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_z_base_sparse_mat @@ -795,16 +799,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_from_coo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_z_base_sparse_mat @@ -813,16 +817,16 @@ module psb_z_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_to_fmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_z_base_sparse_mat @@ -831,16 +835,16 @@ module psb_z_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_from_fmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_z_base_sparse_mat @@ -848,16 +852,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_to_coo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_z_base_sparse_mat @@ -865,16 +869,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_from_coo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_z_base_sparse_mat @@ -883,16 +887,16 @@ module psb_z_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_to_fmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_z_base_sparse_mat @@ -901,10 +905,10 @@ module psb_z_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_from_fmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -917,16 +921,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_to_lcoo(a,b,info) + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_lcoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_z_base_sparse_mat @@ -934,16 +938,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_from_lcoo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_lcoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_z_base_sparse_mat @@ -952,16 +956,16 @@ module psb_z_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_to_lfmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_to_lfmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_z_base_sparse_mat @@ -970,16 +974,16 @@ module psb_z_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_cp_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_z_base_cp_from_lfmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_cp_from_lfmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_z_base_sparse_mat @@ -987,16 +991,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_to_lcoo(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_to_lcoo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_lcoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_z_base_sparse_mat @@ -1004,16 +1008,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_from_lcoo(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_from_lcoo(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_from_lcoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_z_base_sparse_mat @@ -1022,16 +1026,16 @@ module psb_z_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_to_lfmt(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_to_lfmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_mv_to_lfmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_z_base_sparse_mat @@ -1040,10 +1044,10 @@ module psb_z_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_z_base_mv_from_lfmt(a,b,info) - import + ! + interface + subroutine psb_z_base_mv_from_lfmt(a,b,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1052,78 +1056,78 @@ module psb_z_base_mat_mod ! - !> + !> !! \memberof psb_z_base_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros ! interface subroutine psb_z_base_clean_zeros(a, info) - import + import class(psb_z_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_clean_zeros end interface - + ! !> Function transp: !! \memberof psb_z_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_z_base_transp_2mat(a,b) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_z_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_z_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_z_base_transc_2mat(a,b) - import + import class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b end subroutine psb_z_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_z_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_z_base_transp_1mat(a) - import + import class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_z_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_z_base_transc_1mat(a) - import + import class(psb_z_base_sparse_mat), intent(inout) :: a end subroutine psb_z_base_transc_1mat end interface - + ! !> Function csmm: !! \memberof psb_z_base_sparse_mat @@ -1142,9 +1146,9 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! ! - interface + interface subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) - import + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1152,7 +1156,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_csmm end interface - + !> Function csmv: !! \memberof psb_z_base_sparse_mat !! \brief Product by a dense rank 1 array. @@ -1170,9 +1174,9 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1180,7 +1184,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_csmv end interface - + !> Function vect_mv: !! \memberof psb_z_base_sparse_mat !! \brief Product by an encapsulated array type(psb_z_vect_type) @@ -1192,7 +1196,7 @@ module psb_z_base_mat_mod !! versions with the standard arrays. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1205,9 +1209,9 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x @@ -1216,7 +1220,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_vect_mv end interface - + ! !> Function cssm: !! \memberof psb_z_base_sparse_mat @@ -1225,7 +1229,7 @@ module psb_z_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssm. + !! Internal workhorse called by cssm. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1237,9 +1241,9 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! ! - interface - subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1247,8 +1251,8 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_inner_cssm end interface - - + + ! !> Function cssv: !! \memberof psb_z_base_sparse_mat @@ -1257,7 +1261,7 @@ module psb_z_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by cssv. + !! Internal workhorse called by cssv. !! !! \param alpha Scaling factor for Ax !! \param A the input sparse matrix @@ -1269,12 +1273,12 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface - subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1282,7 +1286,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_inner_cssv end interface - + ! !> Function inner_vect_cssv: !! \memberof psb_z_base_sparse_mat @@ -1292,10 +1296,10 @@ module psb_z_base_mat_mod !! Compute !! Y = alpha*op(A^-1)*X + beta*Y !! - !! Internal workhorse called by vect_cssv. + !! Internal workhorse called by vect_cssv. !! Must be overridden explicitly in case of non standard memory !! management; an example would be external memory allocation - !! in attached processors such as GPUs. + !! in attached processors such as GPUs. !! !! !! \param alpha Scaling factor for Ax @@ -1307,9 +1311,9 @@ module psb_z_base_mat_mod !! \param trans [N] Whether to use A (N), its transpose (T) !! or its conjugate transpose (C) ! - interface - subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x, y @@ -1317,7 +1321,7 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_base_inner_vect_sv end interface - + ! !> Function cssm: !! \memberof psb_z_base_sparse_mat @@ -1336,12 +1340,12 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1350,7 +1354,7 @@ module psb_z_base_mat_mod complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_base_cssm end interface - + ! !> Function cssv: !! \memberof psb_z_base_sparse_mat @@ -1369,12 +1373,12 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D(:) [none] Diagonal for scaling. + !! \param D(:) [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1383,7 +1387,7 @@ module psb_z_base_mat_mod complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_base_cssv end interface - + ! !> Function vect_cssv: !! \memberof psb_z_base_sparse_mat @@ -1403,12 +1407,12 @@ module psb_z_base_mat_mod !! or its conjugate transpose (C) !! \param scale [N] Apply a scaling on Right (R) i.e. ADX !! or on the Left (L) i.e. DAx - !! \param D [none] Diagonal for scaling. + !! \param D [none] Diagonal for scaling. !! ! - interface + interface subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) - import + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x,y @@ -1417,24 +1421,24 @@ module psb_z_base_mat_mod class(psb_z_base_vect_type), optional, intent(inout) :: d end subroutine psb_z_base_vect_cssv end interface - + ! !> Function base_scals: !! \memberof psb_z_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_z_base_scals(d,a,info) - import + interface + subroutine psb_z_base_scals(d,a,info) + import class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_z_base_scals end interface - + ! !> Function base_scal: !! \memberof psb_z_base_sparse_mat @@ -1444,40 +1448,57 @@ module psb_z_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_z_base_scal(d,a,info,side) - import + interface + subroutine psb_z_base_scal(d,a,info,side) + import class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_z_base_scal end interface - + + ! + !> Function base_scalplusidentity: + !! \memberof psb_z_base_sparse_mat + !! \brief Scale a matrix by a vector and sums an identity + !! + !! \param d Scaling + !! \param info return code + ! + interface + subroutine psb_z_base_scalplusidentity(d,a,info) + import + class(psb_z_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_base_scalplusidentity + end interface + ! !> Function base_maxval: !! \memberof psb_z_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_z_base_maxval(a) result(res) - import + import class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_z_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_z_base_csnmi(a) result(res) - import + import class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_csnmi @@ -1488,11 +1509,11 @@ module psb_z_base_mat_mod !> Function base_csnmi: !! \memberof psb_z_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_z_base_csnm1(a) result(res) - import + import class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_base_csnm1 @@ -1504,11 +1525,11 @@ module psb_z_base_mat_mod !! \memberof psb_z_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_z_base_rowsum(d,a) - import + interface + subroutine psb_z_base_rowsum(d,a) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_rowsum @@ -1519,26 +1540,26 @@ module psb_z_base_mat_mod !! \memberof psb_z_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_z_base_arwsum(d,a) - import + !! + interface + subroutine psb_z_base_arwsum(d,a) + import class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_z_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_z_base_colsum(d,a) - import + interface + subroutine psb_z_base_colsum(d,a) + import class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_colsum @@ -1549,16 +1570,16 @@ module psb_z_base_mat_mod !! \memberof psb_z_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_z_base_aclsum(d,a) - import + !! + interface + subroutine psb_z_base_aclsum(d,a) + import class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_base_aclsum end interface - + ! == =============== ! ! COO interfaces @@ -1566,81 +1587,81 @@ module psb_z_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_z_coo_reallocate_nz(nz,a) - import + subroutine psb_z_coo_reallocate_nz(nz,a) + import integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_z_coo_reinit(a,clear) - import - class(psb_z_coo_sparse_mat), intent(inout) :: a + import + class(psb_z_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_coo_reinit end interface ! - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_z_coo_trim(a) - import + import class(psb_z_coo_sparse_mat), intent(inout) :: a end subroutine psb_z_coo_trim end interface ! - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros ! interface subroutine psb_z_coo_clean_zeros(a,info) - import + import class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_ipk_), intent(in) :: m,n class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_coo_allocate_mnnz end interface - + !> \memberof psb_z_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_z_coo_mold(a,b,info) - import + interface + subroutine psb_z_coo_mold(a,b,info) + import class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_z_coo_sparse_mat @@ -1655,17 +1676,17 @@ module psb_z_base_mat_mod ! interface subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_z_coo_sparse_mat), intent(in) :: a + class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_z_coo_sparse_mat @@ -1674,16 +1695,16 @@ module psb_z_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_z_coo_get_nz_row(idx,a) result(res) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res end function psb_z_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -1695,12 +1716,12 @@ module psb_z_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) complex(psb_dpk_), intent(inout) :: val(:) @@ -1709,162 +1730,162 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_z_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_z_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_z_fix_coo(a,info,idir) - import + interface + subroutine psb_z_fix_coo(a,info,idir) + import class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_z_fix_coo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_coo - interface - subroutine psb_z_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_z_cp_coo_to_coo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_coo - interface - subroutine psb_z_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_z_cp_coo_from_coo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_from_coo end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_coo - interface - subroutine psb_z_cp_coo_to_lcoo(a,b,info) - import + interface + subroutine psb_z_cp_coo_to_lcoo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_to_lcoo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_coo - interface - subroutine psb_z_cp_coo_from_lcoo(a,b,info) - import + interface + subroutine psb_z_cp_coo_from_lcoo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_from_lcoo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_coo - !! - interface - subroutine psb_z_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_z_cp_coo_to_fmt(a,b,info) + import class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_fmt - !! - interface - subroutine psb_z_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_z_cp_coo_from_fmt(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_coo - interface - subroutine psb_z_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_z_mv_coo_to_coo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_coo - interface - subroutine psb_z_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_z_mv_coo_from_coo(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_fmt - interface - subroutine psb_z_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_z_mv_coo_to_fmt(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_fmt - interface - subroutine psb_z_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_z_mv_coo_from_fmt(a,b,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_z_coo_cp_from(a,b) - import + import class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(in) :: b end subroutine psb_z_coo_cp_from end interface - - interface + + interface subroutine psb_z_coo_mv_from(a,b) - import + import class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(inout) :: b end subroutine psb_z_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_z_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -1881,9 +1902,9 @@ module psb_z_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz,ia(:), ja(:),& @@ -1891,14 +1912,14 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_csput_a end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1910,14 +1931,14 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_coo_csgetptn end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csgetrow - interface + interface subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -1930,13 +1951,13 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_z_coo_csgetrow end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssv - interface - subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1944,12 +1965,12 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_coo_cssv end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssm - interface - subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1957,13 +1978,13 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_coo_cssm end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmv - interface - subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1972,12 +1993,12 @@ module psb_z_base_mat_mod end subroutine psb_z_coo_csmv end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmm - interface - subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) - import + interface + subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1985,121 +2006,132 @@ module psb_z_base_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_coo_csmm end interface - - - !> + + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_maxval - interface + interface function psb_z_coo_maxval(a) result(res) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_maxval end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csnmi - interface + interface function psb_z_coo_csnmi(a) result(res) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_csnmi end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csnm1 - interface + interface function psb_z_coo_csnm1(a) result(res) - import + import class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_coo_csnm1 end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_rowsum - interface - subroutine psb_z_coo_rowsum(d,a) - import + interface + subroutine psb_z_coo_rowsum(d,a) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_rowsum end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_arwsum - interface - subroutine psb_z_coo_arwsum(d,a) - import + interface + subroutine psb_z_coo_arwsum(d,a) + import class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_arwsum end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_colsum - interface - subroutine psb_z_coo_colsum(d,a) - import + interface + subroutine psb_z_coo_colsum(d,a) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_colsum end interface - !> + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_aclsum - interface - subroutine psb_z_coo_aclsum(d,a) - import + interface + subroutine psb_z_coo_aclsum(d,a) + import class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_coo_aclsum end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_get_diag - interface - subroutine psb_z_coo_get_diag(a,d,info) - import + interface + subroutine psb_z_coo_get_diag(a,d,info) + import class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_get_diag end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scal - interface - subroutine psb_z_coo_scal(d,a,info,side) - import + interface + subroutine psb_z_coo_scal(d,a,info,side) + import class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_z_coo_scal end interface - - !> + + !> !! \memberof psb_z_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scals interface - subroutine psb_z_coo_scals(d,a,info) - import + subroutine psb_z_coo_scals(d,a,info) + import class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_scals end interface - + !> + !! \memberof psb_z_coo_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity + interface + subroutine psb_z_coo_scalplusidentity(d,a,info) + import + class(psb_z_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_coo_scalplusidentity + end interface + ! == ================= ! ! BASE interfaces @@ -2108,14 +2140,14 @@ module psb_z_base_mat_mod !> Function csput: !! \memberof psb_lz_base_sparse_mat - !! \brief Insert coefficients. + !! \brief Insert coefficients. !! !! !! Given a list of NZ triples !! (IA(i),JA(i),VAL(i)) !! record a new coefficient in A such that !! A(IA(1:nz),JA(1:nz)) = VAL(1:NZ). - !! + !! !! The internal components IA,JA,VAL are reallocated as necessary. !! Constraints: !! - If the matrix A is in the BUILD state, then the method will @@ -2128,33 +2160,33 @@ module psb_z_base_mat_mod !! A(IA(1:nz),JA(1:nz)) = A(IA(1:nz),JA(1:nz))+VAL(1:NZ) !! according to the value of DUPLICATE. !! - Coefficients with (IA(I),JA(I)) outside the ranges specified by - !! IMIN:IMAX,JMIN:JMAX will be ignored. - !! + !! IMIN:IMAX,JMIN:JMAX will be ignored. + !! !! \param nz number of triples in input !! \param ia(:) the input row indices !! \param ja(:) the input col indices !! \param val(:) the input coefficients - !! \param imin minimum row index - !! \param imax maximum row index - !! \param jmin minimum col index - !! \param jmax maximum col index + !! \param imin minimum row index + !! \param imax maximum row index + !! \param jmin minimum col index + !! \param jmax maximum col index !! \param info return code !! \param gtl(:) [none] an array to renumber indices (iren(ia(:)),iren(ja(:)) !! ! - interface - subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_csput_a end interface - - interface - subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + + interface + subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2162,43 +2194,43 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_csput_v end interface - + ! ! !> Function csgetrow: !! \memberof psb_lz_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getrow is the basic method by which the other (getblk, clip) can !! be implemented. - !! + !! !! Returns the set !! NZ, IA(1:nz), JA(1:nz), VAL(1:NZ) !! each identifying the position of a nonzero in A - !! between row indices IMIN:IMAX; + !! between row indices IMIN:IMAX; !! IA,JA are reallocated as necessary. - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param nz the number of output coefficients !! \param ia(:) the output row indices !! \param ja(:) the output col indices !! \param val(:) the output coefficients !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lz_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -2211,33 +2243,33 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_base_csgetrow end interface - + ! !> Function csgetblk: !! \memberof psb_lz_base_sparse_mat !! \brief Get a (subset of) row(s) - !! + !! !! getblk is very similar to getrow, except that the output !! is packaged in a psb_lz_coo_sparse_mat object - !! - !! \param imin the minimum row index we are interested in - !! \param imax the minimum row index we are interested in + !! + !! \param imin the minimum row index we are interested in + !! \param imax the minimum row index we are interested in !! \param b the output (sub)matrix !! \param info return code - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lz_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_lpk_), intent(in) :: imin,imax @@ -2248,34 +2280,34 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_base_csgetblk end interface - + ! ! !> Function csclip: !! \memberof psb_lz_base_sparse_mat !! \brief Get a submatrix. - !! + !! !! csclip is practically identical to getblk. !! One of them has to go away..... - !! + !! !! \param b the output submatrix !! \param info return code - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 - !! + !! ! - interface + interface subroutine psb_lz_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(out) :: b integer(psb_ipk_),intent(out) :: info @@ -2296,27 +2328,27 @@ module psb_z_base_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lz_base_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -2325,13 +2357,13 @@ module psb_z_base_mat_mod class(psb_lz_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_lz_base_tril end interface - + ! !> Function triu: !! \memberof psb_lz_base_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -2340,27 +2372,27 @@ module psb_z_base_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lz_base_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -2369,27 +2401,27 @@ module psb_z_base_mat_mod class(psb_lz_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_lz_base_triu end interface - - + + ! !> Function get_diag: !! \memberof psb_lz_base_sparse_mat - !! \brief Extract the diagonal of A. - !! + !! \brief Extract the diagonal of A. + !! !! D(i) = A(i:i), i=1:min(nrows,ncols) !! !! \param d(:) The output diagonal - !! \param info return code. - ! - interface - subroutine psb_lz_base_get_diag(a,d,info) - import + !! \param info return code. + ! + interface + subroutine psb_lz_base_get_diag(a,d,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_get_diag end interface - + ! !> Function mold: !! \memberof psb_lz_base_sparse_mat @@ -2399,10 +2431,10 @@ module psb_z_base_mat_mod !! for those compilers not yet supporting mold. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mold(a,b,info) - import + ! + interface + subroutine psb_lz_base_mold(a,b,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2414,21 +2446,21 @@ module psb_z_base_mat_mod !> Function clone: !! \memberof psb_lz_base_sparse_mat !! \brief Allocate and clone a class(psb_lz_base_sparse_mat) with the - !! same dynamic type as the input. + !! same dynamic type as the input. !! This is equivalent to allocate( source= ) except that !! it should guarantee a deep copy wherever needed. !! Should also be equivalent to calling mold and then copy, !! but it can also be implemented by default using cp_to_fmt. !! \param b The output variable !! \param info return code - ! - interface + ! + interface subroutine psb_lz_base_clone(a,b, info) - import - implicit none + import + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_clone end interface @@ -2438,18 +2470,18 @@ module psb_z_base_mat_mod !> Function make_nonunit: !! \memberof psb_lz_base_make_nonunit !! \brief Given a matrix for which is_unit() is true, explicitly - !! store the unit diagonal and set is_unit() to false. + !! store the unit diagonal and set is_unit() to false. !! This is needed e.g. when scaling - ! - interface + ! + interface subroutine psb_lz_base_make_nonunit(a) - import - implicit none + import + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a end subroutine psb_lz_base_make_nonunit end interface - + ! !> Function cp_to_coo: !! \memberof psb_lz_base_sparse_mat @@ -2457,16 +2489,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_to_coo(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_to_coo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_to_coo end interface - + ! !> Function cp_from_coo: !! \memberof psb_lz_base_sparse_mat @@ -2474,16 +2506,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_from_coo(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_from_coo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_from_coo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2492,16 +2524,16 @@ module psb_z_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_to_fmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_to_fmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_to_fmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2510,16 +2542,16 @@ module psb_z_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_from_fmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_from_fmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_from_fmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_lz_base_sparse_mat @@ -2527,16 +2559,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_to_coo(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_to_coo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_to_coo end interface - + ! !> Function mv_from_coo: !! \memberof psb_lz_base_sparse_mat @@ -2544,16 +2576,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_from_coo(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_from_coo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_from_coo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2562,16 +2594,16 @@ module psb_z_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_to_fmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_to_fmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_to_fmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2580,17 +2612,17 @@ module psb_z_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_from_fmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_from_fmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_from_fmt end interface - + ! !> Function cp_to_coo: !! \memberof psb_lz_base_sparse_mat @@ -2598,16 +2630,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_to_icoo(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_to_icoo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_to_icoo end interface - + ! !> Function cp_from_coo: !! \memberof psb_lz_base_sparse_mat @@ -2615,16 +2647,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_from_icoo(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_from_icoo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_from_icoo end interface - + ! !> Function cp_to_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2633,16 +2665,16 @@ module psb_z_base_mat_mod !! simply invoking a%cp_to_coo(tmp) and then b%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_to_ifmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_to_ifmt end interface - + ! !> Function cp_from_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2651,16 +2683,16 @@ module psb_z_base_mat_mod !! simply invoking b%cp_to_coo(tmp) and then a%cp_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_cp_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_cp_from_ifmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_cp_from_ifmt end interface - + ! !> Function mv_to_coo: !! \memberof psb_lz_base_sparse_mat @@ -2668,16 +2700,16 @@ module psb_z_base_mat_mod !! Invoked from the source object. !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_to_icoo(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_to_icoo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_to_icoo end interface - + ! !> Function mv_from_coo: !! \memberof psb_lz_base_sparse_mat @@ -2685,16 +2717,16 @@ module psb_z_base_mat_mod !! Invoked from the target object. !! \param b The input variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_from_icoo(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_from_icoo(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_from_icoo end interface - + ! !> Function mv_to_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2703,16 +2735,16 @@ module psb_z_base_mat_mod !! simply invoking a%mv_to_coo(tmp) and then b%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_to_ifmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_to_ifmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_mv_to_ifmt end interface - + ! !> Function mv_from_fmt: !! \memberof psb_lz_base_sparse_mat @@ -2721,10 +2753,10 @@ module psb_z_base_mat_mod !! simply invoking b%mv_to_coo(tmp) and then a%mv_from_coo(tmp). !! \param b The output variable !! \param info return code - ! - interface - subroutine psb_lz_base_mv_from_ifmt(a,b,info) - import + ! + interface + subroutine psb_lz_base_mv_from_ifmt(a,b,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2734,111 +2766,128 @@ module psb_z_base_mat_mod ! - !> + !> !! \memberof psb_lz_base_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros ! interface subroutine psb_lz_base_clean_zeros(a, info) - import + import class(psb_lz_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_clean_zeros end interface - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_maxval - interface + interface function psb_lz_coo_maxval(a) result(res) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_coo_maxval end interface - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_csnmi - interface + interface function psb_lz_coo_csnmi(a) result(res) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_coo_csnmi end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_csnm1 - interface + interface function psb_lz_coo_csnm1(a) result(res) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_coo_csnm1 end interface - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_rowsum - interface - subroutine psb_lz_coo_rowsum(d,a) - import + interface + subroutine psb_lz_coo_rowsum(d,a) + import class(psb_lz_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_coo_rowsum end interface - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_arwsum - interface - subroutine psb_lz_coo_arwsum(d,a) - import + interface + subroutine psb_lz_coo_arwsum(d,a) + import class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_coo_arwsum end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_colsum - interface - subroutine psb_lz_coo_colsum(d,a) - import + interface + subroutine psb_lz_coo_colsum(d,a) + import class(psb_lz_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_coo_colsum end interface - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_aclsum - interface - subroutine psb_lz_coo_aclsum(d,a) - import + interface + subroutine psb_lz_coo_aclsum(d,a) + import class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_coo_aclsum end interface - + ! !> Function base_scals: !! \memberof psb_lz_base_sparse_mat !! \brief Scale a matrix by a single scalar value !! - !! \param d Scaling factor + !! \param d Scaling factor !! \param info return code ! - interface - subroutine psb_lz_base_scals(d,a,info) - import + interface + subroutine psb_lz_base_scals(d,a,info) + import class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_scals end interface - + + ! + !> Function base_scalsplusidentity: + !! \memberof psb_lz_base_sparse_mat + !! \brief Scale a matrix by a single scalar value and adds identity + !! + !! \param d Scaling factor + !! \param info return code + ! + interface + subroutine psb_lz_base_scalplusidentity(d,a,info) + import + class(psb_lz_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_base_scalplusidentity + end interface + ! !> Function base_scal: !! \memberof psb_lz_base_sparse_mat @@ -2848,40 +2897,40 @@ module psb_z_base_mat_mod !! \param info return code !! \param side [L] Scale on the Left (rows) or on the Right (columns) ! - interface - subroutine psb_lz_base_scal(d,a,info,side) - import + interface + subroutine psb_lz_base_scal(d,a,info,side) + import class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_lz_base_scal end interface - + ! !> Function base_maxval: !! \memberof psb_lz_base_sparse_mat !! \brief Maximum absolute value of all coefficients; - !! + !! ! - interface + interface function psb_lz_base_maxval(a) result(res) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_base_maxval end interface - + ! ! !> Function base_csnmi: !! \memberof psb_lz_base_sparse_mat !! \brief Operator infinity norm - !! + !! ! - interface + interface function psb_lz_base_csnmi(a) result(res) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_base_csnmi @@ -2892,11 +2941,11 @@ module psb_z_base_mat_mod !> Function base_csnmi: !! \memberof psb_lz_base_sparse_mat !! \brief Operator 1-norm - !! + !! ! - interface + interface function psb_lz_base_csnm1(a) result(res) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_base_csnm1 @@ -2908,11 +2957,11 @@ module psb_z_base_mat_mod !! \memberof psb_lz_base_sparse_mat !! \brief Sum along the rows !! \param d(:) The output row sums - !! + !! ! - interface - subroutine psb_lz_base_rowsum(d,a) - import + interface + subroutine psb_lz_base_rowsum(d,a) + import class(psb_lz_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_base_rowsum @@ -2923,26 +2972,26 @@ module psb_z_base_mat_mod !! \memberof psb_lz_base_sparse_mat !! \brief Absolute value sum along the rows !! \param d(:) The output row sums - !! - interface - subroutine psb_lz_base_arwsum(d,a) - import + !! + interface + subroutine psb_lz_base_arwsum(d,a) + import class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_base_arwsum end interface - + ! ! !> Function base_colsum: !! \memberof psb_lz_base_sparse_mat !! \brief Sum along the columns !! \param d(:) The output col sums - !! + !! ! - interface - subroutine psb_lz_base_colsum(d,a) - import + interface + subroutine psb_lz_base_colsum(d,a) + import class(psb_lz_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_base_colsum @@ -2953,76 +3002,76 @@ module psb_z_base_mat_mod !! \memberof psb_lz_base_sparse_mat !! \brief Absolute value sum along the columns !! \param d(:) The output col sums - !! - interface - subroutine psb_lz_base_aclsum(d,a) - import + !! + interface + subroutine psb_lz_base_aclsum(d,a) + import class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_base_aclsum end interface - + ! !> Function transp: !! \memberof psb_lz_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version !! \param b The output variable - ! - interface + ! + interface subroutine psb_lz_base_transp_2mat(a,b) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_lz_base_transp_2mat end interface - + ! !> Function transc: !! \memberof psb_lz_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! Copyout version. !! \param b The output variable - ! - interface + ! + interface subroutine psb_lz_base_transc_2mat(a,b) - import + import class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b end subroutine psb_lz_base_transc_2mat end interface - + ! !> Function transp: !! \memberof psb_lz_base_sparse_mat !! \brief Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_lz_base_transp_1mat(a) - import + import class(psb_lz_base_sparse_mat), intent(inout) :: a end subroutine psb_lz_base_transp_1mat end interface - + ! !> Function transc: !! \memberof psb_lz_base_sparse_mat !! \brief Conjugate Transpose. Can always be implemented by staging through a COO - !! temporary for which transpose is very easy. + !! temporary for which transpose is very easy. !! In-place version. - ! - interface + ! + interface subroutine psb_lz_base_transc_1mat(a) - import + import class(psb_lz_base_sparse_mat), intent(inout) :: a end subroutine psb_lz_base_transc_1mat end interface - + ! == =============== ! ! COO interfaces @@ -3030,81 +3079,81 @@ module psb_z_base_mat_mod ! == =============== ! - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reallocate_nz ! interface - subroutine psb_lz_coo_reallocate_nz(nz,a) - import + subroutine psb_lz_coo_reallocate_nz(nz,a) + import integer(psb_lpk_), intent(in) :: nz class(psb_lz_coo_sparse_mat), intent(inout) :: a end subroutine psb_lz_coo_reallocate_nz end interface - + ! - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_reinit ! - interface + interface subroutine psb_lz_coo_reinit(a,clear) - import - class(psb_lz_coo_sparse_mat), intent(inout) :: a + import + class(psb_lz_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lz_coo_reinit end interface ! - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_trim ! interface subroutine psb_lz_coo_trim(a) - import + import class(psb_lz_coo_sparse_mat), intent(inout) :: a end subroutine psb_lz_coo_trim end interface ! - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros ! interface subroutine psb_lz_coo_clean_zeros(a,info) - import + import class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_clean_zeros end interface - + ! - !> + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_allocate_mnnz ! interface - subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) - import + subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) + import integer(psb_lpk_), intent(in) :: m,n class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_lz_coo_allocate_mnnz end interface - + !> \memberof psb_lz_coo_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lz_coo_mold(a,b,info) - import + interface + subroutine psb_lz_coo_mold(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_mold end interface - - + + ! !> Function print. !! \memberof psb_lz_coo_sparse_mat @@ -3119,17 +3168,17 @@ module psb_z_base_mat_mod ! interface subroutine psb_lz_coo_print(iout,a,iv,head,ivr,ivc) - import + import integer(psb_ipk_), intent(in) :: iout - class(psb_lz_coo_sparse_mat), intent(in) :: a + class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lz_coo_print end interface - - - + + + ! !> Function get_nz_row. !! \memberof psb_lz_coo_sparse_mat @@ -3138,16 +3187,16 @@ module psb_z_base_mat_mod !! \param idx The row to search. !! ! - interface + interface function psb_lz_coo_get_nz_row(idx,a) result(res) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res end function psb_lz_coo_get_nz_row end interface - - + + ! !> Funtion: fix_coo_inner !! \brief Make sure the entries are sorted and duplicates are handled. @@ -3159,12 +3208,12 @@ module psb_z_base_mat_mod !! \param val(:) Coefficients !! \param nzout Number of entries after sorting/duplicate handling !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order - !! + !! \param idir [psb_row_major_] Sort in row major order or col major order + !! ! - interface - subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - import + interface + subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) + import integer(psb_lpk_), intent(in) :: nr,nc,nzin integer(psb_ipk_), intent(in) :: dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -3174,164 +3223,164 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_lz_fix_coo_inner end interface - + ! !> Function fix_coo !! \memberof psb_lz_coo_sparse_mat !! \brief Make sure the entries are sorted and duplicates are handled. !! \param info return code - !! \param idir [psb_row_major_] Sort in row major order or col major order + !! \param idir [psb_row_major_] Sort in row major order or col major order !! ! - interface - subroutine psb_lz_fix_coo(a,info,idir) - import + interface + subroutine psb_lz_fix_coo(a,info,idir) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_lz_fix_coo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_coo - interface - subroutine psb_lz_cp_coo_to_coo(a,b,info) - import + interface + subroutine psb_lz_cp_coo_to_coo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_to_coo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_coo - interface - subroutine psb_lz_cp_coo_from_coo(a,b,info) - import + interface + subroutine psb_lz_cp_coo_from_coo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_from_coo end interface - - - !> + + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_coo - interface - subroutine psb_lz_cp_coo_to_icoo(a,b,info) - import + interface + subroutine psb_lz_cp_coo_to_icoo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_to_icoo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_coo - interface - subroutine psb_lz_cp_coo_from_icoo(a,b,info) - import + interface + subroutine psb_lz_cp_coo_from_icoo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_from_icoo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_coo - !! - interface - subroutine psb_lz_cp_coo_to_fmt(a,b,info) - import + !! + interface + subroutine psb_lz_cp_coo_to_fmt(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_to_fmt end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_fmt - !! - interface - subroutine psb_lz_cp_coo_from_fmt(a,b,info) - import + !! + interface + subroutine psb_lz_cp_coo_from_fmt(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_coo_from_fmt end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_coo - interface - subroutine psb_lz_mv_coo_to_coo(a,b,info) - import + interface + subroutine psb_lz_mv_coo_to_coo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_coo_to_coo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_coo - interface - subroutine psb_lz_mv_coo_from_coo(a,b,info) - import + interface + subroutine psb_lz_mv_coo_from_coo(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_coo_from_coo end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_fmt - interface - subroutine psb_lz_mv_coo_to_fmt(a,b,info) - import + interface + subroutine psb_lz_mv_coo_to_fmt(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_coo_to_fmt end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_fmt - interface - subroutine psb_lz_mv_coo_from_fmt(a,b,info) - import + interface + subroutine psb_lz_mv_coo_from_fmt(a,b,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_coo_from_fmt end interface - - interface + + interface subroutine psb_lz_coo_cp_from(a,b) - import + import class(psb_lz_coo_sparse_mat), intent(inout) :: a type(psb_lz_coo_sparse_mat), intent(in) :: b end subroutine psb_lz_coo_cp_from end interface - - interface + + interface subroutine psb_lz_coo_mv_from(a,b) - import + import class(psb_lz_coo_sparse_mat), intent(inout) :: a type(psb_lz_coo_sparse_mat), intent(inout) :: b end subroutine psb_lz_coo_mv_from end interface - - + + !> Function csput !! \memberof psb_lz_coo_sparse_mat !! \brief Add coefficients into the matrix. @@ -3348,9 +3397,9 @@ module psb_z_base_mat_mod !! \param gtl [none] Renumbering for rows/columns !! ! - interface - subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) - import + interface + subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz,ia(:), ja(:),& @@ -3358,14 +3407,14 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_csput_a end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lz_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3377,14 +3426,14 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_coo_csgetptn end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csgetrow - interface + interface subroutine psb_lz_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - import + import class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: imin,imax integer(psb_lpk_), intent(out) :: nz @@ -3397,141 +3446,153 @@ module psb_z_base_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_coo_csgetrow end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_get_diag - interface - subroutine psb_lz_coo_get_diag(a,d,info) - import + interface + subroutine psb_lz_coo_get_diag(a,d,info) + import class(psb_lz_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_get_diag end interface - - - !> + + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scal - interface - subroutine psb_lz_coo_scal(d,a,info,side) - import + interface + subroutine psb_lz_coo_scal(d,a,info,side) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info character, intent(in), optional :: side end subroutine psb_lz_coo_scal end interface - - !> + + !> !! \memberof psb_lz_coo_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scals interface - subroutine psb_lz_coo_scals(d,a,info) - import + subroutine psb_lz_coo_scals(d,a,info) + import class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_scals end interface - -contains - - + + !> + !! \memberof psb_lz_coo_sparse_mat + !! \see psb_lz_base_mat_mod::psb_lz_base_scalplusidentity + interface + subroutine psb_lz_coo_scalplusidentity(d,a,info) + import + class(psb_lz_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_coo_scalplusidentity + end interface + +contains + + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function z_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_ip res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%ia) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function z_coo_sizeof - - + + function z_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function z_coo_get_fmt - - + + function z_coo_get_size(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function z_coo_get_size - - + + function z_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%nnz end function z_coo_get_nzeros - + function z_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function z_coo_is_by_rows - + function z_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function z_coo_is_by_cols - + function z_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function z_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3539,52 +3600,52 @@ contains ! ! ! == ================================== - + subroutine z_coo_set_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine z_coo_set_nzeros - + function z_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_z_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function z_coo_get_sort_status - + subroutine z_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_z_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine z_coo_set_sort_status - - + + subroutine z_coo_set_by_rows(a) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine z_coo_set_by_rows - - + + subroutine z_coo_set_by_cols(a) - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine z_coo_set_by_cols - + ! == ================================== ! ! @@ -3596,12 +3657,12 @@ contains ! ! ! == ================================== - - subroutine z_coo_free(a) - implicit none - + + subroutine z_coo_free(a) + implicit none + class(psb_z_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3610,13 +3671,13 @@ contains call a%set_ncols(0_psb_ipk_) call a%set_nzeros(0_psb_ipk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine z_coo_free - - - + + + ! == ================================== ! ! @@ -3630,132 +3691,132 @@ contains ! ! == ================================== subroutine z_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_z_coo_sparse_mat), intent(inout) :: a - - integer(psb_ipk_), allocatable :: itemp(:) + + integer(psb_ipk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_z_base_sparse_mat%psb_base_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine z_coo_transp_1mat - + subroutine z_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_z_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_z_is_complex_) a%val(:) = conjg(a%val(:)) end subroutine z_coo_transc_1mat - + ! == ================================== ! ! ! - ! Getters + ! Getters ! ! ! ! ! ! == ================================== - - - + + + function lz_coo_sizeof(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 3*psb_sizeof_lp res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%ia) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function lz_coo_sizeof - - + + function lz_coo_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'COO' end function lz_coo_get_fmt - - + + function lz_coo_get_size(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - + if (allocated(a%ia)) res = size(a%ia) - if (allocated(a%ja)) then - if (res >= 0) then + if (allocated(a%ja)) then + if (res >= 0) then res = min(res,size(a%ja)) - else + else res = size(a%ja) end if end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if end function lz_coo_get_size - - + + function lz_coo_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%nnz end function lz_coo_get_nzeros - + function lz_coo_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) end function lz_coo_is_by_rows - + function lz_coo_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_col_major_) end function lz_coo_is_by_cols - + function lz_coo_is_sorted(a) result(res) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a logical :: res res = (a%sort_status == psb_row_major_) & & .or.(a%sort_status == psb_col_major_) end function lz_coo_is_sorted - - - + + + ! == ================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -3763,63 +3824,63 @@ contains ! ! ! == ================================== - + subroutine lz_coo_iset_nzeros(nz,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_lz_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine lz_coo_iset_nzeros #if defined(IPK4) && defined(LPK8) subroutine lz_coo_lset_nzeros(nz,a) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lz_coo_sparse_mat), intent(inout) :: a - + a%nnz = nz - + end subroutine lz_coo_lset_nzeros #endif - + function lz_coo_get_sort_status(a) result(res) - implicit none + implicit none integer(psb_ipk_) :: res class(psb_lz_coo_sparse_mat), intent(in) :: a - + res = a%sort_status end function lz_coo_get_sort_status - + subroutine lz_coo_set_sort_status(ist,a) - implicit none + implicit none integer(psb_ipk_), intent(in) :: ist class(psb_lz_coo_sparse_mat), intent(inout) :: a - + a%sort_status = ist call a%set_sorted((a%sort_status == psb_row_major_) & - & .or.(a%sort_status == psb_col_major_)) + & .or.(a%sort_status == psb_col_major_)) end subroutine lz_coo_set_sort_status - - + + subroutine lz_coo_set_by_rows(a) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_row_major_ call a%set_sorted() end subroutine lz_coo_set_by_rows - - + + subroutine lz_coo_set_by_cols(a) - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a - + a%sort_status = psb_col_major_ call a%set_sorted() end subroutine lz_coo_set_by_cols - + ! == ================================== ! ! @@ -3831,12 +3892,12 @@ contains ! ! ! == ================================== - - subroutine lz_coo_free(a) - implicit none - + + subroutine lz_coo_free(a) + implicit none + class(psb_lz_coo_sparse_mat), intent(inout) :: a - + if (allocated(a%ia)) deallocate(a%ia) if (allocated(a%ja)) deallocate(a%ja) if (allocated(a%val)) deallocate(a%val) @@ -3845,13 +3906,13 @@ contains call a%set_ncols(0_psb_lpk_) call a%set_nzeros(0_psb_lpk_) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine lz_coo_free - - - + + + ! == ================================== ! ! @@ -3865,40 +3926,37 @@ contains ! ! == ================================== subroutine lz_coo_transp_1mat(a) - implicit none - + implicit none + class(psb_lz_coo_sparse_mat), intent(inout) :: a - - integer(psb_lpk_), allocatable :: itemp(:) + + integer(psb_lpk_), allocatable :: itemp(:) integer(psb_ipk_) :: info - + call a%psb_lz_base_sparse_mat%psb_lbase_sparse_mat%transp() call move_alloc(a%ia,itemp) call move_alloc(a%ja,a%ia) call move_alloc(itemp,a%ja) - + call a%set_sorted(.false.) call a%set_sort_status(psb_unsorted_) - + return - + end subroutine lz_coo_transp_1mat - + subroutine lz_coo_transc_1mat(a) - implicit none - + implicit none + class(psb_lz_coo_sparse_mat), intent(inout) :: a - - call a%transp() + + call a%transp() ! This will morph into conjg() for C and Z ! and into a no-op for S and D, so a conditional - ! on a constant ought to take it out completely. + ! on a constant ought to take it out completely. if (psb_lz_is_complex_) a%val(:) = conjg(a%val(:)) end subroutine lz_coo_transc_1mat end module psb_z_base_mat_mod - - - diff --git a/base/modules/serial/psb_z_csc_mat_mod.f90 b/base/modules/serial/psb_z_csc_mat_mod.f90 index c6586089a..7eb23606d 100644 --- a/base/modules/serial/psb_z_csc_mat_mod.f90 +++ b/base/modules/serial/psb_z_csc_mat_mod.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_z_csc_mat_mod ! @@ -40,23 +40,23 @@ ! ! Please refere to psb_z_base_mat_mod for a detailed description ! of the various methods, and to psb_z_csc_impl for implementation details. -! +! module psb_z_csc_mat_mod use psb_z_base_mat_mod !> \namespace psb_base_mod \class psb_z_csc_sparse_mat !! \extends psb_z_base_mat_mod::psb_z_base_sparse_mat - !! + !! !! psb_z_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_z_base_sparse_mat) :: psb_z_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_ipk_), allocatable :: icp(:) !> Row indices. integer(psb_ipk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) contains @@ -71,6 +71,7 @@ module psb_z_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csc_cssv procedure, pass(a) :: scals => psb_z_csc_scals procedure, pass(a) :: scalv => psb_z_csc_scal + procedure, pass(a) :: scalpid => psb_z_csc_scalplusidentity procedure, pass(a) :: maxval => psb_z_csc_maxval procedure, pass(a) :: spnm1 => psb_z_csc_csnm1 procedure, pass(a) :: rowsum => psb_z_csc_rowsum @@ -107,16 +108,16 @@ module psb_z_csc_mat_mod !> \namespace psb_base_mod \class psb_z_csc_sparse_mat !! \extends psb_z_base_mat_mod::psb_z_base_sparse_mat - !! + !! !! psb_z_csc_sparse_mat type and the related methods. - !! + !! type, extends(psb_lz_base_sparse_mat) :: psb_lz_csc_sparse_mat - !> Pointers to beginning of cols in IA and VAL. + !> Pointers to beginning of cols in IA and VAL. integer(psb_lpk_), allocatable :: icp(:) !> Row indices. integer(psb_lpk_), allocatable :: ia(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) contains @@ -127,6 +128,7 @@ module psb_z_csc_mat_mod procedure, pass(a) :: sizeof => lz_csc_sizeof procedure, pass(a) :: scals => psb_lz_csc_scals procedure, pass(a) :: scalv => psb_lz_csc_scal + procedure, pass(a) :: scalpid => psb_lz_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lz_csc_maxval procedure, pass(a) :: spnm1 => psb_lz_csc_csnm1 procedure, pass(a) :: rowsum => psb_lz_csc_rowsum @@ -163,23 +165,23 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_z_csc_reallocate_nz(nz,a) + subroutine psb_z_csc_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_reallocate_nz end interface - + !> \memberof psb_z_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_z_csc_reinit(a,clear) import - class(psb_z_csc_sparse_mat), intent(inout) :: a + class(psb_z_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csc_reinit end interface - + !> \memberof psb_z_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -188,22 +190,22 @@ module psb_z_csc_mat_mod class(psb_z_csc_sparse_mat), intent(inout) :: a end subroutine psb_z_csc_trim end interface - + !> \memberof psb_z_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_z_csc_mold(a,b,info) + interface + subroutine psb_z_csc_mold(a,b,info) import class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_mold end interface - + !> \memberof psb_z_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_z_csc_sparse_mat), intent(inout) :: a @@ -211,147 +213,147 @@ module psb_z_csc_mat_mod end subroutine psb_z_csc_allocate_mnnz end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_print interface subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_z_csc_sparse_mat), intent(in) :: a + class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_csc_print end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_coo - interface - subroutine psb_z_cp_csc_to_coo(a,b,info) + interface + subroutine psb_z_cp_csc_to_coo(a,b,info) import class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_to_coo end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_coo - interface - subroutine psb_z_cp_csc_from_coo(a,b,info) + interface + subroutine psb_z_cp_csc_from_coo(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_from_coo end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_fmt - interface - subroutine psb_z_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_z_cp_csc_to_fmt(a,b,info) import class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_to_fmt end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_fmt - interface - subroutine psb_z_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_z_cp_csc_from_fmt(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csc_from_fmt end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_coo - interface - subroutine psb_z_mv_csc_to_coo(a,b,info) + interface + subroutine psb_z_mv_csc_to_coo(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_to_coo end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_coo - interface - subroutine psb_z_mv_csc_from_coo(a,b,info) + interface + subroutine psb_z_mv_csc_from_coo(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_from_coo end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_fmt - interface - subroutine psb_z_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_z_mv_csc_to_fmt(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_to_fmt end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_fmt - interface - subroutine psb_z_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_z_mv_csc_from_fmt(a,b,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros ! interface subroutine psb_z_csc_clean_zeros(a, info) - import + import class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_clean_zeros end interface - - + + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from - interface + interface subroutine psb_z_csc_cp_from(a,b) import class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(in) :: b end subroutine psb_z_csc_cp_from end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from - interface + interface subroutine psb_z_csc_mv_from(a,b) import class(psb_z_csc_sparse_mat), intent(inout) :: a type(psb_z_csc_sparse_mat), intent(inout) :: b end subroutine psb_z_csc_mv_from end interface - - + + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csput_a - interface - subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -360,10 +362,10 @@ module psb_z_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_csput_a end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -378,10 +380,10 @@ module psb_z_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csc_csgetptn end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csgetrow - interface + interface subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import :: psb_ipk_, psb_z_csc_sparse_mat, psb_dpk_ @@ -400,7 +402,7 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csgetblk - interface + interface subroutine psb_z_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) import @@ -414,11 +416,11 @@ module psb_z_csc_mat_mod logical, intent(in), optional :: rscale,cscale,chksz end subroutine psb_z_csc_csgetblk end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssv - interface - subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -429,8 +431,8 @@ module psb_z_csc_mat_mod end interface !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssm - interface - subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -439,11 +441,11 @@ module psb_z_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csc_cssm end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmv - interface - subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -455,8 +457,8 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmm - interface - subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -465,21 +467,21 @@ module psb_z_csc_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csc_csmm end interface - - + + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_maxval - interface + interface function psb_z_csc_maxval(a) result(res) import class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csc_maxval end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csnm1 - interface + interface function psb_z_csc_csnm1(a) result(res) import class(psb_z_csc_sparse_mat), intent(in) :: a @@ -489,8 +491,8 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_rowsum - interface - subroutine psb_z_csc_rowsum(d,a) + interface + subroutine psb_z_csc_rowsum(d,a) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -499,18 +501,18 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_arwsum - interface - subroutine psb_z_csc_arwsum(d,a) + interface + subroutine psb_z_csc_arwsum(d,a) import class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_arwsum end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_colsum - interface - subroutine psb_z_csc_colsum(d,a) + interface + subroutine psb_z_csc_colsum(d,a) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -519,29 +521,29 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_aclsum - interface - subroutine psb_z_csc_aclsum(d,a) + interface + subroutine psb_z_csc_aclsum(d,a) import class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csc_aclsum end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_get_diag - interface - subroutine psb_z_csc_get_diag(a,d,info) + interface + subroutine psb_z_csc_get_diag(a,d,info) import class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_get_diag end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scal - interface - subroutine psb_z_csc_scal(d,a,info,side) + interface + subroutine psb_z_csc_scal(d,a,info,side) import class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) @@ -549,42 +551,53 @@ module psb_z_csc_mat_mod character, intent(in), optional :: side end subroutine psb_z_csc_scal end interface - + !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scals interface - subroutine psb_z_csc_scals(d,a,info) + subroutine psb_z_csc_scals(d,a,info) import class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csc_scals end interface - + + !> \memberof psb_z_csc_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity + interface + subroutine psb_z_csc_scalplusidentity(d,a,info) + import + class(psb_z_csc_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_csc_scalplusidentity + end interface + ! ! lz - ! + ! !> \memberof psb_lz_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_lz_csc_reallocate_nz(nz,a) + subroutine psb_lz_csc_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_lz_csc_sparse_mat), intent(inout) :: a end subroutine psb_lz_csc_reallocate_nz end interface - + !> \memberof psb_lz_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_lz_csc_reinit(a,clear) import - class(psb_lz_csc_sparse_mat), intent(inout) :: a + class(psb_lz_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lz_csc_reinit end interface - + !> \memberof psb_lz_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -593,22 +606,22 @@ module psb_z_csc_mat_mod class(psb_lz_csc_sparse_mat), intent(inout) :: a end subroutine psb_lz_csc_trim end interface - + !> \memberof psb_lz_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lz_csc_mold(a,b,info) + interface + subroutine psb_lz_csc_mold(a,b,info) import class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csc_mold end interface - + !> \memberof psb_lz_csc_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) + subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_lz_csc_sparse_mat), intent(inout) :: a @@ -616,146 +629,146 @@ module psb_z_csc_mat_mod end subroutine psb_lz_csc_allocate_mnnz end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_print interface subroutine psb_lz_csc_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_lz_csc_sparse_mat), intent(in) :: a + class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lz_csc_print end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_coo - interface - subroutine psb_lz_cp_csc_to_coo(a,b,info) + interface + subroutine psb_lz_cp_csc_to_coo(a,b,info) import class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csc_to_coo end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_coo - interface - subroutine psb_lz_cp_csc_from_coo(a,b,info) + interface + subroutine psb_lz_cp_csc_from_coo(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csc_from_coo end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_fmt - interface - subroutine psb_lz_cp_csc_to_fmt(a,b,info) + interface + subroutine psb_lz_cp_csc_to_fmt(a,b,info) import class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csc_to_fmt end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_fmt - interface - subroutine psb_lz_cp_csc_from_fmt(a,b,info) + interface + subroutine psb_lz_cp_csc_from_fmt(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csc_from_fmt end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_coo - interface - subroutine psb_lz_mv_csc_to_coo(a,b,info) + interface + subroutine psb_lz_mv_csc_to_coo(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csc_to_coo end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_coo - interface - subroutine psb_lz_mv_csc_from_coo(a,b,info) + interface + subroutine psb_lz_mv_csc_from_coo(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csc_from_coo end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_fmt - interface - subroutine psb_lz_mv_csc_to_fmt(a,b,info) + interface + subroutine psb_lz_mv_csc_to_fmt(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csc_to_fmt end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_fmt - interface - subroutine psb_lz_mv_csc_from_fmt(a,b,info) + interface + subroutine psb_lz_mv_csc_from_fmt(a,b,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csc_from_fmt end interface - + ! - !> + !> !! \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros ! interface subroutine psb_lz_csc_clean_zeros(a, info) - import + import class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csc_clean_zeros end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from - interface + interface subroutine psb_lz_csc_cp_from(a,b) import class(psb_lz_csc_sparse_mat), intent(inout) :: a type(psb_lz_csc_sparse_mat), intent(in) :: b end subroutine psb_lz_csc_cp_from end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from - interface + interface subroutine psb_lz_csc_mv_from(a,b) import class(psb_lz_csc_sparse_mat), intent(inout) :: a type(psb_lz_csc_sparse_mat), intent(inout) :: b end subroutine psb_lz_csc_mv_from end interface - - + + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csput_a - interface - subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -764,10 +777,10 @@ module psb_z_csc_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csc_csput_a end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lz_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -782,10 +795,10 @@ module psb_z_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csc_csgetptn end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csgetrow - interface + interface subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -804,7 +817,7 @@ module psb_z_csc_mat_mod !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csgetblk - interface + interface subroutine psb_lz_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import @@ -818,31 +831,31 @@ module psb_z_csc_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csc_csgetblk end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_get_diag - interface - subroutine psb_lz_csc_get_diag(a,d,info) + interface + subroutine psb_lz_csc_get_diag(a,d,info) import class(psb_lz_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csc_get_diag end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_maxval - interface + interface function psb_lz_csc_maxval(a) result(res) import class(psb_lz_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_csc_maxval end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_csnm1 - interface + interface function psb_lz_csc_csnm1(a) result(res) import class(psb_lz_csc_sparse_mat), intent(in) :: a @@ -852,8 +865,8 @@ module psb_z_csc_mat_mod !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_rowsum - interface - subroutine psb_lz_csc_rowsum(d,a) + interface + subroutine psb_lz_csc_rowsum(d,a) import class(psb_lz_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -862,18 +875,18 @@ module psb_z_csc_mat_mod !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_arwsum - interface - subroutine psb_lz_csc_arwsum(d,a) + interface + subroutine psb_lz_csc_arwsum(d,a) import class(psb_lz_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_csc_arwsum end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_colsum - interface - subroutine psb_lz_csc_colsum(d,a) + interface + subroutine psb_lz_csc_colsum(d,a) import class(psb_lz_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -882,18 +895,18 @@ module psb_z_csc_mat_mod !> \memberof psb_lz_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_aclsum - interface - subroutine psb_lz_csc_aclsum(d,a) + interface + subroutine psb_lz_csc_aclsum(d,a) import class(psb_lz_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_csc_aclsum end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scal - interface - subroutine psb_lz_csc_scal(d,a,info,side) + interface + subroutine psb_lz_csc_scal(d,a,info,side) import class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) @@ -901,27 +914,36 @@ module psb_z_csc_mat_mod character, intent(in), optional :: side end subroutine psb_lz_csc_scal end interface - + !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scals interface - subroutine psb_lz_csc_scals(d,a,info) + subroutine psb_lz_csc_scals(d,a,info) import class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csc_scals end interface - - -contains + !> \memberof psb_lz_csc_sparse_mat + !! \see psb_lz_base_mat_mod::psb_lz_base_scalplusidentity + interface + subroutine psb_lz_csc_scalplusidentity(d,a,info) + import + class(psb_lz_csc_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_csc_scalplusidentity + end interface + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -929,54 +951,54 @@ contains ! ! == =================================== - + function z_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function z_csc_is_by_cols - + function z_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%icp) res = res + psb_sizeof_ip * psb_size(a%ia) - + end function z_csc_sizeof function z_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function z_csc_get_fmt - + function z_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%icp(a%get_ncols()+1)-1 end function z_csc_get_nzeros function z_csc_get_size(a) result(res) - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -988,17 +1010,17 @@ contains function z_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function z_csc_get_nz_col @@ -1013,11 +1035,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine z_csc_free(a) - implicit none + subroutine z_csc_free(a) + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a @@ -1027,7 +1049,7 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine z_csc_free @@ -1038,7 +1060,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1046,57 +1068,57 @@ contains ! ! == =================================== - + function lz_csc_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function lz_csc_is_by_cols ! ! lz ! - + function lz_csc_sizeof(a) result(res) - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2*psb_sizeof_lp res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%icp) res = res + psb_sizeof_lp * psb_size(a%ia) - + end function lz_csc_sizeof function lz_csc_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSC' end function lz_csc_get_fmt - + function lz_csc_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%icp(a%get_ncols()+1)-1 end function lz_csc_get_nzeros function lz_csc_get_size(a) result(res) - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ia)) then + + if (allocated(a%ia)) then res = size(a%ia) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1108,17 +1130,17 @@ contains function lz_csc_get_nz_col(idx,a) result(res) use psb_const_mod implicit none - + class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_ncols())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_ncols())) then res = a%icp(idx+1)-a%icp(idx) end if - + end function lz_csc_get_nz_col @@ -1133,11 +1155,11 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine lz_csc_free(a) - implicit none + subroutine lz_csc_free(a) + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a @@ -1147,7 +1169,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine lz_csc_free diff --git a/base/modules/serial/psb_z_csr_mat_mod.f90 b/base/modules/serial/psb_z_csr_mat_mod.f90 index 6e62fa9cb..a7d5cf71e 100644 --- a/base/modules/serial/psb_z_csr_mat_mod.f90 +++ b/base/modules/serial/psb_z_csr_mat_mod.f90 @@ -1,10 +1,10 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -16,7 +16,7 @@ ! 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 @@ -28,8 +28,8 @@ ! 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. -! -! +! +! ! ! package: psb_z_csr_mat_mod ! @@ -48,17 +48,17 @@ module psb_z_csr_mat_mod !> \namespace psb_base_mod \class psb_z_csr_sparse_mat !! \extends psb_z_base_mat_mod::psb_z_base_sparse_mat - !! + !! !! psb_z_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_z_base_sparse_mat) :: psb_z_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_ipk_), allocatable :: irp(:) !> Column indices. integer(psb_ipk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) contains @@ -73,6 +73,7 @@ module psb_z_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csr_cssv procedure, pass(a) :: scals => psb_z_csr_scals procedure, pass(a) :: scalv => psb_z_csr_scal + procedure, pass(a) :: scalpid => psb_z_csr_scalplusidentity procedure, pass(a) :: maxval => psb_z_csr_maxval procedure, pass(a) :: spnmi => psb_z_csr_csnmi procedure, pass(a) :: rowsum => psb_z_csr_rowsum @@ -112,23 +113,23 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_z_csr_reallocate_nz(nz,a) + subroutine psb_z_csr_reallocate_nz(nz,a) import integer(psb_ipk_), intent(in) :: nz class(psb_z_csr_sparse_mat), intent(inout) :: a end subroutine psb_z_csr_reallocate_nz end interface - + !> \memberof psb_z_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_z_csr_reinit(a,clear) import - class(psb_z_csr_sparse_mat), intent(inout) :: a + class(psb_z_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_csr_reinit end interface - + !> \memberof psb_z_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -138,22 +139,22 @@ module psb_z_csr_mat_mod end subroutine psb_z_csr_trim end interface - + !> \memberof psb_z_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_z_csr_mold(a,b,info) + interface + subroutine psb_z_csr_mold(a,b,info) import class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_mold end interface - + !> \memberof psb_z_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) import integer(psb_ipk_), intent(in) :: m,n class(psb_z_csr_sparse_mat), intent(inout) :: a @@ -161,14 +162,14 @@ module psb_z_csr_mat_mod end subroutine psb_z_csr_allocate_mnnz end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_print interface subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_z_csr_sparse_mat), intent(in) :: a + class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -187,27 +188,27 @@ module psb_z_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_z_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -216,13 +217,13 @@ module psb_z_csr_mat_mod class(psb_z_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_z_csr_tril end interface - + ! !> Function triu: !! \memberof psb_z_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -231,27 +232,27 @@ module psb_z_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_z_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -260,133 +261,133 @@ module psb_z_csr_mat_mod class(psb_z_coo_sparse_mat), optional, intent(out) :: l end subroutine psb_z_csr_triu end interface - + ! - !> + !> !! \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_clean_zeros ! interface subroutine psb_z_csr_clean_zeros(a, info) - import + import class(psb_z_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_clean_zeros end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_coo - interface - subroutine psb_z_cp_csr_to_coo(a,b,info) + interface + subroutine psb_z_cp_csr_to_coo(a,b,info) import class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_to_coo end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_coo - interface - subroutine psb_z_cp_csr_from_coo(a,b,info) + interface + subroutine psb_z_cp_csr_from_coo(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_from_coo end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_to_fmt - interface - subroutine psb_z_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_z_cp_csr_to_fmt(a,b,info) import class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_to_fmt end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from_fmt - interface - subroutine psb_z_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_z_cp_csr_from_fmt(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_cp_csr_from_fmt end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_coo - interface - subroutine psb_z_mv_csr_to_coo(a,b,info) + interface + subroutine psb_z_mv_csr_to_coo(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_to_coo end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_coo - interface - subroutine psb_z_mv_csr_from_coo(a,b,info) + interface + subroutine psb_z_mv_csr_from_coo(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_from_coo end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_to_fmt - interface - subroutine psb_z_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_z_mv_csr_to_fmt(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_to_fmt end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from_fmt - interface - subroutine psb_z_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_z_mv_csr_from_fmt(a,b,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_z_mv_csr_from_fmt end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cp_from - interface + interface subroutine psb_z_csr_cp_from(a,b) import class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(in) :: b end subroutine psb_z_csr_cp_from end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_mv_from - interface + interface subroutine psb_z_csr_mv_from(a,b) import class(psb_z_csr_sparse_mat), intent(inout) :: a type(psb_z_csr_sparse_mat), intent(inout) :: b end subroutine psb_z_csr_mv_from end interface - - + + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csput_a - interface - subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -395,10 +396,10 @@ module psb_z_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_csput_a end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -413,10 +414,10 @@ module psb_z_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csr_csgetptn end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csgetrow - interface + interface subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) import @@ -435,8 +436,8 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssv - interface - subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -447,8 +448,8 @@ module psb_z_csr_mat_mod end interface !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_cssm - interface - subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -457,11 +458,11 @@ module psb_z_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csr_cssm end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmv - interface - subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -473,8 +474,8 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csmm - interface - subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) + interface + subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -483,32 +484,32 @@ module psb_z_csr_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csr_csmm end interface - - + + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_maxval - interface + interface function psb_z_csr_maxval(a) result(res) import class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_maxval end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_csnmi - interface + interface function psb_z_csr_csnmi(a) result(res) import class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csr_csnmi end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_rowsum - interface - subroutine psb_z_csr_rowsum(d,a) + interface + subroutine psb_z_csr_rowsum(d,a) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -517,18 +518,18 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_arwsum - interface - subroutine psb_z_csr_arwsum(d,a) + interface + subroutine psb_z_csr_arwsum(d,a) import class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_arwsum end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_colsum - interface - subroutine psb_z_csr_colsum(d,a) + interface + subroutine psb_z_csr_colsum(d,a) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -537,29 +538,29 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_aclsum - interface - subroutine psb_z_csr_aclsum(d,a) + interface + subroutine psb_z_csr_aclsum(d,a) import class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_z_csr_aclsum end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_get_diag - interface - subroutine psb_z_csr_get_diag(a,d,info) + interface + subroutine psb_z_csr_get_diag(a,d,info) import class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_get_diag end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scal - interface - subroutine psb_z_csr_scal(d,a,info,side) + interface + subroutine psb_z_csr_scal(d,a,info,side) import class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) @@ -567,32 +568,43 @@ module psb_z_csr_mat_mod character, intent(in), optional :: side end subroutine psb_z_csr_scal end interface - + !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scals interface - subroutine psb_z_csr_scals(d,a,info) + subroutine psb_z_csr_scals(d,a,info) import class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csr_scals end interface - + + !> \memberof psb_z_csr_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity + interface + subroutine psb_z_csr_scalplusidentity(d,a,info) + import + class(psb_z_csr_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_csr_scalplusidentity + end interface + !> \namespace psb_base_mod \class psb_lz_csr_sparse_mat !! \extends psb_lz_base_mat_mod::psb_lz_base_sparse_mat - !! + !! !! psb_lz_csr_sparse_mat type and the related methods. !! This is a very common storage type, and is the default for assembled !! matrices in our library type, extends(psb_lz_base_sparse_mat) :: psb_lz_csr_sparse_mat - !> Pointers to beginning of rows in JA and VAL. + !> Pointers to beginning of rows in JA and VAL. integer(psb_lpk_), allocatable :: irp(:) !> Column indices. integer(psb_lpk_), allocatable :: ja(:) - !> Coefficient values. + !> Coefficient values. complex(psb_dpk_), allocatable :: val(:) contains @@ -642,23 +654,23 @@ module psb_z_csr_mat_mod !> \memberof psb_lz_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reallocate_nz interface - subroutine psb_lz_csr_reallocate_nz(nz,a) + subroutine psb_lz_csr_reallocate_nz(nz,a) import integer(psb_lpk_), intent(in) :: nz class(psb_lz_csr_sparse_mat), intent(inout) :: a end subroutine psb_lz_csr_reallocate_nz end interface - + !> \memberof psb_lz_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_reinit - interface + interface subroutine psb_lz_csr_reinit(a,clear) import - class(psb_lz_csr_sparse_mat), intent(inout) :: a + class(psb_lz_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lz_csr_reinit end interface - + !> \memberof psb_lz_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_trim interface @@ -668,22 +680,22 @@ module psb_z_csr_mat_mod end subroutine psb_lz_csr_trim end interface - + !> \memberof psb_lz_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_mold - interface - subroutine psb_lz_csr_mold(a,b,info) + interface + subroutine psb_lz_csr_mold(a,b,info) import class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csr_mold end interface - + !> \memberof psb_lz_csr_sparse_mat !| \see psb_base_mat_mod::psb_base_allocate_mnnz interface - subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) + subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) import integer(psb_lpk_), intent(in) :: m,n class(psb_lz_csr_sparse_mat), intent(inout) :: a @@ -691,14 +703,14 @@ module psb_z_csr_mat_mod end subroutine psb_lz_csr_allocate_mnnz end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_print interface subroutine psb_lz_csr_print(iout,a,iv,head,ivr,ivc) import integer(psb_ipk_), intent(in) :: iout - class(psb_lz_csr_sparse_mat), intent(in) :: a + class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -717,27 +729,27 @@ module psb_z_csr_mat_mod !! Moreover, apply a clipping by copying entries A(I,J) only if !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX - !! + !! !! \param l the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param u [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lz_csr_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) - import + import class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(out) :: l integer(psb_ipk_),intent(out) :: info @@ -746,13 +758,13 @@ module psb_z_csr_mat_mod class(psb_lz_coo_sparse_mat), optional, intent(out) :: u end subroutine psb_lz_csr_tril end interface - + ! !> Function triu: !! \memberof psb_z_csr_sparse_mat !! \brief Copy the upper triangle, i.e. all entries !! A(I,J) such that DIAG <= J-I - !! default value is DIAG=0, i.e. upper triangle from + !! default value is DIAG=0, i.e. upper triangle from !! the main diagonal up. !! DIAG= 1 means copy the strictly upper triangle !! DIAG=-1 means copy the upper triangle plus the first diagonal @@ -761,27 +773,27 @@ module psb_z_csr_mat_mod !! IMIN<=I<=IMAX !! JMIN<=J<=JMAX !! Optionally copies the lower triangle at the same time - !! + !! !! \param u the output (sub)matrix !! \param info return code !! \param diag [0] the last diagonal (J-I) to be considered. - !! \param imin [1] the minimum row index we are interested in - !! \param imax [a\%get_nrows()] the minimum row index we are interested in - !! \param jmin [1] minimum col index - !! \param jmax [a\%get_ncols()] maximum col index + !! \param imin [1] the minimum row index we are interested in + !! \param imax [a\%get_nrows()] the minimum row index we are interested in + !! \param jmin [1] minimum col index + !! \param jmax [a\%get_ncols()] maximum col index !! \param iren(:) [none] an array to return renumbered indices (iren(ia(:)),iren(ja(:)) !! \param rscale [false] map [min(ia(:)):max(ia(:))] onto [1:max(ia(:))-min(ia(:))+1] !! \param cscale [false] map [min(ja(:)):max(ja(:))] onto [1:max(ja(:))-min(ja(:))+1] !! ( iren cannot be specified with rscale/cscale) - !! \param append [false] append to ia,ja + !! \param append [false] append to ia,ja !! \param nzin [none] if append, then first new entry should go in entry nzin+1 !! \param l [none] copy of the complementary triangle - !! + !! ! - interface + interface subroutine psb_lz_csr_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) - import + import class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(out) :: u integer(psb_ipk_),intent(out) :: info @@ -792,133 +804,133 @@ module psb_z_csr_mat_mod end interface ! - !> + !> !! \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_clean_zeros ! interface subroutine psb_lz_csr_clean_zeros(a, info) - import + import class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csr_clean_zeros end interface - - + + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_coo - interface - subroutine psb_lz_cp_csr_to_coo(a,b,info) + interface + subroutine psb_lz_cp_csr_to_coo(a,b,info) import class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csr_to_coo end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_coo - interface - subroutine psb_lz_cp_csr_from_coo(a,b,info) + interface + subroutine psb_lz_cp_csr_from_coo(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csr_from_coo end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_to_fmt - interface - subroutine psb_lz_cp_csr_to_fmt(a,b,info) + interface + subroutine psb_lz_cp_csr_to_fmt(a,b,info) import class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csr_to_fmt end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from_fmt - interface - subroutine psb_lz_cp_csr_from_fmt(a,b,info) + interface + subroutine psb_lz_cp_csr_from_fmt(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_cp_csr_from_fmt end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_coo - interface - subroutine psb_lz_mv_csr_to_coo(a,b,info) + interface + subroutine psb_lz_mv_csr_to_coo(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csr_to_coo end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_coo - interface - subroutine psb_lz_mv_csr_from_coo(a,b,info) + interface + subroutine psb_lz_mv_csr_from_coo(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csr_from_coo end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_to_fmt - interface - subroutine psb_lz_mv_csr_to_fmt(a,b,info) + interface + subroutine psb_lz_mv_csr_to_fmt(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csr_to_fmt end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from_fmt - interface - subroutine psb_lz_mv_csr_from_fmt(a,b,info) + interface + subroutine psb_lz_mv_csr_from_fmt(a,b,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_mv_csr_from_fmt end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_cp_from - interface + interface subroutine psb_lz_csr_cp_from(a,b) import class(psb_lz_csr_sparse_mat), intent(inout) :: a type(psb_lz_csr_sparse_mat), intent(in) :: b end subroutine psb_lz_csr_cp_from end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_mv_from - interface + interface subroutine psb_lz_csr_mv_from(a,b) import class(psb_lz_csr_sparse_mat), intent(inout) :: a type(psb_lz_csr_sparse_mat), intent(inout) :: b end subroutine psb_lz_csr_mv_from end interface - - + + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csput_a - interface - subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + interface + subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -927,10 +939,10 @@ module psb_z_csr_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csr_csput_a end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_base_mat_mod::psb_base_csgetptn - interface + interface subroutine psb_lz_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -945,10 +957,10 @@ module psb_z_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csr_csgetptn end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_csgetrow - interface + interface subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import @@ -964,11 +976,11 @@ module psb_z_csr_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csr_csgetrow end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_get_diag - interface - subroutine psb_lz_csr_get_diag(a,d,info) + interface + subroutine psb_lz_csr_get_diag(a,d,info) import class(psb_lz_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -978,8 +990,8 @@ module psb_z_csr_mat_mod !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scal - interface - subroutine psb_lz_csr_scal(d,a,info,side) + interface + subroutine psb_lz_csr_scal(d,a,info,side) import class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) @@ -987,42 +999,42 @@ module psb_z_csr_mat_mod character, intent(in), optional :: side end subroutine psb_lz_csr_scal end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scals interface - subroutine psb_lz_csr_scals(d,a,info) + subroutine psb_lz_csr_scals(d,a,info) import class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csr_scals end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_maxval - interface + interface function psb_lz_csr_maxval(a) result(res) import class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_csr_maxval end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_csnmi - interface + interface function psb_lz_csr_csnmi(a) result(res) import class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_csr_csnmi end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_rowsum - interface - subroutine psb_lz_csr_rowsum(d,a) + interface + subroutine psb_lz_csr_rowsum(d,a) import class(psb_lz_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -1031,18 +1043,18 @@ module psb_z_csr_mat_mod !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_arwsum - interface - subroutine psb_lz_csr_arwsum(d,a) + interface + subroutine psb_lz_csr_arwsum(d,a) import class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_csr_arwsum end interface - + !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_colsum - interface - subroutine psb_lz_csr_colsum(d,a) + interface + subroutine psb_lz_csr_colsum(d,a) import class(psb_lz_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) @@ -1051,22 +1063,22 @@ module psb_z_csr_mat_mod !> \memberof psb_lz_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_lz_base_aclsum - interface - subroutine psb_lz_csr_aclsum(d,a) + interface + subroutine psb_lz_csr_aclsum(d,a) import class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) end subroutine psb_lz_csr_aclsum end interface - -contains + +contains ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1075,54 +1087,54 @@ contains ! == =================================== - + function z_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function z_csr_is_by_rows - + function z_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res res = 2 * psb_sizeof_ip res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_ip * psb_size(a%irp) res = res + psb_sizeof_ip * psb_size(a%ja) - + end function z_csr_sizeof function z_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function z_csr_get_fmt - + function z_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = a%irp(a%get_nrows()+1)-1 end function z_csr_get_nzeros function z_csr_get_size(a) result(res) - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_ipk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1134,17 +1146,17 @@ contains function z_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in) :: idx integer(psb_ipk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function z_csr_get_nz_row @@ -1159,10 +1171,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine z_csr_free(a) - implicit none + subroutine z_csr_free(a) + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a @@ -1172,18 +1184,18 @@ contains call a%set_null() call a%set_nrows(0_psb_ipk_) call a%set_ncols(0_psb_ipk_) - + return end subroutine z_csr_free - + ! == =================================== ! ! ! - ! Getters + ! Getters ! ! ! @@ -1192,54 +1204,54 @@ contains ! == =================================== - + function lz_csr_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a logical :: res res = .true. - + end function lz_csr_is_by_rows - + function lz_csr_sizeof(a) result(res) - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_epk_) :: res - res = 2 * psb_sizeof_lp + res = 2 * psb_sizeof_lp res = res + (2*psb_sizeof_dp) * psb_size(a%val) res = res + psb_sizeof_lp * psb_size(a%irp) res = res + psb_sizeof_lp * psb_size(a%ja) - + end function lz_csr_sizeof function lz_csr_get_fmt() result(res) - implicit none + implicit none character(len=5) :: res res = 'CSR' end function lz_csr_get_fmt - + function lz_csr_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = a%irp(a%get_nrows()+1)-1 end function lz_csr_get_nzeros function lz_csr_get_size(a) result(res) - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_lpk_) :: res res = -1 - - if (allocated(a%ja)) then + + if (allocated(a%ja)) then res = size(a%ja) end if - if (allocated(a%val)) then - if (res >= 0) then + if (allocated(a%val)) then + if (res >= 0) then res = min(res,size(a%val)) - else + else res = size(a%val) end if end if @@ -1251,17 +1263,17 @@ contains function lz_csr_get_nz_row(idx,a) result(res) implicit none - + class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in) :: idx integer(psb_lpk_) :: res - - res = 0 - - if ((1<=idx).and.(idx<=a%get_nrows())) then + + res = 0 + + if ((1<=idx).and.(idx<=a%get_nrows())) then res = a%irp(idx+1)-a%irp(idx) end if - + end function lz_csr_get_nz_row @@ -1276,10 +1288,10 @@ contains ! ! ! - ! == =================================== + ! == =================================== - subroutine lz_csr_free(a) - implicit none + subroutine lz_csr_free(a) + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a @@ -1289,7 +1301,7 @@ contains call a%set_null() call a%set_nrows(0_psb_lpk_) call a%set_ncols(0_psb_lpk_) - + return end subroutine lz_csr_free diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index 56d26761e..c06156896 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! package: psb_z_mat_mod ! @@ -37,7 +37,7 @@ ! provide a mean of switching, at run-time, among different formats, ! potentially unknown at the library compile-time by adding a layer of ! indirection. This type encapsulates the psb_z_base_sparse_mat class -! inside another class which is the one visible to the user. +! inside another class which is the one visible to the user. ! Most methods of the psb_z_mat_mod simply call the methods of the ! encapsulated class. ! The exceptions are mainly cscnv and cp_from/cp_to; these provide @@ -48,14 +48,14 @@ ! through the application life. ! In particular, computational methods can only be invoked when ! the matrix is in the ASSEMBLED state, whereas the other states are -! dedicated to operations on the internal matrix data. -! A sparse matrix can move between states according to the +! dedicated to operations on the internal matrix data. +! A sparse matrix can move between states according to the ! following state transition table. Associated with these states are ! the possible dynamic types of the inner matrix object. ! Only COO matrices can ever be in the BUILD state, whereas -! the ASSEMBLED and UPDATE state can be entered by any class. -! -! In Out Method +! the ASSEMBLED and UPDATE state can be entered by any class. +! +! In Out Method !| ---------------------------------- !| Null Build csall !| Build Build csput @@ -64,7 +64,7 @@ !| Assembled Update reinit !| Update Update csput !| Update Assembled cscnv -!| * unchanged reall +!| * unchanged reall !| Assembled Null free ! ! @@ -74,7 +74,7 @@ ! of the indices, which are PSB_LPK_ so that the entries ! are guaranteed to be able to contain global indices. ! This type only supports data handling and preprocessing, it is -! not supposed to be used for computations. +! not supposed to be used for computations. ! module psb_z_mat_mod @@ -84,7 +84,7 @@ 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 contains ! Getters @@ -126,12 +126,12 @@ module psb_z_mat_mod procedure, pass(a) :: set_unit => psb_z_set_unit procedure, pass(a) :: set_repeatable_updates => psb_z_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_z_csall procedure, pass(a) :: free => psb_z_free procedure, pass(a) :: trim => psb_z_trim procedure, pass(a) :: csput_a => psb_z_csput_a - procedure, pass(a) :: csput_v => psb_z_csput_v + procedure, pass(a) :: csput_v => psb_z_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_z_csgetptn procedure, pass(a) :: csgetrow => psb_z_csgetrow @@ -141,7 +141,7 @@ module psb_z_mat_mod procedure, pass(a) :: lcsgetptn => psb_z_lcsgetptn procedure, pass(a) :: lcsgetrow => psb_z_lcsgetrow generic, public :: csget => lcsgetptn, lcsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_z_tril procedure, pass(a) :: triu => psb_z_triu procedure, pass(a) :: m_csclip => psb_z_csclip @@ -168,7 +168,7 @@ module psb_z_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => z_mat_sync procedure, pass(a) :: is_host => z_mat_is_host @@ -204,16 +204,16 @@ module psb_z_mat_mod procedure, pass(a) :: mv_to_lb => psb_z_mv_to_lb procedure, pass(a) :: cp_from_lb => psb_z_cp_from_lb procedure, pass(a) :: cp_to_lb => psb_z_cp_to_lb - procedure, pass(a) :: mv_from_l => psb_z_mv_from_l - procedure, pass(a) :: mv_to_l => psb_z_mv_to_l - procedure, pass(a) :: cp_from_l => psb_z_cp_from_l - procedure, pass(a) :: cp_to_l => psb_z_cp_to_l + procedure, pass(a) :: mv_from_l => psb_z_mv_from_l + procedure, pass(a) :: mv_to_l => psb_z_mv_to_l + procedure, pass(a) :: cp_from_l => psb_z_cp_from_l + procedure, pass(a) :: cp_to_l => psb_z_cp_to_l generic, public :: mv_from => mv_from_lb, mv_from_l generic, public :: mv_to => mv_to_lb, mv_to_l generic, public :: cp_from => cp_from_lb, cp_from_l generic, public :: cp_to => cp_to_lb, cp_to_l - - ! Computational routines + + ! Computational routines procedure, pass(a) :: get_diag => psb_z_get_diag procedure, pass(a) :: maxval => psb_z_maxval procedure, pass(a) :: spnmi => psb_z_csnmi @@ -233,6 +233,7 @@ module psb_z_mat_mod procedure, pass(a) :: cssv => psb_z_cssv procedure, pass(a) :: cssm => psb_z_cssm generic, public :: spsm => cssm, cssv, cssv_v + procedure, pass(a) :: scalpid => psb_z_scalplusidentity end type psb_zspmat_type @@ -266,7 +267,7 @@ module psb_z_mat_mod type :: psb_lzspmat_type - class(psb_lz_base_sparse_mat), allocatable :: a + class(psb_lz_base_sparse_mat), allocatable :: a contains ! Getters @@ -295,7 +296,7 @@ module psb_z_mat_mod ! Setters procedure, pass(a) :: set_lnrows => psb_lz_set_lnrows procedure, pass(a) :: set_lncols => psb_lz_set_lncols -#if defined(IPK4) && defined(LPK8) +#if defined(IPK4) && defined(LPK8) procedure, pass(a) :: set_inrows => psb_lz_set_inrows procedure, pass(a) :: set_incols => psb_lz_set_incols generic, public :: set_nrows => set_inrows, set_lnrows @@ -304,7 +305,7 @@ module psb_z_mat_mod generic, public :: set_nrows => set_lnrows generic, public :: set_ncols => set_lncols #endif - + procedure, pass(a) :: set_dupl => psb_lz_set_dupl procedure, pass(a) :: set_null => psb_lz_set_null procedure, pass(a) :: set_bld => psb_lz_set_bld @@ -318,12 +319,12 @@ module psb_z_mat_mod procedure, pass(a) :: set_unit => psb_lz_set_unit procedure, pass(a) :: set_repeatable_updates => psb_lz_set_repeatable_updates - ! Memory/data management + ! Memory/data management procedure, pass(a) :: csall => psb_lz_csall procedure, pass(a) :: free => psb_lz_free procedure, pass(a) :: trim => psb_lz_trim procedure, pass(a) :: csput_a => psb_lz_csput_a - procedure, pass(a) :: csput_v => psb_lz_csput_v + procedure, pass(a) :: csput_v => psb_lz_csput_v generic, public :: csput => csput_a, csput_v procedure, pass(a) :: csgetptn => psb_lz_csgetptn procedure, pass(a) :: csgetrow => psb_lz_csgetrow @@ -333,7 +334,7 @@ module psb_z_mat_mod !!$ procedure, pass(a) :: icsgetptn => psb_lz_icsgetptn !!$ procedure, pass(a) :: icsgetrow => psb_lz_icsgetrow !!$ generic, public :: csget => icsgetptn, icsgetrow -#endif +#endif procedure, pass(a) :: tril => psb_lz_tril procedure, pass(a) :: triu => psb_lz_triu procedure, pass(a) :: m_csclip => psb_lz_csclip @@ -360,7 +361,7 @@ module psb_z_mat_mod ! Any derived class having extra storage upon sync ! will guarantee that both fortran/host side and ! external side contain the same data. The base - ! version is only a placeholder. + ! version is only a placeholder. ! procedure, pass(a) :: sync => lz_mat_sync procedure, pass(a) :: is_host => lz_mat_is_host @@ -396,16 +397,16 @@ module psb_z_mat_mod procedure, pass(a) :: mv_to_ib => psb_lz_mv_to_ib procedure, pass(a) :: cp_from_ib => psb_lz_cp_from_ib procedure, pass(a) :: cp_to_ib => psb_lz_cp_to_ib - procedure, pass(a) :: mv_from_i => psb_lz_mv_from_i - procedure, pass(a) :: mv_to_i => psb_lz_mv_to_i - procedure, pass(a) :: cp_from_i => psb_lz_cp_from_i - procedure, pass(a) :: cp_to_i => psb_lz_cp_to_i + procedure, pass(a) :: mv_from_i => psb_lz_mv_from_i + procedure, pass(a) :: mv_to_i => psb_lz_mv_to_i + procedure, pass(a) :: cp_from_i => psb_lz_cp_from_i + procedure, pass(a) :: cp_to_i => psb_lz_cp_to_i generic, public :: mv_from => mv_from_ib, mv_from_i generic, public :: mv_to => mv_to_ib, mv_to_i generic, public :: cp_from => cp_from_ib, cp_from_i generic, public :: cp_to => cp_to_ib, cp_to_i - ! Computational routines + ! Computational routines procedure, pass(a) :: get_diag => psb_lz_get_diag procedure, pass(a) :: maxval => psb_lz_maxval procedure, pass(a) :: spnmi => psb_lz_csnmi @@ -448,7 +449,7 @@ module psb_z_mat_mod ! ! ! - ! Setters + ! Setters ! ! ! @@ -458,142 +459,142 @@ module psb_z_mat_mod ! == =================================== - interface - subroutine psb_z_set_nrows(m,a) + interface + subroutine psb_z_set_nrows(m,a) import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_z_set_nrows end interface - - interface - subroutine psb_z_set_ncols(n,a) + + interface + subroutine psb_z_set_ncols(n,a) import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_z_set_ncols end interface - - interface - subroutine psb_z_set_dupl(n,a) + + interface + subroutine psb_z_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_z_set_dupl end interface - - interface - subroutine psb_z_set_null(a) + + interface + subroutine psb_z_set_null(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_null end interface - - interface - subroutine psb_z_set_bld(a) + + interface + subroutine psb_z_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_bld end interface - - interface - subroutine psb_z_set_upd(a) + + interface + subroutine psb_z_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_upd end interface - - interface - subroutine psb_z_set_asb(a) + + interface + subroutine psb_z_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_set_asb end interface - - interface - subroutine psb_z_set_sorted(a,val) + + interface + subroutine psb_z_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_sorted end interface - - interface - subroutine psb_z_set_triangle(a,val) + + interface + subroutine psb_z_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_triangle end interface - - interface - subroutine psb_z_set_symmetric(a,val) + + interface + subroutine psb_z_set_symmetric(a,val) import :: psb_ipk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_symmetric end interface - - interface - subroutine psb_z_set_unit(a,val) + + interface + subroutine psb_z_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_unit end interface - - interface - subroutine psb_z_set_lower(a,val) + + interface + subroutine psb_z_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_lower end interface - - interface - subroutine psb_z_set_upper(a,val) + + interface + subroutine psb_z_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_z_set_upper end interface - - interface + + interface subroutine psb_z_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_zspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_zspmat_type), intent(in) :: a + class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_sparse_print end interface - interface + interface subroutine psb_z_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_zspmat_type character(len=*), intent(in) :: fname - class(psb_zspmat_type), intent(in) :: a + class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_z_n_sparse_print end interface - - interface + + interface subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_zspmat_type - class(psb_zspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + class(psb_zspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev end subroutine psb_z_get_neigh end interface - - interface - subroutine psb_z_csall(nr,nc,a,info,nz) + + interface + subroutine psb_z_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc @@ -601,31 +602,31 @@ module psb_z_mat_mod integer(psb_ipk_), intent(in), optional :: nz end subroutine psb_z_csall end interface - - interface - subroutine psb_z_reallocate_nz(nz,a) + + interface + subroutine psb_z_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type integer(psb_ipk_), intent(in) :: nz class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_reallocate_nz end interface - - interface - subroutine psb_z_free(a) + + interface + subroutine psb_z_free(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_free end interface - - interface - subroutine psb_z_trim(a) + + interface + subroutine psb_z_trim(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_trim end interface - - interface - subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -634,9 +635,9 @@ module psb_z_mat_mod end subroutine psb_z_csput_a end interface - - interface - subroutine psb_z_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_z_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_vect_mod, only : psb_z_vect_type use psb_i_vect_mod, only : psb_i_vect_type import :: psb_ipk_, psb_lpk_, psb_zspmat_type @@ -647,8 +648,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_csput_v end interface - - interface + + interface subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -663,8 +664,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetptn end interface - - interface + + interface subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -680,8 +681,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetrow end interface - - interface + + interface subroutine psb_z_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -695,8 +696,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csgetblk end interface - - interface + + interface subroutine psb_z_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -708,8 +709,8 @@ module psb_z_mat_mod class(psb_zspmat_type), optional, intent(inout) :: u end subroutine psb_z_tril end interface - - interface + + interface subroutine psb_z_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -723,7 +724,7 @@ module psb_z_mat_mod end interface - interface + interface subroutine psb_z_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -734,8 +735,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_csclip end interface - - interface + + interface subroutine psb_z_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_coo_sparse_mat @@ -746,60 +747,60 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_z_b_csclip end interface - - interface + + interface subroutine psb_z_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_z_mold end interface - - interface - subroutine psb_z_asb(a,mold) + + interface + subroutine psb_z_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_z_asb end interface - - interface + + interface subroutine psb_z_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_transp_1mat end interface - - interface + + interface subroutine psb_z_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b end subroutine psb_z_transp_2mat end interface - - interface + + interface subroutine psb_z_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a end subroutine psb_z_transc_1mat end interface - - interface + + interface subroutine psb_z_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b end subroutine psb_z_transc_2mat end interface - - interface + + interface subroutine psb_z_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_zspmat_type - class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_z_reinit - + end interface @@ -814,9 +815,9 @@ module psb_z_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a @@ -827,9 +828,9 @@ module psb_z_mat_mod class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_z_cscnv end interface - - interface + + interface subroutine psb_z_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a @@ -839,9 +840,9 @@ module psb_z_mat_mod class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_z_cscnv_ip end interface - - interface + + interface subroutine psb_z_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a @@ -850,12 +851,12 @@ module psb_z_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_z_cscnv_base end interface - + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_z_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(in) :: a @@ -863,46 +864,46 @@ module psb_z_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_z_clip_d end interface - - interface + + interface subroutine psb_z_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_z_clip_d_ip end interface - + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_z_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_from end interface - - interface + + interface subroutine psb_z_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(in) :: b end subroutine psb_z_cp_from end interface - - interface + + interface subroutine psb_z_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_to end interface - - interface + + interface subroutine psb_z_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_z_cp_to @@ -910,63 +911,63 @@ module psb_z_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_z_mv_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_from_lb end interface - - interface + + interface subroutine psb_z_cp_from_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_zspmat_type), intent(out) :: a class(psb_lz_base_sparse_mat), intent(in) :: b end subroutine psb_z_cp_from_lb end interface - - interface + + interface subroutine psb_z_mv_to_lb(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_zspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_z_mv_to_lb end interface - - interface + + interface subroutine psb_z_cp_to_lb(a,b) - import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_zspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_z_cp_to_lb end interface - interface + interface subroutine psb_z_mv_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lzspmat_type class(psb_zspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b end subroutine psb_z_mv_from_l end interface - - interface + + interface subroutine psb_z_cp_from_l(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lzspmat_type class(psb_zspmat_type), intent(out) :: a class(psb_lzspmat_type), intent(in) :: b end subroutine psb_z_cp_from_l end interface - - interface + + interface subroutine psb_z_mv_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lzspmat_type class(psb_zspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b end subroutine psb_z_mv_to_l end interface - - interface + + interface subroutine psb_z_cp_to_l(a,b) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_, psb_lzspmat_type class(psb_zspmat_type), intent(in) :: a @@ -976,8 +977,8 @@ module psb_z_mat_mod ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_zspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a @@ -985,8 +986,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_zspmat_type_move end interface - - interface + + interface subroutine psb_zspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_zspmat_type class(psb_zspmat_type), intent(inout) :: a @@ -1012,7 +1013,7 @@ module psb_z_mat_mod ! == =================================== interface psb_csmm - subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) + subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -1020,7 +1021,7 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csmm - subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) + subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1028,7 +1029,7 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info character, optional, intent(in) :: trans end subroutine psb_z_csmv - subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) + subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_z_vect_mod, only : psb_z_vect_type import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1039,9 +1040,9 @@ module psb_z_mat_mod character, optional, intent(in) :: trans end subroutine psb_z_csmv_vect end interface - + interface psb_cssm - subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) @@ -1050,7 +1051,7 @@ module psb_z_mat_mod character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_cssm - subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1059,7 +1060,7 @@ module psb_z_mat_mod character, optional, intent(in) :: trans, scale complex(psb_dpk_), intent(in), optional :: d(:) end subroutine psb_z_cssv - subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) + subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_z_vect_mod, only : psb_z_vect_type import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1071,24 +1072,24 @@ module psb_z_mat_mod type(psb_z_vect_type), optional, intent(inout) :: d end subroutine psb_z_cssv_vect end interface - - interface + + interface function psb_z_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_z_maxval end interface - - interface + + interface function psb_z_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_z_csnmi end interface - - interface + + interface function psb_z_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1096,7 +1097,7 @@ module psb_z_mat_mod end function psb_z_csnm1 end interface - interface + interface function psb_z_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1105,7 +1106,7 @@ module psb_z_mat_mod end function psb_z_rowsum end interface - interface + interface function psb_z_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1113,8 +1114,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_z_arwsum end interface - - interface + + interface function psb_z_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1123,7 +1124,7 @@ module psb_z_mat_mod end function psb_z_colsum end interface - interface + interface function psb_z_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1132,7 +1133,7 @@ module psb_z_mat_mod end function psb_z_aclsum end interface - interface + interface function psb_z_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ class(psb_zspmat_type), intent(in) :: a @@ -1140,7 +1141,7 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_z_get_diag end interface - + interface psb_scal subroutine psb_z_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ @@ -1157,12 +1158,20 @@ module psb_z_mat_mod end subroutine psb_z_scals end interface + interface psb_scalplusidentity + subroutine psb_z_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ + class(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_scalplusidentity + end interface ! == =================================== ! ! ! - ! Setters + ! Setters ! ! ! @@ -1172,156 +1181,156 @@ module psb_z_mat_mod ! == =================================== - interface - subroutine psb_lz_set_lnrows(m,a) + interface + subroutine psb_lz_set_lnrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m end subroutine psb_lz_set_lnrows #if defined(IPK4) && defined(LPK8) - subroutine psb_lz_set_inrows(m,a) + subroutine psb_lz_set_inrows(m,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m end subroutine psb_lz_set_inrows #endif end interface - - interface - subroutine psb_lz_set_lncols(n,a) + + interface + subroutine psb_lz_set_lncols(n,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n end subroutine psb_lz_set_lncols -#if defined(IPK4) && defined(LPK8) - subroutine psb_lz_set_incols(n,a) +#if defined(IPK4) && defined(LPK8) + subroutine psb_lz_set_incols(n,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_lz_set_incols #endif end interface - - interface - subroutine psb_lz_set_dupl(n,a) + + interface + subroutine psb_lz_set_dupl(n,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n end subroutine psb_lz_set_dupl end interface - - interface - subroutine psb_lz_set_null(a) + + interface + subroutine psb_lz_set_null(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_set_null end interface - - interface - subroutine psb_lz_set_bld(a) + + interface + subroutine psb_lz_set_bld(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_set_bld end interface - - interface - subroutine psb_lz_set_upd(a) + + interface + subroutine psb_lz_set_upd(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_set_upd end interface - - interface - subroutine psb_lz_set_asb(a) + + interface + subroutine psb_lz_set_asb(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_set_asb end interface - - interface - subroutine psb_lz_set_sorted(a,val) + + interface + subroutine psb_lz_set_sorted(a,val) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_sorted end interface - - interface - subroutine psb_lz_set_triangle(a,val) + + interface + subroutine psb_lz_set_triangle(a,val) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_triangle end interface - - interface - subroutine psb_lz_set_symmetric(a,val) + + interface + subroutine psb_lz_set_symmetric(a,val) import :: psb_ipk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_symmetric end interface - - interface - subroutine psb_lz_set_unit(a,val) + + interface + subroutine psb_lz_set_unit(a,val) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_unit end interface - - interface - subroutine psb_lz_set_lower(a,val) + + interface + subroutine psb_lz_set_lower(a,val) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_lower end interface - - interface - subroutine psb_lz_set_upper(a,val) + + interface + subroutine psb_lz_set_upper(a,val) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val end subroutine psb_lz_set_upper end interface - - interface + + interface subroutine psb_lz_sparse_print(iout,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type integer(psb_ipk_), intent(in) :: iout - class(psb_lzspmat_type), intent(in) :: a + class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lz_sparse_print end interface - interface + interface subroutine psb_lz_n_sparse_print(fname,a,iv,head,ivr,ivc) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type character(len=*), intent(in) :: fname - class(psb_lzspmat_type), intent(in) :: a + class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) end subroutine psb_lz_n_sparse_print end interface - - interface + + interface subroutine psb_lz_get_neigh(a,idx,neigh,n,info,lev) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type - class(psb_lzspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + class(psb_lzspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev end subroutine psb_lz_get_neigh end interface - - interface - subroutine psb_lz_csall(nr,nc,a,info,nz) + + interface + subroutine psb_lz_csall(nr,nc,a,info,nz) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc @@ -1329,31 +1338,31 @@ module psb_z_mat_mod integer(psb_lpk_), intent(in), optional :: nz end subroutine psb_lz_csall end interface - - interface - subroutine psb_lz_reallocate_nz(nz,a) + + interface + subroutine psb_lz_reallocate_nz(nz,a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type integer(psb_lpk_), intent(in) :: nz class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_reallocate_nz end interface - - interface - subroutine psb_lz_free(a) + + interface + subroutine psb_lz_free(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_free end interface - - interface - subroutine psb_lz_trim(a) + + interface + subroutine psb_lz_trim(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_trim end interface - - interface - subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -1362,9 +1371,9 @@ module psb_z_mat_mod end subroutine psb_lz_csput_a end interface - - interface - subroutine psb_lz_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) + + interface + subroutine psb_lz_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_vect_mod, only : psb_z_vect_type use psb_l_vect_mod, only : psb_l_vect_type import :: psb_ipk_, psb_lpk_, psb_lzspmat_type @@ -1375,8 +1384,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_csput_v end interface - - interface + + interface subroutine psb_lz_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1391,8 +1400,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csgetptn end interface - - interface + + interface subroutine psb_lz_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1408,8 +1417,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csgetrow end interface - - interface + + interface subroutine psb_lz_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1423,8 +1432,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csgetblk end interface - - interface + + interface subroutine psb_lz_tril(a,l,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,u) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1436,8 +1445,8 @@ module psb_z_mat_mod class(psb_lzspmat_type), optional, intent(inout) :: u end subroutine psb_lz_tril end interface - - interface + + interface subroutine psb_lz_triu(a,u,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,l) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1451,7 +1460,7 @@ module psb_z_mat_mod end interface - interface + interface subroutine psb_lz_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1462,8 +1471,8 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_csclip end interface - - interface + + interface subroutine psb_lz_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_coo_sparse_mat @@ -1474,60 +1483,60 @@ module psb_z_mat_mod logical, intent(in), optional :: rscale,cscale end subroutine psb_lz_b_csclip end interface - - interface + + interface subroutine psb_lz_mold(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), allocatable, intent(out) :: b end subroutine psb_lz_mold end interface - - interface - subroutine psb_lz_asb(a,mold) + + interface + subroutine psb_lz_asb(a,mold) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), optional, intent(in) :: mold end subroutine psb_lz_asb end interface - - interface + + interface subroutine psb_lz_transp_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_transp_1mat end interface - - interface + + interface subroutine psb_lz_transp_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b end subroutine psb_lz_transp_2mat end interface - - interface + + interface subroutine psb_lz_transc_1mat(a) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a end subroutine psb_lz_transc_1mat end interface - - interface + + interface subroutine psb_lz_transc_2mat(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b end subroutine psb_lz_transc_2mat end interface - - interface + + interface subroutine psb_lz_reinit(a,clear) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type - class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: clear end subroutine psb_lz_reinit - + end interface @@ -1542,9 +1551,9 @@ module psb_z_mat_mod ! 3 versions: copying to target ! copying to a base_sparse_mat object. ! in place - ! ! - interface + ! + interface subroutine psb_lz_cscnv(a,b,info,type,mold,upd,dupl) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(in) :: a @@ -1555,9 +1564,9 @@ module psb_z_mat_mod class(psb_lz_base_sparse_mat), intent(in), optional :: mold end subroutine psb_lz_cscnv end interface - - interface + + interface subroutine psb_lz_cscnv_ip(a,iinfo,type,mold,dupl) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a @@ -1567,9 +1576,9 @@ module psb_z_mat_mod class(psb_lz_base_sparse_mat), intent(in), optional :: mold end subroutine psb_lz_cscnv_ip end interface - - interface + + interface subroutine psb_lz_cscnv_base(a,b,info,dupl) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(in) :: a @@ -1578,13 +1587,13 @@ module psb_z_mat_mod integer(psb_ipk_),optional, intent(in) :: dupl end subroutine psb_lz_cscnv_base end interface - - + + ! ! Produce a version of the matrix with diagonal cut - ! out; passes through a COO buffer. + ! out; passes through a COO buffer. ! - interface + interface subroutine psb_lz_clip_d(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(in) :: a @@ -1592,47 +1601,47 @@ module psb_z_mat_mod integer(psb_ipk_),intent(out) :: info end subroutine psb_lz_clip_d end interface - - interface + + interface subroutine psb_lz_clip_d_ip(a,info) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_),intent(out) :: info end subroutine psb_lz_clip_d_ip end interface - - + + ! ! These four interfaces cut through the ! encapsulation between spmat_type and base_sparse_mat. ! - interface + interface subroutine psb_lz_mv_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_mv_from end interface - - interface + + interface subroutine psb_lz_cp_from(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(out) :: a class(psb_lz_base_sparse_mat), intent(in) :: b end subroutine psb_lz_cp_from end interface - - interface + + interface subroutine psb_lz_mv_to(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_mv_to end interface - - interface + + interface subroutine psb_lz_cp_to(a,b) - import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_lz_base_sparse_mat class(psb_lzspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_cp_to @@ -1640,63 +1649,63 @@ module psb_z_mat_mod ! ! Mixed type conversions ! - interface + interface subroutine psb_lz_mv_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_mv_from_ib end interface - - interface + + interface subroutine psb_lz_cp_from_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_lzspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(in) :: b end subroutine psb_lz_cp_from_ib end interface - - interface + + interface subroutine psb_lz_mv_to_ib(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_lzspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_mv_to_ib end interface - - interface + + interface subroutine psb_lz_cp_to_ib(a,b) - import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_z_base_sparse_mat class(psb_lzspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b end subroutine psb_lz_cp_to_ib end interface - interface + interface subroutine psb_lz_mv_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_zspmat_type class(psb_lzspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b end subroutine psb_lz_mv_from_i end interface - - interface + + interface subroutine psb_lz_cp_from_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_zspmat_type class(psb_lzspmat_type), intent(out) :: a class(psb_zspmat_type), intent(in) :: b end subroutine psb_lz_cp_from_i end interface - - interface + + interface subroutine psb_lz_mv_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_zspmat_type class(psb_lzspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b end subroutine psb_lz_mv_to_i end interface - - interface + + interface subroutine psb_lz_cp_to_i(a,b) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_, psb_zspmat_type class(psb_lzspmat_type), intent(in) :: a @@ -1704,11 +1713,11 @@ module psb_z_mat_mod end subroutine psb_lz_cp_to_i end interface - + ! ! Transfer the internal allocation to the target. - ! - interface psb_move_alloc + ! + interface psb_move_alloc subroutine psb_lzspmat_type_move(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a @@ -1716,8 +1725,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lzspmat_type_move end interface - - interface + + interface subroutine psb_lzspmat_clone(a,b,info) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type class(psb_lzspmat_type), intent(inout) :: a @@ -1728,7 +1737,7 @@ module psb_z_mat_mod - interface + interface function psb_lz_get_diag(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1736,7 +1745,7 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lz_get_diag end interface - + interface psb_scal subroutine psb_lz_scal(d,a,info,side) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ @@ -1753,23 +1762,23 @@ module psb_z_mat_mod end subroutine psb_lz_scals end interface - interface + interface function psb_lz_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_maxval end interface - - interface + + interface function psb_lz_csnmi(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_) :: res end function psb_lz_csnmi end interface - - interface + + interface function psb_lz_csnm1(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1777,7 +1786,7 @@ module psb_z_mat_mod end function psb_lz_csnm1 end interface - interface + interface function psb_lz_rowsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1786,7 +1795,7 @@ module psb_z_mat_mod end function psb_lz_rowsum end interface - interface + interface function psb_lz_arwsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1794,8 +1803,8 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lz_arwsum end interface - - interface + + interface function psb_lz_colsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1804,7 +1813,7 @@ module psb_z_mat_mod end function psb_lz_colsum end interface - interface + interface function psb_lz_aclsum(a,info) result(d) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ class(psb_lzspmat_type), intent(in) :: a @@ -1812,40 +1821,40 @@ module psb_z_mat_mod integer(psb_ipk_), intent(out) :: info end function psb_lz_aclsum end interface - -contains - subroutine psb_z_set_mat_default(a) - implicit none +contains + + subroutine psb_z_set_mat_default(a) + implicit none class(psb_z_base_sparse_mat), intent(in) :: a - - if (allocated(psb_z_base_mat_default)) then + + if (allocated(psb_z_base_mat_default)) then deallocate(psb_z_base_mat_default) end if allocate(psb_z_base_mat_default, mold=a) end subroutine psb_z_set_mat_default - + function psb_z_get_mat_default(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), pointer :: res - + res => psb_z_get_base_mat_default() - + end function psb_z_get_mat_default - + function psb_z_get_base_mat_default() result(res) - implicit none + implicit none class(psb_z_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_z_base_mat_default)) then + + if (.not.allocated(psb_z_base_mat_default)) then allocate(psb_z_csr_sparse_mat :: psb_z_base_mat_default) end if res => psb_z_base_mat_default - + end function psb_z_get_base_mat_default @@ -1855,7 +1864,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -1863,26 +1872,26 @@ contains ! ! == =================================== - + function psb_z_sizeof(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_z_sizeof function psb_z_get_fmt(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -1892,11 +1901,11 @@ contains function psb_z_get_dupl(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -1904,11 +1913,11 @@ contains end function psb_z_get_dupl function psb_z_get_nrows(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -1917,11 +1926,11 @@ contains end function psb_z_get_nrows function psb_z_get_ncols(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -1930,11 +1939,11 @@ contains end function psb_z_get_ncols function psb_z_is_triangle(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -1943,11 +1952,11 @@ contains end function psb_z_is_triangle function psb_z_is_symmetric(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -1956,11 +1965,11 @@ contains end function psb_z_is_symmetric function psb_z_is_unit(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -1969,11 +1978,11 @@ contains end function psb_z_is_unit function psb_z_is_upper(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -1982,11 +1991,11 @@ contains end function psb_z_is_upper function psb_z_is_lower(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -1995,12 +2004,12 @@ contains end function psb_z_is_lower function psb_z_is_null(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2008,11 +2017,11 @@ contains end function psb_z_is_null function psb_z_is_bld(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2021,11 +2030,11 @@ contains end function psb_z_is_bld function psb_z_is_upd(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2034,11 +2043,11 @@ contains end function psb_z_is_upd function psb_z_is_asb(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2047,11 +2056,11 @@ contains end function psb_z_is_asb function psb_z_is_sorted(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2060,11 +2069,11 @@ contains end function psb_z_is_sorted function psb_z_is_by_rows(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2073,11 +2082,11 @@ contains end function psb_z_is_by_rows function psb_z_is_by_cols(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2088,61 +2097,61 @@ contains ! subroutine z_mat_sync(a) - implicit none + implicit none class(psb_zspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine z_mat_sync ! subroutine z_mat_set_host(a) - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine z_mat_set_host ! subroutine z_mat_set_dev(a) - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine z_mat_set_dev ! subroutine z_mat_set_sync(a) - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine z_mat_set_sync ! function z_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function z_mat_is_dev - + ! function z_mat_is_host(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2152,11 +2161,11 @@ contains ! function z_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2167,11 +2176,11 @@ contains function psb_z_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2179,25 +2188,25 @@ contains end function psb_z_is_repeatable_updates - subroutine psb_z_set_repeatable_updates(a,val) - implicit none + subroutine psb_z_set_repeatable_updates(a,val) + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_z_set_repeatable_updates function psb_z_get_nzeros(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2205,13 +2214,13 @@ contains function psb_z_get_size(a) result(res) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2219,23 +2228,23 @@ contains function psb_z_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_ipk_), intent(in) :: idx class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_z_get_nz_row subroutine psb_z_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_zspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_z_clean_zeros @@ -2243,7 +2252,7 @@ contains #if defined(IPK4) && defined(LPK8) subroutine psb_z_lcsgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2272,17 +2281,17 @@ contains end if call a%csget(imin,imax,nz,lia,lja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_z_lcsgetptn - + subroutine psb_z_lcsgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in) :: imin,imax integer(psb_ipk_), intent(out) :: nz @@ -2311,12 +2320,12 @@ contains call a%csget(imin,imax,nz,lia,lja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - + call psb_ensure_size(size(lia),ia,info) if (info == psb_success_) ia(:) = lia(:) call psb_ensure_size(size(lja),ja,info) if (info == psb_success_) ja(:) = lja(:) - + end subroutine psb_z_lcsgetrow #endif @@ -2324,38 +2333,38 @@ contains ! lz methods ! - - subroutine psb_lz_set_mat_default(a) - implicit none + + subroutine psb_lz_set_mat_default(a) + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a - - if (allocated(psb_lz_base_mat_default)) then + + if (allocated(psb_lz_base_mat_default)) then deallocate(psb_lz_base_mat_default) end if allocate(psb_lz_base_mat_default, mold=a) end subroutine psb_lz_set_mat_default - + function psb_lz_get_mat_default(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), pointer :: res - + res => psb_lz_get_base_mat_default() - + end function psb_lz_get_mat_default - + function psb_lz_get_base_mat_default() result(res) - implicit none + implicit none class(psb_lz_base_sparse_mat), pointer :: res - - if (.not.allocated(psb_lz_base_mat_default)) then + + if (.not.allocated(psb_lz_base_mat_default)) then allocate(psb_lz_csr_sparse_mat :: psb_lz_base_mat_default) end if res => psb_lz_base_mat_default - + end function psb_lz_get_base_mat_default @@ -2365,7 +2374,7 @@ contains ! ! ! - ! Getters + ! Getters ! ! ! @@ -2373,26 +2382,26 @@ contains ! ! == =================================== - + function psb_lz_sizeof(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_epk_) :: res - + res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%sizeof() end if - + end function psb_lz_sizeof function psb_lz_get_fmt(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a character(len=5) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_fmt() else res = 'NULL' @@ -2402,11 +2411,11 @@ contains function psb_lz_get_dupl(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_ipk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_dupl() else res = psb_invalid_ @@ -2414,11 +2423,11 @@ contains end function psb_lz_get_dupl function psb_lz_get_nrows(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nrows() else res = 0 @@ -2427,11 +2436,11 @@ contains end function psb_lz_get_nrows function psb_lz_get_ncols(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_) :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_ncols() else res = 0 @@ -2440,11 +2449,11 @@ contains end function psb_lz_get_ncols function psb_lz_is_triangle(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_triangle() else res = .false. @@ -2454,11 +2463,11 @@ contains function psb_lz_is_symmetric(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_symmetric() else res = .false. @@ -2467,11 +2476,11 @@ contains end function psb_lz_is_symmetric function psb_lz_is_unit(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_unit() else res = .false. @@ -2480,11 +2489,11 @@ contains end function psb_lz_is_unit function psb_lz_is_upper(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upper() else res = .false. @@ -2493,11 +2502,11 @@ contains end function psb_lz_is_upper function psb_lz_is_lower(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = .not. a%a%is_upper() else res = .false. @@ -2506,12 +2515,12 @@ contains end function psb_lz_is_lower function psb_lz_is_null(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then - res = a%a%is_null() + if (allocated(a%a)) then + res = a%a%is_null() else res = .true. end if @@ -2519,11 +2528,11 @@ contains end function psb_lz_is_null function psb_lz_is_bld(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_bld() else res = .false. @@ -2532,11 +2541,11 @@ contains end function psb_lz_is_bld function psb_lz_is_upd(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_upd() else res = .false. @@ -2545,11 +2554,11 @@ contains end function psb_lz_is_upd function psb_lz_is_asb(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_asb() else res = .false. @@ -2558,11 +2567,11 @@ contains end function psb_lz_is_asb function psb_lz_is_sorted(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_sorted() else res = .false. @@ -2571,11 +2580,11 @@ contains end function psb_lz_is_sorted function psb_lz_is_by_rows(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_rows() else res = .false. @@ -2584,11 +2593,11 @@ contains end function psb_lz_is_by_rows function psb_lz_is_by_cols(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_by_cols() else res = .false. @@ -2599,61 +2608,61 @@ contains ! subroutine lz_mat_sync(a) - implicit none + implicit none class(psb_lzspmat_type), target, intent(in) :: a - + if (allocated(a%a)) call a%a%sync() end subroutine lz_mat_sync ! subroutine lz_mat_set_host(a) - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_host() - + end subroutine lz_mat_set_host ! subroutine lz_mat_set_dev(a) - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_dev() - + end subroutine lz_mat_set_dev ! subroutine lz_mat_set_sync(a) - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a if (allocated(a%a)) call a%a%set_sync() - + end subroutine lz_mat_set_sync ! function lz_mat_is_dev(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_dev() else res = .false. end if end function lz_mat_is_dev - + ! function lz_mat_is_host(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_host() else @@ -2663,11 +2672,11 @@ contains ! function lz_mat_is_sync(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - + if (allocated(a%a)) then res = a%a%is_sync() else @@ -2678,11 +2687,11 @@ contains function psb_lz_is_repeatable_updates(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a logical :: res - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%is_repeatable_updates() else res = .false. @@ -2690,25 +2699,25 @@ contains end function psb_lz_is_repeatable_updates - subroutine psb_lz_set_repeatable_updates(a,val) - implicit none + subroutine psb_lz_set_repeatable_updates(a,val) + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val - - if (allocated(a%a)) then + + if (allocated(a%a)) then call a%a%set_repeatable_updates(val) end if - + end subroutine psb_lz_set_repeatable_updates function psb_lz_get_nzeros(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_nzeros() end if @@ -2716,13 +2725,13 @@ contains function psb_lz_get_size(a) result(res) - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - if (allocated(a%a)) then + if (allocated(a%a)) then res = a%a%get_size() end if @@ -2730,23 +2739,23 @@ contains function psb_lz_get_nz_row(idx,a) result(res) - implicit none + implicit none integer(psb_lpk_), intent(in) :: idx class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_) :: res res = 0 - + if (allocated(a%a)) res = a%a%get_nz_row(idx) end function psb_lz_get_nz_row subroutine psb_lz_clean_zeros(a,info) - implicit none + implicit none integer(psb_ipk_), intent(out) :: info class(psb_lzspmat_type), intent(inout) :: a - info = 0 + info = 0 if (allocated(a%a)) call a%a%clean_zeros(info) end subroutine psb_lz_clean_zeros @@ -2754,7 +2763,7 @@ contains #if defined(IPK4) && defined(LPK8) !!$ subroutine psb_lz_icsgetptn(imin,imax,a,nz,ia,ja,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lzspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2790,12 +2799,12 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_lz_icsgetptn -!!$ +!!$ !!$ subroutine psb_lz_icsgetrow(imin,imax,a,nz,ia,ja,val,info,& !!$ & jmin,jmax,iren,append,nzin,rscale,cscale) -!!$ implicit none +!!$ implicit none !!$ class(psb_lzspmat_type), intent(in) :: a !!$ integer(psb_ipk_), intent(in) :: imin,imax !!$ integer(psb_ipk_), intent(out) :: nz @@ -2831,7 +2840,7 @@ contains !!$ if (info == psb_success_) ia(:) = lia(:) !!$ call psb_ensure_size(size(lja),ja,info) !!$ if (info == psb_success_) ja(:) = lja(:) -!!$ +!!$ !!$ end subroutine psb_lz_icsgetrow #endif diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index 879638bf6..ad631d94e 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == ================================== ! ! @@ -45,7 +45,7 @@ subroutine psb_c_base_cp_to_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -69,7 +69,7 @@ subroutine psb_c_base_cp_from_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -94,7 +94,7 @@ subroutine psb_c_base_cp_to_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -103,10 +103,10 @@ subroutine psb_c_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -117,12 +117,12 @@ subroutine psb_c_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -136,7 +136,7 @@ subroutine psb_c_base_cp_from_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -148,10 +148,10 @@ subroutine psb_c_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_c_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -160,8 +160,8 @@ subroutine psb_c_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -181,7 +181,7 @@ subroutine psb_c_base_mv_to_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -193,17 +193,17 @@ subroutine psb_c_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -218,7 +218,7 @@ subroutine psb_c_base_mv_from_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -229,17 +229,17 @@ subroutine psb_c_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -255,7 +255,7 @@ subroutine psb_c_base_mv_to_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -267,7 +267,7 @@ subroutine psb_c_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_c_coo_sparse_mat) @@ -285,7 +285,7 @@ subroutine psb_c_base_mv_from_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -297,7 +297,7 @@ subroutine psb_c_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_c_coo_sparse_mat) @@ -313,23 +313,23 @@ end subroutine psb_c_base_mv_from_fmt subroutine psb_c_base_clean_zeros(a, info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_clean_zeros - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_c_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_c_base_clean_zeros -subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csput_a - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -350,11 +350,11 @@ subroutine psb_c_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_c_base_csput_a -subroutine psb_c_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csput_v use psb_c_base_vect_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -366,24 +366,24 @@ subroutine psb_c_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() if (ia%is_dev()) call ia%sync() if (ja%is_dev()) call ja%sync() - call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -395,7 +395,7 @@ end subroutine psb_c_base_csput_v subroutine psb_c_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csgetrow @@ -433,7 +433,7 @@ end subroutine psb_c_base_csgetrow ! subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csgetblk @@ -456,22 +456,22 @@ subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -486,19 +486,19 @@ subroutine psb_c_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'c_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -526,7 +526,7 @@ end subroutine psb_c_base_csgetblk subroutine psb_c_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csclip @@ -547,46 +547,46 @@ subroutine psb_c_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -615,7 +615,7 @@ end subroutine psb_c_base_csclip ! subroutine psb_c_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_tril @@ -627,8 +627,8 @@ subroutine psb_c_base_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_c_coo_sparse_mat), optional, intent(out) :: u - - integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk + + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) complex(psb_spk_), allocatable :: val(:) @@ -640,51 +640,51 @@ subroutine psb_c_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -716,7 +716,7 @@ subroutine psb_c_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -724,8 +724,8 @@ subroutine psb_c_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -738,7 +738,7 @@ subroutine psb_c_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -747,8 +747,8 @@ subroutine psb_c_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -766,7 +766,7 @@ end subroutine psb_c_base_tril subroutine psb_c_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_triu @@ -778,7 +778,7 @@ subroutine psb_c_base_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_c_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) @@ -791,57 +791,57 @@ subroutine psb_c_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -874,13 +874,13 @@ subroutine psb_c_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -888,7 +888,7 @@ subroutine psb_c_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -897,8 +897,8 @@ subroutine psb_c_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -919,45 +919,45 @@ end subroutine psb_c_base_triu subroutine psb_c_base_clone(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_c_base_clone subroutine psb_c_base_make_nonunit(a) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat) :: tmp - - integer(psb_ipk_) :: i, j, m, n, nz, mnm, info - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + integer(psb_ipk_) :: i, j, m, n, nz, mnm, info + + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -974,10 +974,10 @@ subroutine psb_c_base_make_nonunit(a) end subroutine psb_c_base_make_nonunit -subroutine psb_c_base_mold(a,b,info) +subroutine psb_c_base_mold(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mold use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -999,7 +999,7 @@ end subroutine psb_c_base_mold subroutine psb_c_base_transp_2mat(a,b) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1019,11 +1019,11 @@ subroutine psb_c_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1035,7 +1035,7 @@ end subroutine psb_c_base_transp_2mat subroutine psb_c_base_transc_2mat(a,b) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_transc_2mat - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1055,11 +1055,11 @@ subroutine psb_c_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1071,7 +1071,7 @@ end subroutine psb_c_base_transc_2mat subroutine psb_c_base_transp_1mat(a) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a @@ -1085,12 +1085,12 @@ subroutine psb_c_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1102,7 +1102,7 @@ end subroutine psb_c_base_transp_1mat subroutine psb_c_base_transc_1mat(a) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_transc_1mat - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a @@ -1116,12 +1116,12 @@ subroutine psb_c_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1145,11 +1145,11 @@ end subroutine psb_c_base_transc_1mat ! ! == ================================== -subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csmm use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1172,10 +1172,10 @@ subroutine psb_c_base_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_c_base_csmm -subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csmv use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1199,10 +1199,10 @@ subroutine psb_c_base_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_c_base_csmv -subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_inner_cssm use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1225,10 +1225,10 @@ subroutine psb_c_base_inner_cssm(alpha,a,x,beta,y,info,trans) end subroutine psb_c_base_inner_cssm -subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_inner_cssv use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1251,11 +1251,11 @@ subroutine psb_c_base_inner_cssv(alpha,a,x,beta,y,info,trans) end subroutine psb_c_base_inner_cssv -subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cssm use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1271,7 +1271,7 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1291,42 +1291,42 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) then + allocate(tmp(nac,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) then do i=1, nac - tmp(i,1:nc) = d(i)*x(i,1:nc) + tmp(i,1:nc) = d(i)*x(i,1:nc) end do end if if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ @@ -1334,21 +1334,21 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - allocate(tmp(nar,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(cone,x,czero,tmp,info,trans) - if (info == psb_success_)then + if (info == psb_success_)then do i=1, nar - tmp(i,1:nc) = d(i)*tmp(i,1:nc) + tmp(i,1:nc) = d(i)*tmp(i,1:nc) end do end if if (info == psb_success_)& & call psb_geaxpby(nar,nc,alpha,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if @@ -1357,13 +1357,13 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_cssm') goto 9999 end if @@ -1378,11 +1378,11 @@ subroutine psb_c_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_c_base_cssm -subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cssv use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1418,58 +1418,58 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call inner_vscal(nac,d,x,tmp) + allocate(tmp(nac),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call inner_vscal(nac,d,x,tmp) if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == czero) then + if (beta == czero) then call a%inner_spsm(alpha,x,czero,y,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,y) else - allocate(tmp(nar),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,czero,tmp,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,tmp) if (info == psb_success_)& & call psb_geaxpby(nar,cone,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1479,13 +1479,13 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1500,37 +1500,37 @@ subroutine psb_c_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) return contains subroutine inner_vscal(n,d,x,y) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n complex(psb_spk_), intent(in) :: d(*),x(*) complex(psb_spk_), intent(out) :: y(*) integer(psb_ipk_) :: i do i=1,n - y(i) = d(i)*x(i) + y(i) = d(i)*x(i) end do end subroutine inner_vscal subroutine inner_vscal1(n,d,x) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n complex(psb_spk_), intent(in) :: d(*) complex(psb_spk_), intent(inout) :: x(*) integer(psb_ipk_) :: i do i=1,n - x(i) = d(i)*x(i) + x(i) = d(i)*x(i) end do end subroutine inner_vscal1 end subroutine psb_c_base_cssv -subroutine psb_c_base_scals(d,a,info) +subroutine psb_c_base_scals(d,a,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_scals use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1550,12 +1550,33 @@ subroutine psb_c_base_scals(d,a,info) end subroutine psb_c_base_scals +subroutine psb_c_base_scalplusidentity(d,a,info) + use psb_c_base_mat_mod, psb_protect_name => psb_c_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_c_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='c_scalplusidentity' + logical, parameter :: debug=.false. -subroutine psb_c_base_scal(d,a,info,side) + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_c_base_scalplusidentity + +subroutine psb_c_base_scal(d,a,info,side) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_scal use psb_error_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1581,7 +1602,7 @@ function psb_c_base_maxval(a) result(res) use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_maxval - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1608,27 +1629,27 @@ function psb_c_base_csnmi(a) result(res) use psb_realloc_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csnmi - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1646,27 +1667,27 @@ function psb_c_base_csnm1(a) result(res) use psb_realloc_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_csnm1 - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1678,7 +1699,7 @@ function psb_c_base_csnm1(a) result(res) end function psb_c_base_csnm1 -subroutine psb_c_base_rowsum(d,a) +subroutine psb_c_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_rowsum @@ -1700,7 +1721,7 @@ subroutine psb_c_base_rowsum(d,a) end subroutine psb_c_base_rowsum -subroutine psb_c_base_arwsum(d,a) +subroutine psb_c_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_arwsum @@ -1722,7 +1743,7 @@ subroutine psb_c_base_arwsum(d,a) end subroutine psb_c_base_arwsum -subroutine psb_c_base_colsum(d,a) +subroutine psb_c_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_colsum @@ -1744,7 +1765,7 @@ subroutine psb_c_base_colsum(d,a) end subroutine psb_c_base_colsum -subroutine psb_c_base_aclsum(d,a) +subroutine psb_c_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_aclsum @@ -1766,12 +1787,12 @@ subroutine psb_c_base_aclsum(d,a) end subroutine psb_c_base_aclsum -subroutine psb_c_base_get_diag(a,d,info) +subroutine psb_c_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_get_diag - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1797,9 +1818,9 @@ end subroutine psb_c_base_get_diag ! ! ! Computational routines for c_VECT -! variables. If the actual data type is -! a "normal" one, these are sufficient. -! +! variables. If the actual data type is +! a "normal" one, these are sufficient. +! ! ! ! @@ -1807,11 +1828,11 @@ end subroutine psb_c_base_get_diag -subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_base_vect_mv - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x @@ -1820,7 +1841,7 @@ subroutine psb_c_base_vect_mv(alpha,a,x,beta,y,info,trans) character, optional, intent(in) :: trans ! For the time being we just throw everything back - ! onto the normal routines. + ! onto the normal routines. call x%sync() call y%sync() call a%spmm(alpha,x%v,beta,y%v,info,trans) @@ -1832,7 +1853,7 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_c_base_vect_mod use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x,y @@ -1869,54 +1890,54 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - call x%sync() + call x%sync() call y%sync() - if (present(d)) then + if (present(d)) then call d%sync() - if (present(scale)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (d%get_nrows() < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call tmpv%mlt(cone,d%v(1:nac),x,czero,info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call tmpv%mlt(cone,d%v(1:nac),x,czero,info) if (info == psb_success_)& & call a%inner_spsm(alpha,tmpv,beta,y,info,trans) - if (info == psb_success_) then + if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (d%get_nrows() < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == czero) then + if (beta == czero) then call a%inner_spsm(alpha,x,czero,y,info,trans) if (info == psb_success_) call y%mlt(d%v(1:nar),info) else allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,czero,tmpv,info,trans) @@ -1925,7 +1946,7 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) & call y%axpby(nar,cone,tmpv,beta,info) if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1935,13 +1956,13 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1958,12 +1979,12 @@ subroutine psb_c_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_c_base_vect_cssv -subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_inner_vect_sv use psb_error_mod use psb_string_mod use psb_c_base_vect_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta class(psb_c_base_vect_type), intent(inout) :: x, y @@ -1977,10 +1998,10 @@ subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) + call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1988,7 +2009,7 @@ subroutine psb_c_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) call psb_erractionrestore(err_act) return - + 9999 call psb_error_handler(err_act) return @@ -2000,7 +2021,7 @@ subroutine psb_c_base_cp_to_lcoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2009,22 +2030,22 @@ subroutine psb_c_base_cp_to_lcoo(a,b,info) character(len=20) :: name='to_lcoo' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_lcoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2038,7 +2059,7 @@ subroutine psb_c_base_cp_from_lcoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2047,22 +2068,22 @@ subroutine psb_c_base_cp_from_lcoo(a,b,info) character(len=20) :: name='from_coo' logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_lcoo(b,info) + call tmp%cp_from_lcoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2076,7 +2097,7 @@ subroutine psb_c_base_cp_to_lfmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2086,10 +2107,10 @@ subroutine psb_c_base_cp_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: icoo type(psb_lc_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2102,12 +2123,12 @@ subroutine psb_c_base_cp_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2121,7 +2142,7 @@ subroutine psb_c_base_cp_from_lfmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cp_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2133,10 +2154,10 @@ subroutine psb_c_base_cp_from_lfmt(a,b,info) type(psb_lc_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lc_coo_sparse_mat) call a%cp_from_lcoo(b,info) @@ -2146,8 +2167,8 @@ subroutine psb_c_base_cp_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2166,7 +2187,7 @@ subroutine psb_c_base_mv_to_lcoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2178,17 +2199,17 @@ subroutine psb_c_base_mv_to_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2202,7 +2223,7 @@ subroutine psb_c_base_mv_from_lcoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2213,17 +2234,17 @@ subroutine psb_c_base_mv_from_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2238,7 +2259,7 @@ subroutine psb_c_base_mv_to_lfmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2248,10 +2269,10 @@ subroutine psb_c_base_mv_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: icoo type(psb_lc_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2264,12 +2285,12 @@ subroutine psb_c_base_mv_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2283,7 +2304,7 @@ subroutine psb_c_base_mv_from_lfmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_base_mv_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_c_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2295,10 +2316,10 @@ subroutine psb_c_base_mv_from_lfmt(a,b,info) type(psb_lc_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lc_coo_sparse_mat) call a%mv_from_lcoo(b,info) @@ -2308,8 +2329,8 @@ subroutine psb_c_base_mv_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2343,7 +2364,7 @@ subroutine psb_lc_base_cp_to_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2367,7 +2388,7 @@ subroutine psb_lc_base_cp_from_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2392,7 +2413,7 @@ subroutine psb_lc_base_cp_to_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2401,10 +2422,10 @@ subroutine psb_lc_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_lc_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2415,12 +2436,12 @@ subroutine psb_lc_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2434,7 +2455,7 @@ subroutine psb_lc_base_cp_from_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2446,10 +2467,10 @@ subroutine psb_lc_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lc_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -2458,8 +2479,8 @@ subroutine psb_lc_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2479,7 +2500,7 @@ subroutine psb_lc_base_mv_to_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2491,17 +2512,17 @@ subroutine psb_lc_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2516,7 +2537,7 @@ subroutine psb_lc_base_mv_from_coo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2527,17 +2548,17 @@ subroutine psb_lc_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2552,7 +2573,7 @@ subroutine psb_lc_base_mv_to_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2564,7 +2585,7 @@ subroutine psb_lc_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_lc_coo_sparse_mat) @@ -2582,7 +2603,7 @@ subroutine psb_lc_base_mv_from_fmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2594,7 +2615,7 @@ subroutine psb_lc_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_lc_coo_sparse_mat) @@ -2610,23 +2631,23 @@ end subroutine psb_lc_base_mv_from_fmt subroutine psb_lc_base_clean_zeros(a, info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_clean_zeros - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_lc_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_lc_base_clean_zeros -subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csput_a - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -2647,11 +2668,11 @@ subroutine psb_lc_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_lc_base_csput_a -subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csput_v use psb_c_base_vect_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2664,10 +2685,10 @@ subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() @@ -2677,11 +2698,11 @@ subroutine psb_lc_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2693,7 +2714,7 @@ end subroutine psb_lc_base_csput_v subroutine psb_lc_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csgetrow @@ -2733,7 +2754,7 @@ end subroutine psb_lc_base_csgetrow ! subroutine psb_lc_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csgetblk @@ -2757,22 +2778,22 @@ subroutine psb_lc_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -2787,19 +2808,19 @@ subroutine psb_lc_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'lc_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -2827,7 +2848,7 @@ end subroutine psb_lc_base_csgetblk subroutine psb_lc_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csclip @@ -2849,46 +2870,46 @@ subroutine psb_lc_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -2917,7 +2938,7 @@ end subroutine psb_lc_base_csclip ! subroutine psb_lc_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_tril @@ -2929,9 +2950,9 @@ subroutine psb_lc_base_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lc_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act - integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk + integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_lpk_), allocatable :: ia(:), ja(:) complex(psb_spk_), allocatable :: val(:) @@ -2943,51 +2964,51 @@ subroutine psb_lc_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -3019,7 +3040,7 @@ subroutine psb_lc_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -3027,8 +3048,8 @@ subroutine psb_lc_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -3041,7 +3062,7 @@ subroutine psb_lc_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -3050,8 +3071,8 @@ subroutine psb_lc_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -3069,7 +3090,7 @@ end subroutine psb_lc_base_tril subroutine psb_lc_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_triu @@ -3081,7 +3102,7 @@ subroutine psb_lc_base_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lc_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -3095,57 +3116,57 @@ subroutine psb_lc_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -3178,13 +3199,13 @@ subroutine psb_lc_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -3192,7 +3213,7 @@ subroutine psb_lc_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -3201,8 +3222,8 @@ subroutine psb_lc_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -3223,46 +3244,46 @@ end subroutine psb_lc_base_triu subroutine psb_lc_base_clone(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_lc_base_clone subroutine psb_lc_base_make_nonunit(a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a type(psb_lc_coo_sparse_mat) :: tmp - + integer(psb_ipk_) :: info integer(psb_lpk_) :: i, j, m, n, nz, mnm - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -3279,10 +3300,10 @@ subroutine psb_lc_base_make_nonunit(a) end subroutine psb_lc_base_make_nonunit -subroutine psb_lc_base_mold(a,b,info) +subroutine psb_lc_base_mold(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mold use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3304,7 +3325,7 @@ end subroutine psb_lc_base_mold subroutine psb_lc_base_transp_2mat(a,b) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3324,11 +3345,11 @@ subroutine psb_lc_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3340,7 +3361,7 @@ end subroutine psb_lc_base_transp_2mat subroutine psb_lc_base_transc_2mat(a,b) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_transc_2mat - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3360,11 +3381,11 @@ subroutine psb_lc_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3376,7 +3397,7 @@ end subroutine psb_lc_base_transc_2mat subroutine psb_lc_base_transp_1mat(a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a @@ -3390,12 +3411,12 @@ subroutine psb_lc_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3407,7 +3428,7 @@ end subroutine psb_lc_base_transp_1mat subroutine psb_lc_base_transc_1mat(a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_transc_1mat - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a @@ -3421,12 +3442,12 @@ subroutine psb_lc_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3436,10 +3457,10 @@ subroutine psb_lc_base_transc_1mat(a) end subroutine psb_lc_base_transc_1mat -subroutine psb_lc_base_scals(d,a,info) +subroutine psb_lc_base_scals(d,a,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_scals use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3459,10 +3480,10 @@ subroutine psb_lc_base_scals(d,a,info) end subroutine psb_lc_base_scals -subroutine psb_lc_base_scal(d,a,info,side) +subroutine psb_lc_base_scal(d,a,info,side) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_scal use psb_error_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3488,7 +3509,7 @@ function psb_lc_base_maxval(a) result(res) use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_maxval - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3514,27 +3535,27 @@ function psb_lc_base_csnmi(a) result(res) use psb_realloc_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csnmi - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3551,27 +3572,27 @@ function psb_lc_base_csnm1(a) result(res) use psb_realloc_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_csnm1 - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3582,7 +3603,7 @@ function psb_lc_base_csnm1(a) result(res) end function psb_lc_base_csnm1 -subroutine psb_lc_base_rowsum(d,a) +subroutine psb_lc_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_rowsum @@ -3604,7 +3625,7 @@ subroutine psb_lc_base_rowsum(d,a) end subroutine psb_lc_base_rowsum -subroutine psb_lc_base_arwsum(d,a) +subroutine psb_lc_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_arwsum @@ -3626,7 +3647,7 @@ subroutine psb_lc_base_arwsum(d,a) end subroutine psb_lc_base_arwsum -subroutine psb_lc_base_colsum(d,a) +subroutine psb_lc_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_colsum @@ -3648,7 +3669,7 @@ subroutine psb_lc_base_colsum(d,a) end subroutine psb_lc_base_colsum -subroutine psb_lc_base_aclsum(d,a) +subroutine psb_lc_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_aclsum @@ -3670,12 +3691,12 @@ subroutine psb_lc_base_aclsum(d,a) end subroutine psb_lc_base_aclsum -subroutine psb_lc_base_get_diag(a,d,info) +subroutine psb_lc_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_get_diag - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3701,7 +3722,7 @@ subroutine psb_lc_base_cp_to_icoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3710,22 +3731,22 @@ subroutine psb_lc_base_cp_to_icoo(a,b,info) character(len=20) :: name='to_coo' logical, parameter :: debug=.false. type(psb_lc_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_icoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3739,7 +3760,7 @@ subroutine psb_lc_base_cp_from_icoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3748,22 +3769,22 @@ subroutine psb_lc_base_cp_from_icoo(a,b,info) character(len=20) :: name='from_icoo' logical, parameter :: debug=.false. type(psb_lc_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_icoo(b,info) + call tmp%cp_from_icoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3778,7 +3799,7 @@ subroutine psb_lc_base_cp_to_ifmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3788,10 +3809,10 @@ subroutine psb_lc_base_cp_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: icoo type(psb_lc_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3804,12 +3825,12 @@ subroutine psb_lc_base_cp_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3823,7 +3844,7 @@ subroutine psb_lc_base_cp_from_ifmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cp_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3835,10 +3856,10 @@ subroutine psb_lc_base_cp_from_ifmt(a,b,info) type(psb_lc_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_c_coo_sparse_mat) call a%cp_from_icoo(b,info) @@ -3848,8 +3869,8 @@ subroutine psb_lc_base_cp_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -3868,7 +3889,7 @@ subroutine psb_lc_base_mv_to_icoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3880,17 +3901,17 @@ subroutine psb_lc_base_mv_to_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -3905,7 +3926,7 @@ subroutine psb_lc_base_mv_from_icoo(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3916,17 +3937,17 @@ subroutine psb_lc_base_mv_from_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -3942,7 +3963,7 @@ subroutine psb_lc_base_mv_to_ifmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3952,10 +3973,10 @@ subroutine psb_lc_base_mv_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_c_coo_sparse_mat) :: icoo type(psb_lc_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3968,12 +3989,12 @@ subroutine psb_lc_base_mv_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3987,7 +4008,7 @@ subroutine psb_lc_base_mv_from_ifmt(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_mv_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lc_base_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3999,10 +4020,10 @@ subroutine psb_lc_base_mv_from_ifmt(a,b,info) type(psb_lc_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_c_coo_sparse_mat) call a%mv_from_icoo(b,info) @@ -4012,8 +4033,8 @@ subroutine psb_lc_base_mv_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -4026,5 +4047,3 @@ subroutine psb_lc_base_mv_from_ifmt(a,b,info) return end subroutine psb_lc_base_mv_from_ifmt - - diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 6d1d08402..06cc09c9b 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! -subroutine psb_c_coo_get_diag(a,d,info) +! +! +subroutine psb_c_coo_get_diag(a,d,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -47,19 +47,19 @@ subroutine psb_c_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = cone + if (a%is_unit()) then + d(1:mnm) = cone else d(1:mnm) = czero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -74,12 +74,12 @@ subroutine psb_c_coo_get_diag(a,d,info) end subroutine psb_c_coo_get_diag -subroutine psb_c_coo_scal(d,a,info,side) +subroutine psb_c_coo_scal(d,a,info,side) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -88,44 +88,44 @@ subroutine psb_c_coo_scal(d,a,info,side) integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -143,11 +143,11 @@ subroutine psb_c_coo_scal(d,a,info,side) end subroutine psb_c_coo_scal -subroutine psb_c_coo_scals(d,a,info) +subroutine psb_c_coo_scals(d,a,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -160,13 +160,14 @@ subroutine psb_c_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo + call a%set_host() call psb_erractionrestore(err_act) @@ -178,12 +179,52 @@ subroutine psb_c_coo_scals(d,a,info) end subroutine psb_c_coo_scals +subroutine psb_c_coo_scalplusidentity(d,a,info) + use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_c_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -subroutine psb_c_coo_reallocate_nz(nz,a) + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + cone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_c_coo_scalplusidentity + + +subroutine psb_c_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz_ @@ -197,7 +238,7 @@ subroutine psb_c_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -211,10 +252,10 @@ subroutine psb_c_coo_reallocate_nz(nz,a) end subroutine psb_c_coo_reallocate_nz -subroutine psb_c_coo_mold(a,b,info) +subroutine psb_c_coo_mold(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_mold use psb_error_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -223,16 +264,16 @@ subroutine psb_c_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_c_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -247,9 +288,9 @@ end subroutine psb_c_coo_mold subroutine psb_c_coo_reinit(a,clear) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_c_coo_sparse_mat), intent(inout) :: a + class(psb_c_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -261,17 +302,17 @@ subroutine psb_c_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_host() call a%set_upd() @@ -296,7 +337,7 @@ subroutine psb_c_coo_trim(a) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' @@ -310,7 +351,7 @@ subroutine psb_c_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -323,13 +364,13 @@ end subroutine psb_c_coo_trim subroutine psb_c_coo_clean_zeros(a, info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_clean_zeros - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -340,17 +381,17 @@ subroutine psb_c_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_c_coo_clean_zeros -subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -360,22 +401,22 @@ subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -383,7 +424,7 @@ subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(izero) @@ -395,7 +436,7 @@ subroutine psb_c_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -410,10 +451,10 @@ end subroutine psb_c_coo_allocate_mnnz subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_c_coo_sparse_mat), intent(in) :: a + class(psb_c_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -423,12 +464,12 @@ subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -442,30 +483,30 @@ subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -480,7 +521,7 @@ end subroutine psb_c_coo_print function psb_c_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_get_nz_row + use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_get_nz_row implicit none class(psb_c_coo_sparse_mat), intent(in) :: a @@ -489,39 +530,39 @@ function psb_c_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. ip = psb_bsrch(idx,nza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -529,12 +570,12 @@ function psb_c_coo_get_nz_row(idx,a) result(res) end function psb_c_coo_get_nz_row -subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_cssm - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -553,14 +594,14 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif if (a%is_dev()) call a%sync() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -585,7 +626,7 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) goto 9999 end if - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) nnz = a%get_nzeros() if (alpha == czero) then @@ -601,15 +642,15 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == czero) then + if (beta == czero) then call inner_coosm(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & m,nc,nnz,a%ia,a%ja,a%val,& & x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -639,11 +680,11 @@ subroutine psb_c_coo_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosm(tra,ctra,lower,unit,sorted,nr,nc,nz,& - & ia,ja,val,x,ldx,y,ldy,info) - implicit none + & ia,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(ldx,*) @@ -661,7 +702,7 @@ contains end if - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if @@ -669,14 +710,14 @@ contains nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = czero - do + do if (j > nnz) exit if (ia(j) > i) exit acc(1:nc) = acc(1:nc) + val(j)*y(ja(j),1:nc) @@ -684,14 +725,14 @@ contains end do y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc(1:nc) = czero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j + 1 exit @@ -702,12 +743,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = czero - do + do i=nr, 1, -1 + acc(1:nc) = czero + do if (j < 1) exit if (ia(j) < i) exit acc(1:nc) = acc(1:nc) + val(j)*x(ja(j),1:nc) @@ -716,15 +757,15 @@ contains y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = czero - do + do i=nr, 1, -1 + acc(1:nc) = czero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j - 1 exit @@ -737,68 +778,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do @@ -806,68 +847,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / conjg(val(j)) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / conjg(val(j)) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j + 1 end do end do @@ -882,12 +923,12 @@ end subroutine psb_c_coo_cssm -subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_cssv - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -911,7 +952,7 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -931,7 +972,7 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) call psb_errpush(info,name,i_err=(/5_psb_ipk_,size(y,1,kind=psb_ipk_),m/)) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -951,20 +992,20 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) return end if - if (beta == czero) then + if (beta == czero) then call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,y,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if do i = 1, m y(i) = alpha*y(i) end do - else - allocate(tmp(m), stat=info) - if (info /= psb_success_) then + else + allocate(tmp(m), stat=info) + if (info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') goto 9999 @@ -973,7 +1014,7 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,tmp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if @@ -989,11 +1030,11 @@ subroutine psb_c_coo_cssv(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosv(tra,ctra,lower,unit,sorted,nr,nz,& - & ia,ja,val,x,y,info) - implicit none + & ia,ja,val,x,y,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(*) @@ -1004,21 +1045,21 @@ contains complex(psb_spk_) :: acc info = psb_success_ - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc = czero - do + do if (j > nnz) exit if (ia(j) > i) exit acc = acc + val(j)*y(ja(j)) @@ -1026,14 +1067,14 @@ contains end do y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc = czero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j + 1 exit @@ -1044,12 +1085,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc = czero - do + do i=nr, 1, -1 + acc = czero + do if (j < 1) exit if (ia(j) < i) exit acc = acc + val(j)*y(ja(j)) @@ -1058,15 +1099,15 @@ contains y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc = czero - do + do i=nr, 1, -1 + acc = czero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j - 1 exit @@ -1079,68 +1120,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc - j = j - 1 + y(jc) = y(jc) - val(j)*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do @@ -1148,68 +1189,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc - j = j - 1 + y(jc) = y(jc) - conjg(val(j))*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /conjg(val(j)) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /conjg(val(j)) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j + 1 end do end do @@ -1223,12 +1264,12 @@ contains end subroutine psb_c_coo_cssv -subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_csmv - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1247,7 +1288,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1265,7 +1306,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1296,8 +1337,8 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == czero) then do i = 1, min(m,n) y(i) = alpha*x(i) @@ -1306,7 +1347,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) y(i) = czero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i) = beta*y(i) + alpha*x(i) end do do i = min(m,n)+1, m @@ -1328,28 +1369,28 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) end if - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = czero - do - if (i>nnz) then + do + if (i>nnz) then y(ir) = y(ir) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir) = y(ir) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = czero endif acc = acc + a%val(i) * x(a%ja(i)) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == cone) then i = 1 @@ -1367,7 +1408,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - a%val(i)*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1377,7 +1418,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == cone) then i = 1 @@ -1395,7 +1436,7 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - conjg(a%val(i))*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1417,12 +1458,12 @@ subroutine psb_c_coo_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_c_coo_csmv -subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_csmm - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1441,7 +1482,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1460,7 +1501,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1500,8 +1541,8 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == czero) then do i = 1, min(m,n) y(i,1:nc) = alpha*x(i,1:nc) @@ -1510,7 +1551,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) y(i,1:nc) = czero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i,1:nc) = beta*y(i,1:nc) + alpha*x(i,1:nc) end do do i = min(m,n)+1, m @@ -1532,28 +1573,28 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) end if - if (.not.tra) then + if (.not.tra) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = czero - do - if (i>nnz) then + do + if (i>nnz) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = czero endif acc = acc + a%val(i) * x(a%ja(i),1:nc) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == cone) then i = 1 @@ -1571,7 +1612,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - a%val(i)*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1581,7 +1622,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == cone) then i = 1 @@ -1599,7 +1640,7 @@ subroutine psb_c_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - conjg(a%val(i))*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1623,7 +1664,7 @@ end subroutine psb_c_coo_csmm function psb_c_coo_maxval(a) result(res) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_maxval - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1633,13 +1674,13 @@ function psb_c_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1649,7 +1690,7 @@ end function psb_c_coo_maxval function psb_c_coo_csnmi(a) result(res) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_csnmi - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1666,15 +1707,15 @@ function psb_c_coo_csnmi(a) result(res) res = szero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = szero - do while (i<=nnz) + res = szero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -1689,7 +1730,7 @@ function psb_c_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = sone else vt = szero @@ -1701,7 +1742,7 @@ function psb_c_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_c_coo_csnmi @@ -1710,7 +1751,7 @@ function psb_c_coo_csnm1(a) result(res) use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_csnm1 - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1729,7 +1770,7 @@ function psb_c_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = sone else vt = szero @@ -1745,7 +1786,7 @@ function psb_c_coo_csnm1(a) result(res) end function psb_c_coo_csnm1 -subroutine psb_c_coo_rowsum(d,a) +subroutine psb_c_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_rowsum @@ -1765,13 +1806,13 @@ subroutine psb_c_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -1785,7 +1826,7 @@ subroutine psb_c_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1793,7 +1834,7 @@ subroutine psb_c_coo_rowsum(d,a) end subroutine psb_c_coo_rowsum -subroutine psb_c_coo_arwsum(d,a) +subroutine psb_c_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_arwsum @@ -1812,13 +1853,13 @@ subroutine psb_c_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1831,7 +1872,7 @@ subroutine psb_c_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1839,7 +1880,7 @@ subroutine psb_c_coo_arwsum(d,a) end subroutine psb_c_coo_arwsum -subroutine psb_c_coo_colsum(d,a) +subroutine psb_c_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_colsum @@ -1858,13 +1899,13 @@ subroutine psb_c_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -1878,7 +1919,7 @@ subroutine psb_c_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1886,7 +1927,7 @@ subroutine psb_c_coo_colsum(d,a) end subroutine psb_c_coo_colsum -subroutine psb_c_coo_aclsum(d,a) +subroutine psb_c_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_aclsum @@ -1905,14 +1946,14 @@ subroutine psb_c_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1923,10 +1964,10 @@ subroutine psb_c_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1951,7 +1992,7 @@ end subroutine psb_c_coo_aclsum subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1968,7 +2009,7 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1996,22 +2037,22 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2020,12 +2061,12 @@ subroutine psb_c_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2069,19 +2110,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2096,13 +2137,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2120,31 +2161,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -2153,7 +2194,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -2161,8 +2202,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -2175,12 +2216,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2192,11 +2233,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2210,7 +2251,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -2219,12 +2260,12 @@ end subroutine psb_c_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2269,27 +2310,27 @@ subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2298,12 +2339,12 @@ subroutine psb_c_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2351,19 +2392,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2378,13 +2419,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2402,34 +2443,34 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -2437,10 +2478,10 @@ contains end if enddo call psb_c_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -2449,7 +2490,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -2458,27 +2499,27 @@ contains nrd = max(a%get_nrows(),1) nzt = ((nza+nrd-1)/nrd)*(lrw-irw+1) - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then - k = 0 + + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - end if + end if end if val(nzin_+k) = a%val(i) ia(nzin_+k) = iren(a%ia(i)) @@ -2486,14 +2527,14 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) @@ -2515,12 +2556,12 @@ contains end subroutine psb_c_coo_csgetrow -subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_csput_a - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -2532,30 +2573,30 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) character(len=20) :: name='c_coo_csput_a_impl' logical, parameter :: debug=.false. integer(psb_ipk_) :: nza, i,j,k, nzl, isza, debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -2566,13 +2607,13 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -2583,22 +2624,22 @@ subroutine psb_c_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call c_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2619,7 +2660,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_ipk_), intent(in) :: ia(:),ja(:) @@ -2630,11 +2671,11 @@ contains integer(psb_ipk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -2650,7 +2691,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2668,13 +2709,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2686,18 +2727,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2709,7 +2750,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2723,18 +2764,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2746,7 +2787,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2768,10 +2809,10 @@ contains end subroutine psb_c_coo_csput_a -subroutine psb_c_cp_coo_to_coo(a,b,info) +subroutine psb_c_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_to_coo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2810,10 +2851,10 @@ subroutine psb_c_cp_coo_to_coo(a,b,info) end subroutine psb_c_cp_coo_to_coo -subroutine psb_c_cp_coo_from_coo(a,b,info) +subroutine psb_c_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_from_coo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2856,10 +2897,10 @@ subroutine psb_c_cp_coo_from_coo(a,b,info) end subroutine psb_c_cp_coo_from_coo -subroutine psb_c_cp_coo_to_fmt(a,b,info) +subroutine psb_c_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_to_fmt - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2888,10 +2929,10 @@ subroutine psb_c_cp_coo_to_fmt(a,b,info) end subroutine psb_c_cp_coo_to_fmt -subroutine psb_c_cp_coo_from_fmt(a,b,info) +subroutine psb_c_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_from_fmt - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2922,10 +2963,10 @@ subroutine psb_c_cp_coo_from_fmt(a,b,info) end subroutine psb_c_cp_coo_from_fmt -subroutine psb_c_mv_coo_to_coo(a,b,info) +subroutine psb_c_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_mv_coo_to_coo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2964,10 +3005,10 @@ subroutine psb_c_mv_coo_to_coo(a,b,info) end subroutine psb_c_mv_coo_to_coo -subroutine psb_c_mv_coo_from_coo(a,b,info) +subroutine psb_c_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_mv_coo_from_coo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3008,10 +3049,10 @@ subroutine psb_c_mv_coo_from_coo(a,b,info) end subroutine psb_c_mv_coo_from_coo -subroutine psb_c_mv_coo_to_fmt(a,b,info) +subroutine psb_c_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_mv_coo_to_fmt - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3040,10 +3081,10 @@ subroutine psb_c_mv_coo_to_fmt(a,b,info) end subroutine psb_c_mv_coo_to_fmt -subroutine psb_c_mv_coo_from_fmt(a,b,info) +subroutine psb_c_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_mv_coo_from_fmt - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3076,7 +3117,7 @@ end subroutine psb_c_mv_coo_from_fmt subroutine psb_c_coo_cp_from(a,b) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_cp_from - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(in) :: b @@ -3106,7 +3147,7 @@ end subroutine psb_c_coo_cp_from subroutine psb_c_coo_mv_from(a,b) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_mv_from - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a type(psb_c_coo_sparse_mat), intent(inout) :: b @@ -3135,11 +3176,11 @@ end subroutine psb_c_coo_mv_from -subroutine psb_c_fix_coo(a,info,idir) +subroutine psb_c_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_fix_coo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3160,17 +3201,17 @@ subroutine psb_c_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_c_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -3193,14 +3234,14 @@ end subroutine psb_c_fix_coo -subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nr, nc, nzin, dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) @@ -3225,14 +3266,14 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -3241,17 +3282,17 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - select case(idir_) - case(psb_row_major_) + select case(idir_) + + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -3261,15 +3302,15 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -3280,9 +3321,9 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -3290,7 +3331,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3300,87 +3341,87 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3392,7 +3433,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -3401,7 +3442,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3411,73 +3452,73 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3486,15 +3527,15 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. - ! + ! let's try in place. + ! call psi_msort_up(nzin,ia(1:),iaux(1:),iret) if (iret == 0) & & call psb_ip_reord(nzin,val,ia,ja,iaux) @@ -3522,52 +3563,52 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3580,7 +3621,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -3590,13 +3631,13 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -3610,10 +3651,10 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -3621,7 +3662,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3631,86 +3672,86 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3722,7 +3763,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -3730,7 +3771,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3739,73 +3780,73 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3816,7 +3857,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then call psi_msort_up(nzin,ja(1:),iaux(1:),iret) if (iret == 0) & @@ -3844,42 +3885,42 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -3887,8 +3928,8 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3907,7 +3948,7 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -3921,10 +3962,10 @@ subroutine psb_c_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_c_fix_coo_inner -subroutine psb_c_cp_coo_to_lcoo(a,b,info) +subroutine psb_c_cp_coo_to_lcoo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_to_lcoo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3964,10 +4005,10 @@ subroutine psb_c_cp_coo_to_lcoo(a,b,info) end subroutine psb_c_cp_coo_to_lcoo -subroutine psb_c_cp_coo_from_lcoo(a,b,info) +subroutine psb_c_cp_coo_from_lcoo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_c_cp_coo_from_lcoo - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -4015,11 +4056,11 @@ end subroutine psb_c_cp_coo_from_lcoo ! ! -subroutine psb_lc_coo_get_diag(a,d,info) +subroutine psb_lc_coo_get_diag(a,d,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4034,19 +4075,19 @@ subroutine psb_lc_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = cone + if (a%is_unit()) then + d(1:mnm) = cone else d(1:mnm) = czero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -4060,12 +4101,12 @@ subroutine psb_lc_coo_get_diag(a,d,info) end subroutine psb_lc_coo_get_diag -subroutine psb_lc_coo_scal(d,a,info,side) +subroutine psb_lc_coo_scal(d,a,info,side) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4075,44 +4116,44 @@ subroutine psb_lc_coo_scal(d,a,info,side) integer(psb_lpk_) :: mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -4130,11 +4171,11 @@ subroutine psb_lc_coo_scal(d,a,info,side) end subroutine psb_lc_coo_scal -subroutine psb_lc_coo_scals(d,a,info) +subroutine psb_lc_coo_scals(d,a,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4148,7 +4189,7 @@ subroutine psb_lc_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -4170,7 +4211,7 @@ end subroutine psb_lc_coo_scals function psb_lc_coo_maxval(a) result(res) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_maxval - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4180,13 +4221,13 @@ function psb_lc_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -4196,7 +4237,7 @@ end function psb_lc_coo_maxval function psb_lc_coo_csnmi(a) result(res) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_csnmi - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4213,15 +4254,15 @@ function psb_lc_coo_csnmi(a) result(res) res = szero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = szero - do while (i<=nnz) + res = szero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -4236,7 +4277,7 @@ function psb_lc_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = sone else vt = szero @@ -4248,7 +4289,7 @@ function psb_lc_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_lc_coo_csnmi @@ -4257,7 +4298,7 @@ function psb_lc_coo_csnm1(a) result(res) use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_csnm1 - implicit none + implicit none class(psb_c_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4276,7 +4317,7 @@ function psb_lc_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = sone else vt = szero @@ -4292,7 +4333,7 @@ function psb_lc_coo_csnm1(a) result(res) end function psb_lc_coo_csnm1 -subroutine psb_lc_coo_rowsum(d,a) +subroutine psb_lc_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_rowsum @@ -4313,13 +4354,13 @@ subroutine psb_lc_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -4333,7 +4374,7 @@ subroutine psb_lc_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4341,7 +4382,7 @@ subroutine psb_lc_coo_rowsum(d,a) end subroutine psb_lc_coo_rowsum -subroutine psb_lc_coo_arwsum(d,a) +subroutine psb_lc_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_arwsum @@ -4361,13 +4402,13 @@ subroutine psb_lc_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4380,7 +4421,7 @@ subroutine psb_lc_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4388,7 +4429,7 @@ subroutine psb_lc_coo_arwsum(d,a) end subroutine psb_lc_coo_arwsum -subroutine psb_lc_coo_colsum(d,a) +subroutine psb_lc_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_colsum @@ -4408,13 +4449,13 @@ subroutine psb_lc_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -4428,7 +4469,7 @@ subroutine psb_lc_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4436,7 +4477,7 @@ subroutine psb_lc_coo_colsum(d,a) end subroutine psb_lc_coo_colsum -subroutine psb_lc_coo_aclsum(d,a) +subroutine psb_lc_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_aclsum @@ -4456,14 +4497,14 @@ subroutine psb_lc_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4474,10 +4515,10 @@ subroutine psb_lc_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4485,11 +4526,11 @@ subroutine psb_lc_coo_aclsum(d,a) end subroutine psb_lc_coo_aclsum -subroutine psb_lc_coo_reallocate_nz(nz,a) +subroutine psb_lc_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4504,7 +4545,7 @@ subroutine psb_lc_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4518,10 +4559,10 @@ subroutine psb_lc_coo_reallocate_nz(nz,a) end subroutine psb_lc_coo_reallocate_nz -subroutine psb_lc_coo_mold(a,b,info) +subroutine psb_lc_coo_mold(a,b,info) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_mold use psb_error_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4530,16 +4571,16 @@ subroutine psb_lc_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lc_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4554,9 +4595,9 @@ end subroutine psb_lc_coo_mold subroutine psb_lc_coo_reinit(a,clear) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_lc_coo_sparse_mat), intent(inout) :: a + class(psb_lc_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4568,17 +4609,17 @@ subroutine psb_lc_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_host() call a%set_upd() @@ -4603,7 +4644,7 @@ subroutine psb_lc_coo_trim(a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info integer(psb_lpk_) :: nz @@ -4618,7 +4659,7 @@ subroutine psb_lc_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4631,13 +4672,13 @@ end subroutine psb_lc_coo_trim subroutine psb_lc_coo_clean_zeros(a, info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_clean_zeros - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -4648,17 +4689,17 @@ subroutine psb_lc_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_lc_coo_clean_zeros -subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4669,22 +4710,22 @@ subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -4692,7 +4733,7 @@ subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(lzero) @@ -4704,7 +4745,7 @@ subroutine psb_lc_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4719,10 +4760,10 @@ end subroutine psb_lc_coo_allocate_mnnz subroutine psb_lc_coo_print(iout,a,iv,head,ivr,ivc) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lc_coo_sparse_mat), intent(in) :: a + class(psb_lc_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4732,12 +4773,12 @@ subroutine psb_lc_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4751,30 +4792,30 @@ subroutine psb_lc_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -4789,7 +4830,7 @@ end subroutine psb_lc_coo_print function psb_lc_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_get_nz_row + use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_get_nz_row implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a @@ -4799,40 +4840,40 @@ function psb_lc_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: inza if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then + if (a%is_by_rows()) then ! In this case we can do a binary search. inza = nza ip = psb_bsrch(idx,inza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -4856,7 +4897,7 @@ end function psb_lc_coo_get_nz_row subroutine psb_lc_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4873,7 +4914,7 @@ subroutine psb_lc_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4902,22 +4943,22 @@ subroutine psb_lc_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4926,12 +4967,12 @@ subroutine psb_lc_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4976,19 +5017,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5003,13 +5044,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5027,31 +5068,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -5060,7 +5101,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -5068,8 +5109,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -5082,12 +5123,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5099,11 +5140,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5117,7 +5158,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -5126,12 +5167,12 @@ end subroutine psb_lc_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_lc_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -5149,7 +5190,7 @@ subroutine psb_lc_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -5177,22 +5218,22 @@ subroutine psb_lc_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -5201,12 +5242,12 @@ subroutine psb_lc_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -5255,19 +5296,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5282,13 +5323,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5306,32 +5347,32 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -5339,10 +5380,10 @@ contains end if enddo call psb_lc_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -5351,7 +5392,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -5365,12 +5406,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5384,11 +5425,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5412,12 +5453,12 @@ contains end subroutine psb_lc_coo_csgetrow -subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_csput_a - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -5430,30 +5471,30 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) logical, parameter :: debug=.false. integer(psb_lpk_) :: nza, i,j,k, nzl, isza integer(psb_ipk_) :: debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -5464,13 +5505,13 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -5481,22 +5522,22 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call lc_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -5517,7 +5558,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_lpk_), intent(in) :: ia(:),ja(:) @@ -5528,11 +5569,11 @@ contains integer(psb_lpk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -5548,7 +5589,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -5566,13 +5607,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() innz = nnz @@ -5583,18 +5624,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5606,7 +5647,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -5620,18 +5661,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5643,7 +5684,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -5665,10 +5706,10 @@ contains end subroutine psb_lc_coo_csput_a -subroutine psb_lc_cp_coo_to_coo(a,b,info) +subroutine psb_lc_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_to_coo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5708,10 +5749,10 @@ subroutine psb_lc_cp_coo_to_coo(a,b,info) end subroutine psb_lc_cp_coo_to_coo -subroutine psb_lc_cp_coo_from_coo(a,b,info) +subroutine psb_lc_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_from_coo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5754,10 +5795,10 @@ subroutine psb_lc_cp_coo_from_coo(a,b,info) end subroutine psb_lc_cp_coo_from_coo -subroutine psb_lc_cp_coo_to_fmt(a,b,info) +subroutine psb_lc_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_to_fmt - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5786,10 +5827,10 @@ subroutine psb_lc_cp_coo_to_fmt(a,b,info) end subroutine psb_lc_cp_coo_to_fmt -subroutine psb_lc_cp_coo_from_fmt(a,b,info) +subroutine psb_lc_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_from_fmt - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5820,10 +5861,10 @@ subroutine psb_lc_cp_coo_from_fmt(a,b,info) end subroutine psb_lc_cp_coo_from_fmt -subroutine psb_lc_mv_coo_to_coo(a,b,info) +subroutine psb_lc_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_mv_coo_to_coo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5862,10 +5903,10 @@ subroutine psb_lc_mv_coo_to_coo(a,b,info) end subroutine psb_lc_mv_coo_to_coo -subroutine psb_lc_mv_coo_from_coo(a,b,info) +subroutine psb_lc_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_mv_coo_from_coo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5906,10 +5947,10 @@ subroutine psb_lc_mv_coo_from_coo(a,b,info) end subroutine psb_lc_mv_coo_from_coo -subroutine psb_lc_mv_coo_to_fmt(a,b,info) +subroutine psb_lc_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_mv_coo_to_fmt - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5938,10 +5979,10 @@ subroutine psb_lc_mv_coo_to_fmt(a,b,info) end subroutine psb_lc_mv_coo_to_fmt -subroutine psb_lc_mv_coo_from_fmt(a,b,info) +subroutine psb_lc_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_mv_coo_from_fmt - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5974,7 +6015,7 @@ end subroutine psb_lc_mv_coo_from_fmt subroutine psb_lc_coo_cp_from(a,b) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_cp_from - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a type(psb_lc_coo_sparse_mat), intent(in) :: b @@ -6004,7 +6045,7 @@ end subroutine psb_lc_coo_cp_from subroutine psb_lc_coo_mv_from(a,b) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_mv_from - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a type(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -6033,11 +6074,11 @@ end subroutine psb_lc_coo_mv_from -subroutine psb_lc_fix_coo(a,info,idir) +subroutine psb_lc_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_fix_coo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -6058,17 +6099,17 @@ subroutine psb_lc_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_lc_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -6091,14 +6132,14 @@ end subroutine psb_lc_fix_coo -subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -6125,14 +6166,14 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -6141,16 +6182,16 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - select case(idir_) + select case(idir_) - case(psb_row_major_) + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -6158,17 +6199,17 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = (info == 0) else use_buffers = .false. - end if - - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + end if + + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -6179,9 +6220,9 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -6189,7 +6230,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6199,87 +6240,87 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6291,7 +6332,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -6300,7 +6341,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6310,73 +6351,73 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6385,14 +6426,14 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. + ! let's try in place. ! inzin = nzin call psi_msort_up(inzin,ia(1:),iaux(1:),iret) @@ -6422,52 +6463,52 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6480,7 +6521,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -6490,13 +6531,13 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -6510,10 +6551,10 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -6521,7 +6562,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6531,86 +6572,86 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6622,7 +6663,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -6630,7 +6671,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6639,73 +6680,73 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6716,7 +6757,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then inzin = nzin call psi_msort_up(inzin,ja(1:),iaux(1:),iret) @@ -6745,42 +6786,42 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -6788,8 +6829,8 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6808,7 +6849,7 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -6822,10 +6863,10 @@ subroutine psb_lc_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_lc_fix_coo_inner -subroutine psb_lc_cp_coo_to_icoo(a,b,info) +subroutine psb_lc_cp_coo_to_icoo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_to_icoo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -6865,10 +6906,10 @@ subroutine psb_lc_cp_coo_to_icoo(a,b,info) end subroutine psb_lc_cp_coo_to_icoo -subroutine psb_lc_cp_coo_from_icoo(a,b,info) +subroutine psb_lc_cp_coo_from_icoo(a,b,info) use psb_error_mod use psb_c_base_mat_mod, psb_protect_name => psb_lc_cp_coo_from_icoo - implicit none + implicit none class(psb_lc_coo_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -6908,4 +6949,3 @@ subroutine psb_lc_cp_coo_from_icoo(a,b,info) return end subroutine psb_lc_cp_coo_from_icoo - diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index f7df614a7..84bd726d9 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_csmv - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -72,7 +72,7 @@ subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -81,7 +81,7 @@ subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_c_csc_csmv(alpha,a,x,beta,y,info,trans) if (a%is_dev()) call a%sync() - if (size(x,1) psb_c_csc_csmm - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -350,13 +350,13 @@ subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) end if tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -364,16 +364,16 @@ subroutine psb_c_csc_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_c_csc_cssv - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -632,7 +632,7 @@ subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -642,28 +642,28 @@ subroutine psb_c_csc_cssv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x,1) psb_c_csc_cssm - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -852,7 +852,7 @@ subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -862,23 +862,23 @@ subroutine psb_c_csc_cssm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (size(x,1) psb_c_csc_maxval - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1066,7 +1066,7 @@ function psb_c_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero @@ -1074,7 +1074,7 @@ function psb_c_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1085,7 +1085,7 @@ function psb_c_csc_csnm1(a) result(res) use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_csnm1 - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1099,13 +1099,13 @@ function psb_c_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = szero + res = szero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -1115,12 +1115,12 @@ function psb_c_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_c_csc_csnm1 -subroutine psb_c_csc_colsum(d,a) +subroutine psb_c_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_colsum @@ -1140,7 +1140,7 @@ subroutine psb_c_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1148,19 +1148,19 @@ subroutine psb_c_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = cone else d(i) = czero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1168,7 +1168,7 @@ subroutine psb_c_csc_colsum(d,a) end subroutine psb_c_csc_colsum -subroutine psb_c_csc_aclsum(d,a) +subroutine psb_c_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_aclsum @@ -1188,7 +1188,7 @@ subroutine psb_c_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1197,25 +1197,25 @@ subroutine psb_c_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1223,7 +1223,7 @@ subroutine psb_c_csc_aclsum(d,a) end subroutine psb_c_csc_aclsum -subroutine psb_c_csc_rowsum(d,a) +subroutine psb_c_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_rowsum @@ -1244,14 +1244,14 @@ subroutine psb_c_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -1265,7 +1265,7 @@ subroutine psb_c_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1273,7 +1273,7 @@ subroutine psb_c_csc_rowsum(d,a) end subroutine psb_c_csc_rowsum -subroutine psb_c_csc_arwsum(d,a) +subroutine psb_c_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_arwsum @@ -1294,14 +1294,14 @@ subroutine psb_c_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1315,7 +1315,7 @@ subroutine psb_c_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1324,11 +1324,11 @@ subroutine psb_c_csc_arwsum(d,a) end subroutine psb_c_csc_arwsum -subroutine psb_c_csc_get_diag(a,d,info) +subroutine psb_c_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_get_diag - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1343,28 +1343,28 @@ subroutine psb_c_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = cone + if (a%is_unit()) then + d(1:mnm) = cone else do i=1, mnm d(i) = czero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = czero end do call psb_erractionrestore(err_act) @@ -1377,12 +1377,12 @@ subroutine psb_c_csc_get_diag(a,d,info) end subroutine psb_c_csc_get_diag -subroutine psb_c_csc_scal(d,a,info,side) +subroutine psb_c_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scal use psb_string_mod - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1393,7 +1393,7 @@ subroutine psb_c_csc_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -1401,39 +1401,39 @@ subroutine psb_c_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -1449,11 +1449,11 @@ subroutine psb_c_csc_scal(d,a,info,side) end subroutine psb_c_csc_scal -subroutine psb_c_csc_scals(d,a,info) +subroutine psb_c_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scals - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1467,7 +1467,7 @@ subroutine psb_c_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1485,8 +1485,51 @@ subroutine psb_c_csc_scals(d,a,info) end subroutine psb_c_csc_scals +subroutine psb_c_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scalplusidentity + implicit none + class(psb_c_csc_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -! == =================================== + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + cone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_c_csc_scalplusidentity + + +! == =================================== ! ! ! @@ -1496,11 +1539,11 @@ end subroutine psb_c_csc_scals ! ! ! -! == =================================== +! == =================================== subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1518,7 +1561,7 @@ subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1547,35 +1590,35 @@ subroutine psb_c_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1621,12 +1664,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1637,19 +1680,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1663,9 +1706,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1677,9 +1720,9 @@ contains enddo end do end if - + end subroutine csc_getptn - + end subroutine psb_c_csc_csgetptn @@ -1687,7 +1730,7 @@ end subroutine psb_c_csc_csgetptn subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1706,7 +1749,7 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale,chksz - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1716,7 +1759,7 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -1736,22 +1779,22 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -1759,13 +1802,13 @@ subroutine psb_c_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1813,12 +1856,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1829,7 +1872,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -1837,12 +1880,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1858,9 +1901,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1880,11 +1923,11 @@ end subroutine psb_c_csc_csgetrow -subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_csput_a - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -1903,26 +1946,26 @@ subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -1933,25 +1976,25 @@ subroutine psb_c_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_c_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -1977,7 +2020,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -1995,13 +2038,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -2011,19 +2054,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2036,18 +2079,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2070,12 +2113,12 @@ end subroutine psb_c_csc_csput_a -subroutine psb_c_cp_csc_from_coo(a,b,info) +subroutine psb_c_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_cp_csc_from_coo - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b @@ -2098,11 +2141,11 @@ end subroutine psb_c_cp_csc_from_coo -subroutine psb_c_cp_csc_to_coo(a,b,info) +subroutine psb_c_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_cp_csc_to_coo - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -2132,7 +2175,7 @@ subroutine psb_c_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -2140,12 +2183,12 @@ subroutine psb_c_cp_csc_to_coo(a,b,info) end subroutine psb_c_cp_csc_to_coo -subroutine psb_c_mv_csc_to_coo(a,b,info) +subroutine psb_c_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_mv_csc_to_coo - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -2183,13 +2226,13 @@ end subroutine psb_c_mv_csc_to_coo -subroutine psb_c_mv_csc_from_coo(a,b,info) +subroutine psb_c_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_mv_csc_from_coo - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -2213,7 +2256,7 @@ subroutine psb_c_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -2236,17 +2279,17 @@ subroutine psb_c_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_c_mv_csc_from_coo -subroutine psb_c_mv_csc_to_fmt(a,b,info) +subroutine psb_c_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_mv_csc_to_fmt - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -2262,10 +2305,10 @@ subroutine psb_c_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_c_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_c_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_c_base_sparse_mat = a%psb_c_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -2282,12 +2325,12 @@ subroutine psb_c_mv_csc_to_fmt(a,b,info) end subroutine psb_c_mv_csc_to_fmt !!$ -subroutine psb_c_cp_csc_to_fmt(a,b,info) +subroutine psb_c_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_cp_csc_to_fmt - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -2303,10 +2346,10 @@ subroutine psb_c_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_c_csc_sparse_mat) + type is (psb_c_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_c_base_sparse_mat = a%psb_c_base_sparse_mat nc = a%get_ncols() @@ -2324,12 +2367,12 @@ subroutine psb_c_cp_csc_to_fmt(a,b,info) end subroutine psb_c_cp_csc_to_fmt -subroutine psb_c_mv_csc_from_fmt(a,b,info) +subroutine psb_c_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_mv_csc_from_fmt - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -2345,10 +2388,10 @@ subroutine psb_c_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_c_csc_sparse_mat) + type is (psb_c_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat @@ -2369,19 +2412,19 @@ end subroutine psb_c_mv_csc_from_fmt subroutine psb_c_csc_clean_zeros(a, info) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_clean_zeros - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nc - integer(psb_ipk_), allocatable :: ilcp(:) - + integer(psb_ipk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= czero) then @@ -2396,12 +2439,12 @@ subroutine psb_c_csc_clean_zeros(a, info) call a%set_host() end subroutine psb_c_csc_clean_zeros -subroutine psb_c_cp_csc_from_fmt(a,b,info) +subroutine psb_c_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_cp_csc_from_fmt - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b @@ -2417,10 +2460,10 @@ subroutine psb_c_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_c_csc_sparse_mat) + type is (psb_c_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat nc = b%get_ncols() @@ -2435,14 +2478,14 @@ subroutine psb_c_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_c_cp_csc_from_fmt -subroutine psb_c_csc_mold(a,b,info) +subroutine psb_c_csc_mold(a,b,info) use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_mold use psb_error_mod - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2452,16 +2495,16 @@ subroutine psb_c_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_c_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -2473,11 +2516,11 @@ subroutine psb_c_csc_mold(a,b,info) end subroutine psb_c_csc_mold -subroutine psb_c_csc_reallocate_nz(nz,a) +subroutine psb_c_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -2490,7 +2533,7 @@ subroutine psb_c_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -2508,7 +2551,7 @@ end subroutine psb_c_csc_reallocate_nz !!$subroutine psb_c_csc_csgetblk(imin,imax,a,b,info,& !!$ & jmin,jmax,iren,append,rscale,cscale) -!!$ ! Output is always in COO format +!!$ ! Output is always in COO format !!$ use psb_error_mod !!$ use psb_const_mod !!$ use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_csgetblk @@ -2531,12 +2574,12 @@ end subroutine psb_c_csc_reallocate_nz !!$ call psb_erractionsave(err_act) !!$ info = psb_success_ !!$ -!!$ if (present(append)) then +!!$ if (present(append)) then !!$ append_ = append !!$ else !!$ append_ = .false. !!$ endif -!!$ if (append_) then +!!$ if (append_) then !!$ nzin = a%get_nzeros() !!$ else !!$ nzin = 0 @@ -2564,9 +2607,9 @@ end subroutine psb_c_csc_reallocate_nz subroutine psb_c_csc_reinit(a,clear) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_reinit - implicit none + implicit none - class(psb_c_csc_sparse_mat), intent(inout) :: a + class(psb_c_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2580,16 +2623,16 @@ subroutine psb_c_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_upd() call a%set_host() @@ -2612,7 +2655,7 @@ subroutine psb_c_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_trim - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz, n integer(psb_ipk_) :: ierr(5) @@ -2627,7 +2670,7 @@ subroutine psb_c_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2637,11 +2680,11 @@ subroutine psb_c_csc_trim(a) end subroutine psb_c_csc_trim -subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -2652,26 +2695,26 @@ subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -2679,7 +2722,7 @@ subroutine psb_c_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -2702,10 +2745,10 @@ end subroutine psb_c_csc_allocate_mnnz subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_c_csc_sparse_mat), intent(in) :: a + class(psb_c_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2716,13 +2759,13 @@ subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2736,40 +2779,40 @@ subroutine psb_c_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -2782,7 +2825,7 @@ subroutine psb_ccscspspmm(a,b,c,info) use psb_c_mat_mod use psb_serial_mod, psb_protect_name => psb_ccscspspmm - implicit none + implicit none class(psb_c_csc_sparse_mat), intent(in) :: a,b type(psb_c_csc_sparse_mat), intent(out) :: c @@ -2802,7 +2845,7 @@ subroutine psb_ccscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -2831,9 +2874,9 @@ subroutine psb_ccscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_c_csc_sparse_mat), intent(in) :: a,b type(psb_c_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -2856,29 +2899,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -2886,11 +2929,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do @@ -2903,11 +2946,11 @@ end subroutine psb_ccscspspmm -subroutine psb_lc_csc_get_diag(a,d,info) +subroutine psb_lc_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_get_diag - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2922,28 +2965,28 @@ subroutine psb_lc_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = cone + if (a%is_unit()) then + d(1:mnm) = cone else do i=1, mnm d(i) = czero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = czero end do call psb_erractionrestore(err_act) @@ -2956,12 +2999,12 @@ subroutine psb_lc_csc_get_diag(a,d,info) end subroutine psb_lc_csc_get_diag -subroutine psb_lc_csc_scal(d,a,info,side) +subroutine psb_lc_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scal use psb_string_mod - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2972,7 +3015,7 @@ subroutine psb_lc_csc_scal(d,a,info,side) integer(psb_ipk_) :: err_act,ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -2980,39 +3023,39 @@ subroutine psb_lc_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -3028,11 +3071,11 @@ subroutine psb_lc_csc_scal(d,a,info,side) end subroutine psb_lc_csc_scal -subroutine psb_lc_csc_scals(d,a,info) +subroutine psb_lc_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scals - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3046,7 +3089,7 @@ subroutine psb_lc_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3068,7 +3111,7 @@ end subroutine psb_lc_csc_scals function psb_lc_csc_maxval(a) result(res) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_maxval - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3077,7 +3120,7 @@ function psb_lc_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero @@ -3085,7 +3128,7 @@ function psb_lc_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3096,7 +3139,7 @@ function psb_lc_csc_csnm1(a) result(res) use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_csnm1 - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3109,13 +3152,13 @@ function psb_lc_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = szero + res = szero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -3125,12 +3168,12 @@ function psb_lc_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_lc_csc_csnm1 -subroutine psb_lc_csc_colsum(d,a) +subroutine psb_lc_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_colsum @@ -3151,7 +3194,7 @@ subroutine psb_lc_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3159,19 +3202,19 @@ subroutine psb_lc_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = cone else d(i) = czero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3179,7 +3222,7 @@ subroutine psb_lc_csc_colsum(d,a) end subroutine psb_lc_csc_colsum -subroutine psb_lc_csc_aclsum(d,a) +subroutine psb_lc_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_aclsum @@ -3200,7 +3243,7 @@ subroutine psb_lc_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3209,25 +3252,25 @@ subroutine psb_lc_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3235,7 +3278,7 @@ subroutine psb_lc_csc_aclsum(d,a) end subroutine psb_lc_csc_aclsum -subroutine psb_lc_csc_rowsum(d,a) +subroutine psb_lc_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_rowsum @@ -3243,7 +3286,7 @@ subroutine psb_lc_csc_rowsum(d,a) complex(psb_spk_), intent(out) :: d(:) integer(psb_lpk_) :: i,j,k,nnz, ir, jc, nc - integer(psb_epk_) :: m,n + integer(psb_epk_) :: m,n complex(psb_spk_) :: acc complex(psb_spk_), allocatable :: vt(:) logical :: tra @@ -3257,14 +3300,14 @@ subroutine psb_lc_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = cone else d = czero @@ -3278,7 +3321,7 @@ subroutine psb_lc_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3286,7 +3329,7 @@ subroutine psb_lc_csc_rowsum(d,a) end subroutine psb_lc_csc_rowsum -subroutine psb_lc_csc_arwsum(d,a) +subroutine psb_lc_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_arwsum @@ -3308,14 +3351,14 @@ subroutine psb_lc_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -3329,7 +3372,7 @@ subroutine psb_lc_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3338,7 +3381,7 @@ subroutine psb_lc_csc_arwsum(d,a) end subroutine psb_lc_csc_arwsum -! == =================================== +! == =================================== ! ! ! @@ -3348,11 +3391,11 @@ end subroutine psb_lc_csc_arwsum ! ! ! -! == =================================== +! == =================================== subroutine psb_lc_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3370,7 +3413,7 @@ subroutine psb_lc_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3399,35 +3442,35 @@ subroutine psb_lc_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call lcsc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3473,12 +3516,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3489,19 +3532,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3515,9 +3558,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3529,9 +3572,9 @@ contains enddo end do end if - + end subroutine lcsc_getptn - + end subroutine psb_lc_csc_csgetptn @@ -3539,7 +3582,7 @@ end subroutine psb_lc_csc_csgetptn subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3558,7 +3601,7 @@ subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3568,7 +3611,7 @@ subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -3588,22 +3631,22 @@ subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -3611,13 +3654,13 @@ subroutine psb_lc_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call lcsc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3665,12 +3708,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3681,7 +3724,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -3689,12 +3732,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3710,9 +3753,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3732,11 +3775,11 @@ end subroutine psb_lc_csc_csgetrow -subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_csput_a - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -3755,26 +3798,26 @@ subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -3785,25 +3828,25 @@ subroutine psb_lc_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_lc_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -3829,7 +3872,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -3847,13 +3890,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -3863,19 +3906,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -3888,18 +3931,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -3921,12 +3964,12 @@ contains end subroutine psb_lc_csc_csput_a -subroutine psb_lc_cp_csc_from_coo(a,b,info) +subroutine psb_lc_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_cp_csc_from_coo - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b @@ -3949,11 +3992,11 @@ end subroutine psb_lc_cp_csc_from_coo -subroutine psb_lc_cp_csc_to_coo(a,b,info) +subroutine psb_lc_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_cp_csc_to_coo - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -3983,7 +4026,7 @@ subroutine psb_lc_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -3991,12 +4034,12 @@ subroutine psb_lc_cp_csc_to_coo(a,b,info) end subroutine psb_lc_cp_csc_to_coo -subroutine psb_lc_mv_csc_to_coo(a,b,info) +subroutine psb_lc_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_mv_csc_to_coo - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -4033,13 +4076,13 @@ subroutine psb_lc_mv_csc_to_coo(a,b,info) end subroutine psb_lc_mv_csc_to_coo -subroutine psb_lc_mv_csc_from_coo(a,b,info) +subroutine psb_lc_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_mv_csc_from_coo - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -4063,7 +4106,7 @@ subroutine psb_lc_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -4086,17 +4129,17 @@ subroutine psb_lc_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_lc_mv_csc_from_coo -subroutine psb_lc_mv_csc_to_fmt(a,b,info) +subroutine psb_lc_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_mv_csc_to_fmt - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -4112,10 +4155,10 @@ subroutine psb_lc_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_lc_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_lc_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lc_base_sparse_mat = a%psb_lc_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -4132,12 +4175,12 @@ subroutine psb_lc_mv_csc_to_fmt(a,b,info) end subroutine psb_lc_mv_csc_to_fmt !!$ -subroutine psb_lc_cp_csc_to_fmt(a,b,info) +subroutine psb_lc_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_cp_csc_to_fmt - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -4153,10 +4196,10 @@ subroutine psb_lc_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_lc_csc_sparse_mat) + type is (psb_lc_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lc_base_sparse_mat = a%psb_lc_base_sparse_mat nc = a%get_ncols() @@ -4174,12 +4217,12 @@ subroutine psb_lc_cp_csc_to_fmt(a,b,info) end subroutine psb_lc_cp_csc_to_fmt -subroutine psb_lc_mv_csc_from_fmt(a,b,info) +subroutine psb_lc_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_mv_csc_from_fmt - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -4195,10 +4238,10 @@ subroutine psb_lc_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_lc_csc_sparse_mat) + type is (psb_lc_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat @@ -4218,12 +4261,12 @@ end subroutine psb_lc_mv_csc_from_fmt -subroutine psb_lc_cp_csc_from_fmt(a,b,info) +subroutine psb_lc_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_cp_csc_from_fmt - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b @@ -4239,10 +4282,10 @@ subroutine psb_lc_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_lc_csc_sparse_mat) + type is (psb_lc_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat nc = b%get_ncols() @@ -4257,25 +4300,25 @@ subroutine psb_lc_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_lc_cp_csc_from_fmt subroutine psb_lc_csc_clean_zeros(a, info) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_clean_zeros - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nc - integer(psb_lpk_), allocatable :: ilcp(:) - + integer(psb_lpk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= czero) then @@ -4291,10 +4334,10 @@ subroutine psb_lc_csc_clean_zeros(a, info) end subroutine psb_lc_csc_clean_zeros -subroutine psb_lc_csc_mold(a,b,info) +subroutine psb_lc_csc_mold(a,b,info) use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_mold use psb_error_mod - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4303,16 +4346,16 @@ subroutine psb_lc_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lc_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4324,11 +4367,11 @@ subroutine psb_lc_csc_mold(a,b,info) end subroutine psb_lc_csc_mold -subroutine psb_lc_csc_reallocate_nz(nz,a) +subroutine psb_lc_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4340,7 +4383,7 @@ subroutine psb_lc_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4358,7 +4401,7 @@ end subroutine psb_lc_csc_reallocate_nz subroutine psb_lc_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_csgetblk @@ -4381,12 +4424,12 @@ subroutine psb_lc_csc_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 @@ -4414,9 +4457,9 @@ end subroutine psb_lc_csc_csgetblk subroutine psb_lc_csc_reinit(a,clear) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_reinit - implicit none + implicit none - class(psb_lc_csc_sparse_mat), intent(inout) :: a + class(psb_lc_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4430,16 +4473,16 @@ subroutine psb_lc_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_upd() call a%set_host() @@ -4462,7 +4505,7 @@ subroutine psb_lc_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_trim - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, n integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4477,7 +4520,7 @@ subroutine psb_lc_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4487,11 +4530,11 @@ subroutine psb_lc_csc_trim(a) end subroutine psb_lc_csc_trim -subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lc_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4502,26 +4545,26 @@ subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -4529,7 +4572,7 @@ subroutine psb_lc_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -4552,10 +4595,10 @@ end subroutine psb_lc_csc_allocate_mnnz subroutine psb_lc_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lc_csc_sparse_mat), intent(in) :: a + class(psb_lc_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4566,13 +4609,13 @@ subroutine psb_lc_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4586,40 +4629,40 @@ subroutine psb_lc_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -4632,7 +4675,7 @@ subroutine psb_lccscspspmm(a,b,c,info) use psb_c_mat_mod use psb_serial_mod, psb_protect_name => psb_lccscspspmm - implicit none + implicit none class(psb_lc_csc_sparse_mat), intent(in) :: a,b type(psb_lc_csc_sparse_mat), intent(out) :: c @@ -4652,7 +4695,7 @@ subroutine psb_lccscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -4681,9 +4724,9 @@ subroutine psb_lccscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_lc_csc_sparse_mat), intent(in) :: a,b type(psb_lc_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -4706,29 +4749,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -4736,11 +4779,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index 1b3e97054..84dc4767e 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_csmv - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -73,7 +73,7 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -83,7 +83,7 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_c_csr_csmv(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_c_csr_csmm - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -418,7 +418,7 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -426,7 +426,7 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -434,16 +434,16 @@ subroutine psb_c_csr_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_c_csr_cssv - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -766,7 +766,7 @@ subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -776,26 +776,26 @@ subroutine psb_c_csr_cssv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x) psb_c_csr_cssm - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1030,7 +1030,7 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1041,9 +1041,9 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1063,14 +1063,14 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == czero) then + if (beta == czero) then call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -1078,7 +1078,7 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) end if call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*tmp(i,1:nc) + beta*y(i,1:nc) end do @@ -1099,11 +1099,11 @@ subroutine psb_c_csr_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_csrsm(tra,ctra,lower,unit,nr,nc,& - & irp,ja,val,x,ldx,y,ldy,info) - implicit none + & irp,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) complex(psb_spk_), intent(in) :: val(*), x(ldx,*) @@ -1120,38 +1120,38 @@ contains end if - if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if ((.not.tra).and.(.not.ctra)) then + if (lower) then + if (unit) then do i=1, nr - acc = czero + acc = czero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr - acc = czero + acc = czero do j=irp(i), irp(i+1)-2 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = (x(i,1:nc) - acc)/val(irp(i+1)-1) end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then - do i=nr, 1, -1 - acc = czero + if (unit) then + do i=nr, 1, -1 + acc = czero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then - do i=nr, 1, -1 - acc = czero + else if (.not.unit) then + do i=nr, 1, -1 + acc = czero do j=irp(i)+1, irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do @@ -1161,96 +1161,96 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/val(irp(i+1)-1) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/val(irp(i)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/conjg(val(irp(i+1)-1)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/conjg(val(irp(i))) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do end if @@ -1264,7 +1264,7 @@ end subroutine psb_c_csr_cssm function psb_c_csr_maxval(a) result(res) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_maxval - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1277,7 +1277,7 @@ function psb_c_csr_maxval(a) result(res) res = szero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1286,7 +1286,7 @@ end function psb_c_csr_maxval function psb_c_csr_csnmi(a) result(res) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_csnmi - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1303,7 +1303,7 @@ function psb_c_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -1311,7 +1311,7 @@ function psb_c_csr_csnmi(a) result(res) end function psb_c_csr_csnmi -subroutine psb_c_csr_rowsum(d,a) +subroutine psb_c_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_rowsum @@ -1331,7 +1331,7 @@ subroutine psb_c_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1340,12 +1340,12 @@ subroutine psb_c_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = czero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + cone end do @@ -1353,7 +1353,7 @@ subroutine psb_c_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1361,7 +1361,7 @@ subroutine psb_c_csr_rowsum(d,a) end subroutine psb_c_csr_rowsum -subroutine psb_c_csr_arwsum(d,a) +subroutine psb_c_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_arwsum @@ -1381,7 +1381,7 @@ subroutine psb_c_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1391,19 +1391,19 @@ subroutine psb_c_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1411,7 +1411,7 @@ subroutine psb_c_csr_arwsum(d,a) end subroutine psb_c_csr_arwsum -subroutine psb_c_csr_colsum(d,a) +subroutine psb_c_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_colsum @@ -1432,7 +1432,7 @@ subroutine psb_c_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1447,8 +1447,8 @@ subroutine psb_c_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + cone end do @@ -1456,7 +1456,7 @@ subroutine psb_c_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1464,7 +1464,7 @@ subroutine psb_c_csr_colsum(d,a) end subroutine psb_c_csr_colsum -subroutine psb_c_csr_aclsum(d,a) +subroutine psb_c_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_aclsum @@ -1485,7 +1485,7 @@ subroutine psb_c_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1500,8 +1500,8 @@ subroutine psb_c_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -1509,7 +1509,7 @@ subroutine psb_c_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1517,11 +1517,11 @@ subroutine psb_c_csr_aclsum(d,a) end subroutine psb_c_csr_aclsum -subroutine psb_c_csr_get_diag(a,d,info) +subroutine psb_c_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_get_diag - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1536,28 +1536,28 @@ subroutine psb_c_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = cone else do i=1, mnm d(i) = czero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = czero end do @@ -1570,12 +1570,12 @@ subroutine psb_c_csr_get_diag(a,d,info) end subroutine psb_c_csr_get_diag -subroutine psb_c_csr_scal(d,a,info,side) +subroutine psb_c_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scal use psb_string_mod - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1585,47 +1585,47 @@ subroutine psb_c_csr_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1643,11 +1643,11 @@ subroutine psb_c_csr_scal(d,a,info,side) end subroutine psb_c_csr_scal -subroutine psb_c_csr_scals(d,a,info) +subroutine psb_c_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scals - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1660,7 +1660,7 @@ subroutine psb_c_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1677,10 +1677,51 @@ subroutine psb_c_csr_scals(d,a,info) end subroutine psb_c_csr_scals +subroutine psb_c_csr_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scalplusidentity + implicit none + class(psb_c_csr_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%irp(i),a%irp(i+1)-1 + j=a%ja(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + cone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + return + +end subroutine psb_c_csr_scalplusidentity -! == =================================== + +! == =================================== ! ! ! @@ -1690,14 +1731,14 @@ end subroutine psb_c_csr_scals ! ! ! -! == =================================== +! == =================================== -subroutine psb_c_csr_reallocate_nz(nz,a) +subroutine psb_c_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_c_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1709,7 +1750,7 @@ subroutine psb_c_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -1723,10 +1764,10 @@ subroutine psb_c_csr_reallocate_nz(nz,a) end subroutine psb_c_csr_reallocate_nz -subroutine psb_c_csr_mold(a,b,info) +subroutine psb_c_csr_mold(a,b,info) use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_mold use psb_error_mod - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -1735,16 +1776,16 @@ subroutine psb_c_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_c_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -1755,11 +1796,11 @@ subroutine psb_c_csr_mold(a,b,info) end subroutine psb_c_csr_mold -subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_c_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -1770,26 +1811,26 @@ subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -1797,7 +1838,7 @@ subroutine psb_c_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -1820,7 +1861,7 @@ end subroutine psb_c_csr_allocate_mnnz subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1838,7 +1879,7 @@ subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1866,35 +1907,35 @@ subroutine psb_c_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1940,32 +1981,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -1976,7 +2017,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -1987,13 +2028,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_c_csr_csgetptn subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2021,7 +2062,7 @@ subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -2040,27 +2081,27 @@ subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2068,13 +2109,13 @@ subroutine psb_c_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2121,12 +2162,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -2134,23 +2175,23 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) - + if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2162,7 +2203,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2183,7 +2224,7 @@ end subroutine psb_c_csr_csgetrow ! subroutine psb_c_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_tril @@ -2195,7 +2236,7 @@ subroutine psb_c_csr_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_c_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2206,57 +2247,57 @@ subroutine psb_c_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -2265,7 +2306,7 @@ subroutine psb_c_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -2281,7 +2322,7 @@ subroutine psb_c_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -2289,17 +2330,17 @@ subroutine psb_c_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -2318,8 +2359,8 @@ subroutine psb_c_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -2337,7 +2378,7 @@ end subroutine psb_c_csr_tril subroutine psb_c_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_triu @@ -2349,7 +2390,7 @@ subroutine psb_c_csr_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_c_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2360,57 +2401,57 @@ subroutine psb_c_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -2419,7 +2460,7 @@ subroutine psb_c_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -2471,8 +2512,8 @@ subroutine psb_c_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -2489,11 +2530,11 @@ subroutine psb_c_csr_triu(a,u,info,& end subroutine psb_c_csr_triu -subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_csput_a - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -2511,23 +2552,23 @@ subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_; i=1 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_; i=2 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_; i=3 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_; i=4 call psb_errpush(info,name,i_err=(/i/)) goto 9999 @@ -2538,25 +2579,25 @@ subroutine psb_c_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_c_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2582,7 +2623,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2600,13 +2641,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2616,20 +2657,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 - ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2641,17 +2682,17 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2676,9 +2717,9 @@ end subroutine psb_c_csr_csput_a subroutine psb_c_csr_reinit(a,clear) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_reinit - implicit none + implicit none - class(psb_c_csr_sparse_mat), intent(inout) :: a + class(psb_c_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2691,16 +2732,16 @@ subroutine psb_c_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_upd() call a%set_host() @@ -2723,9 +2764,9 @@ subroutine psb_c_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_trim - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2738,7 +2779,7 @@ subroutine psb_c_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2751,10 +2792,10 @@ end subroutine psb_c_csr_trim subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_c_csr_sparse_mat), intent(in) :: a + class(psb_c_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2763,13 +2804,13 @@ subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='c_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2783,40 +2824,40 @@ subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -2826,12 +2867,12 @@ subroutine psb_c_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_c_csr_print -subroutine psb_c_cp_csr_from_coo(a,b,info) +subroutine psb_c_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_cp_csr_from_coo - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(in) :: b @@ -2849,18 +2890,18 @@ subroutine psb_c_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_c_base_sparse_mat = tmp%psb_c_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -2869,22 +2910,22 @@ subroutine psb_c_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -2900,17 +2941,17 @@ subroutine psb_c_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_c_cp_csr_from_coo -subroutine psb_c_cp_csr_to_coo(a,b,info) +subroutine psb_c_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_cp_csr_to_coo - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -2949,12 +2990,12 @@ subroutine psb_c_cp_csr_to_coo(a,b,info) end subroutine psb_c_cp_csr_to_coo -subroutine psb_c_mv_csr_to_coo(a,b,info) +subroutine psb_c_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_mv_csr_to_coo - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -2995,13 +3036,13 @@ end subroutine psb_c_mv_csr_to_coo -subroutine psb_c_mv_csr_from_coo(a,b,info) +subroutine psb_c_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_mv_csr_from_coo - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_coo_sparse_mat), intent(inout) :: b @@ -3027,7 +3068,7 @@ subroutine psb_c_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -3051,15 +3092,15 @@ subroutine psb_c_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_c_mv_csr_from_coo -subroutine psb_c_mv_csr_to_fmt(a,b,info) +subroutine psb_c_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_mv_csr_to_fmt - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -3076,9 +3117,9 @@ subroutine psb_c_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_c_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_c_base_sparse_mat = a%psb_c_base_sparse_mat @@ -3096,12 +3137,12 @@ subroutine psb_c_mv_csr_to_fmt(a,b,info) end subroutine psb_c_mv_csr_to_fmt -subroutine psb_c_cp_csr_to_fmt(a,b,info) +subroutine psb_c_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_cp_csr_to_fmt - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -3119,10 +3160,10 @@ subroutine psb_c_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_c_csr_sparse_mat) + type is (psb_c_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_c_base_sparse_mat = a%psb_c_base_sparse_mat nr = a%get_nrows() @@ -3140,11 +3181,11 @@ subroutine psb_c_cp_csr_to_fmt(a,b,info) end subroutine psb_c_cp_csr_to_fmt -subroutine psb_c_mv_csr_from_fmt(a,b,info) +subroutine psb_c_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_mv_csr_from_fmt - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b @@ -3161,10 +3202,10 @@ subroutine psb_c_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_c_csr_sparse_mat) + type is (psb_c_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat @@ -3183,12 +3224,12 @@ end subroutine psb_c_mv_csr_from_fmt -subroutine psb_c_cp_csr_from_fmt(a,b,info) +subroutine psb_c_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_cp_csr_from_fmt - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a class(psb_c_base_sparse_mat), intent(in) :: b @@ -3205,10 +3246,10 @@ subroutine psb_c_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_c_coo_sparse_mat) + type is (psb_c_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_c_csr_sparse_mat) + type is (psb_c_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_c_base_sparse_mat = b%psb_c_base_sparse_mat nr = b%get_nrows() @@ -3227,19 +3268,19 @@ end subroutine psb_c_cp_csr_from_fmt subroutine psb_c_csr_clean_zeros(a, info) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_clean_zeros - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nr - integer(psb_ipk_), allocatable :: ilrp(:) - + integer(psb_ipk_), allocatable :: ilrp(:) + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= czero) then @@ -3258,7 +3299,7 @@ subroutine psb_ccsrspspmm(a,b,c,info) use psb_c_mat_mod use psb_serial_mod, psb_protect_name => psb_ccsrspspmm - implicit none + implicit none class(psb_c_csr_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(out) :: c @@ -3269,7 +3310,7 @@ subroutine psb_ccsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -3279,7 +3320,7 @@ subroutine psb_ccsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -3305,9 +3346,9 @@ subroutine psb_ccsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_c_csr_sparse_mat), intent(in) :: a,b type(psb_c_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -3330,49 +3371,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_ccsrspspmm @@ -3381,13 +3422,13 @@ end subroutine psb_ccsrspspmm ! ! ! lc version -! ! -subroutine psb_lc_csr_get_diag(a,d,info) +! +subroutine psb_lc_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_get_diag - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a complex(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3402,28 +3443,28 @@ subroutine psb_lc_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = cone else do i=1, mnm d(i) = czero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = czero end do @@ -3436,12 +3477,12 @@ subroutine psb_lc_csr_get_diag(a,d,info) end subroutine psb_lc_csr_get_diag -subroutine psb_lc_csr_scal(d,a,info,side) +subroutine psb_lc_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_scal use psb_string_mod - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3451,47 +3492,47 @@ subroutine psb_lc_csr_scal(d,a,info,side) integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -3509,11 +3550,11 @@ subroutine psb_lc_csr_scal(d,a,info,side) end subroutine psb_lc_csr_scal -subroutine psb_lc_csr_scals(d,a,info) +subroutine psb_lc_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_scals - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3527,7 +3568,7 @@ subroutine psb_lc_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3548,7 +3589,7 @@ end subroutine psb_lc_csr_scals function psb_lc_csr_maxval(a) result(res) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_maxval - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3561,7 +3602,7 @@ function psb_lc_csr_maxval(a) result(res) res = szero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3570,7 +3611,7 @@ end function psb_lc_csr_maxval function psb_lc_csr_csnmi(a) result(res) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_csnmi - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3587,7 +3628,7 @@ function psb_lc_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -3595,7 +3636,7 @@ function psb_lc_csr_csnmi(a) result(res) end function psb_lc_csr_csnmi -subroutine psb_lc_csr_rowsum(d,a) +subroutine psb_lc_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_rowsum @@ -3615,7 +3656,7 @@ subroutine psb_lc_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3624,12 +3665,12 @@ subroutine psb_lc_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = czero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + cone end do @@ -3637,7 +3678,7 @@ subroutine psb_lc_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3645,7 +3686,7 @@ subroutine psb_lc_csr_rowsum(d,a) end subroutine psb_lc_csr_rowsum -subroutine psb_lc_csr_arwsum(d,a) +subroutine psb_lc_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_arwsum @@ -3665,7 +3706,7 @@ subroutine psb_lc_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3675,19 +3716,19 @@ subroutine psb_lc_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3695,7 +3736,7 @@ subroutine psb_lc_csr_arwsum(d,a) end subroutine psb_lc_csr_arwsum -subroutine psb_lc_csr_colsum(d,a) +subroutine psb_lc_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_colsum @@ -3716,7 +3757,7 @@ subroutine psb_lc_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3731,8 +3772,8 @@ subroutine psb_lc_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + cone end do @@ -3740,7 +3781,7 @@ subroutine psb_lc_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3748,7 +3789,7 @@ subroutine psb_lc_csr_colsum(d,a) end subroutine psb_lc_csr_colsum -subroutine psb_lc_csr_aclsum(d,a) +subroutine psb_lc_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_aclsum @@ -3769,7 +3810,7 @@ subroutine psb_lc_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3784,8 +3825,8 @@ subroutine psb_lc_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -3793,7 +3834,7 @@ subroutine psb_lc_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3802,7 +3843,7 @@ subroutine psb_lc_csr_aclsum(d,a) end subroutine psb_lc_csr_aclsum -! == =================================== +! == =================================== ! ! ! @@ -3812,14 +3853,14 @@ end subroutine psb_lc_csr_aclsum ! ! ! -! == =================================== +! == =================================== -subroutine psb_lc_csr_reallocate_nz(nz,a) +subroutine psb_lc_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_reallocate_nz - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3831,7 +3872,7 @@ subroutine psb_lc_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -3845,10 +3886,10 @@ subroutine psb_lc_csr_reallocate_nz(nz,a) end subroutine psb_lc_csr_reallocate_nz -subroutine psb_lc_csr_mold(a,b,info) +subroutine psb_lc_csr_mold(a,b,info) use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_mold use psb_error_mod - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3857,16 +3898,16 @@ subroutine psb_lc_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lc_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -3877,11 +3918,11 @@ subroutine psb_lc_csr_mold(a,b,info) end subroutine psb_lc_csr_mold -subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -3893,26 +3934,26 @@ subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -3920,7 +3961,7 @@ subroutine psb_lc_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -3943,7 +3984,7 @@ end subroutine psb_lc_csr_allocate_mnnz subroutine psb_lc_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3961,7 +4002,7 @@ subroutine psb_lc_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -3990,35 +4031,35 @@ subroutine psb_lc_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4064,32 +4105,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -4100,7 +4141,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -4111,13 +4152,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_lc_csr_csgetptn subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4136,7 +4177,7 @@ subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4146,7 +4187,7 @@ subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -4165,22 +4206,22 @@ subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4188,13 +4229,13 @@ subroutine psb_lc_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4241,12 +4282,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -4254,21 +4295,21 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4280,7 +4321,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4301,7 +4342,7 @@ end subroutine psb_lc_csr_csgetrow ! subroutine psb_lc_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_tril @@ -4313,7 +4354,7 @@ subroutine psb_lc_csr_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lc_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4325,57 +4366,57 @@ subroutine psb_lc_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -4384,7 +4425,7 @@ subroutine psb_lc_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -4400,7 +4441,7 @@ subroutine psb_lc_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -4408,17 +4449,17 @@ subroutine psb_lc_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -4437,8 +4478,8 @@ subroutine psb_lc_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -4456,7 +4497,7 @@ end subroutine psb_lc_csr_tril subroutine psb_lc_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_triu @@ -4468,7 +4509,7 @@ subroutine psb_lc_csr_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lc_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4480,57 +4521,57 @@ subroutine psb_lc_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -4539,7 +4580,7 @@ subroutine psb_lc_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -4591,8 +4632,8 @@ subroutine psb_lc_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -4609,11 +4650,11 @@ subroutine psb_lc_csr_triu(a,u,info,& end subroutine psb_lc_csr_triu -subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_csput_a - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) @@ -4633,24 +4674,24 @@ subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then - info = psb_err_iarg_neg_; + if (nz <= 0) then + info = psb_err_iarg_neg_; call psb_errpush(info,name,m_err=(/1/)) goto 9999 end if - if (size(ia) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ia) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/2/)) goto 9999 end if - if (size(ja) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ja) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/3/)) goto 9999 end if - if (size(val) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(val) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/4/)) goto 9999 end if @@ -4660,25 +4701,25 @@ subroutine psb_lc_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_lc_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -4704,7 +4745,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -4722,13 +4763,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -4738,20 +4779,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 inc = nc - ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -4763,18 +4804,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 inc = nc ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -4799,9 +4840,9 @@ end subroutine psb_lc_csr_csput_a subroutine psb_lc_csr_reinit(a,clear) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_reinit - implicit none + implicit none - class(psb_lc_csr_sparse_mat), intent(inout) :: a + class(psb_lc_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4814,16 +4855,16 @@ subroutine psb_lc_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = czero call a%set_upd() call a%set_host() @@ -4846,7 +4887,7 @@ subroutine psb_lc_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_trim - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, m integer(psb_ipk_) :: err_act, info @@ -4862,7 +4903,7 @@ subroutine psb_lc_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4875,10 +4916,10 @@ end subroutine psb_lc_csr_trim subroutine psb_lc_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lc_csr_sparse_mat), intent(in) :: a + class(psb_lc_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4887,13 +4928,13 @@ subroutine psb_lc_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='lc_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4907,40 +4948,40 @@ subroutine psb_lc_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -4950,12 +4991,12 @@ subroutine psb_lc_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_lc_csr_print -subroutine psb_lc_cp_csr_from_coo(a,b,info) +subroutine psb_lc_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_cp_csr_from_coo - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(in) :: b @@ -4973,18 +5014,18 @@ subroutine psb_lc_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_lc_base_sparse_mat = tmp%psb_lc_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -4993,22 +5034,22 @@ subroutine psb_lc_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -5024,17 +5065,17 @@ subroutine psb_lc_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_lc_cp_csr_from_coo -subroutine psb_lc_cp_csr_to_coo(a,b,info) +subroutine psb_lc_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_cp_csr_to_coo - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -5073,12 +5114,12 @@ subroutine psb_lc_cp_csr_to_coo(a,b,info) end subroutine psb_lc_cp_csr_to_coo -subroutine psb_lc_mv_csr_to_coo(a,b,info) +subroutine psb_lc_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_mv_csr_to_coo - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -5119,13 +5160,13 @@ end subroutine psb_lc_mv_csr_to_coo -subroutine psb_lc_mv_csr_from_coo(a,b,info) +subroutine psb_lc_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_mv_csr_from_coo - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_coo_sparse_mat), intent(inout) :: b @@ -5151,7 +5192,7 @@ subroutine psb_lc_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -5175,15 +5216,15 @@ subroutine psb_lc_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_lc_mv_csr_from_coo -subroutine psb_lc_mv_csr_to_fmt(a,b,info) +subroutine psb_lc_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_mv_csr_to_fmt - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -5200,9 +5241,9 @@ subroutine psb_lc_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_lc_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lc_base_sparse_mat = a%psb_lc_base_sparse_mat @@ -5220,12 +5261,12 @@ subroutine psb_lc_mv_csr_to_fmt(a,b,info) end subroutine psb_lc_mv_csr_to_fmt -subroutine psb_lc_cp_csr_to_fmt(a,b,info) +subroutine psb_lc_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_cp_csr_to_fmt - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -5243,10 +5284,10 @@ subroutine psb_lc_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_lc_csr_sparse_mat) + type is (psb_lc_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lc_base_sparse_mat = a%psb_lc_base_sparse_mat nr = a%get_nrows() @@ -5264,11 +5305,11 @@ subroutine psb_lc_cp_csr_to_fmt(a,b,info) end subroutine psb_lc_cp_csr_to_fmt -subroutine psb_lc_mv_csr_from_fmt(a,b,info) +subroutine psb_lc_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_mv_csr_from_fmt - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b @@ -5285,10 +5326,10 @@ subroutine psb_lc_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_lc_csr_sparse_mat) + type is (psb_lc_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat @@ -5307,12 +5348,12 @@ end subroutine psb_lc_mv_csr_from_fmt -subroutine psb_lc_cp_csr_from_fmt(a,b,info) +subroutine psb_lc_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_c_base_mat_mod use psb_realloc_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_cp_csr_from_fmt - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(in) :: b @@ -5329,10 +5370,10 @@ subroutine psb_lc_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lc_coo_sparse_mat) + type is (psb_lc_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_lc_csr_sparse_mat) + type is (psb_lc_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lc_base_sparse_mat = b%psb_lc_base_sparse_mat nr = b%get_nrows() @@ -5352,19 +5393,19 @@ end subroutine psb_lc_cp_csr_from_fmt subroutine psb_lc_csr_clean_zeros(a, info) use psb_error_mod use psb_c_csr_mat_mod, psb_protect_name => psb_lc_csr_clean_zeros - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nr - integer(psb_lpk_), allocatable :: ilrp(:) - - info = 0 + integer(psb_lpk_), allocatable :: ilrp(:) + + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= czero) then @@ -5383,7 +5424,7 @@ subroutine psb_lccsrspspmm(a,b,c,info) use psb_c_mat_mod use psb_serial_mod, psb_protect_name => psb_lccsrspspmm - implicit none + implicit none class(psb_lc_csr_sparse_mat), intent(in) :: a,b type(psb_lc_csr_sparse_mat), intent(out) :: c @@ -5394,7 +5435,7 @@ subroutine psb_lccsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -5404,7 +5445,7 @@ subroutine psb_lccsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -5429,9 +5470,9 @@ subroutine psb_lccsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_lc_csr_sparse_mat), intent(in) :: a,b type(psb_lc_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -5454,50 +5495,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_lccsrspspmm - diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90 index c2f1e67c7..1891cda17 100644 --- a/base/serial/impl/psb_c_mat_impl.F90 +++ b/base/serial/impl/psb_c_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! c_mat_impl: ! implementation of the outer matrix methods. @@ -43,7 +43,7 @@ ! ! ! -! Setters +! Setters ! ! ! @@ -53,10 +53,10 @@ ! == =================================== -subroutine psb_c_set_nrows(m,a) +subroutine psb_c_set_nrows(m,a) use psb_c_mat_mod, psb_protect_name => psb_c_set_nrows use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -64,7 +64,7 @@ subroutine psb_c_set_nrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -82,10 +82,10 @@ subroutine psb_c_set_nrows(m,a) end subroutine psb_c_set_nrows -subroutine psb_c_set_ncols(n,a) +subroutine psb_c_set_ncols(n,a) use psb_c_mat_mod, psb_protect_name => psb_c_set_ncols use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -93,7 +93,7 @@ subroutine psb_c_set_ncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -112,16 +112,16 @@ end subroutine psb_c_set_ncols ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_c_set_dupl(n,a) +subroutine psb_c_set_dupl(n,a) use psb_c_mat_mod, psb_protect_name => psb_c_set_dupl use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -129,7 +129,7 @@ subroutine psb_c_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -151,17 +151,17 @@ end subroutine psb_c_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_c_set_null(a) +subroutine psb_c_set_null(a) use psb_c_mat_mod, psb_protect_name => psb_c_set_null use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -179,17 +179,17 @@ subroutine psb_c_set_null(a) end subroutine psb_c_set_null -subroutine psb_c_set_bld(a) +subroutine psb_c_set_bld(a) use psb_c_mat_mod, psb_protect_name => psb_c_set_bld use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -208,17 +208,17 @@ subroutine psb_c_set_bld(a) end subroutine psb_c_set_bld -subroutine psb_c_set_upd(a) +subroutine psb_c_set_upd(a) use psb_c_mat_mod, psb_protect_name => psb_c_set_upd use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -238,17 +238,17 @@ subroutine psb_c_set_upd(a) end subroutine psb_c_set_upd -subroutine psb_c_set_asb(a) +subroutine psb_c_set_asb(a) use psb_c_mat_mod, psb_protect_name => psb_c_set_asb use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -267,10 +267,10 @@ subroutine psb_c_set_asb(a) end subroutine psb_c_set_asb -subroutine psb_c_set_sorted(a,val) +subroutine psb_c_set_sorted(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_sorted use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -278,7 +278,7 @@ subroutine psb_c_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -297,10 +297,10 @@ subroutine psb_c_set_sorted(a,val) end subroutine psb_c_set_sorted -subroutine psb_c_set_triangle(a,val) +subroutine psb_c_set_triangle(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_triangle use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -308,7 +308,7 @@ subroutine psb_c_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -326,10 +326,10 @@ subroutine psb_c_set_triangle(a,val) end subroutine psb_c_set_triangle -subroutine psb_c_set_symmetric(a,val) +subroutine psb_c_set_symmetric(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -337,7 +337,7 @@ subroutine psb_c_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -355,10 +355,10 @@ subroutine psb_c_set_symmetric(a,val) end subroutine psb_c_set_symmetric -subroutine psb_c_set_unit(a,val) +subroutine psb_c_set_unit(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_unit use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -366,7 +366,7 @@ subroutine psb_c_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -385,10 +385,10 @@ subroutine psb_c_set_unit(a,val) end subroutine psb_c_set_unit -subroutine psb_c_set_lower(a,val) +subroutine psb_c_set_lower(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_lower use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -396,7 +396,7 @@ subroutine psb_c_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -415,10 +415,10 @@ subroutine psb_c_set_lower(a,val) end subroutine psb_c_set_lower -subroutine psb_c_set_upper(a,val) +subroutine psb_c_set_upper(a,val) use psb_c_mat_mod, psb_protect_name => psb_c_set_upper use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -426,7 +426,7 @@ subroutine psb_c_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -456,16 +456,16 @@ end subroutine psb_c_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_c_sparse_print(iout,a,iv,head,ivr,ivc) use psb_c_mat_mod, psb_protect_name => psb_c_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_cspmat_type), intent(in) :: a + class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -476,7 +476,7 @@ subroutine psb_c_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -496,10 +496,10 @@ end subroutine psb_c_sparse_print subroutine psb_c_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_c_mat_mod, psb_protect_name => psb_c_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_cspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_cspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -511,24 +511,24 @@ subroutine psb_c_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -547,13 +547,13 @@ end subroutine psb_c_n_sparse_print subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) use psb_c_mat_mod, psb_protect_name => psb_c_get_neigh use psb_error_mod - implicit none - class(psb_cspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + implicit none + class(psb_cspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -561,7 +561,7 @@ subroutine psb_c_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -582,17 +582,17 @@ end subroutine psb_c_get_neigh -subroutine psb_c_csall(nr,nc,a,info,nz) +subroutine psb_c_csall(nr,nc,a,info,nz) use psb_c_mat_mod, psb_protect_name => psb_c_csall use psb_c_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -602,13 +602,13 @@ subroutine psb_c_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_c_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -619,10 +619,10 @@ subroutine psb_c_csall(nr,nc,a,info,nz) end subroutine psb_c_csall -subroutine psb_c_reallocate_nz(nz,a) +subroutine psb_c_reallocate_nz(nz,a) use psb_c_mat_mod, psb_protect_name => psb_c_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -630,7 +630,7 @@ subroutine psb_c_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -647,31 +647,31 @@ subroutine psb_c_reallocate_nz(nz,a) end subroutine psb_c_reallocate_nz -subroutine psb_c_free(a) +subroutine psb_c_free(a) use psb_c_mat_mod, psb_protect_name => psb_c_free use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_c_free -subroutine psb_c_trim(a) +subroutine psb_c_trim(a) use psb_c_mat_mod, psb_protect_name => psb_c_trim use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -689,11 +689,11 @@ end subroutine psb_c_trim -subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_mat_mod, psb_protect_name => psb_c_csput_a use psb_c_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -705,15 +705,15 @@ subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -725,13 +725,13 @@ subroutine psb_c_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_c_csput_a -subroutine psb_c_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_c_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_mat_mod, psb_protect_name => psb_c_csput_v use psb_c_base_mat_mod use psb_c_vect_mod, only : psb_c_vect_type use psb_i_vect_mod, only : psb_i_vect_type use psb_error_mod - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a type(psb_c_vect_type), intent(inout) :: val type(psb_i_vect_type), intent(inout) :: ia, ja @@ -744,19 +744,19 @@ subroutine psb_c_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -771,7 +771,7 @@ end subroutine psb_c_csput_v subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -794,7 +794,7 @@ subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -803,7 +803,7 @@ subroutine psb_c_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -818,7 +818,7 @@ end subroutine psb_c_csgetptn subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -842,7 +842,7 @@ subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -851,7 +851,7 @@ subroutine psb_c_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -868,7 +868,7 @@ end subroutine psb_c_csgetrow subroutine psb_c_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -893,31 +893,31 @@ subroutine psb_c_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -936,7 +936,7 @@ subroutine psb_c_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_c_base_mat_mod use psb_c_mat_mod, psb_protect_name => psb_c_tril - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -951,22 +951,22 @@ subroutine psb_c_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -975,7 +975,7 @@ subroutine psb_c_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -993,7 +993,7 @@ subroutine psb_c_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_c_base_mat_mod use psb_c_mat_mod, psb_protect_name => psb_c_triu - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -1009,24 +1009,24 @@ subroutine psb_c_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -1035,7 +1035,7 @@ subroutine psb_c_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1050,7 +1050,7 @@ end subroutine psb_c_triu subroutine psb_c_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -1070,24 +1070,24 @@ subroutine psb_c_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -1101,7 +1101,7 @@ end subroutine psb_c_csclip subroutine psb_c_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -1120,7 +1120,7 @@ subroutine psb_c_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1128,7 +1128,7 @@ subroutine psb_c_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1144,7 +1144,7 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_cscnv - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1161,7 +1161,7 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1173,38 +1173,38 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_c_csr_sparse_mat :: altmp, stat=info) + allocate(psb_c_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_c_coo_sparse_mat :: altmp, stat=info) + allocate(psb_c_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_c_csc_sparse_mat :: altmp, stat=info) + allocate(psb_c_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -1222,7 +1222,7 @@ subroutine psb_c_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%set_asb() + call b%set_asb() call psb_erractionrestore(err_act) return @@ -1237,7 +1237,7 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_cscnv_ip - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -1254,15 +1254,15 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -1272,29 +1272,29 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_c_csr_sparse_mat :: altmp, stat=info) + allocate(psb_c_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_c_coo_sparse_mat :: altmp, stat=info) + allocate(psb_c_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_c_csc_sparse_mat :: altmp, stat=info) + allocate(psb_c_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1313,7 +1313,7 @@ subroutine psb_c_cscnv_ip(a,info,type,mold,dupl) call move_alloc(altmp,a%a) call a%trim() - call a%set_asb() + call a%set_asb() call psb_erractionrestore(err_act) return @@ -1330,7 +1330,7 @@ subroutine psb_c_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_cscnv_base - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -1345,19 +1345,19 @@ subroutine psb_c_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -1379,7 +1379,7 @@ end subroutine psb_c_cscnv_base subroutine psb_c_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -1398,15 +1398,15 @@ subroutine psb_c_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1415,8 +1415,8 @@ subroutine psb_c_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1439,7 +1439,7 @@ end subroutine psb_c_clip_d subroutine psb_c_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -1457,13 +1457,13 @@ subroutine psb_c_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -1474,8 +1474,8 @@ subroutine psb_c_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1500,7 +1500,7 @@ subroutine psb_c_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_from - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1518,7 +1518,7 @@ subroutine psb_c_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_from - implicit none + implicit none class(psb_cspmat_type), intent(out) :: a class(psb_c_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -1527,7 +1527,7 @@ subroutine psb_c_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -1536,8 +1536,8 @@ subroutine psb_c_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1553,11 +1553,11 @@ subroutine psb_c_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_to - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -1568,7 +1568,7 @@ subroutine psb_c_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_to - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1585,14 +1585,14 @@ subroutine psb_c_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_c_mold subroutine psb_cspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_cspmat_type_move - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1613,7 +1613,7 @@ subroutine psb_cspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_cspmat_clone - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1625,10 +1625,10 @@ subroutine psb_cspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1645,7 +1645,7 @@ subroutine psb_c_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_transp_1mat - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1654,7 +1654,7 @@ subroutine psb_c_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1678,7 +1678,7 @@ subroutine psb_c_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_transp_2mat - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b @@ -1688,18 +1688,18 @@ subroutine psb_c_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -1716,7 +1716,7 @@ subroutine psb_c_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_transc_1mat - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1725,7 +1725,7 @@ subroutine psb_c_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1749,7 +1749,7 @@ subroutine psb_c_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_c_transc_2mat - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b @@ -1759,18 +1759,18 @@ subroutine psb_c_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -1786,9 +1786,9 @@ end subroutine psb_c_transc_2mat subroutine psb_c_asb(a,mold) use psb_c_mat_mod, psb_protect_name => psb_c_asb use psb_error_mod - implicit none + implicit none - class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), optional, intent(in) :: mold class(psb_c_base_sparse_mat), allocatable :: tmp class(psb_c_base_sparse_mat), pointer :: mld @@ -1796,15 +1796,15 @@ subroutine psb_c_asb(a,mold) character(len=20) :: name='c_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -1815,7 +1815,7 @@ subroutine psb_c_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -1830,21 +1830,21 @@ end subroutine psb_c_asb subroutine psb_c_reinit(a,clear) use psb_c_mat_mod, psb_protect_name => psb_c_reinit use psb_error_mod - implicit none + implicit none - class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -1879,10 +1879,10 @@ end subroutine psb_c_reinit ! == =================================== -subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_c_mat_mod, psb_protect_name => psb_c_csmm - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -1894,14 +1894,14 @@ subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1912,10 +1912,10 @@ subroutine psb_c_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_c_csmm -subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_c_mat_mod, psb_protect_name => psb_c_csmv - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -1927,14 +1927,14 @@ subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1944,11 +1944,11 @@ subroutine psb_c_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_c_csmv -subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) +subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_c_vect_mod use psb_c_mat_mod, psb_protect_name => psb_c_csmv_vect - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x @@ -1961,25 +1961,25 @@ subroutine psb_c_csmv_vect(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x%v,beta,y%v,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1991,10 +1991,10 @@ end subroutine psb_c_csmv_vect -subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_c_mat_mod, psb_protect_name => psb_c_cssm - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:,:) complex(psb_spk_), intent(inout) :: y(:,:) @@ -2007,14 +2007,14 @@ subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2026,10 +2026,10 @@ subroutine psb_c_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_c_cssm -subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_c_mat_mod, psb_protect_name => psb_c_cssv - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta, x(:) complex(psb_spk_), intent(inout) :: y(:) @@ -2042,15 +2042,15 @@ subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2062,11 +2062,11 @@ subroutine psb_c_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_c_cssv -subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_c_vect_mod use psb_c_mat_mod, psb_protect_name => psb_c_cssv_vect - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), intent(in) :: alpha, beta type(psb_c_vect_type), intent(inout) :: x @@ -2080,33 +2080,33 @@ subroutine psb_c_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (present(d)) then - if (.not.allocated(d%v)) then + if (present(d)) then + if (.not.allocated(d%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) else - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2121,7 +2121,7 @@ function psb_c_maxval(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_c_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2132,7 +2132,7 @@ function psb_c_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2152,7 +2152,7 @@ function psb_c_csnmi(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_c_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2162,7 +2162,7 @@ function psb_c_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2183,7 +2183,7 @@ function psb_c_csnm1(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_c_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2193,7 +2193,7 @@ function psb_c_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2214,7 +2214,7 @@ function psb_c_rowsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_c_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2225,7 +2225,7 @@ function psb_c_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2247,7 +2247,7 @@ function psb_c_arwsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_c_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2258,7 +2258,7 @@ function psb_c_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2281,7 +2281,7 @@ function psb_c_colsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_c_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2292,7 +2292,7 @@ function psb_c_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2315,7 +2315,7 @@ function psb_c_aclsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_c_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2326,7 +2326,7 @@ function psb_c_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2350,7 +2350,7 @@ function psb_c_get_diag(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_c_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2361,14 +2361,14 @@ function psb_c_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -2389,7 +2389,7 @@ subroutine psb_c_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_scal - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2401,7 +2401,7 @@ subroutine psb_c_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2424,7 +2424,7 @@ subroutine psb_c_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_scals - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -2435,7 +2435,7 @@ subroutine psb_c_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2453,27 +2453,60 @@ subroutine psb_c_scals(d,a,info) end subroutine psb_c_scals +subroutine psb_c_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_c_scalplusidentity + implicit none + class(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_c_scalplusidentity + subroutine psb_c_mv_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_from_lb - implicit none - + implicit none + class(psb_cspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_c_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_lfmt(b,info) - + end subroutine psb_c_mv_from_lb - + subroutine psb_c_cp_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_from_lb - implicit none - + implicit none + class(psb_cspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -2487,30 +2520,30 @@ subroutine psb_c_mv_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_to_lb - implicit none - + implicit none + class(psb_cspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_lfmt(b,info) call a%free() end if - + end subroutine psb_c_mv_to_lb subroutine psb_c_cp_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_to_lb - implicit none + implicit none class(psb_cspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -2523,7 +2556,7 @@ subroutine psb_c_mv_from_l(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_from_l - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -2535,20 +2568,20 @@ subroutine psb_c_mv_from_l(a,b) call a%free() end if call b%free() - + end subroutine psb_c_mv_from_l - + subroutine psb_c_cp_from_l(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_from_l - implicit none + implicit none class(psb_cspmat_type), intent(out) :: a class(psb_lcspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_c_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_lfmt(b%a,info) @@ -2561,12 +2594,12 @@ subroutine psb_c_mv_to_l(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_mv_to_l - implicit none + implicit none class(psb_cspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_lc_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_lfmt(b%a,info) @@ -2574,26 +2607,26 @@ subroutine psb_c_mv_to_l(a,b) call b%free() end if call a%free() - + end subroutine psb_c_mv_to_l subroutine psb_c_cp_to_l(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_c_cp_to_l - implicit none - + implicit none + class(psb_cspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_lc_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_lfmt(b%a,info) else call b%free() end if - + end subroutine psb_c_cp_to_l @@ -2603,10 +2636,10 @@ end subroutine psb_c_cp_to_l ! -subroutine psb_lc_set_lnrows(m,a) +subroutine psb_lc_set_lnrows(m,a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_lnrows use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2614,7 +2647,7 @@ subroutine psb_lc_set_lnrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2632,10 +2665,10 @@ subroutine psb_lc_set_lnrows(m,a) end subroutine psb_lc_set_lnrows #if defined(IPK4) && defined(LPK8) -subroutine psb_lc_set_inrows(m,a) +subroutine psb_lc_set_inrows(m,a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_inrows use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2643,7 +2676,7 @@ subroutine psb_lc_set_inrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2661,10 +2694,10 @@ subroutine psb_lc_set_inrows(m,a) end subroutine psb_lc_set_inrows #endif -subroutine psb_lc_set_lncols(n,a) +subroutine psb_lc_set_lncols(n,a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_lncols use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2672,7 +2705,7 @@ subroutine psb_lc_set_lncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2689,10 +2722,10 @@ subroutine psb_lc_set_lncols(n,a) end subroutine psb_lc_set_lncols #if defined(IPK4) && defined(LPK8) -subroutine psb_lc_set_incols(n,a) +subroutine psb_lc_set_incols(n,a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_incols use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2700,7 +2733,7 @@ subroutine psb_lc_set_incols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2719,16 +2752,16 @@ end subroutine psb_lc_set_incols #endif ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_lc_set_dupl(n,a) +subroutine psb_lc_set_dupl(n,a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_dupl use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2736,7 +2769,7 @@ subroutine psb_lc_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2758,17 +2791,17 @@ end subroutine psb_lc_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_lc_set_null(a) +subroutine psb_lc_set_null(a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_null use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2786,17 +2819,17 @@ subroutine psb_lc_set_null(a) end subroutine psb_lc_set_null -subroutine psb_lc_set_bld(a) +subroutine psb_lc_set_bld(a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_bld use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2815,17 +2848,17 @@ subroutine psb_lc_set_bld(a) end subroutine psb_lc_set_bld -subroutine psb_lc_set_upd(a) +subroutine psb_lc_set_upd(a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_upd use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2845,17 +2878,17 @@ subroutine psb_lc_set_upd(a) end subroutine psb_lc_set_upd -subroutine psb_lc_set_asb(a) +subroutine psb_lc_set_asb(a) use psb_c_mat_mod, psb_protect_name => psb_lc_set_asb use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2874,10 +2907,10 @@ subroutine psb_lc_set_asb(a) end subroutine psb_lc_set_asb -subroutine psb_lc_set_sorted(a,val) +subroutine psb_lc_set_sorted(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_sorted use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2885,7 +2918,7 @@ subroutine psb_lc_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2904,10 +2937,10 @@ subroutine psb_lc_set_sorted(a,val) end subroutine psb_lc_set_sorted -subroutine psb_lc_set_triangle(a,val) +subroutine psb_lc_set_triangle(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_triangle use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2915,7 +2948,7 @@ subroutine psb_lc_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2933,10 +2966,10 @@ subroutine psb_lc_set_triangle(a,val) end subroutine psb_lc_set_triangle -subroutine psb_lc_set_symmetric(a,val) +subroutine psb_lc_set_symmetric(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2944,7 +2977,7 @@ subroutine psb_lc_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2962,10 +2995,10 @@ subroutine psb_lc_set_symmetric(a,val) end subroutine psb_lc_set_symmetric -subroutine psb_lc_set_unit(a,val) +subroutine psb_lc_set_unit(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_unit use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2973,7 +3006,7 @@ subroutine psb_lc_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2992,10 +3025,10 @@ subroutine psb_lc_set_unit(a,val) end subroutine psb_lc_set_unit -subroutine psb_lc_set_lower(a,val) +subroutine psb_lc_set_lower(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_lower use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3003,7 +3036,7 @@ subroutine psb_lc_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3022,10 +3055,10 @@ subroutine psb_lc_set_lower(a,val) end subroutine psb_lc_set_lower -subroutine psb_lc_set_upper(a,val) +subroutine psb_lc_set_upper(a,val) use psb_c_mat_mod, psb_protect_name => psb_lc_set_upper use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3033,7 +3066,7 @@ subroutine psb_lc_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3063,16 +3096,16 @@ end subroutine psb_lc_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_lc_sparse_print(iout,a,iv,head,ivr,ivc) use psb_c_mat_mod, psb_protect_name => psb_lc_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lcspmat_type), intent(in) :: a + class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3083,7 +3116,7 @@ subroutine psb_lc_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3103,10 +3136,10 @@ end subroutine psb_lc_sparse_print subroutine psb_lc_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_c_mat_mod, psb_protect_name => psb_lc_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_lcspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_lcspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3118,24 +3151,24 @@ subroutine psb_lc_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -3154,13 +3187,13 @@ end subroutine psb_lc_n_sparse_print subroutine psb_lc_get_neigh(a,idx,neigh,n,info,lev) use psb_c_mat_mod, psb_protect_name => psb_lc_get_neigh use psb_error_mod - implicit none - class(psb_lcspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + implicit none + class(psb_lcspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -3168,7 +3201,7 @@ subroutine psb_lc_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3189,17 +3222,17 @@ end subroutine psb_lc_get_neigh -subroutine psb_lc_csall(nr,nc,a,info,nz) +subroutine psb_lc_csall(nr,nc,a,info,nz) use psb_c_mat_mod, psb_protect_name => psb_lc_csall use psb_c_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -3209,13 +3242,13 @@ subroutine psb_lc_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_lc_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -3226,10 +3259,10 @@ subroutine psb_lc_csall(nr,nc,a,info,nz) end subroutine psb_lc_csall -subroutine psb_lc_reallocate_nz(nz,a) +subroutine psb_lc_reallocate_nz(nz,a) use psb_c_mat_mod, psb_protect_name => psb_lc_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3237,7 +3270,7 @@ subroutine psb_lc_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3254,31 +3287,31 @@ subroutine psb_lc_reallocate_nz(nz,a) end subroutine psb_lc_reallocate_nz -subroutine psb_lc_free(a) +subroutine psb_lc_free(a) use psb_c_mat_mod, psb_protect_name => psb_lc_free use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_lc_free -subroutine psb_lc_trim(a) +subroutine psb_lc_trim(a) use psb_c_mat_mod, psb_protect_name => psb_lc_trim use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3296,11 +3329,11 @@ end subroutine psb_lc_trim -subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_mat_mod, psb_protect_name => psb_lc_csput_a use psb_c_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -3312,15 +3345,15 @@ subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3332,13 +3365,13 @@ subroutine psb_lc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_lc_csput_a -subroutine psb_lc_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lc_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_c_mat_mod, psb_protect_name => psb_lc_csput_v use psb_c_base_mat_mod use psb_c_vect_mod, only : psb_c_vect_type use psb_l_vect_mod, only : psb_l_vect_type use psb_error_mod - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a type(psb_c_vect_type), intent(inout) :: val type(psb_l_vect_type), intent(inout) :: ia, ja @@ -3351,19 +3384,19 @@ subroutine psb_lc_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3378,7 +3411,7 @@ end subroutine psb_lc_csput_v subroutine psb_lc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -3401,7 +3434,7 @@ subroutine psb_lc_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3410,7 +3443,7 @@ subroutine psb_lc_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3425,7 +3458,7 @@ end subroutine psb_lc_csgetptn subroutine psb_lc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -3449,7 +3482,7 @@ subroutine psb_lc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3458,7 +3491,7 @@ subroutine psb_lc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3475,7 +3508,7 @@ end subroutine psb_lc_csgetrow subroutine psb_lc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -3500,31 +3533,31 @@ subroutine psb_lc_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3543,7 +3576,7 @@ subroutine psb_lc_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_c_base_mat_mod use psb_c_mat_mod, psb_protect_name => psb_lc_tril - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -3558,22 +3591,22 @@ subroutine psb_lc_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3582,7 +3615,7 @@ subroutine psb_lc_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3600,7 +3633,7 @@ subroutine psb_lc_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_c_base_mat_mod use psb_c_mat_mod, psb_protect_name => psb_lc_triu - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -3616,24 +3649,24 @@ subroutine psb_lc_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3642,7 +3675,7 @@ subroutine psb_lc_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3657,7 +3690,7 @@ end subroutine psb_lc_triu subroutine psb_lc_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -3677,24 +3710,24 @@ subroutine psb_lc_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -3708,7 +3741,7 @@ end subroutine psb_lc_csclip subroutine psb_lc_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -3727,7 +3760,7 @@ subroutine psb_lc_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3735,7 +3768,7 @@ subroutine psb_lc_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3754,7 +3787,7 @@ subroutine psb_lc_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cscnv - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3771,7 +3804,7 @@ subroutine psb_lc_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3783,38 +3816,38 @@ subroutine psb_lc_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_lc_csr_sparse_mat :: altmp, stat=info) + allocate(psb_lc_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_lc_coo_sparse_mat :: altmp, stat=info) + allocate(psb_lc_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_lc_csc_sparse_mat :: altmp, stat=info) + allocate(psb_lc_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -3832,7 +3865,7 @@ subroutine psb_lc_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%asb() + call b%asb() call psb_erractionrestore(err_act) return @@ -3849,7 +3882,7 @@ subroutine psb_lc_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cscnv_ip - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3866,15 +3899,15 @@ subroutine psb_lc_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -3884,29 +3917,29 @@ subroutine psb_lc_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_lc_csr_sparse_mat :: altmp, stat=info) + allocate(psb_lc_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_lc_coo_sparse_mat :: altmp, stat=info) + allocate(psb_lc_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_lc_csc_sparse_mat :: altmp, stat=info) + allocate(psb_lc_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -3924,7 +3957,7 @@ subroutine psb_lc_cscnv_ip(a,info,type,mold,dupl) end if call move_alloc(altmp,a%a) - call a%set_asb() + call a%set_asb() call a%trim() call psb_erractionrestore(err_act) return @@ -3942,7 +3975,7 @@ subroutine psb_lc_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cscnv_base - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -3957,19 +3990,19 @@ subroutine psb_lc_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -3991,7 +4024,7 @@ end subroutine psb_lc_cscnv_base subroutine psb_lc_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -4010,15 +4043,15 @@ subroutine psb_lc_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -4027,8 +4060,8 @@ subroutine psb_lc_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4051,7 +4084,7 @@ end subroutine psb_lc_clip_d subroutine psb_lc_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_c_base_mat_mod @@ -4069,13 +4102,13 @@ subroutine psb_lc_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -4086,8 +4119,8 @@ subroutine psb_lc_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4112,7 +4145,7 @@ subroutine psb_lc_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_from - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4130,7 +4163,7 @@ subroutine psb_lc_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_from - implicit none + implicit none class(psb_lcspmat_type), intent(out) :: a class(psb_lc_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -4139,7 +4172,7 @@ subroutine psb_lc_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -4148,8 +4181,8 @@ subroutine psb_lc_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4165,11 +4198,11 @@ subroutine psb_lc_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_to - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -4180,7 +4213,7 @@ subroutine psb_lc_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_to - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lc_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4197,14 +4230,14 @@ subroutine psb_lc_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_lc_mold subroutine psb_lcspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lcspmat_type_move - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4225,7 +4258,7 @@ subroutine psb_lcspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lcspmat_clone - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_lcspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4237,10 +4270,10 @@ subroutine psb_lcspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4257,7 +4290,7 @@ subroutine psb_lc_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_transp_1mat - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4266,7 +4299,7 @@ subroutine psb_lc_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4290,7 +4323,7 @@ subroutine psb_lc_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_transp_2mat - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b @@ -4300,18 +4333,18 @@ subroutine psb_lc_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -4328,7 +4361,7 @@ subroutine psb_lc_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_transc_1mat - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4337,7 +4370,7 @@ subroutine psb_lc_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4361,7 +4394,7 @@ subroutine psb_lc_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_c_mat_mod, psb_protect_name => psb_lc_transc_2mat - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_lcspmat_type), intent(inout) :: b @@ -4371,18 +4404,18 @@ subroutine psb_lc_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -4398,9 +4431,9 @@ end subroutine psb_lc_transc_2mat subroutine psb_lc_asb(a,mold) use psb_c_mat_mod, psb_protect_name => psb_lc_asb use psb_error_mod - implicit none + implicit none - class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: a class(psb_lc_base_sparse_mat), optional, intent(in) :: mold class(psb_lc_base_sparse_mat), allocatable :: tmp class(psb_lc_base_sparse_mat), pointer :: mld @@ -4408,15 +4441,15 @@ subroutine psb_lc_asb(a,mold) character(len=20) :: name='lc_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -4427,7 +4460,7 @@ subroutine psb_lc_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -4442,21 +4475,21 @@ end subroutine psb_lc_asb subroutine psb_lc_reinit(a,clear) use psb_c_mat_mod, psb_protect_name => psb_lc_reinit use psb_error_mod - implicit none + implicit none - class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -4481,7 +4514,7 @@ function psb_lc_get_diag(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_lc_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4492,14 +4525,14 @@ function psb_lc_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -4520,7 +4553,7 @@ subroutine psb_lc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_scal - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4532,7 +4565,7 @@ subroutine psb_lc_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4555,7 +4588,7 @@ subroutine psb_lc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_scals - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a complex(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4566,7 +4599,7 @@ subroutine psb_lc_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4588,7 +4621,7 @@ function psb_lc_maxval(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_lc_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4599,7 +4632,7 @@ function psb_lc_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4619,7 +4652,7 @@ function psb_lc_csnmi(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_lc_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4629,7 +4662,7 @@ function psb_lc_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4649,7 +4682,7 @@ function psb_lc_csnm1(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_lc_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4659,7 +4692,7 @@ function psb_lc_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4680,7 +4713,7 @@ function psb_lc_rowsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_lc_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4691,7 +4724,7 @@ function psb_lc_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4713,7 +4746,7 @@ function psb_lc_arwsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_lc_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4724,7 +4757,7 @@ function psb_lc_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4747,7 +4780,7 @@ function psb_lc_colsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_lc_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a complex(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4758,7 +4791,7 @@ function psb_lc_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4781,7 +4814,7 @@ function psb_lc_aclsum(a,info) result(d) use psb_c_mat_mod, psb_protect_name => psb_lc_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4792,7 +4825,7 @@ function psb_lc_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4815,22 +4848,22 @@ subroutine psb_lc_mv_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_from_ib - implicit none - + implicit none + class(psb_lcspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_lc_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_ifmt(b,info) - + end subroutine psb_lc_mv_from_ib - + subroutine psb_lc_cp_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_from_ib - implicit none - + implicit none + class(psb_lcspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4844,30 +4877,30 @@ subroutine psb_lc_mv_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_to_ib - implicit none - + implicit none + class(psb_lcspmat_type), intent(inout) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_ifmt(b,info) call a%free() end if - + end subroutine psb_lc_mv_to_ib subroutine psb_lc_cp_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_to_ib - implicit none + implicit none class(psb_lcspmat_type), intent(in) :: a class(psb_c_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -4880,7 +4913,7 @@ subroutine psb_lc_mv_from_i(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_from_i - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -4892,20 +4925,20 @@ subroutine psb_lc_mv_from_i(a,b) call a%free() end if call b%free() - + end subroutine psb_lc_mv_from_i - + subroutine psb_lc_cp_from_i(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_from_i - implicit none + implicit none class(psb_lcspmat_type), intent(out) :: a class(psb_cspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_lc_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_ifmt(b%a,info) @@ -4918,12 +4951,12 @@ subroutine psb_lc_mv_to_i(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_mv_to_i - implicit none + implicit none class(psb_lcspmat_type), intent(inout) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_c_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_ifmt(b%a,info) @@ -4931,28 +4964,24 @@ subroutine psb_lc_mv_to_i(a,b) call b%free() end if call a%free() - + end subroutine psb_lc_mv_to_i subroutine psb_lc_cp_to_i(a,b) use psb_error_mod use psb_const_mod use psb_c_mat_mod, psb_protect_name => psb_lc_cp_to_i - implicit none - + implicit none + class(psb_lcspmat_type), intent(in) :: a class(psb_cspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_c_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_ifmt(b%a,info) else call b%free() end if - + end subroutine psb_lc_cp_to_i - - - - diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index 304114869..cb96bebe8 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == ================================== ! ! @@ -45,7 +45,7 @@ subroutine psb_d_base_cp_to_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -69,7 +69,7 @@ subroutine psb_d_base_cp_from_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -94,7 +94,7 @@ subroutine psb_d_base_cp_to_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -103,10 +103,10 @@ subroutine psb_d_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -117,12 +117,12 @@ subroutine psb_d_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -136,7 +136,7 @@ subroutine psb_d_base_cp_from_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -148,10 +148,10 @@ subroutine psb_d_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_d_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -160,8 +160,8 @@ subroutine psb_d_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -181,7 +181,7 @@ subroutine psb_d_base_mv_to_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -193,17 +193,17 @@ subroutine psb_d_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -218,7 +218,7 @@ subroutine psb_d_base_mv_from_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -229,17 +229,17 @@ subroutine psb_d_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -255,7 +255,7 @@ subroutine psb_d_base_mv_to_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -267,7 +267,7 @@ subroutine psb_d_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_d_coo_sparse_mat) @@ -285,7 +285,7 @@ subroutine psb_d_base_mv_from_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -297,7 +297,7 @@ subroutine psb_d_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_d_coo_sparse_mat) @@ -313,23 +313,23 @@ end subroutine psb_d_base_mv_from_fmt subroutine psb_d_base_clean_zeros(a, info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_clean_zeros - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_d_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_d_base_clean_zeros -subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csput_a - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -350,11 +350,11 @@ subroutine psb_d_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_d_base_csput_a -subroutine psb_d_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csput_v use psb_d_base_vect_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -366,24 +366,24 @@ subroutine psb_d_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() if (ia%is_dev()) call ia%sync() if (ja%is_dev()) call ja%sync() - call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -395,7 +395,7 @@ end subroutine psb_d_base_csput_v subroutine psb_d_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csgetrow @@ -433,7 +433,7 @@ end subroutine psb_d_base_csgetrow ! subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csgetblk @@ -456,22 +456,22 @@ subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -486,19 +486,19 @@ subroutine psb_d_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'd_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -526,7 +526,7 @@ end subroutine psb_d_base_csgetblk subroutine psb_d_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csclip @@ -547,46 +547,46 @@ subroutine psb_d_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -615,7 +615,7 @@ end subroutine psb_d_base_csclip ! subroutine psb_d_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_tril @@ -627,8 +627,8 @@ subroutine psb_d_base_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_d_coo_sparse_mat), optional, intent(out) :: u - - integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk + + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) real(psb_dpk_), allocatable :: val(:) @@ -640,51 +640,51 @@ subroutine psb_d_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -716,7 +716,7 @@ subroutine psb_d_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -724,8 +724,8 @@ subroutine psb_d_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -738,7 +738,7 @@ subroutine psb_d_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -747,8 +747,8 @@ subroutine psb_d_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -766,7 +766,7 @@ end subroutine psb_d_base_tril subroutine psb_d_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_triu @@ -778,7 +778,7 @@ subroutine psb_d_base_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_d_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) @@ -791,57 +791,57 @@ subroutine psb_d_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -874,13 +874,13 @@ subroutine psb_d_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -888,7 +888,7 @@ subroutine psb_d_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -897,8 +897,8 @@ subroutine psb_d_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -919,45 +919,45 @@ end subroutine psb_d_base_triu subroutine psb_d_base_clone(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_d_base_clone subroutine psb_d_base_make_nonunit(a) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat) :: tmp - - integer(psb_ipk_) :: i, j, m, n, nz, mnm, info - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + integer(psb_ipk_) :: i, j, m, n, nz, mnm, info + + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -974,10 +974,10 @@ subroutine psb_d_base_make_nonunit(a) end subroutine psb_d_base_make_nonunit -subroutine psb_d_base_mold(a,b,info) +subroutine psb_d_base_mold(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mold use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -999,7 +999,7 @@ end subroutine psb_d_base_mold subroutine psb_d_base_transp_2mat(a,b) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1019,11 +1019,11 @@ subroutine psb_d_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1035,7 +1035,7 @@ end subroutine psb_d_base_transp_2mat subroutine psb_d_base_transc_2mat(a,b) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_transc_2mat - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1055,11 +1055,11 @@ subroutine psb_d_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1071,7 +1071,7 @@ end subroutine psb_d_base_transc_2mat subroutine psb_d_base_transp_1mat(a) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a @@ -1085,12 +1085,12 @@ subroutine psb_d_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1102,7 +1102,7 @@ end subroutine psb_d_base_transp_1mat subroutine psb_d_base_transc_1mat(a) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_transc_1mat - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a @@ -1116,12 +1116,12 @@ subroutine psb_d_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1145,11 +1145,11 @@ end subroutine psb_d_base_transc_1mat ! ! == ================================== -subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csmm use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1172,10 +1172,10 @@ subroutine psb_d_base_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_d_base_csmm -subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csmv use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1199,10 +1199,10 @@ subroutine psb_d_base_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_d_base_csmv -subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_inner_cssm use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1225,10 +1225,10 @@ subroutine psb_d_base_inner_cssm(alpha,a,x,beta,y,info,trans) end subroutine psb_d_base_inner_cssm -subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_inner_cssv use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1251,11 +1251,11 @@ subroutine psb_d_base_inner_cssv(alpha,a,x,beta,y,info,trans) end subroutine psb_d_base_inner_cssv -subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cssm use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1271,7 +1271,7 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1291,42 +1291,42 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) then + allocate(tmp(nac,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) then do i=1, nac - tmp(i,1:nc) = d(i)*x(i,1:nc) + tmp(i,1:nc) = d(i)*x(i,1:nc) end do end if if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ @@ -1334,21 +1334,21 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - allocate(tmp(nar,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(done,x,dzero,tmp,info,trans) - if (info == psb_success_)then + if (info == psb_success_)then do i=1, nar - tmp(i,1:nc) = d(i)*tmp(i,1:nc) + tmp(i,1:nc) = d(i)*tmp(i,1:nc) end do end if if (info == psb_success_)& & call psb_geaxpby(nar,nc,alpha,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if @@ -1357,13 +1357,13 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_cssm') goto 9999 end if @@ -1378,11 +1378,11 @@ subroutine psb_d_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_d_base_cssm -subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cssv use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1418,58 +1418,58 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call inner_vscal(nac,d,x,tmp) + allocate(tmp(nac),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call inner_vscal(nac,d,x,tmp) if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == dzero) then + if (beta == dzero) then call a%inner_spsm(alpha,x,dzero,y,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,y) else - allocate(tmp(nar),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,dzero,tmp,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,tmp) if (info == psb_success_)& & call psb_geaxpby(nar,done,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1479,13 +1479,13 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1500,37 +1500,37 @@ subroutine psb_d_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) return contains subroutine inner_vscal(n,d,x,y) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n real(psb_dpk_), intent(in) :: d(*),x(*) real(psb_dpk_), intent(out) :: y(*) integer(psb_ipk_) :: i do i=1,n - y(i) = d(i)*x(i) + y(i) = d(i)*x(i) end do end subroutine inner_vscal subroutine inner_vscal1(n,d,x) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n real(psb_dpk_), intent(in) :: d(*) real(psb_dpk_), intent(inout) :: x(*) integer(psb_ipk_) :: i do i=1,n - x(i) = d(i)*x(i) + x(i) = d(i)*x(i) end do end subroutine inner_vscal1 end subroutine psb_d_base_cssv -subroutine psb_d_base_scals(d,a,info) +subroutine psb_d_base_scals(d,a,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_scals use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1550,12 +1550,33 @@ subroutine psb_d_base_scals(d,a,info) end subroutine psb_d_base_scals +subroutine psb_d_base_scalplusidentity(d,a,info) + use psb_d_base_mat_mod, psb_protect_name => psb_d_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_d_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='d_scalplusidentity' + logical, parameter :: debug=.false. -subroutine psb_d_base_scal(d,a,info,side) + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_d_base_scalplusidentity + +subroutine psb_d_base_scal(d,a,info,side) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_scal use psb_error_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1581,7 +1602,7 @@ function psb_d_base_maxval(a) result(res) use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_maxval - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1608,27 +1629,27 @@ function psb_d_base_csnmi(a) result(res) use psb_realloc_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csnmi - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1646,27 +1667,27 @@ function psb_d_base_csnm1(a) result(res) use psb_realloc_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_csnm1 - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1678,7 +1699,7 @@ function psb_d_base_csnm1(a) result(res) end function psb_d_base_csnm1 -subroutine psb_d_base_rowsum(d,a) +subroutine psb_d_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_rowsum @@ -1700,7 +1721,7 @@ subroutine psb_d_base_rowsum(d,a) end subroutine psb_d_base_rowsum -subroutine psb_d_base_arwsum(d,a) +subroutine psb_d_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_arwsum @@ -1722,7 +1743,7 @@ subroutine psb_d_base_arwsum(d,a) end subroutine psb_d_base_arwsum -subroutine psb_d_base_colsum(d,a) +subroutine psb_d_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_colsum @@ -1744,7 +1765,7 @@ subroutine psb_d_base_colsum(d,a) end subroutine psb_d_base_colsum -subroutine psb_d_base_aclsum(d,a) +subroutine psb_d_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_aclsum @@ -1766,12 +1787,12 @@ subroutine psb_d_base_aclsum(d,a) end subroutine psb_d_base_aclsum -subroutine psb_d_base_get_diag(a,d,info) +subroutine psb_d_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_get_diag - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1797,9 +1818,9 @@ end subroutine psb_d_base_get_diag ! ! ! Computational routines for d_VECT -! variables. If the actual data type is -! a "normal" one, these are sufficient. -! +! variables. If the actual data type is +! a "normal" one, these are sufficient. +! ! ! ! @@ -1807,11 +1828,11 @@ end subroutine psb_d_base_get_diag -subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_base_vect_mv - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x @@ -1820,7 +1841,7 @@ subroutine psb_d_base_vect_mv(alpha,a,x,beta,y,info,trans) character, optional, intent(in) :: trans ! For the time being we just throw everything back - ! onto the normal routines. + ! onto the normal routines. call x%sync() call y%sync() call a%spmm(alpha,x%v,beta,y%v,info,trans) @@ -1832,7 +1853,7 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_d_base_vect_mod use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x,y @@ -1869,54 +1890,54 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - call x%sync() + call x%sync() call y%sync() - if (present(d)) then + if (present(d)) then call d%sync() - if (present(scale)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (d%get_nrows() < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call tmpv%mlt(done,d%v(1:nac),x,dzero,info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call tmpv%mlt(done,d%v(1:nac),x,dzero,info) if (info == psb_success_)& & call a%inner_spsm(alpha,tmpv,beta,y,info,trans) - if (info == psb_success_) then + if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (d%get_nrows() < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == dzero) then + if (beta == dzero) then call a%inner_spsm(alpha,x,dzero,y,info,trans) if (info == psb_success_) call y%mlt(d%v(1:nar),info) else allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,dzero,tmpv,info,trans) @@ -1925,7 +1946,7 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) & call y%axpby(nar,done,tmpv,beta,info) if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1935,13 +1956,13 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1958,12 +1979,12 @@ subroutine psb_d_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_d_base_vect_cssv -subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_inner_vect_sv use psb_error_mod use psb_string_mod use psb_d_base_vect_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta class(psb_d_base_vect_type), intent(inout) :: x, y @@ -1977,10 +1998,10 @@ subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) + call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1988,7 +2009,7 @@ subroutine psb_d_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) call psb_erractionrestore(err_act) return - + 9999 call psb_error_handler(err_act) return @@ -2000,7 +2021,7 @@ subroutine psb_d_base_cp_to_lcoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2009,22 +2030,22 @@ subroutine psb_d_base_cp_to_lcoo(a,b,info) character(len=20) :: name='to_lcoo' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_lcoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2038,7 +2059,7 @@ subroutine psb_d_base_cp_from_lcoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2047,22 +2068,22 @@ subroutine psb_d_base_cp_from_lcoo(a,b,info) character(len=20) :: name='from_coo' logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_lcoo(b,info) + call tmp%cp_from_lcoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2076,7 +2097,7 @@ subroutine psb_d_base_cp_to_lfmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2086,10 +2107,10 @@ subroutine psb_d_base_cp_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: icoo type(psb_ld_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2102,12 +2123,12 @@ subroutine psb_d_base_cp_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2121,7 +2142,7 @@ subroutine psb_d_base_cp_from_lfmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cp_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2133,10 +2154,10 @@ subroutine psb_d_base_cp_from_lfmt(a,b,info) type(psb_ld_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ld_coo_sparse_mat) call a%cp_from_lcoo(b,info) @@ -2146,8 +2167,8 @@ subroutine psb_d_base_cp_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2166,7 +2187,7 @@ subroutine psb_d_base_mv_to_lcoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2178,17 +2199,17 @@ subroutine psb_d_base_mv_to_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2202,7 +2223,7 @@ subroutine psb_d_base_mv_from_lcoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2213,17 +2234,17 @@ subroutine psb_d_base_mv_from_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2238,7 +2259,7 @@ subroutine psb_d_base_mv_to_lfmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2248,10 +2269,10 @@ subroutine psb_d_base_mv_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: icoo type(psb_ld_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2264,12 +2285,12 @@ subroutine psb_d_base_mv_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2283,7 +2304,7 @@ subroutine psb_d_base_mv_from_lfmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_base_mv_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_d_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2295,10 +2316,10 @@ subroutine psb_d_base_mv_from_lfmt(a,b,info) type(psb_ld_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ld_coo_sparse_mat) call a%mv_from_lcoo(b,info) @@ -2308,8 +2329,8 @@ subroutine psb_d_base_mv_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2343,7 +2364,7 @@ subroutine psb_ld_base_cp_to_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2367,7 +2388,7 @@ subroutine psb_ld_base_cp_from_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2392,7 +2413,7 @@ subroutine psb_ld_base_cp_to_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2401,10 +2422,10 @@ subroutine psb_ld_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_ld_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2415,12 +2436,12 @@ subroutine psb_ld_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2434,7 +2455,7 @@ subroutine psb_ld_base_cp_from_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2446,10 +2467,10 @@ subroutine psb_ld_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ld_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -2458,8 +2479,8 @@ subroutine psb_ld_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2479,7 +2500,7 @@ subroutine psb_ld_base_mv_to_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2491,17 +2512,17 @@ subroutine psb_ld_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2516,7 +2537,7 @@ subroutine psb_ld_base_mv_from_coo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2527,17 +2548,17 @@ subroutine psb_ld_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2552,7 +2573,7 @@ subroutine psb_ld_base_mv_to_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2564,7 +2585,7 @@ subroutine psb_ld_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_ld_coo_sparse_mat) @@ -2582,7 +2603,7 @@ subroutine psb_ld_base_mv_from_fmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2594,7 +2615,7 @@ subroutine psb_ld_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_ld_coo_sparse_mat) @@ -2610,23 +2631,23 @@ end subroutine psb_ld_base_mv_from_fmt subroutine psb_ld_base_clean_zeros(a, info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_clean_zeros - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_ld_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_ld_base_clean_zeros -subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csput_a - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -2647,11 +2668,11 @@ subroutine psb_ld_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_ld_base_csput_a -subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csput_v use psb_d_base_vect_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2664,10 +2685,10 @@ subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() @@ -2677,11 +2698,11 @@ subroutine psb_ld_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2693,7 +2714,7 @@ end subroutine psb_ld_base_csput_v subroutine psb_ld_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csgetrow @@ -2733,7 +2754,7 @@ end subroutine psb_ld_base_csgetrow ! subroutine psb_ld_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csgetblk @@ -2757,22 +2778,22 @@ subroutine psb_ld_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -2787,19 +2808,19 @@ subroutine psb_ld_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'ld_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -2827,7 +2848,7 @@ end subroutine psb_ld_base_csgetblk subroutine psb_ld_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csclip @@ -2849,46 +2870,46 @@ subroutine psb_ld_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -2917,7 +2938,7 @@ end subroutine psb_ld_base_csclip ! subroutine psb_ld_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_tril @@ -2929,9 +2950,9 @@ subroutine psb_ld_base_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ld_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act - integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk + integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_lpk_), allocatable :: ia(:), ja(:) real(psb_dpk_), allocatable :: val(:) @@ -2943,51 +2964,51 @@ subroutine psb_ld_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -3019,7 +3040,7 @@ subroutine psb_ld_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -3027,8 +3048,8 @@ subroutine psb_ld_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -3041,7 +3062,7 @@ subroutine psb_ld_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -3050,8 +3071,8 @@ subroutine psb_ld_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -3069,7 +3090,7 @@ end subroutine psb_ld_base_tril subroutine psb_ld_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_triu @@ -3081,7 +3102,7 @@ subroutine psb_ld_base_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ld_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -3095,57 +3116,57 @@ subroutine psb_ld_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -3178,13 +3199,13 @@ subroutine psb_ld_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -3192,7 +3213,7 @@ subroutine psb_ld_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -3201,8 +3222,8 @@ subroutine psb_ld_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -3223,46 +3244,46 @@ end subroutine psb_ld_base_triu subroutine psb_ld_base_clone(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_ld_base_clone subroutine psb_ld_base_make_nonunit(a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a type(psb_ld_coo_sparse_mat) :: tmp - + integer(psb_ipk_) :: info integer(psb_lpk_) :: i, j, m, n, nz, mnm - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -3279,10 +3300,10 @@ subroutine psb_ld_base_make_nonunit(a) end subroutine psb_ld_base_make_nonunit -subroutine psb_ld_base_mold(a,b,info) +subroutine psb_ld_base_mold(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mold use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3304,7 +3325,7 @@ end subroutine psb_ld_base_mold subroutine psb_ld_base_transp_2mat(a,b) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3324,11 +3345,11 @@ subroutine psb_ld_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3340,7 +3361,7 @@ end subroutine psb_ld_base_transp_2mat subroutine psb_ld_base_transc_2mat(a,b) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_transc_2mat - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3360,11 +3381,11 @@ subroutine psb_ld_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3376,7 +3397,7 @@ end subroutine psb_ld_base_transc_2mat subroutine psb_ld_base_transp_1mat(a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a @@ -3390,12 +3411,12 @@ subroutine psb_ld_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3407,7 +3428,7 @@ end subroutine psb_ld_base_transp_1mat subroutine psb_ld_base_transc_1mat(a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_transc_1mat - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a @@ -3421,12 +3442,12 @@ subroutine psb_ld_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3436,10 +3457,10 @@ subroutine psb_ld_base_transc_1mat(a) end subroutine psb_ld_base_transc_1mat -subroutine psb_ld_base_scals(d,a,info) +subroutine psb_ld_base_scals(d,a,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_scals use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3459,10 +3480,10 @@ subroutine psb_ld_base_scals(d,a,info) end subroutine psb_ld_base_scals -subroutine psb_ld_base_scal(d,a,info,side) +subroutine psb_ld_base_scal(d,a,info,side) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_scal use psb_error_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3488,7 +3509,7 @@ function psb_ld_base_maxval(a) result(res) use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_maxval - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3514,27 +3535,27 @@ function psb_ld_base_csnmi(a) result(res) use psb_realloc_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csnmi - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3551,27 +3572,27 @@ function psb_ld_base_csnm1(a) result(res) use psb_realloc_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_csnm1 - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3582,7 +3603,7 @@ function psb_ld_base_csnm1(a) result(res) end function psb_ld_base_csnm1 -subroutine psb_ld_base_rowsum(d,a) +subroutine psb_ld_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_rowsum @@ -3604,7 +3625,7 @@ subroutine psb_ld_base_rowsum(d,a) end subroutine psb_ld_base_rowsum -subroutine psb_ld_base_arwsum(d,a) +subroutine psb_ld_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_arwsum @@ -3626,7 +3647,7 @@ subroutine psb_ld_base_arwsum(d,a) end subroutine psb_ld_base_arwsum -subroutine psb_ld_base_colsum(d,a) +subroutine psb_ld_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_colsum @@ -3648,7 +3669,7 @@ subroutine psb_ld_base_colsum(d,a) end subroutine psb_ld_base_colsum -subroutine psb_ld_base_aclsum(d,a) +subroutine psb_ld_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_aclsum @@ -3670,12 +3691,12 @@ subroutine psb_ld_base_aclsum(d,a) end subroutine psb_ld_base_aclsum -subroutine psb_ld_base_get_diag(a,d,info) +subroutine psb_ld_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_get_diag - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3701,7 +3722,7 @@ subroutine psb_ld_base_cp_to_icoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3710,22 +3731,22 @@ subroutine psb_ld_base_cp_to_icoo(a,b,info) character(len=20) :: name='to_coo' logical, parameter :: debug=.false. type(psb_ld_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_icoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3739,7 +3760,7 @@ subroutine psb_ld_base_cp_from_icoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3748,22 +3769,22 @@ subroutine psb_ld_base_cp_from_icoo(a,b,info) character(len=20) :: name='from_icoo' logical, parameter :: debug=.false. type(psb_ld_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_icoo(b,info) + call tmp%cp_from_icoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3778,7 +3799,7 @@ subroutine psb_ld_base_cp_to_ifmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3788,10 +3809,10 @@ subroutine psb_ld_base_cp_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: icoo type(psb_ld_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3804,12 +3825,12 @@ subroutine psb_ld_base_cp_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3823,7 +3844,7 @@ subroutine psb_ld_base_cp_from_ifmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cp_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3835,10 +3856,10 @@ subroutine psb_ld_base_cp_from_ifmt(a,b,info) type(psb_ld_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_d_coo_sparse_mat) call a%cp_from_icoo(b,info) @@ -3848,8 +3869,8 @@ subroutine psb_ld_base_cp_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -3868,7 +3889,7 @@ subroutine psb_ld_base_mv_to_icoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3880,17 +3901,17 @@ subroutine psb_ld_base_mv_to_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -3905,7 +3926,7 @@ subroutine psb_ld_base_mv_from_icoo(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3916,17 +3937,17 @@ subroutine psb_ld_base_mv_from_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -3942,7 +3963,7 @@ subroutine psb_ld_base_mv_to_ifmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3952,10 +3973,10 @@ subroutine psb_ld_base_mv_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_d_coo_sparse_mat) :: icoo type(psb_ld_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3968,12 +3989,12 @@ subroutine psb_ld_base_mv_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3987,7 +4008,7 @@ subroutine psb_ld_base_mv_from_ifmt(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_mv_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ld_base_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3999,10 +4020,10 @@ subroutine psb_ld_base_mv_from_ifmt(a,b,info) type(psb_ld_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_d_coo_sparse_mat) call a%mv_from_icoo(b,info) @@ -4012,8 +4033,8 @@ subroutine psb_ld_base_mv_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -4026,5 +4047,3 @@ subroutine psb_ld_base_mv_from_ifmt(a,b,info) return end subroutine psb_ld_base_mv_from_ifmt - - diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index 1cd766e45..18c27a373 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! -subroutine psb_d_coo_get_diag(a,d,info) +! +! +subroutine psb_d_coo_get_diag(a,d,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -47,19 +47,19 @@ subroutine psb_d_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = done + if (a%is_unit()) then + d(1:mnm) = done else d(1:mnm) = dzero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -74,12 +74,12 @@ subroutine psb_d_coo_get_diag(a,d,info) end subroutine psb_d_coo_get_diag -subroutine psb_d_coo_scal(d,a,info,side) +subroutine psb_d_coo_scal(d,a,info,side) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -88,44 +88,44 @@ subroutine psb_d_coo_scal(d,a,info,side) integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -143,11 +143,11 @@ subroutine psb_d_coo_scal(d,a,info,side) end subroutine psb_d_coo_scal -subroutine psb_d_coo_scals(d,a,info) +subroutine psb_d_coo_scals(d,a,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -160,13 +160,14 @@ subroutine psb_d_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo + call a%set_host() call psb_erractionrestore(err_act) @@ -178,12 +179,52 @@ subroutine psb_d_coo_scals(d,a,info) end subroutine psb_d_coo_scals +subroutine psb_d_coo_scalplusidentity(d,a,info) + use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_d_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -subroutine psb_d_coo_reallocate_nz(nz,a) + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + done + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_d_coo_scalplusidentity + + +subroutine psb_d_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz_ @@ -197,7 +238,7 @@ subroutine psb_d_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -211,10 +252,10 @@ subroutine psb_d_coo_reallocate_nz(nz,a) end subroutine psb_d_coo_reallocate_nz -subroutine psb_d_coo_mold(a,b,info) +subroutine psb_d_coo_mold(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_mold use psb_error_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -223,16 +264,16 @@ subroutine psb_d_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_d_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -247,9 +288,9 @@ end subroutine psb_d_coo_mold subroutine psb_d_coo_reinit(a,clear) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_d_coo_sparse_mat), intent(inout) :: a + class(psb_d_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -261,17 +302,17 @@ subroutine psb_d_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_host() call a%set_upd() @@ -296,7 +337,7 @@ subroutine psb_d_coo_trim(a) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' @@ -310,7 +351,7 @@ subroutine psb_d_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -323,13 +364,13 @@ end subroutine psb_d_coo_trim subroutine psb_d_coo_clean_zeros(a, info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_clean_zeros - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -340,17 +381,17 @@ subroutine psb_d_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_d_coo_clean_zeros -subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -360,22 +401,22 @@ subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -383,7 +424,7 @@ subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(izero) @@ -395,7 +436,7 @@ subroutine psb_d_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -410,10 +451,10 @@ end subroutine psb_d_coo_allocate_mnnz subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_d_coo_sparse_mat), intent(in) :: a + class(psb_d_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -423,12 +464,12 @@ subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -442,30 +483,30 @@ subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -480,7 +521,7 @@ end subroutine psb_d_coo_print function psb_d_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_get_nz_row + use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_get_nz_row implicit none class(psb_d_coo_sparse_mat), intent(in) :: a @@ -489,39 +530,39 @@ function psb_d_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. ip = psb_bsrch(idx,nza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -529,12 +570,12 @@ function psb_d_coo_get_nz_row(idx,a) result(res) end function psb_d_coo_get_nz_row -subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_cssm - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -553,14 +594,14 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif if (a%is_dev()) call a%sync() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -585,7 +626,7 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) goto 9999 end if - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) nnz = a%get_nzeros() if (alpha == dzero) then @@ -601,15 +642,15 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == dzero) then + if (beta == dzero) then call inner_coosm(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & m,nc,nnz,a%ia,a%ja,a%val,& & x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -639,11 +680,11 @@ subroutine psb_d_coo_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosm(tra,ctra,lower,unit,sorted,nr,nc,nz,& - & ia,ja,val,x,ldx,y,ldy,info) - implicit none + & ia,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) @@ -661,7 +702,7 @@ contains end if - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if @@ -669,14 +710,14 @@ contains nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = dzero - do + do if (j > nnz) exit if (ia(j) > i) exit acc(1:nc) = acc(1:nc) + val(j)*y(ja(j),1:nc) @@ -684,14 +725,14 @@ contains end do y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc(1:nc) = dzero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j + 1 exit @@ -702,12 +743,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = dzero - do + do i=nr, 1, -1 + acc(1:nc) = dzero + do if (j < 1) exit if (ia(j) < i) exit acc(1:nc) = acc(1:nc) + val(j)*x(ja(j),1:nc) @@ -716,15 +757,15 @@ contains y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = dzero - do + do i=nr, 1, -1 + acc(1:nc) = dzero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j - 1 exit @@ -737,68 +778,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do @@ -806,68 +847,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / (val(j)) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / (val(j)) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j + 1 end do end do @@ -882,12 +923,12 @@ end subroutine psb_d_coo_cssm -subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_cssv - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -911,7 +952,7 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -931,7 +972,7 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) call psb_errpush(info,name,i_err=(/5_psb_ipk_,size(y,1,kind=psb_ipk_),m/)) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -951,20 +992,20 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) return end if - if (beta == dzero) then + if (beta == dzero) then call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,y,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if do i = 1, m y(i) = alpha*y(i) end do - else - allocate(tmp(m), stat=info) - if (info /= psb_success_) then + else + allocate(tmp(m), stat=info) + if (info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') goto 9999 @@ -973,7 +1014,7 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,tmp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if @@ -989,11 +1030,11 @@ subroutine psb_d_coo_cssv(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosv(tra,ctra,lower,unit,sorted,nr,nz,& - & ia,ja,val,x,y,info) - implicit none + & ia,ja,val,x,y,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(*) @@ -1004,21 +1045,21 @@ contains real(psb_dpk_) :: acc info = psb_success_ - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc = dzero - do + do if (j > nnz) exit if (ia(j) > i) exit acc = acc + val(j)*y(ja(j)) @@ -1026,14 +1067,14 @@ contains end do y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc = dzero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j + 1 exit @@ -1044,12 +1085,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc = dzero - do + do i=nr, 1, -1 + acc = dzero + do if (j < 1) exit if (ia(j) < i) exit acc = acc + val(j)*y(ja(j)) @@ -1058,15 +1099,15 @@ contains y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc = dzero - do + do i=nr, 1, -1 + acc = dzero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j - 1 exit @@ -1079,68 +1120,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc - j = j - 1 + y(jc) = y(jc) - val(j)*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do @@ -1148,68 +1189,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc - j = j - 1 + y(jc) = y(jc) - (val(j))*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /(val(j)) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /(val(j)) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j + 1 end do end do @@ -1223,12 +1264,12 @@ contains end subroutine psb_d_coo_cssv -subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_csmv - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1247,7 +1288,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1265,7 +1306,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1296,8 +1337,8 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == dzero) then do i = 1, min(m,n) y(i) = alpha*x(i) @@ -1306,7 +1347,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) y(i) = dzero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i) = beta*y(i) + alpha*x(i) end do do i = min(m,n)+1, m @@ -1328,28 +1369,28 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) end if - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = dzero - do - if (i>nnz) then + do + if (i>nnz) then y(ir) = y(ir) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir) = y(ir) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = dzero endif acc = acc + a%val(i) * x(a%ja(i)) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == done) then i = 1 @@ -1367,7 +1408,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - a%val(i)*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1377,7 +1418,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == done) then i = 1 @@ -1395,7 +1436,7 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - (a%val(i))*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1417,12 +1458,12 @@ subroutine psb_d_coo_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_d_coo_csmv -subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_csmm - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1441,7 +1482,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1460,7 +1501,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1500,8 +1541,8 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == dzero) then do i = 1, min(m,n) y(i,1:nc) = alpha*x(i,1:nc) @@ -1510,7 +1551,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) y(i,1:nc) = dzero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i,1:nc) = beta*y(i,1:nc) + alpha*x(i,1:nc) end do do i = min(m,n)+1, m @@ -1532,28 +1573,28 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) end if - if (.not.tra) then + if (.not.tra) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = dzero - do - if (i>nnz) then + do + if (i>nnz) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = dzero endif acc = acc + a%val(i) * x(a%ja(i),1:nc) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == done) then i = 1 @@ -1571,7 +1612,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - a%val(i)*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1581,7 +1622,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == done) then i = 1 @@ -1599,7 +1640,7 @@ subroutine psb_d_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - (a%val(i))*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1623,7 +1664,7 @@ end subroutine psb_d_coo_csmm function psb_d_coo_maxval(a) result(res) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_maxval - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1633,13 +1674,13 @@ function psb_d_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1649,7 +1690,7 @@ end function psb_d_coo_maxval function psb_d_coo_csnmi(a) result(res) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_csnmi - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1666,15 +1707,15 @@ function psb_d_coo_csnmi(a) result(res) res = dzero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = dzero - do while (i<=nnz) + res = dzero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -1689,7 +1730,7 @@ function psb_d_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = done else vt = dzero @@ -1701,7 +1742,7 @@ function psb_d_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_d_coo_csnmi @@ -1710,7 +1751,7 @@ function psb_d_coo_csnm1(a) result(res) use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_csnm1 - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1729,7 +1770,7 @@ function psb_d_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = done else vt = dzero @@ -1745,7 +1786,7 @@ function psb_d_coo_csnm1(a) result(res) end function psb_d_coo_csnm1 -subroutine psb_d_coo_rowsum(d,a) +subroutine psb_d_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_rowsum @@ -1765,13 +1806,13 @@ subroutine psb_d_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1785,7 +1826,7 @@ subroutine psb_d_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1793,7 +1834,7 @@ subroutine psb_d_coo_rowsum(d,a) end subroutine psb_d_coo_rowsum -subroutine psb_d_coo_arwsum(d,a) +subroutine psb_d_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_arwsum @@ -1812,13 +1853,13 @@ subroutine psb_d_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1831,7 +1872,7 @@ subroutine psb_d_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1839,7 +1880,7 @@ subroutine psb_d_coo_arwsum(d,a) end subroutine psb_d_coo_arwsum -subroutine psb_d_coo_colsum(d,a) +subroutine psb_d_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_colsum @@ -1858,13 +1899,13 @@ subroutine psb_d_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1878,7 +1919,7 @@ subroutine psb_d_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1886,7 +1927,7 @@ subroutine psb_d_coo_colsum(d,a) end subroutine psb_d_coo_colsum -subroutine psb_d_coo_aclsum(d,a) +subroutine psb_d_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_aclsum @@ -1905,14 +1946,14 @@ subroutine psb_d_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1923,10 +1964,10 @@ subroutine psb_d_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1951,7 +1992,7 @@ end subroutine psb_d_coo_aclsum subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1968,7 +2009,7 @@ subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1996,22 +2037,22 @@ subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2020,12 +2061,12 @@ subroutine psb_d_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2069,19 +2110,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2096,13 +2137,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2120,31 +2161,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -2153,7 +2194,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -2161,8 +2202,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -2175,12 +2216,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2192,11 +2233,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2210,7 +2251,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -2219,12 +2260,12 @@ end subroutine psb_d_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2269,27 +2310,27 @@ subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2298,12 +2339,12 @@ subroutine psb_d_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2351,19 +2392,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2378,13 +2419,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2402,34 +2443,34 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -2437,10 +2478,10 @@ contains end if enddo call psb_d_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -2449,7 +2490,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -2458,27 +2499,27 @@ contains nrd = max(a%get_nrows(),1) nzt = ((nza+nrd-1)/nrd)*(lrw-irw+1) - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then - k = 0 + + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - end if + end if end if val(nzin_+k) = a%val(i) ia(nzin_+k) = iren(a%ia(i)) @@ -2486,14 +2527,14 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) @@ -2515,12 +2556,12 @@ contains end subroutine psb_d_coo_csgetrow -subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_csput_a - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -2532,30 +2573,30 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) character(len=20) :: name='d_coo_csput_a_impl' logical, parameter :: debug=.false. integer(psb_ipk_) :: nza, i,j,k, nzl, isza, debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -2566,13 +2607,13 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -2583,22 +2624,22 @@ subroutine psb_d_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call d_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2619,7 +2660,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_ipk_), intent(in) :: ia(:),ja(:) @@ -2630,11 +2671,11 @@ contains integer(psb_ipk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -2650,7 +2691,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2668,13 +2709,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2686,18 +2727,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2709,7 +2750,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2723,18 +2764,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2746,7 +2787,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2768,10 +2809,10 @@ contains end subroutine psb_d_coo_csput_a -subroutine psb_d_cp_coo_to_coo(a,b,info) +subroutine psb_d_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_to_coo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2810,10 +2851,10 @@ subroutine psb_d_cp_coo_to_coo(a,b,info) end subroutine psb_d_cp_coo_to_coo -subroutine psb_d_cp_coo_from_coo(a,b,info) +subroutine psb_d_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_from_coo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2856,10 +2897,10 @@ subroutine psb_d_cp_coo_from_coo(a,b,info) end subroutine psb_d_cp_coo_from_coo -subroutine psb_d_cp_coo_to_fmt(a,b,info) +subroutine psb_d_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_to_fmt - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2888,10 +2929,10 @@ subroutine psb_d_cp_coo_to_fmt(a,b,info) end subroutine psb_d_cp_coo_to_fmt -subroutine psb_d_cp_coo_from_fmt(a,b,info) +subroutine psb_d_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_from_fmt - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2922,10 +2963,10 @@ subroutine psb_d_cp_coo_from_fmt(a,b,info) end subroutine psb_d_cp_coo_from_fmt -subroutine psb_d_mv_coo_to_coo(a,b,info) +subroutine psb_d_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_mv_coo_to_coo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2964,10 +3005,10 @@ subroutine psb_d_mv_coo_to_coo(a,b,info) end subroutine psb_d_mv_coo_to_coo -subroutine psb_d_mv_coo_from_coo(a,b,info) +subroutine psb_d_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_mv_coo_from_coo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3008,10 +3049,10 @@ subroutine psb_d_mv_coo_from_coo(a,b,info) end subroutine psb_d_mv_coo_from_coo -subroutine psb_d_mv_coo_to_fmt(a,b,info) +subroutine psb_d_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_mv_coo_to_fmt - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3040,10 +3081,10 @@ subroutine psb_d_mv_coo_to_fmt(a,b,info) end subroutine psb_d_mv_coo_to_fmt -subroutine psb_d_mv_coo_from_fmt(a,b,info) +subroutine psb_d_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_mv_coo_from_fmt - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3076,7 +3117,7 @@ end subroutine psb_d_mv_coo_from_fmt subroutine psb_d_coo_cp_from(a,b) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_cp_from - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(in) :: b @@ -3106,7 +3147,7 @@ end subroutine psb_d_coo_cp_from subroutine psb_d_coo_mv_from(a,b) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_mv_from - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a type(psb_d_coo_sparse_mat), intent(inout) :: b @@ -3135,11 +3176,11 @@ end subroutine psb_d_coo_mv_from -subroutine psb_d_fix_coo(a,info,idir) +subroutine psb_d_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_fix_coo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3160,17 +3201,17 @@ subroutine psb_d_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_d_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -3193,14 +3234,14 @@ end subroutine psb_d_fix_coo -subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nr, nc, nzin, dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) @@ -3225,14 +3266,14 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -3241,17 +3282,17 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - select case(idir_) - case(psb_row_major_) + select case(idir_) + + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -3261,15 +3302,15 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -3280,9 +3321,9 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -3290,7 +3331,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3300,87 +3341,87 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3392,7 +3433,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -3401,7 +3442,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3411,73 +3452,73 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3486,15 +3527,15 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. - ! + ! let's try in place. + ! call psi_msort_up(nzin,ia(1:),iaux(1:),iret) if (iret == 0) & & call psb_ip_reord(nzin,val,ia,ja,iaux) @@ -3522,52 +3563,52 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3580,7 +3621,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -3590,13 +3631,13 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -3610,10 +3651,10 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -3621,7 +3662,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3631,86 +3672,86 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3722,7 +3763,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -3730,7 +3771,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3739,73 +3780,73 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3816,7 +3857,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then call psi_msort_up(nzin,ja(1:),iaux(1:),iret) if (iret == 0) & @@ -3844,42 +3885,42 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -3887,8 +3928,8 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3907,7 +3948,7 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -3921,10 +3962,10 @@ subroutine psb_d_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_d_fix_coo_inner -subroutine psb_d_cp_coo_to_lcoo(a,b,info) +subroutine psb_d_cp_coo_to_lcoo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_to_lcoo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3964,10 +4005,10 @@ subroutine psb_d_cp_coo_to_lcoo(a,b,info) end subroutine psb_d_cp_coo_to_lcoo -subroutine psb_d_cp_coo_from_lcoo(a,b,info) +subroutine psb_d_cp_coo_from_lcoo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_d_cp_coo_from_lcoo - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -4015,11 +4056,11 @@ end subroutine psb_d_cp_coo_from_lcoo ! ! -subroutine psb_ld_coo_get_diag(a,d,info) +subroutine psb_ld_coo_get_diag(a,d,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4034,19 +4075,19 @@ subroutine psb_ld_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = done + if (a%is_unit()) then + d(1:mnm) = done else d(1:mnm) = dzero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -4060,12 +4101,12 @@ subroutine psb_ld_coo_get_diag(a,d,info) end subroutine psb_ld_coo_get_diag -subroutine psb_ld_coo_scal(d,a,info,side) +subroutine psb_ld_coo_scal(d,a,info,side) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4075,44 +4116,44 @@ subroutine psb_ld_coo_scal(d,a,info,side) integer(psb_lpk_) :: mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -4130,11 +4171,11 @@ subroutine psb_ld_coo_scal(d,a,info,side) end subroutine psb_ld_coo_scal -subroutine psb_ld_coo_scals(d,a,info) +subroutine psb_ld_coo_scals(d,a,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4148,7 +4189,7 @@ subroutine psb_ld_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -4170,7 +4211,7 @@ end subroutine psb_ld_coo_scals function psb_ld_coo_maxval(a) result(res) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_maxval - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4180,13 +4221,13 @@ function psb_ld_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -4196,7 +4237,7 @@ end function psb_ld_coo_maxval function psb_ld_coo_csnmi(a) result(res) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_csnmi - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4213,15 +4254,15 @@ function psb_ld_coo_csnmi(a) result(res) res = dzero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = dzero - do while (i<=nnz) + res = dzero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -4236,7 +4277,7 @@ function psb_ld_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = done else vt = dzero @@ -4248,7 +4289,7 @@ function psb_ld_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_ld_coo_csnmi @@ -4257,7 +4298,7 @@ function psb_ld_coo_csnm1(a) result(res) use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_csnm1 - implicit none + implicit none class(psb_d_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4276,7 +4317,7 @@ function psb_ld_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = done else vt = dzero @@ -4292,7 +4333,7 @@ function psb_ld_coo_csnm1(a) result(res) end function psb_ld_coo_csnm1 -subroutine psb_ld_coo_rowsum(d,a) +subroutine psb_ld_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_rowsum @@ -4313,13 +4354,13 @@ subroutine psb_ld_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4333,7 +4374,7 @@ subroutine psb_ld_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4341,7 +4382,7 @@ subroutine psb_ld_coo_rowsum(d,a) end subroutine psb_ld_coo_rowsum -subroutine psb_ld_coo_arwsum(d,a) +subroutine psb_ld_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_arwsum @@ -4361,13 +4402,13 @@ subroutine psb_ld_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4380,7 +4421,7 @@ subroutine psb_ld_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4388,7 +4429,7 @@ subroutine psb_ld_coo_arwsum(d,a) end subroutine psb_ld_coo_arwsum -subroutine psb_ld_coo_colsum(d,a) +subroutine psb_ld_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_colsum @@ -4408,13 +4449,13 @@ subroutine psb_ld_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4428,7 +4469,7 @@ subroutine psb_ld_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4436,7 +4477,7 @@ subroutine psb_ld_coo_colsum(d,a) end subroutine psb_ld_coo_colsum -subroutine psb_ld_coo_aclsum(d,a) +subroutine psb_ld_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_aclsum @@ -4456,14 +4497,14 @@ subroutine psb_ld_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4474,10 +4515,10 @@ subroutine psb_ld_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4485,11 +4526,11 @@ subroutine psb_ld_coo_aclsum(d,a) end subroutine psb_ld_coo_aclsum -subroutine psb_ld_coo_reallocate_nz(nz,a) +subroutine psb_ld_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4504,7 +4545,7 @@ subroutine psb_ld_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4518,10 +4559,10 @@ subroutine psb_ld_coo_reallocate_nz(nz,a) end subroutine psb_ld_coo_reallocate_nz -subroutine psb_ld_coo_mold(a,b,info) +subroutine psb_ld_coo_mold(a,b,info) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_mold use psb_error_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4530,16 +4571,16 @@ subroutine psb_ld_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ld_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4554,9 +4595,9 @@ end subroutine psb_ld_coo_mold subroutine psb_ld_coo_reinit(a,clear) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_ld_coo_sparse_mat), intent(inout) :: a + class(psb_ld_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4568,17 +4609,17 @@ subroutine psb_ld_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_host() call a%set_upd() @@ -4603,7 +4644,7 @@ subroutine psb_ld_coo_trim(a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info integer(psb_lpk_) :: nz @@ -4618,7 +4659,7 @@ subroutine psb_ld_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4631,13 +4672,13 @@ end subroutine psb_ld_coo_trim subroutine psb_ld_coo_clean_zeros(a, info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_clean_zeros - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -4648,17 +4689,17 @@ subroutine psb_ld_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_ld_coo_clean_zeros -subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4669,22 +4710,22 @@ subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -4692,7 +4733,7 @@ subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(lzero) @@ -4704,7 +4745,7 @@ subroutine psb_ld_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4719,10 +4760,10 @@ end subroutine psb_ld_coo_allocate_mnnz subroutine psb_ld_coo_print(iout,a,iv,head,ivr,ivc) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ld_coo_sparse_mat), intent(in) :: a + class(psb_ld_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4732,12 +4773,12 @@ subroutine psb_ld_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4751,30 +4792,30 @@ subroutine psb_ld_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -4789,7 +4830,7 @@ end subroutine psb_ld_coo_print function psb_ld_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_get_nz_row + use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_get_nz_row implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a @@ -4799,40 +4840,40 @@ function psb_ld_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: inza if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then + if (a%is_by_rows()) then ! In this case we can do a binary search. inza = nza ip = psb_bsrch(idx,inza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -4856,7 +4897,7 @@ end function psb_ld_coo_get_nz_row subroutine psb_ld_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4873,7 +4914,7 @@ subroutine psb_ld_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4902,22 +4943,22 @@ subroutine psb_ld_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4926,12 +4967,12 @@ subroutine psb_ld_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4976,19 +5017,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5003,13 +5044,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5027,31 +5068,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -5060,7 +5101,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -5068,8 +5109,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -5082,12 +5123,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5099,11 +5140,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5117,7 +5158,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -5126,12 +5167,12 @@ end subroutine psb_ld_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_ld_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -5149,7 +5190,7 @@ subroutine psb_ld_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -5177,22 +5218,22 @@ subroutine psb_ld_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -5201,12 +5242,12 @@ subroutine psb_ld_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -5255,19 +5296,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5282,13 +5323,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5306,32 +5347,32 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -5339,10 +5380,10 @@ contains end if enddo call psb_ld_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -5351,7 +5392,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -5365,12 +5406,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5384,11 +5425,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5412,12 +5453,12 @@ contains end subroutine psb_ld_coo_csgetrow -subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_csput_a - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -5430,30 +5471,30 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) logical, parameter :: debug=.false. integer(psb_lpk_) :: nza, i,j,k, nzl, isza integer(psb_ipk_) :: debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -5464,13 +5505,13 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -5481,22 +5522,22 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call ld_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -5517,7 +5558,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_lpk_), intent(in) :: ia(:),ja(:) @@ -5528,11 +5569,11 @@ contains integer(psb_lpk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -5548,7 +5589,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -5566,13 +5607,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() innz = nnz @@ -5583,18 +5624,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5606,7 +5647,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -5620,18 +5661,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5643,7 +5684,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -5665,10 +5706,10 @@ contains end subroutine psb_ld_coo_csput_a -subroutine psb_ld_cp_coo_to_coo(a,b,info) +subroutine psb_ld_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_to_coo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5708,10 +5749,10 @@ subroutine psb_ld_cp_coo_to_coo(a,b,info) end subroutine psb_ld_cp_coo_to_coo -subroutine psb_ld_cp_coo_from_coo(a,b,info) +subroutine psb_ld_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_from_coo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5754,10 +5795,10 @@ subroutine psb_ld_cp_coo_from_coo(a,b,info) end subroutine psb_ld_cp_coo_from_coo -subroutine psb_ld_cp_coo_to_fmt(a,b,info) +subroutine psb_ld_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_to_fmt - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5786,10 +5827,10 @@ subroutine psb_ld_cp_coo_to_fmt(a,b,info) end subroutine psb_ld_cp_coo_to_fmt -subroutine psb_ld_cp_coo_from_fmt(a,b,info) +subroutine psb_ld_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_from_fmt - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5820,10 +5861,10 @@ subroutine psb_ld_cp_coo_from_fmt(a,b,info) end subroutine psb_ld_cp_coo_from_fmt -subroutine psb_ld_mv_coo_to_coo(a,b,info) +subroutine psb_ld_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_mv_coo_to_coo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5862,10 +5903,10 @@ subroutine psb_ld_mv_coo_to_coo(a,b,info) end subroutine psb_ld_mv_coo_to_coo -subroutine psb_ld_mv_coo_from_coo(a,b,info) +subroutine psb_ld_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_mv_coo_from_coo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5906,10 +5947,10 @@ subroutine psb_ld_mv_coo_from_coo(a,b,info) end subroutine psb_ld_mv_coo_from_coo -subroutine psb_ld_mv_coo_to_fmt(a,b,info) +subroutine psb_ld_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_mv_coo_to_fmt - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5938,10 +5979,10 @@ subroutine psb_ld_mv_coo_to_fmt(a,b,info) end subroutine psb_ld_mv_coo_to_fmt -subroutine psb_ld_mv_coo_from_fmt(a,b,info) +subroutine psb_ld_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_mv_coo_from_fmt - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5974,7 +6015,7 @@ end subroutine psb_ld_mv_coo_from_fmt subroutine psb_ld_coo_cp_from(a,b) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_cp_from - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a type(psb_ld_coo_sparse_mat), intent(in) :: b @@ -6004,7 +6045,7 @@ end subroutine psb_ld_coo_cp_from subroutine psb_ld_coo_mv_from(a,b) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_mv_from - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a type(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -6033,11 +6074,11 @@ end subroutine psb_ld_coo_mv_from -subroutine psb_ld_fix_coo(a,info,idir) +subroutine psb_ld_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_fix_coo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -6058,17 +6099,17 @@ subroutine psb_ld_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_ld_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -6091,14 +6132,14 @@ end subroutine psb_ld_fix_coo -subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -6125,14 +6166,14 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -6141,16 +6182,16 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - select case(idir_) + select case(idir_) - case(psb_row_major_) + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -6158,17 +6199,17 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = (info == 0) else use_buffers = .false. - end if - - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + end if + + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -6179,9 +6220,9 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -6189,7 +6230,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6199,87 +6240,87 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6291,7 +6332,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -6300,7 +6341,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6310,73 +6351,73 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6385,14 +6426,14 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. + ! let's try in place. ! inzin = nzin call psi_msort_up(inzin,ia(1:),iaux(1:),iret) @@ -6422,52 +6463,52 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6480,7 +6521,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -6490,13 +6531,13 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -6510,10 +6551,10 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -6521,7 +6562,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6531,86 +6572,86 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6622,7 +6663,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -6630,7 +6671,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6639,73 +6680,73 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6716,7 +6757,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then inzin = nzin call psi_msort_up(inzin,ja(1:),iaux(1:),iret) @@ -6745,42 +6786,42 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -6788,8 +6829,8 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6808,7 +6849,7 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -6822,10 +6863,10 @@ subroutine psb_ld_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_ld_fix_coo_inner -subroutine psb_ld_cp_coo_to_icoo(a,b,info) +subroutine psb_ld_cp_coo_to_icoo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_to_icoo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -6865,10 +6906,10 @@ subroutine psb_ld_cp_coo_to_icoo(a,b,info) end subroutine psb_ld_cp_coo_to_icoo -subroutine psb_ld_cp_coo_from_icoo(a,b,info) +subroutine psb_ld_cp_coo_from_icoo(a,b,info) use psb_error_mod use psb_d_base_mat_mod, psb_protect_name => psb_ld_cp_coo_from_icoo - implicit none + implicit none class(psb_ld_coo_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -6908,4 +6949,3 @@ subroutine psb_ld_cp_coo_from_icoo(a,b,info) return end subroutine psb_ld_cp_coo_from_icoo - diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index a8dcb76f7..3d605b42d 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_csmv - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -72,7 +72,7 @@ subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -81,7 +81,7 @@ subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_d_csc_csmv(alpha,a,x,beta,y,info,trans) if (a%is_dev()) call a%sync() - if (size(x,1) psb_d_csc_csmm - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -350,13 +350,13 @@ subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) end if tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -364,16 +364,16 @@ subroutine psb_d_csc_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_d_csc_cssv - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -632,7 +632,7 @@ subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -642,28 +642,28 @@ subroutine psb_d_csc_cssv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x,1) psb_d_csc_cssm - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -852,7 +852,7 @@ subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -862,23 +862,23 @@ subroutine psb_d_csc_cssm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (size(x,1) psb_d_csc_maxval - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1066,7 +1066,7 @@ function psb_d_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero @@ -1074,7 +1074,7 @@ function psb_d_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1085,7 +1085,7 @@ function psb_d_csc_csnm1(a) result(res) use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_csnm1 - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1099,13 +1099,13 @@ function psb_d_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = dzero + res = dzero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -1115,12 +1115,12 @@ function psb_d_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_d_csc_csnm1 -subroutine psb_d_csc_colsum(d,a) +subroutine psb_d_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_colsum @@ -1140,7 +1140,7 @@ subroutine psb_d_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1148,19 +1148,19 @@ subroutine psb_d_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1168,7 +1168,7 @@ subroutine psb_d_csc_colsum(d,a) end subroutine psb_d_csc_colsum -subroutine psb_d_csc_aclsum(d,a) +subroutine psb_d_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_aclsum @@ -1188,7 +1188,7 @@ subroutine psb_d_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1197,25 +1197,25 @@ subroutine psb_d_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1223,7 +1223,7 @@ subroutine psb_d_csc_aclsum(d,a) end subroutine psb_d_csc_aclsum -subroutine psb_d_csc_rowsum(d,a) +subroutine psb_d_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_rowsum @@ -1244,14 +1244,14 @@ subroutine psb_d_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1265,7 +1265,7 @@ subroutine psb_d_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1273,7 +1273,7 @@ subroutine psb_d_csc_rowsum(d,a) end subroutine psb_d_csc_rowsum -subroutine psb_d_csc_arwsum(d,a) +subroutine psb_d_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_arwsum @@ -1294,14 +1294,14 @@ subroutine psb_d_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1315,7 +1315,7 @@ subroutine psb_d_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1324,11 +1324,11 @@ subroutine psb_d_csc_arwsum(d,a) end subroutine psb_d_csc_arwsum -subroutine psb_d_csc_get_diag(a,d,info) +subroutine psb_d_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_get_diag - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1343,28 +1343,28 @@ subroutine psb_d_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = done + if (a%is_unit()) then + d(1:mnm) = done else do i=1, mnm d(i) = dzero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = dzero end do call psb_erractionrestore(err_act) @@ -1377,12 +1377,12 @@ subroutine psb_d_csc_get_diag(a,d,info) end subroutine psb_d_csc_get_diag -subroutine psb_d_csc_scal(d,a,info,side) +subroutine psb_d_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scal use psb_string_mod - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1393,7 +1393,7 @@ subroutine psb_d_csc_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -1401,39 +1401,39 @@ subroutine psb_d_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -1449,11 +1449,11 @@ subroutine psb_d_csc_scal(d,a,info,side) end subroutine psb_d_csc_scal -subroutine psb_d_csc_scals(d,a,info) +subroutine psb_d_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scals - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1467,7 +1467,7 @@ subroutine psb_d_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1485,8 +1485,51 @@ subroutine psb_d_csc_scals(d,a,info) end subroutine psb_d_csc_scals +subroutine psb_d_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scalplusidentity + implicit none + class(psb_d_csc_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -! == =================================== + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + done + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_d_csc_scalplusidentity + + +! == =================================== ! ! ! @@ -1496,11 +1539,11 @@ end subroutine psb_d_csc_scals ! ! ! -! == =================================== +! == =================================== subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1518,7 +1561,7 @@ subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1547,35 +1590,35 @@ subroutine psb_d_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1621,12 +1664,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1637,19 +1680,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1663,9 +1706,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1677,9 +1720,9 @@ contains enddo end do end if - + end subroutine csc_getptn - + end subroutine psb_d_csc_csgetptn @@ -1687,7 +1730,7 @@ end subroutine psb_d_csc_csgetptn subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1706,7 +1749,7 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale,chksz - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1716,7 +1759,7 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -1736,22 +1779,22 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -1759,13 +1802,13 @@ subroutine psb_d_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1813,12 +1856,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1829,7 +1872,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -1837,12 +1880,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1858,9 +1901,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1880,11 +1923,11 @@ end subroutine psb_d_csc_csgetrow -subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_csput_a - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -1903,26 +1946,26 @@ subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -1933,25 +1976,25 @@ subroutine psb_d_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_d_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -1977,7 +2020,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -1995,13 +2038,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -2011,19 +2054,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2036,18 +2079,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2070,12 +2113,12 @@ end subroutine psb_d_csc_csput_a -subroutine psb_d_cp_csc_from_coo(a,b,info) +subroutine psb_d_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_cp_csc_from_coo - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b @@ -2098,11 +2141,11 @@ end subroutine psb_d_cp_csc_from_coo -subroutine psb_d_cp_csc_to_coo(a,b,info) +subroutine psb_d_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_cp_csc_to_coo - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -2132,7 +2175,7 @@ subroutine psb_d_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -2140,12 +2183,12 @@ subroutine psb_d_cp_csc_to_coo(a,b,info) end subroutine psb_d_cp_csc_to_coo -subroutine psb_d_mv_csc_to_coo(a,b,info) +subroutine psb_d_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_mv_csc_to_coo - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -2183,13 +2226,13 @@ end subroutine psb_d_mv_csc_to_coo -subroutine psb_d_mv_csc_from_coo(a,b,info) +subroutine psb_d_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_mv_csc_from_coo - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -2213,7 +2256,7 @@ subroutine psb_d_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -2236,17 +2279,17 @@ subroutine psb_d_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_d_mv_csc_from_coo -subroutine psb_d_mv_csc_to_fmt(a,b,info) +subroutine psb_d_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_mv_csc_to_fmt - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -2262,10 +2305,10 @@ subroutine psb_d_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_d_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_d_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_d_base_sparse_mat = a%psb_d_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -2282,12 +2325,12 @@ subroutine psb_d_mv_csc_to_fmt(a,b,info) end subroutine psb_d_mv_csc_to_fmt !!$ -subroutine psb_d_cp_csc_to_fmt(a,b,info) +subroutine psb_d_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_cp_csc_to_fmt - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -2303,10 +2346,10 @@ subroutine psb_d_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_d_csc_sparse_mat) + type is (psb_d_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_d_base_sparse_mat = a%psb_d_base_sparse_mat nc = a%get_ncols() @@ -2324,12 +2367,12 @@ subroutine psb_d_cp_csc_to_fmt(a,b,info) end subroutine psb_d_cp_csc_to_fmt -subroutine psb_d_mv_csc_from_fmt(a,b,info) +subroutine psb_d_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_mv_csc_from_fmt - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -2345,10 +2388,10 @@ subroutine psb_d_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_d_csc_sparse_mat) + type is (psb_d_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat @@ -2369,19 +2412,19 @@ end subroutine psb_d_mv_csc_from_fmt subroutine psb_d_csc_clean_zeros(a, info) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_clean_zeros - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nc - integer(psb_ipk_), allocatable :: ilcp(:) - + integer(psb_ipk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= dzero) then @@ -2396,12 +2439,12 @@ subroutine psb_d_csc_clean_zeros(a, info) call a%set_host() end subroutine psb_d_csc_clean_zeros -subroutine psb_d_cp_csc_from_fmt(a,b,info) +subroutine psb_d_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_cp_csc_from_fmt - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b @@ -2417,10 +2460,10 @@ subroutine psb_d_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_d_csc_sparse_mat) + type is (psb_d_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat nc = b%get_ncols() @@ -2435,14 +2478,14 @@ subroutine psb_d_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_d_cp_csc_from_fmt -subroutine psb_d_csc_mold(a,b,info) +subroutine psb_d_csc_mold(a,b,info) use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_mold use psb_error_mod - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2452,16 +2495,16 @@ subroutine psb_d_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_d_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -2473,11 +2516,11 @@ subroutine psb_d_csc_mold(a,b,info) end subroutine psb_d_csc_mold -subroutine psb_d_csc_reallocate_nz(nz,a) +subroutine psb_d_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -2490,7 +2533,7 @@ subroutine psb_d_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -2508,7 +2551,7 @@ end subroutine psb_d_csc_reallocate_nz !!$subroutine psb_d_csc_csgetblk(imin,imax,a,b,info,& !!$ & jmin,jmax,iren,append,rscale,cscale) -!!$ ! Output is always in COO format +!!$ ! Output is always in COO format !!$ use psb_error_mod !!$ use psb_const_mod !!$ use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_csgetblk @@ -2531,12 +2574,12 @@ end subroutine psb_d_csc_reallocate_nz !!$ call psb_erractionsave(err_act) !!$ info = psb_success_ !!$ -!!$ if (present(append)) then +!!$ if (present(append)) then !!$ append_ = append !!$ else !!$ append_ = .false. !!$ endif -!!$ if (append_) then +!!$ if (append_) then !!$ nzin = a%get_nzeros() !!$ else !!$ nzin = 0 @@ -2564,9 +2607,9 @@ end subroutine psb_d_csc_reallocate_nz subroutine psb_d_csc_reinit(a,clear) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_reinit - implicit none + implicit none - class(psb_d_csc_sparse_mat), intent(inout) :: a + class(psb_d_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2580,16 +2623,16 @@ subroutine psb_d_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_upd() call a%set_host() @@ -2612,7 +2655,7 @@ subroutine psb_d_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_trim - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz, n integer(psb_ipk_) :: ierr(5) @@ -2627,7 +2670,7 @@ subroutine psb_d_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2637,11 +2680,11 @@ subroutine psb_d_csc_trim(a) end subroutine psb_d_csc_trim -subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -2652,26 +2695,26 @@ subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -2679,7 +2722,7 @@ subroutine psb_d_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -2702,10 +2745,10 @@ end subroutine psb_d_csc_allocate_mnnz subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_d_csc_sparse_mat), intent(in) :: a + class(psb_d_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2716,13 +2759,13 @@ subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2736,40 +2779,40 @@ subroutine psb_d_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -2782,7 +2825,7 @@ subroutine psb_dcscspspmm(a,b,c,info) use psb_d_mat_mod use psb_serial_mod, psb_protect_name => psb_dcscspspmm - implicit none + implicit none class(psb_d_csc_sparse_mat), intent(in) :: a,b type(psb_d_csc_sparse_mat), intent(out) :: c @@ -2802,7 +2845,7 @@ subroutine psb_dcscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -2831,9 +2874,9 @@ subroutine psb_dcscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_d_csc_sparse_mat), intent(in) :: a,b type(psb_d_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -2856,29 +2899,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -2886,11 +2929,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do @@ -2903,11 +2946,11 @@ end subroutine psb_dcscspspmm -subroutine psb_ld_csc_get_diag(a,d,info) +subroutine psb_ld_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_get_diag - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2922,28 +2965,28 @@ subroutine psb_ld_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = done + if (a%is_unit()) then + d(1:mnm) = done else do i=1, mnm d(i) = dzero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = dzero end do call psb_erractionrestore(err_act) @@ -2956,12 +2999,12 @@ subroutine psb_ld_csc_get_diag(a,d,info) end subroutine psb_ld_csc_get_diag -subroutine psb_ld_csc_scal(d,a,info,side) +subroutine psb_ld_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scal use psb_string_mod - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2972,7 +3015,7 @@ subroutine psb_ld_csc_scal(d,a,info,side) integer(psb_ipk_) :: err_act,ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -2980,39 +3023,39 @@ subroutine psb_ld_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -3028,11 +3071,11 @@ subroutine psb_ld_csc_scal(d,a,info,side) end subroutine psb_ld_csc_scal -subroutine psb_ld_csc_scals(d,a,info) +subroutine psb_ld_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scals - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3046,7 +3089,7 @@ subroutine psb_ld_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3068,7 +3111,7 @@ end subroutine psb_ld_csc_scals function psb_ld_csc_maxval(a) result(res) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_maxval - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3077,7 +3120,7 @@ function psb_ld_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero @@ -3085,7 +3128,7 @@ function psb_ld_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3096,7 +3139,7 @@ function psb_ld_csc_csnm1(a) result(res) use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_csnm1 - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3109,13 +3152,13 @@ function psb_ld_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = dzero + res = dzero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -3125,12 +3168,12 @@ function psb_ld_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_ld_csc_csnm1 -subroutine psb_ld_csc_colsum(d,a) +subroutine psb_ld_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_colsum @@ -3151,7 +3194,7 @@ subroutine psb_ld_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3159,19 +3202,19 @@ subroutine psb_ld_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3179,7 +3222,7 @@ subroutine psb_ld_csc_colsum(d,a) end subroutine psb_ld_csc_colsum -subroutine psb_ld_csc_aclsum(d,a) +subroutine psb_ld_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_aclsum @@ -3200,7 +3243,7 @@ subroutine psb_ld_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3209,25 +3252,25 @@ subroutine psb_ld_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3235,7 +3278,7 @@ subroutine psb_ld_csc_aclsum(d,a) end subroutine psb_ld_csc_aclsum -subroutine psb_ld_csc_rowsum(d,a) +subroutine psb_ld_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_rowsum @@ -3243,7 +3286,7 @@ subroutine psb_ld_csc_rowsum(d,a) real(psb_dpk_), intent(out) :: d(:) integer(psb_lpk_) :: i,j,k,nnz, ir, jc, nc - integer(psb_epk_) :: m,n + integer(psb_epk_) :: m,n real(psb_dpk_) :: acc real(psb_dpk_), allocatable :: vt(:) logical :: tra @@ -3257,14 +3300,14 @@ subroutine psb_ld_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -3278,7 +3321,7 @@ subroutine psb_ld_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3286,7 +3329,7 @@ subroutine psb_ld_csc_rowsum(d,a) end subroutine psb_ld_csc_rowsum -subroutine psb_ld_csc_arwsum(d,a) +subroutine psb_ld_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_arwsum @@ -3308,14 +3351,14 @@ subroutine psb_ld_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -3329,7 +3372,7 @@ subroutine psb_ld_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3338,7 +3381,7 @@ subroutine psb_ld_csc_arwsum(d,a) end subroutine psb_ld_csc_arwsum -! == =================================== +! == =================================== ! ! ! @@ -3348,11 +3391,11 @@ end subroutine psb_ld_csc_arwsum ! ! ! -! == =================================== +! == =================================== subroutine psb_ld_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3370,7 +3413,7 @@ subroutine psb_ld_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3399,35 +3442,35 @@ subroutine psb_ld_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call lcsc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3473,12 +3516,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3489,19 +3532,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3515,9 +3558,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3529,9 +3572,9 @@ contains enddo end do end if - + end subroutine lcsc_getptn - + end subroutine psb_ld_csc_csgetptn @@ -3539,7 +3582,7 @@ end subroutine psb_ld_csc_csgetptn subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3558,7 +3601,7 @@ subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3568,7 +3611,7 @@ subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -3588,22 +3631,22 @@ subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -3611,13 +3654,13 @@ subroutine psb_ld_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call lcsc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3665,12 +3708,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3681,7 +3724,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -3689,12 +3732,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3710,9 +3753,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3732,11 +3775,11 @@ end subroutine psb_ld_csc_csgetrow -subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_csput_a - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -3755,26 +3798,26 @@ subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -3785,25 +3828,25 @@ subroutine psb_ld_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_ld_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -3829,7 +3872,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -3847,13 +3890,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -3863,19 +3906,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -3888,18 +3931,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -3921,12 +3964,12 @@ contains end subroutine psb_ld_csc_csput_a -subroutine psb_ld_cp_csc_from_coo(a,b,info) +subroutine psb_ld_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_cp_csc_from_coo - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b @@ -3949,11 +3992,11 @@ end subroutine psb_ld_cp_csc_from_coo -subroutine psb_ld_cp_csc_to_coo(a,b,info) +subroutine psb_ld_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_cp_csc_to_coo - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -3983,7 +4026,7 @@ subroutine psb_ld_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -3991,12 +4034,12 @@ subroutine psb_ld_cp_csc_to_coo(a,b,info) end subroutine psb_ld_cp_csc_to_coo -subroutine psb_ld_mv_csc_to_coo(a,b,info) +subroutine psb_ld_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_mv_csc_to_coo - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -4033,13 +4076,13 @@ subroutine psb_ld_mv_csc_to_coo(a,b,info) end subroutine psb_ld_mv_csc_to_coo -subroutine psb_ld_mv_csc_from_coo(a,b,info) +subroutine psb_ld_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_mv_csc_from_coo - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -4063,7 +4106,7 @@ subroutine psb_ld_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -4086,17 +4129,17 @@ subroutine psb_ld_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_ld_mv_csc_from_coo -subroutine psb_ld_mv_csc_to_fmt(a,b,info) +subroutine psb_ld_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_mv_csc_to_fmt - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -4112,10 +4155,10 @@ subroutine psb_ld_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_ld_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_ld_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ld_base_sparse_mat = a%psb_ld_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -4132,12 +4175,12 @@ subroutine psb_ld_mv_csc_to_fmt(a,b,info) end subroutine psb_ld_mv_csc_to_fmt !!$ -subroutine psb_ld_cp_csc_to_fmt(a,b,info) +subroutine psb_ld_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_cp_csc_to_fmt - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -4153,10 +4196,10 @@ subroutine psb_ld_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_ld_csc_sparse_mat) + type is (psb_ld_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ld_base_sparse_mat = a%psb_ld_base_sparse_mat nc = a%get_ncols() @@ -4174,12 +4217,12 @@ subroutine psb_ld_cp_csc_to_fmt(a,b,info) end subroutine psb_ld_cp_csc_to_fmt -subroutine psb_ld_mv_csc_from_fmt(a,b,info) +subroutine psb_ld_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_mv_csc_from_fmt - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -4195,10 +4238,10 @@ subroutine psb_ld_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_ld_csc_sparse_mat) + type is (psb_ld_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat @@ -4218,12 +4261,12 @@ end subroutine psb_ld_mv_csc_from_fmt -subroutine psb_ld_cp_csc_from_fmt(a,b,info) +subroutine psb_ld_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_cp_csc_from_fmt - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b @@ -4239,10 +4282,10 @@ subroutine psb_ld_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_ld_csc_sparse_mat) + type is (psb_ld_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat nc = b%get_ncols() @@ -4257,25 +4300,25 @@ subroutine psb_ld_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_ld_cp_csc_from_fmt subroutine psb_ld_csc_clean_zeros(a, info) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_clean_zeros - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nc - integer(psb_lpk_), allocatable :: ilcp(:) - + integer(psb_lpk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= dzero) then @@ -4291,10 +4334,10 @@ subroutine psb_ld_csc_clean_zeros(a, info) end subroutine psb_ld_csc_clean_zeros -subroutine psb_ld_csc_mold(a,b,info) +subroutine psb_ld_csc_mold(a,b,info) use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_mold use psb_error_mod - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4303,16 +4346,16 @@ subroutine psb_ld_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ld_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4324,11 +4367,11 @@ subroutine psb_ld_csc_mold(a,b,info) end subroutine psb_ld_csc_mold -subroutine psb_ld_csc_reallocate_nz(nz,a) +subroutine psb_ld_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4340,7 +4383,7 @@ subroutine psb_ld_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4358,7 +4401,7 @@ end subroutine psb_ld_csc_reallocate_nz subroutine psb_ld_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_csgetblk @@ -4381,12 +4424,12 @@ subroutine psb_ld_csc_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 @@ -4414,9 +4457,9 @@ end subroutine psb_ld_csc_csgetblk subroutine psb_ld_csc_reinit(a,clear) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_reinit - implicit none + implicit none - class(psb_ld_csc_sparse_mat), intent(inout) :: a + class(psb_ld_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4430,16 +4473,16 @@ subroutine psb_ld_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_upd() call a%set_host() @@ -4462,7 +4505,7 @@ subroutine psb_ld_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_trim - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, n integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4477,7 +4520,7 @@ subroutine psb_ld_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4487,11 +4530,11 @@ subroutine psb_ld_csc_trim(a) end subroutine psb_ld_csc_trim -subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ld_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4502,26 +4545,26 @@ subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -4529,7 +4572,7 @@ subroutine psb_ld_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -4552,10 +4595,10 @@ end subroutine psb_ld_csc_allocate_mnnz subroutine psb_ld_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ld_csc_sparse_mat), intent(in) :: a + class(psb_ld_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4566,13 +4609,13 @@ subroutine psb_ld_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4586,40 +4629,40 @@ subroutine psb_ld_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -4632,7 +4675,7 @@ subroutine psb_ldcscspspmm(a,b,c,info) use psb_d_mat_mod use psb_serial_mod, psb_protect_name => psb_ldcscspspmm - implicit none + implicit none class(psb_ld_csc_sparse_mat), intent(in) :: a,b type(psb_ld_csc_sparse_mat), intent(out) :: c @@ -4652,7 +4695,7 @@ subroutine psb_ldcscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -4681,9 +4724,9 @@ subroutine psb_ldcscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_ld_csc_sparse_mat), intent(in) :: a,b type(psb_ld_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -4706,29 +4749,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -4736,11 +4779,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index a0fe923f5..3c306a4c4 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_csmv - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -73,7 +73,7 @@ subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -83,7 +83,7 @@ subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_d_csr_csmv(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_d_csr_csmm - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -418,7 +418,7 @@ subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -426,7 +426,7 @@ subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -434,16 +434,16 @@ subroutine psb_d_csr_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_d_csr_cssv - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -766,7 +766,7 @@ subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -776,26 +776,26 @@ subroutine psb_d_csr_cssv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x) psb_d_csr_cssm - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1030,7 +1030,7 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1041,9 +1041,9 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1063,14 +1063,14 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == dzero) then + if (beta == dzero) then call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -1078,7 +1078,7 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) end if call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*tmp(i,1:nc) + beta*y(i,1:nc) end do @@ -1099,11 +1099,11 @@ subroutine psb_d_csr_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_csrsm(tra,ctra,lower,unit,nr,nc,& - & irp,ja,val,x,ldx,y,ldy,info) - implicit none + & irp,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) real(psb_dpk_), intent(in) :: val(*), x(ldx,*) @@ -1120,38 +1120,38 @@ contains end if - if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if ((.not.tra).and.(.not.ctra)) then + if (lower) then + if (unit) then do i=1, nr - acc = dzero + acc = dzero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr - acc = dzero + acc = dzero do j=irp(i), irp(i+1)-2 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = (x(i,1:nc) - acc)/val(irp(i+1)-1) end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then - do i=nr, 1, -1 - acc = dzero + if (unit) then + do i=nr, 1, -1 + acc = dzero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then - do i=nr, 1, -1 - acc = dzero + else if (.not.unit) then + do i=nr, 1, -1 + acc = dzero do j=irp(i)+1, irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do @@ -1161,96 +1161,96 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/val(irp(i+1)-1) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/val(irp(i)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/(val(irp(i+1)-1)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/(val(irp(i))) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do end if @@ -1264,7 +1264,7 @@ end subroutine psb_d_csr_cssm function psb_d_csr_maxval(a) result(res) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_maxval - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1277,7 +1277,7 @@ function psb_d_csr_maxval(a) result(res) res = dzero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1286,7 +1286,7 @@ end function psb_d_csr_maxval function psb_d_csr_csnmi(a) result(res) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_csnmi - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1303,7 +1303,7 @@ function psb_d_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -1311,7 +1311,7 @@ function psb_d_csr_csnmi(a) result(res) end function psb_d_csr_csnmi -subroutine psb_d_csr_rowsum(d,a) +subroutine psb_d_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_rowsum @@ -1331,7 +1331,7 @@ subroutine psb_d_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1340,12 +1340,12 @@ subroutine psb_d_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do @@ -1353,7 +1353,7 @@ subroutine psb_d_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1361,7 +1361,7 @@ subroutine psb_d_csr_rowsum(d,a) end subroutine psb_d_csr_rowsum -subroutine psb_d_csr_arwsum(d,a) +subroutine psb_d_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_arwsum @@ -1381,7 +1381,7 @@ subroutine psb_d_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1391,19 +1391,19 @@ subroutine psb_d_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1411,7 +1411,7 @@ subroutine psb_d_csr_arwsum(d,a) end subroutine psb_d_csr_arwsum -subroutine psb_d_csr_colsum(d,a) +subroutine psb_d_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_colsum @@ -1432,7 +1432,7 @@ subroutine psb_d_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1447,8 +1447,8 @@ subroutine psb_d_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -1456,7 +1456,7 @@ subroutine psb_d_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1464,7 +1464,7 @@ subroutine psb_d_csr_colsum(d,a) end subroutine psb_d_csr_colsum -subroutine psb_d_csr_aclsum(d,a) +subroutine psb_d_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_aclsum @@ -1485,7 +1485,7 @@ subroutine psb_d_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1500,8 +1500,8 @@ subroutine psb_d_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -1509,7 +1509,7 @@ subroutine psb_d_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1517,11 +1517,11 @@ subroutine psb_d_csr_aclsum(d,a) end subroutine psb_d_csr_aclsum -subroutine psb_d_csr_get_diag(a,d,info) +subroutine psb_d_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_get_diag - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1536,28 +1536,28 @@ subroutine psb_d_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = done else do i=1, mnm d(i) = dzero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = dzero end do @@ -1570,12 +1570,12 @@ subroutine psb_d_csr_get_diag(a,d,info) end subroutine psb_d_csr_get_diag -subroutine psb_d_csr_scal(d,a,info,side) +subroutine psb_d_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scal use psb_string_mod - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1585,47 +1585,47 @@ subroutine psb_d_csr_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1643,11 +1643,11 @@ subroutine psb_d_csr_scal(d,a,info,side) end subroutine psb_d_csr_scal -subroutine psb_d_csr_scals(d,a,info) +subroutine psb_d_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scals - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1660,7 +1660,7 @@ subroutine psb_d_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1677,10 +1677,51 @@ subroutine psb_d_csr_scals(d,a,info) end subroutine psb_d_csr_scals +subroutine psb_d_csr_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scalplusidentity + implicit none + class(psb_d_csr_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%irp(i),a%irp(i+1)-1 + j=a%ja(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + done + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + return + +end subroutine psb_d_csr_scalplusidentity -! == =================================== + +! == =================================== ! ! ! @@ -1690,14 +1731,14 @@ end subroutine psb_d_csr_scals ! ! ! -! == =================================== +! == =================================== -subroutine psb_d_csr_reallocate_nz(nz,a) +subroutine psb_d_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_d_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1709,7 +1750,7 @@ subroutine psb_d_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -1723,10 +1764,10 @@ subroutine psb_d_csr_reallocate_nz(nz,a) end subroutine psb_d_csr_reallocate_nz -subroutine psb_d_csr_mold(a,b,info) +subroutine psb_d_csr_mold(a,b,info) use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_mold use psb_error_mod - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -1735,16 +1776,16 @@ subroutine psb_d_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_d_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -1755,11 +1796,11 @@ subroutine psb_d_csr_mold(a,b,info) end subroutine psb_d_csr_mold -subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_d_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -1770,26 +1811,26 @@ subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -1797,7 +1838,7 @@ subroutine psb_d_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -1820,7 +1861,7 @@ end subroutine psb_d_csr_allocate_mnnz subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1838,7 +1879,7 @@ subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1866,35 +1907,35 @@ subroutine psb_d_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1940,32 +1981,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -1976,7 +2017,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -1987,13 +2028,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_d_csr_csgetptn subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2021,7 +2062,7 @@ subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -2040,27 +2081,27 @@ subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2068,13 +2109,13 @@ subroutine psb_d_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2121,12 +2162,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -2134,23 +2175,23 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) - + if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2162,7 +2203,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2183,7 +2224,7 @@ end subroutine psb_d_csr_csgetrow ! subroutine psb_d_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_tril @@ -2195,7 +2236,7 @@ subroutine psb_d_csr_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_d_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2206,57 +2247,57 @@ subroutine psb_d_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -2265,7 +2306,7 @@ subroutine psb_d_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -2281,7 +2322,7 @@ subroutine psb_d_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -2289,17 +2330,17 @@ subroutine psb_d_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -2318,8 +2359,8 @@ subroutine psb_d_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -2337,7 +2378,7 @@ end subroutine psb_d_csr_tril subroutine psb_d_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_triu @@ -2349,7 +2390,7 @@ subroutine psb_d_csr_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_d_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2360,57 +2401,57 @@ subroutine psb_d_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -2419,7 +2460,7 @@ subroutine psb_d_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -2471,8 +2512,8 @@ subroutine psb_d_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -2489,11 +2530,11 @@ subroutine psb_d_csr_triu(a,u,info,& end subroutine psb_d_csr_triu -subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_csput_a - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -2511,23 +2552,23 @@ subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_; i=1 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_; i=2 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_; i=3 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_; i=4 call psb_errpush(info,name,i_err=(/i/)) goto 9999 @@ -2538,25 +2579,25 @@ subroutine psb_d_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_d_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2582,7 +2623,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2600,13 +2641,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2616,20 +2657,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 - ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2641,17 +2682,17 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2676,9 +2717,9 @@ end subroutine psb_d_csr_csput_a subroutine psb_d_csr_reinit(a,clear) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_reinit - implicit none + implicit none - class(psb_d_csr_sparse_mat), intent(inout) :: a + class(psb_d_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2691,16 +2732,16 @@ subroutine psb_d_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_upd() call a%set_host() @@ -2723,9 +2764,9 @@ subroutine psb_d_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_trim - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2738,7 +2779,7 @@ subroutine psb_d_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2751,10 +2792,10 @@ end subroutine psb_d_csr_trim subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_d_csr_sparse_mat), intent(in) :: a + class(psb_d_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2763,13 +2804,13 @@ subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='d_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2783,40 +2824,40 @@ subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -2826,12 +2867,12 @@ subroutine psb_d_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_d_csr_print -subroutine psb_d_cp_csr_from_coo(a,b,info) +subroutine psb_d_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_cp_csr_from_coo - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(in) :: b @@ -2849,18 +2890,18 @@ subroutine psb_d_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_d_base_sparse_mat = tmp%psb_d_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -2869,22 +2910,22 @@ subroutine psb_d_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -2900,17 +2941,17 @@ subroutine psb_d_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_d_cp_csr_from_coo -subroutine psb_d_cp_csr_to_coo(a,b,info) +subroutine psb_d_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_cp_csr_to_coo - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -2949,12 +2990,12 @@ subroutine psb_d_cp_csr_to_coo(a,b,info) end subroutine psb_d_cp_csr_to_coo -subroutine psb_d_mv_csr_to_coo(a,b,info) +subroutine psb_d_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_mv_csr_to_coo - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -2995,13 +3036,13 @@ end subroutine psb_d_mv_csr_to_coo -subroutine psb_d_mv_csr_from_coo(a,b,info) +subroutine psb_d_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_mv_csr_from_coo - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_coo_sparse_mat), intent(inout) :: b @@ -3027,7 +3068,7 @@ subroutine psb_d_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -3051,15 +3092,15 @@ subroutine psb_d_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_d_mv_csr_from_coo -subroutine psb_d_mv_csr_to_fmt(a,b,info) +subroutine psb_d_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_mv_csr_to_fmt - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -3076,9 +3117,9 @@ subroutine psb_d_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_d_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_d_base_sparse_mat = a%psb_d_base_sparse_mat @@ -3096,12 +3137,12 @@ subroutine psb_d_mv_csr_to_fmt(a,b,info) end subroutine psb_d_mv_csr_to_fmt -subroutine psb_d_cp_csr_to_fmt(a,b,info) +subroutine psb_d_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_cp_csr_to_fmt - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -3119,10 +3160,10 @@ subroutine psb_d_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_d_csr_sparse_mat) + type is (psb_d_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_d_base_sparse_mat = a%psb_d_base_sparse_mat nr = a%get_nrows() @@ -3140,11 +3181,11 @@ subroutine psb_d_cp_csr_to_fmt(a,b,info) end subroutine psb_d_cp_csr_to_fmt -subroutine psb_d_mv_csr_from_fmt(a,b,info) +subroutine psb_d_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_mv_csr_from_fmt - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b @@ -3161,10 +3202,10 @@ subroutine psb_d_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_d_csr_sparse_mat) + type is (psb_d_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat @@ -3183,12 +3224,12 @@ end subroutine psb_d_mv_csr_from_fmt -subroutine psb_d_cp_csr_from_fmt(a,b,info) +subroutine psb_d_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_cp_csr_from_fmt - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a class(psb_d_base_sparse_mat), intent(in) :: b @@ -3205,10 +3246,10 @@ subroutine psb_d_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_d_coo_sparse_mat) + type is (psb_d_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_d_csr_sparse_mat) + type is (psb_d_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_d_base_sparse_mat = b%psb_d_base_sparse_mat nr = b%get_nrows() @@ -3227,19 +3268,19 @@ end subroutine psb_d_cp_csr_from_fmt subroutine psb_d_csr_clean_zeros(a, info) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_clean_zeros - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nr - integer(psb_ipk_), allocatable :: ilrp(:) - + integer(psb_ipk_), allocatable :: ilrp(:) + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= dzero) then @@ -3258,7 +3299,7 @@ subroutine psb_dcsrspspmm(a,b,c,info) use psb_d_mat_mod use psb_serial_mod, psb_protect_name => psb_dcsrspspmm - implicit none + implicit none class(psb_d_csr_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(out) :: c @@ -3269,7 +3310,7 @@ subroutine psb_dcsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -3279,7 +3320,7 @@ subroutine psb_dcsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -3305,9 +3346,9 @@ subroutine psb_dcsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_d_csr_sparse_mat), intent(in) :: a,b type(psb_d_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -3330,49 +3371,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_dcsrspspmm @@ -3381,13 +3422,13 @@ end subroutine psb_dcsrspspmm ! ! ! ld version -! ! -subroutine psb_ld_csr_get_diag(a,d,info) +! +subroutine psb_ld_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_get_diag - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3402,28 +3443,28 @@ subroutine psb_ld_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = done else do i=1, mnm d(i) = dzero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = dzero end do @@ -3436,12 +3477,12 @@ subroutine psb_ld_csr_get_diag(a,d,info) end subroutine psb_ld_csr_get_diag -subroutine psb_ld_csr_scal(d,a,info,side) +subroutine psb_ld_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_scal use psb_string_mod - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3451,47 +3492,47 @@ subroutine psb_ld_csr_scal(d,a,info,side) integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -3509,11 +3550,11 @@ subroutine psb_ld_csr_scal(d,a,info,side) end subroutine psb_ld_csr_scal -subroutine psb_ld_csr_scals(d,a,info) +subroutine psb_ld_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_scals - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3527,7 +3568,7 @@ subroutine psb_ld_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3548,7 +3589,7 @@ end subroutine psb_ld_csr_scals function psb_ld_csr_maxval(a) result(res) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_maxval - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3561,7 +3602,7 @@ function psb_ld_csr_maxval(a) result(res) res = dzero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3570,7 +3611,7 @@ end function psb_ld_csr_maxval function psb_ld_csr_csnmi(a) result(res) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_csnmi - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3587,7 +3628,7 @@ function psb_ld_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -3595,7 +3636,7 @@ function psb_ld_csr_csnmi(a) result(res) end function psb_ld_csr_csnmi -subroutine psb_ld_csr_rowsum(d,a) +subroutine psb_ld_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_rowsum @@ -3615,7 +3656,7 @@ subroutine psb_ld_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3624,12 +3665,12 @@ subroutine psb_ld_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do @@ -3637,7 +3678,7 @@ subroutine psb_ld_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3645,7 +3686,7 @@ subroutine psb_ld_csr_rowsum(d,a) end subroutine psb_ld_csr_rowsum -subroutine psb_ld_csr_arwsum(d,a) +subroutine psb_ld_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_arwsum @@ -3665,7 +3706,7 @@ subroutine psb_ld_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3675,19 +3716,19 @@ subroutine psb_ld_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3695,7 +3736,7 @@ subroutine psb_ld_csr_arwsum(d,a) end subroutine psb_ld_csr_arwsum -subroutine psb_ld_csr_colsum(d,a) +subroutine psb_ld_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_colsum @@ -3716,7 +3757,7 @@ subroutine psb_ld_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3731,8 +3772,8 @@ subroutine psb_ld_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -3740,7 +3781,7 @@ subroutine psb_ld_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3748,7 +3789,7 @@ subroutine psb_ld_csr_colsum(d,a) end subroutine psb_ld_csr_colsum -subroutine psb_ld_csr_aclsum(d,a) +subroutine psb_ld_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_aclsum @@ -3769,7 +3810,7 @@ subroutine psb_ld_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3784,8 +3825,8 @@ subroutine psb_ld_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -3793,7 +3834,7 @@ subroutine psb_ld_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3802,7 +3843,7 @@ subroutine psb_ld_csr_aclsum(d,a) end subroutine psb_ld_csr_aclsum -! == =================================== +! == =================================== ! ! ! @@ -3812,14 +3853,14 @@ end subroutine psb_ld_csr_aclsum ! ! ! -! == =================================== +! == =================================== -subroutine psb_ld_csr_reallocate_nz(nz,a) +subroutine psb_ld_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_reallocate_nz - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3831,7 +3872,7 @@ subroutine psb_ld_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -3845,10 +3886,10 @@ subroutine psb_ld_csr_reallocate_nz(nz,a) end subroutine psb_ld_csr_reallocate_nz -subroutine psb_ld_csr_mold(a,b,info) +subroutine psb_ld_csr_mold(a,b,info) use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_mold use psb_error_mod - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3857,16 +3898,16 @@ subroutine psb_ld_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ld_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -3877,11 +3918,11 @@ subroutine psb_ld_csr_mold(a,b,info) end subroutine psb_ld_csr_mold -subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -3893,26 +3934,26 @@ subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -3920,7 +3961,7 @@ subroutine psb_ld_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -3943,7 +3984,7 @@ end subroutine psb_ld_csr_allocate_mnnz subroutine psb_ld_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3961,7 +4002,7 @@ subroutine psb_ld_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -3990,35 +4031,35 @@ subroutine psb_ld_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4064,32 +4105,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -4100,7 +4141,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -4111,13 +4152,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_ld_csr_csgetptn subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4136,7 +4177,7 @@ subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4146,7 +4187,7 @@ subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -4165,22 +4206,22 @@ subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4188,13 +4229,13 @@ subroutine psb_ld_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4241,12 +4282,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -4254,21 +4295,21 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4280,7 +4321,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4301,7 +4342,7 @@ end subroutine psb_ld_csr_csgetrow ! subroutine psb_ld_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_tril @@ -4313,7 +4354,7 @@ subroutine psb_ld_csr_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ld_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4325,57 +4366,57 @@ subroutine psb_ld_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -4384,7 +4425,7 @@ subroutine psb_ld_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -4400,7 +4441,7 @@ subroutine psb_ld_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -4408,17 +4449,17 @@ subroutine psb_ld_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -4437,8 +4478,8 @@ subroutine psb_ld_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -4456,7 +4497,7 @@ end subroutine psb_ld_csr_tril subroutine psb_ld_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_triu @@ -4468,7 +4509,7 @@ subroutine psb_ld_csr_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ld_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4480,57 +4521,57 @@ subroutine psb_ld_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -4539,7 +4580,7 @@ subroutine psb_ld_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -4591,8 +4632,8 @@ subroutine psb_ld_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -4609,11 +4650,11 @@ subroutine psb_ld_csr_triu(a,u,info,& end subroutine psb_ld_csr_triu -subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_csput_a - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) @@ -4633,24 +4674,24 @@ subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then - info = psb_err_iarg_neg_; + if (nz <= 0) then + info = psb_err_iarg_neg_; call psb_errpush(info,name,m_err=(/1/)) goto 9999 end if - if (size(ia) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ia) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/2/)) goto 9999 end if - if (size(ja) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ja) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/3/)) goto 9999 end if - if (size(val) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(val) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/4/)) goto 9999 end if @@ -4660,25 +4701,25 @@ subroutine psb_ld_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_ld_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -4704,7 +4745,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -4722,13 +4763,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -4738,20 +4779,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 inc = nc - ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -4763,18 +4804,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 inc = nc ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -4799,9 +4840,9 @@ end subroutine psb_ld_csr_csput_a subroutine psb_ld_csr_reinit(a,clear) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_reinit - implicit none + implicit none - class(psb_ld_csr_sparse_mat), intent(inout) :: a + class(psb_ld_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4814,16 +4855,16 @@ subroutine psb_ld_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = dzero call a%set_upd() call a%set_host() @@ -4846,7 +4887,7 @@ subroutine psb_ld_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_trim - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, m integer(psb_ipk_) :: err_act, info @@ -4862,7 +4903,7 @@ subroutine psb_ld_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4875,10 +4916,10 @@ end subroutine psb_ld_csr_trim subroutine psb_ld_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ld_csr_sparse_mat), intent(in) :: a + class(psb_ld_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4887,13 +4928,13 @@ subroutine psb_ld_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='ld_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4907,40 +4948,40 @@ subroutine psb_ld_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -4950,12 +4991,12 @@ subroutine psb_ld_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_ld_csr_print -subroutine psb_ld_cp_csr_from_coo(a,b,info) +subroutine psb_ld_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_cp_csr_from_coo - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(in) :: b @@ -4973,18 +5014,18 @@ subroutine psb_ld_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_ld_base_sparse_mat = tmp%psb_ld_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -4993,22 +5034,22 @@ subroutine psb_ld_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -5024,17 +5065,17 @@ subroutine psb_ld_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_ld_cp_csr_from_coo -subroutine psb_ld_cp_csr_to_coo(a,b,info) +subroutine psb_ld_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_cp_csr_to_coo - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -5073,12 +5114,12 @@ subroutine psb_ld_cp_csr_to_coo(a,b,info) end subroutine psb_ld_cp_csr_to_coo -subroutine psb_ld_mv_csr_to_coo(a,b,info) +subroutine psb_ld_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_mv_csr_to_coo - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -5119,13 +5160,13 @@ end subroutine psb_ld_mv_csr_to_coo -subroutine psb_ld_mv_csr_from_coo(a,b,info) +subroutine psb_ld_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_mv_csr_from_coo - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_coo_sparse_mat), intent(inout) :: b @@ -5151,7 +5192,7 @@ subroutine psb_ld_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -5175,15 +5216,15 @@ subroutine psb_ld_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_ld_mv_csr_from_coo -subroutine psb_ld_mv_csr_to_fmt(a,b,info) +subroutine psb_ld_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_mv_csr_to_fmt - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -5200,9 +5241,9 @@ subroutine psb_ld_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_ld_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ld_base_sparse_mat = a%psb_ld_base_sparse_mat @@ -5220,12 +5261,12 @@ subroutine psb_ld_mv_csr_to_fmt(a,b,info) end subroutine psb_ld_mv_csr_to_fmt -subroutine psb_ld_cp_csr_to_fmt(a,b,info) +subroutine psb_ld_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_cp_csr_to_fmt - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -5243,10 +5284,10 @@ subroutine psb_ld_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_ld_csr_sparse_mat) + type is (psb_ld_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ld_base_sparse_mat = a%psb_ld_base_sparse_mat nr = a%get_nrows() @@ -5264,11 +5305,11 @@ subroutine psb_ld_cp_csr_to_fmt(a,b,info) end subroutine psb_ld_cp_csr_to_fmt -subroutine psb_ld_mv_csr_from_fmt(a,b,info) +subroutine psb_ld_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_mv_csr_from_fmt - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b @@ -5285,10 +5326,10 @@ subroutine psb_ld_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_ld_csr_sparse_mat) + type is (psb_ld_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat @@ -5307,12 +5348,12 @@ end subroutine psb_ld_mv_csr_from_fmt -subroutine psb_ld_cp_csr_from_fmt(a,b,info) +subroutine psb_ld_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_d_base_mat_mod use psb_realloc_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_cp_csr_from_fmt - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(in) :: b @@ -5329,10 +5370,10 @@ subroutine psb_ld_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ld_coo_sparse_mat) + type is (psb_ld_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_ld_csr_sparse_mat) + type is (psb_ld_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ld_base_sparse_mat = b%psb_ld_base_sparse_mat nr = b%get_nrows() @@ -5352,19 +5393,19 @@ end subroutine psb_ld_cp_csr_from_fmt subroutine psb_ld_csr_clean_zeros(a, info) use psb_error_mod use psb_d_csr_mat_mod, psb_protect_name => psb_ld_csr_clean_zeros - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nr - integer(psb_lpk_), allocatable :: ilrp(:) - - info = 0 + integer(psb_lpk_), allocatable :: ilrp(:) + + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= dzero) then @@ -5383,7 +5424,7 @@ subroutine psb_ldcsrspspmm(a,b,c,info) use psb_d_mat_mod use psb_serial_mod, psb_protect_name => psb_ldcsrspspmm - implicit none + implicit none class(psb_ld_csr_sparse_mat), intent(in) :: a,b type(psb_ld_csr_sparse_mat), intent(out) :: c @@ -5394,7 +5435,7 @@ subroutine psb_ldcsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -5404,7 +5445,7 @@ subroutine psb_ldcsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -5429,9 +5470,9 @@ subroutine psb_ldcsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_ld_csr_sparse_mat), intent(in) :: a,b type(psb_ld_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -5454,50 +5495,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_ldcsrspspmm - diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90 index 0ad1edc66..492bb681d 100644 --- a/base/serial/impl/psb_d_mat_impl.F90 +++ b/base/serial/impl/psb_d_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! d_mat_impl: ! implementation of the outer matrix methods. @@ -43,7 +43,7 @@ ! ! ! -! Setters +! Setters ! ! ! @@ -53,10 +53,10 @@ ! == =================================== -subroutine psb_d_set_nrows(m,a) +subroutine psb_d_set_nrows(m,a) use psb_d_mat_mod, psb_protect_name => psb_d_set_nrows use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -64,7 +64,7 @@ subroutine psb_d_set_nrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -82,10 +82,10 @@ subroutine psb_d_set_nrows(m,a) end subroutine psb_d_set_nrows -subroutine psb_d_set_ncols(n,a) +subroutine psb_d_set_ncols(n,a) use psb_d_mat_mod, psb_protect_name => psb_d_set_ncols use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -93,7 +93,7 @@ subroutine psb_d_set_ncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -112,16 +112,16 @@ end subroutine psb_d_set_ncols ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_d_set_dupl(n,a) +subroutine psb_d_set_dupl(n,a) use psb_d_mat_mod, psb_protect_name => psb_d_set_dupl use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -129,7 +129,7 @@ subroutine psb_d_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -151,17 +151,17 @@ end subroutine psb_d_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_d_set_null(a) +subroutine psb_d_set_null(a) use psb_d_mat_mod, psb_protect_name => psb_d_set_null use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -179,17 +179,17 @@ subroutine psb_d_set_null(a) end subroutine psb_d_set_null -subroutine psb_d_set_bld(a) +subroutine psb_d_set_bld(a) use psb_d_mat_mod, psb_protect_name => psb_d_set_bld use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -208,17 +208,17 @@ subroutine psb_d_set_bld(a) end subroutine psb_d_set_bld -subroutine psb_d_set_upd(a) +subroutine psb_d_set_upd(a) use psb_d_mat_mod, psb_protect_name => psb_d_set_upd use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -238,17 +238,17 @@ subroutine psb_d_set_upd(a) end subroutine psb_d_set_upd -subroutine psb_d_set_asb(a) +subroutine psb_d_set_asb(a) use psb_d_mat_mod, psb_protect_name => psb_d_set_asb use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -267,10 +267,10 @@ subroutine psb_d_set_asb(a) end subroutine psb_d_set_asb -subroutine psb_d_set_sorted(a,val) +subroutine psb_d_set_sorted(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_sorted use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -278,7 +278,7 @@ subroutine psb_d_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -297,10 +297,10 @@ subroutine psb_d_set_sorted(a,val) end subroutine psb_d_set_sorted -subroutine psb_d_set_triangle(a,val) +subroutine psb_d_set_triangle(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_triangle use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -308,7 +308,7 @@ subroutine psb_d_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -326,10 +326,10 @@ subroutine psb_d_set_triangle(a,val) end subroutine psb_d_set_triangle -subroutine psb_d_set_symmetric(a,val) +subroutine psb_d_set_symmetric(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -337,7 +337,7 @@ subroutine psb_d_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -355,10 +355,10 @@ subroutine psb_d_set_symmetric(a,val) end subroutine psb_d_set_symmetric -subroutine psb_d_set_unit(a,val) +subroutine psb_d_set_unit(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_unit use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -366,7 +366,7 @@ subroutine psb_d_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -385,10 +385,10 @@ subroutine psb_d_set_unit(a,val) end subroutine psb_d_set_unit -subroutine psb_d_set_lower(a,val) +subroutine psb_d_set_lower(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_lower use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -396,7 +396,7 @@ subroutine psb_d_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -415,10 +415,10 @@ subroutine psb_d_set_lower(a,val) end subroutine psb_d_set_lower -subroutine psb_d_set_upper(a,val) +subroutine psb_d_set_upper(a,val) use psb_d_mat_mod, psb_protect_name => psb_d_set_upper use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -426,7 +426,7 @@ subroutine psb_d_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -456,16 +456,16 @@ end subroutine psb_d_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_d_sparse_print(iout,a,iv,head,ivr,ivc) use psb_d_mat_mod, psb_protect_name => psb_d_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_dspmat_type), intent(in) :: a + class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -476,7 +476,7 @@ subroutine psb_d_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -496,10 +496,10 @@ end subroutine psb_d_sparse_print subroutine psb_d_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_d_mat_mod, psb_protect_name => psb_d_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_dspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_dspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -511,24 +511,24 @@ subroutine psb_d_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -547,13 +547,13 @@ end subroutine psb_d_n_sparse_print subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) use psb_d_mat_mod, psb_protect_name => psb_d_get_neigh use psb_error_mod - implicit none - class(psb_dspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + implicit none + class(psb_dspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -561,7 +561,7 @@ subroutine psb_d_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -582,17 +582,17 @@ end subroutine psb_d_get_neigh -subroutine psb_d_csall(nr,nc,a,info,nz) +subroutine psb_d_csall(nr,nc,a,info,nz) use psb_d_mat_mod, psb_protect_name => psb_d_csall use psb_d_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -602,13 +602,13 @@ subroutine psb_d_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_d_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -619,10 +619,10 @@ subroutine psb_d_csall(nr,nc,a,info,nz) end subroutine psb_d_csall -subroutine psb_d_reallocate_nz(nz,a) +subroutine psb_d_reallocate_nz(nz,a) use psb_d_mat_mod, psb_protect_name => psb_d_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -630,7 +630,7 @@ subroutine psb_d_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -647,31 +647,31 @@ subroutine psb_d_reallocate_nz(nz,a) end subroutine psb_d_reallocate_nz -subroutine psb_d_free(a) +subroutine psb_d_free(a) use psb_d_mat_mod, psb_protect_name => psb_d_free use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_d_free -subroutine psb_d_trim(a) +subroutine psb_d_trim(a) use psb_d_mat_mod, psb_protect_name => psb_d_trim use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -689,11 +689,11 @@ end subroutine psb_d_trim -subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_mat_mod, psb_protect_name => psb_d_csput_a use psb_d_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -705,15 +705,15 @@ subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -725,13 +725,13 @@ subroutine psb_d_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_d_csput_a -subroutine psb_d_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_d_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_mat_mod, psb_protect_name => psb_d_csput_v use psb_d_base_mat_mod use psb_d_vect_mod, only : psb_d_vect_type use psb_i_vect_mod, only : psb_i_vect_type use psb_error_mod - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a type(psb_d_vect_type), intent(inout) :: val type(psb_i_vect_type), intent(inout) :: ia, ja @@ -744,19 +744,19 @@ subroutine psb_d_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -771,7 +771,7 @@ end subroutine psb_d_csput_v subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -794,7 +794,7 @@ subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -803,7 +803,7 @@ subroutine psb_d_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -818,7 +818,7 @@ end subroutine psb_d_csgetptn subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -842,7 +842,7 @@ subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -851,7 +851,7 @@ subroutine psb_d_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -868,7 +868,7 @@ end subroutine psb_d_csgetrow subroutine psb_d_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -893,31 +893,31 @@ subroutine psb_d_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -936,7 +936,7 @@ subroutine psb_d_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_d_base_mat_mod use psb_d_mat_mod, psb_protect_name => psb_d_tril - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -951,22 +951,22 @@ subroutine psb_d_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -975,7 +975,7 @@ subroutine psb_d_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -993,7 +993,7 @@ subroutine psb_d_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_d_base_mat_mod use psb_d_mat_mod, psb_protect_name => psb_d_triu - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -1009,24 +1009,24 @@ subroutine psb_d_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -1035,7 +1035,7 @@ subroutine psb_d_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1050,7 +1050,7 @@ end subroutine psb_d_triu subroutine psb_d_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -1070,24 +1070,24 @@ subroutine psb_d_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -1101,7 +1101,7 @@ end subroutine psb_d_csclip subroutine psb_d_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -1120,7 +1120,7 @@ subroutine psb_d_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1128,7 +1128,7 @@ subroutine psb_d_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1144,7 +1144,7 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_cscnv - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1161,7 +1161,7 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1173,38 +1173,38 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_d_csr_sparse_mat :: altmp, stat=info) + allocate(psb_d_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_d_coo_sparse_mat :: altmp, stat=info) + allocate(psb_d_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_d_csc_sparse_mat :: altmp, stat=info) + allocate(psb_d_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -1222,7 +1222,7 @@ subroutine psb_d_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%set_asb() + call b%set_asb() call psb_erractionrestore(err_act) return @@ -1237,7 +1237,7 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_cscnv_ip - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -1254,15 +1254,15 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -1272,29 +1272,29 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_d_csr_sparse_mat :: altmp, stat=info) + allocate(psb_d_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_d_coo_sparse_mat :: altmp, stat=info) + allocate(psb_d_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_d_csc_sparse_mat :: altmp, stat=info) + allocate(psb_d_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1313,7 +1313,7 @@ subroutine psb_d_cscnv_ip(a,info,type,mold,dupl) call move_alloc(altmp,a%a) call a%trim() - call a%set_asb() + call a%set_asb() call psb_erractionrestore(err_act) return @@ -1330,7 +1330,7 @@ subroutine psb_d_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_cscnv_base - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -1345,19 +1345,19 @@ subroutine psb_d_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -1379,7 +1379,7 @@ end subroutine psb_d_cscnv_base subroutine psb_d_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -1398,15 +1398,15 @@ subroutine psb_d_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1415,8 +1415,8 @@ subroutine psb_d_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1439,7 +1439,7 @@ end subroutine psb_d_clip_d subroutine psb_d_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -1457,13 +1457,13 @@ subroutine psb_d_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -1474,8 +1474,8 @@ subroutine psb_d_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1500,7 +1500,7 @@ subroutine psb_d_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_from - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1518,7 +1518,7 @@ subroutine psb_d_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_from - implicit none + implicit none class(psb_dspmat_type), intent(out) :: a class(psb_d_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -1527,7 +1527,7 @@ subroutine psb_d_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -1536,8 +1536,8 @@ subroutine psb_d_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1553,11 +1553,11 @@ subroutine psb_d_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_to - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -1568,7 +1568,7 @@ subroutine psb_d_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_to - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1585,14 +1585,14 @@ subroutine psb_d_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_d_mold subroutine psb_dspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_dspmat_type_move - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1613,7 +1613,7 @@ subroutine psb_dspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_dspmat_clone - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1625,10 +1625,10 @@ subroutine psb_dspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1645,7 +1645,7 @@ subroutine psb_d_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_transp_1mat - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1654,7 +1654,7 @@ subroutine psb_d_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1678,7 +1678,7 @@ subroutine psb_d_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_transp_2mat - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b @@ -1688,18 +1688,18 @@ subroutine psb_d_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -1716,7 +1716,7 @@ subroutine psb_d_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_transc_1mat - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1725,7 +1725,7 @@ subroutine psb_d_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1749,7 +1749,7 @@ subroutine psb_d_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_d_transc_2mat - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b @@ -1759,18 +1759,18 @@ subroutine psb_d_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -1786,9 +1786,9 @@ end subroutine psb_d_transc_2mat subroutine psb_d_asb(a,mold) use psb_d_mat_mod, psb_protect_name => psb_d_asb use psb_error_mod - implicit none + implicit none - class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), optional, intent(in) :: mold class(psb_d_base_sparse_mat), allocatable :: tmp class(psb_d_base_sparse_mat), pointer :: mld @@ -1796,15 +1796,15 @@ subroutine psb_d_asb(a,mold) character(len=20) :: name='d_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -1815,7 +1815,7 @@ subroutine psb_d_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -1830,21 +1830,21 @@ end subroutine psb_d_asb subroutine psb_d_reinit(a,clear) use psb_d_mat_mod, psb_protect_name => psb_d_reinit use psb_error_mod - implicit none + implicit none - class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -1879,10 +1879,10 @@ end subroutine psb_d_reinit ! == =================================== -subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_d_mat_mod, psb_protect_name => psb_d_csmm - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -1894,14 +1894,14 @@ subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1912,10 +1912,10 @@ subroutine psb_d_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_d_csmm -subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_d_mat_mod, psb_protect_name => psb_d_csmv - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -1927,14 +1927,14 @@ subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1944,11 +1944,11 @@ subroutine psb_d_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_d_csmv -subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) +subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_d_vect_mod use psb_d_mat_mod, psb_protect_name => psb_d_csmv_vect - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x @@ -1961,25 +1961,25 @@ subroutine psb_d_csmv_vect(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x%v,beta,y%v,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1991,10 +1991,10 @@ end subroutine psb_d_csmv_vect -subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_d_mat_mod, psb_protect_name => psb_d_cssm - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:,:) real(psb_dpk_), intent(inout) :: y(:,:) @@ -2007,14 +2007,14 @@ subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2026,10 +2026,10 @@ subroutine psb_d_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_d_cssm -subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_d_mat_mod, psb_protect_name => psb_d_cssv - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta, x(:) real(psb_dpk_), intent(inout) :: y(:) @@ -2042,15 +2042,15 @@ subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2062,11 +2062,11 @@ subroutine psb_d_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_d_cssv -subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_d_vect_mod use psb_d_mat_mod, psb_protect_name => psb_d_cssv_vect - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), intent(in) :: alpha, beta type(psb_d_vect_type), intent(inout) :: x @@ -2080,33 +2080,33 @@ subroutine psb_d_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (present(d)) then - if (.not.allocated(d%v)) then + if (present(d)) then + if (.not.allocated(d%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) else - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2121,7 +2121,7 @@ function psb_d_maxval(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_d_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2132,7 +2132,7 @@ function psb_d_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2152,7 +2152,7 @@ function psb_d_csnmi(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_d_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2162,7 +2162,7 @@ function psb_d_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2183,7 +2183,7 @@ function psb_d_csnm1(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_d_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2193,7 +2193,7 @@ function psb_d_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2214,7 +2214,7 @@ function psb_d_rowsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_d_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2225,7 +2225,7 @@ function psb_d_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2247,7 +2247,7 @@ function psb_d_arwsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_d_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2258,7 +2258,7 @@ function psb_d_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2281,7 +2281,7 @@ function psb_d_colsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_d_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2292,7 +2292,7 @@ function psb_d_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2315,7 +2315,7 @@ function psb_d_aclsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_d_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2326,7 +2326,7 @@ function psb_d_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2350,7 +2350,7 @@ function psb_d_get_diag(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_d_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2361,14 +2361,14 @@ function psb_d_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -2389,7 +2389,7 @@ subroutine psb_d_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_scal - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2401,7 +2401,7 @@ subroutine psb_d_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2424,7 +2424,7 @@ subroutine psb_d_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_scals - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -2435,7 +2435,7 @@ subroutine psb_d_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2453,27 +2453,60 @@ subroutine psb_d_scals(d,a,info) end subroutine psb_d_scals +subroutine psb_d_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_d_scalplusidentity + implicit none + class(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_d_scalplusidentity + subroutine psb_d_mv_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_from_lb - implicit none - + implicit none + class(psb_dspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_d_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_lfmt(b,info) - + end subroutine psb_d_mv_from_lb - + subroutine psb_d_cp_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_from_lb - implicit none - + implicit none + class(psb_dspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -2487,30 +2520,30 @@ subroutine psb_d_mv_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_to_lb - implicit none - + implicit none + class(psb_dspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_lfmt(b,info) call a%free() end if - + end subroutine psb_d_mv_to_lb subroutine psb_d_cp_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_to_lb - implicit none + implicit none class(psb_dspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -2523,7 +2556,7 @@ subroutine psb_d_mv_from_l(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_from_l - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -2535,20 +2568,20 @@ subroutine psb_d_mv_from_l(a,b) call a%free() end if call b%free() - + end subroutine psb_d_mv_from_l - + subroutine psb_d_cp_from_l(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_from_l - implicit none + implicit none class(psb_dspmat_type), intent(out) :: a class(psb_ldspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_d_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_lfmt(b%a,info) @@ -2561,12 +2594,12 @@ subroutine psb_d_mv_to_l(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_mv_to_l - implicit none + implicit none class(psb_dspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_ld_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_lfmt(b%a,info) @@ -2574,26 +2607,26 @@ subroutine psb_d_mv_to_l(a,b) call b%free() end if call a%free() - + end subroutine psb_d_mv_to_l subroutine psb_d_cp_to_l(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_d_cp_to_l - implicit none - + implicit none + class(psb_dspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_ld_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_lfmt(b%a,info) else call b%free() end if - + end subroutine psb_d_cp_to_l @@ -2603,10 +2636,10 @@ end subroutine psb_d_cp_to_l ! -subroutine psb_ld_set_lnrows(m,a) +subroutine psb_ld_set_lnrows(m,a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_lnrows use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2614,7 +2647,7 @@ subroutine psb_ld_set_lnrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2632,10 +2665,10 @@ subroutine psb_ld_set_lnrows(m,a) end subroutine psb_ld_set_lnrows #if defined(IPK4) && defined(LPK8) -subroutine psb_ld_set_inrows(m,a) +subroutine psb_ld_set_inrows(m,a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_inrows use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2643,7 +2676,7 @@ subroutine psb_ld_set_inrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2661,10 +2694,10 @@ subroutine psb_ld_set_inrows(m,a) end subroutine psb_ld_set_inrows #endif -subroutine psb_ld_set_lncols(n,a) +subroutine psb_ld_set_lncols(n,a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_lncols use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2672,7 +2705,7 @@ subroutine psb_ld_set_lncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2689,10 +2722,10 @@ subroutine psb_ld_set_lncols(n,a) end subroutine psb_ld_set_lncols #if defined(IPK4) && defined(LPK8) -subroutine psb_ld_set_incols(n,a) +subroutine psb_ld_set_incols(n,a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_incols use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2700,7 +2733,7 @@ subroutine psb_ld_set_incols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2719,16 +2752,16 @@ end subroutine psb_ld_set_incols #endif ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_ld_set_dupl(n,a) +subroutine psb_ld_set_dupl(n,a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_dupl use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2736,7 +2769,7 @@ subroutine psb_ld_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2758,17 +2791,17 @@ end subroutine psb_ld_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_ld_set_null(a) +subroutine psb_ld_set_null(a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_null use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2786,17 +2819,17 @@ subroutine psb_ld_set_null(a) end subroutine psb_ld_set_null -subroutine psb_ld_set_bld(a) +subroutine psb_ld_set_bld(a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_bld use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2815,17 +2848,17 @@ subroutine psb_ld_set_bld(a) end subroutine psb_ld_set_bld -subroutine psb_ld_set_upd(a) +subroutine psb_ld_set_upd(a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_upd use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2845,17 +2878,17 @@ subroutine psb_ld_set_upd(a) end subroutine psb_ld_set_upd -subroutine psb_ld_set_asb(a) +subroutine psb_ld_set_asb(a) use psb_d_mat_mod, psb_protect_name => psb_ld_set_asb use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2874,10 +2907,10 @@ subroutine psb_ld_set_asb(a) end subroutine psb_ld_set_asb -subroutine psb_ld_set_sorted(a,val) +subroutine psb_ld_set_sorted(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_sorted use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2885,7 +2918,7 @@ subroutine psb_ld_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2904,10 +2937,10 @@ subroutine psb_ld_set_sorted(a,val) end subroutine psb_ld_set_sorted -subroutine psb_ld_set_triangle(a,val) +subroutine psb_ld_set_triangle(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_triangle use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2915,7 +2948,7 @@ subroutine psb_ld_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2933,10 +2966,10 @@ subroutine psb_ld_set_triangle(a,val) end subroutine psb_ld_set_triangle -subroutine psb_ld_set_symmetric(a,val) +subroutine psb_ld_set_symmetric(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2944,7 +2977,7 @@ subroutine psb_ld_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2962,10 +2995,10 @@ subroutine psb_ld_set_symmetric(a,val) end subroutine psb_ld_set_symmetric -subroutine psb_ld_set_unit(a,val) +subroutine psb_ld_set_unit(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_unit use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2973,7 +3006,7 @@ subroutine psb_ld_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2992,10 +3025,10 @@ subroutine psb_ld_set_unit(a,val) end subroutine psb_ld_set_unit -subroutine psb_ld_set_lower(a,val) +subroutine psb_ld_set_lower(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_lower use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3003,7 +3036,7 @@ subroutine psb_ld_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3022,10 +3055,10 @@ subroutine psb_ld_set_lower(a,val) end subroutine psb_ld_set_lower -subroutine psb_ld_set_upper(a,val) +subroutine psb_ld_set_upper(a,val) use psb_d_mat_mod, psb_protect_name => psb_ld_set_upper use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3033,7 +3066,7 @@ subroutine psb_ld_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3063,16 +3096,16 @@ end subroutine psb_ld_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_ld_sparse_print(iout,a,iv,head,ivr,ivc) use psb_d_mat_mod, psb_protect_name => psb_ld_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ldspmat_type), intent(in) :: a + class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3083,7 +3116,7 @@ subroutine psb_ld_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3103,10 +3136,10 @@ end subroutine psb_ld_sparse_print subroutine psb_ld_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_d_mat_mod, psb_protect_name => psb_ld_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_ldspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_ldspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3118,24 +3151,24 @@ subroutine psb_ld_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -3154,13 +3187,13 @@ end subroutine psb_ld_n_sparse_print subroutine psb_ld_get_neigh(a,idx,neigh,n,info,lev) use psb_d_mat_mod, psb_protect_name => psb_ld_get_neigh use psb_error_mod - implicit none - class(psb_ldspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + implicit none + class(psb_ldspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -3168,7 +3201,7 @@ subroutine psb_ld_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3189,17 +3222,17 @@ end subroutine psb_ld_get_neigh -subroutine psb_ld_csall(nr,nc,a,info,nz) +subroutine psb_ld_csall(nr,nc,a,info,nz) use psb_d_mat_mod, psb_protect_name => psb_ld_csall use psb_d_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -3209,13 +3242,13 @@ subroutine psb_ld_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_ld_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -3226,10 +3259,10 @@ subroutine psb_ld_csall(nr,nc,a,info,nz) end subroutine psb_ld_csall -subroutine psb_ld_reallocate_nz(nz,a) +subroutine psb_ld_reallocate_nz(nz,a) use psb_d_mat_mod, psb_protect_name => psb_ld_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3237,7 +3270,7 @@ subroutine psb_ld_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3254,31 +3287,31 @@ subroutine psb_ld_reallocate_nz(nz,a) end subroutine psb_ld_reallocate_nz -subroutine psb_ld_free(a) +subroutine psb_ld_free(a) use psb_d_mat_mod, psb_protect_name => psb_ld_free use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_ld_free -subroutine psb_ld_trim(a) +subroutine psb_ld_trim(a) use psb_d_mat_mod, psb_protect_name => psb_ld_trim use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3296,11 +3329,11 @@ end subroutine psb_ld_trim -subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_mat_mod, psb_protect_name => psb_ld_csput_a use psb_d_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -3312,15 +3345,15 @@ subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3332,13 +3365,13 @@ subroutine psb_ld_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_ld_csput_a -subroutine psb_ld_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ld_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_d_mat_mod, psb_protect_name => psb_ld_csput_v use psb_d_base_mat_mod use psb_d_vect_mod, only : psb_d_vect_type use psb_l_vect_mod, only : psb_l_vect_type use psb_error_mod - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a type(psb_d_vect_type), intent(inout) :: val type(psb_l_vect_type), intent(inout) :: ia, ja @@ -3351,19 +3384,19 @@ subroutine psb_ld_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3378,7 +3411,7 @@ end subroutine psb_ld_csput_v subroutine psb_ld_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -3401,7 +3434,7 @@ subroutine psb_ld_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3410,7 +3443,7 @@ subroutine psb_ld_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3425,7 +3458,7 @@ end subroutine psb_ld_csgetptn subroutine psb_ld_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -3449,7 +3482,7 @@ subroutine psb_ld_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3458,7 +3491,7 @@ subroutine psb_ld_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3475,7 +3508,7 @@ end subroutine psb_ld_csgetrow subroutine psb_ld_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -3500,31 +3533,31 @@ subroutine psb_ld_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3543,7 +3576,7 @@ subroutine psb_ld_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_d_base_mat_mod use psb_d_mat_mod, psb_protect_name => psb_ld_tril - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -3558,22 +3591,22 @@ subroutine psb_ld_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3582,7 +3615,7 @@ subroutine psb_ld_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3600,7 +3633,7 @@ subroutine psb_ld_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_d_base_mat_mod use psb_d_mat_mod, psb_protect_name => psb_ld_triu - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -3616,24 +3649,24 @@ subroutine psb_ld_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3642,7 +3675,7 @@ subroutine psb_ld_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3657,7 +3690,7 @@ end subroutine psb_ld_triu subroutine psb_ld_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -3677,24 +3710,24 @@ subroutine psb_ld_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -3708,7 +3741,7 @@ end subroutine psb_ld_csclip subroutine psb_ld_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -3727,7 +3760,7 @@ subroutine psb_ld_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3735,7 +3768,7 @@ subroutine psb_ld_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3754,7 +3787,7 @@ subroutine psb_ld_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cscnv - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3771,7 +3804,7 @@ subroutine psb_ld_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3783,38 +3816,38 @@ subroutine psb_ld_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_ld_csr_sparse_mat :: altmp, stat=info) + allocate(psb_ld_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_ld_coo_sparse_mat :: altmp, stat=info) + allocate(psb_ld_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_ld_csc_sparse_mat :: altmp, stat=info) + allocate(psb_ld_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -3832,7 +3865,7 @@ subroutine psb_ld_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%asb() + call b%asb() call psb_erractionrestore(err_act) return @@ -3849,7 +3882,7 @@ subroutine psb_ld_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cscnv_ip - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3866,15 +3899,15 @@ subroutine psb_ld_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -3884,29 +3917,29 @@ subroutine psb_ld_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_ld_csr_sparse_mat :: altmp, stat=info) + allocate(psb_ld_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_ld_coo_sparse_mat :: altmp, stat=info) + allocate(psb_ld_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_ld_csc_sparse_mat :: altmp, stat=info) + allocate(psb_ld_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -3924,7 +3957,7 @@ subroutine psb_ld_cscnv_ip(a,info,type,mold,dupl) end if call move_alloc(altmp,a%a) - call a%set_asb() + call a%set_asb() call a%trim() call psb_erractionrestore(err_act) return @@ -3942,7 +3975,7 @@ subroutine psb_ld_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cscnv_base - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -3957,19 +3990,19 @@ subroutine psb_ld_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -3991,7 +4024,7 @@ end subroutine psb_ld_cscnv_base subroutine psb_ld_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -4010,15 +4043,15 @@ subroutine psb_ld_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -4027,8 +4060,8 @@ subroutine psb_ld_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4051,7 +4084,7 @@ end subroutine psb_ld_clip_d subroutine psb_ld_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_d_base_mat_mod @@ -4069,13 +4102,13 @@ subroutine psb_ld_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -4086,8 +4119,8 @@ subroutine psb_ld_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4112,7 +4145,7 @@ subroutine psb_ld_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_from - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4130,7 +4163,7 @@ subroutine psb_ld_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_from - implicit none + implicit none class(psb_ldspmat_type), intent(out) :: a class(psb_ld_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -4139,7 +4172,7 @@ subroutine psb_ld_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -4148,8 +4181,8 @@ subroutine psb_ld_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4165,11 +4198,11 @@ subroutine psb_ld_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_to - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -4180,7 +4213,7 @@ subroutine psb_ld_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_to - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ld_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4197,14 +4230,14 @@ subroutine psb_ld_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_ld_mold subroutine psb_ldspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ldspmat_type_move - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4225,7 +4258,7 @@ subroutine psb_ldspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ldspmat_clone - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_ldspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4237,10 +4270,10 @@ subroutine psb_ldspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4257,7 +4290,7 @@ subroutine psb_ld_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_transp_1mat - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4266,7 +4299,7 @@ subroutine psb_ld_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4290,7 +4323,7 @@ subroutine psb_ld_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_transp_2mat - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b @@ -4300,18 +4333,18 @@ subroutine psb_ld_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -4328,7 +4361,7 @@ subroutine psb_ld_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_transc_1mat - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4337,7 +4370,7 @@ subroutine psb_ld_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4361,7 +4394,7 @@ subroutine psb_ld_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_d_mat_mod, psb_protect_name => psb_ld_transc_2mat - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_ldspmat_type), intent(inout) :: b @@ -4371,18 +4404,18 @@ subroutine psb_ld_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -4398,9 +4431,9 @@ end subroutine psb_ld_transc_2mat subroutine psb_ld_asb(a,mold) use psb_d_mat_mod, psb_protect_name => psb_ld_asb use psb_error_mod - implicit none + implicit none - class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: a class(psb_ld_base_sparse_mat), optional, intent(in) :: mold class(psb_ld_base_sparse_mat), allocatable :: tmp class(psb_ld_base_sparse_mat), pointer :: mld @@ -4408,15 +4441,15 @@ subroutine psb_ld_asb(a,mold) character(len=20) :: name='ld_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -4427,7 +4460,7 @@ subroutine psb_ld_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -4442,21 +4475,21 @@ end subroutine psb_ld_asb subroutine psb_ld_reinit(a,clear) use psb_d_mat_mod, psb_protect_name => psb_ld_reinit use psb_error_mod - implicit none + implicit none - class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -4481,7 +4514,7 @@ function psb_ld_get_diag(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_ld_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4492,14 +4525,14 @@ function psb_ld_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -4520,7 +4553,7 @@ subroutine psb_ld_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_scal - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4532,7 +4565,7 @@ subroutine psb_ld_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4555,7 +4588,7 @@ subroutine psb_ld_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_scals - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a real(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4566,7 +4599,7 @@ subroutine psb_ld_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4588,7 +4621,7 @@ function psb_ld_maxval(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_ld_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4599,7 +4632,7 @@ function psb_ld_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4619,7 +4652,7 @@ function psb_ld_csnmi(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_ld_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4629,7 +4662,7 @@ function psb_ld_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4649,7 +4682,7 @@ function psb_ld_csnm1(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_ld_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4659,7 +4692,7 @@ function psb_ld_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4680,7 +4713,7 @@ function psb_ld_rowsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_ld_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4691,7 +4724,7 @@ function psb_ld_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4713,7 +4746,7 @@ function psb_ld_arwsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_ld_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4724,7 +4757,7 @@ function psb_ld_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4747,7 +4780,7 @@ function psb_ld_colsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_ld_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4758,7 +4791,7 @@ function psb_ld_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4781,7 +4814,7 @@ function psb_ld_aclsum(a,info) result(d) use psb_d_mat_mod, psb_protect_name => psb_ld_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4792,7 +4825,7 @@ function psb_ld_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4815,22 +4848,22 @@ subroutine psb_ld_mv_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_from_ib - implicit none - + implicit none + class(psb_ldspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_ld_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_ifmt(b,info) - + end subroutine psb_ld_mv_from_ib - + subroutine psb_ld_cp_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_from_ib - implicit none - + implicit none + class(psb_ldspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4844,30 +4877,30 @@ subroutine psb_ld_mv_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_to_ib - implicit none - + implicit none + class(psb_ldspmat_type), intent(inout) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_ifmt(b,info) call a%free() end if - + end subroutine psb_ld_mv_to_ib subroutine psb_ld_cp_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_to_ib - implicit none + implicit none class(psb_ldspmat_type), intent(in) :: a class(psb_d_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -4880,7 +4913,7 @@ subroutine psb_ld_mv_from_i(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_from_i - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -4892,20 +4925,20 @@ subroutine psb_ld_mv_from_i(a,b) call a%free() end if call b%free() - + end subroutine psb_ld_mv_from_i - + subroutine psb_ld_cp_from_i(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_from_i - implicit none + implicit none class(psb_ldspmat_type), intent(out) :: a class(psb_dspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_ld_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_ifmt(b%a,info) @@ -4918,12 +4951,12 @@ subroutine psb_ld_mv_to_i(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_mv_to_i - implicit none + implicit none class(psb_ldspmat_type), intent(inout) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_d_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_ifmt(b%a,info) @@ -4931,28 +4964,24 @@ subroutine psb_ld_mv_to_i(a,b) call b%free() end if call a%free() - + end subroutine psb_ld_mv_to_i subroutine psb_ld_cp_to_i(a,b) use psb_error_mod use psb_const_mod use psb_d_mat_mod, psb_protect_name => psb_ld_cp_to_i - implicit none - + implicit none + class(psb_ldspmat_type), intent(in) :: a class(psb_dspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_d_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_ifmt(b%a,info) else call b%free() end if - + end subroutine psb_ld_cp_to_i - - - - diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index 1505ba405..f59e7b004 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == ================================== ! ! @@ -45,7 +45,7 @@ subroutine psb_s_base_cp_to_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -69,7 +69,7 @@ subroutine psb_s_base_cp_from_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -94,7 +94,7 @@ subroutine psb_s_base_cp_to_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -103,10 +103,10 @@ subroutine psb_s_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -117,12 +117,12 @@ subroutine psb_s_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -136,7 +136,7 @@ subroutine psb_s_base_cp_from_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -148,10 +148,10 @@ subroutine psb_s_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_s_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -160,8 +160,8 @@ subroutine psb_s_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -181,7 +181,7 @@ subroutine psb_s_base_mv_to_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -193,17 +193,17 @@ subroutine psb_s_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -218,7 +218,7 @@ subroutine psb_s_base_mv_from_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -229,17 +229,17 @@ subroutine psb_s_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -255,7 +255,7 @@ subroutine psb_s_base_mv_to_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -267,7 +267,7 @@ subroutine psb_s_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_s_coo_sparse_mat) @@ -285,7 +285,7 @@ subroutine psb_s_base_mv_from_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -297,7 +297,7 @@ subroutine psb_s_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_s_coo_sparse_mat) @@ -313,23 +313,23 @@ end subroutine psb_s_base_mv_from_fmt subroutine psb_s_base_clean_zeros(a, info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_clean_zeros - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_s_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_s_base_clean_zeros -subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csput_a - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -350,11 +350,11 @@ subroutine psb_s_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_s_base_csput_a -subroutine psb_s_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csput_v use psb_s_base_vect_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -366,24 +366,24 @@ subroutine psb_s_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() if (ia%is_dev()) call ia%sync() if (ja%is_dev()) call ja%sync() - call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -395,7 +395,7 @@ end subroutine psb_s_base_csput_v subroutine psb_s_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csgetrow @@ -433,7 +433,7 @@ end subroutine psb_s_base_csgetrow ! subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csgetblk @@ -456,22 +456,22 @@ subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -486,19 +486,19 @@ subroutine psb_s_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 's_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -526,7 +526,7 @@ end subroutine psb_s_base_csgetblk subroutine psb_s_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csclip @@ -547,46 +547,46 @@ subroutine psb_s_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -615,7 +615,7 @@ end subroutine psb_s_base_csclip ! subroutine psb_s_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_tril @@ -627,8 +627,8 @@ subroutine psb_s_base_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_s_coo_sparse_mat), optional, intent(out) :: u - - integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk + + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) real(psb_spk_), allocatable :: val(:) @@ -640,51 +640,51 @@ subroutine psb_s_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -716,7 +716,7 @@ subroutine psb_s_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -724,8 +724,8 @@ subroutine psb_s_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -738,7 +738,7 @@ subroutine psb_s_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -747,8 +747,8 @@ subroutine psb_s_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -766,7 +766,7 @@ end subroutine psb_s_base_tril subroutine psb_s_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_triu @@ -778,7 +778,7 @@ subroutine psb_s_base_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_s_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) @@ -791,57 +791,57 @@ subroutine psb_s_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -874,13 +874,13 @@ subroutine psb_s_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -888,7 +888,7 @@ subroutine psb_s_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -897,8 +897,8 @@ subroutine psb_s_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -919,45 +919,45 @@ end subroutine psb_s_base_triu subroutine psb_s_base_clone(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_s_base_clone subroutine psb_s_base_make_nonunit(a) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat) :: tmp - - integer(psb_ipk_) :: i, j, m, n, nz, mnm, info - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + integer(psb_ipk_) :: i, j, m, n, nz, mnm, info + + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -974,10 +974,10 @@ subroutine psb_s_base_make_nonunit(a) end subroutine psb_s_base_make_nonunit -subroutine psb_s_base_mold(a,b,info) +subroutine psb_s_base_mold(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mold use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -999,7 +999,7 @@ end subroutine psb_s_base_mold subroutine psb_s_base_transp_2mat(a,b) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1019,11 +1019,11 @@ subroutine psb_s_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1035,7 +1035,7 @@ end subroutine psb_s_base_transp_2mat subroutine psb_s_base_transc_2mat(a,b) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_transc_2mat - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1055,11 +1055,11 @@ subroutine psb_s_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1071,7 +1071,7 @@ end subroutine psb_s_base_transc_2mat subroutine psb_s_base_transp_1mat(a) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a @@ -1085,12 +1085,12 @@ subroutine psb_s_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1102,7 +1102,7 @@ end subroutine psb_s_base_transp_1mat subroutine psb_s_base_transc_1mat(a) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_transc_1mat - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a @@ -1116,12 +1116,12 @@ subroutine psb_s_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1145,11 +1145,11 @@ end subroutine psb_s_base_transc_1mat ! ! == ================================== -subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csmm use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1172,10 +1172,10 @@ subroutine psb_s_base_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_s_base_csmm -subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csmv use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1199,10 +1199,10 @@ subroutine psb_s_base_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_s_base_csmv -subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_inner_cssm use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1225,10 +1225,10 @@ subroutine psb_s_base_inner_cssm(alpha,a,x,beta,y,info,trans) end subroutine psb_s_base_inner_cssm -subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_inner_cssv use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1251,11 +1251,11 @@ subroutine psb_s_base_inner_cssv(alpha,a,x,beta,y,info,trans) end subroutine psb_s_base_inner_cssv -subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cssm use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1271,7 +1271,7 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1291,42 +1291,42 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) then + allocate(tmp(nac,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) then do i=1, nac - tmp(i,1:nc) = d(i)*x(i,1:nc) + tmp(i,1:nc) = d(i)*x(i,1:nc) end do end if if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ @@ -1334,21 +1334,21 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - allocate(tmp(nar,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(sone,x,szero,tmp,info,trans) - if (info == psb_success_)then + if (info == psb_success_)then do i=1, nar - tmp(i,1:nc) = d(i)*tmp(i,1:nc) + tmp(i,1:nc) = d(i)*tmp(i,1:nc) end do end if if (info == psb_success_)& & call psb_geaxpby(nar,nc,alpha,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if @@ -1357,13 +1357,13 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_cssm') goto 9999 end if @@ -1378,11 +1378,11 @@ subroutine psb_s_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_s_base_cssm -subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cssv use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1418,58 +1418,58 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call inner_vscal(nac,d,x,tmp) + allocate(tmp(nac),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call inner_vscal(nac,d,x,tmp) if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == szero) then + if (beta == szero) then call a%inner_spsm(alpha,x,szero,y,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,y) else - allocate(tmp(nar),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,szero,tmp,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,tmp) if (info == psb_success_)& & call psb_geaxpby(nar,sone,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1479,13 +1479,13 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1500,37 +1500,37 @@ subroutine psb_s_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) return contains subroutine inner_vscal(n,d,x,y) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n real(psb_spk_), intent(in) :: d(*),x(*) real(psb_spk_), intent(out) :: y(*) integer(psb_ipk_) :: i do i=1,n - y(i) = d(i)*x(i) + y(i) = d(i)*x(i) end do end subroutine inner_vscal subroutine inner_vscal1(n,d,x) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n real(psb_spk_), intent(in) :: d(*) real(psb_spk_), intent(inout) :: x(*) integer(psb_ipk_) :: i do i=1,n - x(i) = d(i)*x(i) + x(i) = d(i)*x(i) end do end subroutine inner_vscal1 end subroutine psb_s_base_cssv -subroutine psb_s_base_scals(d,a,info) +subroutine psb_s_base_scals(d,a,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_scals use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1550,12 +1550,33 @@ subroutine psb_s_base_scals(d,a,info) end subroutine psb_s_base_scals +subroutine psb_s_base_scalplusidentity(d,a,info) + use psb_s_base_mat_mod, psb_protect_name => psb_s_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_s_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='s_scalplusidentity' + logical, parameter :: debug=.false. -subroutine psb_s_base_scal(d,a,info,side) + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_s_base_scalplusidentity + +subroutine psb_s_base_scal(d,a,info,side) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_scal use psb_error_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1581,7 +1602,7 @@ function psb_s_base_maxval(a) result(res) use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_maxval - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1608,27 +1629,27 @@ function psb_s_base_csnmi(a) result(res) use psb_realloc_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csnmi - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1646,27 +1667,27 @@ function psb_s_base_csnm1(a) result(res) use psb_realloc_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_csnm1 - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1678,7 +1699,7 @@ function psb_s_base_csnm1(a) result(res) end function psb_s_base_csnm1 -subroutine psb_s_base_rowsum(d,a) +subroutine psb_s_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_rowsum @@ -1700,7 +1721,7 @@ subroutine psb_s_base_rowsum(d,a) end subroutine psb_s_base_rowsum -subroutine psb_s_base_arwsum(d,a) +subroutine psb_s_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_arwsum @@ -1722,7 +1743,7 @@ subroutine psb_s_base_arwsum(d,a) end subroutine psb_s_base_arwsum -subroutine psb_s_base_colsum(d,a) +subroutine psb_s_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_colsum @@ -1744,7 +1765,7 @@ subroutine psb_s_base_colsum(d,a) end subroutine psb_s_base_colsum -subroutine psb_s_base_aclsum(d,a) +subroutine psb_s_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_aclsum @@ -1766,12 +1787,12 @@ subroutine psb_s_base_aclsum(d,a) end subroutine psb_s_base_aclsum -subroutine psb_s_base_get_diag(a,d,info) +subroutine psb_s_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_get_diag - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1797,9 +1818,9 @@ end subroutine psb_s_base_get_diag ! ! ! Computational routines for s_VECT -! variables. If the actual data type is -! a "normal" one, these are sufficient. -! +! variables. If the actual data type is +! a "normal" one, these are sufficient. +! ! ! ! @@ -1807,11 +1828,11 @@ end subroutine psb_s_base_get_diag -subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_base_vect_mv - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x @@ -1820,7 +1841,7 @@ subroutine psb_s_base_vect_mv(alpha,a,x,beta,y,info,trans) character, optional, intent(in) :: trans ! For the time being we just throw everything back - ! onto the normal routines. + ! onto the normal routines. call x%sync() call y%sync() call a%spmm(alpha,x%v,beta,y%v,info,trans) @@ -1832,7 +1853,7 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_s_base_vect_mod use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x,y @@ -1869,54 +1890,54 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - call x%sync() + call x%sync() call y%sync() - if (present(d)) then + if (present(d)) then call d%sync() - if (present(scale)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (d%get_nrows() < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call tmpv%mlt(sone,d%v(1:nac),x,szero,info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call tmpv%mlt(sone,d%v(1:nac),x,szero,info) if (info == psb_success_)& & call a%inner_spsm(alpha,tmpv,beta,y,info,trans) - if (info == psb_success_) then + if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (d%get_nrows() < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == szero) then + if (beta == szero) then call a%inner_spsm(alpha,x,szero,y,info,trans) if (info == psb_success_) call y%mlt(d%v(1:nar),info) else allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,szero,tmpv,info,trans) @@ -1925,7 +1946,7 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) & call y%axpby(nar,sone,tmpv,beta,info) if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1935,13 +1956,13 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1958,12 +1979,12 @@ subroutine psb_s_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_s_base_vect_cssv -subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_inner_vect_sv use psb_error_mod use psb_string_mod use psb_s_base_vect_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta class(psb_s_base_vect_type), intent(inout) :: x, y @@ -1977,10 +1998,10 @@ subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) + call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1988,7 +2009,7 @@ subroutine psb_s_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) call psb_erractionrestore(err_act) return - + 9999 call psb_error_handler(err_act) return @@ -2000,7 +2021,7 @@ subroutine psb_s_base_cp_to_lcoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2009,22 +2030,22 @@ subroutine psb_s_base_cp_to_lcoo(a,b,info) character(len=20) :: name='to_lcoo' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_lcoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2038,7 +2059,7 @@ subroutine psb_s_base_cp_from_lcoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2047,22 +2068,22 @@ subroutine psb_s_base_cp_from_lcoo(a,b,info) character(len=20) :: name='from_coo' logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_lcoo(b,info) + call tmp%cp_from_lcoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2076,7 +2097,7 @@ subroutine psb_s_base_cp_to_lfmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2086,10 +2107,10 @@ subroutine psb_s_base_cp_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: icoo type(psb_ls_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2102,12 +2123,12 @@ subroutine psb_s_base_cp_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2121,7 +2142,7 @@ subroutine psb_s_base_cp_from_lfmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cp_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2133,10 +2154,10 @@ subroutine psb_s_base_cp_from_lfmt(a,b,info) type(psb_ls_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ls_coo_sparse_mat) call a%cp_from_lcoo(b,info) @@ -2146,8 +2167,8 @@ subroutine psb_s_base_cp_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2166,7 +2187,7 @@ subroutine psb_s_base_mv_to_lcoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2178,17 +2199,17 @@ subroutine psb_s_base_mv_to_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2202,7 +2223,7 @@ subroutine psb_s_base_mv_from_lcoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2213,17 +2234,17 @@ subroutine psb_s_base_mv_from_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2238,7 +2259,7 @@ subroutine psb_s_base_mv_to_lfmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2248,10 +2269,10 @@ subroutine psb_s_base_mv_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: icoo type(psb_ls_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2264,12 +2285,12 @@ subroutine psb_s_base_mv_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2283,7 +2304,7 @@ subroutine psb_s_base_mv_from_lfmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_base_mv_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_s_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2295,10 +2316,10 @@ subroutine psb_s_base_mv_from_lfmt(a,b,info) type(psb_ls_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ls_coo_sparse_mat) call a%mv_from_lcoo(b,info) @@ -2308,8 +2329,8 @@ subroutine psb_s_base_mv_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2343,7 +2364,7 @@ subroutine psb_ls_base_cp_to_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2367,7 +2388,7 @@ subroutine psb_ls_base_cp_from_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2392,7 +2413,7 @@ subroutine psb_ls_base_cp_to_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2401,10 +2422,10 @@ subroutine psb_ls_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_ls_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2415,12 +2436,12 @@ subroutine psb_ls_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2434,7 +2455,7 @@ subroutine psb_ls_base_cp_from_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2446,10 +2467,10 @@ subroutine psb_ls_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_ls_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -2458,8 +2479,8 @@ subroutine psb_ls_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2479,7 +2500,7 @@ subroutine psb_ls_base_mv_to_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2491,17 +2512,17 @@ subroutine psb_ls_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2516,7 +2537,7 @@ subroutine psb_ls_base_mv_from_coo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2527,17 +2548,17 @@ subroutine psb_ls_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2552,7 +2573,7 @@ subroutine psb_ls_base_mv_to_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2564,7 +2585,7 @@ subroutine psb_ls_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_ls_coo_sparse_mat) @@ -2582,7 +2603,7 @@ subroutine psb_ls_base_mv_from_fmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2594,7 +2615,7 @@ subroutine psb_ls_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_ls_coo_sparse_mat) @@ -2610,23 +2631,23 @@ end subroutine psb_ls_base_mv_from_fmt subroutine psb_ls_base_clean_zeros(a, info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_clean_zeros - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_ls_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_ls_base_clean_zeros -subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csput_a - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -2647,11 +2668,11 @@ subroutine psb_ls_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_ls_base_csput_a -subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csput_v use psb_s_base_vect_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2664,10 +2685,10 @@ subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() @@ -2677,11 +2698,11 @@ subroutine psb_ls_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2693,7 +2714,7 @@ end subroutine psb_ls_base_csput_v subroutine psb_ls_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csgetrow @@ -2733,7 +2754,7 @@ end subroutine psb_ls_base_csgetrow ! subroutine psb_ls_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csgetblk @@ -2757,22 +2778,22 @@ subroutine psb_ls_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -2787,19 +2808,19 @@ subroutine psb_ls_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'ls_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -2827,7 +2848,7 @@ end subroutine psb_ls_base_csgetblk subroutine psb_ls_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csclip @@ -2849,46 +2870,46 @@ subroutine psb_ls_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -2917,7 +2938,7 @@ end subroutine psb_ls_base_csclip ! subroutine psb_ls_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_tril @@ -2929,9 +2950,9 @@ subroutine psb_ls_base_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ls_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act - integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk + integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_lpk_), allocatable :: ia(:), ja(:) real(psb_spk_), allocatable :: val(:) @@ -2943,51 +2964,51 @@ subroutine psb_ls_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -3019,7 +3040,7 @@ subroutine psb_ls_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -3027,8 +3048,8 @@ subroutine psb_ls_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -3041,7 +3062,7 @@ subroutine psb_ls_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -3050,8 +3071,8 @@ subroutine psb_ls_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -3069,7 +3090,7 @@ end subroutine psb_ls_base_tril subroutine psb_ls_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_triu @@ -3081,7 +3102,7 @@ subroutine psb_ls_base_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ls_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -3095,57 +3116,57 @@ subroutine psb_ls_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -3178,13 +3199,13 @@ subroutine psb_ls_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -3192,7 +3213,7 @@ subroutine psb_ls_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -3201,8 +3222,8 @@ subroutine psb_ls_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -3223,46 +3244,46 @@ end subroutine psb_ls_base_triu subroutine psb_ls_base_clone(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_ls_base_clone subroutine psb_ls_base_make_nonunit(a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a type(psb_ls_coo_sparse_mat) :: tmp - + integer(psb_ipk_) :: info integer(psb_lpk_) :: i, j, m, n, nz, mnm - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -3279,10 +3300,10 @@ subroutine psb_ls_base_make_nonunit(a) end subroutine psb_ls_base_make_nonunit -subroutine psb_ls_base_mold(a,b,info) +subroutine psb_ls_base_mold(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mold use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3304,7 +3325,7 @@ end subroutine psb_ls_base_mold subroutine psb_ls_base_transp_2mat(a,b) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3324,11 +3345,11 @@ subroutine psb_ls_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3340,7 +3361,7 @@ end subroutine psb_ls_base_transp_2mat subroutine psb_ls_base_transc_2mat(a,b) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_transc_2mat - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3360,11 +3381,11 @@ subroutine psb_ls_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3376,7 +3397,7 @@ end subroutine psb_ls_base_transc_2mat subroutine psb_ls_base_transp_1mat(a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a @@ -3390,12 +3411,12 @@ subroutine psb_ls_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3407,7 +3428,7 @@ end subroutine psb_ls_base_transp_1mat subroutine psb_ls_base_transc_1mat(a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_transc_1mat - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a @@ -3421,12 +3442,12 @@ subroutine psb_ls_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3436,10 +3457,10 @@ subroutine psb_ls_base_transc_1mat(a) end subroutine psb_ls_base_transc_1mat -subroutine psb_ls_base_scals(d,a,info) +subroutine psb_ls_base_scals(d,a,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_scals use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3459,10 +3480,10 @@ subroutine psb_ls_base_scals(d,a,info) end subroutine psb_ls_base_scals -subroutine psb_ls_base_scal(d,a,info,side) +subroutine psb_ls_base_scal(d,a,info,side) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_scal use psb_error_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3488,7 +3509,7 @@ function psb_ls_base_maxval(a) result(res) use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_maxval - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3514,27 +3535,27 @@ function psb_ls_base_csnmi(a) result(res) use psb_realloc_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csnmi - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3551,27 +3572,27 @@ function psb_ls_base_csnm1(a) result(res) use psb_realloc_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_csnm1 - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_spk_), allocatable :: vt(:) - + real(psb_spk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = szero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3582,7 +3603,7 @@ function psb_ls_base_csnm1(a) result(res) end function psb_ls_base_csnm1 -subroutine psb_ls_base_rowsum(d,a) +subroutine psb_ls_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_rowsum @@ -3604,7 +3625,7 @@ subroutine psb_ls_base_rowsum(d,a) end subroutine psb_ls_base_rowsum -subroutine psb_ls_base_arwsum(d,a) +subroutine psb_ls_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_arwsum @@ -3626,7 +3647,7 @@ subroutine psb_ls_base_arwsum(d,a) end subroutine psb_ls_base_arwsum -subroutine psb_ls_base_colsum(d,a) +subroutine psb_ls_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_colsum @@ -3648,7 +3669,7 @@ subroutine psb_ls_base_colsum(d,a) end subroutine psb_ls_base_colsum -subroutine psb_ls_base_aclsum(d,a) +subroutine psb_ls_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_aclsum @@ -3670,12 +3691,12 @@ subroutine psb_ls_base_aclsum(d,a) end subroutine psb_ls_base_aclsum -subroutine psb_ls_base_get_diag(a,d,info) +subroutine psb_ls_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_get_diag - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3701,7 +3722,7 @@ subroutine psb_ls_base_cp_to_icoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3710,22 +3731,22 @@ subroutine psb_ls_base_cp_to_icoo(a,b,info) character(len=20) :: name='to_coo' logical, parameter :: debug=.false. type(psb_ls_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_icoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3739,7 +3760,7 @@ subroutine psb_ls_base_cp_from_icoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3748,22 +3769,22 @@ subroutine psb_ls_base_cp_from_icoo(a,b,info) character(len=20) :: name='from_icoo' logical, parameter :: debug=.false. type(psb_ls_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_icoo(b,info) + call tmp%cp_from_icoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3778,7 +3799,7 @@ subroutine psb_ls_base_cp_to_ifmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3788,10 +3809,10 @@ subroutine psb_ls_base_cp_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: icoo type(psb_ls_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3804,12 +3825,12 @@ subroutine psb_ls_base_cp_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3823,7 +3844,7 @@ subroutine psb_ls_base_cp_from_ifmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cp_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3835,10 +3856,10 @@ subroutine psb_ls_base_cp_from_ifmt(a,b,info) type(psb_ls_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_s_coo_sparse_mat) call a%cp_from_icoo(b,info) @@ -3848,8 +3869,8 @@ subroutine psb_ls_base_cp_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -3868,7 +3889,7 @@ subroutine psb_ls_base_mv_to_icoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3880,17 +3901,17 @@ subroutine psb_ls_base_mv_to_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -3905,7 +3926,7 @@ subroutine psb_ls_base_mv_from_icoo(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3916,17 +3937,17 @@ subroutine psb_ls_base_mv_from_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -3942,7 +3963,7 @@ subroutine psb_ls_base_mv_to_ifmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3952,10 +3973,10 @@ subroutine psb_ls_base_mv_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_s_coo_sparse_mat) :: icoo type(psb_ls_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3968,12 +3989,12 @@ subroutine psb_ls_base_mv_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3987,7 +4008,7 @@ subroutine psb_ls_base_mv_from_ifmt(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_mv_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_ls_base_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3999,10 +4020,10 @@ subroutine psb_ls_base_mv_from_ifmt(a,b,info) type(psb_ls_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_s_coo_sparse_mat) call a%mv_from_icoo(b,info) @@ -4012,8 +4033,8 @@ subroutine psb_ls_base_mv_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -4026,5 +4047,3 @@ subroutine psb_ls_base_mv_from_ifmt(a,b,info) return end subroutine psb_ls_base_mv_from_ifmt - - diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index dee2d3c2f..ed92304af 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! -subroutine psb_s_coo_get_diag(a,d,info) +! +! +subroutine psb_s_coo_get_diag(a,d,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -47,19 +47,19 @@ subroutine psb_s_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = sone + if (a%is_unit()) then + d(1:mnm) = sone else d(1:mnm) = szero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -74,12 +74,12 @@ subroutine psb_s_coo_get_diag(a,d,info) end subroutine psb_s_coo_get_diag -subroutine psb_s_coo_scal(d,a,info,side) +subroutine psb_s_coo_scal(d,a,info,side) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -88,44 +88,44 @@ subroutine psb_s_coo_scal(d,a,info,side) integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -143,11 +143,11 @@ subroutine psb_s_coo_scal(d,a,info,side) end subroutine psb_s_coo_scal -subroutine psb_s_coo_scals(d,a,info) +subroutine psb_s_coo_scals(d,a,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -160,13 +160,14 @@ subroutine psb_s_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo + call a%set_host() call psb_erractionrestore(err_act) @@ -178,12 +179,52 @@ subroutine psb_s_coo_scals(d,a,info) end subroutine psb_s_coo_scals +subroutine psb_s_coo_scalplusidentity(d,a,info) + use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_s_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -subroutine psb_s_coo_reallocate_nz(nz,a) + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + sone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_s_coo_scalplusidentity + + +subroutine psb_s_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz_ @@ -197,7 +238,7 @@ subroutine psb_s_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -211,10 +252,10 @@ subroutine psb_s_coo_reallocate_nz(nz,a) end subroutine psb_s_coo_reallocate_nz -subroutine psb_s_coo_mold(a,b,info) +subroutine psb_s_coo_mold(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_mold use psb_error_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -223,16 +264,16 @@ subroutine psb_s_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_s_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -247,9 +288,9 @@ end subroutine psb_s_coo_mold subroutine psb_s_coo_reinit(a,clear) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_s_coo_sparse_mat), intent(inout) :: a + class(psb_s_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -261,17 +302,17 @@ subroutine psb_s_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_host() call a%set_upd() @@ -296,7 +337,7 @@ subroutine psb_s_coo_trim(a) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' @@ -310,7 +351,7 @@ subroutine psb_s_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -323,13 +364,13 @@ end subroutine psb_s_coo_trim subroutine psb_s_coo_clean_zeros(a, info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_clean_zeros - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -340,17 +381,17 @@ subroutine psb_s_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_s_coo_clean_zeros -subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -360,22 +401,22 @@ subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -383,7 +424,7 @@ subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(izero) @@ -395,7 +436,7 @@ subroutine psb_s_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -410,10 +451,10 @@ end subroutine psb_s_coo_allocate_mnnz subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_s_coo_sparse_mat), intent(in) :: a + class(psb_s_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -423,12 +464,12 @@ subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -442,30 +483,30 @@ subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -480,7 +521,7 @@ end subroutine psb_s_coo_print function psb_s_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_get_nz_row + use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_get_nz_row implicit none class(psb_s_coo_sparse_mat), intent(in) :: a @@ -489,39 +530,39 @@ function psb_s_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. ip = psb_bsrch(idx,nza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -529,12 +570,12 @@ function psb_s_coo_get_nz_row(idx,a) result(res) end function psb_s_coo_get_nz_row -subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_cssm - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -553,14 +594,14 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif if (a%is_dev()) call a%sync() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -585,7 +626,7 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) goto 9999 end if - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) nnz = a%get_nzeros() if (alpha == szero) then @@ -601,15 +642,15 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == szero) then + if (beta == szero) then call inner_coosm(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & m,nc,nnz,a%ia,a%ja,a%val,& & x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -639,11 +680,11 @@ subroutine psb_s_coo_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosm(tra,ctra,lower,unit,sorted,nr,nc,nz,& - & ia,ja,val,x,ldx,y,ldy,info) - implicit none + & ia,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(ldx,*) @@ -661,7 +702,7 @@ contains end if - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if @@ -669,14 +710,14 @@ contains nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = szero - do + do if (j > nnz) exit if (ia(j) > i) exit acc(1:nc) = acc(1:nc) + val(j)*y(ja(j),1:nc) @@ -684,14 +725,14 @@ contains end do y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc(1:nc) = szero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j + 1 exit @@ -702,12 +743,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = szero - do + do i=nr, 1, -1 + acc(1:nc) = szero + do if (j < 1) exit if (ia(j) < i) exit acc(1:nc) = acc(1:nc) + val(j)*x(ja(j),1:nc) @@ -716,15 +757,15 @@ contains y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = szero - do + do i=nr, 1, -1 + acc(1:nc) = szero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j - 1 exit @@ -737,68 +778,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do @@ -806,68 +847,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / (val(j)) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / (val(j)) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc(1:nc) j = j + 1 end do end do @@ -882,12 +923,12 @@ end subroutine psb_s_coo_cssm -subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_cssv - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -911,7 +952,7 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -931,7 +972,7 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) call psb_errpush(info,name,i_err=(/5_psb_ipk_,size(y,1,kind=psb_ipk_),m/)) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -951,20 +992,20 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) return end if - if (beta == szero) then + if (beta == szero) then call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,y,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if do i = 1, m y(i) = alpha*y(i) end do - else - allocate(tmp(m), stat=info) - if (info /= psb_success_) then + else + allocate(tmp(m), stat=info) + if (info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') goto 9999 @@ -973,7 +1014,7 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,tmp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if @@ -989,11 +1030,11 @@ subroutine psb_s_coo_cssv(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosv(tra,ctra,lower,unit,sorted,nr,nz,& - & ia,ja,val,x,y,info) - implicit none + & ia,ja,val,x,y,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(*) @@ -1004,21 +1045,21 @@ contains real(psb_spk_) :: acc info = psb_success_ - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc = szero - do + do if (j > nnz) exit if (ia(j) > i) exit acc = acc + val(j)*y(ja(j)) @@ -1026,14 +1067,14 @@ contains end do y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc = szero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j + 1 exit @@ -1044,12 +1085,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc = szero - do + do i=nr, 1, -1 + acc = szero + do if (j < 1) exit if (ia(j) < i) exit acc = acc + val(j)*y(ja(j)) @@ -1058,15 +1099,15 @@ contains y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc = szero - do + do i=nr, 1, -1 + acc = szero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j - 1 exit @@ -1079,68 +1120,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc - j = j - 1 + y(jc) = y(jc) - val(j)*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do @@ -1148,68 +1189,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc - j = j - 1 + y(jc) = y(jc) - (val(j))*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /(val(j)) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /(val(j)) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - (val(j))*acc + y(jc) = y(jc) - (val(j))*acc j = j + 1 end do end do @@ -1223,12 +1264,12 @@ contains end subroutine psb_s_coo_cssv -subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_csmv - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) @@ -1247,7 +1288,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1265,7 +1306,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1296,8 +1337,8 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == szero) then do i = 1, min(m,n) y(i) = alpha*x(i) @@ -1306,7 +1347,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) y(i) = szero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i) = beta*y(i) + alpha*x(i) end do do i = min(m,n)+1, m @@ -1328,28 +1369,28 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) end if - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = szero - do - if (i>nnz) then + do + if (i>nnz) then y(ir) = y(ir) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir) = y(ir) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = szero endif acc = acc + a%val(i) * x(a%ja(i)) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == sone) then i = 1 @@ -1367,7 +1408,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - a%val(i)*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1377,7 +1418,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == sone) then i = 1 @@ -1395,7 +1436,7 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - (a%val(i))*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1417,12 +1458,12 @@ subroutine psb_s_coo_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_s_coo_csmv -subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_csmm - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1441,7 +1482,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1460,7 +1501,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1500,8 +1541,8 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == szero) then do i = 1, min(m,n) y(i,1:nc) = alpha*x(i,1:nc) @@ -1510,7 +1551,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) y(i,1:nc) = szero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i,1:nc) = beta*y(i,1:nc) + alpha*x(i,1:nc) end do do i = min(m,n)+1, m @@ -1532,28 +1573,28 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) end if - if (.not.tra) then + if (.not.tra) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = szero - do - if (i>nnz) then + do + if (i>nnz) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = szero endif acc = acc + a%val(i) * x(a%ja(i),1:nc) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == sone) then i = 1 @@ -1571,7 +1612,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - a%val(i)*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1581,7 +1622,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == sone) then i = 1 @@ -1599,7 +1640,7 @@ subroutine psb_s_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - (a%val(i))*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1623,7 +1664,7 @@ end subroutine psb_s_coo_csmm function psb_s_coo_maxval(a) result(res) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_maxval - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1633,13 +1674,13 @@ function psb_s_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1649,7 +1690,7 @@ end function psb_s_coo_maxval function psb_s_coo_csnmi(a) result(res) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_csnmi - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1666,15 +1707,15 @@ function psb_s_coo_csnmi(a) result(res) res = szero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = szero - do while (i<=nnz) + res = szero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -1689,7 +1730,7 @@ function psb_s_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = sone else vt = szero @@ -1701,7 +1742,7 @@ function psb_s_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_s_coo_csnmi @@ -1710,7 +1751,7 @@ function psb_s_coo_csnm1(a) result(res) use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_csnm1 - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1729,7 +1770,7 @@ function psb_s_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = sone else vt = szero @@ -1745,7 +1786,7 @@ function psb_s_coo_csnm1(a) result(res) end function psb_s_coo_csnm1 -subroutine psb_s_coo_rowsum(d,a) +subroutine psb_s_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_rowsum @@ -1765,13 +1806,13 @@ subroutine psb_s_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1785,7 +1826,7 @@ subroutine psb_s_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1793,7 +1834,7 @@ subroutine psb_s_coo_rowsum(d,a) end subroutine psb_s_coo_rowsum -subroutine psb_s_coo_arwsum(d,a) +subroutine psb_s_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_arwsum @@ -1812,13 +1853,13 @@ subroutine psb_s_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1831,7 +1872,7 @@ subroutine psb_s_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1839,7 +1880,7 @@ subroutine psb_s_coo_arwsum(d,a) end subroutine psb_s_coo_arwsum -subroutine psb_s_coo_colsum(d,a) +subroutine psb_s_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_colsum @@ -1858,13 +1899,13 @@ subroutine psb_s_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1878,7 +1919,7 @@ subroutine psb_s_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1886,7 +1927,7 @@ subroutine psb_s_coo_colsum(d,a) end subroutine psb_s_coo_colsum -subroutine psb_s_coo_aclsum(d,a) +subroutine psb_s_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_aclsum @@ -1905,14 +1946,14 @@ subroutine psb_s_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1923,10 +1964,10 @@ subroutine psb_s_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1951,7 +1992,7 @@ end subroutine psb_s_coo_aclsum subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1968,7 +2009,7 @@ subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1996,22 +2037,22 @@ subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2020,12 +2061,12 @@ subroutine psb_s_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2069,19 +2110,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2096,13 +2137,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2120,31 +2161,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -2153,7 +2194,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -2161,8 +2202,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -2175,12 +2216,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2192,11 +2233,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2210,7 +2251,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -2219,12 +2260,12 @@ end subroutine psb_s_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2269,27 +2310,27 @@ subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2298,12 +2339,12 @@ subroutine psb_s_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2351,19 +2392,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2378,13 +2419,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2402,34 +2443,34 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -2437,10 +2478,10 @@ contains end if enddo call psb_s_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -2449,7 +2490,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -2458,27 +2499,27 @@ contains nrd = max(a%get_nrows(),1) nzt = ((nza+nrd-1)/nrd)*(lrw-irw+1) - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then - k = 0 + + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - end if + end if end if val(nzin_+k) = a%val(i) ia(nzin_+k) = iren(a%ia(i)) @@ -2486,14 +2527,14 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) @@ -2515,12 +2556,12 @@ contains end subroutine psb_s_coo_csgetrow -subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_csput_a - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -2532,30 +2573,30 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) character(len=20) :: name='s_coo_csput_a_impl' logical, parameter :: debug=.false. integer(psb_ipk_) :: nza, i,j,k, nzl, isza, debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -2566,13 +2607,13 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -2583,22 +2624,22 @@ subroutine psb_s_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call s_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2619,7 +2660,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_ipk_), intent(in) :: ia(:),ja(:) @@ -2630,11 +2671,11 @@ contains integer(psb_ipk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -2650,7 +2691,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2668,13 +2709,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2686,18 +2727,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2709,7 +2750,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2723,18 +2764,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2746,7 +2787,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2768,10 +2809,10 @@ contains end subroutine psb_s_coo_csput_a -subroutine psb_s_cp_coo_to_coo(a,b,info) +subroutine psb_s_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_to_coo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2810,10 +2851,10 @@ subroutine psb_s_cp_coo_to_coo(a,b,info) end subroutine psb_s_cp_coo_to_coo -subroutine psb_s_cp_coo_from_coo(a,b,info) +subroutine psb_s_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_from_coo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2856,10 +2897,10 @@ subroutine psb_s_cp_coo_from_coo(a,b,info) end subroutine psb_s_cp_coo_from_coo -subroutine psb_s_cp_coo_to_fmt(a,b,info) +subroutine psb_s_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_to_fmt - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2888,10 +2929,10 @@ subroutine psb_s_cp_coo_to_fmt(a,b,info) end subroutine psb_s_cp_coo_to_fmt -subroutine psb_s_cp_coo_from_fmt(a,b,info) +subroutine psb_s_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_from_fmt - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2922,10 +2963,10 @@ subroutine psb_s_cp_coo_from_fmt(a,b,info) end subroutine psb_s_cp_coo_from_fmt -subroutine psb_s_mv_coo_to_coo(a,b,info) +subroutine psb_s_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_mv_coo_to_coo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2964,10 +3005,10 @@ subroutine psb_s_mv_coo_to_coo(a,b,info) end subroutine psb_s_mv_coo_to_coo -subroutine psb_s_mv_coo_from_coo(a,b,info) +subroutine psb_s_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_mv_coo_from_coo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3008,10 +3049,10 @@ subroutine psb_s_mv_coo_from_coo(a,b,info) end subroutine psb_s_mv_coo_from_coo -subroutine psb_s_mv_coo_to_fmt(a,b,info) +subroutine psb_s_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_mv_coo_to_fmt - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3040,10 +3081,10 @@ subroutine psb_s_mv_coo_to_fmt(a,b,info) end subroutine psb_s_mv_coo_to_fmt -subroutine psb_s_mv_coo_from_fmt(a,b,info) +subroutine psb_s_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_mv_coo_from_fmt - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3076,7 +3117,7 @@ end subroutine psb_s_mv_coo_from_fmt subroutine psb_s_coo_cp_from(a,b) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_cp_from - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(in) :: b @@ -3106,7 +3147,7 @@ end subroutine psb_s_coo_cp_from subroutine psb_s_coo_mv_from(a,b) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_mv_from - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a type(psb_s_coo_sparse_mat), intent(inout) :: b @@ -3135,11 +3176,11 @@ end subroutine psb_s_coo_mv_from -subroutine psb_s_fix_coo(a,info,idir) +subroutine psb_s_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_fix_coo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3160,17 +3201,17 @@ subroutine psb_s_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_s_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -3193,14 +3234,14 @@ end subroutine psb_s_fix_coo -subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nr, nc, nzin, dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) @@ -3225,14 +3266,14 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -3241,17 +3282,17 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - select case(idir_) - case(psb_row_major_) + select case(idir_) + + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -3261,15 +3302,15 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -3280,9 +3321,9 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -3290,7 +3331,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3300,87 +3341,87 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3392,7 +3433,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -3401,7 +3442,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3411,73 +3452,73 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3486,15 +3527,15 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. - ! + ! let's try in place. + ! call psi_msort_up(nzin,ia(1:),iaux(1:),iret) if (iret == 0) & & call psb_ip_reord(nzin,val,ia,ja,iaux) @@ -3522,52 +3563,52 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3580,7 +3621,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -3590,13 +3631,13 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -3610,10 +3651,10 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -3621,7 +3662,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3631,86 +3672,86 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3722,7 +3763,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -3730,7 +3771,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3739,73 +3780,73 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3816,7 +3857,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then call psi_msort_up(nzin,ja(1:),iaux(1:),iret) if (iret == 0) & @@ -3844,42 +3885,42 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -3887,8 +3928,8 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3907,7 +3948,7 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -3921,10 +3962,10 @@ subroutine psb_s_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_s_fix_coo_inner -subroutine psb_s_cp_coo_to_lcoo(a,b,info) +subroutine psb_s_cp_coo_to_lcoo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_to_lcoo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3964,10 +4005,10 @@ subroutine psb_s_cp_coo_to_lcoo(a,b,info) end subroutine psb_s_cp_coo_to_lcoo -subroutine psb_s_cp_coo_from_lcoo(a,b,info) +subroutine psb_s_cp_coo_from_lcoo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_s_cp_coo_from_lcoo - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -4015,11 +4056,11 @@ end subroutine psb_s_cp_coo_from_lcoo ! ! -subroutine psb_ls_coo_get_diag(a,d,info) +subroutine psb_ls_coo_get_diag(a,d,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4034,19 +4075,19 @@ subroutine psb_ls_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = sone + if (a%is_unit()) then + d(1:mnm) = sone else d(1:mnm) = szero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -4060,12 +4101,12 @@ subroutine psb_ls_coo_get_diag(a,d,info) end subroutine psb_ls_coo_get_diag -subroutine psb_ls_coo_scal(d,a,info,side) +subroutine psb_ls_coo_scal(d,a,info,side) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4075,44 +4116,44 @@ subroutine psb_ls_coo_scal(d,a,info,side) integer(psb_lpk_) :: mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -4130,11 +4171,11 @@ subroutine psb_ls_coo_scal(d,a,info,side) end subroutine psb_ls_coo_scal -subroutine psb_ls_coo_scals(d,a,info) +subroutine psb_ls_coo_scals(d,a,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4148,7 +4189,7 @@ subroutine psb_ls_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -4170,7 +4211,7 @@ end subroutine psb_ls_coo_scals function psb_ls_coo_maxval(a) result(res) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_maxval - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4180,13 +4221,13 @@ function psb_ls_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -4196,7 +4237,7 @@ end function psb_ls_coo_maxval function psb_ls_coo_csnmi(a) result(res) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_csnmi - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4213,15 +4254,15 @@ function psb_ls_coo_csnmi(a) result(res) res = szero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = szero - do while (i<=nnz) + res = szero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -4236,7 +4277,7 @@ function psb_ls_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = sone else vt = szero @@ -4248,7 +4289,7 @@ function psb_ls_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_ls_coo_csnmi @@ -4257,7 +4298,7 @@ function psb_ls_coo_csnm1(a) result(res) use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_csnm1 - implicit none + implicit none class(psb_s_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -4276,7 +4317,7 @@ function psb_ls_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = sone else vt = szero @@ -4292,7 +4333,7 @@ function psb_ls_coo_csnm1(a) result(res) end function psb_ls_coo_csnm1 -subroutine psb_ls_coo_rowsum(d,a) +subroutine psb_ls_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_rowsum @@ -4313,13 +4354,13 @@ subroutine psb_ls_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4333,7 +4374,7 @@ subroutine psb_ls_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4341,7 +4382,7 @@ subroutine psb_ls_coo_rowsum(d,a) end subroutine psb_ls_coo_rowsum -subroutine psb_ls_coo_arwsum(d,a) +subroutine psb_ls_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_arwsum @@ -4361,13 +4402,13 @@ subroutine psb_ls_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4380,7 +4421,7 @@ subroutine psb_ls_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4388,7 +4429,7 @@ subroutine psb_ls_coo_arwsum(d,a) end subroutine psb_ls_coo_arwsum -subroutine psb_ls_coo_colsum(d,a) +subroutine psb_ls_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_colsum @@ -4408,13 +4449,13 @@ subroutine psb_ls_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4428,7 +4469,7 @@ subroutine psb_ls_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4436,7 +4477,7 @@ subroutine psb_ls_coo_colsum(d,a) end subroutine psb_ls_coo_colsum -subroutine psb_ls_coo_aclsum(d,a) +subroutine psb_ls_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_aclsum @@ -4456,14 +4497,14 @@ subroutine psb_ls_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -4474,10 +4515,10 @@ subroutine psb_ls_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4485,11 +4526,11 @@ subroutine psb_ls_coo_aclsum(d,a) end subroutine psb_ls_coo_aclsum -subroutine psb_ls_coo_reallocate_nz(nz,a) +subroutine psb_ls_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4504,7 +4545,7 @@ subroutine psb_ls_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4518,10 +4559,10 @@ subroutine psb_ls_coo_reallocate_nz(nz,a) end subroutine psb_ls_coo_reallocate_nz -subroutine psb_ls_coo_mold(a,b,info) +subroutine psb_ls_coo_mold(a,b,info) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_mold use psb_error_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4530,16 +4571,16 @@ subroutine psb_ls_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ls_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4554,9 +4595,9 @@ end subroutine psb_ls_coo_mold subroutine psb_ls_coo_reinit(a,clear) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_ls_coo_sparse_mat), intent(inout) :: a + class(psb_ls_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4568,17 +4609,17 @@ subroutine psb_ls_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_host() call a%set_upd() @@ -4603,7 +4644,7 @@ subroutine psb_ls_coo_trim(a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info integer(psb_lpk_) :: nz @@ -4618,7 +4659,7 @@ subroutine psb_ls_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4631,13 +4672,13 @@ end subroutine psb_ls_coo_trim subroutine psb_ls_coo_clean_zeros(a, info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_clean_zeros - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -4648,17 +4689,17 @@ subroutine psb_ls_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_ls_coo_clean_zeros -subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4669,22 +4710,22 @@ subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -4692,7 +4733,7 @@ subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(lzero) @@ -4704,7 +4745,7 @@ subroutine psb_ls_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4719,10 +4760,10 @@ end subroutine psb_ls_coo_allocate_mnnz subroutine psb_ls_coo_print(iout,a,iv,head,ivr,ivc) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ls_coo_sparse_mat), intent(in) :: a + class(psb_ls_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4732,12 +4773,12 @@ subroutine psb_ls_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4751,30 +4792,30 @@ subroutine psb_ls_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -4789,7 +4830,7 @@ end subroutine psb_ls_coo_print function psb_ls_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_get_nz_row + use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_get_nz_row implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a @@ -4799,40 +4840,40 @@ function psb_ls_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: inza if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then + if (a%is_by_rows()) then ! In this case we can do a binary search. inza = nza ip = psb_bsrch(idx,inza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -4856,7 +4897,7 @@ end function psb_ls_coo_get_nz_row subroutine psb_ls_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4873,7 +4914,7 @@ subroutine psb_ls_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4902,22 +4943,22 @@ subroutine psb_ls_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4926,12 +4967,12 @@ subroutine psb_ls_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4976,19 +5017,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5003,13 +5044,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5027,31 +5068,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -5060,7 +5101,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -5068,8 +5109,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -5082,12 +5123,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5099,11 +5140,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5117,7 +5158,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -5126,12 +5167,12 @@ end subroutine psb_ls_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_ls_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -5149,7 +5190,7 @@ subroutine psb_ls_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -5177,22 +5218,22 @@ subroutine psb_ls_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -5201,12 +5242,12 @@ subroutine psb_ls_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -5255,19 +5296,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5282,13 +5323,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5306,32 +5347,32 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -5339,10 +5380,10 @@ contains end if enddo call psb_ls_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -5351,7 +5392,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -5365,12 +5406,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5384,11 +5425,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5412,12 +5453,12 @@ contains end subroutine psb_ls_coo_csgetrow -subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_csput_a - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -5430,30 +5471,30 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) logical, parameter :: debug=.false. integer(psb_lpk_) :: nza, i,j,k, nzl, isza integer(psb_ipk_) :: debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -5464,13 +5505,13 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -5481,22 +5522,22 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call ls_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -5517,7 +5558,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_lpk_), intent(in) :: ia(:),ja(:) @@ -5528,11 +5569,11 @@ contains integer(psb_lpk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -5548,7 +5589,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -5566,13 +5607,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() innz = nnz @@ -5583,18 +5624,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5606,7 +5647,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -5620,18 +5661,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5643,7 +5684,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -5665,10 +5706,10 @@ contains end subroutine psb_ls_coo_csput_a -subroutine psb_ls_cp_coo_to_coo(a,b,info) +subroutine psb_ls_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_to_coo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5708,10 +5749,10 @@ subroutine psb_ls_cp_coo_to_coo(a,b,info) end subroutine psb_ls_cp_coo_to_coo -subroutine psb_ls_cp_coo_from_coo(a,b,info) +subroutine psb_ls_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_from_coo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5754,10 +5795,10 @@ subroutine psb_ls_cp_coo_from_coo(a,b,info) end subroutine psb_ls_cp_coo_from_coo -subroutine psb_ls_cp_coo_to_fmt(a,b,info) +subroutine psb_ls_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_to_fmt - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5786,10 +5827,10 @@ subroutine psb_ls_cp_coo_to_fmt(a,b,info) end subroutine psb_ls_cp_coo_to_fmt -subroutine psb_ls_cp_coo_from_fmt(a,b,info) +subroutine psb_ls_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_from_fmt - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5820,10 +5861,10 @@ subroutine psb_ls_cp_coo_from_fmt(a,b,info) end subroutine psb_ls_cp_coo_from_fmt -subroutine psb_ls_mv_coo_to_coo(a,b,info) +subroutine psb_ls_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_mv_coo_to_coo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5862,10 +5903,10 @@ subroutine psb_ls_mv_coo_to_coo(a,b,info) end subroutine psb_ls_mv_coo_to_coo -subroutine psb_ls_mv_coo_from_coo(a,b,info) +subroutine psb_ls_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_mv_coo_from_coo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5906,10 +5947,10 @@ subroutine psb_ls_mv_coo_from_coo(a,b,info) end subroutine psb_ls_mv_coo_from_coo -subroutine psb_ls_mv_coo_to_fmt(a,b,info) +subroutine psb_ls_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_mv_coo_to_fmt - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5938,10 +5979,10 @@ subroutine psb_ls_mv_coo_to_fmt(a,b,info) end subroutine psb_ls_mv_coo_to_fmt -subroutine psb_ls_mv_coo_from_fmt(a,b,info) +subroutine psb_ls_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_mv_coo_from_fmt - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5974,7 +6015,7 @@ end subroutine psb_ls_mv_coo_from_fmt subroutine psb_ls_coo_cp_from(a,b) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_cp_from - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a type(psb_ls_coo_sparse_mat), intent(in) :: b @@ -6004,7 +6045,7 @@ end subroutine psb_ls_coo_cp_from subroutine psb_ls_coo_mv_from(a,b) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_mv_from - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a type(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -6033,11 +6074,11 @@ end subroutine psb_ls_coo_mv_from -subroutine psb_ls_fix_coo(a,info,idir) +subroutine psb_ls_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_fix_coo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -6058,17 +6099,17 @@ subroutine psb_ls_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_ls_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -6091,14 +6132,14 @@ end subroutine psb_ls_fix_coo -subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -6125,14 +6166,14 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -6141,16 +6182,16 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - select case(idir_) + select case(idir_) - case(psb_row_major_) + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -6158,17 +6199,17 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = (info == 0) else use_buffers = .false. - end if - - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + end if + + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -6179,9 +6220,9 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -6189,7 +6230,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6199,87 +6240,87 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6291,7 +6332,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -6300,7 +6341,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6310,73 +6351,73 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6385,14 +6426,14 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. + ! let's try in place. ! inzin = nzin call psi_msort_up(inzin,ia(1:),iaux(1:),iret) @@ -6422,52 +6463,52 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6480,7 +6521,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -6490,13 +6531,13 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -6510,10 +6551,10 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -6521,7 +6562,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6531,86 +6572,86 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6622,7 +6663,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -6630,7 +6671,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6639,73 +6680,73 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6716,7 +6757,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then inzin = nzin call psi_msort_up(inzin,ja(1:),iaux(1:),iret) @@ -6745,42 +6786,42 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -6788,8 +6829,8 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6808,7 +6849,7 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -6822,10 +6863,10 @@ subroutine psb_ls_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_ls_fix_coo_inner -subroutine psb_ls_cp_coo_to_icoo(a,b,info) +subroutine psb_ls_cp_coo_to_icoo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_to_icoo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -6865,10 +6906,10 @@ subroutine psb_ls_cp_coo_to_icoo(a,b,info) end subroutine psb_ls_cp_coo_to_icoo -subroutine psb_ls_cp_coo_from_icoo(a,b,info) +subroutine psb_ls_cp_coo_from_icoo(a,b,info) use psb_error_mod use psb_s_base_mat_mod, psb_protect_name => psb_ls_cp_coo_from_icoo - implicit none + implicit none class(psb_ls_coo_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -6908,4 +6949,3 @@ subroutine psb_ls_cp_coo_from_icoo(a,b,info) return end subroutine psb_ls_cp_coo_from_icoo - diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index ea7dd517c..627a5ecae 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_csmv - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -72,7 +72,7 @@ subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -81,7 +81,7 @@ subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_s_csc_csmv(alpha,a,x,beta,y,info,trans) if (a%is_dev()) call a%sync() - if (size(x,1) psb_s_csc_csmm - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -350,13 +350,13 @@ subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) end if tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -364,16 +364,16 @@ subroutine psb_s_csc_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_s_csc_cssv - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -632,7 +632,7 @@ subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -642,28 +642,28 @@ subroutine psb_s_csc_cssv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x,1) psb_s_csc_cssm - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -852,7 +852,7 @@ subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -862,23 +862,23 @@ subroutine psb_s_csc_cssm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (size(x,1) psb_s_csc_maxval - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1066,7 +1066,7 @@ function psb_s_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero @@ -1074,7 +1074,7 @@ function psb_s_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1085,7 +1085,7 @@ function psb_s_csc_csnm1(a) result(res) use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_csnm1 - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1099,13 +1099,13 @@ function psb_s_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = szero + res = szero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -1115,12 +1115,12 @@ function psb_s_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_s_csc_csnm1 -subroutine psb_s_csc_colsum(d,a) +subroutine psb_s_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_colsum @@ -1140,7 +1140,7 @@ subroutine psb_s_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1148,19 +1148,19 @@ subroutine psb_s_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1168,7 +1168,7 @@ subroutine psb_s_csc_colsum(d,a) end subroutine psb_s_csc_colsum -subroutine psb_s_csc_aclsum(d,a) +subroutine psb_s_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_aclsum @@ -1188,7 +1188,7 @@ subroutine psb_s_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1197,25 +1197,25 @@ subroutine psb_s_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1223,7 +1223,7 @@ subroutine psb_s_csc_aclsum(d,a) end subroutine psb_s_csc_aclsum -subroutine psb_s_csc_rowsum(d,a) +subroutine psb_s_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_rowsum @@ -1244,14 +1244,14 @@ subroutine psb_s_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1265,7 +1265,7 @@ subroutine psb_s_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1273,7 +1273,7 @@ subroutine psb_s_csc_rowsum(d,a) end subroutine psb_s_csc_rowsum -subroutine psb_s_csc_arwsum(d,a) +subroutine psb_s_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_arwsum @@ -1294,14 +1294,14 @@ subroutine psb_s_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -1315,7 +1315,7 @@ subroutine psb_s_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1324,11 +1324,11 @@ subroutine psb_s_csc_arwsum(d,a) end subroutine psb_s_csc_arwsum -subroutine psb_s_csc_get_diag(a,d,info) +subroutine psb_s_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_get_diag - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1343,28 +1343,28 @@ subroutine psb_s_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = sone + if (a%is_unit()) then + d(1:mnm) = sone else do i=1, mnm d(i) = szero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = szero end do call psb_erractionrestore(err_act) @@ -1377,12 +1377,12 @@ subroutine psb_s_csc_get_diag(a,d,info) end subroutine psb_s_csc_get_diag -subroutine psb_s_csc_scal(d,a,info,side) +subroutine psb_s_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scal use psb_string_mod - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1393,7 +1393,7 @@ subroutine psb_s_csc_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -1401,39 +1401,39 @@ subroutine psb_s_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -1449,11 +1449,11 @@ subroutine psb_s_csc_scal(d,a,info,side) end subroutine psb_s_csc_scal -subroutine psb_s_csc_scals(d,a,info) +subroutine psb_s_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scals - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1467,7 +1467,7 @@ subroutine psb_s_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1485,8 +1485,51 @@ subroutine psb_s_csc_scals(d,a,info) end subroutine psb_s_csc_scals +subroutine psb_s_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scalplusidentity + implicit none + class(psb_s_csc_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -! == =================================== + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + sone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_s_csc_scalplusidentity + + +! == =================================== ! ! ! @@ -1496,11 +1539,11 @@ end subroutine psb_s_csc_scals ! ! ! -! == =================================== +! == =================================== subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1518,7 +1561,7 @@ subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1547,35 +1590,35 @@ subroutine psb_s_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1621,12 +1664,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1637,19 +1680,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1663,9 +1706,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1677,9 +1720,9 @@ contains enddo end do end if - + end subroutine csc_getptn - + end subroutine psb_s_csc_csgetptn @@ -1687,7 +1730,7 @@ end subroutine psb_s_csc_csgetptn subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1706,7 +1749,7 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale,chksz - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1716,7 +1759,7 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -1736,22 +1779,22 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -1759,13 +1802,13 @@ subroutine psb_s_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1813,12 +1856,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1829,7 +1872,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -1837,12 +1880,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1858,9 +1901,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1880,11 +1923,11 @@ end subroutine psb_s_csc_csgetrow -subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_csput_a - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -1903,26 +1946,26 @@ subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -1933,25 +1976,25 @@ subroutine psb_s_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_s_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -1977,7 +2020,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -1995,13 +2038,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -2011,19 +2054,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2036,18 +2079,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2070,12 +2113,12 @@ end subroutine psb_s_csc_csput_a -subroutine psb_s_cp_csc_from_coo(a,b,info) +subroutine psb_s_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_cp_csc_from_coo - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b @@ -2098,11 +2141,11 @@ end subroutine psb_s_cp_csc_from_coo -subroutine psb_s_cp_csc_to_coo(a,b,info) +subroutine psb_s_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_cp_csc_to_coo - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -2132,7 +2175,7 @@ subroutine psb_s_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -2140,12 +2183,12 @@ subroutine psb_s_cp_csc_to_coo(a,b,info) end subroutine psb_s_cp_csc_to_coo -subroutine psb_s_mv_csc_to_coo(a,b,info) +subroutine psb_s_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_mv_csc_to_coo - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -2183,13 +2226,13 @@ end subroutine psb_s_mv_csc_to_coo -subroutine psb_s_mv_csc_from_coo(a,b,info) +subroutine psb_s_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_mv_csc_from_coo - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -2213,7 +2256,7 @@ subroutine psb_s_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -2236,17 +2279,17 @@ subroutine psb_s_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_s_mv_csc_from_coo -subroutine psb_s_mv_csc_to_fmt(a,b,info) +subroutine psb_s_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_mv_csc_to_fmt - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -2262,10 +2305,10 @@ subroutine psb_s_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_s_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_s_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_s_base_sparse_mat = a%psb_s_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -2282,12 +2325,12 @@ subroutine psb_s_mv_csc_to_fmt(a,b,info) end subroutine psb_s_mv_csc_to_fmt !!$ -subroutine psb_s_cp_csc_to_fmt(a,b,info) +subroutine psb_s_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_cp_csc_to_fmt - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -2303,10 +2346,10 @@ subroutine psb_s_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_s_csc_sparse_mat) + type is (psb_s_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_s_base_sparse_mat = a%psb_s_base_sparse_mat nc = a%get_ncols() @@ -2324,12 +2367,12 @@ subroutine psb_s_cp_csc_to_fmt(a,b,info) end subroutine psb_s_cp_csc_to_fmt -subroutine psb_s_mv_csc_from_fmt(a,b,info) +subroutine psb_s_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_mv_csc_from_fmt - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -2345,10 +2388,10 @@ subroutine psb_s_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_s_csc_sparse_mat) + type is (psb_s_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat @@ -2369,19 +2412,19 @@ end subroutine psb_s_mv_csc_from_fmt subroutine psb_s_csc_clean_zeros(a, info) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_clean_zeros - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nc - integer(psb_ipk_), allocatable :: ilcp(:) - + integer(psb_ipk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= szero) then @@ -2396,12 +2439,12 @@ subroutine psb_s_csc_clean_zeros(a, info) call a%set_host() end subroutine psb_s_csc_clean_zeros -subroutine psb_s_cp_csc_from_fmt(a,b,info) +subroutine psb_s_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_cp_csc_from_fmt - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b @@ -2417,10 +2460,10 @@ subroutine psb_s_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_s_csc_sparse_mat) + type is (psb_s_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat nc = b%get_ncols() @@ -2435,14 +2478,14 @@ subroutine psb_s_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_s_cp_csc_from_fmt -subroutine psb_s_csc_mold(a,b,info) +subroutine psb_s_csc_mold(a,b,info) use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_mold use psb_error_mod - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2452,16 +2495,16 @@ subroutine psb_s_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_s_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -2473,11 +2516,11 @@ subroutine psb_s_csc_mold(a,b,info) end subroutine psb_s_csc_mold -subroutine psb_s_csc_reallocate_nz(nz,a) +subroutine psb_s_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -2490,7 +2533,7 @@ subroutine psb_s_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -2508,7 +2551,7 @@ end subroutine psb_s_csc_reallocate_nz !!$subroutine psb_s_csc_csgetblk(imin,imax,a,b,info,& !!$ & jmin,jmax,iren,append,rscale,cscale) -!!$ ! Output is always in COO format +!!$ ! Output is always in COO format !!$ use psb_error_mod !!$ use psb_const_mod !!$ use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_csgetblk @@ -2531,12 +2574,12 @@ end subroutine psb_s_csc_reallocate_nz !!$ call psb_erractionsave(err_act) !!$ info = psb_success_ !!$ -!!$ if (present(append)) then +!!$ if (present(append)) then !!$ append_ = append !!$ else !!$ append_ = .false. !!$ endif -!!$ if (append_) then +!!$ if (append_) then !!$ nzin = a%get_nzeros() !!$ else !!$ nzin = 0 @@ -2564,9 +2607,9 @@ end subroutine psb_s_csc_reallocate_nz subroutine psb_s_csc_reinit(a,clear) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_reinit - implicit none + implicit none - class(psb_s_csc_sparse_mat), intent(inout) :: a + class(psb_s_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2580,16 +2623,16 @@ subroutine psb_s_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_upd() call a%set_host() @@ -2612,7 +2655,7 @@ subroutine psb_s_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_trim - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz, n integer(psb_ipk_) :: ierr(5) @@ -2627,7 +2670,7 @@ subroutine psb_s_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2637,11 +2680,11 @@ subroutine psb_s_csc_trim(a) end subroutine psb_s_csc_trim -subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -2652,26 +2695,26 @@ subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -2679,7 +2722,7 @@ subroutine psb_s_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -2702,10 +2745,10 @@ end subroutine psb_s_csc_allocate_mnnz subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_s_csc_sparse_mat), intent(in) :: a + class(psb_s_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2716,13 +2759,13 @@ subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2736,40 +2779,40 @@ subroutine psb_s_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -2782,7 +2825,7 @@ subroutine psb_scscspspmm(a,b,c,info) use psb_s_mat_mod use psb_serial_mod, psb_protect_name => psb_scscspspmm - implicit none + implicit none class(psb_s_csc_sparse_mat), intent(in) :: a,b type(psb_s_csc_sparse_mat), intent(out) :: c @@ -2802,7 +2845,7 @@ subroutine psb_scscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -2831,9 +2874,9 @@ subroutine psb_scscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_s_csc_sparse_mat), intent(in) :: a,b type(psb_s_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -2856,29 +2899,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -2886,11 +2929,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do @@ -2903,11 +2946,11 @@ end subroutine psb_scscspspmm -subroutine psb_ls_csc_get_diag(a,d,info) +subroutine psb_ls_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_get_diag - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2922,28 +2965,28 @@ subroutine psb_ls_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = sone + if (a%is_unit()) then + d(1:mnm) = sone else do i=1, mnm d(i) = szero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = szero end do call psb_erractionrestore(err_act) @@ -2956,12 +2999,12 @@ subroutine psb_ls_csc_get_diag(a,d,info) end subroutine psb_ls_csc_get_diag -subroutine psb_ls_csc_scal(d,a,info,side) +subroutine psb_ls_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scal use psb_string_mod - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2972,7 +3015,7 @@ subroutine psb_ls_csc_scal(d,a,info,side) integer(psb_ipk_) :: err_act,ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -2980,39 +3023,39 @@ subroutine psb_ls_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -3028,11 +3071,11 @@ subroutine psb_ls_csc_scal(d,a,info,side) end subroutine psb_ls_csc_scal -subroutine psb_ls_csc_scals(d,a,info) +subroutine psb_ls_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scals - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3046,7 +3089,7 @@ subroutine psb_ls_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3068,7 +3111,7 @@ end subroutine psb_ls_csc_scals function psb_ls_csc_maxval(a) result(res) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_maxval - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3077,7 +3120,7 @@ function psb_ls_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = sone else res = szero @@ -3085,7 +3128,7 @@ function psb_ls_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3096,7 +3139,7 @@ function psb_ls_csc_csnm1(a) result(res) use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_csnm1 - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3109,13 +3152,13 @@ function psb_ls_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = szero + res = szero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = sone else acc = szero @@ -3125,12 +3168,12 @@ function psb_ls_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_ls_csc_csnm1 -subroutine psb_ls_csc_colsum(d,a) +subroutine psb_ls_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_colsum @@ -3151,7 +3194,7 @@ subroutine psb_ls_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3159,19 +3202,19 @@ subroutine psb_ls_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3179,7 +3222,7 @@ subroutine psb_ls_csc_colsum(d,a) end subroutine psb_ls_csc_colsum -subroutine psb_ls_csc_aclsum(d,a) +subroutine psb_ls_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_aclsum @@ -3200,7 +3243,7 @@ subroutine psb_ls_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3209,25 +3252,25 @@ subroutine psb_ls_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = sone else d(i) = szero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3235,7 +3278,7 @@ subroutine psb_ls_csc_aclsum(d,a) end subroutine psb_ls_csc_aclsum -subroutine psb_ls_csc_rowsum(d,a) +subroutine psb_ls_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_rowsum @@ -3243,7 +3286,7 @@ subroutine psb_ls_csc_rowsum(d,a) real(psb_spk_), intent(out) :: d(:) integer(psb_lpk_) :: i,j,k,nnz, ir, jc, nc - integer(psb_epk_) :: m,n + integer(psb_epk_) :: m,n real(psb_spk_) :: acc real(psb_spk_), allocatable :: vt(:) logical :: tra @@ -3257,14 +3300,14 @@ subroutine psb_ls_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -3278,7 +3321,7 @@ subroutine psb_ls_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3286,7 +3329,7 @@ subroutine psb_ls_csc_rowsum(d,a) end subroutine psb_ls_csc_rowsum -subroutine psb_ls_csc_arwsum(d,a) +subroutine psb_ls_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_arwsum @@ -3308,14 +3351,14 @@ subroutine psb_ls_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = sone else d = szero @@ -3329,7 +3372,7 @@ subroutine psb_ls_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3338,7 +3381,7 @@ subroutine psb_ls_csc_arwsum(d,a) end subroutine psb_ls_csc_arwsum -! == =================================== +! == =================================== ! ! ! @@ -3348,11 +3391,11 @@ end subroutine psb_ls_csc_arwsum ! ! ! -! == =================================== +! == =================================== subroutine psb_ls_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3370,7 +3413,7 @@ subroutine psb_ls_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3399,35 +3442,35 @@ subroutine psb_ls_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call lcsc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3473,12 +3516,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3489,19 +3532,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3515,9 +3558,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3529,9 +3572,9 @@ contains enddo end do end if - + end subroutine lcsc_getptn - + end subroutine psb_ls_csc_csgetptn @@ -3539,7 +3582,7 @@ end subroutine psb_ls_csc_csgetptn subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3558,7 +3601,7 @@ subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3568,7 +3611,7 @@ subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -3588,22 +3631,22 @@ subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -3611,13 +3654,13 @@ subroutine psb_ls_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call lcsc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3665,12 +3708,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3681,7 +3724,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -3689,12 +3732,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3710,9 +3753,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3732,11 +3775,11 @@ end subroutine psb_ls_csc_csgetrow -subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_csput_a - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -3755,26 +3798,26 @@ subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -3785,25 +3828,25 @@ subroutine psb_ls_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_ls_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -3829,7 +3872,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -3847,13 +3890,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -3863,19 +3906,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -3888,18 +3931,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -3921,12 +3964,12 @@ contains end subroutine psb_ls_csc_csput_a -subroutine psb_ls_cp_csc_from_coo(a,b,info) +subroutine psb_ls_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_cp_csc_from_coo - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b @@ -3949,11 +3992,11 @@ end subroutine psb_ls_cp_csc_from_coo -subroutine psb_ls_cp_csc_to_coo(a,b,info) +subroutine psb_ls_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_cp_csc_to_coo - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -3983,7 +4026,7 @@ subroutine psb_ls_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -3991,12 +4034,12 @@ subroutine psb_ls_cp_csc_to_coo(a,b,info) end subroutine psb_ls_cp_csc_to_coo -subroutine psb_ls_mv_csc_to_coo(a,b,info) +subroutine psb_ls_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_mv_csc_to_coo - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -4033,13 +4076,13 @@ subroutine psb_ls_mv_csc_to_coo(a,b,info) end subroutine psb_ls_mv_csc_to_coo -subroutine psb_ls_mv_csc_from_coo(a,b,info) +subroutine psb_ls_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_mv_csc_from_coo - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -4063,7 +4106,7 @@ subroutine psb_ls_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -4086,17 +4129,17 @@ subroutine psb_ls_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_ls_mv_csc_from_coo -subroutine psb_ls_mv_csc_to_fmt(a,b,info) +subroutine psb_ls_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_mv_csc_to_fmt - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -4112,10 +4155,10 @@ subroutine psb_ls_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_ls_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_ls_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ls_base_sparse_mat = a%psb_ls_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -4132,12 +4175,12 @@ subroutine psb_ls_mv_csc_to_fmt(a,b,info) end subroutine psb_ls_mv_csc_to_fmt !!$ -subroutine psb_ls_cp_csc_to_fmt(a,b,info) +subroutine psb_ls_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_cp_csc_to_fmt - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -4153,10 +4196,10 @@ subroutine psb_ls_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_ls_csc_sparse_mat) + type is (psb_ls_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ls_base_sparse_mat = a%psb_ls_base_sparse_mat nc = a%get_ncols() @@ -4174,12 +4217,12 @@ subroutine psb_ls_cp_csc_to_fmt(a,b,info) end subroutine psb_ls_cp_csc_to_fmt -subroutine psb_ls_mv_csc_from_fmt(a,b,info) +subroutine psb_ls_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_mv_csc_from_fmt - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -4195,10 +4238,10 @@ subroutine psb_ls_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_ls_csc_sparse_mat) + type is (psb_ls_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat @@ -4218,12 +4261,12 @@ end subroutine psb_ls_mv_csc_from_fmt -subroutine psb_ls_cp_csc_from_fmt(a,b,info) +subroutine psb_ls_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_cp_csc_from_fmt - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b @@ -4239,10 +4282,10 @@ subroutine psb_ls_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_ls_csc_sparse_mat) + type is (psb_ls_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat nc = b%get_ncols() @@ -4257,25 +4300,25 @@ subroutine psb_ls_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_ls_cp_csc_from_fmt subroutine psb_ls_csc_clean_zeros(a, info) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_clean_zeros - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nc - integer(psb_lpk_), allocatable :: ilcp(:) - + integer(psb_lpk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= szero) then @@ -4291,10 +4334,10 @@ subroutine psb_ls_csc_clean_zeros(a, info) end subroutine psb_ls_csc_clean_zeros -subroutine psb_ls_csc_mold(a,b,info) +subroutine psb_ls_csc_mold(a,b,info) use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_mold use psb_error_mod - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4303,16 +4346,16 @@ subroutine psb_ls_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ls_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4324,11 +4367,11 @@ subroutine psb_ls_csc_mold(a,b,info) end subroutine psb_ls_csc_mold -subroutine psb_ls_csc_reallocate_nz(nz,a) +subroutine psb_ls_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4340,7 +4383,7 @@ subroutine psb_ls_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4358,7 +4401,7 @@ end subroutine psb_ls_csc_reallocate_nz subroutine psb_ls_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_csgetblk @@ -4381,12 +4424,12 @@ subroutine psb_ls_csc_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 @@ -4414,9 +4457,9 @@ end subroutine psb_ls_csc_csgetblk subroutine psb_ls_csc_reinit(a,clear) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_reinit - implicit none + implicit none - class(psb_ls_csc_sparse_mat), intent(inout) :: a + class(psb_ls_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4430,16 +4473,16 @@ subroutine psb_ls_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_upd() call a%set_host() @@ -4462,7 +4505,7 @@ subroutine psb_ls_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_trim - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, n integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4477,7 +4520,7 @@ subroutine psb_ls_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4487,11 +4530,11 @@ subroutine psb_ls_csc_trim(a) end subroutine psb_ls_csc_trim -subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ls_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4502,26 +4545,26 @@ subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -4529,7 +4572,7 @@ subroutine psb_ls_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -4552,10 +4595,10 @@ end subroutine psb_ls_csc_allocate_mnnz subroutine psb_ls_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ls_csc_sparse_mat), intent(in) :: a + class(psb_ls_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4566,13 +4609,13 @@ subroutine psb_ls_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4586,40 +4629,40 @@ subroutine psb_ls_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -4632,7 +4675,7 @@ subroutine psb_lscscspspmm(a,b,c,info) use psb_s_mat_mod use psb_serial_mod, psb_protect_name => psb_lscscspspmm - implicit none + implicit none class(psb_ls_csc_sparse_mat), intent(in) :: a,b type(psb_ls_csc_sparse_mat), intent(out) :: c @@ -4652,7 +4695,7 @@ subroutine psb_lscscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -4681,9 +4724,9 @@ subroutine psb_lscscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_ls_csc_sparse_mat), intent(in) :: a,b type(psb_ls_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -4706,29 +4749,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -4736,11 +4779,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 575d7678b..3083c6bcc 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_csmv - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -73,7 +73,7 @@ subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -83,7 +83,7 @@ subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_s_csr_csmv(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_s_csr_csmm - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -418,7 +418,7 @@ subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -426,7 +426,7 @@ subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -434,16 +434,16 @@ subroutine psb_s_csr_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_s_csr_cssv - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -766,7 +766,7 @@ subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -776,26 +776,26 @@ subroutine psb_s_csr_cssv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x) psb_s_csr_cssm - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1030,7 +1030,7 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1041,9 +1041,9 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1063,14 +1063,14 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == szero) then + if (beta == szero) then call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -1078,7 +1078,7 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) end if call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*tmp(i,1:nc) + beta*y(i,1:nc) end do @@ -1099,11 +1099,11 @@ subroutine psb_s_csr_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_csrsm(tra,ctra,lower,unit,nr,nc,& - & irp,ja,val,x,ldx,y,ldy,info) - implicit none + & irp,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) real(psb_spk_), intent(in) :: val(*), x(ldx,*) @@ -1120,38 +1120,38 @@ contains end if - if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if ((.not.tra).and.(.not.ctra)) then + if (lower) then + if (unit) then do i=1, nr - acc = szero + acc = szero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr - acc = szero + acc = szero do j=irp(i), irp(i+1)-2 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = (x(i,1:nc) - acc)/val(irp(i+1)-1) end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then - do i=nr, 1, -1 - acc = szero + if (unit) then + do i=nr, 1, -1 + acc = szero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then - do i=nr, 1, -1 - acc = szero + else if (.not.unit) then + do i=nr, 1, -1 + acc = szero do j=irp(i)+1, irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do @@ -1161,96 +1161,96 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/val(irp(i+1)-1) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/val(irp(i)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/(val(irp(i+1)-1)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/(val(irp(i))) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - (val(j))*acc end do end do end if @@ -1264,7 +1264,7 @@ end subroutine psb_s_csr_cssm function psb_s_csr_maxval(a) result(res) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_maxval - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1277,7 +1277,7 @@ function psb_s_csr_maxval(a) result(res) res = szero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1286,7 +1286,7 @@ end function psb_s_csr_maxval function psb_s_csr_csnmi(a) result(res) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_csnmi - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -1303,7 +1303,7 @@ function psb_s_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -1311,7 +1311,7 @@ function psb_s_csr_csnmi(a) result(res) end function psb_s_csr_csnmi -subroutine psb_s_csr_rowsum(d,a) +subroutine psb_s_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_rowsum @@ -1331,7 +1331,7 @@ subroutine psb_s_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1340,12 +1340,12 @@ subroutine psb_s_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do @@ -1353,7 +1353,7 @@ subroutine psb_s_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1361,7 +1361,7 @@ subroutine psb_s_csr_rowsum(d,a) end subroutine psb_s_csr_rowsum -subroutine psb_s_csr_arwsum(d,a) +subroutine psb_s_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_arwsum @@ -1381,7 +1381,7 @@ subroutine psb_s_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1391,19 +1391,19 @@ subroutine psb_s_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1411,7 +1411,7 @@ subroutine psb_s_csr_arwsum(d,a) end subroutine psb_s_csr_arwsum -subroutine psb_s_csr_colsum(d,a) +subroutine psb_s_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_colsum @@ -1432,7 +1432,7 @@ subroutine psb_s_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1447,8 +1447,8 @@ subroutine psb_s_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -1456,7 +1456,7 @@ subroutine psb_s_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1464,7 +1464,7 @@ subroutine psb_s_csr_colsum(d,a) end subroutine psb_s_csr_colsum -subroutine psb_s_csr_aclsum(d,a) +subroutine psb_s_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_aclsum @@ -1485,7 +1485,7 @@ subroutine psb_s_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1500,8 +1500,8 @@ subroutine psb_s_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -1509,7 +1509,7 @@ subroutine psb_s_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1517,11 +1517,11 @@ subroutine psb_s_csr_aclsum(d,a) end subroutine psb_s_csr_aclsum -subroutine psb_s_csr_get_diag(a,d,info) +subroutine psb_s_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_get_diag - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1536,28 +1536,28 @@ subroutine psb_s_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = sone else do i=1, mnm d(i) = szero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = szero end do @@ -1570,12 +1570,12 @@ subroutine psb_s_csr_get_diag(a,d,info) end subroutine psb_s_csr_get_diag -subroutine psb_s_csr_scal(d,a,info,side) +subroutine psb_s_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scal use psb_string_mod - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1585,47 +1585,47 @@ subroutine psb_s_csr_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1643,11 +1643,11 @@ subroutine psb_s_csr_scal(d,a,info,side) end subroutine psb_s_csr_scal -subroutine psb_s_csr_scals(d,a,info) +subroutine psb_s_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scals - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1660,7 +1660,7 @@ subroutine psb_s_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1677,10 +1677,51 @@ subroutine psb_s_csr_scals(d,a,info) end subroutine psb_s_csr_scals +subroutine psb_s_csr_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scalplusidentity + implicit none + class(psb_s_csr_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%irp(i),a%irp(i+1)-1 + j=a%ja(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + sone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + return + +end subroutine psb_s_csr_scalplusidentity -! == =================================== + +! == =================================== ! ! ! @@ -1690,14 +1731,14 @@ end subroutine psb_s_csr_scals ! ! ! -! == =================================== +! == =================================== -subroutine psb_s_csr_reallocate_nz(nz,a) +subroutine psb_s_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_s_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1709,7 +1750,7 @@ subroutine psb_s_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -1723,10 +1764,10 @@ subroutine psb_s_csr_reallocate_nz(nz,a) end subroutine psb_s_csr_reallocate_nz -subroutine psb_s_csr_mold(a,b,info) +subroutine psb_s_csr_mold(a,b,info) use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_mold use psb_error_mod - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -1735,16 +1776,16 @@ subroutine psb_s_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_s_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -1755,11 +1796,11 @@ subroutine psb_s_csr_mold(a,b,info) end subroutine psb_s_csr_mold -subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_s_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -1770,26 +1811,26 @@ subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -1797,7 +1838,7 @@ subroutine psb_s_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -1820,7 +1861,7 @@ end subroutine psb_s_csr_allocate_mnnz subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1838,7 +1879,7 @@ subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1866,35 +1907,35 @@ subroutine psb_s_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1940,32 +1981,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -1976,7 +2017,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -1987,13 +2028,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_s_csr_csgetptn subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2021,7 +2062,7 @@ subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -2040,27 +2081,27 @@ subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2068,13 +2109,13 @@ subroutine psb_s_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2121,12 +2162,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -2134,23 +2175,23 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) - + if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2162,7 +2203,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2183,7 +2224,7 @@ end subroutine psb_s_csr_csgetrow ! subroutine psb_s_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_tril @@ -2195,7 +2236,7 @@ subroutine psb_s_csr_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_s_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2206,57 +2247,57 @@ subroutine psb_s_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -2265,7 +2306,7 @@ subroutine psb_s_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -2281,7 +2322,7 @@ subroutine psb_s_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -2289,17 +2330,17 @@ subroutine psb_s_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -2318,8 +2359,8 @@ subroutine psb_s_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -2337,7 +2378,7 @@ end subroutine psb_s_csr_tril subroutine psb_s_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_triu @@ -2349,7 +2390,7 @@ subroutine psb_s_csr_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_s_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2360,57 +2401,57 @@ subroutine psb_s_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -2419,7 +2460,7 @@ subroutine psb_s_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -2471,8 +2512,8 @@ subroutine psb_s_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -2489,11 +2530,11 @@ subroutine psb_s_csr_triu(a,u,info,& end subroutine psb_s_csr_triu -subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_csput_a - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -2511,23 +2552,23 @@ subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_; i=1 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_; i=2 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_; i=3 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_; i=4 call psb_errpush(info,name,i_err=(/i/)) goto 9999 @@ -2538,25 +2579,25 @@ subroutine psb_s_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_s_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2582,7 +2623,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2600,13 +2641,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2616,20 +2657,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 - ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2641,17 +2682,17 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2676,9 +2717,9 @@ end subroutine psb_s_csr_csput_a subroutine psb_s_csr_reinit(a,clear) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_reinit - implicit none + implicit none - class(psb_s_csr_sparse_mat), intent(inout) :: a + class(psb_s_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2691,16 +2732,16 @@ subroutine psb_s_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_upd() call a%set_host() @@ -2723,9 +2764,9 @@ subroutine psb_s_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_trim - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2738,7 +2779,7 @@ subroutine psb_s_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2751,10 +2792,10 @@ end subroutine psb_s_csr_trim subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_s_csr_sparse_mat), intent(in) :: a + class(psb_s_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2763,13 +2804,13 @@ subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='s_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2783,40 +2824,40 @@ subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -2826,12 +2867,12 @@ subroutine psb_s_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_s_csr_print -subroutine psb_s_cp_csr_from_coo(a,b,info) +subroutine psb_s_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_cp_csr_from_coo - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(in) :: b @@ -2849,18 +2890,18 @@ subroutine psb_s_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_s_base_sparse_mat = tmp%psb_s_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -2869,22 +2910,22 @@ subroutine psb_s_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -2900,17 +2941,17 @@ subroutine psb_s_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_s_cp_csr_from_coo -subroutine psb_s_cp_csr_to_coo(a,b,info) +subroutine psb_s_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_cp_csr_to_coo - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -2949,12 +2990,12 @@ subroutine psb_s_cp_csr_to_coo(a,b,info) end subroutine psb_s_cp_csr_to_coo -subroutine psb_s_mv_csr_to_coo(a,b,info) +subroutine psb_s_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_mv_csr_to_coo - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -2995,13 +3036,13 @@ end subroutine psb_s_mv_csr_to_coo -subroutine psb_s_mv_csr_from_coo(a,b,info) +subroutine psb_s_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_mv_csr_from_coo - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_coo_sparse_mat), intent(inout) :: b @@ -3027,7 +3068,7 @@ subroutine psb_s_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -3051,15 +3092,15 @@ subroutine psb_s_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_s_mv_csr_from_coo -subroutine psb_s_mv_csr_to_fmt(a,b,info) +subroutine psb_s_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_mv_csr_to_fmt - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -3076,9 +3117,9 @@ subroutine psb_s_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_s_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_s_base_sparse_mat = a%psb_s_base_sparse_mat @@ -3096,12 +3137,12 @@ subroutine psb_s_mv_csr_to_fmt(a,b,info) end subroutine psb_s_mv_csr_to_fmt -subroutine psb_s_cp_csr_to_fmt(a,b,info) +subroutine psb_s_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_cp_csr_to_fmt - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -3119,10 +3160,10 @@ subroutine psb_s_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_s_csr_sparse_mat) + type is (psb_s_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_s_base_sparse_mat = a%psb_s_base_sparse_mat nr = a%get_nrows() @@ -3140,11 +3181,11 @@ subroutine psb_s_cp_csr_to_fmt(a,b,info) end subroutine psb_s_cp_csr_to_fmt -subroutine psb_s_mv_csr_from_fmt(a,b,info) +subroutine psb_s_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_mv_csr_from_fmt - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b @@ -3161,10 +3202,10 @@ subroutine psb_s_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_s_csr_sparse_mat) + type is (psb_s_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat @@ -3183,12 +3224,12 @@ end subroutine psb_s_mv_csr_from_fmt -subroutine psb_s_cp_csr_from_fmt(a,b,info) +subroutine psb_s_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_cp_csr_from_fmt - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a class(psb_s_base_sparse_mat), intent(in) :: b @@ -3205,10 +3246,10 @@ subroutine psb_s_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_s_coo_sparse_mat) + type is (psb_s_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_s_csr_sparse_mat) + type is (psb_s_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_s_base_sparse_mat = b%psb_s_base_sparse_mat nr = b%get_nrows() @@ -3227,19 +3268,19 @@ end subroutine psb_s_cp_csr_from_fmt subroutine psb_s_csr_clean_zeros(a, info) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_clean_zeros - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nr - integer(psb_ipk_), allocatable :: ilrp(:) - + integer(psb_ipk_), allocatable :: ilrp(:) + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= szero) then @@ -3258,7 +3299,7 @@ subroutine psb_scsrspspmm(a,b,c,info) use psb_s_mat_mod use psb_serial_mod, psb_protect_name => psb_scsrspspmm - implicit none + implicit none class(psb_s_csr_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(out) :: c @@ -3269,7 +3310,7 @@ subroutine psb_scsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -3279,7 +3320,7 @@ subroutine psb_scsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -3305,9 +3346,9 @@ subroutine psb_scsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_s_csr_sparse_mat), intent(in) :: a,b type(psb_s_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -3330,49 +3371,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_scsrspspmm @@ -3381,13 +3422,13 @@ end subroutine psb_scsrspspmm ! ! ! ls version -! ! -subroutine psb_ls_csr_get_diag(a,d,info) +! +subroutine psb_ls_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_get_diag - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3402,28 +3443,28 @@ subroutine psb_ls_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = sone else do i=1, mnm d(i) = szero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = szero end do @@ -3436,12 +3477,12 @@ subroutine psb_ls_csr_get_diag(a,d,info) end subroutine psb_ls_csr_get_diag -subroutine psb_ls_csr_scal(d,a,info,side) +subroutine psb_ls_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_scal use psb_string_mod - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3451,47 +3492,47 @@ subroutine psb_ls_csr_scal(d,a,info,side) integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -3509,11 +3550,11 @@ subroutine psb_ls_csr_scal(d,a,info,side) end subroutine psb_ls_csr_scal -subroutine psb_ls_csr_scals(d,a,info) +subroutine psb_ls_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_scals - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3527,7 +3568,7 @@ subroutine psb_ls_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3548,7 +3589,7 @@ end subroutine psb_ls_csr_scals function psb_ls_csr_maxval(a) result(res) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_maxval - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3561,7 +3602,7 @@ function psb_ls_csr_maxval(a) result(res) res = szero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3570,7 +3611,7 @@ end function psb_ls_csr_maxval function psb_ls_csr_csnmi(a) result(res) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_csnmi - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a real(psb_spk_) :: res @@ -3587,7 +3628,7 @@ function psb_ls_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -3595,7 +3636,7 @@ function psb_ls_csr_csnmi(a) result(res) end function psb_ls_csr_csnmi -subroutine psb_ls_csr_rowsum(d,a) +subroutine psb_ls_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_rowsum @@ -3615,7 +3656,7 @@ subroutine psb_ls_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3624,12 +3665,12 @@ subroutine psb_ls_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do @@ -3637,7 +3678,7 @@ subroutine psb_ls_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3645,7 +3686,7 @@ subroutine psb_ls_csr_rowsum(d,a) end subroutine psb_ls_csr_rowsum -subroutine psb_ls_csr_arwsum(d,a) +subroutine psb_ls_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_arwsum @@ -3665,7 +3706,7 @@ subroutine psb_ls_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3675,19 +3716,19 @@ subroutine psb_ls_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = szero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + sone end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3695,7 +3736,7 @@ subroutine psb_ls_csr_arwsum(d,a) end subroutine psb_ls_csr_arwsum -subroutine psb_ls_csr_colsum(d,a) +subroutine psb_ls_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_colsum @@ -3716,7 +3757,7 @@ subroutine psb_ls_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3731,8 +3772,8 @@ subroutine psb_ls_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -3740,7 +3781,7 @@ subroutine psb_ls_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3748,7 +3789,7 @@ subroutine psb_ls_csr_colsum(d,a) end subroutine psb_ls_csr_colsum -subroutine psb_ls_csr_aclsum(d,a) +subroutine psb_ls_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_aclsum @@ -3769,7 +3810,7 @@ subroutine psb_ls_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3784,8 +3825,8 @@ subroutine psb_ls_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + sone end do @@ -3793,7 +3834,7 @@ subroutine psb_ls_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3802,7 +3843,7 @@ subroutine psb_ls_csr_aclsum(d,a) end subroutine psb_ls_csr_aclsum -! == =================================== +! == =================================== ! ! ! @@ -3812,14 +3853,14 @@ end subroutine psb_ls_csr_aclsum ! ! ! -! == =================================== +! == =================================== -subroutine psb_ls_csr_reallocate_nz(nz,a) +subroutine psb_ls_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_reallocate_nz - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3831,7 +3872,7 @@ subroutine psb_ls_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -3845,10 +3886,10 @@ subroutine psb_ls_csr_reallocate_nz(nz,a) end subroutine psb_ls_csr_reallocate_nz -subroutine psb_ls_csr_mold(a,b,info) +subroutine psb_ls_csr_mold(a,b,info) use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_mold use psb_error_mod - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3857,16 +3898,16 @@ subroutine psb_ls_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_ls_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -3877,11 +3918,11 @@ subroutine psb_ls_csr_mold(a,b,info) end subroutine psb_ls_csr_mold -subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -3893,26 +3934,26 @@ subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -3920,7 +3961,7 @@ subroutine psb_ls_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -3943,7 +3984,7 @@ end subroutine psb_ls_csr_allocate_mnnz subroutine psb_ls_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3961,7 +4002,7 @@ subroutine psb_ls_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -3990,35 +4031,35 @@ subroutine psb_ls_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4064,32 +4105,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -4100,7 +4141,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -4111,13 +4152,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_ls_csr_csgetptn subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4136,7 +4177,7 @@ subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4146,7 +4187,7 @@ subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -4165,22 +4206,22 @@ subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4188,13 +4229,13 @@ subroutine psb_ls_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4241,12 +4282,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -4254,21 +4295,21 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4280,7 +4321,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4301,7 +4342,7 @@ end subroutine psb_ls_csr_csgetrow ! subroutine psb_ls_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_tril @@ -4313,7 +4354,7 @@ subroutine psb_ls_csr_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ls_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4325,57 +4366,57 @@ subroutine psb_ls_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -4384,7 +4425,7 @@ subroutine psb_ls_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -4400,7 +4441,7 @@ subroutine psb_ls_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -4408,17 +4449,17 @@ subroutine psb_ls_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -4437,8 +4478,8 @@ subroutine psb_ls_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -4456,7 +4497,7 @@ end subroutine psb_ls_csr_tril subroutine psb_ls_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_triu @@ -4468,7 +4509,7 @@ subroutine psb_ls_csr_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_ls_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4480,57 +4521,57 @@ subroutine psb_ls_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -4539,7 +4580,7 @@ subroutine psb_ls_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -4591,8 +4632,8 @@ subroutine psb_ls_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -4609,11 +4650,11 @@ subroutine psb_ls_csr_triu(a,u,info,& end subroutine psb_ls_csr_triu -subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_csput_a - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) @@ -4633,24 +4674,24 @@ subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then - info = psb_err_iarg_neg_; + if (nz <= 0) then + info = psb_err_iarg_neg_; call psb_errpush(info,name,m_err=(/1/)) goto 9999 end if - if (size(ia) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ia) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/2/)) goto 9999 end if - if (size(ja) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ja) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/3/)) goto 9999 end if - if (size(val) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(val) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/4/)) goto 9999 end if @@ -4660,25 +4701,25 @@ subroutine psb_ls_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_ls_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -4704,7 +4745,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -4722,13 +4763,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -4738,20 +4779,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 inc = nc - ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -4763,18 +4804,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 inc = nc ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -4799,9 +4840,9 @@ end subroutine psb_ls_csr_csput_a subroutine psb_ls_csr_reinit(a,clear) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_reinit - implicit none + implicit none - class(psb_ls_csr_sparse_mat), intent(inout) :: a + class(psb_ls_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4814,16 +4855,16 @@ subroutine psb_ls_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = szero call a%set_upd() call a%set_host() @@ -4846,7 +4887,7 @@ subroutine psb_ls_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_trim - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, m integer(psb_ipk_) :: err_act, info @@ -4862,7 +4903,7 @@ subroutine psb_ls_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4875,10 +4916,10 @@ end subroutine psb_ls_csr_trim subroutine psb_ls_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_ls_csr_sparse_mat), intent(in) :: a + class(psb_ls_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4887,13 +4928,13 @@ subroutine psb_ls_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='ls_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='real' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4907,40 +4948,40 @@ subroutine psb_ls_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -4950,12 +4991,12 @@ subroutine psb_ls_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_ls_csr_print -subroutine psb_ls_cp_csr_from_coo(a,b,info) +subroutine psb_ls_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_cp_csr_from_coo - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(in) :: b @@ -4973,18 +5014,18 @@ subroutine psb_ls_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_ls_base_sparse_mat = tmp%psb_ls_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -4993,22 +5034,22 @@ subroutine psb_ls_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -5024,17 +5065,17 @@ subroutine psb_ls_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_ls_cp_csr_from_coo -subroutine psb_ls_cp_csr_to_coo(a,b,info) +subroutine psb_ls_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_cp_csr_to_coo - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -5073,12 +5114,12 @@ subroutine psb_ls_cp_csr_to_coo(a,b,info) end subroutine psb_ls_cp_csr_to_coo -subroutine psb_ls_mv_csr_to_coo(a,b,info) +subroutine psb_ls_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_mv_csr_to_coo - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -5119,13 +5160,13 @@ end subroutine psb_ls_mv_csr_to_coo -subroutine psb_ls_mv_csr_from_coo(a,b,info) +subroutine psb_ls_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_mv_csr_from_coo - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_coo_sparse_mat), intent(inout) :: b @@ -5151,7 +5192,7 @@ subroutine psb_ls_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -5175,15 +5216,15 @@ subroutine psb_ls_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_ls_mv_csr_from_coo -subroutine psb_ls_mv_csr_to_fmt(a,b,info) +subroutine psb_ls_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_mv_csr_to_fmt - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -5200,9 +5241,9 @@ subroutine psb_ls_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_ls_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ls_base_sparse_mat = a%psb_ls_base_sparse_mat @@ -5220,12 +5261,12 @@ subroutine psb_ls_mv_csr_to_fmt(a,b,info) end subroutine psb_ls_mv_csr_to_fmt -subroutine psb_ls_cp_csr_to_fmt(a,b,info) +subroutine psb_ls_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_cp_csr_to_fmt - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -5243,10 +5284,10 @@ subroutine psb_ls_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_ls_csr_sparse_mat) + type is (psb_ls_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_ls_base_sparse_mat = a%psb_ls_base_sparse_mat nr = a%get_nrows() @@ -5264,11 +5305,11 @@ subroutine psb_ls_cp_csr_to_fmt(a,b,info) end subroutine psb_ls_cp_csr_to_fmt -subroutine psb_ls_mv_csr_from_fmt(a,b,info) +subroutine psb_ls_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_mv_csr_from_fmt - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b @@ -5285,10 +5326,10 @@ subroutine psb_ls_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_ls_csr_sparse_mat) + type is (psb_ls_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat @@ -5307,12 +5348,12 @@ end subroutine psb_ls_mv_csr_from_fmt -subroutine psb_ls_cp_csr_from_fmt(a,b,info) +subroutine psb_ls_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_s_base_mat_mod use psb_realloc_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_cp_csr_from_fmt - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(in) :: b @@ -5329,10 +5370,10 @@ subroutine psb_ls_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_ls_coo_sparse_mat) + type is (psb_ls_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_ls_csr_sparse_mat) + type is (psb_ls_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_ls_base_sparse_mat = b%psb_ls_base_sparse_mat nr = b%get_nrows() @@ -5352,19 +5393,19 @@ end subroutine psb_ls_cp_csr_from_fmt subroutine psb_ls_csr_clean_zeros(a, info) use psb_error_mod use psb_s_csr_mat_mod, psb_protect_name => psb_ls_csr_clean_zeros - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nr - integer(psb_lpk_), allocatable :: ilrp(:) - - info = 0 + integer(psb_lpk_), allocatable :: ilrp(:) + + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= szero) then @@ -5383,7 +5424,7 @@ subroutine psb_lscsrspspmm(a,b,c,info) use psb_s_mat_mod use psb_serial_mod, psb_protect_name => psb_lscsrspspmm - implicit none + implicit none class(psb_ls_csr_sparse_mat), intent(in) :: a,b type(psb_ls_csr_sparse_mat), intent(out) :: c @@ -5394,7 +5435,7 @@ subroutine psb_lscsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -5404,7 +5445,7 @@ subroutine psb_lscsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -5429,9 +5470,9 @@ subroutine psb_lscsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_ls_csr_sparse_mat), intent(in) :: a,b type(psb_ls_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -5454,50 +5495,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_lscsrspspmm - diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90 index ee8bc40d7..55cef1ab4 100644 --- a/base/serial/impl/psb_s_mat_impl.F90 +++ b/base/serial/impl/psb_s_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! s_mat_impl: ! implementation of the outer matrix methods. @@ -43,7 +43,7 @@ ! ! ! -! Setters +! Setters ! ! ! @@ -53,10 +53,10 @@ ! == =================================== -subroutine psb_s_set_nrows(m,a) +subroutine psb_s_set_nrows(m,a) use psb_s_mat_mod, psb_protect_name => psb_s_set_nrows use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -64,7 +64,7 @@ subroutine psb_s_set_nrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -82,10 +82,10 @@ subroutine psb_s_set_nrows(m,a) end subroutine psb_s_set_nrows -subroutine psb_s_set_ncols(n,a) +subroutine psb_s_set_ncols(n,a) use psb_s_mat_mod, psb_protect_name => psb_s_set_ncols use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -93,7 +93,7 @@ subroutine psb_s_set_ncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -112,16 +112,16 @@ end subroutine psb_s_set_ncols ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_s_set_dupl(n,a) +subroutine psb_s_set_dupl(n,a) use psb_s_mat_mod, psb_protect_name => psb_s_set_dupl use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -129,7 +129,7 @@ subroutine psb_s_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -151,17 +151,17 @@ end subroutine psb_s_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_s_set_null(a) +subroutine psb_s_set_null(a) use psb_s_mat_mod, psb_protect_name => psb_s_set_null use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -179,17 +179,17 @@ subroutine psb_s_set_null(a) end subroutine psb_s_set_null -subroutine psb_s_set_bld(a) +subroutine psb_s_set_bld(a) use psb_s_mat_mod, psb_protect_name => psb_s_set_bld use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -208,17 +208,17 @@ subroutine psb_s_set_bld(a) end subroutine psb_s_set_bld -subroutine psb_s_set_upd(a) +subroutine psb_s_set_upd(a) use psb_s_mat_mod, psb_protect_name => psb_s_set_upd use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -238,17 +238,17 @@ subroutine psb_s_set_upd(a) end subroutine psb_s_set_upd -subroutine psb_s_set_asb(a) +subroutine psb_s_set_asb(a) use psb_s_mat_mod, psb_protect_name => psb_s_set_asb use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -267,10 +267,10 @@ subroutine psb_s_set_asb(a) end subroutine psb_s_set_asb -subroutine psb_s_set_sorted(a,val) +subroutine psb_s_set_sorted(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_sorted use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -278,7 +278,7 @@ subroutine psb_s_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -297,10 +297,10 @@ subroutine psb_s_set_sorted(a,val) end subroutine psb_s_set_sorted -subroutine psb_s_set_triangle(a,val) +subroutine psb_s_set_triangle(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_triangle use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -308,7 +308,7 @@ subroutine psb_s_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -326,10 +326,10 @@ subroutine psb_s_set_triangle(a,val) end subroutine psb_s_set_triangle -subroutine psb_s_set_symmetric(a,val) +subroutine psb_s_set_symmetric(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -337,7 +337,7 @@ subroutine psb_s_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -355,10 +355,10 @@ subroutine psb_s_set_symmetric(a,val) end subroutine psb_s_set_symmetric -subroutine psb_s_set_unit(a,val) +subroutine psb_s_set_unit(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_unit use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -366,7 +366,7 @@ subroutine psb_s_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -385,10 +385,10 @@ subroutine psb_s_set_unit(a,val) end subroutine psb_s_set_unit -subroutine psb_s_set_lower(a,val) +subroutine psb_s_set_lower(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_lower use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -396,7 +396,7 @@ subroutine psb_s_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -415,10 +415,10 @@ subroutine psb_s_set_lower(a,val) end subroutine psb_s_set_lower -subroutine psb_s_set_upper(a,val) +subroutine psb_s_set_upper(a,val) use psb_s_mat_mod, psb_protect_name => psb_s_set_upper use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -426,7 +426,7 @@ subroutine psb_s_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -456,16 +456,16 @@ end subroutine psb_s_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_s_sparse_print(iout,a,iv,head,ivr,ivc) use psb_s_mat_mod, psb_protect_name => psb_s_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_sspmat_type), intent(in) :: a + class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -476,7 +476,7 @@ subroutine psb_s_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -496,10 +496,10 @@ end subroutine psb_s_sparse_print subroutine psb_s_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_s_mat_mod, psb_protect_name => psb_s_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_sspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_sspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -511,24 +511,24 @@ subroutine psb_s_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -547,13 +547,13 @@ end subroutine psb_s_n_sparse_print subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) use psb_s_mat_mod, psb_protect_name => psb_s_get_neigh use psb_error_mod - implicit none - class(psb_sspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + implicit none + class(psb_sspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -561,7 +561,7 @@ subroutine psb_s_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -582,17 +582,17 @@ end subroutine psb_s_get_neigh -subroutine psb_s_csall(nr,nc,a,info,nz) +subroutine psb_s_csall(nr,nc,a,info,nz) use psb_s_mat_mod, psb_protect_name => psb_s_csall use psb_s_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -602,13 +602,13 @@ subroutine psb_s_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_s_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -619,10 +619,10 @@ subroutine psb_s_csall(nr,nc,a,info,nz) end subroutine psb_s_csall -subroutine psb_s_reallocate_nz(nz,a) +subroutine psb_s_reallocate_nz(nz,a) use psb_s_mat_mod, psb_protect_name => psb_s_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -630,7 +630,7 @@ subroutine psb_s_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -647,31 +647,31 @@ subroutine psb_s_reallocate_nz(nz,a) end subroutine psb_s_reallocate_nz -subroutine psb_s_free(a) +subroutine psb_s_free(a) use psb_s_mat_mod, psb_protect_name => psb_s_free use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_s_free -subroutine psb_s_trim(a) +subroutine psb_s_trim(a) use psb_s_mat_mod, psb_protect_name => psb_s_trim use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -689,11 +689,11 @@ end subroutine psb_s_trim -subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_mat_mod, psb_protect_name => psb_s_csput_a use psb_s_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -705,15 +705,15 @@ subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -725,13 +725,13 @@ subroutine psb_s_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_s_csput_a -subroutine psb_s_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_s_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_mat_mod, psb_protect_name => psb_s_csput_v use psb_s_base_mat_mod use psb_s_vect_mod, only : psb_s_vect_type use psb_i_vect_mod, only : psb_i_vect_type use psb_error_mod - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a type(psb_s_vect_type), intent(inout) :: val type(psb_i_vect_type), intent(inout) :: ia, ja @@ -744,19 +744,19 @@ subroutine psb_s_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -771,7 +771,7 @@ end subroutine psb_s_csput_v subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -794,7 +794,7 @@ subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -803,7 +803,7 @@ subroutine psb_s_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -818,7 +818,7 @@ end subroutine psb_s_csgetptn subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -842,7 +842,7 @@ subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -851,7 +851,7 @@ subroutine psb_s_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -868,7 +868,7 @@ end subroutine psb_s_csgetrow subroutine psb_s_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -893,31 +893,31 @@ subroutine psb_s_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -936,7 +936,7 @@ subroutine psb_s_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_s_base_mat_mod use psb_s_mat_mod, psb_protect_name => psb_s_tril - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -951,22 +951,22 @@ subroutine psb_s_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -975,7 +975,7 @@ subroutine psb_s_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -993,7 +993,7 @@ subroutine psb_s_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_s_base_mat_mod use psb_s_mat_mod, psb_protect_name => psb_s_triu - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -1009,24 +1009,24 @@ subroutine psb_s_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -1035,7 +1035,7 @@ subroutine psb_s_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1050,7 +1050,7 @@ end subroutine psb_s_triu subroutine psb_s_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -1070,24 +1070,24 @@ subroutine psb_s_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -1101,7 +1101,7 @@ end subroutine psb_s_csclip subroutine psb_s_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -1120,7 +1120,7 @@ subroutine psb_s_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1128,7 +1128,7 @@ subroutine psb_s_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1144,7 +1144,7 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_cscnv - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1161,7 +1161,7 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1173,38 +1173,38 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_s_csr_sparse_mat :: altmp, stat=info) + allocate(psb_s_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_s_coo_sparse_mat :: altmp, stat=info) + allocate(psb_s_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_s_csc_sparse_mat :: altmp, stat=info) + allocate(psb_s_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -1222,7 +1222,7 @@ subroutine psb_s_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%set_asb() + call b%set_asb() call psb_erractionrestore(err_act) return @@ -1237,7 +1237,7 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_cscnv_ip - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -1254,15 +1254,15 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -1272,29 +1272,29 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_s_csr_sparse_mat :: altmp, stat=info) + allocate(psb_s_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_s_coo_sparse_mat :: altmp, stat=info) + allocate(psb_s_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_s_csc_sparse_mat :: altmp, stat=info) + allocate(psb_s_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1313,7 +1313,7 @@ subroutine psb_s_cscnv_ip(a,info,type,mold,dupl) call move_alloc(altmp,a%a) call a%trim() - call a%set_asb() + call a%set_asb() call psb_erractionrestore(err_act) return @@ -1330,7 +1330,7 @@ subroutine psb_s_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_cscnv_base - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -1345,19 +1345,19 @@ subroutine psb_s_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -1379,7 +1379,7 @@ end subroutine psb_s_cscnv_base subroutine psb_s_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -1398,15 +1398,15 @@ subroutine psb_s_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1415,8 +1415,8 @@ subroutine psb_s_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1439,7 +1439,7 @@ end subroutine psb_s_clip_d subroutine psb_s_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -1457,13 +1457,13 @@ subroutine psb_s_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -1474,8 +1474,8 @@ subroutine psb_s_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1500,7 +1500,7 @@ subroutine psb_s_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_from - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1518,7 +1518,7 @@ subroutine psb_s_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_from - implicit none + implicit none class(psb_sspmat_type), intent(out) :: a class(psb_s_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -1527,7 +1527,7 @@ subroutine psb_s_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -1536,8 +1536,8 @@ subroutine psb_s_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1553,11 +1553,11 @@ subroutine psb_s_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_to - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -1568,7 +1568,7 @@ subroutine psb_s_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_to - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1585,14 +1585,14 @@ subroutine psb_s_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_s_mold subroutine psb_sspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_sspmat_type_move - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1613,7 +1613,7 @@ subroutine psb_sspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_sspmat_clone - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1625,10 +1625,10 @@ subroutine psb_sspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1645,7 +1645,7 @@ subroutine psb_s_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_transp_1mat - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1654,7 +1654,7 @@ subroutine psb_s_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1678,7 +1678,7 @@ subroutine psb_s_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_transp_2mat - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b @@ -1688,18 +1688,18 @@ subroutine psb_s_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -1716,7 +1716,7 @@ subroutine psb_s_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_transc_1mat - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1725,7 +1725,7 @@ subroutine psb_s_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1749,7 +1749,7 @@ subroutine psb_s_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_s_transc_2mat - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b @@ -1759,18 +1759,18 @@ subroutine psb_s_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -1786,9 +1786,9 @@ end subroutine psb_s_transc_2mat subroutine psb_s_asb(a,mold) use psb_s_mat_mod, psb_protect_name => psb_s_asb use psb_error_mod - implicit none + implicit none - class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), optional, intent(in) :: mold class(psb_s_base_sparse_mat), allocatable :: tmp class(psb_s_base_sparse_mat), pointer :: mld @@ -1796,15 +1796,15 @@ subroutine psb_s_asb(a,mold) character(len=20) :: name='s_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -1815,7 +1815,7 @@ subroutine psb_s_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -1830,21 +1830,21 @@ end subroutine psb_s_asb subroutine psb_s_reinit(a,clear) use psb_s_mat_mod, psb_protect_name => psb_s_reinit use psb_error_mod - implicit none + implicit none - class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -1879,10 +1879,10 @@ end subroutine psb_s_reinit ! == =================================== -subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_s_mat_mod, psb_protect_name => psb_s_csmm - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -1894,14 +1894,14 @@ subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1912,10 +1912,10 @@ subroutine psb_s_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_s_csmm -subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_s_mat_mod, psb_protect_name => psb_s_csmv - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -1927,14 +1927,14 @@ subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1944,11 +1944,11 @@ subroutine psb_s_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_s_csmv -subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) +subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_s_vect_mod use psb_s_mat_mod, psb_protect_name => psb_s_csmv_vect - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x @@ -1961,25 +1961,25 @@ subroutine psb_s_csmv_vect(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x%v,beta,y%v,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1991,10 +1991,10 @@ end subroutine psb_s_csmv_vect -subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_s_mat_mod, psb_protect_name => psb_s_cssm - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:,:) real(psb_spk_), intent(inout) :: y(:,:) @@ -2007,14 +2007,14 @@ subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2026,10 +2026,10 @@ subroutine psb_s_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_s_cssm -subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_s_mat_mod, psb_protect_name => psb_s_cssv - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta, x(:) real(psb_spk_), intent(inout) :: y(:) @@ -2042,15 +2042,15 @@ subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2062,11 +2062,11 @@ subroutine psb_s_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_s_cssv -subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_s_vect_mod use psb_s_mat_mod, psb_protect_name => psb_s_cssv_vect - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), intent(in) :: alpha, beta type(psb_s_vect_type), intent(inout) :: x @@ -2080,33 +2080,33 @@ subroutine psb_s_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (present(d)) then - if (.not.allocated(d%v)) then + if (present(d)) then + if (.not.allocated(d%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) else - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2121,7 +2121,7 @@ function psb_s_maxval(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_s_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2132,7 +2132,7 @@ function psb_s_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2152,7 +2152,7 @@ function psb_s_csnmi(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_s_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2162,7 +2162,7 @@ function psb_s_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2183,7 +2183,7 @@ function psb_s_csnm1(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_s_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -2193,7 +2193,7 @@ function psb_s_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2214,7 +2214,7 @@ function psb_s_rowsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_s_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2225,7 +2225,7 @@ function psb_s_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2247,7 +2247,7 @@ function psb_s_arwsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_s_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2258,7 +2258,7 @@ function psb_s_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2281,7 +2281,7 @@ function psb_s_colsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_s_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2292,7 +2292,7 @@ function psb_s_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2315,7 +2315,7 @@ function psb_s_aclsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_s_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2326,7 +2326,7 @@ function psb_s_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2350,7 +2350,7 @@ function psb_s_get_diag(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_s_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2361,14 +2361,14 @@ function psb_s_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -2389,7 +2389,7 @@ subroutine psb_s_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_scal - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2401,7 +2401,7 @@ subroutine psb_s_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2424,7 +2424,7 @@ subroutine psb_s_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_scals - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -2435,7 +2435,7 @@ subroutine psb_s_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2453,27 +2453,60 @@ subroutine psb_s_scals(d,a,info) end subroutine psb_s_scals +subroutine psb_s_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_s_scalplusidentity + implicit none + class(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_s_scalplusidentity + subroutine psb_s_mv_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_from_lb - implicit none - + implicit none + class(psb_sspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_s_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_lfmt(b,info) - + end subroutine psb_s_mv_from_lb - + subroutine psb_s_cp_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_from_lb - implicit none - + implicit none + class(psb_sspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -2487,30 +2520,30 @@ subroutine psb_s_mv_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_to_lb - implicit none - + implicit none + class(psb_sspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_lfmt(b,info) call a%free() end if - + end subroutine psb_s_mv_to_lb subroutine psb_s_cp_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_to_lb - implicit none + implicit none class(psb_sspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -2523,7 +2556,7 @@ subroutine psb_s_mv_from_l(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_from_l - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -2535,20 +2568,20 @@ subroutine psb_s_mv_from_l(a,b) call a%free() end if call b%free() - + end subroutine psb_s_mv_from_l - + subroutine psb_s_cp_from_l(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_from_l - implicit none + implicit none class(psb_sspmat_type), intent(out) :: a class(psb_lsspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_s_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_lfmt(b%a,info) @@ -2561,12 +2594,12 @@ subroutine psb_s_mv_to_l(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_mv_to_l - implicit none + implicit none class(psb_sspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_ls_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_lfmt(b%a,info) @@ -2574,26 +2607,26 @@ subroutine psb_s_mv_to_l(a,b) call b%free() end if call a%free() - + end subroutine psb_s_mv_to_l subroutine psb_s_cp_to_l(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_s_cp_to_l - implicit none - + implicit none + class(psb_sspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_ls_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_lfmt(b%a,info) else call b%free() end if - + end subroutine psb_s_cp_to_l @@ -2603,10 +2636,10 @@ end subroutine psb_s_cp_to_l ! -subroutine psb_ls_set_lnrows(m,a) +subroutine psb_ls_set_lnrows(m,a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_lnrows use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2614,7 +2647,7 @@ subroutine psb_ls_set_lnrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2632,10 +2665,10 @@ subroutine psb_ls_set_lnrows(m,a) end subroutine psb_ls_set_lnrows #if defined(IPK4) && defined(LPK8) -subroutine psb_ls_set_inrows(m,a) +subroutine psb_ls_set_inrows(m,a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_inrows use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2643,7 +2676,7 @@ subroutine psb_ls_set_inrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2661,10 +2694,10 @@ subroutine psb_ls_set_inrows(m,a) end subroutine psb_ls_set_inrows #endif -subroutine psb_ls_set_lncols(n,a) +subroutine psb_ls_set_lncols(n,a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_lncols use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2672,7 +2705,7 @@ subroutine psb_ls_set_lncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2689,10 +2722,10 @@ subroutine psb_ls_set_lncols(n,a) end subroutine psb_ls_set_lncols #if defined(IPK4) && defined(LPK8) -subroutine psb_ls_set_incols(n,a) +subroutine psb_ls_set_incols(n,a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_incols use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2700,7 +2733,7 @@ subroutine psb_ls_set_incols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2719,16 +2752,16 @@ end subroutine psb_ls_set_incols #endif ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_ls_set_dupl(n,a) +subroutine psb_ls_set_dupl(n,a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_dupl use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2736,7 +2769,7 @@ subroutine psb_ls_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2758,17 +2791,17 @@ end subroutine psb_ls_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_ls_set_null(a) +subroutine psb_ls_set_null(a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_null use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2786,17 +2819,17 @@ subroutine psb_ls_set_null(a) end subroutine psb_ls_set_null -subroutine psb_ls_set_bld(a) +subroutine psb_ls_set_bld(a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_bld use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2815,17 +2848,17 @@ subroutine psb_ls_set_bld(a) end subroutine psb_ls_set_bld -subroutine psb_ls_set_upd(a) +subroutine psb_ls_set_upd(a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_upd use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2845,17 +2878,17 @@ subroutine psb_ls_set_upd(a) end subroutine psb_ls_set_upd -subroutine psb_ls_set_asb(a) +subroutine psb_ls_set_asb(a) use psb_s_mat_mod, psb_protect_name => psb_ls_set_asb use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2874,10 +2907,10 @@ subroutine psb_ls_set_asb(a) end subroutine psb_ls_set_asb -subroutine psb_ls_set_sorted(a,val) +subroutine psb_ls_set_sorted(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_sorted use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2885,7 +2918,7 @@ subroutine psb_ls_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2904,10 +2937,10 @@ subroutine psb_ls_set_sorted(a,val) end subroutine psb_ls_set_sorted -subroutine psb_ls_set_triangle(a,val) +subroutine psb_ls_set_triangle(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_triangle use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2915,7 +2948,7 @@ subroutine psb_ls_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2933,10 +2966,10 @@ subroutine psb_ls_set_triangle(a,val) end subroutine psb_ls_set_triangle -subroutine psb_ls_set_symmetric(a,val) +subroutine psb_ls_set_symmetric(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2944,7 +2977,7 @@ subroutine psb_ls_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2962,10 +2995,10 @@ subroutine psb_ls_set_symmetric(a,val) end subroutine psb_ls_set_symmetric -subroutine psb_ls_set_unit(a,val) +subroutine psb_ls_set_unit(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_unit use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2973,7 +3006,7 @@ subroutine psb_ls_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2992,10 +3025,10 @@ subroutine psb_ls_set_unit(a,val) end subroutine psb_ls_set_unit -subroutine psb_ls_set_lower(a,val) +subroutine psb_ls_set_lower(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_lower use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3003,7 +3036,7 @@ subroutine psb_ls_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3022,10 +3055,10 @@ subroutine psb_ls_set_lower(a,val) end subroutine psb_ls_set_lower -subroutine psb_ls_set_upper(a,val) +subroutine psb_ls_set_upper(a,val) use psb_s_mat_mod, psb_protect_name => psb_ls_set_upper use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3033,7 +3066,7 @@ subroutine psb_ls_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3063,16 +3096,16 @@ end subroutine psb_ls_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_ls_sparse_print(iout,a,iv,head,ivr,ivc) use psb_s_mat_mod, psb_protect_name => psb_ls_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lsspmat_type), intent(in) :: a + class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3083,7 +3116,7 @@ subroutine psb_ls_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3103,10 +3136,10 @@ end subroutine psb_ls_sparse_print subroutine psb_ls_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_s_mat_mod, psb_protect_name => psb_ls_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_lsspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_lsspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3118,24 +3151,24 @@ subroutine psb_ls_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -3154,13 +3187,13 @@ end subroutine psb_ls_n_sparse_print subroutine psb_ls_get_neigh(a,idx,neigh,n,info,lev) use psb_s_mat_mod, psb_protect_name => psb_ls_get_neigh use psb_error_mod - implicit none - class(psb_lsspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + implicit none + class(psb_lsspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -3168,7 +3201,7 @@ subroutine psb_ls_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3189,17 +3222,17 @@ end subroutine psb_ls_get_neigh -subroutine psb_ls_csall(nr,nc,a,info,nz) +subroutine psb_ls_csall(nr,nc,a,info,nz) use psb_s_mat_mod, psb_protect_name => psb_ls_csall use psb_s_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -3209,13 +3242,13 @@ subroutine psb_ls_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_ls_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -3226,10 +3259,10 @@ subroutine psb_ls_csall(nr,nc,a,info,nz) end subroutine psb_ls_csall -subroutine psb_ls_reallocate_nz(nz,a) +subroutine psb_ls_reallocate_nz(nz,a) use psb_s_mat_mod, psb_protect_name => psb_ls_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3237,7 +3270,7 @@ subroutine psb_ls_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3254,31 +3287,31 @@ subroutine psb_ls_reallocate_nz(nz,a) end subroutine psb_ls_reallocate_nz -subroutine psb_ls_free(a) +subroutine psb_ls_free(a) use psb_s_mat_mod, psb_protect_name => psb_ls_free use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_ls_free -subroutine psb_ls_trim(a) +subroutine psb_ls_trim(a) use psb_s_mat_mod, psb_protect_name => psb_ls_trim use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3296,11 +3329,11 @@ end subroutine psb_ls_trim -subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_mat_mod, psb_protect_name => psb_ls_csput_a use psb_s_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -3312,15 +3345,15 @@ subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3332,13 +3365,13 @@ subroutine psb_ls_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_ls_csput_a -subroutine psb_ls_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_ls_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_s_mat_mod, psb_protect_name => psb_ls_csput_v use psb_s_base_mat_mod use psb_s_vect_mod, only : psb_s_vect_type use psb_l_vect_mod, only : psb_l_vect_type use psb_error_mod - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a type(psb_s_vect_type), intent(inout) :: val type(psb_l_vect_type), intent(inout) :: ia, ja @@ -3351,19 +3384,19 @@ subroutine psb_ls_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3378,7 +3411,7 @@ end subroutine psb_ls_csput_v subroutine psb_ls_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -3401,7 +3434,7 @@ subroutine psb_ls_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3410,7 +3443,7 @@ subroutine psb_ls_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3425,7 +3458,7 @@ end subroutine psb_ls_csgetptn subroutine psb_ls_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -3449,7 +3482,7 @@ subroutine psb_ls_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3458,7 +3491,7 @@ subroutine psb_ls_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3475,7 +3508,7 @@ end subroutine psb_ls_csgetrow subroutine psb_ls_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -3500,31 +3533,31 @@ subroutine psb_ls_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3543,7 +3576,7 @@ subroutine psb_ls_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_s_base_mat_mod use psb_s_mat_mod, psb_protect_name => psb_ls_tril - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -3558,22 +3591,22 @@ subroutine psb_ls_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3582,7 +3615,7 @@ subroutine psb_ls_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3600,7 +3633,7 @@ subroutine psb_ls_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_s_base_mat_mod use psb_s_mat_mod, psb_protect_name => psb_ls_triu - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -3616,24 +3649,24 @@ subroutine psb_ls_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3642,7 +3675,7 @@ subroutine psb_ls_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3657,7 +3690,7 @@ end subroutine psb_ls_triu subroutine psb_ls_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -3677,24 +3710,24 @@ subroutine psb_ls_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -3708,7 +3741,7 @@ end subroutine psb_ls_csclip subroutine psb_ls_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -3727,7 +3760,7 @@ subroutine psb_ls_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3735,7 +3768,7 @@ subroutine psb_ls_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3754,7 +3787,7 @@ subroutine psb_ls_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cscnv - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3771,7 +3804,7 @@ subroutine psb_ls_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3783,38 +3816,38 @@ subroutine psb_ls_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_ls_csr_sparse_mat :: altmp, stat=info) + allocate(psb_ls_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_ls_coo_sparse_mat :: altmp, stat=info) + allocate(psb_ls_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_ls_csc_sparse_mat :: altmp, stat=info) + allocate(psb_ls_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -3832,7 +3865,7 @@ subroutine psb_ls_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%asb() + call b%asb() call psb_erractionrestore(err_act) return @@ -3849,7 +3882,7 @@ subroutine psb_ls_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cscnv_ip - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3866,15 +3899,15 @@ subroutine psb_ls_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -3884,29 +3917,29 @@ subroutine psb_ls_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_ls_csr_sparse_mat :: altmp, stat=info) + allocate(psb_ls_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_ls_coo_sparse_mat :: altmp, stat=info) + allocate(psb_ls_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_ls_csc_sparse_mat :: altmp, stat=info) + allocate(psb_ls_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -3924,7 +3957,7 @@ subroutine psb_ls_cscnv_ip(a,info,type,mold,dupl) end if call move_alloc(altmp,a%a) - call a%set_asb() + call a%set_asb() call a%trim() call psb_erractionrestore(err_act) return @@ -3942,7 +3975,7 @@ subroutine psb_ls_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cscnv_base - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -3957,19 +3990,19 @@ subroutine psb_ls_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -3991,7 +4024,7 @@ end subroutine psb_ls_cscnv_base subroutine psb_ls_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -4010,15 +4043,15 @@ subroutine psb_ls_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -4027,8 +4060,8 @@ subroutine psb_ls_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4051,7 +4084,7 @@ end subroutine psb_ls_clip_d subroutine psb_ls_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_s_base_mat_mod @@ -4069,13 +4102,13 @@ subroutine psb_ls_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -4086,8 +4119,8 @@ subroutine psb_ls_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4112,7 +4145,7 @@ subroutine psb_ls_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_from - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4130,7 +4163,7 @@ subroutine psb_ls_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_from - implicit none + implicit none class(psb_lsspmat_type), intent(out) :: a class(psb_ls_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -4139,7 +4172,7 @@ subroutine psb_ls_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -4148,8 +4181,8 @@ subroutine psb_ls_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4165,11 +4198,11 @@ subroutine psb_ls_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_to - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -4180,7 +4213,7 @@ subroutine psb_ls_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_to - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_ls_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4197,14 +4230,14 @@ subroutine psb_ls_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_ls_mold subroutine psb_lsspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_lsspmat_type_move - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4225,7 +4258,7 @@ subroutine psb_lsspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_lsspmat_clone - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_lsspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4237,10 +4270,10 @@ subroutine psb_lsspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4257,7 +4290,7 @@ subroutine psb_ls_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_transp_1mat - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4266,7 +4299,7 @@ subroutine psb_ls_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4290,7 +4323,7 @@ subroutine psb_ls_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_transp_2mat - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b @@ -4300,18 +4333,18 @@ subroutine psb_ls_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -4328,7 +4361,7 @@ subroutine psb_ls_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_transc_1mat - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4337,7 +4370,7 @@ subroutine psb_ls_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4361,7 +4394,7 @@ subroutine psb_ls_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_s_mat_mod, psb_protect_name => psb_ls_transc_2mat - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_lsspmat_type), intent(inout) :: b @@ -4371,18 +4404,18 @@ subroutine psb_ls_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -4398,9 +4431,9 @@ end subroutine psb_ls_transc_2mat subroutine psb_ls_asb(a,mold) use psb_s_mat_mod, psb_protect_name => psb_ls_asb use psb_error_mod - implicit none + implicit none - class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: a class(psb_ls_base_sparse_mat), optional, intent(in) :: mold class(psb_ls_base_sparse_mat), allocatable :: tmp class(psb_ls_base_sparse_mat), pointer :: mld @@ -4408,15 +4441,15 @@ subroutine psb_ls_asb(a,mold) character(len=20) :: name='ls_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -4427,7 +4460,7 @@ subroutine psb_ls_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -4442,21 +4475,21 @@ end subroutine psb_ls_asb subroutine psb_ls_reinit(a,clear) use psb_s_mat_mod, psb_protect_name => psb_ls_reinit use psb_error_mod - implicit none + implicit none - class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -4481,7 +4514,7 @@ function psb_ls_get_diag(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_ls_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4492,14 +4525,14 @@ function psb_ls_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -4520,7 +4553,7 @@ subroutine psb_ls_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_scal - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4532,7 +4565,7 @@ subroutine psb_ls_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4555,7 +4588,7 @@ subroutine psb_ls_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_scals - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a real(psb_spk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4566,7 +4599,7 @@ subroutine psb_ls_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4588,7 +4621,7 @@ function psb_ls_maxval(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_ls_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4599,7 +4632,7 @@ function psb_ls_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4619,7 +4652,7 @@ function psb_ls_csnmi(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_ls_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4629,7 +4662,7 @@ function psb_ls_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4649,7 +4682,7 @@ function psb_ls_csnm1(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_ls_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_) :: res @@ -4659,7 +4692,7 @@ function psb_ls_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4680,7 +4713,7 @@ function psb_ls_rowsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_ls_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4691,7 +4724,7 @@ function psb_ls_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4713,7 +4746,7 @@ function psb_ls_arwsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_ls_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4724,7 +4757,7 @@ function psb_ls_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4747,7 +4780,7 @@ function psb_ls_colsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_ls_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4758,7 +4791,7 @@ function psb_ls_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4781,7 +4814,7 @@ function psb_ls_aclsum(a,info) result(d) use psb_s_mat_mod, psb_protect_name => psb_ls_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a real(psb_spk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4792,7 +4825,7 @@ function psb_ls_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4815,22 +4848,22 @@ subroutine psb_ls_mv_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_from_ib - implicit none - + implicit none + class(psb_lsspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_ls_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_ifmt(b,info) - + end subroutine psb_ls_mv_from_ib - + subroutine psb_ls_cp_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_from_ib - implicit none - + implicit none + class(psb_lsspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4844,30 +4877,30 @@ subroutine psb_ls_mv_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_to_ib - implicit none - + implicit none + class(psb_lsspmat_type), intent(inout) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_ifmt(b,info) call a%free() end if - + end subroutine psb_ls_mv_to_ib subroutine psb_ls_cp_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_to_ib - implicit none + implicit none class(psb_lsspmat_type), intent(in) :: a class(psb_s_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -4880,7 +4913,7 @@ subroutine psb_ls_mv_from_i(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_from_i - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -4892,20 +4925,20 @@ subroutine psb_ls_mv_from_i(a,b) call a%free() end if call b%free() - + end subroutine psb_ls_mv_from_i - + subroutine psb_ls_cp_from_i(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_from_i - implicit none + implicit none class(psb_lsspmat_type), intent(out) :: a class(psb_sspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_ls_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_ifmt(b%a,info) @@ -4918,12 +4951,12 @@ subroutine psb_ls_mv_to_i(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_mv_to_i - implicit none + implicit none class(psb_lsspmat_type), intent(inout) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_s_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_ifmt(b%a,info) @@ -4931,28 +4964,24 @@ subroutine psb_ls_mv_to_i(a,b) call b%free() end if call a%free() - + end subroutine psb_ls_mv_to_i subroutine psb_ls_cp_to_i(a,b) use psb_error_mod use psb_const_mod use psb_s_mat_mod, psb_protect_name => psb_ls_cp_to_i - implicit none - + implicit none + class(psb_lsspmat_type), intent(in) :: a class(psb_sspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_s_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_ifmt(b%a,info) else call b%free() end if - + end subroutine psb_ls_cp_to_i - - - - diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index 7bca2c7cc..cf3669ab5 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == ================================== ! ! @@ -45,7 +45,7 @@ subroutine psb_z_base_cp_to_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -69,7 +69,7 @@ subroutine psb_z_base_cp_from_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -94,7 +94,7 @@ subroutine psb_z_base_cp_to_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -103,10 +103,10 @@ subroutine psb_z_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -117,12 +117,12 @@ subroutine psb_z_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -136,7 +136,7 @@ subroutine psb_z_base_cp_from_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -148,10 +148,10 @@ subroutine psb_z_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_z_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -160,8 +160,8 @@ subroutine psb_z_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -181,7 +181,7 @@ subroutine psb_z_base_mv_to_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -193,17 +193,17 @@ subroutine psb_z_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -218,7 +218,7 @@ subroutine psb_z_base_mv_from_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -229,17 +229,17 @@ subroutine psb_z_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -255,7 +255,7 @@ subroutine psb_z_base_mv_to_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -267,7 +267,7 @@ subroutine psb_z_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_z_coo_sparse_mat) @@ -285,7 +285,7 @@ subroutine psb_z_base_mv_from_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -297,7 +297,7 @@ subroutine psb_z_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_z_coo_sparse_mat) @@ -313,23 +313,23 @@ end subroutine psb_z_base_mv_from_fmt subroutine psb_z_base_clean_zeros(a, info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_clean_zeros - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_z_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_z_base_clean_zeros -subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csput_a - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -350,11 +350,11 @@ subroutine psb_z_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_z_base_csput_a -subroutine psb_z_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csput_v use psb_z_base_vect_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_vect_type), intent(inout) :: val class(psb_i_base_vect_type), intent(inout) :: ia, ja @@ -366,24 +366,24 @@ subroutine psb_z_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() if (ia%is_dev()) call ia%sync() if (ja%is_dev()) call ja%sync() - call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -395,7 +395,7 @@ end subroutine psb_z_base_csput_v subroutine psb_z_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csgetrow @@ -433,7 +433,7 @@ end subroutine psb_z_base_csgetrow ! subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csgetblk @@ -456,22 +456,22 @@ subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -486,19 +486,19 @@ subroutine psb_z_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'z_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -526,7 +526,7 @@ end subroutine psb_z_base_csgetblk subroutine psb_z_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csclip @@ -547,46 +547,46 @@ subroutine psb_z_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -615,7 +615,7 @@ end subroutine psb_z_base_csclip ! subroutine psb_z_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_tril @@ -627,8 +627,8 @@ subroutine psb_z_base_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_z_coo_sparse_mat), optional, intent(out) :: u - - integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk + + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) complex(psb_dpk_), allocatable :: val(:) @@ -640,51 +640,51 @@ subroutine psb_z_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -716,7 +716,7 @@ subroutine psb_z_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -724,8 +724,8 @@ subroutine psb_z_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -738,7 +738,7 @@ subroutine psb_z_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -747,8 +747,8 @@ subroutine psb_z_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -766,7 +766,7 @@ end subroutine psb_z_base_tril subroutine psb_z_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_triu @@ -778,7 +778,7 @@ subroutine psb_z_base_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_z_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k, ibk integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_), allocatable :: ia(:), ja(:) @@ -791,57 +791,57 @@ subroutine psb_z_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -874,13 +874,13 @@ subroutine psb_z_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -888,7 +888,7 @@ subroutine psb_z_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -897,8 +897,8 @@ subroutine psb_z_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -919,45 +919,45 @@ end subroutine psb_z_base_triu subroutine psb_z_base_clone(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_z_base_clone subroutine psb_z_base_make_nonunit(a) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat) :: tmp - - integer(psb_ipk_) :: i, j, m, n, nz, mnm, info - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + integer(psb_ipk_) :: i, j, m, n, nz, mnm, info + + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -974,10 +974,10 @@ subroutine psb_z_base_make_nonunit(a) end subroutine psb_z_base_make_nonunit -subroutine psb_z_base_mold(a,b,info) +subroutine psb_z_base_mold(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mold use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -999,7 +999,7 @@ end subroutine psb_z_base_mold subroutine psb_z_base_transp_2mat(a,b) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1019,11 +1019,11 @@ subroutine psb_z_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1035,7 +1035,7 @@ end subroutine psb_z_base_transp_2mat subroutine psb_z_base_transc_2mat(a,b) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_transc_2mat - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_base_sparse_mat), intent(out) :: b @@ -1055,11 +1055,11 @@ subroutine psb_z_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1071,7 +1071,7 @@ end subroutine psb_z_base_transc_2mat subroutine psb_z_base_transp_1mat(a) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a @@ -1085,12 +1085,12 @@ subroutine psb_z_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1102,7 +1102,7 @@ end subroutine psb_z_base_transp_1mat subroutine psb_z_base_transc_1mat(a) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_transc_1mat - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a @@ -1116,12 +1116,12 @@ subroutine psb_z_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -1145,11 +1145,11 @@ end subroutine psb_z_base_transc_1mat ! ! == ================================== -subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csmm use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1172,10 +1172,10 @@ subroutine psb_z_base_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_z_base_csmm -subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csmv use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1199,10 +1199,10 @@ subroutine psb_z_base_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_z_base_csmv -subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_inner_cssm use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1225,10 +1225,10 @@ subroutine psb_z_base_inner_cssm(alpha,a,x,beta,y,info,trans) end subroutine psb_z_base_inner_cssm -subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_inner_cssv use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1251,11 +1251,11 @@ subroutine psb_z_base_inner_cssv(alpha,a,x,beta,y,info,trans) end subroutine psb_z_base_inner_cssv -subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cssm use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1271,7 +1271,7 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1291,42 +1291,42 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) then + allocate(tmp(nac,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) then do i=1, nac - tmp(i,1:nc) = d(i)*x(i,1:nc) + tmp(i,1:nc) = d(i)*x(i,1:nc) end do end if if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ @@ -1334,21 +1334,21 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - allocate(tmp(nar,nc),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar,nc),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(zone,x,zzero,tmp,info,trans) - if (info == psb_success_)then + if (info == psb_success_)then do i=1, nar - tmp(i,1:nc) = d(i)*tmp(i,1:nc) + tmp(i,1:nc) = d(i)*tmp(i,1:nc) end do end if if (info == psb_success_)& & call psb_geaxpby(nar,nc,alpha,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if @@ -1357,13 +1357,13 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_cssm') goto 9999 end if @@ -1378,11 +1378,11 @@ subroutine psb_z_base_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_z_base_cssm -subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cssv use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1418,58 +1418,58 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (present(d)) then - if (present(scale)) then + if (present(d)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (size(d,1) < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if - allocate(tmp(nac),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call inner_vscal(nac,d,x,tmp) + allocate(tmp(nac),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call inner_vscal(nac,d,x,tmp) if (info == psb_success_)& & call a%inner_spsm(alpha,tmp,beta,y,info,trans) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (size(d,1) < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == zzero) then + if (beta == zzero) then call a%inner_spsm(alpha,x,zzero,y,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,y) else - allocate(tmp(nar),stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + allocate(tmp(nar),stat=info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,zzero,tmp,info,trans) if (info == psb_success_) call inner_vscal1(nar,d,tmp) if (info == psb_success_)& & call psb_geaxpby(nar,zone,tmp,beta,y,info) - if (info == psb_success_) then - deallocate(tmp,stat=info) + if (info == psb_success_) then + deallocate(tmp,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1479,13 +1479,13 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1500,37 +1500,37 @@ subroutine psb_z_base_cssv(alpha,a,x,beta,y,info,trans,scale,d) return contains subroutine inner_vscal(n,d,x,y) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), intent(in) :: d(*),x(*) complex(psb_dpk_), intent(out) :: y(*) integer(psb_ipk_) :: i do i=1,n - y(i) = d(i)*x(i) + y(i) = d(i)*x(i) end do end subroutine inner_vscal subroutine inner_vscal1(n,d,x) - implicit none + implicit none integer(psb_ipk_), intent(in) :: n complex(psb_dpk_), intent(in) :: d(*) complex(psb_dpk_), intent(inout) :: x(*) integer(psb_ipk_) :: i do i=1,n - x(i) = d(i)*x(i) + x(i) = d(i)*x(i) end do end subroutine inner_vscal1 end subroutine psb_z_base_cssv -subroutine psb_z_base_scals(d,a,info) +subroutine psb_z_base_scals(d,a,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_scals use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1550,12 +1550,33 @@ subroutine psb_z_base_scals(d,a,info) end subroutine psb_z_base_scals +subroutine psb_z_base_scalplusidentity(d,a,info) + use psb_z_base_mat_mod, psb_protect_name => psb_z_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_z_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_) :: err_act + character(len=20) :: name='z_scalplusidentity' + logical, parameter :: debug=.false. -subroutine psb_z_base_scal(d,a,info,side) + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_z_base_scalplusidentity + +subroutine psb_z_base_scal(d,a,info,side) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_scal use psb_error_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1581,7 +1602,7 @@ function psb_z_base_maxval(a) result(res) use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_maxval - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1608,27 +1629,27 @@ function psb_z_base_csnmi(a) result(res) use psb_realloc_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csnmi - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1646,27 +1667,27 @@ function psb_z_base_csnm1(a) result(res) use psb_realloc_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_csnm1 - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -1678,7 +1699,7 @@ function psb_z_base_csnm1(a) result(res) end function psb_z_base_csnm1 -subroutine psb_z_base_rowsum(d,a) +subroutine psb_z_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_rowsum @@ -1700,7 +1721,7 @@ subroutine psb_z_base_rowsum(d,a) end subroutine psb_z_base_rowsum -subroutine psb_z_base_arwsum(d,a) +subroutine psb_z_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_arwsum @@ -1722,7 +1743,7 @@ subroutine psb_z_base_arwsum(d,a) end subroutine psb_z_base_arwsum -subroutine psb_z_base_colsum(d,a) +subroutine psb_z_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_colsum @@ -1744,7 +1765,7 @@ subroutine psb_z_base_colsum(d,a) end subroutine psb_z_base_colsum -subroutine psb_z_base_aclsum(d,a) +subroutine psb_z_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_aclsum @@ -1766,12 +1787,12 @@ subroutine psb_z_base_aclsum(d,a) end subroutine psb_z_base_aclsum -subroutine psb_z_base_get_diag(a,d,info) +subroutine psb_z_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_get_diag - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1797,9 +1818,9 @@ end subroutine psb_z_base_get_diag ! ! ! Computational routines for z_VECT -! variables. If the actual data type is -! a "normal" one, these are sufficient. -! +! variables. If the actual data type is +! a "normal" one, these are sufficient. +! ! ! ! @@ -1807,11 +1828,11 @@ end subroutine psb_z_base_get_diag -subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_base_vect_mv - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x @@ -1820,7 +1841,7 @@ subroutine psb_z_base_vect_mv(alpha,a,x,beta,y,info,trans) character, optional, intent(in) :: trans ! For the time being we just throw everything back - ! onto the normal routines. + ! onto the normal routines. call x%sync() call y%sync() call a%spmm(alpha,x%v,beta,y%v,info,trans) @@ -1832,7 +1853,7 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_z_base_vect_mod use psb_error_mod use psb_string_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x,y @@ -1869,54 +1890,54 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - call x%sync() + call x%sync() call y%sync() - if (present(d)) then + if (present(d)) then call d%sync() - if (present(scale)) then + if (present(scale)) then scale_ = scale else scale_ = 'L' end if - if (psb_toupper(scale_) == 'R') then + if (psb_toupper(scale_) == 'R') then if (d%get_nrows() < nac) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nac/)) goto 9999 end if allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call tmpv%mlt(zone,d%v(1:nac),x,zzero,info) + if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info == psb_success_) call tmpv%mlt(zone,d%v(1:nac),x,zzero,info) if (info == psb_success_)& & call a%inner_spsm(alpha,tmpv,beta,y,info,trans) - if (info == psb_success_) then + if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if - else if (psb_toupper(scale_) == 'L') then + else if (psb_toupper(scale_) == 'L') then if (d%get_nrows() < nar) then info = psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/9_psb_ipk_,nar/)) goto 9999 end if - if (beta == zzero) then + if (beta == zzero) then call a%inner_spsm(alpha,x,zzero,y,info,trans) if (info == psb_success_) call y%mlt(d%v(1:nar),info) else allocate(tmpv, mold=y,stat=info) - if (info /= psb_success_) info = psb_err_alloc_dealloc_ + if (info /= psb_success_) info = psb_err_alloc_dealloc_ if (info == psb_success_)& & call a%inner_spsm(alpha,x,zzero,tmpv,info,trans) @@ -1925,7 +1946,7 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) & call y%axpby(nar,zone,tmpv,beta,info) if (info == psb_success_) then call tmpv%free(info) - if (info == psb_success_) deallocate(tmpv,stat=info) + if (info == psb_success_) deallocate(tmpv,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ end if end if @@ -1935,13 +1956,13 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) call psb_errpush(info,name,i_err=(/8_psb_ipk_,izero/),a_err=scale_) goto 9999 end if - else - ! Scale is ignored in this case + else + ! Scale is ignored in this case call a%inner_spsm(alpha,x,beta,y,info,trans) end if - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1958,12 +1979,12 @@ subroutine psb_z_base_vect_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_z_base_vect_cssv -subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_inner_vect_sv use psb_error_mod use psb_string_mod use psb_z_base_vect_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta class(psb_z_base_vect_type), intent(inout) :: x, y @@ -1977,10 +1998,10 @@ subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) + call a%inner_spsm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='inner_spsm') goto 9999 end if @@ -1988,7 +2009,7 @@ subroutine psb_z_base_inner_vect_sv(alpha,a,x,beta,y,info,trans) call psb_erractionrestore(err_act) return - + 9999 call psb_error_handler(err_act) return @@ -2000,7 +2021,7 @@ subroutine psb_z_base_cp_to_lcoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2009,22 +2030,22 @@ subroutine psb_z_base_cp_to_lcoo(a,b,info) character(len=20) :: name='to_lcoo' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_lcoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2038,7 +2059,7 @@ subroutine psb_z_base_cp_from_lcoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2047,22 +2068,22 @@ subroutine psb_z_base_cp_from_lcoo(a,b,info) character(len=20) :: name='from_coo' logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_lcoo(b,info) + call tmp%cp_from_lcoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2076,7 +2097,7 @@ subroutine psb_z_base_cp_to_lfmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2086,10 +2107,10 @@ subroutine psb_z_base_cp_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: icoo type(psb_lz_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2102,12 +2123,12 @@ subroutine psb_z_base_cp_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2121,7 +2142,7 @@ subroutine psb_z_base_cp_from_lfmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cp_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2133,10 +2154,10 @@ subroutine psb_z_base_cp_from_lfmt(a,b,info) type(psb_lz_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lz_coo_sparse_mat) call a%cp_from_lcoo(b,info) @@ -2146,8 +2167,8 @@ subroutine psb_z_base_cp_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2166,7 +2187,7 @@ subroutine psb_z_base_mv_to_lcoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_to_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2178,17 +2199,17 @@ subroutine psb_z_base_mv_to_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2202,7 +2223,7 @@ subroutine psb_z_base_mv_from_lcoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_from_lcoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2213,17 +2234,17 @@ subroutine psb_z_base_mv_from_lcoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_lcoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_lcoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2238,7 +2259,7 @@ subroutine psb_z_base_mv_to_lfmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_to_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2248,10 +2269,10 @@ subroutine psb_z_base_mv_to_lfmt(a,b,info) logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: icoo type(psb_lz_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2264,12 +2285,12 @@ subroutine psb_z_base_mv_to_lfmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2283,7 +2304,7 @@ subroutine psb_z_base_mv_from_lfmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_base_mv_from_lfmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_z_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2295,10 +2316,10 @@ subroutine psb_z_base_mv_from_lfmt(a,b,info) type(psb_lz_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lz_coo_sparse_mat) call a%mv_from_lcoo(b,info) @@ -2308,8 +2329,8 @@ subroutine psb_z_base_mv_from_lfmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2343,7 +2364,7 @@ subroutine psb_lz_base_cp_to_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2367,7 +2388,7 @@ subroutine psb_lz_base_cp_from_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2392,7 +2413,7 @@ subroutine psb_lz_base_cp_to_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2401,10 +2422,10 @@ subroutine psb_lz_base_cp_to_fmt(a,b,info) character(len=20) :: name='to_fmt' logical, parameter :: debug=.false. type(psb_lz_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -2415,12 +2436,12 @@ subroutine psb_lz_base_cp_to_fmt(a,b,info) call a%cp_to_coo(tmp,info) if (info == psb_success_) call b%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2434,7 +2455,7 @@ subroutine psb_lz_base_cp_from_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2446,10 +2467,10 @@ subroutine psb_lz_base_cp_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_lz_coo_sparse_mat) call a%cp_from_coo(b,info) @@ -2458,8 +2479,8 @@ subroutine psb_lz_base_cp_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -2479,7 +2500,7 @@ subroutine psb_lz_base_mv_to_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_to_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2491,17 +2512,17 @@ subroutine psb_lz_base_mv_to_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -2516,7 +2537,7 @@ subroutine psb_lz_base_mv_from_coo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_from_coo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2527,17 +2548,17 @@ subroutine psb_lz_base_mv_from_coo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_coo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_coo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -2552,7 +2573,7 @@ subroutine psb_lz_base_mv_to_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_to_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2564,7 +2585,7 @@ subroutine psb_lz_base_mv_to_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_lz_coo_sparse_mat) @@ -2582,7 +2603,7 @@ subroutine psb_lz_base_mv_from_fmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_from_fmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2594,7 +2615,7 @@ subroutine psb_lz_base_mv_from_fmt(a,b,info) ! ! Default implementation - ! + ! info = psb_success_ select type(b) type is (psb_lz_coo_sparse_mat) @@ -2610,23 +2631,23 @@ end subroutine psb_lz_base_mv_from_fmt subroutine psb_lz_base_clean_zeros(a, info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_clean_zeros - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info ! type(psb_lz_coo_sparse_mat) :: tmpcoo call a%mv_to_coo(tmpcoo,info) - if (info == 0) call tmpcoo%clean_zeros(info) + if (info == 0) call tmpcoo%clean_zeros(info) if (info == 0) call a%mv_from_coo(tmpcoo,info) - + end subroutine psb_lz_base_clean_zeros -subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csput_a - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -2647,11 +2668,11 @@ subroutine psb_lz_base_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_lz_base_csput_a -subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csput_v use psb_z_base_vect_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_vect_type), intent(inout) :: val class(psb_l_base_vect_type), intent(inout) :: ia, ja @@ -2664,10 +2685,10 @@ subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) integer :: jmin_, jmax_ logical :: append_, rscale_, cscale_ logical, parameter :: debug=.false. - + call psb_erractionsave(err_act) info = psb_success_ - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then if (a%is_dev()) call a%sync() if (val%is_dev()) call val%sync() @@ -2677,11 +2698,11 @@ subroutine psb_lz_base_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= 0) then + if (info /= 0) then call psb_errpush(info,name) goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -2693,7 +2714,7 @@ end subroutine psb_lz_base_csput_v subroutine psb_lz_base_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csgetrow @@ -2733,7 +2754,7 @@ end subroutine psb_lz_base_csgetrow ! subroutine psb_lz_base_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csgetblk @@ -2757,22 +2778,22 @@ subroutine psb_lz_base_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_=rscale else rscale_=.false. end if - if (present(cscale)) then + if (present(cscale)) then cscale_=cscale else cscale_=.false. @@ -2787,19 +2808,19 @@ subroutine psb_lz_base_csgetblk(imin,imax,a,b,info,& else jmax_ = a%get_ncols() endif - - if (append_.and.(rscale_.or.cscale_)) then + + if (append_.and.(rscale_.or.cscale_)) then write(psb_err_unit,*) & & 'lz_csgetblk: WARNING: dubious input: append_ and rscale_|cscale_' end if - if (rscale_) then + if (rscale_) then call b%set_nrows(imax-imin+1) else call b%set_nrows(max(min(imax,a%get_nrows()),b%get_nrows())) end if - if (cscale_) then + if (cscale_) then call b%set_ncols(jmax_-jmin_+1) else call b%set_ncols(max(min(jmax_,a%get_ncols()),b%get_ncols())) @@ -2827,7 +2848,7 @@ end subroutine psb_lz_base_csgetblk subroutine psb_lz_base_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csclip @@ -2849,46 +2870,46 @@ subroutine psb_lz_base_csclip(a,b,info,& info = psb_success_ nzin = 0 - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = a%get_nrows() ! Should this be imax_ ?? + else + mb = a%get_nrows() ! Should this be imax_ ?? endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = a%get_ncols() ! Should this be jmax_ ?? + else + nb = a%get_ncols() ! Should this be jmax_ ?? endif call b%allocate(mb,nb) call a%csget(imin_,imax_,nzout,b%ia,b%ja,b%val,info,& @@ -2917,7 +2938,7 @@ end subroutine psb_lz_base_csclip ! subroutine psb_lz_base_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_tril @@ -2929,9 +2950,9 @@ subroutine psb_lz_base_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lz_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act - integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk + integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_lpk_), allocatable :: ia(:), ja(:) complex(psb_dpk_), allocatable :: val(:) @@ -2943,51 +2964,51 @@ subroutine psb_lz_base_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif @@ -3019,7 +3040,7 @@ subroutine psb_lz_base_tril(a,l,info,& end if end do end do - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -3027,8 +3048,8 @@ subroutine psb_lz_base_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >= -1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >= -1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if @@ -3041,7 +3062,7 @@ subroutine psb_lz_base_tril(a,l,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call l%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call l%fix(info) @@ -3050,8 +3071,8 @@ subroutine psb_lz_base_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -3069,7 +3090,7 @@ end subroutine psb_lz_base_tril subroutine psb_lz_base_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_triu @@ -3081,7 +3102,7 @@ subroutine psb_lz_base_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lz_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k, ibk integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -3095,57 +3116,57 @@ subroutine psb_lz_base_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -3178,13 +3199,13 @@ subroutine psb_lz_base_triu(a,u,info,& if (rscale_) & & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & - & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - if ((diag_ <=1).and.(imin_ == jmin_)) then + & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 + if ((diag_ <=1).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if else - nzin = u%get_nzeros() + nzin = u%get_nzeros() do i=imin_,imax_ k = max(jmin_,i+diag_) call a%csget(i,i,nzout,u%ia,u%ja,u%val,info,& @@ -3192,7 +3213,7 @@ subroutine psb_lz_base_triu(a,u,info,& & nzin=nzin) if (info /= psb_success_) goto 9999 call u%set_nzeros(nzin+nzout) - nzin = nzin+nzout + nzin = nzin+nzout end do end if call u%fix(info) @@ -3201,8 +3222,8 @@ subroutine psb_lz_base_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -3223,46 +3244,46 @@ end subroutine psb_lz_base_triu subroutine psb_lz_base_clone(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_clone use psb_error_mod - implicit none - + implicit none + class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), allocatable, intent(inout) :: b - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), intent(out) :: info - info = 0 + info = 0 if (allocated(b)) then call b%free() deallocate(b, stat=info) end if - if (info /= 0) then + if (info /= 0) then info = psb_err_alloc_dealloc_ return end if ! Do not use SOURCE allocation: this makes sure that - ! memory allocated elsewhere is treated properly. + ! memory allocated elsewhere is treated properly. allocate(b,mold=a,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call b%cp_from_fmt(a, info) - + if (info == psb_success_) call b%cp_from_fmt(a, info) + end subroutine psb_lz_base_clone subroutine psb_lz_base_make_nonunit(a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_make_nonunit use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a type(psb_lz_coo_sparse_mat) :: tmp - + integer(psb_ipk_) :: info integer(psb_lpk_) :: i, j, m, n, nz, mnm - if (a%is_unit()) then - call a%mv_to_coo(tmp,info) + if (a%is_unit()) then + call a%mv_to_coo(tmp,info) if (info /= 0) return m = tmp%get_nrows() n = tmp%get_ncols() - mnm = min(m,n) + mnm = min(m,n) nz = tmp%get_nzeros() call tmp%reallocate(nz+mnm) do i=1, mnm @@ -3279,10 +3300,10 @@ subroutine psb_lz_base_make_nonunit(a) end subroutine psb_lz_base_make_nonunit -subroutine psb_lz_base_mold(a,b,info) +subroutine psb_lz_base_mold(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mold use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3304,7 +3325,7 @@ end subroutine psb_lz_base_mold subroutine psb_lz_base_transp_2mat(a,b) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_transp_2mat use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3324,11 +3345,11 @@ subroutine psb_lz_base_transp_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3340,7 +3361,7 @@ end subroutine psb_lz_base_transp_2mat subroutine psb_lz_base_transc_2mat(a,b) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_transc_2mat - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_lbase_sparse_mat), intent(out) :: b @@ -3360,11 +3381,11 @@ subroutine psb_lz_base_transc_2mat(a,b) class default info = psb_err_invalid_dynamic_type_ end select - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name,a_err=b%get_fmt(),i_err=(/ione/)) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3376,7 +3397,7 @@ end subroutine psb_lz_base_transc_2mat subroutine psb_lz_base_transp_1mat(a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_transp_1mat use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a @@ -3390,12 +3411,12 @@ subroutine psb_lz_base_transp_1mat(a) if (info == psb_success_) call tmp%transp() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3407,7 +3428,7 @@ end subroutine psb_lz_base_transp_1mat subroutine psb_lz_base_transc_1mat(a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_transc_1mat - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a @@ -3421,12 +3442,12 @@ subroutine psb_lz_base_transc_1mat(a) if (info == psb_success_) call tmp%transc() if (info == psb_success_) call a%mv_from_coo(tmp,info) - if (info /= psb_success_) then - info = psb_err_missing_override_method_ + if (info /= psb_success_) then + info = psb_err_missing_override_method_ call psb_errpush(info,name,a_err=a%get_fmt()) goto 9999 end if - call psb_erractionrestore(err_act) + call psb_erractionrestore(err_act) return @@ -3436,10 +3457,10 @@ subroutine psb_lz_base_transc_1mat(a) end subroutine psb_lz_base_transc_1mat -subroutine psb_lz_base_scals(d,a,info) +subroutine psb_lz_base_scals(d,a,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_scals use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3459,10 +3480,10 @@ subroutine psb_lz_base_scals(d,a,info) end subroutine psb_lz_base_scals -subroutine psb_lz_base_scal(d,a,info,side) +subroutine psb_lz_base_scal(d,a,info,side) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_scal use psb_error_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3488,7 +3509,7 @@ function psb_lz_base_maxval(a) result(res) use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_maxval - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3514,27 +3535,27 @@ function psb_lz_base_csnmi(a) result(res) use psb_realloc_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csnmi - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnmi' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_nrows(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_nrows(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%arwsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3551,27 +3572,27 @@ function psb_lz_base_csnm1(a) result(res) use psb_realloc_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_csnm1 - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a real(psb_dpk_) :: res integer(psb_ipk_) :: err_act, info character(len=20) :: name='csnm1' - real(psb_dpk_), allocatable :: vt(:) - + real(psb_dpk_), allocatable :: vt(:) + logical, parameter :: debug=.false. call psb_erractionsave(err_act) res = dzero - call psb_realloc(a%get_ncols(),vt,info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ - call psb_errpush(info,name) + call psb_realloc(a%get_ncols(),vt,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) goto 9999 end if call a%aclsum(vt) - res = maxval(vt) + res = maxval(vt) call psb_erractionrestore(err_act) return @@ -3582,7 +3603,7 @@ function psb_lz_base_csnm1(a) result(res) end function psb_lz_base_csnm1 -subroutine psb_lz_base_rowsum(d,a) +subroutine psb_lz_base_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_rowsum @@ -3604,7 +3625,7 @@ subroutine psb_lz_base_rowsum(d,a) end subroutine psb_lz_base_rowsum -subroutine psb_lz_base_arwsum(d,a) +subroutine psb_lz_base_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_arwsum @@ -3626,7 +3647,7 @@ subroutine psb_lz_base_arwsum(d,a) end subroutine psb_lz_base_arwsum -subroutine psb_lz_base_colsum(d,a) +subroutine psb_lz_base_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_colsum @@ -3648,7 +3669,7 @@ subroutine psb_lz_base_colsum(d,a) end subroutine psb_lz_base_colsum -subroutine psb_lz_base_aclsum(d,a) +subroutine psb_lz_base_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_aclsum @@ -3670,12 +3691,12 @@ subroutine psb_lz_base_aclsum(d,a) end subroutine psb_lz_base_aclsum -subroutine psb_lz_base_get_diag(a,d,info) +subroutine psb_lz_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_get_diag - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3701,7 +3722,7 @@ subroutine psb_lz_base_cp_to_icoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3710,22 +3731,22 @@ subroutine psb_lz_base_cp_to_icoo(a,b,info) character(len=20) :: name='to_coo' logical, parameter :: debug=.false. type(psb_lz_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) call a%cp_to_coo(tmp,info) if (info == psb_success_) call tmp%mv_to_icoo(b,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3739,7 +3760,7 @@ subroutine psb_lz_base_cp_from_icoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3748,22 +3769,22 @@ subroutine psb_lz_base_cp_from_icoo(a,b,info) character(len=20) :: name='from_icoo' logical, parameter :: debug=.false. type(psb_lz_coo_sparse_mat) :: tmp - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - call tmp%cp_from_icoo(b,info) + call tmp%cp_from_icoo(b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) - - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3778,7 +3799,7 @@ subroutine psb_lz_base_cp_to_ifmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3788,10 +3809,10 @@ subroutine psb_lz_base_cp_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: icoo type(psb_lz_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3804,12 +3825,12 @@ subroutine psb_lz_base_cp_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3823,7 +3844,7 @@ subroutine psb_lz_base_cp_from_ifmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cp_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -3835,10 +3856,10 @@ subroutine psb_lz_base_cp_from_ifmt(a,b,info) type(psb_lz_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_z_coo_sparse_mat) call a%cp_from_icoo(b,info) @@ -3848,8 +3869,8 @@ subroutine psb_lz_base_cp_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -3868,7 +3889,7 @@ subroutine psb_lz_base_mv_to_icoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_to_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3880,17 +3901,17 @@ subroutine psb_lz_base_mv_to_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_to_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_to_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to coo') goto 9999 end if call a%free() - + call psb_erractionrestore(err_act) return @@ -3905,7 +3926,7 @@ subroutine psb_lz_base_mv_from_icoo(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_from_icoo use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3916,17 +3937,17 @@ subroutine psb_lz_base_mv_from_icoo(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - - call a%cp_from_icoo(b,info) - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + call a%cp_from_icoo(b,info) + + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='from coo') goto 9999 end if call b%free() - + call psb_erractionrestore(err_act) return @@ -3942,7 +3963,7 @@ subroutine psb_lz_base_mv_to_ifmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_to_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3952,10 +3973,10 @@ subroutine psb_lz_base_mv_to_ifmt(a,b,info) logical, parameter :: debug=.false. type(psb_z_coo_sparse_mat) :: icoo type(psb_lz_coo_sparse_mat) :: lcoo - + ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) @@ -3968,12 +3989,12 @@ subroutine psb_lz_base_mv_to_ifmt(a,b,info) if (info == psb_success_) call b%mv_from_coo(icoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if - + call psb_erractionrestore(err_act) return @@ -3987,7 +4008,7 @@ subroutine psb_lz_base_mv_from_ifmt(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_mv_from_ifmt use psb_error_mod use psb_realloc_mod - implicit none + implicit none class(psb_lz_base_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3999,10 +4020,10 @@ subroutine psb_lz_base_mv_from_ifmt(a,b,info) type(psb_lz_coo_sparse_mat) :: lcoo ! ! Default implementation - ! + ! info = psb_success_ call psb_erractionsave(err_act) - + select type(b) type is (psb_z_coo_sparse_mat) call a%mv_from_icoo(b,info) @@ -4012,8 +4033,8 @@ subroutine psb_lz_base_mv_from_ifmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(lcoo,info) end select - if (info /= psb_success_) then - info = psb_err_from_subroutine_ + if (info /= psb_success_) then + info = psb_err_from_subroutine_ call psb_errpush(info,name, a_err='to/from coo') goto 9999 end if @@ -4026,5 +4047,3 @@ subroutine psb_lz_base_mv_from_ifmt(a,b,info) return end subroutine psb_lz_base_mv_from_ifmt - - diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index 1e50a1696..d4f977707 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,13 +27,13 @@ ! 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. -! -! -subroutine psb_z_coo_get_diag(a,d,info) +! +! +subroutine psb_z_coo_get_diag(a,d,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -47,19 +47,19 @@ subroutine psb_z_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = zone + if (a%is_unit()) then + d(1:mnm) = zone else d(1:mnm) = zzero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -74,12 +74,12 @@ subroutine psb_z_coo_get_diag(a,d,info) end subroutine psb_z_coo_get_diag -subroutine psb_z_coo_scal(d,a,info,side) +subroutine psb_z_coo_scal(d,a,info,side) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -88,44 +88,44 @@ subroutine psb_z_coo_scal(d,a,info,side) integer(psb_ipk_) :: err_act,mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,size(d,kind=psb_ipk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -143,11 +143,11 @@ subroutine psb_z_coo_scal(d,a,info,side) end subroutine psb_z_coo_scal -subroutine psb_z_coo_scals(d,a,info) +subroutine psb_z_coo_scals(d,a,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -160,13 +160,14 @@ subroutine psb_z_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo + call a%set_host() call psb_erractionrestore(err_act) @@ -178,12 +179,52 @@ subroutine psb_z_coo_scals(d,a,info) end subroutine psb_z_coo_scals +subroutine psb_z_coo_scalplusidentity(d,a,info) + use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_z_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -subroutine psb_z_coo_reallocate_nz(nz,a) + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + zone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_z_coo_scalplusidentity + + +subroutine psb_z_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz_ @@ -197,7 +238,7 @@ subroutine psb_z_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -211,10 +252,10 @@ subroutine psb_z_coo_reallocate_nz(nz,a) end subroutine psb_z_coo_reallocate_nz -subroutine psb_z_coo_mold(a,b,info) +subroutine psb_z_coo_mold(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_mold use psb_error_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -223,16 +264,16 @@ subroutine psb_z_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_z_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -247,9 +288,9 @@ end subroutine psb_z_coo_mold subroutine psb_z_coo_reinit(a,clear) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_z_coo_sparse_mat), intent(inout) :: a + class(psb_z_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -261,17 +302,17 @@ subroutine psb_z_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_host() call a%set_upd() @@ -296,7 +337,7 @@ subroutine psb_z_coo_trim(a) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz character(len=20) :: name='trim' @@ -310,7 +351,7 @@ subroutine psb_z_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -323,13 +364,13 @@ end subroutine psb_z_coo_trim subroutine psb_z_coo_clean_zeros(a, info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_clean_zeros - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -340,17 +381,17 @@ subroutine psb_z_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_z_coo_clean_zeros -subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -360,22 +401,22 @@ subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -383,7 +424,7 @@ subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(izero) @@ -395,7 +436,7 @@ subroutine psb_z_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -410,10 +451,10 @@ end subroutine psb_z_coo_allocate_mnnz subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_z_coo_sparse_mat), intent(in) :: a + class(psb_z_coo_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -423,12 +464,12 @@ subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -442,30 +483,30 @@ subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -480,7 +521,7 @@ end subroutine psb_z_coo_print function psb_z_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_get_nz_row + use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_get_nz_row implicit none class(psb_z_coo_sparse_mat), intent(in) :: a @@ -489,39 +530,39 @@ function psb_z_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: nzin_, nza,ip,jp,i,k if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. ip = psb_bsrch(idx,nza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -529,12 +570,12 @@ function psb_z_coo_get_nz_row(idx,a) result(res) end function psb_z_coo_get_nz_row -subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) +subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_cssm - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -553,14 +594,14 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif if (a%is_dev()) call a%sync() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -585,7 +626,7 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) goto 9999 end if - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) nnz = a%get_nzeros() if (alpha == zzero) then @@ -601,15 +642,15 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == zzero) then + if (beta == zzero) then call inner_coosm(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & m,nc,nnz,a%ia,a%ja,a%val,& & x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -639,11 +680,11 @@ subroutine psb_z_coo_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosm(tra,ctra,lower,unit,sorted,nr,nc,nz,& - & ia,ja,val,x,ldx,y,ldy,info) - implicit none + & ia,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nc,nz,ldx,ldy,ia(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(ldx,*) @@ -661,7 +702,7 @@ contains end if - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if @@ -669,14 +710,14 @@ contains nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = zzero - do + do if (j > nnz) exit if (ia(j) > i) exit acc(1:nc) = acc(1:nc) + val(j)*y(ja(j),1:nc) @@ -684,14 +725,14 @@ contains end do y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc(1:nc) = zzero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j + 1 exit @@ -702,12 +743,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = zzero - do + do i=nr, 1, -1 + acc(1:nc) = zzero + do if (j < 1) exit if (ia(j) < i) exit acc(1:nc) = acc(1:nc) + val(j)*x(ja(j),1:nc) @@ -716,15 +757,15 @@ contains y(i,1:nc) = x(i,1:nc) - acc(1:nc) end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc(1:nc) = zzero - do + do i=nr, 1, -1 + acc(1:nc) = zzero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = (x(i,1:nc) - acc(1:nc))/val(j) j = j - 1 exit @@ -737,68 +778,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) /val(j) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc(1:nc) j = j + 1 end do end do @@ -806,68 +847,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc(1:nc) = y(i,1:nc) + acc(1:nc) = y(i,1:nc) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) - j = j - 1 + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / conjg(val(j)) j = j - 1 end if - acc(1:nc) = y(i,1:nc) - do + acc(1:nc) = y(i,1:nc) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i,1:nc) = y(i,1:nc) / conjg(val(j)) j = j + 1 end if acc(1:nc) = y(i,1:nc) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc(1:nc) j = j + 1 end do end do @@ -882,12 +923,12 @@ end subroutine psb_z_coo_cssm -subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_cssv - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -911,7 +952,7 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -931,7 +972,7 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) call psb_errpush(info,name,i_err=(/5_psb_ipk_,size(y,1,kind=psb_ipk_),m/)) goto 9999 end if - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -951,20 +992,20 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) return end if - if (beta == zzero) then + if (beta == zzero) then call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,y,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if do i = 1, m y(i) = alpha*y(i) end do - else - allocate(tmp(m), stat=info) - if (info /= psb_success_) then + else + allocate(tmp(m), stat=info) + if (info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') goto 9999 @@ -973,7 +1014,7 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) call inner_coosv(tra,ctra,a%is_lower(),a%is_unit(),a%is_by_rows(),& & a%get_nrows(),a%get_nzeros(),a%ia,a%ja,a%val,& & x,tmp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(info,name) goto 9999 end if @@ -989,11 +1030,11 @@ subroutine psb_z_coo_cssv(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_coosv(tra,ctra,lower,unit,sorted,nr,nz,& - & ia,ja,val,x,y,info) - implicit none + & ia,ja,val,x,y,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit,sorted integer(psb_ipk_), intent(in) :: nr,nz,ia(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(*) @@ -1004,21 +1045,21 @@ contains complex(psb_dpk_) :: acc info = psb_success_ - if (.not.sorted) then + if (.not.sorted) then info = psb_err_invalid_mat_state_ return end if nnz = nz - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = 1 do i=1, nr acc = zzero - do + do if (j > nnz) exit if (ia(j) > i) exit acc = acc + val(j)*y(ja(j)) @@ -1026,14 +1067,14 @@ contains end do y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr acc = zzero - do + do if (j > nnz) exit if (ia(j) > i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j + 1 exit @@ -1044,12 +1085,12 @@ contains end do end if - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = nnz - do i=nr, 1, -1 - acc = zzero - do + do i=nr, 1, -1 + acc = zzero + do if (j < 1) exit if (ia(j) < i) exit acc = acc + val(j)*y(ja(j)) @@ -1058,15 +1099,15 @@ contains y(i) = x(i) - acc end do - else if (.not.unit) then + else if (.not.unit) then j = nnz - do i=nr, 1, -1 - acc = zzero - do + do i=nr, 1, -1 + acc = zzero + do if (j < 1) exit if (ia(j) < i) exit - if (ja(j) == i) then + if (ja(j) == i) then y(i) = (x(i) - acc)/val(j) j = j - 1 exit @@ -1079,68 +1120,68 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc - j = j - 1 + y(jc) = y(jc) - val(j)*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /val(j) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - val(j)*acc + y(jc) = y(jc) - val(j)*acc j = j + 1 end do end do @@ -1148,68 +1189,68 @@ contains end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i) = x(i) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then j = nnz do i=nr, 1, -1 - acc = y(i) + acc = y(i) do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc - j = j - 1 + y(jc) = y(jc) - conjg(val(j))*acc + j = j - 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = nnz do i=nr, 1, -1 - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /conjg(val(j)) j = j - 1 end if - acc = y(i) - do + acc = y(i) + do if (j < 1) exit if (ia(j) < i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j - 1 end do end do - else if (.not.lower) then - if (unit) then + else if (.not.lower) then + if (unit) then j = 1 do i=1, nr acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j + 1 end do end do - else if (.not.unit) then + else if (.not.unit) then j = 1 do i=1, nr - if (ja(j) == i) then + if (ja(j) == i) then y(i) = y(i) /conjg(val(j)) j = j + 1 end if acc = y(i) - do + do if (j > nnz) exit if (ia(j) > i) exit jc = ja(j) - y(jc) = y(jc) - conjg(val(j))*acc + y(jc) = y(jc) - conjg(val(j))*acc j = j + 1 end do end do @@ -1223,12 +1264,12 @@ contains end subroutine psb_z_coo_cssv -subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_csmv - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) @@ -1247,7 +1288,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1265,7 +1306,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1296,8 +1337,8 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == zzero) then do i = 1, min(m,n) y(i) = alpha*x(i) @@ -1306,7 +1347,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) y(i) = zzero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i) = beta*y(i) + alpha*x(i) end do do i = min(m,n)+1, m @@ -1328,28 +1369,28 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) end if - if ((.not.tra).and.(.not.ctra)) then + if ((.not.tra).and.(.not.ctra)) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = zzero - do - if (i>nnz) then + do + if (i>nnz) then y(ir) = y(ir) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir) = y(ir) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = zzero endif acc = acc + a%val(i) * x(a%ja(i)) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == zone) then i = 1 @@ -1367,7 +1408,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - a%val(i)*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1377,7 +1418,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == zone) then i = 1 @@ -1395,7 +1436,7 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) y(ir) = y(ir) - conjg(a%val(i))*x(jc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1417,12 +1458,12 @@ subroutine psb_z_coo_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_z_coo_csmv -subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) use psb_const_mod use psb_error_mod use psb_string_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_csmm - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1441,7 +1482,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) call psb_erractionsave(err_act) - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1460,7 +1501,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -1500,8 +1541,8 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) end do endif return - else - if (a%is_unit()) then + else + if (a%is_unit()) then if (beta == zzero) then do i = 1, min(m,n) y(i,1:nc) = alpha*x(i,1:nc) @@ -1510,7 +1551,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) y(i,1:nc) = zzero enddo else - do i = 1, min(m,n) + do i = 1, min(m,n) y(i,1:nc) = beta*y(i,1:nc) + alpha*x(i,1:nc) end do do i = min(m,n)+1, m @@ -1532,28 +1573,28 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) end if - if (.not.tra) then + if (.not.tra) then i = 1 j = i - if (nnz > 0) then - ir = a%ia(1) + if (nnz > 0) then + ir = a%ia(1) acc = zzero - do - if (i>nnz) then + do + if (i>nnz) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc exit endif - if (a%ia(i) /= ir) then + if (a%ia(i) /= ir) then y(ir,1:nc) = y(ir,1:nc) + alpha * acc - ir = a%ia(i) + ir = a%ia(i) acc = zzero endif acc = acc + a%val(i) * x(a%ja(i),1:nc) - i = i + 1 + i = i + 1 enddo end if - else if (tra) then + else if (tra) then if (alpha == zone) then i = 1 @@ -1571,7 +1612,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - a%val(i)*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1581,7 +1622,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) end if !.....end testing on alpha - else if (ctra) then + else if (ctra) then if (alpha == zone) then i = 1 @@ -1599,7 +1640,7 @@ subroutine psb_z_coo_csmm(alpha,a,x,beta,y,info,trans) y(ir,1:nc) = y(ir,1:nc) - conjg(a%val(i))*x(jc,1:nc) enddo - else + else do i=1,nnz ir = a%ja(i) @@ -1623,7 +1664,7 @@ end subroutine psb_z_coo_csmm function psb_z_coo_maxval(a) result(res) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_maxval - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1633,13 +1674,13 @@ function psb_z_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1649,7 +1690,7 @@ end function psb_z_coo_maxval function psb_z_coo_csnmi(a) result(res) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_csnmi - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1666,15 +1707,15 @@ function psb_z_coo_csnmi(a) result(res) res = dzero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = dzero - do while (i<=nnz) + res = dzero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -1689,7 +1730,7 @@ function psb_z_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = done else vt = dzero @@ -1701,7 +1742,7 @@ function psb_z_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_z_coo_csnmi @@ -1710,7 +1751,7 @@ function psb_z_coo_csnm1(a) result(res) use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_csnm1 - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1729,7 +1770,7 @@ function psb_z_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = done else vt = dzero @@ -1745,7 +1786,7 @@ function psb_z_coo_csnm1(a) result(res) end function psb_z_coo_csnm1 -subroutine psb_z_coo_rowsum(d,a) +subroutine psb_z_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_rowsum @@ -1765,13 +1806,13 @@ subroutine psb_z_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -1785,7 +1826,7 @@ subroutine psb_z_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1793,7 +1834,7 @@ subroutine psb_z_coo_rowsum(d,a) end subroutine psb_z_coo_rowsum -subroutine psb_z_coo_arwsum(d,a) +subroutine psb_z_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_arwsum @@ -1812,13 +1853,13 @@ subroutine psb_z_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1831,7 +1872,7 @@ subroutine psb_z_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1839,7 +1880,7 @@ subroutine psb_z_coo_arwsum(d,a) end subroutine psb_z_coo_arwsum -subroutine psb_z_coo_colsum(d,a) +subroutine psb_z_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_colsum @@ -1858,13 +1899,13 @@ subroutine psb_z_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -1878,7 +1919,7 @@ subroutine psb_z_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1886,7 +1927,7 @@ subroutine psb_z_coo_colsum(d,a) end subroutine psb_z_coo_colsum -subroutine psb_z_coo_aclsum(d,a) +subroutine psb_z_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_aclsum @@ -1905,14 +1946,14 @@ subroutine psb_z_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,i_err=(/1_psb_ipk_,size(d,kind=psb_ipk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1923,10 +1964,10 @@ subroutine psb_z_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1951,7 +1992,7 @@ end subroutine psb_z_coo_aclsum subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1968,7 +2009,7 @@ subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1996,22 +2037,22 @@ subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2020,12 +2061,12 @@ subroutine psb_z_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2069,19 +2110,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2096,13 +2137,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2120,31 +2161,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -2153,7 +2194,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -2161,8 +2202,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -2175,12 +2216,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2192,11 +2233,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -2210,7 +2251,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -2219,12 +2260,12 @@ end subroutine psb_z_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2269,27 +2310,27 @@ subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2298,12 +2339,12 @@ subroutine psb_z_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2351,19 +2392,19 @@ contains nza = a%get_nzeros() irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -2378,13 +2419,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -2402,34 +2443,34 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -2437,10 +2478,10 @@ contains end if enddo call psb_z_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -2449,7 +2490,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -2458,27 +2499,27 @@ contains nrd = max(a%get_nrows(),1) nzt = ((nza+nrd-1)/nrd)*(lrw-irw+1) - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return end if - - if (present(iren)) then - k = 0 + + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - end if + end if end if val(nzin_+k) = a%val(i) ia(nzin_+k) = iren(a%ia(i)) @@ -2486,14 +2527,14 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) @@ -2515,12 +2556,12 @@ contains end subroutine psb_z_coo_csgetrow -subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_csput_a - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -2532,30 +2573,30 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) character(len=20) :: name='z_coo_csput_a_impl' logical, parameter :: debug=.false. integer(psb_ipk_) :: nza, i,j,k, nzl, isza, debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -2566,13 +2607,13 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -2583,22 +2624,22 @@ subroutine psb_z_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call z_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2619,7 +2660,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_ipk_), intent(in) :: ia(:),ja(:) @@ -2630,11 +2671,11 @@ contains integer(psb_ipk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -2650,7 +2691,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2668,13 +2709,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2686,18 +2727,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2709,7 +2750,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2723,18 +2764,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,nnz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -2746,7 +2787,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2768,10 +2809,10 @@ contains end subroutine psb_z_coo_csput_a -subroutine psb_z_cp_coo_to_coo(a,b,info) +subroutine psb_z_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_to_coo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2810,10 +2851,10 @@ subroutine psb_z_cp_coo_to_coo(a,b,info) end subroutine psb_z_cp_coo_to_coo -subroutine psb_z_cp_coo_from_coo(a,b,info) +subroutine psb_z_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_from_coo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2856,10 +2897,10 @@ subroutine psb_z_cp_coo_from_coo(a,b,info) end subroutine psb_z_cp_coo_from_coo -subroutine psb_z_cp_coo_to_fmt(a,b,info) +subroutine psb_z_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_to_fmt - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2888,10 +2929,10 @@ subroutine psb_z_cp_coo_to_fmt(a,b,info) end subroutine psb_z_cp_coo_to_fmt -subroutine psb_z_cp_coo_from_fmt(a,b,info) +subroutine psb_z_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_from_fmt - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -2922,10 +2963,10 @@ subroutine psb_z_cp_coo_from_fmt(a,b,info) end subroutine psb_z_cp_coo_from_fmt -subroutine psb_z_mv_coo_to_coo(a,b,info) +subroutine psb_z_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_mv_coo_to_coo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -2964,10 +3005,10 @@ subroutine psb_z_mv_coo_to_coo(a,b,info) end subroutine psb_z_mv_coo_to_coo -subroutine psb_z_mv_coo_from_coo(a,b,info) +subroutine psb_z_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_mv_coo_from_coo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3008,10 +3049,10 @@ subroutine psb_z_mv_coo_from_coo(a,b,info) end subroutine psb_z_mv_coo_from_coo -subroutine psb_z_mv_coo_to_fmt(a,b,info) +subroutine psb_z_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_mv_coo_to_fmt - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3040,10 +3081,10 @@ subroutine psb_z_mv_coo_to_fmt(a,b,info) end subroutine psb_z_mv_coo_to_fmt -subroutine psb_z_mv_coo_from_fmt(a,b,info) +subroutine psb_z_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_mv_coo_from_fmt - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3076,7 +3117,7 @@ end subroutine psb_z_mv_coo_from_fmt subroutine psb_z_coo_cp_from(a,b) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_cp_from - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(in) :: b @@ -3106,7 +3147,7 @@ end subroutine psb_z_coo_cp_from subroutine psb_z_coo_mv_from(a,b) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_mv_from - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a type(psb_z_coo_sparse_mat), intent(inout) :: b @@ -3135,11 +3176,11 @@ end subroutine psb_z_coo_mv_from -subroutine psb_z_fix_coo(a,info,idir) +subroutine psb_z_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_fix_coo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3160,17 +3201,17 @@ subroutine psb_z_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_z_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -3193,14 +3234,14 @@ end subroutine psb_z_fix_coo -subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nr, nc, nzin, dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:) @@ -3225,14 +3266,14 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -3241,17 +3282,17 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - select case(idir_) - case(psb_row_major_) + select case(idir_) + + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -3261,15 +3302,15 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -3280,9 +3321,9 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -3290,7 +3331,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3300,87 +3341,87 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3392,7 +3433,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -3401,7 +3442,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3411,73 +3452,73 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3486,15 +3527,15 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. - ! + ! let's try in place. + ! call psi_msort_up(nzin,ia(1:),iaux(1:),iret) if (iret == 0) & & call psb_ip_reord(nzin,val,ia,ja,iaux) @@ -3522,52 +3563,52 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3580,7 +3621,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -3590,13 +3631,13 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -3610,10 +3651,10 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -3621,7 +3662,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -3631,86 +3672,86 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -3722,7 +3763,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -3730,7 +3771,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -3739,73 +3780,73 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -3816,7 +3857,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then call psi_msort_up(nzin,ja(1:),iaux(1:),iret) if (iret == 0) & @@ -3844,42 +3885,42 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -3887,8 +3928,8 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -3907,7 +3948,7 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -3921,10 +3962,10 @@ subroutine psb_z_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_z_fix_coo_inner -subroutine psb_z_cp_coo_to_lcoo(a,b,info) +subroutine psb_z_cp_coo_to_lcoo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_to_lcoo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3964,10 +4005,10 @@ subroutine psb_z_cp_coo_to_lcoo(a,b,info) end subroutine psb_z_cp_coo_to_lcoo -subroutine psb_z_cp_coo_from_lcoo(a,b,info) +subroutine psb_z_cp_coo_from_lcoo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_z_cp_coo_from_lcoo - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -4015,11 +4056,11 @@ end subroutine psb_z_cp_coo_from_lcoo ! ! -subroutine psb_lz_coo_get_diag(a,d,info) +subroutine psb_lz_coo_get_diag(a,d,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4034,19 +4075,19 @@ subroutine psb_lz_coo_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = zone + if (a%is_unit()) then + d(1:mnm) = zone else d(1:mnm) = zzero do i=1,a%get_nzeros() j=a%ia(i) - if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then d(j) = a%val(i) endif enddo @@ -4060,12 +4101,12 @@ subroutine psb_lz_coo_get_diag(a,d,info) end subroutine psb_lz_coo_get_diag -subroutine psb_lz_coo_scal(d,a,info,side) +subroutine psb_lz_coo_scal(d,a,info,side) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_scal use psb_error_mod use psb_const_mod use psb_string_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4075,44 +4116,44 @@ subroutine psb_lz_coo_scal(d,a,info,side) integer(psb_lpk_) :: mnm, i, j, m character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - - if (left) then + + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ia(i) a%val(i) = a%val(i) * d(j) enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ call psb_errpush(info,name,l_err=(/2_psb_lpk_,size(d,kind=psb_lpk_)/)) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -4130,11 +4171,11 @@ subroutine psb_lz_coo_scal(d,a,info,side) end subroutine psb_lz_coo_scal -subroutine psb_lz_coo_scals(d,a,info) +subroutine psb_lz_coo_scals(d,a,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_scals use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4148,7 +4189,7 @@ subroutine psb_lz_coo_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -4170,7 +4211,7 @@ end subroutine psb_lz_coo_scals function psb_lz_coo_maxval(a) result(res) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_maxval - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4180,13 +4221,13 @@ function psb_lz_coo_maxval(a) result(res) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero end if nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -4196,7 +4237,7 @@ end function psb_lz_coo_maxval function psb_lz_coo_csnmi(a) result(res) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_csnmi - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4213,15 +4254,15 @@ function psb_lz_coo_csnmi(a) result(res) res = dzero nnz = a%get_nzeros() is_unit = a%is_unit() - if (a%is_by_rows()) then + if (a%is_by_rows()) then i = 1 j = i - res = dzero - do while (i<=nnz) + res = dzero + do while (i<=nnz) do while ((a%ia(j) == a%ia(i)).and. (j <= nnz)) j = j+1 enddo - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -4236,7 +4277,7 @@ function psb_lz_coo_csnmi(a) result(res) m = a%get_nrows() allocate(vt(m),stat=info) if (info /= 0) return - if (is_unit) then + if (is_unit) then vt = done else vt = dzero @@ -4248,7 +4289,7 @@ function psb_lz_coo_csnmi(a) result(res) res = maxval(vt(1:m)) deallocate(vt,stat=info) end if - + end function psb_lz_coo_csnmi @@ -4257,7 +4298,7 @@ function psb_lz_coo_csnm1(a) result(res) use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_csnm1 - implicit none + implicit none class(psb_z_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -4276,7 +4317,7 @@ function psb_lz_coo_csnm1(a) result(res) n = a%get_ncols() allocate(vt(n),stat=info) if (info /= 0) return - if (a%is_unit()) then + if (a%is_unit()) then vt = done else vt = dzero @@ -4292,7 +4333,7 @@ function psb_lz_coo_csnm1(a) result(res) end function psb_lz_coo_csnm1 -subroutine psb_lz_coo_rowsum(d,a) +subroutine psb_lz_coo_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_rowsum @@ -4313,13 +4354,13 @@ subroutine psb_lz_coo_rowsum(d,a) m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -4333,7 +4374,7 @@ subroutine psb_lz_coo_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4341,7 +4382,7 @@ subroutine psb_lz_coo_rowsum(d,a) end subroutine psb_lz_coo_rowsum -subroutine psb_lz_coo_arwsum(d,a) +subroutine psb_lz_coo_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_arwsum @@ -4361,13 +4402,13 @@ subroutine psb_lz_coo_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),m/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4380,7 +4421,7 @@ subroutine psb_lz_coo_arwsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4388,7 +4429,7 @@ subroutine psb_lz_coo_arwsum(d,a) end subroutine psb_lz_coo_arwsum -subroutine psb_lz_coo_colsum(d,a) +subroutine psb_lz_coo_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_colsum @@ -4408,13 +4449,13 @@ subroutine psb_lz_coo_colsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -4428,7 +4469,7 @@ subroutine psb_lz_coo_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4436,7 +4477,7 @@ subroutine psb_lz_coo_colsum(d,a) end subroutine psb_lz_coo_colsum -subroutine psb_lz_coo_aclsum(d,a) +subroutine psb_lz_coo_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_aclsum @@ -4456,14 +4497,14 @@ subroutine psb_lz_coo_aclsum(d,a) if (a%is_dev()) call a%sync() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ call psb_errpush(info,name,e_err=(/1_psb_epk_,size(d,kind=psb_epk_),n/)) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -4474,10 +4515,10 @@ subroutine psb_lz_coo_aclsum(d,a) k = a%ja(j) d(k) = d(k) + abs(a%val(j)) end do - + return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -4485,11 +4526,11 @@ subroutine psb_lz_coo_aclsum(d,a) end subroutine psb_lz_coo_aclsum -subroutine psb_lz_coo_reallocate_nz(nz,a) +subroutine psb_lz_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_reallocate_nz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4504,7 +4545,7 @@ subroutine psb_lz_coo_reallocate_nz(nz,a) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4518,10 +4559,10 @@ subroutine psb_lz_coo_reallocate_nz(nz,a) end subroutine psb_lz_coo_reallocate_nz -subroutine psb_lz_coo_mold(a,b,info) +subroutine psb_lz_coo_mold(a,b,info) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_mold use psb_error_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4530,16 +4571,16 @@ subroutine psb_lz_coo_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lz_coo_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4554,9 +4595,9 @@ end subroutine psb_lz_coo_mold subroutine psb_lz_coo_reinit(a,clear) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_reinit use psb_error_mod - implicit none + implicit none - class(psb_lz_coo_sparse_mat), intent(inout) :: a + class(psb_lz_coo_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4568,17 +4609,17 @@ subroutine psb_lz_coo_reinit(a,clear) info = psb_success_ - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if if (a%is_dev()) call a%sync() - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_host() call a%set_upd() @@ -4603,7 +4644,7 @@ subroutine psb_lz_coo_trim(a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_trim use psb_realloc_mod use psb_error_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info integer(psb_lpk_) :: nz @@ -4618,7 +4659,7 @@ subroutine psb_lz_coo_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4631,13 +4672,13 @@ end subroutine psb_lz_coo_trim subroutine psb_lz_coo_clean_zeros(a, info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_clean_zeros - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i,j,k, nzin - info = 0 + info = 0 nzin = a%get_nzeros() j = 0 do i=1, nzin @@ -4648,17 +4689,17 @@ subroutine psb_lz_coo_clean_zeros(a, info) a%ja(j) = a%ja(i) end if end do - call a%set_nzeros(j) + call a%set_nzeros(j) call a%trim() end subroutine psb_lz_coo_clean_zeros -subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) +subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_allocate_mnnz use psb_error_mod use psb_realloc_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4669,22 +4710,22 @@ subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/ione,izero/)) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/2_psb_ipk_,izero/)) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/3_psb_ipk_,izero/)) goto 9999 @@ -4692,7 +4733,7 @@ subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then call a%set_nrows(m) call a%set_ncols(n) call a%set_nzeros(lzero) @@ -4704,7 +4745,7 @@ subroutine psb_lz_coo_allocate_mnnz(m,n,a,nz) call a%set_sorted(.true.) call a%set_host() end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4719,10 +4760,10 @@ end subroutine psb_lz_coo_allocate_mnnz subroutine psb_lz_coo_print(iout,a,iv,head,ivr,ivc) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_print use psb_string_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lz_coo_sparse_mat), intent(in) :: a + class(psb_lz_coo_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4732,12 +4773,12 @@ subroutine psb_lz_coo_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: i,j, nmx, ni, nr, nc, nz write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4751,30 +4792,30 @@ subroutine psb_lz_coo_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do j=1,a%get_nzeros() write(iout,frmtv) iv(a%ia(j)),iv(a%ja(j)),a%val(j) enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),a%ja(j),a%val(j) enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) ivr(a%ia(j)),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),ivc(a%ja(j)),a%val(j) enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do j=1,a%get_nzeros() write(iout,frmtv) a%ia(j),a%ja(j),a%val(j) enddo @@ -4789,7 +4830,7 @@ end subroutine psb_lz_coo_print function psb_lz_coo_get_nz_row(idx,a) result(res) use psb_const_mod use psb_sort_mod - use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_get_nz_row + use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_get_nz_row implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a @@ -4799,40 +4840,40 @@ function psb_lz_coo_get_nz_row(idx,a) result(res) integer(psb_ipk_) :: inza if (a%is_dev()) call a%sync() - res = 0 + res = 0 nza = a%get_nzeros() - if (a%is_by_rows()) then + if (a%is_by_rows()) then ! In this case we can do a binary search. inza = nza ip = psb_bsrch(idx,inza,a%ia) if (ip /= -1) return - jp = ip - do + jp = ip + do if (ip < 2) exit - if (a%ia(ip-1) == idx) then - ip = ip -1 - else + if (a%ia(ip-1) == idx) then + ip = ip -1 + else exit end if end do - do + do if (jp == nza) exit - if (a%ia(jp+1) == idx) then + if (a%ia(jp+1) == idx) then jp = jp + 1 - else + else exit end if end do - res = jp - ip +1 + res = jp - ip +1 else res = 0 do i=1, nza - if (a%ia(i) == idx) then - res = res + 1 + if (a%ia(i) == idx) then + res = res + 1 end if end do @@ -4856,7 +4897,7 @@ end function psb_lz_coo_get_nz_row subroutine psb_lz_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4873,7 +4914,7 @@ subroutine psb_lz_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4902,22 +4943,22 @@ subroutine psb_lz_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4926,12 +4967,12 @@ subroutine psb_lz_coo_csgetptn(imin,imax,a,nz,ia,ja,info,& call coo_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4976,19 +5017,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5003,13 +5044,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5027,31 +5068,31 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(a%ia(i)) @@ -5060,7 +5101,7 @@ contains enddo else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = a%ia(i) @@ -5068,8 +5109,8 @@ contains end if enddo end if - else - nz = 0 + else + nz = 0 end if else @@ -5082,12 +5123,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5099,11 +5140,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5117,7 +5158,7 @@ contains enddo nzin_=nzin_+k end if - nz = k + nz = k end if end subroutine coo_getptn @@ -5126,12 +5167,12 @@ end subroutine psb_lz_coo_csgetptn ! -! NZ is the number of non-zeros on output. +! NZ is the number of non-zeros on output. ! The output is guaranteed to be sorted -! +! subroutine psb_lz_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -5149,7 +5190,7 @@ subroutine psb_lz_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -5177,22 +5218,22 @@ subroutine psb_lz_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -5201,12 +5242,12 @@ subroutine psb_lz_coo_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call coo_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - if (rscale_) then + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -5255,19 +5296,19 @@ contains inza = nza irw = imin lrw = imax - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif - if (a%is_by_rows()) then - ! In this case we can do a binary search. + if (a%is_by_rows()) then + ! In this case we can do a binary search. if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name), ': srtdcoo ' do @@ -5282,13 +5323,13 @@ contains end if end do - if (ip /= -1) then + if (ip /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (ip < 2) exit - if (a%ia(ip-1) == irw) then - ip = ip -1 - else + if (a%ia(ip-1) == irw) then + ip = ip -1 + else exit end if end do @@ -5306,32 +5347,32 @@ contains end if end do - if (jp /= -1) then + if (jp /= -1) then ! expand [ip,jp] to contain all row entries. - do + do if (jp == nza) exit - if (a%ia(jp+1) == lrw) then + if (a%ia(jp+1) == lrw) then jp = jp + 1 - else + else exit end if end do end if if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': ip jp',ip,jp,nza - if ((ip /= -1) .and.(jp /= -1)) then + if ((ip /= -1) .and.(jp /= -1)) then ! Now do the copy. - nzt = jp - ip +1 - nz = 0 + nzt = jp - ip +1 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then + if (present(iren)) then do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = iren(a%ia(i)) @@ -5339,10 +5380,10 @@ contains end if enddo call psb_lz_fix_coo_inner(nra,nca,nzin_+nz,psb_dupl_add_,ia,ja,val,nz,info) - nz = nz - nzin_ + nz = nz - nzin_ else do i=ip,jp - if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + if ((jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then nz = nz + 1 val(nzin_+nz) = a%val(i) ia(nzin_+nz) = a%ia(i) @@ -5351,7 +5392,7 @@ contains enddo end if else - nz = 0 + nz = 0 end if else @@ -5365,12 +5406,12 @@ contains if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - if (present(iren)) then - k = 0 + if (present(iren)) then + k = 0 do i=1, a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5384,11 +5425,11 @@ contains endif enddo else - k = 0 + k = 0 do i=1,a%get_nzeros() if ((a%ia(i)>=irw).and.(a%ia(i)<=lrw).and.& - & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then - k = k + 1 + & (jmin <= a%ja(i)).and.(a%ja(i)<=jmax)) then + k = k + 1 if (k > nzt) then nzt = k + nzt call psb_ensure_size(nzin_+nzt,ia,info) @@ -5412,12 +5453,12 @@ contains end subroutine psb_lz_coo_csgetrow -subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_sort_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_csput_a - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -5430,30 +5471,30 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) logical, parameter :: debug=.false. integer(psb_lpk_) :: nza, i,j,k, nzl, isza integer(psb_ipk_) :: debug_level, debug_unit - + info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (nz < 0) then + if (nz < 0) then info = psb_err_iarg_neg_ call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/2_psb_ipk_/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/3_psb_ipk_/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ call psb_errpush(info,name,i_err=(/4_psb_ipk_/)) goto 9999 @@ -5464,13 +5505,13 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() isza = a%get_size() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase. Must handle reallocations in a sensible way. - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then call a%reallocate(max(nza+nz,int(1.5*isza))) endif isza = a%get_size() - if (isza < (nza+nz)) then + if (isza < (nza+nz)) then info = psb_err_alloc_dealloc_; call psb_errpush(info,name) goto 9999 end if @@ -5481,22 +5522,22 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) call a%set_sorted(.false.) - else if (a%is_upd()) then + else if (a%is_upd()) then if (a%is_dev()) call a%sync() call lz_coo_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -5517,7 +5558,7 @@ contains subroutine psb_inner_ins(nz,ia,ja,val,nza,ia1,ia2,aspk,maxsz,& & imin,imax,jmin,jmax,info) - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax,maxsz integer(psb_lpk_), intent(in) :: ia(:),ja(:) @@ -5528,11 +5569,11 @@ contains integer(psb_lpk_) :: i,ir,ic info = psb_success_ - do i=1, nz + do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then - nza = nza + 1 + ic = ja(i) + if ((ir >=imin).and.(ir<=imax).and.(ic>=jmin).and.(ic<=jmax)) then + nza = nza + 1 ia1(nza) = ir ia2(nza) = ic aspk(nza) = val(i) @@ -5548,7 +5589,7 @@ contains use psb_const_mod use psb_realloc_mod use psb_string_mod - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -5566,13 +5607,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() innz = nnz @@ -5583,18 +5624,18 @@ contains ! Cannot test for error, should have been caught earlier. do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5606,7 +5647,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -5620,18 +5661,18 @@ contains ! Add do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then - if (ir /= ilr) then + if (ir /= ilr) then i1 = psb_bsrch(ir,innz,a%ia) i2 = i1 - do + do if (i2+1 > nnz) exit if (a%ia(i2+1) /= a%ia(i2)) exit i2 = i2 + 1 end do - do + do if (i1-1 < 1) exit if (a%ia(i1-1) /= a%ia(i1)) exit i1 = i1 - 1 @@ -5643,7 +5684,7 @@ contains end if nc = i2-i1+1 ip = psb_ssrch(ic,nc,a%ja(i1:i2)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -5665,10 +5706,10 @@ contains end subroutine psb_lz_coo_csput_a -subroutine psb_lz_cp_coo_to_coo(a,b,info) +subroutine psb_lz_cp_coo_to_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_to_coo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5708,10 +5749,10 @@ subroutine psb_lz_cp_coo_to_coo(a,b,info) end subroutine psb_lz_cp_coo_to_coo -subroutine psb_lz_cp_coo_from_coo(a,b,info) +subroutine psb_lz_cp_coo_from_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_from_coo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5754,10 +5795,10 @@ subroutine psb_lz_cp_coo_from_coo(a,b,info) end subroutine psb_lz_cp_coo_from_coo -subroutine psb_lz_cp_coo_to_fmt(a,b,info) +subroutine psb_lz_cp_coo_to_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_to_fmt - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5786,10 +5827,10 @@ subroutine psb_lz_cp_coo_to_fmt(a,b,info) end subroutine psb_lz_cp_coo_to_fmt -subroutine psb_lz_cp_coo_from_fmt(a,b,info) +subroutine psb_lz_cp_coo_from_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_from_fmt - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -5820,10 +5861,10 @@ subroutine psb_lz_cp_coo_from_fmt(a,b,info) end subroutine psb_lz_cp_coo_from_fmt -subroutine psb_lz_mv_coo_to_coo(a,b,info) +subroutine psb_lz_mv_coo_to_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_mv_coo_to_coo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5862,10 +5903,10 @@ subroutine psb_lz_mv_coo_to_coo(a,b,info) end subroutine psb_lz_mv_coo_to_coo -subroutine psb_lz_mv_coo_from_coo(a,b,info) +subroutine psb_lz_mv_coo_from_coo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_mv_coo_from_coo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5906,10 +5947,10 @@ subroutine psb_lz_mv_coo_from_coo(a,b,info) end subroutine psb_lz_mv_coo_from_coo -subroutine psb_lz_mv_coo_to_fmt(a,b,info) +subroutine psb_lz_mv_coo_to_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_mv_coo_to_fmt - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5938,10 +5979,10 @@ subroutine psb_lz_mv_coo_to_fmt(a,b,info) end subroutine psb_lz_mv_coo_to_fmt -subroutine psb_lz_mv_coo_from_fmt(a,b,info) +subroutine psb_lz_mv_coo_from_fmt(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_mv_coo_from_fmt - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -5974,7 +6015,7 @@ end subroutine psb_lz_mv_coo_from_fmt subroutine psb_lz_coo_cp_from(a,b) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_cp_from - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a type(psb_lz_coo_sparse_mat), intent(in) :: b @@ -6004,7 +6045,7 @@ end subroutine psb_lz_coo_cp_from subroutine psb_lz_coo_mv_from(a,b) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_mv_from - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a type(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -6033,11 +6074,11 @@ end subroutine psb_lz_coo_mv_from -subroutine psb_lz_fix_coo(a,info,idir) +subroutine psb_lz_fix_coo(a,info,idir) use psb_const_mod use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_fix_coo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -6058,17 +6099,17 @@ subroutine psb_lz_fix_coo(a,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(a%ia),size(a%ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif if (a%is_dev()) call a%sync() - + nra = a%get_nrows() nca = a%get_ncols() nza = a%get_nzeros() - if (nza >= 2) then + if (nza >= 2) then dupl_ = a%get_dupl() call psb_lz_fix_coo_inner(nra,nca,nza,dupl_,a%ia,a%ja,a%val,i,info,idir_) if (info /= psb_success_) goto 9999 @@ -6091,14 +6132,14 @@ end subroutine psb_lz_fix_coo -subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) +subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use psb_const_mod use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_fix_coo_inner use psb_string_mod use psb_ip_reord_mod use psb_sort_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nr, nc, nzin, dupl integer(psb_lpk_), intent(inout) :: ia(:), ja(:) @@ -6125,14 +6166,14 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) if(debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),': start ',& & size(ia),size(ja) - if (present(idir)) then + if (present(idir)) then idir_ = idir else idir_ = psb_row_major_ endif - if (nzin < 2) then + if (nzin < 2) then call psb_erractionrestore(err_act) return end if @@ -6141,16 +6182,16 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) - allocate(iaux(nzin+2),stat=info) - if (info /= psb_success_) then + allocate(iaux(nzin+2),stat=info) + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - select case(idir_) + select case(idir_) - case(psb_row_major_) + case(psb_row_major_) ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -6158,17 +6199,17 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = (info == 0) else use_buffers = .false. - end if - - if (use_buffers) then - if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then + end if + + if (use_buffers) then + if (.not.( (ia(1) < 1).or.(ia(1)> nr)) ) then iaux(:) = 0 iaux(ia(1)) = iaux(ia(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ia(i) < 1).or.(ia(i)> nr)) then + if ( (ia(i) < 1).or.(ia(i)> nr)) then use_buffers = .false. - srt_inp = .false. + srt_inp = .false. exit end if iaux(ia(i)) = iaux(ia(i)) + 1 @@ -6179,9 +6220,9 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if end if ! Check again use_buffers. - if (use_buffers) then - if (srt_inp) then - ! If input was already row-major + if (use_buffers) then + if (srt_inp) then + ! If input was already row-major ! we can do it row-by-row here. k = 0 i = 1 @@ -6189,7 +6230,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ja(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6199,87 +6240,87 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already row-major + else if (.not.srt_inp) then + ! If input was not already row-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nr - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6291,7 +6332,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(irw) = ip + iaux(irw) = ip end do k = 0 i = 1 @@ -6300,7 +6341,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,jas(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6310,73 +6351,73 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6385,14 +6426,14 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if i=k - + deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then ! ! If we did not have enough memory for buffers, - ! let's try in place. + ! let's try in place. ! inzin = nzin call psi_msort_up(inzin,ia(1:),iaux(1:),iret) @@ -6422,52 +6463,52 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(j) == irw).and.(ja(j) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6480,7 +6521,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) & write(debug_unit,*) trim(name),': end second loop' - case(psb_col_major_) + case(psb_col_major_) if (nc <= nzin) then ! Avoid strange situations with large indices @@ -6490,13 +6531,13 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) use_buffers = .false. end if - if (use_buffers) then + if (use_buffers) then iaux(:) = 0 - if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then + if (.not.( (ja(1) < 1).or.(ja(1)> nc)) ) then iaux(ja(1)) = iaux(ja(1)) + 1 - srt_inp = .true. + srt_inp = .true. do i=2,nzin - if ( (ja(i) < 1).or.(ja(i)> nc)) then + if ( (ja(i) < 1).or.(ja(i)> nc)) then use_buffers = .false. srt_inp = .false. exit @@ -6510,10 +6551,10 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end if !use_buffers=use_buffers.and.srt_inp ! Check again use_buffers. - if (use_buffers) then + if (use_buffers) then - if (srt_inp) then - ! If input was already col-major + if (srt_inp) then + ! If input was already col-major ! we can do it col-by-col here. k = 0 i = 1 @@ -6521,7 +6562,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j) imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ia(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,val(i:imx),& @@ -6531,86 +6572,86 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then + if ((ia(i) == irw).and.(ja(i) == icl)) then val(k) = val(k) + val(i) else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ia(i) - ja(k) = ja(i) - val(k) = val(i) - irw = ia(k) - icl = ja(k) + ja(k) = ja(i) + val(k) = val(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ia(i) == irw).and.(ja(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ia(i) == irw).and.(ja(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = val(i) ia(k) = ia(i) ja(k) = ja(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif !i = i + nzl enddo - else if (.not.srt_inp) then - ! If input was not already col-major + else if (.not.srt_inp) then + ! If input was not already col-major ! we have to sort all ip = iaux(1) iaux(1) = 0 do i=2, nc - is = iaux(i) + is = iaux(i) iaux(i) = ip ip = ip + is end do @@ -6622,7 +6663,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) ias(ip) = ia(i) jas(ip) = ja(i) vs(ip) = val(i) - iaux(icl) = ip + iaux(icl) = ip end do k = 0 i = 1 @@ -6630,7 +6671,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) nzl = iaux(j)-i+1 imx = i+nzl-1 - if (nzl > 0) then + if (nzl > 0) then call psi_msort_up(nzl,ias(i:imx),ix2,iret) if (iret == 0) & & call psb_ip_reord(nzl,vs(i:imx),& @@ -6639,73 +6680,73 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) case(psb_dupl_ovwrt_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_add_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then + if ((ias(i) == irw).and.(jas(i) == icl)) then val(k) = val(k) + vs(i) else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case(psb_dupl_err_) k = k + 1 ia(k) = ias(i) - ja(k) = jas(i) - val(k) = vs(i) - irw = ia(k) - icl = ja(k) + ja(k) = jas(i) + val(k) = vs(i) + irw = ia(k) + icl = ja(k) do i = i + 1 if (i > imx) exit - if ((ias(i) == irw).and.(jas(i) == icl)) then - call psb_errpush(psb_err_duplicate_coo,name) + if ((ias(i) == irw).and.(jas(i) == icl)) then + call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else k = k+1 val(k) = vs(i) ia(k) = ias(i) ja(k) = jas(i) - irw = ia(k) - icl = ja(k) + irw = ia(k) + icl = ja(k) endif enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ info =-7 - return + return end select endif @@ -6716,7 +6757,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) i=k deallocate(ias,jas,vs,ix2, stat=info) - else if (.not.use_buffers) then + else if (.not.use_buffers) then inzin = nzin call psi_msort_up(inzin,ja(1:),iaux(1:),iret) @@ -6745,42 +6786,42 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) select case(dupl_) case(psb_dupl_ovwrt_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_add_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then val(i) = val(i) + val(j) else i = i+1 val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case(psb_dupl_err_) - do + do j = j + 1 if (j > nzin) exit - if ((ia(j) == irw).and.(ja(j) == icl)) then + if ((ia(j) == irw).and.(ja(j) == icl)) then call psb_errpush(psb_err_duplicate_coo,name) goto 9999 else @@ -6788,8 +6829,8 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) val(i) = val(j) ia(i) = ia(j) ja(i) = ja(j) - irw = ia(i) - icl = ja(i) + irw = ia(i) + icl = ja(i) endif enddo case default @@ -6808,7 +6849,7 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) goto 9999 end select - nzout = i + nzout = i deallocate(iaux) @@ -6822,10 +6863,10 @@ subroutine psb_lz_fix_coo_inner(nr,nc,nzin,dupl,ia,ja,val,nzout,info,idir) end subroutine psb_lz_fix_coo_inner -subroutine psb_lz_cp_coo_to_icoo(a,b,info) +subroutine psb_lz_cp_coo_to_icoo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_to_icoo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -6865,10 +6906,10 @@ subroutine psb_lz_cp_coo_to_icoo(a,b,info) end subroutine psb_lz_cp_coo_to_icoo -subroutine psb_lz_cp_coo_from_icoo(a,b,info) +subroutine psb_lz_cp_coo_from_icoo(a,b,info) use psb_error_mod use psb_z_base_mat_mod, psb_protect_name => psb_lz_cp_coo_from_icoo - implicit none + implicit none class(psb_lz_coo_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b integer(psb_ipk_), intent(out) :: info @@ -6908,4 +6949,3 @@ subroutine psb_lz_cp_coo_from_icoo(a,b,info) return end subroutine psb_lz_cp_coo_from_icoo - diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index 54212ddb5..a71b51d15 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_csmv - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -72,7 +72,7 @@ subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -81,7 +81,7 @@ subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_z_csc_csmv(alpha,a,x,beta,y,info,trans) if (a%is_dev()) call a%sync() - if (size(x,1) psb_z_csc_csmm - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -350,13 +350,13 @@ subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) end if tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (tra) then + if (tra) then m = a%get_ncols() n = a%get_nrows() else @@ -364,16 +364,16 @@ subroutine psb_z_csc_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_z_csc_cssv - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -632,7 +632,7 @@ subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -642,28 +642,28 @@ subroutine psb_z_csc_cssv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x,1) psb_z_csc_cssm - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -852,7 +852,7 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -862,23 +862,23 @@ subroutine psb_z_csc_cssm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T').or.(psb_toupper(trans_)=='C') m = a%get_nrows() - if (size(x,1) psb_z_csc_maxval - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1066,7 +1066,7 @@ function psb_z_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero @@ -1074,7 +1074,7 @@ function psb_z_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1085,7 +1085,7 @@ function psb_z_csc_csnm1(a) result(res) use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_csnm1 - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1099,13 +1099,13 @@ function psb_z_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = dzero + res = dzero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -1115,12 +1115,12 @@ function psb_z_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_z_csc_csnm1 -subroutine psb_z_csc_colsum(d,a) +subroutine psb_z_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_colsum @@ -1140,7 +1140,7 @@ subroutine psb_z_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1148,19 +1148,19 @@ subroutine psb_z_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = zone else d(i) = zzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1168,7 +1168,7 @@ subroutine psb_z_csc_colsum(d,a) end subroutine psb_z_csc_colsum -subroutine psb_z_csc_aclsum(d,a) +subroutine psb_z_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_aclsum @@ -1188,7 +1188,7 @@ subroutine psb_z_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1197,25 +1197,25 @@ subroutine psb_z_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1223,7 +1223,7 @@ subroutine psb_z_csc_aclsum(d,a) end subroutine psb_z_csc_aclsum -subroutine psb_z_csc_rowsum(d,a) +subroutine psb_z_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_rowsum @@ -1244,14 +1244,14 @@ subroutine psb_z_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -1265,7 +1265,7 @@ subroutine psb_z_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1273,7 +1273,7 @@ subroutine psb_z_csc_rowsum(d,a) end subroutine psb_z_csc_rowsum -subroutine psb_z_csc_arwsum(d,a) +subroutine psb_z_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_arwsum @@ -1294,14 +1294,14 @@ subroutine psb_z_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -1315,7 +1315,7 @@ subroutine psb_z_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1324,11 +1324,11 @@ subroutine psb_z_csc_arwsum(d,a) end subroutine psb_z_csc_arwsum -subroutine psb_z_csc_get_diag(a,d,info) +subroutine psb_z_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_get_diag - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1343,28 +1343,28 @@ subroutine psb_z_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = zone + if (a%is_unit()) then + d(1:mnm) = zone else do i=1, mnm d(i) = zzero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = zzero end do call psb_erractionrestore(err_act) @@ -1377,12 +1377,12 @@ subroutine psb_z_csc_get_diag(a,d,info) end subroutine psb_z_csc_get_diag -subroutine psb_z_csc_scal(d,a,info,side) +subroutine psb_z_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scal use psb_string_mod - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1393,7 +1393,7 @@ subroutine psb_z_csc_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -1401,39 +1401,39 @@ subroutine psb_z_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -1449,11 +1449,11 @@ subroutine psb_z_csc_scal(d,a,info,side) end subroutine psb_z_csc_scal -subroutine psb_z_csc_scals(d,a,info) +subroutine psb_z_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scals - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1467,7 +1467,7 @@ subroutine psb_z_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1485,8 +1485,51 @@ subroutine psb_z_csc_scals(d,a,info) end subroutine psb_z_csc_scals +subroutine psb_z_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scalplusidentity + implicit none + class(psb_z_csc_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info -! == =================================== + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + integer(psb_ipk_) :: ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + zone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_z_csc_scalplusidentity + + +! == =================================== ! ! ! @@ -1496,11 +1539,11 @@ end subroutine psb_z_csc_scals ! ! ! -! == =================================== +! == =================================== subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1518,7 +1561,7 @@ subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1547,35 +1590,35 @@ subroutine psb_z_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1621,12 +1664,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1637,19 +1680,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1663,9 +1706,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -1677,9 +1720,9 @@ contains enddo end do end if - + end subroutine csc_getptn - + end subroutine psb_z_csc_csgetptn @@ -1687,7 +1730,7 @@ end subroutine psb_z_csc_csgetptn subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1706,7 +1749,7 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale,chksz - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i integer(psb_ipk_) :: ierr(5) character(len=20) :: name='csget' @@ -1716,7 +1759,7 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -1736,22 +1779,22 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -1759,13 +1802,13 @@ subroutine psb_z_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1813,12 +1856,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -1829,7 +1872,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -1837,12 +1880,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1858,9 +1901,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -1880,11 +1923,11 @@ end subroutine psb_z_csc_csgetrow -subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_csput_a - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -1903,26 +1946,26 @@ subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -1933,25 +1976,25 @@ subroutine psb_z_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_z_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -1977,7 +2020,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -1995,13 +2038,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -2011,19 +2054,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2036,18 +2079,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr=i2-i1 - ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,nr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2070,12 +2113,12 @@ end subroutine psb_z_csc_csput_a -subroutine psb_z_cp_csc_from_coo(a,b,info) +subroutine psb_z_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_cp_csc_from_coo - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b @@ -2098,11 +2141,11 @@ end subroutine psb_z_cp_csc_from_coo -subroutine psb_z_cp_csc_to_coo(a,b,info) +subroutine psb_z_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_cp_csc_to_coo - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -2132,7 +2175,7 @@ subroutine psb_z_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -2140,12 +2183,12 @@ subroutine psb_z_cp_csc_to_coo(a,b,info) end subroutine psb_z_cp_csc_to_coo -subroutine psb_z_mv_csc_to_coo(a,b,info) +subroutine psb_z_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_mv_csc_to_coo - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -2183,13 +2226,13 @@ end subroutine psb_z_mv_csc_to_coo -subroutine psb_z_mv_csc_from_coo(a,b,info) +subroutine psb_z_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_mv_csc_from_coo - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -2213,7 +2256,7 @@ subroutine psb_z_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -2236,17 +2279,17 @@ subroutine psb_z_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_z_mv_csc_from_coo -subroutine psb_z_mv_csc_to_fmt(a,b,info) +subroutine psb_z_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_mv_csc_to_fmt - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -2262,10 +2305,10 @@ subroutine psb_z_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_z_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_z_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_z_base_sparse_mat = a%psb_z_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -2282,12 +2325,12 @@ subroutine psb_z_mv_csc_to_fmt(a,b,info) end subroutine psb_z_mv_csc_to_fmt !!$ -subroutine psb_z_cp_csc_to_fmt(a,b,info) +subroutine psb_z_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_cp_csc_to_fmt - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -2303,10 +2346,10 @@ subroutine psb_z_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_z_csc_sparse_mat) + type is (psb_z_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_z_base_sparse_mat = a%psb_z_base_sparse_mat nc = a%get_ncols() @@ -2324,12 +2367,12 @@ subroutine psb_z_cp_csc_to_fmt(a,b,info) end subroutine psb_z_cp_csc_to_fmt -subroutine psb_z_mv_csc_from_fmt(a,b,info) +subroutine psb_z_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_mv_csc_from_fmt - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -2345,10 +2388,10 @@ subroutine psb_z_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_z_csc_sparse_mat) + type is (psb_z_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat @@ -2369,19 +2412,19 @@ end subroutine psb_z_mv_csc_from_fmt subroutine psb_z_csc_clean_zeros(a, info) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_clean_zeros - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nc - integer(psb_ipk_), allocatable :: ilcp(:) - + integer(psb_ipk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= zzero) then @@ -2396,12 +2439,12 @@ subroutine psb_z_csc_clean_zeros(a, info) call a%set_host() end subroutine psb_z_csc_clean_zeros -subroutine psb_z_cp_csc_from_fmt(a,b,info) +subroutine psb_z_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_cp_csc_from_fmt - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b @@ -2417,10 +2460,10 @@ subroutine psb_z_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_z_csc_sparse_mat) + type is (psb_z_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat nc = b%get_ncols() @@ -2435,14 +2478,14 @@ subroutine psb_z_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_z_cp_csc_from_fmt -subroutine psb_z_csc_mold(a,b,info) +subroutine psb_z_csc_mold(a,b,info) use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_mold use psb_error_mod - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -2452,16 +2495,16 @@ subroutine psb_z_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_z_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -2473,11 +2516,11 @@ subroutine psb_z_csc_mold(a,b,info) end subroutine psb_z_csc_mold -subroutine psb_z_csc_reallocate_nz(nz,a) +subroutine psb_z_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -2490,7 +2533,7 @@ subroutine psb_z_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -2508,7 +2551,7 @@ end subroutine psb_z_csc_reallocate_nz !!$subroutine psb_z_csc_csgetblk(imin,imax,a,b,info,& !!$ & jmin,jmax,iren,append,rscale,cscale) -!!$ ! Output is always in COO format +!!$ ! Output is always in COO format !!$ use psb_error_mod !!$ use psb_const_mod !!$ use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_csgetblk @@ -2531,12 +2574,12 @@ end subroutine psb_z_csc_reallocate_nz !!$ call psb_erractionsave(err_act) !!$ info = psb_success_ !!$ -!!$ if (present(append)) then +!!$ if (present(append)) then !!$ append_ = append !!$ else !!$ append_ = .false. !!$ endif -!!$ if (append_) then +!!$ if (append_) then !!$ nzin = a%get_nzeros() !!$ else !!$ nzin = 0 @@ -2564,9 +2607,9 @@ end subroutine psb_z_csc_reallocate_nz subroutine psb_z_csc_reinit(a,clear) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_reinit - implicit none + implicit none - class(psb_z_csc_sparse_mat), intent(inout) :: a + class(psb_z_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2580,16 +2623,16 @@ subroutine psb_z_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_upd() call a%set_host() @@ -2612,7 +2655,7 @@ subroutine psb_z_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_trim - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, nz, n integer(psb_ipk_) :: ierr(5) @@ -2627,7 +2670,7 @@ subroutine psb_z_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2637,11 +2680,11 @@ subroutine psb_z_csc_trim(a) end subroutine psb_z_csc_trim -subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -2652,26 +2695,26 @@ subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -2679,7 +2722,7 @@ subroutine psb_z_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -2702,10 +2745,10 @@ end subroutine psb_z_csc_allocate_mnnz subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_z_csc_sparse_mat), intent(in) :: a + class(psb_z_csc_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2716,13 +2759,13 @@ subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2736,40 +2779,40 @@ subroutine psb_z_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -2782,7 +2825,7 @@ subroutine psb_zcscspspmm(a,b,c,info) use psb_z_mat_mod use psb_serial_mod, psb_protect_name => psb_zcscspspmm - implicit none + implicit none class(psb_z_csc_sparse_mat), intent(in) :: a,b type(psb_z_csc_sparse_mat), intent(out) :: c @@ -2802,7 +2845,7 @@ subroutine psb_zcscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -2831,9 +2874,9 @@ subroutine psb_zcscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_z_csc_sparse_mat), intent(in) :: a,b type(psb_z_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -2856,29 +2899,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -2886,11 +2929,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do @@ -2903,11 +2946,11 @@ end subroutine psb_zcscspspmm -subroutine psb_lz_csc_get_diag(a,d,info) +subroutine psb_lz_csc_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_get_diag - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2922,28 +2965,28 @@ subroutine psb_lz_csc_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then - d(1:mnm) = zone + if (a%is_unit()) then + d(1:mnm) = zone else do i=1, mnm d(i) = zzero do k=a%icp(i),a%icp(i+1)-1 j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do endif - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = zzero end do call psb_erractionrestore(err_act) @@ -2956,12 +2999,12 @@ subroutine psb_lz_csc_get_diag(a,d,info) end subroutine psb_lz_csc_get_diag -subroutine psb_lz_csc_scal(d,a,info,side) +subroutine psb_lz_csc_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scal use psb_string_mod - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2972,7 +3015,7 @@ subroutine psb_lz_csc_scal(d,a,info,side) integer(psb_ipk_) :: err_act,ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ @@ -2980,39 +3023,39 @@ subroutine psb_lz_csc_scal(d,a,info,side) if (a%is_dev()) call a%sync() side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if left = (side_ == 'L') - - if (left) then + + if (left) then n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1, a%get_nzeros() a%val(i) = a%val(i) * d(a%ia(i)) enddo else n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if do j=1, n - do i = a%icp(j), a%icp(j+1) -1 + do i = a%icp(j), a%icp(j+1) -1 a%val(i) = a%val(i) * d(j) end do enddo @@ -3028,11 +3071,11 @@ subroutine psb_lz_csc_scal(d,a,info,side) end subroutine psb_lz_csc_scal -subroutine psb_lz_csc_scals(d,a,info) +subroutine psb_lz_csc_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scals - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3046,7 +3089,7 @@ subroutine psb_lz_csc_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3068,7 +3111,7 @@ end subroutine psb_lz_csc_scals function psb_lz_csc_maxval(a) result(res) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_maxval - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3077,7 +3120,7 @@ function psb_lz_csc_maxval(a) result(res) logical, parameter :: debug=.false. - if (a%is_unit()) then + if (a%is_unit()) then res = done else res = dzero @@ -3085,7 +3128,7 @@ function psb_lz_csc_maxval(a) result(res) if (a%is_dev()) call a%sync() nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3096,7 +3139,7 @@ function psb_lz_csc_csnm1(a) result(res) use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_csnm1 - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3109,13 +3152,13 @@ function psb_lz_csc_csnm1(a) result(res) logical, parameter :: debug=.false. - res = dzero + res = dzero if (a%is_dev()) call a%sync() m = a%get_nrows() n = a%get_ncols() is_unit = a%is_unit() do j=1, n - if (is_unit) then + if (is_unit) then acc = done else acc = dzero @@ -3125,12 +3168,12 @@ function psb_lz_csc_csnm1(a) result(res) end do res = max(res,acc) end do - + return end function psb_lz_csc_csnm1 -subroutine psb_lz_csc_colsum(d,a) +subroutine psb_lz_csc_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_colsum @@ -3151,7 +3194,7 @@ subroutine psb_lz_csc_colsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3159,19 +3202,19 @@ subroutine psb_lz_csc_colsum(d,a) end if is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = zone else d(i) = zzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - + call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3179,7 +3222,7 @@ subroutine psb_lz_csc_colsum(d,a) end subroutine psb_lz_csc_colsum -subroutine psb_lz_csc_aclsum(d,a) +subroutine psb_lz_csc_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_aclsum @@ -3200,7 +3243,7 @@ subroutine psb_lz_csc_aclsum(d,a) if (a%is_dev()) call a%sync() m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3209,25 +3252,25 @@ subroutine psb_lz_csc_aclsum(d,a) is_unit = a%is_unit() do i = 1, a%get_ncols() - if (is_unit) then + if (is_unit) then d(i) = done else d(i) = dzero end if - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, a%get_ncols() d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3235,7 +3278,7 @@ subroutine psb_lz_csc_aclsum(d,a) end subroutine psb_lz_csc_aclsum -subroutine psb_lz_csc_rowsum(d,a) +subroutine psb_lz_csc_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_rowsum @@ -3243,7 +3286,7 @@ subroutine psb_lz_csc_rowsum(d,a) complex(psb_dpk_), intent(out) :: d(:) integer(psb_lpk_) :: i,j,k,nnz, ir, jc, nc - integer(psb_epk_) :: m,n + integer(psb_epk_) :: m,n complex(psb_dpk_) :: acc complex(psb_dpk_), allocatable :: vt(:) logical :: tra @@ -3257,14 +3300,14 @@ subroutine psb_lz_csc_rowsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = zone else d = zzero @@ -3278,7 +3321,7 @@ subroutine psb_lz_csc_rowsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3286,7 +3329,7 @@ subroutine psb_lz_csc_rowsum(d,a) end subroutine psb_lz_csc_rowsum -subroutine psb_lz_csc_arwsum(d,a) +subroutine psb_lz_csc_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_arwsum @@ -3308,14 +3351,14 @@ subroutine psb_lz_csc_arwsum(d,a) m = a%get_ncols() n = a%get_nrows() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d = done else d = dzero @@ -3329,7 +3372,7 @@ subroutine psb_lz_csc_arwsum(d,a) end do call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3338,7 +3381,7 @@ subroutine psb_lz_csc_arwsum(d,a) end subroutine psb_lz_csc_arwsum -! == =================================== +! == =================================== ! ! ! @@ -3348,11 +3391,11 @@ end subroutine psb_lz_csc_arwsum ! ! ! -! == =================================== +! == =================================== subroutine psb_lz_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3370,7 +3413,7 @@ subroutine psb_lz_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3399,35 +3442,35 @@ subroutine psb_lz_csc_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call lcsc_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3473,12 +3516,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3489,19 +3532,19 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return isz = min(size(ia),size(ja)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3515,9 +3558,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) isz = min(size(ia),size(ja)) @@ -3529,9 +3572,9 @@ contains enddo end do end if - + end subroutine lcsc_getptn - + end subroutine psb_lz_csc_csgetptn @@ -3539,7 +3582,7 @@ end subroutine psb_lz_csc_csgetptn subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3558,7 +3601,7 @@ subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='csget' @@ -3568,7 +3611,7 @@ subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -3588,22 +3631,22 @@ subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -3611,13 +3654,13 @@ subroutine psb_lz_csc_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call lcsc_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -3665,12 +3708,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -3681,7 +3724,7 @@ contains nzt = min((a%icp(lcl+1)-a%icp(icl)),& & ((nza+ncd-1)/ncd)*(lcl+1-icl),& & ((nza+nrd-1)/nrd)*(lrw+1-irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) @@ -3689,12 +3732,12 @@ contains if (info /= psb_success_) return isz = min(size(ia),size(ja),size(val)) - if (present(iren)) then + if (present(iren)) then do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3710,9 +3753,9 @@ contains else do i=icl, lcl do j=a%icp(i), a%icp(i+1) - 1 - if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then + if ((imin <= a%ia(j)).and.(a%ia(j)<=imax)) then nzin_ = nzin_ + 1 - if (nzin_>isz) then + if (nzin_>isz) then call psb_ensure_size(int(1.25*nzin_)+ione,ia,info) call psb_ensure_size(int(1.25*nzin_)+ione,ja,info) call psb_ensure_size(int(1.25*nzin_)+ione,val,info) @@ -3732,11 +3775,11 @@ end subroutine psb_lz_csc_csgetrow -subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_csput_a - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -3755,26 +3798,26 @@ subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_level = psb_get_debug_level() info = psb_success_ - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_ ierr(1)=1 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=2 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=3 call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_ ierr(1)=4 call psb_errpush(info,name,i_err=ierr) @@ -3785,25 +3828,25 @@ subroutine psb_lz_csc_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_lz_csc_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -3829,7 +3872,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -3847,13 +3890,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nar = a%get_nrows() nac = a%get_ncols() @@ -3863,19 +3906,19 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -3888,18 +3931,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ic > 0).and.(ic <= nac)) then + ic = ja(i) + if ((ic > 0).and.(ic <= nac)) then i1 = a%icp(ic) i2 = a%icp(ic+1) nr = i2-i1 inr = nr - ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ir,inr,a%ia(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -3921,12 +3964,12 @@ contains end subroutine psb_lz_csc_csput_a -subroutine psb_lz_cp_csc_from_coo(a,b,info) +subroutine psb_lz_cp_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_cp_csc_from_coo - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b @@ -3949,11 +3992,11 @@ end subroutine psb_lz_cp_csc_from_coo -subroutine psb_lz_cp_csc_to_coo(a,b,info) +subroutine psb_lz_cp_csc_to_coo(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_cp_csc_to_coo - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -3983,7 +4026,7 @@ subroutine psb_lz_cp_csc_to_coo(a,b,info) b%val(j) = a%val(j) end do end do - + call b%set_nzeros(a%get_nzeros()) call b%fix(info) @@ -3991,12 +4034,12 @@ subroutine psb_lz_cp_csc_to_coo(a,b,info) end subroutine psb_lz_cp_csc_to_coo -subroutine psb_lz_mv_csc_to_coo(a,b,info) +subroutine psb_lz_mv_csc_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_mv_csc_to_coo - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -4033,13 +4076,13 @@ subroutine psb_lz_mv_csc_to_coo(a,b,info) end subroutine psb_lz_mv_csc_to_coo -subroutine psb_lz_mv_csc_from_coo(a,b,info) +subroutine psb_lz_mv_csc_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_mv_csc_from_coo - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -4063,7 +4106,7 @@ subroutine psb_lz_mv_csc_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -4086,17 +4129,17 @@ subroutine psb_lz_mv_csc_from_coo(a,b,info) end do a%icp(nc+1) = ip call a%set_host() - + end subroutine psb_lz_mv_csc_from_coo -subroutine psb_lz_mv_csc_to_fmt(a,b,info) +subroutine psb_lz_mv_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_mv_csc_to_fmt - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -4112,10 +4155,10 @@ subroutine psb_lz_mv_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! - type is (psb_lz_csc_sparse_mat) + ! Need to fix trivial copies! + type is (psb_lz_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lz_base_sparse_mat = a%psb_lz_base_sparse_mat call move_alloc(a%icp, b%icp) @@ -4132,12 +4175,12 @@ subroutine psb_lz_mv_csc_to_fmt(a,b,info) end subroutine psb_lz_mv_csc_to_fmt !!$ -subroutine psb_lz_cp_csc_to_fmt(a,b,info) +subroutine psb_lz_cp_csc_to_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_cp_csc_to_fmt - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -4153,10 +4196,10 @@ subroutine psb_lz_cp_csc_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_lz_csc_sparse_mat) + type is (psb_lz_csc_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lz_base_sparse_mat = a%psb_lz_base_sparse_mat nc = a%get_ncols() @@ -4174,12 +4217,12 @@ subroutine psb_lz_cp_csc_to_fmt(a,b,info) end subroutine psb_lz_cp_csc_to_fmt -subroutine psb_lz_mv_csc_from_fmt(a,b,info) +subroutine psb_lz_mv_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_mv_csc_from_fmt - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -4195,10 +4238,10 @@ subroutine psb_lz_mv_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_lz_csc_sparse_mat) + type is (psb_lz_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat @@ -4218,12 +4261,12 @@ end subroutine psb_lz_mv_csc_from_fmt -subroutine psb_lz_cp_csc_from_fmt(a,b,info) +subroutine psb_lz_cp_csc_from_fmt(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_cp_csc_from_fmt - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b @@ -4239,10 +4282,10 @@ subroutine psb_lz_cp_csc_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_lz_csc_sparse_mat) + type is (psb_lz_csc_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat nc = b%get_ncols() @@ -4257,25 +4300,25 @@ subroutine psb_lz_cp_csc_from_fmt(a,b,info) if (info == psb_success_) call a%mv_from_coo(tmp,info) end select call a%set_host() - + end subroutine psb_lz_cp_csc_from_fmt subroutine psb_lz_csc_clean_zeros(a, info) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_clean_zeros - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nc - integer(psb_lpk_), allocatable :: ilcp(:) - + integer(psb_lpk_), allocatable :: ilcp(:) + info = 0 call a%sync() nc = a%get_ncols() - ilcp = a%icp(:) + ilcp = a%icp(:) a%icp(1) = 1 - j = a%icp(1) + j = a%icp(1) do i=1, nc do k = ilcp(i), ilcp(i+1) -1 if (a%val(k) /= zzero) then @@ -4291,10 +4334,10 @@ subroutine psb_lz_csc_clean_zeros(a, info) end subroutine psb_lz_csc_clean_zeros -subroutine psb_lz_csc_mold(a,b,info) +subroutine psb_lz_csc_mold(a,b,info) use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_mold use psb_error_mod - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -4303,16 +4346,16 @@ subroutine psb_lz_csc_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lz_csc_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -4324,11 +4367,11 @@ subroutine psb_lz_csc_mold(a,b,info) end subroutine psb_lz_csc_mold -subroutine psb_lz_csc_reallocate_nz(nz,a) +subroutine psb_lz_csc_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4340,7 +4383,7 @@ subroutine psb_lz_csc_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ia,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_ncols()+1, a%icp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -4358,7 +4401,7 @@ end subroutine psb_lz_csc_reallocate_nz subroutine psb_lz_csc_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_csgetblk @@ -4381,12 +4424,12 @@ subroutine psb_lz_csc_csgetblk(imin,imax,a,b,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. endif - if (append_) then + if (append_) then nzin = a%get_nzeros() else nzin = 0 @@ -4414,9 +4457,9 @@ end subroutine psb_lz_csc_csgetblk subroutine psb_lz_csc_reinit(a,clear) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_reinit - implicit none + implicit none - class(psb_lz_csc_sparse_mat), intent(inout) :: a + class(psb_lz_csc_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4430,16 +4473,16 @@ subroutine psb_lz_csc_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_upd() call a%set_host() @@ -4462,7 +4505,7 @@ subroutine psb_lz_csc_trim(a) use psb_realloc_mod use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_trim - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, n integer(psb_ipk_) :: err_act, info, ierr(5) @@ -4477,7 +4520,7 @@ subroutine psb_lz_csc_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ia,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4487,11 +4530,11 @@ subroutine psb_lz_csc_trim(a) end subroutine psb_lz_csc_trim -subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) +subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lz_csc_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -4502,26 +4545,26 @@ subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -4529,7 +4572,7 @@ subroutine psb_lz_csc_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(n+1,a%icp,info) if (info == psb_success_) call psb_realloc(nz_,a%ia,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%icp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -4552,10 +4595,10 @@ end subroutine psb_lz_csc_allocate_mnnz subroutine psb_lz_csc_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lz_csc_sparse_mat), intent(in) :: a + class(psb_lz_csc_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4566,13 +4609,13 @@ subroutine psb_lz_csc_print(iout,a,iv,head,ivr,ivc) logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4586,40 +4629,40 @@ subroutine psb_lz_csc_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) iv(a%ia(j)),iv(i),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),i,a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) ivr(a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),ivc(i),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nc - do j=a%icp(i),a%icp(i+1)-1 + do j=a%icp(i),a%icp(i+1)-1 write(iout,frmtv) (a%ia(j)),(i),a%val(j) end do enddo @@ -4632,7 +4675,7 @@ subroutine psb_lzcscspspmm(a,b,c,info) use psb_z_mat_mod use psb_serial_mod, psb_protect_name => psb_lzcscspspmm - implicit none + implicit none class(psb_lz_csc_sparse_mat), intent(in) :: a,b type(psb_lz_csc_sparse_mat), intent(out) :: c @@ -4652,7 +4695,7 @@ subroutine psb_lzcscspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -4681,9 +4724,9 @@ subroutine psb_lzcscspspmm(a,b,c,info) return contains - + subroutine csc_spspmm(a,b,c,info) - implicit none + implicit none type(psb_lz_csc_sparse_mat), intent(in) :: a,b type(psb_lz_csc_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -4706,29 +4749,29 @@ contains call psb_realloc(isz,col,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,icol,info) - if (info /= 0) return + if (info /= 0) return col = dzero icol = 0 - nzc = 1 + nzc = 1 do j = 1,nb c%icp(j) = nzc - nrc = 0 + nrc = 0 do k = b%icp(j), b%icp(j+1)-1 icl = b%ia(k) cfb = b%val(k) irwsz = a%icp(icl+1)-a%icp(icl) do i = a%icp(icl),a%icp(icl+1)-1 irw = a%ia(i) - if (icol(irw) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(nb*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ia,info) @@ -4736,11 +4779,11 @@ contains end if call psb_msort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ia(nzc) = irw - c%val(nzc) = col(irw) + irw = idxs(i) + c%ia(nzc) = irw + c%val(nzc) = col(irw) col(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index 5c09ec36d..5b9ca993b 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! == =================================== ! @@ -43,11 +43,11 @@ ! ! == =================================== -subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_string_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_csmv - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -73,7 +73,7 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -83,7 +83,7 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -91,16 +91,16 @@ subroutine psb_z_csr_csmv(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_z_csr_csmm - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -418,7 +418,7 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -426,7 +426,7 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) tra = (psb_toupper(trans_) == 'T') ctra = (psb_toupper(trans_) == 'C') - if (tra.or.ctra) then + if (tra.or.ctra) then m = a%get_ncols() n = a%get_nrows() else @@ -434,16 +434,16 @@ subroutine psb_z_csr_csmm(alpha,a,x,beta,y,info,trans) m = a%get_nrows() end if - if (size(x,1) psb_z_csr_cssv - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -766,7 +766,7 @@ subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -776,26 +776,26 @@ subroutine psb_z_csr_cssv(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 end if - if (size(x) psb_z_csr_cssm - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1030,7 +1030,7 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) else trans_ = 'N' end if - if (.not.a%is_asb()) then + if (.not.a%is_asb()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1041,9 +1041,9 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) ctra = (psb_toupper(trans_) == 'C') m = a%get_nrows() - nc = min(size(x,2) , size(y,2)) + nc = min(size(x,2) , size(y,2)) - if (.not. (a%is_triangle())) then + if (.not. (a%is_triangle())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1063,14 +1063,14 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) return end if - if (beta == zzero) then + if (beta == zzero) then call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),y,size(y,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*y(i,1:nc) end do - else - allocate(tmp(m,nc), stat=info) + else + allocate(tmp(m,nc), stat=info) if(info /= psb_success_) then info=psb_err_from_subroutine_ call psb_errpush(info,name,a_err='allocate') @@ -1078,7 +1078,7 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) end if call inner_csrsm(tra,ctra,a%is_lower(),a%is_unit(),a%get_nrows(),nc,& - & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) + & a%irp,a%ja,a%val,x,size(x,1,kind=psb_ipk_),tmp,size(tmp,1,kind=psb_ipk_),info) do i = 1, m y(i,1:nc) = alpha*tmp(i,1:nc) + beta*y(i,1:nc) end do @@ -1099,11 +1099,11 @@ subroutine psb_z_csr_cssm(alpha,a,x,beta,y,info,trans) return -contains +contains subroutine inner_csrsm(tra,ctra,lower,unit,nr,nc,& - & irp,ja,val,x,ldx,y,ldy,info) - implicit none + & irp,ja,val,x,ldx,y,ldy,info) + implicit none logical, intent(in) :: tra,ctra,lower,unit integer(psb_ipk_), intent(in) :: nr,nc,ldx,ldy,irp(*),ja(*) complex(psb_dpk_), intent(in) :: val(*), x(ldx,*) @@ -1120,38 +1120,38 @@ contains end if - if ((.not.tra).and.(.not.ctra)) then - if (lower) then - if (unit) then + if ((.not.tra).and.(.not.ctra)) then + if (lower) then + if (unit) then do i=1, nr - acc = zzero + acc = zzero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr - acc = zzero + acc = zzero do j=irp(i), irp(i+1)-2 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = (x(i,1:nc) - acc)/val(irp(i+1)-1) end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then - do i=nr, 1, -1 - acc = zzero + if (unit) then + do i=nr, 1, -1 + acc = zzero do j=irp(i), irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do y(i,1:nc) = x(i,1:nc) - acc end do - else if (.not.unit) then - do i=nr, 1, -1 - acc = zzero + else if (.not.unit) then + do i=nr, 1, -1 + acc = zzero do j=irp(i)+1, irp(i+1)-1 acc = acc + val(j)*y(ja(j),1:nc) end do @@ -1161,96 +1161,96 @@ contains end if - else if (tra) then + else if (tra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/val(irp(i+1)-1) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/val(irp(i)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - val(j)*acc + y(jc,1:nc) = y(jc,1:nc) - val(j)*acc end do end do end if end if - else if (ctra) then + else if (ctra) then do i=1, nr y(i,1:nc) = x(i,1:nc) end do - if (lower) then - if (unit) then + if (lower) then + if (unit) then do i=nr, 1, -1 - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=nr, 1, -1 y(i,1:nc) = y(i,1:nc)/conjg(val(irp(i+1)-1)) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-2 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do end if - else if (.not.lower) then + else if (.not.lower) then - if (unit) then + if (unit) then do i=1, nr - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i), irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do - else if (.not.unit) then + else if (.not.unit) then do i=1, nr y(i,1:nc) = y(i,1:nc)/conjg(val(irp(i))) - acc = y(i,1:nc) + acc = y(i,1:nc) do j=irp(i)+1, irp(i+1)-1 jc = ja(j) - y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc + y(jc,1:nc) = y(jc,1:nc) - conjg(val(j))*acc end do end do end if @@ -1264,7 +1264,7 @@ end subroutine psb_z_csr_cssm function psb_z_csr_maxval(a) result(res) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_maxval - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1277,7 +1277,7 @@ function psb_z_csr_maxval(a) result(res) res = dzero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -1286,7 +1286,7 @@ end function psb_z_csr_maxval function psb_z_csr_csnmi(a) result(res) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_csnmi - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -1303,7 +1303,7 @@ function psb_z_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -1311,7 +1311,7 @@ function psb_z_csr_csnmi(a) result(res) end function psb_z_csr_csnmi -subroutine psb_z_csr_rowsum(d,a) +subroutine psb_z_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_rowsum @@ -1331,7 +1331,7 @@ subroutine psb_z_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1340,12 +1340,12 @@ subroutine psb_z_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = zzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + zone end do @@ -1353,7 +1353,7 @@ subroutine psb_z_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1361,7 +1361,7 @@ subroutine psb_z_csr_rowsum(d,a) end subroutine psb_z_csr_rowsum -subroutine psb_z_csr_arwsum(d,a) +subroutine psb_z_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_arwsum @@ -1381,7 +1381,7 @@ subroutine psb_z_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = m call psb_errpush(info,name,i_err=ierr) @@ -1391,19 +1391,19 @@ subroutine psb_z_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1411,7 +1411,7 @@ subroutine psb_z_csr_arwsum(d,a) end subroutine psb_z_csr_arwsum -subroutine psb_z_csr_colsum(d,a) +subroutine psb_z_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_colsum @@ -1432,7 +1432,7 @@ subroutine psb_z_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1447,8 +1447,8 @@ subroutine psb_z_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + zone end do @@ -1456,7 +1456,7 @@ subroutine psb_z_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1464,7 +1464,7 @@ subroutine psb_z_csr_colsum(d,a) end subroutine psb_z_csr_colsum -subroutine psb_z_csr_aclsum(d,a) +subroutine psb_z_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_aclsum @@ -1485,7 +1485,7 @@ subroutine psb_z_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ ierr(1) = 1; ierr(2) = size(d); ierr(3) = n call psb_errpush(info,name,i_err=ierr) @@ -1500,8 +1500,8 @@ subroutine psb_z_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -1509,7 +1509,7 @@ subroutine psb_z_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -1517,11 +1517,11 @@ subroutine psb_z_csr_aclsum(d,a) end subroutine psb_z_csr_aclsum -subroutine psb_z_csr_get_diag(a,d,info) +subroutine psb_z_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_get_diag - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1536,28 +1536,28 @@ subroutine psb_z_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = zone else do i=1, mnm d(i) = zzero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = zzero end do @@ -1570,12 +1570,12 @@ subroutine psb_z_csr_get_diag(a,d,info) end subroutine psb_z_csr_get_diag -subroutine psb_z_csr_scal(d,a,info,side) +subroutine psb_z_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scal use psb_string_mod - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -1585,47 +1585,47 @@ subroutine psb_z_csr_scal(d,a,info,side) integer(psb_ipk_) :: ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1643,11 +1643,11 @@ subroutine psb_z_csr_scal(d,a,info,side) end subroutine psb_z_csr_scal -subroutine psb_z_csr_scals(d,a,info) +subroutine psb_z_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scals - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -1660,7 +1660,7 @@ subroutine psb_z_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -1677,10 +1677,51 @@ subroutine psb_z_csr_scals(d,a,info) end subroutine psb_z_csr_scals +subroutine psb_z_csr_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scalplusidentity + implicit none + class(psb_z_csr_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, k, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%irp(i),a%irp(i+1)-1 + j=a%ja(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + zone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + return + +end subroutine psb_z_csr_scalplusidentity -! == =================================== + +! == =================================== ! ! ! @@ -1690,14 +1731,14 @@ end subroutine psb_z_csr_scals ! ! ! -! == =================================== +! == =================================== -subroutine psb_z_csr_reallocate_nz(nz,a) +subroutine psb_z_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_reallocate_nz - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_z_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1709,7 +1750,7 @@ subroutine psb_z_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -1723,10 +1764,10 @@ subroutine psb_z_csr_reallocate_nz(nz,a) end subroutine psb_z_csr_reallocate_nz -subroutine psb_z_csr_mold(a,b,info) +subroutine psb_z_csr_mold(a,b,info) use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_mold use psb_error_mod - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -1735,16 +1776,16 @@ subroutine psb_z_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_z_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -1755,11 +1796,11 @@ subroutine psb_z_csr_mold(a,b,info) end subroutine psb_z_csr_mold -subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_allocate_mnnz - implicit none + implicit none integer(psb_ipk_), intent(in) :: m,n class(psb_z_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in), optional :: nz @@ -1770,26 +1811,26 @@ subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -1797,7 +1838,7 @@ subroutine psb_z_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -1820,7 +1861,7 @@ end subroutine psb_z_csr_allocate_mnnz subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -1838,7 +1879,7 @@ subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_ipk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_ipk_) :: nzin_, jmin_, jmax_, err_act, i character(len=20) :: name='csget' logical, parameter :: debug=.false. @@ -1866,35 +1907,35 @@ subroutine psb_z_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -1940,32 +1981,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -1976,7 +2017,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -1987,13 +2028,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_z_csr_csgetptn subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -2021,7 +2062,7 @@ subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -2040,27 +2081,27 @@ subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if (present(chksz)) then + if (present(chksz)) then chksz_ = chksz else chksz_ = .true. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -2068,13 +2109,13 @@ subroutine psb_z_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,chksz_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -2121,12 +2162,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -2134,23 +2175,23 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 - if (chksz) then + if (chksz) then call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) - + if (info /= psb_success_) return end if - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2162,7 +2203,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -2183,7 +2224,7 @@ end subroutine psb_z_csr_csgetrow ! subroutine psb_z_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_tril @@ -2195,7 +2236,7 @@ subroutine psb_z_csr_tril(a,l,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_z_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2206,57 +2247,57 @@ subroutine psb_z_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -2265,7 +2306,7 @@ subroutine psb_z_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -2281,7 +2322,7 @@ subroutine psb_z_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -2289,17 +2330,17 @@ subroutine psb_z_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -2318,8 +2359,8 @@ subroutine psb_z_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -2337,7 +2378,7 @@ end subroutine psb_z_csr_tril subroutine psb_z_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_triu @@ -2349,7 +2390,7 @@ subroutine psb_z_csr_triu(a,u,info,& integer(psb_ipk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_z_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act, nzin, nzout, i, j, k integer(psb_ipk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz integer(psb_ipk_) :: ierr(5) @@ -2360,57 +2401,57 @@ subroutine psb_z_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -2419,7 +2460,7 @@ subroutine psb_z_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -2471,8 +2512,8 @@ subroutine psb_z_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -2489,11 +2530,11 @@ subroutine psb_z_csr_triu(a,u,info,& end subroutine psb_z_csr_triu -subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_csput_a - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -2511,23 +2552,23 @@ subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then + if (nz <= 0) then info = psb_err_iarg_neg_; i=1 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ia) < nz) then + if (size(ia) < nz) then info = psb_err_input_asize_invalid_i_; i=2 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(ja) < nz) then + if (size(ja) < nz) then info = psb_err_input_asize_invalid_i_; i=3 call psb_errpush(info,name,i_err=(/i/)) goto 9999 end if - if (size(val) < nz) then + if (size(val) < nz) then info = psb_err_input_asize_invalid_i_; i=4 call psb_errpush(info,name,i_err=(/i/)) goto 9999 @@ -2538,25 +2579,25 @@ subroutine psb_z_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_z_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -2582,7 +2623,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -2600,13 +2641,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -2616,20 +2657,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 - ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -2641,17 +2682,17 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 ip = psb_bsrch(ic,nc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -2676,9 +2717,9 @@ end subroutine psb_z_csr_csput_a subroutine psb_z_csr_reinit(a,clear) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_reinit - implicit none + implicit none - class(psb_z_csr_sparse_mat), intent(inout) :: a + class(psb_z_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -2691,16 +2732,16 @@ subroutine psb_z_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_upd() call a%set_host() @@ -2723,9 +2764,9 @@ subroutine psb_z_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_trim - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a - integer(psb_ipk_) :: err_act, info, nz, m + integer(psb_ipk_) :: err_act, info, nz, m character(len=20) :: name='trim' logical, parameter :: debug=.false. @@ -2738,7 +2779,7 @@ subroutine psb_z_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2751,10 +2792,10 @@ end subroutine psb_z_csr_trim subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_z_csr_sparse_mat), intent(in) :: a + class(psb_z_csr_sparse_mat), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -2763,13 +2804,13 @@ subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='z_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_ipk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -2783,40 +2824,40 @@ subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -2826,12 +2867,12 @@ subroutine psb_z_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_z_csr_print -subroutine psb_z_cp_csr_from_coo(a,b,info) +subroutine psb_z_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_cp_csr_from_coo - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(in) :: b @@ -2849,18 +2890,18 @@ subroutine psb_z_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_z_base_sparse_mat = tmp%psb_z_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -2869,22 +2910,22 @@ subroutine psb_z_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -2900,17 +2941,17 @@ subroutine psb_z_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_z_cp_csr_from_coo -subroutine psb_z_cp_csr_to_coo(a,b,info) +subroutine psb_z_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_cp_csr_to_coo - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -2949,12 +2990,12 @@ subroutine psb_z_cp_csr_to_coo(a,b,info) end subroutine psb_z_cp_csr_to_coo -subroutine psb_z_mv_csr_to_coo(a,b,info) +subroutine psb_z_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_mv_csr_to_coo - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -2995,13 +3036,13 @@ end subroutine psb_z_mv_csr_to_coo -subroutine psb_z_mv_csr_from_coo(a,b,info) +subroutine psb_z_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_mv_csr_from_coo - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_coo_sparse_mat), intent(inout) :: b @@ -3027,7 +3068,7 @@ subroutine psb_z_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -3051,15 +3092,15 @@ subroutine psb_z_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_z_mv_csr_from_coo -subroutine psb_z_mv_csr_to_fmt(a,b,info) +subroutine psb_z_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_mv_csr_to_fmt - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -3076,9 +3117,9 @@ subroutine psb_z_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_z_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_z_base_sparse_mat = a%psb_z_base_sparse_mat @@ -3096,12 +3137,12 @@ subroutine psb_z_mv_csr_to_fmt(a,b,info) end subroutine psb_z_mv_csr_to_fmt -subroutine psb_z_cp_csr_to_fmt(a,b,info) +subroutine psb_z_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_cp_csr_to_fmt - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -3119,10 +3160,10 @@ subroutine psb_z_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_z_csr_sparse_mat) + type is (psb_z_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_z_base_sparse_mat = a%psb_z_base_sparse_mat nr = a%get_nrows() @@ -3140,11 +3181,11 @@ subroutine psb_z_cp_csr_to_fmt(a,b,info) end subroutine psb_z_cp_csr_to_fmt -subroutine psb_z_mv_csr_from_fmt(a,b,info) +subroutine psb_z_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_mv_csr_from_fmt - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b @@ -3161,10 +3202,10 @@ subroutine psb_z_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_z_csr_sparse_mat) + type is (psb_z_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat @@ -3183,12 +3224,12 @@ end subroutine psb_z_mv_csr_from_fmt -subroutine psb_z_cp_csr_from_fmt(a,b,info) +subroutine psb_z_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_cp_csr_from_fmt - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a class(psb_z_base_sparse_mat), intent(in) :: b @@ -3205,10 +3246,10 @@ subroutine psb_z_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_z_coo_sparse_mat) + type is (psb_z_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_z_csr_sparse_mat) + type is (psb_z_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_z_base_sparse_mat = b%psb_z_base_sparse_mat nr = b%get_nrows() @@ -3227,19 +3268,19 @@ end subroutine psb_z_cp_csr_from_fmt subroutine psb_z_csr_clean_zeros(a, info) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_clean_zeros - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_ipk_) :: i, j, k, nr - integer(psb_ipk_), allocatable :: ilrp(:) - + integer(psb_ipk_), allocatable :: ilrp(:) + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= zzero) then @@ -3258,7 +3299,7 @@ subroutine psb_zcsrspspmm(a,b,c,info) use psb_z_mat_mod use psb_serial_mod, psb_protect_name => psb_zcsrspspmm - implicit none + implicit none class(psb_z_csr_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(out) :: c @@ -3269,7 +3310,7 @@ subroutine psb_zcsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -3279,7 +3320,7 @@ subroutine psb_zcsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -3305,9 +3346,9 @@ subroutine psb_zcsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_z_csr_sparse_mat), intent(in) :: a,b type(psb_z_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -3330,49 +3371,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_zcsrspspmm @@ -3381,13 +3422,13 @@ end subroutine psb_zcsrspspmm ! ! ! lz version -! ! -subroutine psb_lz_csr_get_diag(a,d,info) +! +subroutine psb_lz_csr_get_diag(a,d,info) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_get_diag - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a complex(psb_dpk_), intent(out) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3402,28 +3443,28 @@ subroutine psb_lz_csr_get_diag(a,d,info) if (a%is_dev()) call a%sync() mnm = min(a%get_nrows(),a%get_ncols()) - if (size(d) < mnm) then + if (size(d) < mnm) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - if (a%is_unit()) then + if (a%is_unit()) then d(1:mnm) = zone else do i=1, mnm d(i) = zzero do k=a%irp(i),a%irp(i+1)-1 j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then + if ((j == i) .and.(j <= mnm )) then d(i) = a%val(k) endif enddo end do end if - do i=mnm+1,size(d) + do i=mnm+1,size(d) d(i) = zzero end do @@ -3436,12 +3477,12 @@ subroutine psb_lz_csr_get_diag(a,d,info) end subroutine psb_lz_csr_get_diag -subroutine psb_lz_csr_scal(d,a,info,side) +subroutine psb_lz_csr_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_scal use psb_string_mod - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -3451,47 +3492,47 @@ subroutine psb_lz_csr_scal(d,a,info,side) integer(psb_ipk_) :: err_act, ierr(5) character(len=20) :: name='scal' character :: side_ - logical :: left + logical :: left logical, parameter :: debug=.false. info = psb_success_ call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if side_ = 'L' - if (present(side)) then + if (present(side)) then side_ = psb_toupper(side) end if left = (side_ == 'L') - if (left) then + if (left) then m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - - do i=1, m - do j = a%irp(i), a%irp(i+1) -1 + + do i=1, m + do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) end do enddo else m = a%get_ncols() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_invalid_i_ - ierr(1) = 2; ierr(2) = size(d); + ierr(1) = 2; ierr(2) = size(d); call psb_errpush(info,name,i_err=ierr) goto 9999 end if - + do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -3509,11 +3550,11 @@ subroutine psb_lz_csr_scal(d,a,info,side) end subroutine psb_lz_csr_scal -subroutine psb_lz_csr_scals(d,a,info) +subroutine psb_lz_csr_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_scals - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -3527,7 +3568,7 @@ subroutine psb_lz_csr_scals(d,a,info) call psb_erractionsave(err_act) if (a%is_dev()) call a%sync() - if (a%is_unit()) then + if (a%is_unit()) then call a%make_nonunit() end if @@ -3548,7 +3589,7 @@ end subroutine psb_lz_csr_scals function psb_lz_csr_maxval(a) result(res) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_maxval - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3561,7 +3602,7 @@ function psb_lz_csr_maxval(a) result(res) res = dzero nnz = a%get_nzeros() - if (allocated(a%val)) then + if (allocated(a%val)) then nnz = min(nnz,size(a%val)) res = maxval(abs(a%val(1:nnz))) end if @@ -3570,7 +3611,7 @@ end function psb_lz_csr_maxval function psb_lz_csr_csnmi(a) result(res) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_csnmi - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a real(psb_dpk_) :: res @@ -3587,7 +3628,7 @@ function psb_lz_csr_csnmi(a) result(res) do i = 1, a%get_nrows() acc = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) end do res = max(res,acc) @@ -3595,7 +3636,7 @@ function psb_lz_csr_csnmi(a) result(res) end function psb_lz_csr_csnmi -subroutine psb_lz_csr_rowsum(d,a) +subroutine psb_lz_csr_rowsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_rowsum @@ -3615,7 +3656,7 @@ subroutine psb_lz_csr_rowsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3624,12 +3665,12 @@ subroutine psb_lz_csr_rowsum(d,a) do i = 1, a%get_nrows() d(i) = zzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + zone end do @@ -3637,7 +3678,7 @@ subroutine psb_lz_csr_rowsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3645,7 +3686,7 @@ subroutine psb_lz_csr_rowsum(d,a) end subroutine psb_lz_csr_rowsum -subroutine psb_lz_csr_arwsum(d,a) +subroutine psb_lz_csr_arwsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_arwsum @@ -3665,7 +3706,7 @@ subroutine psb_lz_csr_arwsum(d,a) if (a%is_dev()) call a%sync() m = a%get_nrows() - if (size(d) < m) then + if (size(d) < m) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = m call psb_errpush(info,name,e_err=err) @@ -3675,19 +3716,19 @@ subroutine psb_lz_csr_arwsum(d,a) do i = 1, a%get_nrows() d(i) = dzero - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 d(i) = d(i) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, m d(i) = d(i) + done end do end if call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3695,7 +3736,7 @@ subroutine psb_lz_csr_arwsum(d,a) end subroutine psb_lz_csr_arwsum -subroutine psb_lz_csr_colsum(d,a) +subroutine psb_lz_csr_colsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_colsum @@ -3716,7 +3757,7 @@ subroutine psb_lz_csr_colsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3731,8 +3772,8 @@ subroutine psb_lz_csr_colsum(d,a) d(k) = d(k) + (a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + zone end do @@ -3740,7 +3781,7 @@ subroutine psb_lz_csr_colsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3748,7 +3789,7 @@ subroutine psb_lz_csr_colsum(d,a) end subroutine psb_lz_csr_colsum -subroutine psb_lz_csr_aclsum(d,a) +subroutine psb_lz_csr_aclsum(d,a) use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_aclsum @@ -3769,7 +3810,7 @@ subroutine psb_lz_csr_aclsum(d,a) m = a%get_nrows() n = a%get_ncols() - if (size(d) < n) then + if (size(d) < n) then info=psb_err_input_asize_small_i_ err(1) = 1; err(2) = size(d); err(3) = n call psb_errpush(info,name,e_err=err) @@ -3784,8 +3825,8 @@ subroutine psb_lz_csr_aclsum(d,a) d(k) = d(k) + abs(a%val(j)) end do end do - - if (a%is_unit()) then + + if (a%is_unit()) then do i=1, n d(i) = d(i) + done end do @@ -3793,7 +3834,7 @@ subroutine psb_lz_csr_aclsum(d,a) return call psb_erractionrestore(err_act) - return + return 9999 call psb_error_handler(err_act) @@ -3802,7 +3843,7 @@ subroutine psb_lz_csr_aclsum(d,a) end subroutine psb_lz_csr_aclsum -! == =================================== +! == =================================== ! ! ! @@ -3812,14 +3853,14 @@ end subroutine psb_lz_csr_aclsum ! ! ! -! == =================================== +! == =================================== -subroutine psb_lz_csr_reallocate_nz(nz,a) +subroutine psb_lz_csr_reallocate_nz(nz,a) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_reallocate_nz - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3831,7 +3872,7 @@ subroutine psb_lz_csr_reallocate_nz(nz,a) call psb_realloc(max(nz,ione),a%ja,info) if (info == psb_success_) call psb_realloc(max(nz,ione),a%val,info) if (info == psb_success_) call psb_realloc(a%get_nrows()+1,a%irp,info) - if (info /= psb_success_) then + if (info /= psb_success_) then call psb_errpush(psb_err_alloc_dealloc_,name) goto 9999 end if @@ -3845,10 +3886,10 @@ subroutine psb_lz_csr_reallocate_nz(nz,a) end subroutine psb_lz_csr_reallocate_nz -subroutine psb_lz_csr_mold(a,b,info) +subroutine psb_lz_csr_mold(a,b,info) use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_mold use psb_error_mod - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout), allocatable :: b integer(psb_ipk_), intent(out) :: info @@ -3857,16 +3898,16 @@ subroutine psb_lz_csr_mold(a,b,info) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - - info = 0 - if (allocated(b)) then + + info = 0 + if (allocated(b)) then call b%free() deallocate(b,stat=info) end if if (info == 0) allocate(psb_lz_csr_sparse_mat :: b, stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if @@ -3877,11 +3918,11 @@ subroutine psb_lz_csr_mold(a,b,info) end subroutine psb_lz_csr_mold -subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) +subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_allocate_mnnz - implicit none + implicit none integer(psb_lpk_), intent(in) :: m,n class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in), optional :: nz @@ -3893,26 +3934,26 @@ subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) call psb_erractionsave(err_act) info = psb_success_ - if (m < 0) then + if (m < 0) then info = psb_err_iarg_neg_ - ierr(1) = ione; ierr(2) = izero; + ierr(1) = ione; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (n < 0) then + if (n < 0) then info = psb_err_iarg_neg_ - ierr(1) = 2; ierr(2) = izero; + ierr(1) = 2; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif - if (present(nz)) then + if (present(nz)) then nz_ = max(nz,ione) else nz_ = max(7*m,7*n,ione) end if - if (nz_ < 0) then + if (nz_ < 0) then info = psb_err_iarg_neg_ - ierr(1) = 3; ierr(2) = izero; + ierr(1) = 3; ierr(2) = izero; call psb_errpush(info,name,i_err=ierr) goto 9999 endif @@ -3920,7 +3961,7 @@ subroutine psb_lz_csr_allocate_mnnz(m,n,a,nz) if (info == psb_success_) call psb_realloc(m+1,a%irp,info) if (info == psb_success_) call psb_realloc(nz_,a%ja,info) if (info == psb_success_) call psb_realloc(nz_,a%val,info) - if (info == psb_success_) then + if (info == psb_success_) then a%irp=0 call a%set_nrows(m) call a%set_ncols(n) @@ -3943,7 +3984,7 @@ end subroutine psb_lz_csr_allocate_mnnz subroutine psb_lz_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -3961,7 +4002,7 @@ subroutine psb_lz_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -3990,35 +4031,35 @@ subroutine psb_lz_csr_csgetptn(imin,imax,a,nz,ia,ja,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 end if call csr_getptn(imin,imax,jmin_,jmax_,a,nz,ia,ja,nzin_,append_,info,iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4064,32 +4105,32 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 endif ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = iren(i) @@ -4100,7 +4141,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 ia(nzin_) = (i) @@ -4111,13 +4152,13 @@ contains end if end subroutine csr_getptn - + end subroutine psb_lz_csr_csgetptn subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_error_mod @@ -4136,7 +4177,7 @@ subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& integer(psb_lpk_), intent(in), optional :: jmin,jmax, nzin logical, intent(in), optional :: rscale,cscale - logical :: append_, rscale_, cscale_ + logical :: append_, rscale_, cscale_ integer(psb_lpk_) :: nzin_, jmin_, jmax_, i integer(psb_ipk_) :: err_act character(len=20) :: name='csget' @@ -4146,7 +4187,7 @@ subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& if (a%is_dev()) call a%sync() info = psb_success_ nz = 0 - + if (present(jmin)) then jmin_ = jmin else @@ -4165,22 +4206,22 @@ subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& else append_=.false. endif - if ((append_).and.(present(nzin))) then + if ((append_).and.(present(nzin))) then nzin_ = nzin else nzin_ = 0 endif - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .false. endif - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .false. endif - if ((rscale_.or.cscale_).and.(present(iren))) then + if ((rscale_.or.cscale_).and.(present(iren))) then info = psb_err_many_optional_arg_ call psb_errpush(info,name,a_err='iren (rscale.or.cscale)') goto 9999 @@ -4188,13 +4229,13 @@ subroutine psb_lz_csr_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call csr_getrow(imin,imax,jmin_,jmax_,a,nz,ia,ja,val,nzin_,append_,info,& & iren) - - if (rscale_) then + + if (rscale_) then do i=nzin_+1, nzin_+nz ia(i) = ia(i) - imin + 1 end do end if - if (cscale_) then + if (cscale_) then do i=nzin_+1, nzin_+nz ja(i) = ja(i) - jmin_ + 1 end do @@ -4241,12 +4282,12 @@ contains lrw = min(imax,a%get_nrows()) icl = jmin lcl = min(jmax,a%get_ncols()) - if (irw<0) then + if (irw<0) then info = psb_err_pivot_too_small_ return end if - if (append) then + if (append) then nzin_ = nzin else nzin_ = 0 @@ -4254,21 +4295,21 @@ contains ! ! This is a row-oriented routine, so the following is a - ! good choice. + ! good choice. ! nzt = (a%irp(lrw+1)-a%irp(irw)) - nz = 0 + nz = 0 call psb_ensure_size(nzin_+nzt,ia,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,ja,info) if (info == psb_success_) call psb_ensure_size(nzin_+nzt,val,info) if (info /= psb_success_) return - - if (present(iren)) then + + if (present(iren)) then do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4280,7 +4321,7 @@ contains else do i=irw, lrw do j=a%irp(i), a%irp(i+1) - 1 - if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then + if ((jmin <= a%ja(j)).and.(a%ja(j)<=jmax)) then nzin_ = nzin_ + 1 nz = nz + 1 val(nzin_) = a%val(j) @@ -4301,7 +4342,7 @@ end subroutine psb_lz_csr_csgetrow ! subroutine psb_lz_csr_tril(a,l,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,u) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_tril @@ -4313,7 +4354,7 @@ subroutine psb_lz_csr_tril(a,l,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lz_coo_sparse_mat), optional, intent(out) :: u - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4325,57 +4366,57 @@ subroutine psb_lz_csr_tril(a,l,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call l%allocate(mb,nb,nz) - + if (present(u)) then nzlin = l%get_nzeros() ! At this point it should be 0 call u%allocate(mb,nb,nz) @@ -4384,7 +4425,7 @@ subroutine psb_lz_csr_tril(a,l,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzlin = nzlin + 1 l%ia(nzlin) = i @@ -4400,7 +4441,7 @@ subroutine psb_lz_csr_tril(a,l,info,& end do end do end associate - + call l%set_nzeros(nzlin) call u%set_nzeros(nzuin) call u%fix(info) @@ -4408,17 +4449,17 @@ subroutine psb_lz_csr_tril(a,l,info,& if (rscale_) & & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & - & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - if ((diag_ >=-1).and.(imin_ == jmin_)) then + & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 + if ((diag_ >=-1).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_lower(.false.) end if else nzin = l%get_nzeros() ! At this point it should be 0 associate(val =>a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)<=diag_) then nzin = nzin + 1 l%ia(nzin) = i @@ -4437,8 +4478,8 @@ subroutine psb_lz_csr_tril(a,l,info,& & l%ia(1:nzout) = l%ia(1:nzout) - imin_ + 1 if (cscale_) & & l%ja(1:nzout) = l%ja(1:nzout) - jmin_ + 1 - - if ((diag_ <= 0).and.(imin_ == jmin_)) then + + if ((diag_ <= 0).and.(imin_ == jmin_)) then call l%set_triangle(.true.) call l%set_lower(.true.) end if @@ -4456,7 +4497,7 @@ end subroutine psb_lz_csr_tril subroutine psb_lz_csr_triu(a,u,info,& & diag,imin,imax,jmin,jmax,rscale,cscale,l) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_triu @@ -4468,7 +4509,7 @@ subroutine psb_lz_csr_triu(a,u,info,& integer(psb_lpk_), intent(in), optional :: diag,imin,imax,jmin,jmax logical, intent(in), optional :: rscale,cscale class(psb_lz_coo_sparse_mat), optional, intent(out) :: l - + integer(psb_ipk_) :: err_act integer(psb_lpk_) :: nzin, nzout, i, j, k integer(psb_lpk_) :: imin_, imax_, jmin_, jmax_, mb,nb, diag_, nzlin, nzuin, nz @@ -4480,57 +4521,57 @@ subroutine psb_lz_csr_triu(a,u,info,& call psb_erractionsave(err_act) info = psb_success_ - if (present(diag)) then + if (present(diag)) then diag_ = diag else diag_ = 0 end if - if (present(imin)) then + if (present(imin)) then imin_ = imin else imin_ = 1 end if - if (present(imax)) then + if (present(imax)) then imax_ = imax else imax_ = a%get_nrows() end if - if (present(jmin)) then + if (present(jmin)) then jmin_ = jmin else jmin_ = 1 end if - if (present(jmax)) then + if (present(jmax)) then jmax_ = jmax else jmax_ = a%get_ncols() end if - if (present(rscale)) then + if (present(rscale)) then rscale_ = rscale else rscale_ = .true. end if - if (present(cscale)) then + if (present(cscale)) then cscale_ = cscale else cscale_ = .true. end if - if (rscale_) then + if (rscale_) then mb = imax_ - imin_ +1 - else - mb = imax_ + else + mb = imax_ endif - if (cscale_) then + if (cscale_) then nb = jmax_ - jmin_ +1 - else - nb = jmax_ + else + nb = jmax_ endif nz = a%get_nzeros() call u%allocate(mb,nb,nz) - + if (present(l)) then nzuin = u%get_nzeros() ! At this point it should be 0 call l%allocate(mb,nb,nz) @@ -4539,7 +4580,7 @@ subroutine psb_lz_csr_triu(a,u,info,& do i=imin_,imax_ do k=irp(i),irp(i+1)-1 j = ja(k) - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)a%val, ja => a%ja, irp=>a%irp) - do i=imin_,imax_ + do i=imin_,imax_ do k=irp(i),irp(i+1)-1 - if ((jmin_<=j).and.(j<=jmax_)) then + if ((jmin_<=j).and.(j<=jmax_)) then if ((ja(k)-i)>=diag_) then nzin = nzin + 1 u%ia(nzin) = i @@ -4591,8 +4632,8 @@ subroutine psb_lz_csr_triu(a,u,info,& & u%ia(1:nzout) = u%ia(1:nzout) - imin_ + 1 if (cscale_) & & u%ja(1:nzout) = u%ja(1:nzout) - jmin_ + 1 - - if ((diag_ >= 0).and.(imin_ == jmin_)) then + + if ((diag_ >= 0).and.(imin_ == jmin_)) then call u%set_triangle(.true.) call u%set_upper(.true.) end if @@ -4609,11 +4650,11 @@ subroutine psb_lz_csr_triu(a,u,info,& end subroutine psb_lz_csr_triu -subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_error_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_csput_a - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) @@ -4633,24 +4674,24 @@ subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - if (nz <= 0) then - info = psb_err_iarg_neg_; + if (nz <= 0) then + info = psb_err_iarg_neg_; call psb_errpush(info,name,m_err=(/1/)) goto 9999 end if - if (size(ia) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ia) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/2/)) goto 9999 end if - if (size(ja) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(ja) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/3/)) goto 9999 end if - if (size(val) < nz) then - info = psb_err_input_asize_invalid_i_; + if (size(val) < nz) then + info = psb_err_input_asize_invalid_i_; call psb_errpush(info,name,m_err=(/4/)) goto 9999 end if @@ -4660,25 +4701,25 @@ subroutine psb_lz_csr_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) nza = a%get_nzeros() - if (a%is_bld()) then + if (a%is_bld()) then ! Build phase should only ever be in COO info = psb_err_invalid_mat_state_ - else if (a%is_upd()) then + else if (a%is_upd()) then call psb_lz_csr_srch_upd(nz,ia,ja,val,a,& & imin,imax,jmin,jmax,info) - if (info < 0) then + if (info < 0) then info = psb_err_internal_error_ - else if (info > 0) then + else if (info > 0) then if (debug_level >= psb_debug_serial_) & & write(debug_unit,*) trim(name),& - & ': Discarded entries not belonging to us.' + & ': Discarded entries not belonging to us.' info = psb_success_ end if call a%set_host() - else + else ! State is wrong. info = psb_err_invalid_mat_state_ end if @@ -4704,7 +4745,7 @@ contains use psb_realloc_mod use psb_string_mod use psb_sort_mod - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_), intent(in) :: nz, imin,imax,jmin,jmax @@ -4722,13 +4763,13 @@ contains dupl = a%get_dupl() - if (.not.a%is_sorted()) then + if (.not.a%is_sorted()) then info = -4 return end if - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 nnz = a%get_nzeros() nr = a%get_nrows() nc = a%get_ncols() @@ -4738,20 +4779,20 @@ contains ! Overwrite. ! Cannot test for error, should have been caught earlier. - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) + ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc=i2-i1 inc = nc - ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) + if (ip>0) then a%val(i1+ip-1) = val(i) else info = max(info,3) @@ -4763,18 +4804,18 @@ contains case(psb_dupl_add_) ! Add - ilr = -1 - ilc = -1 + ilr = -1 + ilc = -1 do i=1, nz ir = ia(i) - ic = ja(i) - if ((ir > 0).and.(ir <= nr)) then + ic = ja(i) + if ((ir > 0).and.(ir <= nr)) then i1 = a%irp(ir) i2 = a%irp(ir+1) nc = i2-i1 inc = nc ip = psb_bsrch(ic,inc,a%ja(i1:i2-1)) - if (ip>0) then + if (ip>0) then a%val(i1+ip-1) = a%val(i1+ip-1) + val(i) else info = max(info,3) @@ -4799,9 +4840,9 @@ end subroutine psb_lz_csr_csput_a subroutine psb_lz_csr_reinit(a,clear) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_reinit - implicit none + implicit none - class(psb_lz_csr_sparse_mat), intent(inout) :: a + class(psb_lz_csr_sparse_mat), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info @@ -4814,16 +4855,16 @@ subroutine psb_lz_csr_reinit(a,clear) if (a%is_dev()) call a%sync() - if (present(clear)) then + if (present(clear)) then clear_ = clear else clear_ = .true. end if - if (a%is_bld() .or. a%is_upd()) then + if (a%is_bld() .or. a%is_upd()) then ! do nothing return - else if (a%is_asb()) then + else if (a%is_asb()) then if (clear_) a%val(:) = zzero call a%set_upd() call a%set_host() @@ -4846,7 +4887,7 @@ subroutine psb_lz_csr_trim(a) use psb_realloc_mod use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_trim - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_lpk_) :: nz, m integer(psb_ipk_) :: err_act, info @@ -4862,7 +4903,7 @@ subroutine psb_lz_csr_trim(a) if (info == psb_success_) call psb_realloc(nz,a%ja,info) if (info == psb_success_) call psb_realloc(nz,a%val,info) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4875,10 +4916,10 @@ end subroutine psb_lz_csr_trim subroutine psb_lz_csr_print(iout,a,iv,head,ivr,ivc) use psb_string_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_print - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lz_csr_sparse_mat), intent(in) :: a + class(psb_lz_csr_sparse_mat), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -4887,13 +4928,13 @@ subroutine psb_lz_csr_print(iout,a,iv,head,ivr,ivc) character(len=20) :: name='lz_csr_print' logical, parameter :: debug=.false. character(len=*), parameter :: datatype='complex' - character(len=80) :: frmtv + character(len=80) :: frmtv integer(psb_lpk_) :: irs,ics,i,j, nmx, ni, nr, nc, nz - + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' - if (present(head)) write(iout,'(a,a)') '% ',head - write(iout,'(a)') '%' + if (present(head)) write(iout,'(a,a)') '% ',head + write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' if (a%is_dev()) call a%sync() @@ -4907,40 +4948,40 @@ subroutine psb_lz_csr_print(iout,a,iv,head,ivr,ivc) if (present(ivc)) nmx = max(nmx,maxval(abs(ivc))) ni = floor(log10(1.0*nmx)) + 1 - if (datatype=='real') then + if (datatype=='real') then write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),es26.18,1x,2(i',ni,',1x))' - else + else write(frmtv,'(a,i3.3,a,i3.3,a)') '(2(i',ni,',1x),2(es26.18,1x),2(i',ni,',1x))' end if - write(iout,*) nr, nc, nz - if(present(iv)) then + write(iout,*) nr, nc, nz + if(present(iv)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) iv(i),iv(a%ja(j)),a%val(j) end do enddo - else - if (present(ivr).and..not.present(ivc)) then + else + if (present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),(a%ja(j)),a%val(j) end do enddo - else if (present(ivr).and.present(ivc)) then + else if (present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) ivr(i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and.present(ivc)) then + else if (.not.present(ivr).and.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),ivc(a%ja(j)),a%val(j) end do enddo - else if (.not.present(ivr).and..not.present(ivc)) then + else if (.not.present(ivr).and..not.present(ivc)) then do i=1, nr - do j=a%irp(i),a%irp(i+1)-1 + do j=a%irp(i),a%irp(i+1)-1 write(iout,frmtv) (i),(a%ja(j)),a%val(j) end do enddo @@ -4950,12 +4991,12 @@ subroutine psb_lz_csr_print(iout,a,iv,head,ivr,ivc) end subroutine psb_lz_csr_print -subroutine psb_lz_cp_csr_from_coo(a,b,info) +subroutine psb_lz_cp_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_cp_csr_from_coo - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(in) :: b @@ -4973,18 +5014,18 @@ subroutine psb_lz_cp_csr_from_coo(a,b,info) info = psb_success_ debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() - - if (.not.b%is_by_rows()) then + + if (.not.b%is_by_rows()) then ! This is to have fix_coo called behind the scenes call tmp%cp_from_coo(b,info) if (info /= psb_success_) return - + nr = tmp%get_nrows() nc = tmp%get_ncols() nza = tmp%get_nzeros() - + a%psb_lz_base_sparse_mat = tmp%psb_lz_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call move_alloc(tmp%ia,itemp) call move_alloc(tmp%ja,a%ja) @@ -4993,22 +5034,22 @@ subroutine psb_lz_cp_csr_from_coo(a,b,info) call tmp%free() else - + if (info /= psb_success_) return if (b%is_dev()) call b%sync() - + nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat - + ! Dirty trick: call move_alloc to have the new data allocated just once. call psb_safe_ab_cpy(b%ia,itemp,info) if (info == psb_success_) call psb_safe_ab_cpy(b%ja,a%ja,info) if (info == psb_success_) call psb_safe_ab_cpy(b%val,a%val,info) if (info == psb_success_) call psb_realloc(nr+1,a%irp,info) - + endif a%irp(:) = 0 @@ -5024,17 +5065,17 @@ subroutine psb_lz_cp_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_lz_cp_csr_from_coo -subroutine psb_lz_cp_csr_to_coo(a,b,info) +subroutine psb_lz_cp_csr_to_coo(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_cp_csr_to_coo - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -5073,12 +5114,12 @@ subroutine psb_lz_cp_csr_to_coo(a,b,info) end subroutine psb_lz_cp_csr_to_coo -subroutine psb_lz_mv_csr_to_coo(a,b,info) +subroutine psb_lz_mv_csr_to_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_mv_csr_to_coo - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -5119,13 +5160,13 @@ end subroutine psb_lz_mv_csr_to_coo -subroutine psb_lz_mv_csr_from_coo(a,b,info) +subroutine psb_lz_mv_csr_from_coo(a,b,info) use psb_const_mod use psb_realloc_mod use psb_error_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_mv_csr_from_coo - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_coo_sparse_mat), intent(inout) :: b @@ -5151,7 +5192,7 @@ subroutine psb_lz_mv_csr_from_coo(a,b,info) nr = b%get_nrows() nc = b%get_ncols() nza = b%get_nzeros() - + a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat ! Dirty trick: call move_alloc to have the new data allocated just once. @@ -5175,15 +5216,15 @@ subroutine psb_lz_mv_csr_from_coo(a,b,info) end do a%irp(nr+1) = ip call a%set_host() - + end subroutine psb_lz_mv_csr_from_coo -subroutine psb_lz_mv_csr_to_fmt(a,b,info) +subroutine psb_lz_mv_csr_to_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_mv_csr_to_fmt - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -5200,9 +5241,9 @@ subroutine psb_lz_mv_csr_to_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%mv_to_coo(b,info) - ! Need to fix trivial copies! + ! Need to fix trivial copies! type is (psb_lz_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lz_base_sparse_mat = a%psb_lz_base_sparse_mat @@ -5220,12 +5261,12 @@ subroutine psb_lz_mv_csr_to_fmt(a,b,info) end subroutine psb_lz_mv_csr_to_fmt -subroutine psb_lz_cp_csr_to_fmt(a,b,info) +subroutine psb_lz_cp_csr_to_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_cp_csr_to_fmt - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -5243,10 +5284,10 @@ subroutine psb_lz_cp_csr_to_fmt(a,b,info) select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%cp_to_coo(b,info) - type is (psb_lz_csr_sparse_mat) + type is (psb_lz_csr_sparse_mat) if (a%is_dev()) call a%sync() b%psb_lz_base_sparse_mat = a%psb_lz_base_sparse_mat nr = a%get_nrows() @@ -5264,11 +5305,11 @@ subroutine psb_lz_cp_csr_to_fmt(a,b,info) end subroutine psb_lz_cp_csr_to_fmt -subroutine psb_lz_mv_csr_from_fmt(a,b,info) +subroutine psb_lz_mv_csr_from_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_mv_csr_from_fmt - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b @@ -5285,10 +5326,10 @@ subroutine psb_lz_mv_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%mv_from_coo(b,info) - type is (psb_lz_csr_sparse_mat) + type is (psb_lz_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat @@ -5307,12 +5348,12 @@ end subroutine psb_lz_mv_csr_from_fmt -subroutine psb_lz_cp_csr_from_fmt(a,b,info) +subroutine psb_lz_cp_csr_from_fmt(a,b,info) use psb_const_mod use psb_z_base_mat_mod use psb_realloc_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_cp_csr_from_fmt - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(in) :: b @@ -5329,10 +5370,10 @@ subroutine psb_lz_cp_csr_from_fmt(a,b,info) info = psb_success_ select type (b) - type is (psb_lz_coo_sparse_mat) + type is (psb_lz_coo_sparse_mat) call a%cp_from_coo(b,info) - type is (psb_lz_csr_sparse_mat) + type is (psb_lz_csr_sparse_mat) if (b%is_dev()) call b%sync() a%psb_lz_base_sparse_mat = b%psb_lz_base_sparse_mat nr = b%get_nrows() @@ -5352,19 +5393,19 @@ end subroutine psb_lz_cp_csr_from_fmt subroutine psb_lz_csr_clean_zeros(a, info) use psb_error_mod use psb_z_csr_mat_mod, psb_protect_name => psb_lz_csr_clean_zeros - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(inout) :: a integer(psb_ipk_) :: info ! integer(psb_lpk_) :: i, j, k, nr - integer(psb_lpk_), allocatable :: ilrp(:) - - info = 0 + integer(psb_lpk_), allocatable :: ilrp(:) + + info = 0 call a%sync() nr = a%get_nrows() - ilrp = a%irp(:) + ilrp = a%irp(:) a%irp(1) = 1 - j = a%irp(1) + j = a%irp(1) do i=1, nr do k = ilrp(i), ilrp(i+1) -1 if (a%val(k) /= zzero) then @@ -5383,7 +5424,7 @@ subroutine psb_lzcsrspspmm(a,b,c,info) use psb_z_mat_mod use psb_serial_mod, psb_protect_name => psb_lzcsrspspmm - implicit none + implicit none class(psb_lz_csr_sparse_mat), intent(in) :: a,b type(psb_lz_csr_sparse_mat), intent(out) :: c @@ -5394,7 +5435,7 @@ subroutine psb_lzcsrspspmm(a,b,c,info) name='psb_csrspspmm' call psb_erractionsave(err_act) info = psb_success_ - + if (a%is_dev()) call a%sync() if (b%is_dev()) call b%sync() @@ -5404,7 +5445,7 @@ subroutine psb_lzcsrspspmm(a,b,c,info) nb = b%get_ncols() - if ( mb /= na ) then + if ( mb /= na ) then write(psb_err_unit,*) 'Mismatch in SPSPMM: ',ma,na,mb,nb info = psb_err_invalid_matrix_sizes_ call psb_errpush(info,name) @@ -5429,9 +5470,9 @@ subroutine psb_lzcsrspspmm(a,b,c,info) return contains - + subroutine csr_spspmm(a,b,c,info) - implicit none + implicit none type(psb_lz_csr_sparse_mat), intent(in) :: a,b type(psb_lz_csr_sparse_mat), intent(inout) :: c integer(psb_ipk_), intent(out) :: info @@ -5454,50 +5495,49 @@ contains call psb_realloc(isz,row,info) if (info == 0) call psb_realloc(isz,idxs,info) if (info == 0) call psb_realloc(isz,irow,info) - if (info /= 0) return + if (info /= 0) return row = dzero irow = 0 - nzc = 1 + nzc = 1 do j = 1,ma c%irp(j) = nzc - nrc = 0 + nrc = 0 do k = a%irp(j), a%irp(j+1)-1 irw = a%ja(k) cfb = a%val(k) irwsz = b%irp(irw+1)-b%irp(irw) do i = b%irp(irw),b%irp(irw+1)-1 icl = b%ja(i) - if (irow(icl) 0 ) then - if ((nzc+nrc)>nze) then + if (nrc > 0 ) then + if ((nzc+nrc)>nze) then nze = max(ma*((nzc+j-1)/j),nzc+2*nrc) call psb_realloc(nze,c%val,info) if (info == 0) call psb_realloc(nze,c%ja,info) if (info /= 0) return end if - + call psb_qsort(idxs(1:nrc)) do i=1, nrc - irw = idxs(i) - c%ja(nzc) = irw - c%val(nzc) = row(irw) + irw = idxs(i) + c%ja(nzc) = irw + c%val(nzc) = row(irw) row(irw) = dzero - nzc = nzc + 1 + nzc = nzc + 1 end do end if end do c%irp(ma+1) = nzc - + end subroutine csr_spspmm end subroutine psb_lzcsrspspmm - diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90 index 10e69e3e5..4cc1f4482 100644 --- a/base/serial/impl/psb_z_mat_impl.F90 +++ b/base/serial/impl/psb_z_mat_impl.F90 @@ -1,9 +1,9 @@ -! +! ! Parallel Sparse BLAS version 3.5 ! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! +! 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: @@ -15,7 +15,7 @@ ! 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 @@ -27,8 +27,8 @@ ! 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. -! -! +! +! ! ! z_mat_impl: ! implementation of the outer matrix methods. @@ -43,7 +43,7 @@ ! ! ! -! Setters +! Setters ! ! ! @@ -53,10 +53,10 @@ ! == =================================== -subroutine psb_z_set_nrows(m,a) +subroutine psb_z_set_nrows(m,a) use psb_z_mat_mod, psb_protect_name => psb_z_set_nrows use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -64,7 +64,7 @@ subroutine psb_z_set_nrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -82,10 +82,10 @@ subroutine psb_z_set_nrows(m,a) end subroutine psb_z_set_nrows -subroutine psb_z_set_ncols(n,a) +subroutine psb_z_set_ncols(n,a) use psb_z_mat_mod, psb_protect_name => psb_z_set_ncols use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -93,7 +93,7 @@ subroutine psb_z_set_ncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -112,16 +112,16 @@ end subroutine psb_z_set_ncols ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_z_set_dupl(n,a) +subroutine psb_z_set_dupl(n,a) use psb_z_mat_mod, psb_protect_name => psb_z_set_dupl use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -129,7 +129,7 @@ subroutine psb_z_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -151,17 +151,17 @@ end subroutine psb_z_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_z_set_null(a) +subroutine psb_z_set_null(a) use psb_z_mat_mod, psb_protect_name => psb_z_set_null use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -179,17 +179,17 @@ subroutine psb_z_set_null(a) end subroutine psb_z_set_null -subroutine psb_z_set_bld(a) +subroutine psb_z_set_bld(a) use psb_z_mat_mod, psb_protect_name => psb_z_set_bld use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -208,17 +208,17 @@ subroutine psb_z_set_bld(a) end subroutine psb_z_set_bld -subroutine psb_z_set_upd(a) +subroutine psb_z_set_upd(a) use psb_z_mat_mod, psb_protect_name => psb_z_set_upd use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -238,17 +238,17 @@ subroutine psb_z_set_upd(a) end subroutine psb_z_set_upd -subroutine psb_z_set_asb(a) +subroutine psb_z_set_asb(a) use psb_z_mat_mod, psb_protect_name => psb_z_set_asb use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -267,10 +267,10 @@ subroutine psb_z_set_asb(a) end subroutine psb_z_set_asb -subroutine psb_z_set_sorted(a,val) +subroutine psb_z_set_sorted(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_sorted use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -278,7 +278,7 @@ subroutine psb_z_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -297,10 +297,10 @@ subroutine psb_z_set_sorted(a,val) end subroutine psb_z_set_sorted -subroutine psb_z_set_triangle(a,val) +subroutine psb_z_set_triangle(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_triangle use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -308,7 +308,7 @@ subroutine psb_z_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -326,10 +326,10 @@ subroutine psb_z_set_triangle(a,val) end subroutine psb_z_set_triangle -subroutine psb_z_set_symmetric(a,val) +subroutine psb_z_set_symmetric(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -337,7 +337,7 @@ subroutine psb_z_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -355,10 +355,10 @@ subroutine psb_z_set_symmetric(a,val) end subroutine psb_z_set_symmetric -subroutine psb_z_set_unit(a,val) +subroutine psb_z_set_unit(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_unit use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -366,7 +366,7 @@ subroutine psb_z_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -385,10 +385,10 @@ subroutine psb_z_set_unit(a,val) end subroutine psb_z_set_unit -subroutine psb_z_set_lower(a,val) +subroutine psb_z_set_lower(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_lower use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -396,7 +396,7 @@ subroutine psb_z_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -415,10 +415,10 @@ subroutine psb_z_set_lower(a,val) end subroutine psb_z_set_lower -subroutine psb_z_set_upper(a,val) +subroutine psb_z_set_upper(a,val) use psb_z_mat_mod, psb_protect_name => psb_z_set_upper use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -426,7 +426,7 @@ subroutine psb_z_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -456,16 +456,16 @@ end subroutine psb_z_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_z_sparse_print(iout,a,iv,head,ivr,ivc) use psb_z_mat_mod, psb_protect_name => psb_z_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_zspmat_type), intent(in) :: a + class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -476,7 +476,7 @@ subroutine psb_z_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -496,10 +496,10 @@ end subroutine psb_z_sparse_print subroutine psb_z_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_z_mat_mod, psb_protect_name => psb_z_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_zspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_zspmat_type), intent(in) :: a integer(psb_ipk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_ipk_), intent(in), optional :: ivr(:), ivc(:) @@ -511,24 +511,24 @@ subroutine psb_z_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -547,13 +547,13 @@ end subroutine psb_z_n_sparse_print subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) use psb_z_mat_mod, psb_protect_name => psb_z_get_neigh use psb_error_mod - implicit none - class(psb_zspmat_type), intent(in) :: a - integer(psb_ipk_), intent(in) :: idx - integer(psb_ipk_), intent(out) :: n + implicit none + class(psb_zspmat_type), intent(in) :: a + integer(psb_ipk_), intent(in) :: idx + integer(psb_ipk_), intent(out) :: n integer(psb_ipk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: lev + integer(psb_ipk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -561,7 +561,7 @@ subroutine psb_z_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -582,17 +582,17 @@ end subroutine psb_z_get_neigh -subroutine psb_z_csall(nr,nc,a,info,nz) +subroutine psb_z_csall(nr,nc,a,info,nz) use psb_z_mat_mod, psb_protect_name => psb_z_csall use psb_z_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -602,13 +602,13 @@ subroutine psb_z_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_z_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -619,10 +619,10 @@ subroutine psb_z_csall(nr,nc,a,info,nz) end subroutine psb_z_csall -subroutine psb_z_reallocate_nz(nz,a) +subroutine psb_z_reallocate_nz(nz,a) use psb_z_mat_mod, psb_protect_name => psb_z_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: nz class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -630,7 +630,7 @@ subroutine psb_z_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -647,31 +647,31 @@ subroutine psb_z_reallocate_nz(nz,a) end subroutine psb_z_reallocate_nz -subroutine psb_z_free(a) +subroutine psb_z_free(a) use psb_z_mat_mod, psb_protect_name => psb_z_free use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_z_free -subroutine psb_z_trim(a) +subroutine psb_z_trim(a) use psb_z_mat_mod, psb_protect_name => psb_z_trim use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -689,11 +689,11 @@ end subroutine psb_z_trim -subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_mat_mod, psb_protect_name => psb_z_csput_a use psb_z_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -705,15 +705,15 @@ subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -725,13 +725,13 @@ subroutine psb_z_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_z_csput_a -subroutine psb_z_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_z_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_mat_mod, psb_protect_name => psb_z_csput_v use psb_z_base_mat_mod use psb_z_vect_mod, only : psb_z_vect_type use psb_i_vect_mod, only : psb_i_vect_type use psb_error_mod - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a type(psb_z_vect_type), intent(inout) :: val type(psb_i_vect_type), intent(inout) :: ia, ja @@ -744,19 +744,19 @@ subroutine psb_z_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -771,7 +771,7 @@ end subroutine psb_z_csput_v subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -794,7 +794,7 @@ subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -803,7 +803,7 @@ subroutine psb_z_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -818,7 +818,7 @@ end subroutine psb_z_csgetptn subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -842,7 +842,7 @@ subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -851,7 +851,7 @@ subroutine psb_z_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale,chksz) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -868,7 +868,7 @@ end subroutine psb_z_csgetrow subroutine psb_z_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -893,31 +893,31 @@ subroutine psb_z_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -936,7 +936,7 @@ subroutine psb_z_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_z_base_mat_mod use psb_z_mat_mod, psb_protect_name => psb_z_tril - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -951,22 +951,22 @@ subroutine psb_z_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -975,7 +975,7 @@ subroutine psb_z_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -993,7 +993,7 @@ subroutine psb_z_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_z_base_mat_mod use psb_z_mat_mod, psb_protect_name => psb_z_triu - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -1009,24 +1009,24 @@ subroutine psb_z_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -1035,7 +1035,7 @@ subroutine psb_z_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1050,7 +1050,7 @@ end subroutine psb_z_triu subroutine psb_z_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -1070,24 +1070,24 @@ subroutine psb_z_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -1101,7 +1101,7 @@ end subroutine psb_z_csclip subroutine psb_z_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -1120,7 +1120,7 @@ subroutine psb_z_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1128,7 +1128,7 @@ subroutine psb_z_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1144,7 +1144,7 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_cscnv - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1161,7 +1161,7 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1173,38 +1173,38 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_z_csr_sparse_mat :: altmp, stat=info) + allocate(psb_z_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_z_coo_sparse_mat :: altmp, stat=info) + allocate(psb_z_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_z_csc_sparse_mat :: altmp, stat=info) + allocate(psb_z_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -1222,7 +1222,7 @@ subroutine psb_z_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%set_asb() + call b%set_asb() call psb_erractionrestore(err_act) return @@ -1237,7 +1237,7 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_cscnv_ip - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -1254,15 +1254,15 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -1272,29 +1272,29 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_z_csr_sparse_mat :: altmp, stat=info) + allocate(psb_z_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_z_coo_sparse_mat :: altmp, stat=info) + allocate(psb_z_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_z_csc_sparse_mat :: altmp, stat=info) + allocate(psb_z_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1313,7 +1313,7 @@ subroutine psb_z_cscnv_ip(a,info,type,mold,dupl) call move_alloc(altmp,a%a) call a%trim() - call a%set_asb() + call a%set_asb() call psb_erractionrestore(err_act) return @@ -1330,7 +1330,7 @@ subroutine psb_z_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_cscnv_base - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -1345,19 +1345,19 @@ subroutine psb_z_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -1379,7 +1379,7 @@ end subroutine psb_z_cscnv_base subroutine psb_z_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -1398,15 +1398,15 @@ subroutine psb_z_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -1415,8 +1415,8 @@ subroutine psb_z_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1439,7 +1439,7 @@ end subroutine psb_z_clip_d subroutine psb_z_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -1457,13 +1457,13 @@ subroutine psb_z_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -1474,8 +1474,8 @@ subroutine psb_z_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -1500,7 +1500,7 @@ subroutine psb_z_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_from - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1518,7 +1518,7 @@ subroutine psb_z_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_from - implicit none + implicit none class(psb_zspmat_type), intent(out) :: a class(psb_z_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -1527,7 +1527,7 @@ subroutine psb_z_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -1536,8 +1536,8 @@ subroutine psb_z_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1553,11 +1553,11 @@ subroutine psb_z_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_to - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -1568,7 +1568,7 @@ subroutine psb_z_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_to - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -1585,14 +1585,14 @@ subroutine psb_z_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_z_mold subroutine psb_zspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_zspmat_type_move - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1613,7 +1613,7 @@ subroutine psb_zspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_zspmat_clone - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -1625,10 +1625,10 @@ subroutine psb_zspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1645,7 +1645,7 @@ subroutine psb_z_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_transp_1mat - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1654,7 +1654,7 @@ subroutine psb_z_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1678,7 +1678,7 @@ subroutine psb_z_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_transp_2mat - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b @@ -1688,18 +1688,18 @@ subroutine psb_z_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -1716,7 +1716,7 @@ subroutine psb_z_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_transc_1mat - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -1725,7 +1725,7 @@ subroutine psb_z_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -1749,7 +1749,7 @@ subroutine psb_z_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_z_transc_2mat - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b @@ -1759,18 +1759,18 @@ subroutine psb_z_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -1786,9 +1786,9 @@ end subroutine psb_z_transc_2mat subroutine psb_z_asb(a,mold) use psb_z_mat_mod, psb_protect_name => psb_z_asb use psb_error_mod - implicit none + implicit none - class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), optional, intent(in) :: mold class(psb_z_base_sparse_mat), allocatable :: tmp class(psb_z_base_sparse_mat), pointer :: mld @@ -1796,15 +1796,15 @@ subroutine psb_z_asb(a,mold) character(len=20) :: name='z_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -1815,7 +1815,7 @@ subroutine psb_z_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -1830,21 +1830,21 @@ end subroutine psb_z_asb subroutine psb_z_reinit(a,clear) use psb_z_mat_mod, psb_protect_name => psb_z_reinit use psb_error_mod - implicit none + implicit none - class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -1879,10 +1879,10 @@ end subroutine psb_z_reinit ! == =================================== -subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) +subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_z_mat_mod, psb_protect_name => psb_z_csmm - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -1894,14 +1894,14 @@ subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1912,10 +1912,10 @@ subroutine psb_z_csmm(alpha,a,x,beta,y,info,trans) end subroutine psb_z_csmm -subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) +subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_z_mat_mod, psb_protect_name => psb_z_csmv - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -1927,14 +1927,14 @@ subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x,beta,y,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x,beta,y,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1944,11 +1944,11 @@ subroutine psb_z_csmv(alpha,a,x,beta,y,info,trans) end subroutine psb_z_csmv -subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) +subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) use psb_error_mod use psb_z_vect_mod use psb_z_mat_mod, psb_protect_name => psb_z_csmv_vect - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x @@ -1961,25 +1961,25 @@ subroutine psb_z_csmv_vect(alpha,a,x,beta,y,info,trans) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spmm(alpha,x%v,beta,y%v,info,trans) - if (info /= psb_success_) goto 9999 + call a%a%spmm(alpha,x%v,beta,y%v,info,trans) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -1991,10 +1991,10 @@ end subroutine psb_z_csmv_vect -subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_z_mat_mod, psb_protect_name => psb_z_cssm - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:,:) complex(psb_dpk_), intent(inout) :: y(:,:) @@ -2007,14 +2007,14 @@ subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2026,10 +2026,10 @@ subroutine psb_z_cssm(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_z_cssm -subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_z_mat_mod, psb_protect_name => psb_z_cssv - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta, x(:) complex(psb_dpk_), intent(inout) :: y(:) @@ -2042,15 +2042,15 @@ subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) + call a%a%spsm(alpha,x,beta,y,info,trans,scale,d) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2062,11 +2062,11 @@ subroutine psb_z_cssv(alpha,a,x,beta,y,info,trans,scale,d) end subroutine psb_z_cssv -subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) +subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) use psb_error_mod use psb_z_vect_mod use psb_z_mat_mod, psb_protect_name => psb_z_cssv_vect - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), intent(in) :: alpha, beta type(psb_z_vect_type), intent(inout) :: x @@ -2080,33 +2080,33 @@ subroutine psb_z_cssv_vect(alpha,a,x,beta,y,info,trans,scale,d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(x%v)) then + if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (.not.allocated(y%v)) then + if (.not.allocated(y%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - if (present(d)) then - if (.not.allocated(d%v)) then + if (present(d)) then + if (.not.allocated(d%v)) then info = psb_err_invalid_vect_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale,d%v) else - call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) + call a%a%spsm(alpha,x%v,beta,y%v,info,trans,scale) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -2121,7 +2121,7 @@ function psb_z_maxval(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_z_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2132,7 +2132,7 @@ function psb_z_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2152,7 +2152,7 @@ function psb_z_csnmi(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_z_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2162,7 +2162,7 @@ function psb_z_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2183,7 +2183,7 @@ function psb_z_csnm1(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_z_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -2193,7 +2193,7 @@ function psb_z_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2214,7 +2214,7 @@ function psb_z_rowsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_z_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2225,7 +2225,7 @@ function psb_z_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2247,7 +2247,7 @@ function psb_z_arwsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_z_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2258,7 +2258,7 @@ function psb_z_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2281,7 +2281,7 @@ function psb_z_colsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_z_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2292,7 +2292,7 @@ function psb_z_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2315,7 +2315,7 @@ function psb_z_aclsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_z_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2326,7 +2326,7 @@ function psb_z_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2350,7 +2350,7 @@ function psb_z_get_diag(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_z_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2361,14 +2361,14 @@ function psb_z_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -2389,7 +2389,7 @@ subroutine psb_z_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_scal - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -2401,7 +2401,7 @@ subroutine psb_z_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2424,7 +2424,7 @@ subroutine psb_z_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_scals - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -2435,7 +2435,7 @@ subroutine psb_z_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2453,27 +2453,60 @@ subroutine psb_z_scals(d,a,info) end subroutine psb_z_scals +subroutine psb_z_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_z_scalplusidentity + implicit none + class(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_z_scalplusidentity + subroutine psb_z_mv_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_from_lb - implicit none - + implicit none + class(psb_zspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_z_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_lfmt(b,info) - + end subroutine psb_z_mv_from_lb - + subroutine psb_z_cp_from_lb(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_from_lb - implicit none - + implicit none + class(psb_zspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -2487,30 +2520,30 @@ subroutine psb_z_mv_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_to_lb - implicit none - + implicit none + class(psb_zspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_lfmt(b,info) call a%free() end if - + end subroutine psb_z_mv_to_lb subroutine psb_z_cp_to_lb(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_to_lb - implicit none + implicit none class(psb_zspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -2523,7 +2556,7 @@ subroutine psb_z_mv_from_l(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_from_l - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -2535,20 +2568,20 @@ subroutine psb_z_mv_from_l(a,b) call a%free() end if call b%free() - + end subroutine psb_z_mv_from_l - + subroutine psb_z_cp_from_l(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_from_l - implicit none + implicit none class(psb_zspmat_type), intent(out) :: a class(psb_lzspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_z_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_lfmt(b%a,info) @@ -2561,12 +2594,12 @@ subroutine psb_z_mv_to_l(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_mv_to_l - implicit none + implicit none class(psb_zspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_lz_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_lfmt(b%a,info) @@ -2574,26 +2607,26 @@ subroutine psb_z_mv_to_l(a,b) call b%free() end if call a%free() - + end subroutine psb_z_mv_to_l subroutine psb_z_cp_to_l(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_z_cp_to_l - implicit none - + implicit none + class(psb_zspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_lz_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_lfmt(b%a,info) else call b%free() end if - + end subroutine psb_z_cp_to_l @@ -2603,10 +2636,10 @@ end subroutine psb_z_cp_to_l ! -subroutine psb_lz_set_lnrows(m,a) +subroutine psb_lz_set_lnrows(m,a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_lnrows use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2614,7 +2647,7 @@ subroutine psb_lz_set_lnrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2632,10 +2665,10 @@ subroutine psb_lz_set_lnrows(m,a) end subroutine psb_lz_set_lnrows #if defined(IPK4) && defined(LPK8) -subroutine psb_lz_set_inrows(m,a) +subroutine psb_lz_set_inrows(m,a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_inrows use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: m integer(psb_ipk_) :: err_act, info @@ -2643,7 +2676,7 @@ subroutine psb_lz_set_inrows(m,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2661,10 +2694,10 @@ subroutine psb_lz_set_inrows(m,a) end subroutine psb_lz_set_inrows #endif -subroutine psb_lz_set_lncols(n,a) +subroutine psb_lz_set_lncols(n,a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_lncols use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2672,7 +2705,7 @@ subroutine psb_lz_set_lncols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2689,10 +2722,10 @@ subroutine psb_lz_set_lncols(n,a) end subroutine psb_lz_set_lncols #if defined(IPK4) && defined(LPK8) -subroutine psb_lz_set_incols(n,a) +subroutine psb_lz_set_incols(n,a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_incols use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2700,7 +2733,7 @@ subroutine psb_lz_set_incols(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2719,16 +2752,16 @@ end subroutine psb_lz_set_incols #endif ! -! Valid values for DUPL: -! psb_dupl_ovwrt_ -! psb_dupl_add_ -! psb_dupl_err_ +! Valid values for DUPL: +! psb_dupl_ovwrt_ +! psb_dupl_add_ +! psb_dupl_err_ ! -subroutine psb_lz_set_dupl(n,a) +subroutine psb_lz_set_dupl(n,a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_dupl use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(in) :: n integer(psb_ipk_) :: err_act, info @@ -2736,7 +2769,7 @@ subroutine psb_lz_set_dupl(n,a) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2758,17 +2791,17 @@ end subroutine psb_lz_set_dupl ! Set the STATE of the internal matrix object ! -subroutine psb_lz_set_null(a) +subroutine psb_lz_set_null(a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_null use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2786,17 +2819,17 @@ subroutine psb_lz_set_null(a) end subroutine psb_lz_set_null -subroutine psb_lz_set_bld(a) +subroutine psb_lz_set_bld(a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_bld use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2815,17 +2848,17 @@ subroutine psb_lz_set_bld(a) end subroutine psb_lz_set_bld -subroutine psb_lz_set_upd(a) +subroutine psb_lz_set_upd(a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_upd use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2845,17 +2878,17 @@ subroutine psb_lz_set_upd(a) end subroutine psb_lz_set_upd -subroutine psb_lz_set_asb(a) +subroutine psb_lz_set_asb(a) use psb_z_mat_mod, psb_protect_name => psb_lz_set_asb use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='get_nzeros' logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2874,10 +2907,10 @@ subroutine psb_lz_set_asb(a) end subroutine psb_lz_set_asb -subroutine psb_lz_set_sorted(a,val) +subroutine psb_lz_set_sorted(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_sorted use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2885,7 +2918,7 @@ subroutine psb_lz_set_sorted(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2904,10 +2937,10 @@ subroutine psb_lz_set_sorted(a,val) end subroutine psb_lz_set_sorted -subroutine psb_lz_set_triangle(a,val) +subroutine psb_lz_set_triangle(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_triangle use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2915,7 +2948,7 @@ subroutine psb_lz_set_triangle(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2933,10 +2966,10 @@ subroutine psb_lz_set_triangle(a,val) end subroutine psb_lz_set_triangle -subroutine psb_lz_set_symmetric(a,val) +subroutine psb_lz_set_symmetric(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_symmetric use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2944,7 +2977,7 @@ subroutine psb_lz_set_symmetric(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2962,10 +2995,10 @@ subroutine psb_lz_set_symmetric(a,val) end subroutine psb_lz_set_symmetric -subroutine psb_lz_set_unit(a,val) +subroutine psb_lz_set_unit(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_unit use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -2973,7 +3006,7 @@ subroutine psb_lz_set_unit(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -2992,10 +3025,10 @@ subroutine psb_lz_set_unit(a,val) end subroutine psb_lz_set_unit -subroutine psb_lz_set_lower(a,val) +subroutine psb_lz_set_lower(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_lower use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3003,7 +3036,7 @@ subroutine psb_lz_set_lower(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3022,10 +3055,10 @@ subroutine psb_lz_set_lower(a,val) end subroutine psb_lz_set_lower -subroutine psb_lz_set_upper(a,val) +subroutine psb_lz_set_upper(a,val) use psb_z_mat_mod, psb_protect_name => psb_lz_set_upper use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: val integer(psb_ipk_) :: err_act, info @@ -3033,7 +3066,7 @@ subroutine psb_lz_set_upper(a,val) logical, parameter :: debug=.false. call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3063,16 +3096,16 @@ end subroutine psb_lz_set_upper ! ! ! -! == =================================== +! == =================================== subroutine psb_lz_sparse_print(iout,a,iv,head,ivr,ivc) use psb_z_mat_mod, psb_protect_name => psb_lz_sparse_print use psb_error_mod - implicit none + implicit none integer(psb_ipk_), intent(in) :: iout - class(psb_lzspmat_type), intent(in) :: a + class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3083,7 +3116,7 @@ subroutine psb_lz_sparse_print(iout,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3103,10 +3136,10 @@ end subroutine psb_lz_sparse_print subroutine psb_lz_n_sparse_print(fname,a,iv,head,ivr,ivc) use psb_z_mat_mod, psb_protect_name => psb_lz_n_sparse_print use psb_error_mod - implicit none + implicit none - character(len=*), intent(in) :: fname - class(psb_lzspmat_type), intent(in) :: a + character(len=*), intent(in) :: fname + class(psb_lzspmat_type), intent(in) :: a integer(psb_lpk_), intent(in), optional :: iv(:) character(len=*), optional :: head integer(psb_lpk_), intent(in), optional :: ivr(:), ivc(:) @@ -3118,24 +3151,24 @@ subroutine psb_lz_n_sparse_print(fname,a,iv,head,ivr,ivc) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif iout = max(psb_inp_unit,psb_err_unit,psb_out_unit) + 1 - do + do inquire(unit=iout, opened=isopen) if (.not.isopen) exit iout = iout + 1 if (iout > 99) exit end do - if (iout > 99) then + if (iout > 99) then write(psb_err_unit,*) 'Error: could not find a free unit for I/O' return end if open(iout,file=fname,iostat=info) - if (info == psb_success_) then + if (info == psb_success_) then call a%a%print(iout,iv,head,ivr,ivc) close(iout) else @@ -3154,13 +3187,13 @@ end subroutine psb_lz_n_sparse_print subroutine psb_lz_get_neigh(a,idx,neigh,n,info,lev) use psb_z_mat_mod, psb_protect_name => psb_lz_get_neigh use psb_error_mod - implicit none - class(psb_lzspmat_type), intent(in) :: a - integer(psb_lpk_), intent(in) :: idx - integer(psb_lpk_), intent(out) :: n + implicit none + class(psb_lzspmat_type), intent(in) :: a + integer(psb_lpk_), intent(in) :: idx + integer(psb_lpk_), intent(out) :: n integer(psb_lpk_), allocatable, intent(out) :: neigh(:) integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), optional, intent(in) :: lev + integer(psb_lpk_), optional, intent(in) :: lev integer(psb_ipk_) :: err_act character(len=20) :: name='get_neigh' @@ -3168,7 +3201,7 @@ subroutine psb_lz_get_neigh(a,idx,neigh,n,info,lev) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3189,17 +3222,17 @@ end subroutine psb_lz_get_neigh -subroutine psb_lz_csall(nr,nc,a,info,nz) +subroutine psb_lz_csall(nr,nc,a,info,nz) use psb_z_mat_mod, psb_protect_name => psb_lz_csall use psb_z_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_lpk_), intent(in) :: nr,nc integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), intent(in), optional :: nz - integer(psb_ipk_) :: err_act + integer(psb_ipk_) :: err_act character(len=20) :: name='csall' logical, parameter :: debug=.false. @@ -3209,13 +3242,13 @@ subroutine psb_lz_csall(nr,nc,a,info,nz) info = psb_success_ allocate(psb_lz_coo_sparse_mat :: a%a, stat=info) - if (info /= psb_success_) then - info = psb_err_alloc_dealloc_ + if (info /= psb_success_) then + info = psb_err_alloc_dealloc_ call psb_errpush(info, name) goto 9999 end if call a%a%allocate(nr,nc,nz) - call a%set_bld() + call a%set_bld() return @@ -3226,10 +3259,10 @@ subroutine psb_lz_csall(nr,nc,a,info,nz) end subroutine psb_lz_csall -subroutine psb_lz_reallocate_nz(nz,a) +subroutine psb_lz_reallocate_nz(nz,a) use psb_z_mat_mod, psb_protect_name => psb_lz_reallocate_nz use psb_error_mod - implicit none + implicit none integer(psb_lpk_), intent(in) :: nz class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -3237,7 +3270,7 @@ subroutine psb_lz_reallocate_nz(nz,a) logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3254,31 +3287,31 @@ subroutine psb_lz_reallocate_nz(nz,a) end subroutine psb_lz_reallocate_nz -subroutine psb_lz_free(a) +subroutine psb_lz_free(a) use psb_z_mat_mod, psb_protect_name => psb_lz_free use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%free() - deallocate(a%a) + deallocate(a%a) endif end subroutine psb_lz_free -subroutine psb_lz_trim(a) +subroutine psb_lz_trim(a) use psb_z_mat_mod, psb_protect_name => psb_lz_trim use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info character(len=20) :: name='trim' logical, parameter :: debug=.false. call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3296,11 +3329,11 @@ end subroutine psb_lz_trim -subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_mat_mod, psb_protect_name => psb_lz_csput_a use psb_z_base_mat_mod use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: val(:) integer(psb_lpk_), intent(in) :: nz, ia(:), ja(:), imin,imax,jmin,jmax @@ -3312,15 +3345,15 @@ subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) - if (info /= psb_success_) goto 9999 + call a%a%csput(nz,ia,ja,val,imin,imax,jmin,jmax,info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3332,13 +3365,13 @@ subroutine psb_lz_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) end subroutine psb_lz_csput_a -subroutine psb_lz_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) +subroutine psb_lz_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) use psb_z_mat_mod, psb_protect_name => psb_lz_csput_v use psb_z_base_mat_mod use psb_z_vect_mod, only : psb_z_vect_type use psb_l_vect_mod, only : psb_l_vect_type use psb_error_mod - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a type(psb_z_vect_type), intent(inout) :: val type(psb_l_vect_type), intent(inout) :: ia, ja @@ -3351,19 +3384,19 @@ subroutine psb_lz_csput_v(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.(a%is_bld().or.a%is_upd())) then + if (.not.(a%is_bld().or.a%is_upd())) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - + if (allocated(val%v).and.allocated(ia%v).and.allocated(ja%v)) then - call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) + call a%a%csput(nz,ia%v,ja%v,val%v,imin,imax,jmin,jmax,info) else info = psb_err_invalid_mat_state_ endif - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3378,7 +3411,7 @@ end subroutine psb_lz_csput_v subroutine psb_lz_csgetptn(imin,imax,a,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -3401,7 +3434,7 @@ subroutine psb_lz_csgetptn(imin,imax,a,nz,ia,ja,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3410,7 +3443,7 @@ subroutine psb_lz_csgetptn(imin,imax,a,nz,ia,ja,info,& call a%a%csget(imin,imax,nz,ia,ja,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3425,7 +3458,7 @@ end subroutine psb_lz_csgetptn subroutine psb_lz_csgetrow(imin,imax,a,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -3449,7 +3482,7 @@ subroutine psb_lz_csgetrow(imin,imax,a,nz,ia,ja,val,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3458,7 +3491,7 @@ subroutine psb_lz_csgetrow(imin,imax,a,nz,ia,ja,val,info,& call a%a%csget(imin,imax,nz,ia,ja,val,info,& & jmin,jmax,iren,append,nzin,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3475,7 +3508,7 @@ end subroutine psb_lz_csgetrow subroutine psb_lz_csgetblk(imin,imax,a,b,info,& & jmin,jmax,iren,append,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -3500,31 +3533,31 @@ subroutine psb_lz_csgetblk(imin,imax,a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(append)) then + if (present(append)) then append_ = append else append_ = .false. end if - allocate(acoo,stat=info) - if (append_.and.(info==psb_success_)) then + allocate(acoo,stat=info) + if (append_.and.(info==psb_success_)) then if (allocated(b%a)) & & call b%a%mv_to_coo(acoo,info) end if - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csget(imin,imax,acoo,info,& & jmin,jmax,iren,append,rscale,cscale) else info = psb_err_alloc_dealloc_ end if if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3543,7 +3576,7 @@ subroutine psb_lz_tril(a,l,info,diag,imin,imax,& use psb_const_mod use psb_z_base_mat_mod use psb_z_mat_mod, psb_protect_name => psb_lz_tril - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: l integer(psb_ipk_),intent(out) :: info @@ -3558,22 +3591,22 @@ subroutine psb_lz_tril(a,l,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(lcoo,stat=info) + allocate(lcoo,stat=info) call l%free() if (present(u)) then - if (info == psb_success_) allocate(ucoo,stat=info) + if (info == psb_success_) allocate(ucoo,stat=info) call u%free() if (info == psb_success_) call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,ucoo) if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%tril(lcoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3582,7 +3615,7 @@ subroutine psb_lz_tril(a,l,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3600,7 +3633,7 @@ subroutine psb_lz_triu(a,u,info,diag,imin,imax,& use psb_const_mod use psb_z_base_mat_mod use psb_z_mat_mod, psb_protect_name => psb_lz_triu - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: u integer(psb_ipk_),intent(out) :: info @@ -3616,24 +3649,24 @@ subroutine psb_lz_triu(a,u,info,diag,imin,imax,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(ucoo,stat=info) + allocate(ucoo,stat=info) call u%free() if (present(l)) then - if (info == psb_success_) allocate(lcoo,stat=info) + if (info == psb_success_) allocate(lcoo,stat=info) call l%free() if (info == psb_success_) call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale,lcoo) if (info == psb_success_) call move_alloc(lcoo,l%a) if (info == psb_success_) call l%cscnv(info,mold=a%a) else - if (info == psb_success_) then + if (info == psb_success_) then call a%a%triu(ucoo,info,diag,imin,imax,& & jmin,jmax,rscale,cscale) else @@ -3642,7 +3675,7 @@ subroutine psb_lz_triu(a,u,info,diag,imin,imax,& end if if (info == psb_success_) call move_alloc(ucoo,u%a) if (info == psb_success_) call u%cscnv(info,mold=a%a) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3657,7 +3690,7 @@ end subroutine psb_lz_triu subroutine psb_lz_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -3677,24 +3710,24 @@ subroutine psb_lz_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) call b%free() - if (info == psb_success_) then + if (info == psb_success_) then call a%a%csclip(acoo,info,& & imin,imax,jmin,jmax,rscale,cscale) else info = psb_err_alloc_dealloc_ end if - + if (info == psb_success_) call move_alloc(acoo,b%a) - if (info /= psb_success_) goto 9999 - + if (info /= psb_success_) goto 9999 + call psb_erractionrestore(err_act) return @@ -3708,7 +3741,7 @@ end subroutine psb_lz_csclip subroutine psb_lz_b_csclip(a,b,info,& & imin,imax,jmin,jmax,rscale,cscale) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -3727,7 +3760,7 @@ subroutine psb_lz_b_csclip(a,b,info,& info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3735,7 +3768,7 @@ subroutine psb_lz_b_csclip(a,b,info,& call a%a%csclip(b,info,& & imin,imax,jmin,jmax,rscale,cscale) - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -3754,7 +3787,7 @@ subroutine psb_lz_cscnv(a,b,info,type,mold,upd,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cscnv - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -3771,7 +3804,7 @@ subroutine psb_lz_cscnv(a,b,info,type,mold,upd,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -3783,38 +3816,38 @@ subroutine psb_lz_cscnv(a,b,info,type,mold,upd,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_lz_csr_sparse_mat :: altmp, stat=info) + allocate(psb_lz_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_lz_coo_sparse_mat :: altmp, stat=info) + allocate(psb_lz_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_lz_csc_sparse_mat :: altmp, stat=info) + allocate(psb_lz_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if - - if (present(dupl)) then + + if (present(dupl)) then call altmp%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then ! Does this make sense at all?? Who knows.. call altmp%set_dupl(psb_dupl_def_) end if @@ -3832,7 +3865,7 @@ subroutine psb_lz_cscnv(a,b,info,type,mold,upd,dupl) call move_alloc(altmp,b%a) call b%trim() - call b%asb() + call b%asb() call psb_erractionrestore(err_act) return @@ -3849,7 +3882,7 @@ subroutine psb_lz_cscnv_ip(a,info,type,mold,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cscnv_ip - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_), intent(out) :: info @@ -3866,15 +3899,15 @@ subroutine psb_lz_cscnv_ip(a,info,type,mold,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (present(dupl)) then + if (present(dupl)) then call a%set_dupl(dupl) - else if (a%is_bld()) then + else if (a%is_bld()) then call a%set_dupl(psb_dupl_def_) end if @@ -3884,29 +3917,29 @@ subroutine psb_lz_cscnv_ip(a,info,type,mold,dupl) goto 9999 end if - if (present(mold)) then + if (present(mold)) then - allocate(altmp, mold=mold,stat=info) + allocate(altmp, mold=mold,stat=info) - else if (present(type)) then + else if (present(type)) then select case (psb_toupper(type)) case ('CSR') - allocate(psb_lz_csr_sparse_mat :: altmp, stat=info) + allocate(psb_lz_csr_sparse_mat :: altmp, stat=info) case ('COO') - allocate(psb_lz_coo_sparse_mat :: altmp, stat=info) + allocate(psb_lz_coo_sparse_mat :: altmp, stat=info) case ('CSC') - allocate(psb_lz_csc_sparse_mat :: altmp, stat=info) + allocate(psb_lz_csc_sparse_mat :: altmp, stat=info) case default - info = psb_err_format_unknown_ + info = psb_err_format_unknown_ call psb_errpush(info,name,a_err=type) goto 9999 end select else - allocate(altmp, mold=psb_get_mat_default(a),stat=info) + allocate(altmp, mold=psb_get_mat_default(a),stat=info) end if - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -3924,7 +3957,7 @@ subroutine psb_lz_cscnv_ip(a,info,type,mold,dupl) end if call move_alloc(altmp,a%a) - call a%set_asb() + call a%set_asb() call a%trim() call psb_erractionrestore(err_act) return @@ -3942,7 +3975,7 @@ subroutine psb_lz_cscnv_base(a,b,info,dupl) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cscnv_base - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), intent(out) :: b integer(psb_ipk_), intent(out) :: info @@ -3957,19 +3990,19 @@ subroutine psb_lz_cscnv_base(a,b,info,dupl) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%cp_to_coo(altmp,info ) - if ((info == psb_success_).and.present(dupl)) then + if ((info == psb_success_).and.present(dupl)) then call altmp%set_dupl(dupl) end if call altmp%fix(info) if (info == psb_success_) call altmp%trim() - if (info == psb_success_) call altmp%set_asb() + if (info == psb_success_) call altmp%set_asb() if (info == psb_success_) call b%mv_from_coo(altmp,info) if (info /= psb_success_) then @@ -3991,7 +4024,7 @@ end subroutine psb_lz_cscnv_base subroutine psb_lz_clip_d(a,b,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -4010,15 +4043,15 @@ subroutine psb_lz_clip_d(a,b,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%cp_to_coo(acoo,info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 @@ -4027,8 +4060,8 @@ subroutine psb_lz_clip_d(a,b,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4051,7 +4084,7 @@ end subroutine psb_lz_clip_d subroutine psb_lz_clip_d_ip(a,info) - ! Output is always in COO format + ! Output is always in COO format use psb_error_mod use psb_const_mod use psb_z_base_mat_mod @@ -4069,13 +4102,13 @@ subroutine psb_lz_clip_d_ip(a,info) info = psb_success_ call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - allocate(acoo,stat=info) + allocate(acoo,stat=info) if (info == psb_success_) call a%a%mv_to_coo(acoo,info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -4086,8 +4119,8 @@ subroutine psb_lz_clip_d_ip(a,info) nz = acoo%get_nzeros() j = 0 do i=1, nz - if (acoo%ia(i) /= acoo%ja(i)) then - j = j + 1 + if (acoo%ia(i) /= acoo%ja(i)) then + j = j + 1 acoo%ia(j) = acoo%ia(i) acoo%ja(j) = acoo%ja(i) acoo%val(j) = acoo%val(i) @@ -4112,7 +4145,7 @@ subroutine psb_lz_mv_from(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_from - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4130,7 +4163,7 @@ subroutine psb_lz_cp_from(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_from - implicit none + implicit none class(psb_lzspmat_type), intent(out) :: a class(psb_lz_base_sparse_mat), intent(in) :: b integer(psb_ipk_) :: err_act, info @@ -4139,7 +4172,7 @@ subroutine psb_lz_cp_from(a,b) call psb_erractionsave(err_act) info = psb_success_ - + call a%free() ! ! Note: it is tempting to use SOURCE allocation below; @@ -4148,8 +4181,8 @@ subroutine psb_lz_cp_from(a,b) ! allocate(a%a,mold=b,stat=info) if (info /= psb_success_) info = psb_err_alloc_dealloc_ - if (info == psb_success_) call a%a%cp_from_fmt(b, info) - if (info /= psb_success_) goto 9999 + if (info == psb_success_) call a%a%cp_from_fmt(b, info) + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4165,11 +4198,11 @@ subroutine psb_lz_mv_to(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_to - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + call b%mv_from_fmt(a%a,info) return @@ -4180,7 +4213,7 @@ subroutine psb_lz_cp_to(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_to - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lz_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4197,14 +4230,14 @@ subroutine psb_lz_mold(a,b) integer(psb_ipk_) :: info allocate(b,mold=a%a, stat=info) - + end subroutine psb_lz_mold subroutine psb_lzspmat_type_move(a,b,info) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lzspmat_type_move - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4225,7 +4258,7 @@ subroutine psb_lzspmat_clone(a,b,info) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lzspmat_clone - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_lzspmat_type), intent(inout) :: b integer(psb_ipk_), intent(out) :: info @@ -4237,10 +4270,10 @@ subroutine psb_lzspmat_clone(a,b,info) call psb_erractionsave(err_act) info = psb_success_ call b%free() - if (allocated(a%a)) then + if (allocated(a%a)) then call a%a%clone(b%a,info) end if - if (info /= psb_success_) goto 9999 + if (info /= psb_success_) goto 9999 call psb_erractionrestore(err_act) return @@ -4257,7 +4290,7 @@ subroutine psb_lz_transp_1mat(a) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_transp_1mat - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4266,7 +4299,7 @@ subroutine psb_lz_transp_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4290,7 +4323,7 @@ subroutine psb_lz_transp_2mat(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_transp_2mat - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b @@ -4300,18 +4333,18 @@ subroutine psb_lz_transp_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transp(b%a) + call a%a%transp(b%a) call psb_erractionrestore(err_act) return @@ -4328,7 +4361,7 @@ subroutine psb_lz_transc_1mat(a) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_transc_1mat - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a integer(psb_ipk_) :: err_act, info @@ -4337,7 +4370,7 @@ subroutine psb_lz_transc_1mat(a) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4361,7 +4394,7 @@ subroutine psb_lz_transc_2mat(a,b) use psb_error_mod use psb_string_mod use psb_z_mat_mod, psb_protect_name => psb_lz_transc_2mat - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_lzspmat_type), intent(inout) :: b @@ -4371,18 +4404,18 @@ subroutine psb_lz_transc_2mat(a,b) call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call b%free() allocate(b%a,mold=a%a,stat=info) - if (info /= psb_success_) then + if (info /= psb_success_) then info = psb_err_alloc_dealloc_ goto 9999 end if - call a%a%transc(b%a) + call a%a%transc(b%a) call psb_erractionrestore(err_act) return @@ -4398,9 +4431,9 @@ end subroutine psb_lz_transc_2mat subroutine psb_lz_asb(a,mold) use psb_z_mat_mod, psb_protect_name => psb_lz_asb use psb_error_mod - implicit none + implicit none - class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: a class(psb_lz_base_sparse_mat), optional, intent(in) :: mold class(psb_lz_base_sparse_mat), allocatable :: tmp class(psb_lz_base_sparse_mat), pointer :: mld @@ -4408,15 +4441,15 @@ subroutine psb_lz_asb(a,mold) character(len=20) :: name='lz_asb' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif call a%a%asb() - if (present(mold)) then - if (.not.same_type_as(a%a,mold)) then + if (present(mold)) then + if (.not.same_type_as(a%a,mold)) then allocate(tmp,mold=mold) call tmp%mv_from_fmt(a%a,info) call a%a%free() @@ -4427,7 +4460,7 @@ subroutine psb_lz_asb(a,mold) if (.not.same_type_as(a%a,mld)) & & call a%cscnv(info) end if - + call psb_erractionrestore(err_act) return @@ -4442,21 +4475,21 @@ end subroutine psb_lz_asb subroutine psb_lz_reinit(a,clear) use psb_z_mat_mod, psb_protect_name => psb_lz_reinit use psb_error_mod - implicit none + implicit none - class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: a logical, intent(in), optional :: clear integer(psb_ipk_) :: err_act, info character(len=20) :: name='reinit' call psb_erractionsave(err_act) - if (a%is_null()) then + if (a%is_null()) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif - if (a%a%has_update()) then + if (a%a%has_update()) then call a%a%reinit(clear) else info = psb_err_missing_override_method_ @@ -4481,7 +4514,7 @@ function psb_lz_get_diag(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_lz_get_diag use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4492,14 +4525,14 @@ function psb_lz_get_diag(a,info) result(d) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 endif allocate(d(max(1,min(a%a%get_nrows(),a%a%get_ncols()))), stat=info) - if (info /= 0) then - info = psb_err_alloc_dealloc_ + if (info /= 0) then + info = psb_err_alloc_dealloc_ call psb_errpush(info,name) goto 9999 end if @@ -4520,7 +4553,7 @@ subroutine psb_lz_scal(d,a,info,side) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_scal - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4532,7 +4565,7 @@ subroutine psb_lz_scal(d,a,info,side) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4555,7 +4588,7 @@ subroutine psb_lz_scals(d,a,info) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_scals - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a complex(psb_dpk_), intent(in) :: d integer(psb_ipk_), intent(out) :: info @@ -4566,7 +4599,7 @@ subroutine psb_lz_scals(d,a,info) info = psb_success_ call psb_erractionsave(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4588,7 +4621,7 @@ function psb_lz_maxval(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_lz_maxval use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4599,7 +4632,7 @@ function psb_lz_maxval(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4619,7 +4652,7 @@ function psb_lz_csnmi(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_lz_csnmi use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4629,7 +4662,7 @@ function psb_lz_csnmi(a) result(res) info = psb_success_ call psb_get_erraction(err_act) - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4649,7 +4682,7 @@ function psb_lz_csnm1(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_lz_csnm1 use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_) :: res @@ -4659,7 +4692,7 @@ function psb_lz_csnm1(a) result(res) call psb_get_erraction(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4680,7 +4713,7 @@ function psb_lz_rowsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_lz_rowsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4691,7 +4724,7 @@ function psb_lz_rowsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4713,7 +4746,7 @@ function psb_lz_arwsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_lz_arwsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4724,7 +4757,7 @@ function psb_lz_arwsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4747,7 +4780,7 @@ function psb_lz_colsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_lz_colsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a complex(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4758,7 +4791,7 @@ function psb_lz_colsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4781,7 +4814,7 @@ function psb_lz_aclsum(a,info) result(d) use psb_z_mat_mod, psb_protect_name => psb_lz_aclsum use psb_error_mod use psb_const_mod - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a real(psb_dpk_), allocatable :: d(:) integer(psb_ipk_), intent(out) :: info @@ -4792,7 +4825,7 @@ function psb_lz_aclsum(a,info) result(d) call psb_erractionsave(err_act) info = psb_success_ - if (.not.allocated(a%a)) then + if (.not.allocated(a%a)) then info = psb_err_invalid_mat_state_ call psb_errpush(info,name) goto 9999 @@ -4815,22 +4848,22 @@ subroutine psb_lz_mv_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_from_ib - implicit none - + implicit none + class(psb_lzspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info if (.not.allocated(a%a)) allocate(psb_lz_csr_sparse_mat :: a%a, stat=info) if (info == psb_success_) call a%a%mv_from_ifmt(b,info) - + end subroutine psb_lz_mv_from_ib - + subroutine psb_lz_cp_from_ib(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_from_ib - implicit none - + implicit none + class(psb_lzspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info @@ -4844,30 +4877,30 @@ subroutine psb_lz_mv_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_to_ib - implicit none - + implicit none + class(psb_lzspmat_type), intent(inout) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else call a%a%mv_to_ifmt(b,info) call a%free() end if - + end subroutine psb_lz_mv_to_ib subroutine psb_lz_cp_to_ib(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_to_ib - implicit none + implicit none class(psb_lzspmat_type), intent(in) :: a class(psb_z_base_sparse_mat), intent(inout) :: b integer(psb_ipk_) :: info - + if (.not.allocated(a%a)) then call b%free() else @@ -4880,7 +4913,7 @@ subroutine psb_lz_mv_from_i(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_from_i - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_) :: info @@ -4892,20 +4925,20 @@ subroutine psb_lz_mv_from_i(a,b) call a%free() end if call b%free() - + end subroutine psb_lz_mv_from_i - + subroutine psb_lz_cp_from_i(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_from_i - implicit none + implicit none class(psb_lzspmat_type), intent(out) :: a class(psb_zspmat_type), intent(in) :: b integer(psb_ipk_) :: info - + if (allocated(b%a)) then if (.not.allocated(a%a)) allocate(psb_lz_csr_sparse_mat :: a%a, stat=info) call a%a%cp_from_ifmt(b%a,info) @@ -4918,12 +4951,12 @@ subroutine psb_lz_mv_to_i(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_mv_to_i - implicit none + implicit none class(psb_lzspmat_type), intent(inout) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_z_csr_sparse_mat :: b%a, stat=info) call a%a%mv_to_ifmt(b%a,info) @@ -4931,28 +4964,24 @@ subroutine psb_lz_mv_to_i(a,b) call b%free() end if call a%free() - + end subroutine psb_lz_mv_to_i subroutine psb_lz_cp_to_i(a,b) use psb_error_mod use psb_const_mod use psb_z_mat_mod, psb_protect_name => psb_lz_cp_to_i - implicit none - + implicit none + class(psb_lzspmat_type), intent(in) :: a class(psb_zspmat_type), intent(inout) :: b integer(psb_ipk_) :: info - + if (allocated(a%a)) then if (.not.allocated(b%a)) allocate(psb_z_csr_sparse_mat :: b%a, stat=info) call a%a%cp_to_ifmt(b%a,info) else call b%free() end if - + end subroutine psb_lz_cp_to_i - - - - diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 7193236c8..bf9a3f366 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -1091,4 +1091,64 @@ contains res = info end function + function psb_c_cspscal(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_float_complex), value :: alpha + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scal(alpha,info) + + res = info + + end function psb_c_cspscal + + function psb_c_cspscalpid(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_float_complex), value :: alpha + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scalpid(alpha,info) + + res = info + + end function psb_c_cspscalpid + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 672fb7421..4c92514e2 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1192,4 +1192,64 @@ contains res = info end function + function psb_c_dspscal(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_double), value :: alpha + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scal(alpha,info) + + res = info + + end function psb_c_dspscal + + function psb_c_dspscalpid(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_double), value :: alpha + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scalpid(alpha,info) + + res = info + + end function psb_c_dspscalpid + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 64d751bf6..4e85e91c5 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1192,4 +1192,64 @@ contains res = info end function + function psb_c_sspscal(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_float), value :: alpha + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scal(alpha,info) + + res = info + + end function psb_c_sspscal + + function psb_c_sspscalpid(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_float), value :: alpha + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scalpid(alpha,info) + + res = info + + end function psb_c_sspscalpid + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 01fcb588d..100665918 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -1091,4 +1091,64 @@ contains res = info end function + function psb_c_zspscal(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_double_complex), value :: alpha + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scal(alpha,info) + + res = info + + end function psb_c_zspscal + + function psb_c_zspscalpid(alpha,ah,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_double_complex), value :: alpha + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + call ap%scalpid(alpha,info) + + res = info + + end function psb_c_zspscalpid + end module psb_z_psblas_cbind_mod From dc55713541a9dd5f40136081a6f9b732fc22b6aa Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 7 Apr 2020 12:55:36 +0200 Subject: [PATCH 48/61] Added generic interface psb_scalplusidentity for long integer spmat --- base/modules/serial/psb_c_mat_mod.F90 | 10 ++++++++++ base/modules/serial/psb_d_mat_mod.F90 | 10 ++++++++++ base/modules/serial/psb_s_mat_mod.F90 | 10 ++++++++++ base/modules/serial/psb_z_mat_mod.F90 | 10 ++++++++++ 4 files changed, 40 insertions(+) diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90 index b213d18ab..ff74c3482 100644 --- a/base/modules/serial/psb_c_mat_mod.F90 +++ b/base/modules/serial/psb_c_mat_mod.F90 @@ -418,6 +418,7 @@ module psb_c_mat_mod procedure, pass(a) :: scals => psb_lc_scals procedure, pass(a) :: scalv => psb_lc_scal generic, public :: scal => scals, scalv + procedure, pass(a) :: scalpid => psb_lc_scalplusidentity end type psb_lcspmat_type @@ -1762,6 +1763,15 @@ module psb_c_mat_mod end subroutine psb_lc_scals end interface + interface psb_scalplusidentity + subroutine psb_lc_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ + class(psb_lcspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_scalplusidentity + end interface + interface function psb_lc_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index fb5612805..446ffea5f 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -418,6 +418,7 @@ module psb_d_mat_mod procedure, pass(a) :: scals => psb_ld_scals procedure, pass(a) :: scalv => psb_ld_scal generic, public :: scal => scals, scalv + procedure, pass(a) :: scalpid => psb_ld_scalplusidentity end type psb_ldspmat_type @@ -1762,6 +1763,15 @@ module psb_d_mat_mod end subroutine psb_ld_scals end interface + interface psb_scalplusidentity + subroutine psb_ld_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ + class(psb_ldspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_scalplusidentity + end interface + interface function psb_ld_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index 1eaa37332..d02caca70 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -418,6 +418,7 @@ module psb_s_mat_mod procedure, pass(a) :: scals => psb_ls_scals procedure, pass(a) :: scalv => psb_ls_scal generic, public :: scal => scals, scalv + procedure, pass(a) :: scalpid => psb_ls_scalplusidentity end type psb_lsspmat_type @@ -1762,6 +1763,15 @@ module psb_s_mat_mod end subroutine psb_ls_scals end interface + interface psb_scalplusidentity + subroutine psb_ls_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ + class(psb_lsspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_scalplusidentity + end interface + interface function psb_ls_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index c06156896..6a8ed3d6d 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -418,6 +418,7 @@ module psb_z_mat_mod procedure, pass(a) :: scals => psb_lz_scals procedure, pass(a) :: scalv => psb_lz_scal generic, public :: scal => scals, scalv + procedure, pass(a) :: scalpid => psb_lz_scalplusidentity end type psb_lzspmat_type @@ -1762,6 +1763,15 @@ module psb_z_mat_mod end subroutine psb_lz_scals end interface + interface psb_scalplusidentity + subroutine psb_lz_scalplusidentity(d,a,info) + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ + class(psb_lzspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_scalplusidentity + end interface + interface function psb_lz_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ From 3b36c2196b6b6a70d6bb7a4e48b41f26b47dfa7e Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 8 Apr 2020 09:19:03 +0200 Subject: [PATCH 49/61] Added implementation of A = alpha A + beta B for sparse matrices --- base/modules/serial/psb_c_base_mat_mod.F90 | 76 +++++++++++++++++++++- base/modules/serial/psb_c_mat_mod.F90 | 24 +++++++ base/modules/serial/psb_d_base_mat_mod.F90 | 76 +++++++++++++++++++++- base/modules/serial/psb_d_mat_mod.F90 | 24 +++++++ base/modules/serial/psb_s_base_mat_mod.F90 | 76 +++++++++++++++++++++- base/modules/serial/psb_s_mat_mod.F90 | 24 +++++++ base/modules/serial/psb_z_base_mat_mod.F90 | 76 +++++++++++++++++++++- base/modules/serial/psb_z_mat_mod.F90 | 24 +++++++ base/serial/impl/psb_c_base_mat_impl.F90 | 52 +++++++++++++++ base/serial/impl/psb_c_coo_impl.f90 | 57 ++++++++++++++++ base/serial/impl/psb_d_base_mat_impl.F90 | 52 +++++++++++++++ base/serial/impl/psb_d_coo_impl.f90 | 57 ++++++++++++++++ base/serial/impl/psb_s_base_mat_impl.F90 | 52 +++++++++++++++ base/serial/impl/psb_s_coo_impl.f90 | 57 ++++++++++++++++ base/serial/impl/psb_z_base_mat_impl.F90 | 52 +++++++++++++++ base/serial/impl/psb_z_coo_impl.f90 | 57 ++++++++++++++++ cbind/base/psb_c_psblas_cbind_mod.f90 | 36 ++++++++++ cbind/base/psb_d_psblas_cbind_mod.f90 | 36 ++++++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 36 ++++++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 36 ++++++++++ 20 files changed, 972 insertions(+), 8 deletions(-) diff --git a/base/modules/serial/psb_c_base_mat_mod.F90 b/base/modules/serial/psb_c_base_mat_mod.F90 index 8233f5cc9..c7ba1a56d 100644 --- a/base/modules/serial/psb_c_base_mat_mod.F90 +++ b/base/modules/serial/psb_c_base_mat_mod.F90 @@ -126,6 +126,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: colsum => psb_c_base_colsum procedure, pass(a) :: aclsum => psb_c_base_aclsum procedure, pass(a) :: scalpid => psb_c_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_c_base_spaxpby end type psb_c_base_sparse_mat private :: c_base_mat_sync, c_base_mat_is_host, c_base_mat_is_dev, & @@ -228,7 +229,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: colsum => psb_c_coo_colsum procedure, pass(a) :: aclsum => psb_c_coo_aclsum procedure, pass(a) :: scalpid => psb_c_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_c_coo_spaxpby end type psb_c_coo_sparse_mat private :: c_coo_get_nzeros, c_coo_set_nzeros, & @@ -293,6 +294,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: colsum => psb_lc_base_colsum procedure, pass(a) :: aclsum => psb_lc_base_aclsum procedure, pass(a) :: scalpid => psb_lc_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_lc_base_spaxpby ! ! Convert internal indices ! @@ -394,7 +396,7 @@ module psb_c_base_mat_mod procedure, pass(a) :: colsum => psb_lc_coo_colsum procedure, pass(a) :: aclsum => psb_lc_coo_aclsum procedure, pass(a) :: scalpid => psb_lc_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_lc_coo_spaxpby ! ! This is COO specific ! @@ -1475,6 +1477,28 @@ module psb_c_base_mat_mod end subroutine psb_c_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_c_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_c_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_c_base_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_base_spaxpby + end interface + ! !> Function base_maxval: !! \memberof psb_c_base_sparse_mat @@ -2131,6 +2155,19 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_c_coo_scalplusidentity end interface + ! + !! \memberof psb_c_coo_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_spaxpby + interface + subroutine psb_c_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_c_coo_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_coo_spaxpby + end interface ! == ================= ! @@ -2887,6 +2924,28 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_lc_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_lc_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_lc_base_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_base_spaxpby + end interface + ! !> Function base_scal: @@ -3496,6 +3555,19 @@ module psb_c_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lc_coo_scalplusidentity end interface + !> + !! \memberof psb_lc_coo_sparse_mat + !! \see psb_lc_base_mat_mod::psb_lc_base_spaxpby + interface + subroutine psb_lc_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_lc_coo_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_coo_spaxpby + end interface contains diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90 index ff74c3482..3beb188a7 100644 --- a/base/modules/serial/psb_c_mat_mod.F90 +++ b/base/modules/serial/psb_c_mat_mod.F90 @@ -234,6 +234,7 @@ module psb_c_mat_mod procedure, pass(a) :: cssm => psb_c_cssm generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_c_scalplusidentity + procedure, pass(a) :: spaxpby => psb_c_spaxpby end type psb_cspmat_type @@ -419,6 +420,7 @@ module psb_c_mat_mod procedure, pass(a) :: scalv => psb_lc_scal generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_lc_scalplusidentity + procedure, pass(a) :: spaxpby => psb_lc_spaxpby end type psb_lcspmat_type @@ -1168,6 +1170,17 @@ module psb_c_mat_mod end subroutine psb_c_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_c_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ + class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_spaxpby + end interface + ! == =================================== ! ! @@ -1772,6 +1785,17 @@ module psb_c_mat_mod end subroutine psb_lc_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_lc_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ + class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_spaxpby + end interface + interface function psb_lc_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ diff --git a/base/modules/serial/psb_d_base_mat_mod.F90 b/base/modules/serial/psb_d_base_mat_mod.F90 index b8cd3a9c2..6e3c7a46b 100644 --- a/base/modules/serial/psb_d_base_mat_mod.F90 +++ b/base/modules/serial/psb_d_base_mat_mod.F90 @@ -126,6 +126,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: colsum => psb_d_base_colsum procedure, pass(a) :: aclsum => psb_d_base_aclsum procedure, pass(a) :: scalpid => psb_d_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_d_base_spaxpby end type psb_d_base_sparse_mat private :: d_base_mat_sync, d_base_mat_is_host, d_base_mat_is_dev, & @@ -228,7 +229,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: colsum => psb_d_coo_colsum procedure, pass(a) :: aclsum => psb_d_coo_aclsum procedure, pass(a) :: scalpid => psb_d_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_d_coo_spaxpby end type psb_d_coo_sparse_mat private :: d_coo_get_nzeros, d_coo_set_nzeros, & @@ -293,6 +294,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: colsum => psb_ld_base_colsum procedure, pass(a) :: aclsum => psb_ld_base_aclsum procedure, pass(a) :: scalpid => psb_ld_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_ld_base_spaxpby ! ! Convert internal indices ! @@ -394,7 +396,7 @@ module psb_d_base_mat_mod procedure, pass(a) :: colsum => psb_ld_coo_colsum procedure, pass(a) :: aclsum => psb_ld_coo_aclsum procedure, pass(a) :: scalpid => psb_ld_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_ld_coo_spaxpby ! ! This is COO specific ! @@ -1475,6 +1477,28 @@ module psb_d_base_mat_mod end subroutine psb_d_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_d_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_d_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_d_base_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_base_spaxpby + end interface + ! !> Function base_maxval: !! \memberof psb_d_base_sparse_mat @@ -2131,6 +2155,19 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_d_coo_scalplusidentity end interface + ! + !! \memberof psb_d_coo_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_spaxpby + interface + subroutine psb_d_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_d_coo_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_coo_spaxpby + end interface ! == ================= ! @@ -2887,6 +2924,28 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_ld_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_ld_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_ld_base_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_base_spaxpby + end interface + ! !> Function base_scal: @@ -3496,6 +3555,19 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ld_coo_scalplusidentity end interface + !> + !! \memberof psb_ld_coo_sparse_mat + !! \see psb_ld_base_mat_mod::psb_ld_base_spaxpby + interface + subroutine psb_ld_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_ld_coo_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_coo_spaxpby + end interface contains diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index 446ffea5f..c0f1577b5 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -234,6 +234,7 @@ module psb_d_mat_mod procedure, pass(a) :: cssm => psb_d_cssm generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_d_scalplusidentity + procedure, pass(a) :: spaxpby => psb_d_spaxpby end type psb_dspmat_type @@ -419,6 +420,7 @@ module psb_d_mat_mod procedure, pass(a) :: scalv => psb_ld_scal generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_ld_scalplusidentity + procedure, pass(a) :: spaxpby => psb_ld_spaxpby end type psb_ldspmat_type @@ -1168,6 +1170,17 @@ module psb_d_mat_mod end subroutine psb_d_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_d_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ + class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_spaxpby + end interface + ! == =================================== ! ! @@ -1772,6 +1785,17 @@ module psb_d_mat_mod end subroutine psb_ld_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_ld_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ + class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_spaxpby + end interface + interface function psb_ld_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ diff --git a/base/modules/serial/psb_s_base_mat_mod.F90 b/base/modules/serial/psb_s_base_mat_mod.F90 index bb2ba9586..27f053a4f 100644 --- a/base/modules/serial/psb_s_base_mat_mod.F90 +++ b/base/modules/serial/psb_s_base_mat_mod.F90 @@ -126,6 +126,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: colsum => psb_s_base_colsum procedure, pass(a) :: aclsum => psb_s_base_aclsum procedure, pass(a) :: scalpid => psb_s_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_s_base_spaxpby end type psb_s_base_sparse_mat private :: s_base_mat_sync, s_base_mat_is_host, s_base_mat_is_dev, & @@ -228,7 +229,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: colsum => psb_s_coo_colsum procedure, pass(a) :: aclsum => psb_s_coo_aclsum procedure, pass(a) :: scalpid => psb_s_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_s_coo_spaxpby end type psb_s_coo_sparse_mat private :: s_coo_get_nzeros, s_coo_set_nzeros, & @@ -293,6 +294,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: colsum => psb_ls_base_colsum procedure, pass(a) :: aclsum => psb_ls_base_aclsum procedure, pass(a) :: scalpid => psb_ls_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_ls_base_spaxpby ! ! Convert internal indices ! @@ -394,7 +396,7 @@ module psb_s_base_mat_mod procedure, pass(a) :: colsum => psb_ls_coo_colsum procedure, pass(a) :: aclsum => psb_ls_coo_aclsum procedure, pass(a) :: scalpid => psb_ls_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_ls_coo_spaxpby ! ! This is COO specific ! @@ -1475,6 +1477,28 @@ module psb_s_base_mat_mod end subroutine psb_s_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_s_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_s_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_s_base_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_base_spaxpby + end interface + ! !> Function base_maxval: !! \memberof psb_s_base_sparse_mat @@ -2131,6 +2155,19 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_s_coo_scalplusidentity end interface + ! + !! \memberof psb_s_coo_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_spaxpby + interface + subroutine psb_s_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_s_coo_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_coo_spaxpby + end interface ! == ================= ! @@ -2887,6 +2924,28 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_ls_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_ls_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_ls_base_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_base_spaxpby + end interface + ! !> Function base_scal: @@ -3496,6 +3555,19 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_ls_coo_scalplusidentity end interface + !> + !! \memberof psb_ls_coo_sparse_mat + !! \see psb_ls_base_mat_mod::psb_ls_base_spaxpby + interface + subroutine psb_ls_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_ls_coo_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_coo_spaxpby + end interface contains diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index d02caca70..c3b19516c 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -234,6 +234,7 @@ module psb_s_mat_mod procedure, pass(a) :: cssm => psb_s_cssm generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_s_scalplusidentity + procedure, pass(a) :: spaxpby => psb_s_spaxpby end type psb_sspmat_type @@ -419,6 +420,7 @@ module psb_s_mat_mod procedure, pass(a) :: scalv => psb_ls_scal generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_ls_scalplusidentity + procedure, pass(a) :: spaxpby => psb_ls_spaxpby end type psb_lsspmat_type @@ -1168,6 +1170,17 @@ module psb_s_mat_mod end subroutine psb_s_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_s_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ + class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_spaxpby + end interface + ! == =================================== ! ! @@ -1772,6 +1785,17 @@ module psb_s_mat_mod end subroutine psb_ls_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_ls_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ + class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_spaxpby + end interface + interface function psb_ls_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ diff --git a/base/modules/serial/psb_z_base_mat_mod.F90 b/base/modules/serial/psb_z_base_mat_mod.F90 index f739af058..c43373db5 100644 --- a/base/modules/serial/psb_z_base_mat_mod.F90 +++ b/base/modules/serial/psb_z_base_mat_mod.F90 @@ -126,6 +126,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: colsum => psb_z_base_colsum procedure, pass(a) :: aclsum => psb_z_base_aclsum procedure, pass(a) :: scalpid => psb_z_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_z_base_spaxpby end type psb_z_base_sparse_mat private :: z_base_mat_sync, z_base_mat_is_host, z_base_mat_is_dev, & @@ -228,7 +229,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: colsum => psb_z_coo_colsum procedure, pass(a) :: aclsum => psb_z_coo_aclsum procedure, pass(a) :: scalpid => psb_z_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_z_coo_spaxpby end type psb_z_coo_sparse_mat private :: z_coo_get_nzeros, z_coo_set_nzeros, & @@ -293,6 +294,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: colsum => psb_lz_base_colsum procedure, pass(a) :: aclsum => psb_lz_base_aclsum procedure, pass(a) :: scalpid => psb_lz_base_scalplusidentity + procedure, pass(a) :: spaxpby => psb_lz_base_spaxpby ! ! Convert internal indices ! @@ -394,7 +396,7 @@ module psb_z_base_mat_mod procedure, pass(a) :: colsum => psb_lz_coo_colsum procedure, pass(a) :: aclsum => psb_lz_coo_aclsum procedure, pass(a) :: scalpid => psb_lz_coo_scalplusidentity - + procedure, pass(a) :: spaxpby => psb_lz_coo_spaxpby ! ! This is COO specific ! @@ -1475,6 +1477,28 @@ module psb_z_base_mat_mod end subroutine psb_z_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_z_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_z_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_z_base_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_base_spaxpby + end interface + ! !> Function base_maxval: !! \memberof psb_z_base_sparse_mat @@ -2131,6 +2155,19 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_z_coo_scalplusidentity end interface + ! + !! \memberof psb_z_coo_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_spaxpby + interface + subroutine psb_z_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_z_coo_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_coo_spaxpby + end interface ! == ================= ! @@ -2887,6 +2924,28 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_base_scalplusidentity end interface + ! + !> Function base_spaxpby: + !! \memberof psb_lz_base_sparse_mat + !! \brief Scale add tow sparse matrices A = alpha A + beta B + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param beta scaling for B + !! \param B sparse matrix B (intent in) + !! \param info return code + ! + interface + subroutine psb_lz_base_spaxpby(alpha,a,beta,b,info) + import + class(psb_lz_base_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_base_spaxpby + end interface + ! !> Function base_scal: @@ -3496,6 +3555,19 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(out) :: info end subroutine psb_lz_coo_scalplusidentity end interface + !> + !! \memberof psb_lz_coo_sparse_mat + !! \see psb_lz_base_mat_mod::psb_lz_base_spaxpby + interface + subroutine psb_lz_coo_spaxpby(alpha,a,beta,b,info) + import + class(psb_lz_coo_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_coo_spaxpby + end interface contains diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index 6a8ed3d6d..da7776a3f 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -234,6 +234,7 @@ module psb_z_mat_mod procedure, pass(a) :: cssm => psb_z_cssm generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_z_scalplusidentity + procedure, pass(a) :: spaxpby => psb_z_spaxpby end type psb_zspmat_type @@ -419,6 +420,7 @@ module psb_z_mat_mod procedure, pass(a) :: scalv => psb_lz_scal generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_lz_scalplusidentity + procedure, pass(a) :: spaxpby => psb_lz_spaxpby end type psb_lzspmat_type @@ -1168,6 +1170,17 @@ module psb_z_mat_mod end subroutine psb_z_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_z_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ + class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_spaxpby + end interface + ! == =================================== ! ! @@ -1772,6 +1785,17 @@ module psb_z_mat_mod end subroutine psb_lz_scalplusidentity end interface + interface psb_spaxpby + subroutine psb_lz_spaxpby(alpha,a,beta,b,info) + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ + class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_spaxpby + end interface + interface function psb_lz_maxval(a) result(res) import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index ad631d94e..db076ba22 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -1812,6 +1812,58 @@ subroutine psb_c_base_get_diag(a,d,info) end subroutine psb_c_base_get_diag +subroutine psb_c_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_c_base_spaxpby + + complex(psb_spk_), intent(in) :: alpha + class(psb_c_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: beta + class(psb_c_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_c_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_c_base_spaxpby ! == ================================== ! diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 06cc09c9b..7f6dee463 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -219,6 +219,63 @@ subroutine psb_c_coo_scalplusidentity(d,a,info) end subroutine psb_c_coo_scalplusidentity +subroutine psb_c_coo_spaxpby(alpha,a,beta,b,info) + use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_c_coo_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='c_coo_spaxpby' + type(psb_c_coo_sparse_mat) :: tcoo,bcoo + integer(psb_ipk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_c_coo_spaxpby subroutine psb_c_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_reallocate_nz diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index cb96bebe8..9bcf0e39a 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -1812,6 +1812,58 @@ subroutine psb_d_base_get_diag(a,d,info) end subroutine psb_d_base_get_diag +subroutine psb_d_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_d_base_spaxpby + + real(psb_dpk_), intent(in) :: alpha + class(psb_d_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: beta + class(psb_d_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_d_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_d_base_spaxpby ! == ================================== ! diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index 18c27a373..a2d5ce498 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -219,6 +219,63 @@ subroutine psb_d_coo_scalplusidentity(d,a,info) end subroutine psb_d_coo_scalplusidentity +subroutine psb_d_coo_spaxpby(alpha,a,beta,b,info) + use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_d_coo_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='d_coo_spaxpby' + type(psb_d_coo_sparse_mat) :: tcoo,bcoo + integer(psb_ipk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_d_coo_spaxpby subroutine psb_d_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_reallocate_nz diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index f59e7b004..be3cae971 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -1812,6 +1812,58 @@ subroutine psb_s_base_get_diag(a,d,info) end subroutine psb_s_base_get_diag +subroutine psb_s_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_s_base_spaxpby + + real(psb_spk_), intent(in) :: alpha + class(psb_s_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: beta + class(psb_s_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_s_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_s_base_spaxpby ! == ================================== ! diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index ed92304af..067ef58a3 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -219,6 +219,63 @@ subroutine psb_s_coo_scalplusidentity(d,a,info) end subroutine psb_s_coo_scalplusidentity +subroutine psb_s_coo_spaxpby(alpha,a,beta,b,info) + use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_s_coo_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='s_coo_spaxpby' + type(psb_s_coo_sparse_mat) :: tcoo,bcoo + integer(psb_ipk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_s_coo_spaxpby subroutine psb_s_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_reallocate_nz diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index cf3669ab5..254a5450e 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -1812,6 +1812,58 @@ subroutine psb_z_base_get_diag(a,d,info) end subroutine psb_z_base_get_diag +subroutine psb_z_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_z_base_spaxpby + + complex(psb_dpk_), intent(in) :: alpha + class(psb_z_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: beta + class(psb_z_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_z_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_z_base_spaxpby ! == ================================== ! diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index d4f977707..281f308cd 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -219,6 +219,63 @@ subroutine psb_z_coo_scalplusidentity(d,a,info) end subroutine psb_z_coo_scalplusidentity +subroutine psb_z_coo_spaxpby(alpha,a,beta,b,info) + use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_z_coo_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='z_coo_spaxpby' + type(psb_z_coo_sparse_mat) :: tcoo,bcoo + integer(psb_ipk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_z_coo_spaxpby subroutine psb_z_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_reallocate_nz diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index bf9a3f366..dbf8a88a9 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -1151,4 +1151,40 @@ contains end function psb_c_cspscalpid + function psb_c_cspaxpby(alpha,ah,beta,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_float_complex), value :: alpha + type(psb_c_cspmat) :: ah + complex(c_float_complex), value :: beta + type(psb_c_cspmat) :: bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%spaxpby(alpha,beta,bp,info) + + res = info + end function psb_c_cspaxpby + end module psb_c_psblas_cbind_mod diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 4c92514e2..aef9636f2 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1252,4 +1252,40 @@ contains end function psb_c_dspscalpid + function psb_c_dspaxpby(alpha,ah,beta,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_double), value :: alpha + type(psb_c_dspmat) :: ah + real(c_double), value :: beta + type(psb_c_dspmat) :: bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%spaxpby(alpha,beta,bp,info) + + res = info + end function psb_c_dspaxpby + end module psb_d_psblas_cbind_mod diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 4e85e91c5..ab7738196 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1252,4 +1252,40 @@ contains end function psb_c_sspscalpid + function psb_c_sspaxpby(alpha,ah,beta,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + real(c_float), value :: alpha + type(psb_c_sspmat) :: ah + real(c_float), value :: beta + type(psb_c_sspmat) :: bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%spaxpby(alpha,beta,bp,info) + + res = info + end function psb_c_sspaxpby + end module psb_s_psblas_cbind_mod diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 100665918..b7bf00389 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -1151,4 +1151,40 @@ contains end function psb_c_zspscalpid + function psb_c_zspaxpby(alpha,ah,beta,bh,cdh) bind(c) result(res) + implicit none + integer(psb_c_ipk_) :: res + + complex(c_double_complex), value :: alpha + type(psb_c_zspmat) :: ah + complex(c_double_complex), value :: beta + type(psb_c_zspmat) :: bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap,bp + 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(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call ap%spaxpby(alpha,beta,bp,info) + + res = info + end function psb_c_zspaxpby + end module psb_z_psblas_cbind_mod From cfc7c2c78fb06dcd75a4e37e1372244656b772bb Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 8 Apr 2020 09:44:39 +0200 Subject: [PATCH 50/61] Added headers for C interfaces of sparse matrix scale, and add functions --- cbind/base/psb_c_cbase.h | 4 ++++ cbind/base/psb_c_dbase.h | 4 ++++ cbind/base/psb_c_sbase.h | 4 +++- cbind/base/psb_c_zbase.h | 4 ++++ 4 files changed, 15 insertions(+), 1 deletion(-) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 1130018a8..73610ba18 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -85,6 +85,10 @@ psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descri psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); +psb_i_t psb_c_cspscal(psb_c_t alpha, psb_c_cspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_cspscalpid(psb_c_t alpha, psb_c_cspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_cspaxpby(psb_c_t alpha, psb_c_cspmat *ah, psb_c_t beta, psb_c_cspmat *bh, psb_c_descriptor *cdh); + #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 09feea6fa..4d4fd1f09 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -88,6 +88,10 @@ psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvect psb_i_t psb_c_dmask(psb_c_dvector *ch,psb_c_dvector *xh,psb_c_dvector *mh, void *t, psb_c_descriptor *cdh); psb_d_t psb_c_dgemin(psb_c_dvector *xh,psb_c_descriptor *cdh); psb_d_t psb_c_dminquotient(psb_c_dvector *xh,psb_c_dvector *yh, psb_c_descriptor *cdh); +psb_i_t psb_c_dspscal(psb_d_t alpha, psb_c_dspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_dspscalpid(psb_d_t alpha, psb_c_dspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_dspaxpby(psb_d_t alpha, psb_c_dspmat *ah, psb_d_t beta, psb_c_dspmat *bh, psb_c_descriptor *cdh); + #ifdef __cplusplus } diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 97384968e..44f35033b 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -87,7 +87,9 @@ psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descripto psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, void *t, psb_c_descriptor *cdh); psb_s_t psb_c_sgemin(psb_c_svector *xh,psb_c_descriptor *cdh); - +psb_i_t psb_c_dspscal(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_dspscalpid(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_dspaxpby(psb_s_t alpha, psb_c_sspmat *ah, psb_s_t beta, psb_c_sspmat *bh, psb_c_descriptor *cdh); #ifdef __cplusplus } #endif /* __cplusplus */ diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 01be0f686..f2a34a774 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -86,6 +86,10 @@ psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descri psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); +psb_i_t psb_c_zspscal(psb_z_t alpha, psb_c_zspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_zspscalpid(psb_z_t alpha, psb_c_zspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_zspaxpby(psb_z_t alpha, psb_c_zspmat *ah, psb_z_t beta, psb_c_zspmat *bh, psb_c_descriptor *cdh); + #ifdef __cplusplus } #endif /* __cplusplus */ From 44db94ad63eae187ff14ab79e2e88e023d63886b Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 8 Apr 2020 09:56:48 +0200 Subject: [PATCH 51/61] Corrected type for sparse matrix function --- cbind/base/psb_c_sbase.h | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index 44f35033b..fb9a49320 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -87,9 +87,9 @@ psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descripto psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); psb_i_t psb_c_smask(psb_c_svector *ch,psb_c_svector *xh,psb_c_svector *mh, void *t, psb_c_descriptor *cdh); psb_s_t psb_c_sgemin(psb_c_svector *xh,psb_c_descriptor *cdh); -psb_i_t psb_c_dspscal(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); -psb_i_t psb_c_dspscalpid(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); -psb_i_t psb_c_dspaxpby(psb_s_t alpha, psb_c_sspmat *ah, psb_s_t beta, psb_c_sspmat *bh, psb_c_descriptor *cdh); +psb_i_t psb_c_sspscal(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_sspscalpid(psb_s_t alpha, psb_c_sspmat *ah, psb_c_descriptor *cdh); +psb_i_t psb_c_sspaxpby(psb_s_t alpha, psb_c_sspmat *ah, psb_s_t beta, psb_c_sspmat *bh, psb_c_descriptor *cdh); #ifdef __cplusplus } #endif /* __cplusplus */ From ca296fc0cf63ae2b9b85615ac28a3d81919d2771 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 8 Apr 2020 10:47:20 +0200 Subject: [PATCH 52/61] Added missign @LX@ implementation of new sparse matrix sum routines --- base/serial/impl/psb_c_base_mat_impl.F90 | 76 +++++++++++++++++ base/serial/impl/psb_c_coo_impl.f90 | 98 +++++++++++++++++++++ base/serial/impl/psb_c_csc_impl.f90 | 42 +++++++++ base/serial/impl/psb_c_mat_impl.F90 | 103 +++++++++++++++++++++++ base/serial/impl/psb_d_base_mat_impl.F90 | 76 +++++++++++++++++ base/serial/impl/psb_d_coo_impl.f90 | 98 +++++++++++++++++++++ base/serial/impl/psb_d_csc_impl.f90 | 42 +++++++++ base/serial/impl/psb_d_mat_impl.F90 | 103 +++++++++++++++++++++++ base/serial/impl/psb_s_base_mat_impl.F90 | 76 +++++++++++++++++ base/serial/impl/psb_s_coo_impl.f90 | 98 +++++++++++++++++++++ base/serial/impl/psb_s_csc_impl.f90 | 42 +++++++++ base/serial/impl/psb_s_mat_impl.F90 | 103 +++++++++++++++++++++++ base/serial/impl/psb_z_base_mat_impl.F90 | 76 +++++++++++++++++ base/serial/impl/psb_z_coo_impl.f90 | 98 +++++++++++++++++++++ base/serial/impl/psb_z_csc_impl.f90 | 42 +++++++++ base/serial/impl/psb_z_mat_impl.F90 | 103 +++++++++++++++++++++++ 16 files changed, 1276 insertions(+) diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index db076ba22..b9d37636a 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -3532,6 +3532,29 @@ subroutine psb_lc_base_scals(d,a,info) end subroutine psb_lc_base_scals +subroutine psb_lc_base_scalplusidentity(d,a,info) + use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_lc_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='lc_scalplusidentity' + logical, parameter :: debug=.false. + + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_lc_base_scalplusidentity + subroutine psb_lc_base_scal(d,a,info,side) use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_scal use psb_error_mod @@ -3743,6 +3766,59 @@ subroutine psb_lc_base_aclsum(d,a) end subroutine psb_lc_base_aclsum +subroutine psb_lc_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_spaxpby + + complex(psb_spk_), intent(in) :: alpha + class(psb_lc_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: beta + class(psb_lc_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_lc_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_lc_base_spaxpby + subroutine psb_lc_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 7f6dee463..733f576eb 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -4583,6 +4583,104 @@ subroutine psb_lc_coo_aclsum(d,a) end subroutine psb_lc_coo_aclsum +subroutine psb_lc_coo_scalplusidentity(d,a,info) + use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_lc_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + cone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lc_coo_scalplusidentity + +subroutine psb_lc_coo_spaxpby(alpha,a,beta,b,info) + use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_lc_coo_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + complex(psb_spk_), intent(in) :: alpha + complex(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='lc_coo_spaxpby' + type(psb_lc_coo_sparse_mat) :: tcoo,bcoo + integer(psb_lpk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_lc_coo_spaxpby + subroutine psb_lc_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 84bd726d9..5530f8ef0 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -3107,6 +3107,48 @@ subroutine psb_lc_csc_scals(d,a,info) end subroutine psb_lc_csc_scals +subroutine psb_lc_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scalplusidentity + implicit none + class(psb_lc_csc_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_lpk_) :: mnm, i, j, k, m + integer(psb_ipk_) :: err_act, ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + cone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lc_csc_scalplusidentity function psb_lc_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90 index 1891cda17..22adbd3a8 100644 --- a/base/serial/impl/psb_c_mat_impl.F90 +++ b/base/serial/impl/psb_c_mat_impl.F90 @@ -2486,6 +2486,41 @@ subroutine psb_c_scalplusidentity(d,a,info) end subroutine psb_c_scalplusidentity +subroutine psb_c_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_c_spaxpby + implicit none + complex(psb_spk_), intent(in) :: alpha + class(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: beta + class(psb_cspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_c_spaxpby + subroutine psb_c_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4617,6 +4652,74 @@ subroutine psb_lc_scals(d,a,info) end subroutine psb_lc_scals +subroutine psb_lc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_lc_scalplusidentity + implicit none + class(psb_lcspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lc_scalplusidentity + +subroutine psb_lc_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_lc_spaxpby + implicit none + complex(psb_spk_), intent(in) :: alpha + class(psb_lcspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: beta + class(psb_lcspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lc_spaxpby + function psb_lc_maxval(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_lc_maxval use psb_error_mod diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index 9bcf0e39a..c432808a1 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -3532,6 +3532,29 @@ subroutine psb_ld_base_scals(d,a,info) end subroutine psb_ld_base_scals +subroutine psb_ld_base_scalplusidentity(d,a,info) + use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_ld_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='ld_scalplusidentity' + logical, parameter :: debug=.false. + + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_ld_base_scalplusidentity + subroutine psb_ld_base_scal(d,a,info,side) use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_scal use psb_error_mod @@ -3743,6 +3766,59 @@ subroutine psb_ld_base_aclsum(d,a) end subroutine psb_ld_base_aclsum +subroutine psb_ld_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_spaxpby + + real(psb_dpk_), intent(in) :: alpha + class(psb_ld_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: beta + class(psb_ld_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_ld_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_ld_base_spaxpby + subroutine psb_ld_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index a2d5ce498..29ff8d89f 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -4583,6 +4583,104 @@ subroutine psb_ld_coo_aclsum(d,a) end subroutine psb_ld_coo_aclsum +subroutine psb_ld_coo_scalplusidentity(d,a,info) + use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_ld_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + done + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ld_coo_scalplusidentity + +subroutine psb_ld_coo_spaxpby(alpha,a,beta,b,info) + use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_ld_coo_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: alpha + real(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='ld_coo_spaxpby' + type(psb_ld_coo_sparse_mat) :: tcoo,bcoo + integer(psb_lpk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_ld_coo_spaxpby + subroutine psb_ld_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index 3d605b42d..832f67299 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -3107,6 +3107,48 @@ subroutine psb_ld_csc_scals(d,a,info) end subroutine psb_ld_csc_scals +subroutine psb_ld_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scalplusidentity + implicit none + class(psb_ld_csc_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_lpk_) :: mnm, i, j, k, m + integer(psb_ipk_) :: err_act, ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + done + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ld_csc_scalplusidentity function psb_ld_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90 index 492bb681d..1ef8305d7 100644 --- a/base/serial/impl/psb_d_mat_impl.F90 +++ b/base/serial/impl/psb_d_mat_impl.F90 @@ -2486,6 +2486,41 @@ subroutine psb_d_scalplusidentity(d,a,info) end subroutine psb_d_scalplusidentity +subroutine psb_d_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_d_spaxpby + implicit none + real(psb_dpk_), intent(in) :: alpha + class(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: beta + class(psb_dspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_d_spaxpby + subroutine psb_d_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4617,6 +4652,74 @@ subroutine psb_ld_scals(d,a,info) end subroutine psb_ld_scals +subroutine psb_ld_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_ld_scalplusidentity + implicit none + class(psb_ldspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ld_scalplusidentity + +subroutine psb_ld_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_ld_spaxpby + implicit none + real(psb_dpk_), intent(in) :: alpha + class(psb_ldspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: beta + class(psb_ldspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ld_spaxpby + function psb_ld_maxval(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_ld_maxval use psb_error_mod diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index be3cae971..cffc4d8a5 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -3532,6 +3532,29 @@ subroutine psb_ls_base_scals(d,a,info) end subroutine psb_ls_base_scals +subroutine psb_ls_base_scalplusidentity(d,a,info) + use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_ls_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='ls_scalplusidentity' + logical, parameter :: debug=.false. + + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_ls_base_scalplusidentity + subroutine psb_ls_base_scal(d,a,info,side) use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_scal use psb_error_mod @@ -3743,6 +3766,59 @@ subroutine psb_ls_base_aclsum(d,a) end subroutine psb_ls_base_aclsum +subroutine psb_ls_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_spaxpby + + real(psb_spk_), intent(in) :: alpha + class(psb_ls_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: beta + class(psb_ls_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_ls_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_ls_base_spaxpby + subroutine psb_ls_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index 067ef58a3..05cafaa83 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -4583,6 +4583,104 @@ subroutine psb_ls_coo_aclsum(d,a) end subroutine psb_ls_coo_aclsum +subroutine psb_ls_coo_scalplusidentity(d,a,info) + use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_ls_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + sone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ls_coo_scalplusidentity + +subroutine psb_ls_coo_spaxpby(alpha,a,beta,b,info) + use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_ls_coo_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: alpha + real(psb_spk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='ls_coo_spaxpby' + type(psb_ls_coo_sparse_mat) :: tcoo,bcoo + integer(psb_lpk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_ls_coo_spaxpby + subroutine psb_ls_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index 627a5ecae..6abd15c2a 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -3107,6 +3107,48 @@ subroutine psb_ls_csc_scals(d,a,info) end subroutine psb_ls_csc_scals +subroutine psb_ls_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scalplusidentity + implicit none + class(psb_ls_csc_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_lpk_) :: mnm, i, j, k, m + integer(psb_ipk_) :: err_act, ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + sone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ls_csc_scalplusidentity function psb_ls_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90 index 55cef1ab4..9b3d13430 100644 --- a/base/serial/impl/psb_s_mat_impl.F90 +++ b/base/serial/impl/psb_s_mat_impl.F90 @@ -2486,6 +2486,41 @@ subroutine psb_s_scalplusidentity(d,a,info) end subroutine psb_s_scalplusidentity +subroutine psb_s_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_s_spaxpby + implicit none + real(psb_spk_), intent(in) :: alpha + class(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: beta + class(psb_sspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_s_spaxpby + subroutine psb_s_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4617,6 +4652,74 @@ subroutine psb_ls_scals(d,a,info) end subroutine psb_ls_scals +subroutine psb_ls_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_ls_scalplusidentity + implicit none + class(psb_lsspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ls_scalplusidentity + +subroutine psb_ls_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_ls_spaxpby + implicit none + real(psb_spk_), intent(in) :: alpha + class(psb_lsspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: beta + class(psb_lsspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_ls_spaxpby + function psb_ls_maxval(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_ls_maxval use psb_error_mod diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index 254a5450e..6490657d8 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -3532,6 +3532,29 @@ subroutine psb_lz_base_scals(d,a,info) end subroutine psb_lz_base_scals +subroutine psb_lz_base_scalplusidentity(d,a,info) + use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_scalplusidentity + use psb_error_mod + implicit none + class(psb_lz_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='lz_scalplusidentity' + logical, parameter :: debug=.false. + + call psb_erractionsave(err_act) + ! This is the base version. If we get here + ! it means the derived class is incomplete, + ! so we throw an error. + info = psb_err_missing_override_method_ + call psb_errpush(info,name,a_err=a%get_fmt()) + + call psb_error_handler(err_act) + +end subroutine psb_lz_base_scalplusidentity + subroutine psb_lz_base_scal(d,a,info,side) use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_scal use psb_error_mod @@ -3743,6 +3766,59 @@ subroutine psb_lz_base_aclsum(d,a) end subroutine psb_lz_base_aclsum +subroutine psb_lz_base_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_spaxpby + + complex(psb_dpk_), intent(in) :: alpha + class(psb_lz_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: beta + class(psb_lz_base_sparse_mat), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxpby' + logical, parameter :: debug=.false. + type(psb_lz_coo_sparse_mat) :: acoo + + call psb_erractionsave(err_act) + if((a%get_ncols() /= b%get_ncols()).or.(a%get_nrows() /= b%get_nrows())) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name) + goto 9999 + end if + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%spaxpby(alpha,beta,b,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='spaxby') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_lz_base_spaxpby + subroutine psb_lz_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index 281f308cd..5384d507e 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -4583,6 +4583,104 @@ subroutine psb_lz_coo_aclsum(d,a) end subroutine psb_lz_coo_aclsum +subroutine psb_lz_coo_scalplusidentity(d,a,info) + use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_scalplusidentity + use psb_error_mod + use psb_const_mod + implicit none + class(psb_lz_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act,mnm, i, j, m + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + j=a%ia(i) + if ((j == a%ja(i)) .and.(j <= mnm ) .and.(j>0)) then + a%val(i) = a%val(i) + zone + endif + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lz_coo_scalplusidentity + +subroutine psb_lz_coo_spaxpby(alpha,a,beta,b,info) + use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_spaxpby + use psb_error_mod + use psb_const_mod + implicit none + + class(psb_lz_coo_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + complex(psb_dpk_), intent(in) :: alpha + complex(psb_dpk_), intent(in) :: beta + integer(psb_ipk_), intent(out) :: info + + !Local + integer(psb_ipk_) :: err_act + character(len=20) :: name='lz_coo_spaxpby' + type(psb_lz_coo_sparse_mat) :: tcoo,bcoo + integer(psb_lpk_) :: nza, nzb, M, N + + call psb_erractionsave(err_act) + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = alpha*a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = beta*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + ! Move to correct output format + call tcoo%mv_to_coo(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end subroutine psb_lz_coo_spaxpby + subroutine psb_lz_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index a71b51d15..ccbaefd69 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -3107,6 +3107,48 @@ subroutine psb_lz_csc_scals(d,a,info) end subroutine psb_lz_csc_scals +subroutine psb_lz_csc_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scalplusidentity + implicit none + class(psb_lz_csc_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_lpk_) :: mnm, i, j, k, m + integer(psb_ipk_) :: err_act, ierr(5) + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (a%is_dev()) call a%sync() + + if (a%is_unit()) then + call a%make_nonunit() + end if + + mnm = min(a%get_nrows(),a%get_ncols()) + do i=1,a%get_nzeros() + a%val(i) = a%val(i) * d + do k=a%icp(i),a%icp(i+1)-1 + j=a%ia(k) + if ((j == i) .and.(j <= mnm )) then + a%val(k) = a%val(k) + zone + endif + enddo + enddo + call a%set_host() + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lz_csc_scalplusidentity function psb_lz_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90 index 4cc1f4482..424f37001 100644 --- a/base/serial/impl/psb_z_mat_impl.F90 +++ b/base/serial/impl/psb_z_mat_impl.F90 @@ -2486,6 +2486,41 @@ subroutine psb_z_scalplusidentity(d,a,info) end subroutine psb_z_scalplusidentity +subroutine psb_z_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_z_spaxpby + implicit none + complex(psb_dpk_), intent(in) :: alpha + class(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: beta + class(psb_zspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_z_spaxpby + subroutine psb_z_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4617,6 +4652,74 @@ subroutine psb_lz_scals(d,a,info) end subroutine psb_lz_scals +subroutine psb_lz_scalplusidentity(d,a,info) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_lz_scalplusidentity + implicit none + class(psb_lzspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: d + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='scalplusidentity' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%scalpid(d,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lz_scalplusidentity + +subroutine psb_lz_spaxpby(alpha,a,beta,b,info) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_lz_spaxpby + implicit none + complex(psb_dpk_), intent(in) :: alpha + class(psb_lzspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: beta + class(psb_lzspmat_type), intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='spaxby' + logical, parameter :: debug=.false. + + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + call a%a%spaxpby(alpha,beta,b%a,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end subroutine psb_lz_spaxpby + function psb_lz_maxval(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_lz_maxval use psb_error_mod From 1c236543282ec4ea26a0f3a7680c63e3e167d9e7 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 9 Apr 2020 19:25:09 +0200 Subject: [PATCH 53/61] Added functions to compare the entries of two matrices or every entry of matrix with a value --- base/modules/psblas/psb_c_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_d_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_s_psblas_mod.F90 | 20 +++ base/modules/psblas/psb_z_psblas_mod.F90 | 20 +++ base/modules/serial/psb_c_base_mat_mod.F90 | 158 ++++++++++++++++ base/modules/serial/psb_c_mat_mod.F90 | 47 +++++ base/modules/serial/psb_d_base_mat_mod.F90 | 158 ++++++++++++++++ base/modules/serial/psb_d_mat_mod.F90 | 47 +++++ base/modules/serial/psb_s_base_mat_mod.F90 | 158 ++++++++++++++++ base/modules/serial/psb_s_mat_mod.F90 | 47 +++++ base/modules/serial/psb_z_base_mat_mod.F90 | 158 ++++++++++++++++ base/modules/serial/psb_z_mat_mod.F90 | 47 +++++ base/psblas/psb_ccmp_vect.f90 | 137 ++++++++++++++ base/psblas/psb_dcmp_vect.f90 | 137 ++++++++++++++ base/psblas/psb_scmp_vect.f90 | 137 ++++++++++++++ base/psblas/psb_zcmp_vect.f90 | 137 ++++++++++++++ base/serial/impl/psb_c_base_mat_impl.F90 | 172 ++++++++++++++++++ base/serial/impl/psb_c_coo_impl.f90 | 200 +++++++++++++++++++++ base/serial/impl/psb_c_mat_impl.F90 | 144 +++++++++++++++ base/serial/impl/psb_d_base_mat_impl.F90 | 172 ++++++++++++++++++ base/serial/impl/psb_d_coo_impl.f90 | 200 +++++++++++++++++++++ base/serial/impl/psb_d_mat_impl.F90 | 144 +++++++++++++++ base/serial/impl/psb_s_base_mat_impl.F90 | 172 ++++++++++++++++++ base/serial/impl/psb_s_coo_impl.f90 | 200 +++++++++++++++++++++ base/serial/impl/psb_s_mat_impl.F90 | 144 +++++++++++++++ base/serial/impl/psb_z_base_mat_impl.F90 | 172 ++++++++++++++++++ base/serial/impl/psb_z_coo_impl.f90 | 200 +++++++++++++++++++++ base/serial/impl/psb_z_mat_impl.F90 | 144 +++++++++++++++ cbind/base/psb_c_psblas_cbind_mod.f90 | 60 +++++++ cbind/base/psb_d_psblas_cbind_mod.f90 | 60 +++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 60 +++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 60 +++++++ 32 files changed, 3752 insertions(+) diff --git a/base/modules/psblas/psb_c_psblas_mod.F90 b/base/modules/psblas/psb_c_psblas_mod.F90 index b5f9d97a5..b4f1fe283 100644 --- a/base/modules/psblas/psb_c_psblas_mod.F90 +++ b/base/modules/psblas/psb_c_psblas_mod.F90 @@ -574,6 +574,26 @@ module psb_c_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_ccmp_vect + subroutine psb_ccmp_spmatval(a,val,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_cspmat_type, psb_spk_ + type(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_ccmp_spmatval + subroutine psb_ccmp_spmat(a,b,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_cspmat_type, psb_spk_ + type(psb_cspmat_type), intent(inout) :: a + type(psb_cspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_ccmp_spmat end interface interface psb_geaddconst subroutine psb_caddconst_vect(x,b,z,desc_a,info) diff --git a/base/modules/psblas/psb_d_psblas_mod.F90 b/base/modules/psblas/psb_d_psblas_mod.F90 index 05e4b3436..a77481169 100644 --- a/base/modules/psblas/psb_d_psblas_mod.F90 +++ b/base/modules/psblas/psb_d_psblas_mod.F90 @@ -585,6 +585,26 @@ module psb_d_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_dcmp_vect + subroutine psb_dcmp_spmatval(a,val,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_dspmat_type, psb_dpk_ + type(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_dcmp_spmatval + subroutine psb_dcmp_spmat(a,b,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_dspmat_type, psb_dpk_ + type(psb_dspmat_type), intent(inout) :: a + type(psb_dspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_dcmp_spmat end interface interface psb_geaddconst subroutine psb_daddconst_vect(x,b,z,desc_a,info) diff --git a/base/modules/psblas/psb_s_psblas_mod.F90 b/base/modules/psblas/psb_s_psblas_mod.F90 index 651a0c6e0..803c7328a 100644 --- a/base/modules/psblas/psb_s_psblas_mod.F90 +++ b/base/modules/psblas/psb_s_psblas_mod.F90 @@ -585,6 +585,26 @@ module psb_s_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_scmp_vect + subroutine psb_scmp_spmatval(a,val,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_sspmat_type, psb_spk_ + type(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_scmp_spmatval + subroutine psb_scmp_spmat(a,b,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_sspmat_type, psb_spk_ + type(psb_sspmat_type), intent(inout) :: a + type(psb_sspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_scmp_spmat end interface interface psb_geaddconst subroutine psb_saddconst_vect(x,b,z,desc_a,info) diff --git a/base/modules/psblas/psb_z_psblas_mod.F90 b/base/modules/psblas/psb_z_psblas_mod.F90 index 63fed5ae9..60a373e46 100644 --- a/base/modules/psblas/psb_z_psblas_mod.F90 +++ b/base/modules/psblas/psb_z_psblas_mod.F90 @@ -574,6 +574,26 @@ module psb_z_psblas_mod type(psb_desc_type), intent (in) :: desc_a integer(psb_ipk_), intent(out) :: info end subroutine psb_zcmp_vect + subroutine psb_zcmp_spmatval(a,val,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_zspmat_type, psb_dpk_ + type(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_zcmp_spmatval + subroutine psb_zcmp_spmat(a,b,tol,desc_a,res,info) + import :: psb_desc_type, psb_ipk_, & + & psb_lpk_, psb_zspmat_type, psb_dpk_ + type(psb_zspmat_type), intent(inout) :: a + type(psb_zspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + end subroutine psb_zcmp_spmat end interface interface psb_geaddconst subroutine psb_zaddconst_vect(x,b,z,desc_a,info) diff --git a/base/modules/serial/psb_c_base_mat_mod.F90 b/base/modules/serial/psb_c_base_mat_mod.F90 index c7ba1a56d..a52f7a7ce 100644 --- a/base/modules/serial/psb_c_base_mat_mod.F90 +++ b/base/modules/serial/psb_c_base_mat_mod.F90 @@ -127,6 +127,9 @@ module psb_c_base_mat_mod procedure, pass(a) :: aclsum => psb_c_base_aclsum procedure, pass(a) :: scalpid => psb_c_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_c_base_spaxpby + procedure, pass(a) :: cmpval => psb_c_base_cmpval + procedure, pass(a) :: cmpmat => psb_c_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_c_base_sparse_mat private :: c_base_mat_sync, c_base_mat_is_host, c_base_mat_is_dev, & @@ -230,6 +233,8 @@ module psb_c_base_mat_mod procedure, pass(a) :: aclsum => psb_c_coo_aclsum procedure, pass(a) :: scalpid => psb_c_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_c_coo_spaxpby + procedure, pass(a) :: cmpval => psb_c_coo_cmpval + procedure, pass(a) :: cmpmat => psb_c_coo_cmpmat end type psb_c_coo_sparse_mat private :: c_coo_get_nzeros, c_coo_set_nzeros, & @@ -295,6 +300,9 @@ module psb_c_base_mat_mod procedure, pass(a) :: aclsum => psb_lc_base_aclsum procedure, pass(a) :: scalpid => psb_lc_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_lc_base_spaxpby + procedure, pass(a) :: cmpval => psb_lc_base_cmpval + procedure, pass(a) :: cmpmat => psb_lc_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat ! ! Convert internal indices ! @@ -397,6 +405,8 @@ module psb_c_base_mat_mod procedure, pass(a) :: aclsum => psb_lc_coo_aclsum procedure, pass(a) :: scalpid => psb_lc_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_lc_coo_spaxpby + procedure, pass(a) :: cmpval => psb_lc_coo_cmpval + procedure, pass(a) :: cmpmat => psb_lc_coo_cmpmat ! ! This is COO specific ! @@ -1499,6 +1509,52 @@ module psb_c_base_mat_mod end subroutine psb_c_base_spaxpby end interface + ! + !> Function base_cmpval: + !! \memberof psb_c_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_c_base_cmpval(a,val,tol,info) result(res) + import + class(psb_c_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_c_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_c_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_c_base_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_c_base_sparse_mat @@ -2169,6 +2225,34 @@ module psb_c_base_mat_mod end subroutine psb_c_coo_spaxpby end interface + ! + !! \memberof psb_c_coo_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_cmpval + interface + function psb_c_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_c_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_coo_cmpval + end interface + + ! + !! \memberof psb_c_coo_sparse_mat + !! \see psb_c_base_mat_mod::psb_c_base_cmpmat + interface + function psb_c_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_c_coo_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_coo_cmpmat + end interface + ! == ================= ! ! BASE interfaces @@ -2966,6 +3050,52 @@ module psb_c_base_mat_mod end subroutine psb_lc_base_scal end interface + ! + !> Function base_cmpval: + !! \memberof psb_lc_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_lc_base_cmpval(a,val,tol,info) result(res) + import + class(psb_lc_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_lc_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_lc_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_lc_base_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_lc_base_sparse_mat @@ -3569,6 +3699,34 @@ module psb_c_base_mat_mod end subroutine psb_lc_coo_spaxpby end interface + ! + !! \memberof psb_lc_coo_sparse_mat + !! \see psb_lc_base_mat_mod::psb_lc_base_cmpval + interface + function psb_lc_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_lc_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_coo_cmpval + end interface + + ! + !! \memberof psb_lc_coo_sparse_mat + !! \see psb_lc_base_mat_mod::psb_lc_base_cmpmat + interface + function psb_lc_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_lc_coo_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_coo_cmpmat + end interface + contains diff --git a/base/modules/serial/psb_c_mat_mod.F90 b/base/modules/serial/psb_c_mat_mod.F90 index 3beb188a7..82d565ec8 100644 --- a/base/modules/serial/psb_c_mat_mod.F90 +++ b/base/modules/serial/psb_c_mat_mod.F90 @@ -235,6 +235,9 @@ module psb_c_mat_mod generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_c_scalplusidentity procedure, pass(a) :: spaxpby => psb_c_spaxpby + procedure, pass(a) :: cmpval => psb_c_cmpval + procedure, pass(a) :: cmpmat => psb_c_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_cspmat_type @@ -421,6 +424,9 @@ module psb_c_mat_mod generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_lc_scalplusidentity procedure, pass(a) :: spaxpby => psb_lc_spaxpby + procedure, pass(a) :: cmpval => psb_lc_cmpval + procedure, pass(a) :: cmpmat => psb_lc_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_lcspmat_type @@ -1181,6 +1187,28 @@ module psb_c_mat_mod end subroutine psb_c_spaxpby end interface + interface + function psb_c_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ + class(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_cmpval + end interface + + interface + function psb_c_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_cspmat_type, psb_spk_ + class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_c_cmpmat + end interface + ! == =================================== ! ! @@ -1856,6 +1884,25 @@ module psb_c_mat_mod end function psb_lc_aclsum end interface + interface psb_cmpmat + function psb_lc_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ + class(psb_lcspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_cmpval + function psb_lc_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lcspmat_type, psb_spk_ + class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lc_cmpmat + end interface + contains subroutine psb_c_set_mat_default(a) diff --git a/base/modules/serial/psb_d_base_mat_mod.F90 b/base/modules/serial/psb_d_base_mat_mod.F90 index 6e3c7a46b..a4b78e82f 100644 --- a/base/modules/serial/psb_d_base_mat_mod.F90 +++ b/base/modules/serial/psb_d_base_mat_mod.F90 @@ -127,6 +127,9 @@ module psb_d_base_mat_mod procedure, pass(a) :: aclsum => psb_d_base_aclsum procedure, pass(a) :: scalpid => psb_d_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_d_base_spaxpby + procedure, pass(a) :: cmpval => psb_d_base_cmpval + procedure, pass(a) :: cmpmat => psb_d_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_d_base_sparse_mat private :: d_base_mat_sync, d_base_mat_is_host, d_base_mat_is_dev, & @@ -230,6 +233,8 @@ module psb_d_base_mat_mod procedure, pass(a) :: aclsum => psb_d_coo_aclsum procedure, pass(a) :: scalpid => psb_d_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_d_coo_spaxpby + procedure, pass(a) :: cmpval => psb_d_coo_cmpval + procedure, pass(a) :: cmpmat => psb_d_coo_cmpmat end type psb_d_coo_sparse_mat private :: d_coo_get_nzeros, d_coo_set_nzeros, & @@ -295,6 +300,9 @@ module psb_d_base_mat_mod procedure, pass(a) :: aclsum => psb_ld_base_aclsum procedure, pass(a) :: scalpid => psb_ld_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_ld_base_spaxpby + procedure, pass(a) :: cmpval => psb_ld_base_cmpval + procedure, pass(a) :: cmpmat => psb_ld_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat ! ! Convert internal indices ! @@ -397,6 +405,8 @@ module psb_d_base_mat_mod procedure, pass(a) :: aclsum => psb_ld_coo_aclsum procedure, pass(a) :: scalpid => psb_ld_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_ld_coo_spaxpby + procedure, pass(a) :: cmpval => psb_ld_coo_cmpval + procedure, pass(a) :: cmpmat => psb_ld_coo_cmpmat ! ! This is COO specific ! @@ -1499,6 +1509,52 @@ module psb_d_base_mat_mod end subroutine psb_d_base_spaxpby end interface + ! + !> Function base_cmpval: + !! \memberof psb_d_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_d_base_cmpval(a,val,tol,info) result(res) + import + class(psb_d_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_d_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_d_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_d_base_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_d_base_sparse_mat @@ -2169,6 +2225,34 @@ module psb_d_base_mat_mod end subroutine psb_d_coo_spaxpby end interface + ! + !! \memberof psb_d_coo_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_cmpval + interface + function psb_d_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_d_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_coo_cmpval + end interface + + ! + !! \memberof psb_d_coo_sparse_mat + !! \see psb_d_base_mat_mod::psb_d_base_cmpmat + interface + function psb_d_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_d_coo_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_coo_cmpmat + end interface + ! == ================= ! ! BASE interfaces @@ -2966,6 +3050,52 @@ module psb_d_base_mat_mod end subroutine psb_ld_base_scal end interface + ! + !> Function base_cmpval: + !! \memberof psb_ld_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_ld_base_cmpval(a,val,tol,info) result(res) + import + class(psb_ld_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_ld_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_ld_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_ld_base_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_ld_base_sparse_mat @@ -3569,6 +3699,34 @@ module psb_d_base_mat_mod end subroutine psb_ld_coo_spaxpby end interface + ! + !! \memberof psb_ld_coo_sparse_mat + !! \see psb_ld_base_mat_mod::psb_ld_base_cmpval + interface + function psb_ld_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_ld_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_coo_cmpval + end interface + + ! + !! \memberof psb_ld_coo_sparse_mat + !! \see psb_ld_base_mat_mod::psb_ld_base_cmpmat + interface + function psb_ld_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_ld_coo_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_coo_cmpmat + end interface + contains diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index c0f1577b5..263192399 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -235,6 +235,9 @@ module psb_d_mat_mod generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_d_scalplusidentity procedure, pass(a) :: spaxpby => psb_d_spaxpby + procedure, pass(a) :: cmpval => psb_d_cmpval + procedure, pass(a) :: cmpmat => psb_d_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_dspmat_type @@ -421,6 +424,9 @@ module psb_d_mat_mod generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_ld_scalplusidentity procedure, pass(a) :: spaxpby => psb_ld_spaxpby + procedure, pass(a) :: cmpval => psb_ld_cmpval + procedure, pass(a) :: cmpmat => psb_ld_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_ldspmat_type @@ -1181,6 +1187,28 @@ module psb_d_mat_mod end subroutine psb_d_spaxpby end interface + interface + function psb_d_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ + class(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_cmpval + end interface + + interface + function psb_d_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_dspmat_type, psb_dpk_ + class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_d_cmpmat + end interface + ! == =================================== ! ! @@ -1856,6 +1884,25 @@ module psb_d_mat_mod end function psb_ld_aclsum end interface + interface psb_cmpmat + function psb_ld_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ + class(psb_ldspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_cmpval + function psb_ld_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_ldspmat_type, psb_dpk_ + class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ld_cmpmat + end interface + contains subroutine psb_d_set_mat_default(a) diff --git a/base/modules/serial/psb_s_base_mat_mod.F90 b/base/modules/serial/psb_s_base_mat_mod.F90 index 27f053a4f..9069d48e0 100644 --- a/base/modules/serial/psb_s_base_mat_mod.F90 +++ b/base/modules/serial/psb_s_base_mat_mod.F90 @@ -127,6 +127,9 @@ module psb_s_base_mat_mod procedure, pass(a) :: aclsum => psb_s_base_aclsum procedure, pass(a) :: scalpid => psb_s_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_s_base_spaxpby + procedure, pass(a) :: cmpval => psb_s_base_cmpval + procedure, pass(a) :: cmpmat => psb_s_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_s_base_sparse_mat private :: s_base_mat_sync, s_base_mat_is_host, s_base_mat_is_dev, & @@ -230,6 +233,8 @@ module psb_s_base_mat_mod procedure, pass(a) :: aclsum => psb_s_coo_aclsum procedure, pass(a) :: scalpid => psb_s_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_s_coo_spaxpby + procedure, pass(a) :: cmpval => psb_s_coo_cmpval + procedure, pass(a) :: cmpmat => psb_s_coo_cmpmat end type psb_s_coo_sparse_mat private :: s_coo_get_nzeros, s_coo_set_nzeros, & @@ -295,6 +300,9 @@ module psb_s_base_mat_mod procedure, pass(a) :: aclsum => psb_ls_base_aclsum procedure, pass(a) :: scalpid => psb_ls_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_ls_base_spaxpby + procedure, pass(a) :: cmpval => psb_ls_base_cmpval + procedure, pass(a) :: cmpmat => psb_ls_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat ! ! Convert internal indices ! @@ -397,6 +405,8 @@ module psb_s_base_mat_mod procedure, pass(a) :: aclsum => psb_ls_coo_aclsum procedure, pass(a) :: scalpid => psb_ls_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_ls_coo_spaxpby + procedure, pass(a) :: cmpval => psb_ls_coo_cmpval + procedure, pass(a) :: cmpmat => psb_ls_coo_cmpmat ! ! This is COO specific ! @@ -1499,6 +1509,52 @@ module psb_s_base_mat_mod end subroutine psb_s_base_spaxpby end interface + ! + !> Function base_cmpval: + !! \memberof psb_s_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_s_base_cmpval(a,val,tol,info) result(res) + import + class(psb_s_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_s_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_s_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_s_base_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_s_base_sparse_mat @@ -2169,6 +2225,34 @@ module psb_s_base_mat_mod end subroutine psb_s_coo_spaxpby end interface + ! + !! \memberof psb_s_coo_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_cmpval + interface + function psb_s_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_s_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_coo_cmpval + end interface + + ! + !! \memberof psb_s_coo_sparse_mat + !! \see psb_s_base_mat_mod::psb_s_base_cmpmat + interface + function psb_s_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_s_coo_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_coo_cmpmat + end interface + ! == ================= ! ! BASE interfaces @@ -2966,6 +3050,52 @@ module psb_s_base_mat_mod end subroutine psb_ls_base_scal end interface + ! + !> Function base_cmpval: + !! \memberof psb_ls_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_ls_base_cmpval(a,val,tol,info) result(res) + import + class(psb_ls_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_ls_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_ls_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_ls_base_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_ls_base_sparse_mat @@ -3569,6 +3699,34 @@ module psb_s_base_mat_mod end subroutine psb_ls_coo_spaxpby end interface + ! + !! \memberof psb_ls_coo_sparse_mat + !! \see psb_ls_base_mat_mod::psb_ls_base_cmpval + interface + function psb_ls_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_ls_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_coo_cmpval + end interface + + ! + !! \memberof psb_ls_coo_sparse_mat + !! \see psb_ls_base_mat_mod::psb_ls_base_cmpmat + interface + function psb_ls_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_ls_coo_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_coo_cmpmat + end interface + contains diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index c3b19516c..32a2f378e 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -235,6 +235,9 @@ module psb_s_mat_mod generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_s_scalplusidentity procedure, pass(a) :: spaxpby => psb_s_spaxpby + procedure, pass(a) :: cmpval => psb_s_cmpval + procedure, pass(a) :: cmpmat => psb_s_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_sspmat_type @@ -421,6 +424,9 @@ module psb_s_mat_mod generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_ls_scalplusidentity procedure, pass(a) :: spaxpby => psb_ls_spaxpby + procedure, pass(a) :: cmpval => psb_ls_cmpval + procedure, pass(a) :: cmpmat => psb_ls_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_lsspmat_type @@ -1181,6 +1187,28 @@ module psb_s_mat_mod end subroutine psb_s_spaxpby end interface + interface + function psb_s_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ + class(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_cmpval + end interface + + interface + function psb_s_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_sspmat_type, psb_spk_ + class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_s_cmpmat + end interface + ! == =================================== ! ! @@ -1856,6 +1884,25 @@ module psb_s_mat_mod end function psb_ls_aclsum end interface + interface psb_cmpmat + function psb_ls_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ + class(psb_lsspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_cmpval + function psb_ls_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lsspmat_type, psb_spk_ + class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_ls_cmpmat + end interface + contains subroutine psb_s_set_mat_default(a) diff --git a/base/modules/serial/psb_z_base_mat_mod.F90 b/base/modules/serial/psb_z_base_mat_mod.F90 index c43373db5..cc7b2e22c 100644 --- a/base/modules/serial/psb_z_base_mat_mod.F90 +++ b/base/modules/serial/psb_z_base_mat_mod.F90 @@ -127,6 +127,9 @@ module psb_z_base_mat_mod procedure, pass(a) :: aclsum => psb_z_base_aclsum procedure, pass(a) :: scalpid => psb_z_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_z_base_spaxpby + procedure, pass(a) :: cmpval => psb_z_base_cmpval + procedure, pass(a) :: cmpmat => psb_z_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_z_base_sparse_mat private :: z_base_mat_sync, z_base_mat_is_host, z_base_mat_is_dev, & @@ -230,6 +233,8 @@ module psb_z_base_mat_mod procedure, pass(a) :: aclsum => psb_z_coo_aclsum procedure, pass(a) :: scalpid => psb_z_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_z_coo_spaxpby + procedure, pass(a) :: cmpval => psb_z_coo_cmpval + procedure, pass(a) :: cmpmat => psb_z_coo_cmpmat end type psb_z_coo_sparse_mat private :: z_coo_get_nzeros, z_coo_set_nzeros, & @@ -295,6 +300,9 @@ module psb_z_base_mat_mod procedure, pass(a) :: aclsum => psb_lz_base_aclsum procedure, pass(a) :: scalpid => psb_lz_base_scalplusidentity procedure, pass(a) :: spaxpby => psb_lz_base_spaxpby + procedure, pass(a) :: cmpval => psb_lz_base_cmpval + procedure, pass(a) :: cmpmat => psb_lz_base_cmpmat + generic, public :: spcmp => cmpval, cmpmat ! ! Convert internal indices ! @@ -397,6 +405,8 @@ module psb_z_base_mat_mod procedure, pass(a) :: aclsum => psb_lz_coo_aclsum procedure, pass(a) :: scalpid => psb_lz_coo_scalplusidentity procedure, pass(a) :: spaxpby => psb_lz_coo_spaxpby + procedure, pass(a) :: cmpval => psb_lz_coo_cmpval + procedure, pass(a) :: cmpmat => psb_lz_coo_cmpmat ! ! This is COO specific ! @@ -1499,6 +1509,52 @@ module psb_z_base_mat_mod end subroutine psb_z_base_spaxpby end interface + ! + !> Function base_cmpval: + !! \memberof psb_z_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_z_base_cmpval(a,val,tol,info) result(res) + import + class(psb_z_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_z_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_z_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_z_base_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_z_base_sparse_mat @@ -2169,6 +2225,34 @@ module psb_z_base_mat_mod end subroutine psb_z_coo_spaxpby end interface + ! + !! \memberof psb_z_coo_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_cmpval + interface + function psb_z_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_z_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_coo_cmpval + end interface + + ! + !! \memberof psb_z_coo_sparse_mat + !! \see psb_z_base_mat_mod::psb_z_base_cmpmat + interface + function psb_z_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_z_coo_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_coo_cmpmat + end interface + ! == ================= ! ! BASE interfaces @@ -2966,6 +3050,52 @@ module psb_z_base_mat_mod end subroutine psb_lz_base_scal end interface + ! + !> Function base_cmpval: + !! \memberof psb_lz_base_sparse_mat + !! \brief Compare the element of A with the value val |A(i,j) -val| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param val comparing element for the entries of A + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_lz_base_cmpval(a,val,tol,info) result(res) + import + class(psb_lz_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_base_cmpval + end interface + + ! + !> Function base_cmpmat: + !! \memberof psb_lz_base_sparse_mat + !! \brief Compare the element of A with the ones of B |A(i,j) - B(i,j)| < tol + !! + !! \param alpha scaling for A + !! \param A sparse matrix A (intent inout) + !! \param A sparse matrix B (intent inout) + !! \param tol tolerance to which the comparison is done + !! \param res return logical + !! \param info return code + ! + interface + function psb_lz_base_cmpmat(a,b,tol,info) result(res) + import + class(psb_lz_base_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_base_cmpmat + end interface + ! !> Function base_maxval: !! \memberof psb_lz_base_sparse_mat @@ -3569,6 +3699,34 @@ module psb_z_base_mat_mod end subroutine psb_lz_coo_spaxpby end interface + ! + !! \memberof psb_lz_coo_sparse_mat + !! \see psb_lz_base_mat_mod::psb_lz_base_cmpval + interface + function psb_lz_coo_cmpval(a,val,tol,info) result(res) + import + class(psb_lz_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_coo_cmpval + end interface + + ! + !! \memberof psb_lz_coo_sparse_mat + !! \see psb_lz_base_mat_mod::psb_lz_base_cmpmat + interface + function psb_lz_coo_cmpmat(a,b,tol,info) result(res) + import + class(psb_lz_coo_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_coo_cmpmat + end interface + contains diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index da7776a3f..7a32cde86 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -235,6 +235,9 @@ module psb_z_mat_mod generic, public :: spsm => cssm, cssv, cssv_v procedure, pass(a) :: scalpid => psb_z_scalplusidentity procedure, pass(a) :: spaxpby => psb_z_spaxpby + procedure, pass(a) :: cmpval => psb_z_cmpval + procedure, pass(a) :: cmpmat => psb_z_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_zspmat_type @@ -421,6 +424,9 @@ module psb_z_mat_mod generic, public :: scal => scals, scalv procedure, pass(a) :: scalpid => psb_lz_scalplusidentity procedure, pass(a) :: spaxpby => psb_lz_spaxpby + procedure, pass(a) :: cmpval => psb_lz_cmpval + procedure, pass(a) :: cmpmat => psb_lz_cmpmat + generic, public :: spcmp => cmpval, cmpmat end type psb_lzspmat_type @@ -1181,6 +1187,28 @@ module psb_z_mat_mod end subroutine psb_z_spaxpby end interface + interface + function psb_z_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ + class(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_cmpval + end interface + + interface + function psb_z_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_zspmat_type, psb_dpk_ + class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_z_cmpmat + end interface + ! == =================================== ! ! @@ -1856,6 +1884,25 @@ module psb_z_mat_mod end function psb_lz_aclsum end interface + interface psb_cmpmat + function psb_lz_cmpval(a,val,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ + class(psb_lzspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_cmpval + function psb_lz_cmpmat(a,b,tol,info) result(res) + import :: psb_ipk_, psb_lpk_, psb_lzspmat_type, psb_dpk_ + class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + end function psb_lz_cmpmat + end interface + contains subroutine psb_z_set_mat_default(a) diff --git a/base/psblas/psb_ccmp_vect.f90 b/base/psblas/psb_ccmp_vect.f90 index a04298522..64298a74f 100644 --- a/base/psblas/psb_ccmp_vect.f90 +++ b/base/psblas/psb_ccmp_vect.f90 @@ -104,3 +104,140 @@ subroutine psb_ccmp_vect(x,c,z,desc_a,info) end subroutine psb_ccmp_vect +subroutine psb_ccmp_spmatval(a,val,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_ccmp_spmatval + implicit none + type(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja + integer(psb_ipk_) :: iia,jja + + name='psb_ccmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(val,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_ccmp_spmatval + +subroutine psb_ccmp_spmat(a,b,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_ccmp_spmat + implicit none + type(psb_cspmat_type), intent(inout) :: a + type(psb_cspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja,ib,jb + integer(psb_ipk_) :: iia,jja,iib,jjb + + name='psb_ccmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + ib = 1 + jb = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(b,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_ccmp_spmat diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 index 77147497d..98d4251e3 100644 --- a/base/psblas/psb_dcmp_vect.f90 +++ b/base/psblas/psb_dcmp_vect.f90 @@ -226,3 +226,140 @@ subroutine psb_dmask_vect(c,x,m,t,desc_a,info) end subroutine psb_dmask_vect +subroutine psb_dcmp_spmatval(a,val,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_dcmp_spmatval + implicit none + type(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja + integer(psb_ipk_) :: iia,jja + + name='psb_dcmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(val,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_dcmp_spmatval + +subroutine psb_dcmp_spmat(a,b,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_dcmp_spmat + implicit none + type(psb_dspmat_type), intent(inout) :: a + type(psb_dspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja,ib,jb + integer(psb_ipk_) :: iia,jja,iib,jjb + + name='psb_dcmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + ib = 1 + jb = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(b,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_dcmp_spmat diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 index a7b65b1d4..beb2067a1 100644 --- a/base/psblas/psb_scmp_vect.f90 +++ b/base/psblas/psb_scmp_vect.f90 @@ -226,3 +226,140 @@ subroutine psb_smask_vect(c,x,m,t,desc_a,info) end subroutine psb_smask_vect +subroutine psb_scmp_spmatval(a,val,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_scmp_spmatval + implicit none + type(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja + integer(psb_ipk_) :: iia,jja + + name='psb_scmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(val,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_scmp_spmatval + +subroutine psb_scmp_spmat(a,b,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_scmp_spmat + implicit none + type(psb_sspmat_type), intent(inout) :: a + type(psb_sspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja,ib,jb + integer(psb_ipk_) :: iia,jja,iib,jjb + + name='psb_scmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + ib = 1 + jb = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(b,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_scmp_spmat diff --git a/base/psblas/psb_zcmp_vect.f90 b/base/psblas/psb_zcmp_vect.f90 index 50d9bce53..b607e0b86 100644 --- a/base/psblas/psb_zcmp_vect.f90 +++ b/base/psblas/psb_zcmp_vect.f90 @@ -104,3 +104,140 @@ subroutine psb_zcmp_vect(x,c,z,desc_a,info) end subroutine psb_zcmp_vect +subroutine psb_zcmp_spmatval(a,val,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_zcmp_spmatval + implicit none + type(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja + integer(psb_ipk_) :: iia,jja + + name='psb_zcmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(val,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return +end subroutine psb_zcmp_spmatval + +subroutine psb_zcmp_spmat(a,b,tol,desc_a,res,info) + use psb_base_mod, psb_protect_name => psb_zcmp_spmat + implicit none + type(psb_zspmat_type), intent(inout) :: a + type(psb_zspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + type(psb_desc_type), intent (in) :: desc_a + integer(psb_ipk_), intent(out) :: info + logical, intent(out) :: res + + ! Local + integer(psb_ipk_) :: ictxt, np, me + integer(psb_ipk_) :: err_act + character(len=20) :: name, ch_err + integer(psb_ipk_) :: debug_level, debug_unit + integer(psb_lpk_) :: m,n,ia,ja,ib,jb + integer(psb_ipk_) :: iia,jja,iib,jjb + + name='psb_zcmp_spmatval' + info=psb_success_ + 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() + + ictxt=desc_a%get_context() + call psb_info(ictxt, me, np) + if (np == -1) then + info = psb_err_context_error_ + call psb_errpush(info,name) + goto 9999 + endif + + ia = 1 + ja = 1 + ib = 1 + jb = 1 + m = desc_a%get_global_rows() + n = desc_a%get_global_cols() + ! checking for matrix correctness + call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_1' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) + if(info /= psb_success_) then + info=psb_err_from_subroutine_ + ch_err='psb_chkmat_2' + call psb_errpush(info,name,a_err=ch_err) + goto 9999 + end if + + res = a%spcmp(b,tol,info) + + call psb_lallreduceand(ictxt,res) + + call psb_erractionrestore(err_act) + if (debug_level >= psb_debug_comp_) then + call psb_barrier(ictxt) + write(debug_unit,*) me,' ',trim(name),' Returning ' + endif + return + +9999 call psb_error_handler(ictxt,err_act) + + return + +end subroutine psb_zcmp_spmat diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index b9d37636a..5ac480e6e 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -1865,6 +1865,92 @@ subroutine psb_c_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_c_base_spaxpby +function psb_c_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cmpval + + class(psb_c_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_c_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_c_base_cmpval + +function psb_c_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_c_base_cmpmat + + class(psb_c_base_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_c_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_c_base_cmpmat + ! == ================================== ! ! @@ -3819,6 +3905,92 @@ subroutine psb_lc_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_lc_base_spaxpby +function psb_lc_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cmpval + + class(psb_lc_base_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_lc_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lc_base_cmpval + +function psb_lc_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_lc_base_cmpmat + + class(psb_lc_base_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_lc_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lc_base_cmpmat + subroutine psb_lc_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 733f576eb..644c3638a 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -277,6 +277,106 @@ subroutine psb_c_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_c_coo_spaxpby +function psb_c_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_cmpval + + class(psb_c_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_ipk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_c_coo_cmpval + +function psb_c_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_cmpmat + + class(psb_c_coo_sparse_mat), intent(inout) :: a + class(psb_c_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_ipk_) :: nza, nzb, M, N + type(psb_c_coo_sparse_mat) :: tcoo, bcoo + real(psb_spk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = maxval(abs(tcoo%val)); + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_c_coo_cmpmat + subroutine psb_c_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_c_coo_reallocate_nz use psb_error_mod @@ -4681,6 +4781,106 @@ subroutine psb_lc_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_lc_coo_spaxpby +function psb_lc_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_cmpval + + class(psb_lc_coo_sparse_mat), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_lpk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lc_coo_cmpval + +function psb_lc_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_cmpmat + + class(psb_lc_coo_sparse_mat), intent(inout) :: a + class(psb_lc_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_lpk_) :: nza, nzb, M, N + type(psb_lc_coo_sparse_mat) :: tcoo, bcoo + real(psb_spk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = tcoo%spnmi() + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lc_coo_cmpmat + subroutine psb_lc_coo_reallocate_nz(nz,a) use psb_c_base_mat_mod, psb_protect_name => psb_lc_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90 index 22adbd3a8..5663bc29b 100644 --- a/base/serial/impl/psb_c_mat_impl.F90 +++ b/base/serial/impl/psb_c_mat_impl.F90 @@ -2521,6 +2521,78 @@ subroutine psb_c_spaxpby(alpha,a,beta,b,info) end subroutine psb_c_spaxpby +function psb_c_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_c_cmpval + implicit none + class(psb_cspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_c_cmpval + +function psb_c_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_c_cmpmat + implicit none + class(psb_cspmat_type), intent(inout) :: a + class(psb_cspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_c_cmpmat + subroutine psb_c_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4720,6 +4792,78 @@ subroutine psb_lc_spaxpby(alpha,a,beta,b,info) end subroutine psb_lc_spaxpby +function psb_lc_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_lc_cmpval + implicit none + class(psb_lcspmat_type), intent(inout) :: a + complex(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_lc_cmpval + +function psb_lc_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_c_mat_mod, psb_protect_name => psb_lc_cmpmat + implicit none + class(psb_lcspmat_type), intent(inout) :: a + class(psb_lcspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_lc_cmpmat + function psb_lc_maxval(a) result(res) use psb_c_mat_mod, psb_protect_name => psb_lc_maxval use psb_error_mod diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index c432808a1..65bc1bff5 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -1865,6 +1865,92 @@ subroutine psb_d_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_d_base_spaxpby +function psb_d_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cmpval + + class(psb_d_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_d_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_d_base_cmpval + +function psb_d_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_d_base_cmpmat + + class(psb_d_base_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_d_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_d_base_cmpmat + ! == ================================== ! ! @@ -3819,6 +3905,92 @@ subroutine psb_ld_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_ld_base_spaxpby +function psb_ld_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cmpval + + class(psb_ld_base_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_ld_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ld_base_cmpval + +function psb_ld_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_ld_base_cmpmat + + class(psb_ld_base_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_ld_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ld_base_cmpmat + subroutine psb_ld_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index 29ff8d89f..7255cb7a0 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -277,6 +277,106 @@ subroutine psb_d_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_d_coo_spaxpby +function psb_d_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_cmpval + + class(psb_d_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_ipk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_d_coo_cmpval + +function psb_d_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_cmpmat + + class(psb_d_coo_sparse_mat), intent(inout) :: a + class(psb_d_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_ipk_) :: nza, nzb, M, N + type(psb_d_coo_sparse_mat) :: tcoo, bcoo + real(psb_dpk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = maxval(abs(tcoo%val)); + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_d_coo_cmpmat + subroutine psb_d_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_d_coo_reallocate_nz use psb_error_mod @@ -4681,6 +4781,106 @@ subroutine psb_ld_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_ld_coo_spaxpby +function psb_ld_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_cmpval + + class(psb_ld_coo_sparse_mat), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_lpk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ld_coo_cmpval + +function psb_ld_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_cmpmat + + class(psb_ld_coo_sparse_mat), intent(inout) :: a + class(psb_ld_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_lpk_) :: nza, nzb, M, N + type(psb_ld_coo_sparse_mat) :: tcoo, bcoo + real(psb_dpk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = tcoo%spnmi() + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ld_coo_cmpmat + subroutine psb_ld_coo_reallocate_nz(nz,a) use psb_d_base_mat_mod, psb_protect_name => psb_ld_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90 index 1ef8305d7..c8288a719 100644 --- a/base/serial/impl/psb_d_mat_impl.F90 +++ b/base/serial/impl/psb_d_mat_impl.F90 @@ -2521,6 +2521,78 @@ subroutine psb_d_spaxpby(alpha,a,beta,b,info) end subroutine psb_d_spaxpby +function psb_d_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_d_cmpval + implicit none + class(psb_dspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_d_cmpval + +function psb_d_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_d_cmpmat + implicit none + class(psb_dspmat_type), intent(inout) :: a + class(psb_dspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_d_cmpmat + subroutine psb_d_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4720,6 +4792,78 @@ subroutine psb_ld_spaxpby(alpha,a,beta,b,info) end subroutine psb_ld_spaxpby +function psb_ld_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_ld_cmpval + implicit none + class(psb_ldspmat_type), intent(inout) :: a + real(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_ld_cmpval + +function psb_ld_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_d_mat_mod, psb_protect_name => psb_ld_cmpmat + implicit none + class(psb_ldspmat_type), intent(inout) :: a + class(psb_ldspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_ld_cmpmat + function psb_ld_maxval(a) result(res) use psb_d_mat_mod, psb_protect_name => psb_ld_maxval use psb_error_mod diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index cffc4d8a5..1e791b365 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -1865,6 +1865,92 @@ subroutine psb_s_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_s_base_spaxpby +function psb_s_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cmpval + + class(psb_s_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_s_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_s_base_cmpval + +function psb_s_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_s_base_cmpmat + + class(psb_s_base_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_s_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_s_base_cmpmat + ! == ================================== ! ! @@ -3819,6 +3905,92 @@ subroutine psb_ls_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_ls_base_spaxpby +function psb_ls_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cmpval + + class(psb_ls_base_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_ls_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ls_base_cmpval + +function psb_ls_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_ls_base_cmpmat + + class(psb_ls_base_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_ls_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ls_base_cmpmat + subroutine psb_ls_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index 05cafaa83..db8d908c8 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -277,6 +277,106 @@ subroutine psb_s_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_s_coo_spaxpby +function psb_s_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_cmpval + + class(psb_s_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_ipk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_s_coo_cmpval + +function psb_s_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_cmpmat + + class(psb_s_coo_sparse_mat), intent(inout) :: a + class(psb_s_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_ipk_) :: nza, nzb, M, N + type(psb_s_coo_sparse_mat) :: tcoo, bcoo + real(psb_spk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = maxval(abs(tcoo%val)); + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_s_coo_cmpmat + subroutine psb_s_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_s_coo_reallocate_nz use psb_error_mod @@ -4681,6 +4781,106 @@ subroutine psb_ls_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_ls_coo_spaxpby +function psb_ls_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_cmpval + + class(psb_ls_coo_sparse_mat), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_lpk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ls_coo_cmpval + +function psb_ls_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_cmpmat + + class(psb_ls_coo_sparse_mat), intent(inout) :: a + class(psb_ls_base_sparse_mat), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_lpk_) :: nza, nzb, M, N + type(psb_ls_coo_sparse_mat) :: tcoo, bcoo + real(psb_spk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = tcoo%spnmi() + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_ls_coo_cmpmat + subroutine psb_ls_coo_reallocate_nz(nz,a) use psb_s_base_mat_mod, psb_protect_name => psb_ls_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90 index 9b3d13430..65deb5a72 100644 --- a/base/serial/impl/psb_s_mat_impl.F90 +++ b/base/serial/impl/psb_s_mat_impl.F90 @@ -2521,6 +2521,78 @@ subroutine psb_s_spaxpby(alpha,a,beta,b,info) end subroutine psb_s_spaxpby +function psb_s_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_s_cmpval + implicit none + class(psb_sspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_s_cmpval + +function psb_s_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_s_cmpmat + implicit none + class(psb_sspmat_type), intent(inout) :: a + class(psb_sspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_s_cmpmat + subroutine psb_s_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4720,6 +4792,78 @@ subroutine psb_ls_spaxpby(alpha,a,beta,b,info) end subroutine psb_ls_spaxpby +function psb_ls_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_ls_cmpval + implicit none + class(psb_lsspmat_type), intent(inout) :: a + real(psb_spk_), intent(in) :: val + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_ls_cmpval + +function psb_ls_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_s_mat_mod, psb_protect_name => psb_ls_cmpmat + implicit none + class(psb_lsspmat_type), intent(inout) :: a + class(psb_lsspmat_type), intent(inout) :: b + real(psb_spk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_ls_cmpmat + function psb_ls_maxval(a) result(res) use psb_s_mat_mod, psb_protect_name => psb_ls_maxval use psb_error_mod diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index 6490657d8..d54000ff4 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -1865,6 +1865,92 @@ subroutine psb_z_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_z_base_spaxpby +function psb_z_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cmpval + + class(psb_z_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_z_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_z_base_cmpval + +function psb_z_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_z_base_cmpmat + + class(psb_z_base_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_z_coo_sparse_mat) :: acoo + + call a%cp_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_z_base_cmpmat + ! == ================================== ! ! @@ -3819,6 +3905,92 @@ subroutine psb_lz_base_spaxpby(alpha,a,beta,b,info) return end subroutine psb_lz_base_spaxpby +function psb_lz_base_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cmpval + + class(psb_lz_base_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + type(psb_lz_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + res = acoo%spcmp(val,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpval') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lz_base_cmpval + +function psb_lz_base_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_lz_base_cmpmat + + class(psb_lz_base_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + type(psb_lz_coo_sparse_mat) :: acoo + + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + ! Fix the indexes + call acoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + res = acoo%spcmp(b,tol,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cmpmat') + goto 9999 + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lz_base_cmpmat + subroutine psb_lz_base_get_diag(a,d,info) use psb_error_mod use psb_const_mod diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index 5384d507e..73667152c 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -277,6 +277,106 @@ subroutine psb_z_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_z_coo_spaxpby +function psb_z_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_cmpval + + class(psb_z_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_ipk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_z_coo_cmpval + +function psb_z_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_cmpmat + + class(psb_z_coo_sparse_mat), intent(inout) :: a + class(psb_z_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_ipk_) :: nza, nzb, M, N + type(psb_z_coo_sparse_mat) :: tcoo, bcoo + real(psb_dpk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = maxval(abs(tcoo%val)); + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_z_coo_cmpmat + subroutine psb_z_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_z_coo_reallocate_nz use psb_error_mod @@ -4681,6 +4781,106 @@ subroutine psb_lz_coo_spaxpby(alpha,a,beta,b,info) return end subroutine psb_lz_coo_spaxpby +function psb_lz_coo_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_cmpval + + class(psb_lz_coo_sparse_mat), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + integer(psb_lpk_) :: nza + + nza = a%get_nzeros() + + if (any(abs(a%val(1:nza)-val) > tol)) then + res = .false. + else + res = .true. + end if + + info = psb_success_ + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lz_coo_cmpval + +function psb_lz_coo_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_cmpmat + + class(psb_lz_coo_sparse_mat), intent(inout) :: a + class(psb_lz_base_sparse_mat), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + integer(psb_ipk_), intent(out) :: info + logical :: res + + ! Auxiliary + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + integer(psb_lpk_) :: nza, nzb, M, N + type(psb_lz_coo_sparse_mat) :: tcoo, bcoo + real(psb_dpk_) :: normval + + ! Copy (whatever) b format to coo + call b%cp_to_coo(bcoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='cp_to_coo') + goto 9999 + end if + ! Get information on the matrix + M = a%get_nrows() + N = a%get_ncols() + nza = a%get_nzeros() + nzb = b%get_nzeros() + ! Allocate (temporary) space for the solution + call tcoo%allocate(M,N,(nza+nzb)) + ! Compute the sum + tcoo%ia(1:nza) = a%ia(1:nza) + tcoo%ja(1:nza) = a%ja(1:nza) + tcoo%val(1:nza) = a%val(1:nza) + tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) + tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + ! Fix the indexes + call tcoo%fix(info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='fix') + goto 9999 + end if + + normval = tcoo%spnmi() + + if ( normval > tol) then + res = .false. + else + res = .true. + end if + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return +end function psb_lz_coo_cmpmat + subroutine psb_lz_coo_reallocate_nz(nz,a) use psb_z_base_mat_mod, psb_protect_name => psb_lz_coo_reallocate_nz use psb_error_mod diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90 index 424f37001..ed16fdeca 100644 --- a/base/serial/impl/psb_z_mat_impl.F90 +++ b/base/serial/impl/psb_z_mat_impl.F90 @@ -2521,6 +2521,78 @@ subroutine psb_z_spaxpby(alpha,a,beta,b,info) end subroutine psb_z_spaxpby +function psb_z_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_z_cmpval + implicit none + class(psb_zspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_z_cmpval + +function psb_z_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_z_cmpmat + implicit none + class(psb_zspmat_type), intent(inout) :: a + class(psb_zspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_z_cmpmat + subroutine psb_z_mv_from_lb(a,b) use psb_error_mod use psb_const_mod @@ -4720,6 +4792,78 @@ subroutine psb_lz_spaxpby(alpha,a,beta,b,info) end subroutine psb_lz_spaxpby +function psb_lz_cmpval(a,val,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_lz_cmpval + implicit none + class(psb_lzspmat_type), intent(inout) :: a + complex(psb_dpk_), intent(in) :: val + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpval' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(val,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_lz_cmpval + +function psb_lz_cmpmat(a,b,tol,info) result(res) + use psb_error_mod + use psb_const_mod + use psb_z_mat_mod, psb_protect_name => psb_lz_cmpmat + implicit none + class(psb_lzspmat_type), intent(inout) :: a + class(psb_lzspmat_type), intent(inout) :: b + real(psb_dpk_), intent(in) :: tol + logical :: res + integer(psb_ipk_), intent(out) :: info + + integer(psb_ipk_) :: err_act + character(len=20) :: name='cmpmat' + logical, parameter :: debug=.false. + + res = .false. + info = psb_success_ + call psb_erractionsave(err_act) + if (.not.allocated(a%a)) then + info = psb_err_invalid_mat_state_ + call psb_errpush(info,name) + goto 9999 + endif + + res = a%a%spcmp(b%a,tol,info) + if (info /= psb_success_) goto 9999 + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(err_act) + + return + +end function psb_lz_cmpmat + function psb_lz_maxval(a) result(res) use psb_z_mat_mod, psb_protect_name => psb_lz_maxval use psb_error_mod diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index dbf8a88a9..703f86a2c 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -463,6 +463,66 @@ contains end function psb_c_cgecmp + function psb_c_cgecmpmat(ah,bh,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_cspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap,bp + integer(psb_c_ipk_) :: info + real(c_float_complex), value :: tol + + 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 + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call psb_gecmp(ap,bp,tol,descp,res,info) + + end function psb_c_cgecmpmat + + function psb_c_cgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + complex(c_float_complex), value :: val + real(c_float_complex), value :: tol + + 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 + + call psb_gecmp(ap,val,tol,descp,res,info) + + end function psb_c_cgecmpmat_val + function psb_c_cgeaddconst(xh,bh,zh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index aef9636f2..198c6f799 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -463,6 +463,66 @@ contains end function psb_c_dgecmp + function psb_c_dgecmpmat(ah,bh,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_dspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap,bp + integer(psb_c_ipk_) :: info + real(c_double), value :: tol + + 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 + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call psb_gecmp(ap,bp,tol,descp,res,info) + + end function psb_c_dgecmpmat + + function psb_c_dgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + real(c_double), value :: val + real(c_double), value :: tol + + 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 + + call psb_gecmp(ap,val,tol,descp,res,info) + + end function psb_c_dgecmpmat_val + function psb_c_dgeaddconst(xh,bh,zh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index ab7738196..96a0f3047 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -463,6 +463,66 @@ contains end function psb_c_sgecmp + function psb_c_sgecmpmat(ah,bh,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_sspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap,bp + integer(psb_c_ipk_) :: info + real(c_float), value :: tol + + 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 + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call psb_gecmp(ap,bp,tol,descp,res,info) + + end function psb_c_sgecmpmat + + function psb_c_sgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + real(c_float), value :: val + real(c_float), value :: tol + + 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 + + call psb_gecmp(ap,val,tol,descp,res,info) + + end function psb_c_sgecmpmat_val + function psb_c_sgeaddconst(xh,bh,zh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index b7bf00389..fbd5797a3 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -463,6 +463,66 @@ contains end function psb_c_zgecmp + function psb_c_zgecmpmat(ah,bh,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_zspmat) :: ah,bh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap,bp + integer(psb_c_ipk_) :: info + real(c_double_complex), value :: tol + + 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 + if (c_associated(bh%item)) then + call c_f_pointer(bh%item,bp) + else + return + end if + + call psb_gecmp(ap,bp,tol,descp,res,info) + + end function psb_c_zgecmpmat + + function psb_c_zgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) + implicit none + logical :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info + complex(c_double_complex), value :: val + real(c_double_complex), value :: tol + + 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 + + call psb_gecmp(ap,val,tol,descp,res,info) + + end function psb_c_zgecmpmat_val + function psb_c_zgeaddconst(xh,bh,zh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res From 346ed5f8f8eb3eed61e6ad6c325b4659aaf31da3 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 9 Apr 2020 19:41:16 +0200 Subject: [PATCH 54/61] Added prototype for matrix compare routines --- cbind/base/psb_c_cbase.h | 2 ++ cbind/base/psb_c_dbase.h | 2 ++ cbind/base/psb_c_sbase.h | 2 ++ cbind/base/psb_c_zbase.h | 2 ++ 4 files changed, 8 insertions(+) diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index 73610ba18..c2cd173cf 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -82,6 +82,8 @@ psb_i_t psb_c_cgeinv(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_cgeinv_check(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_cgeabs(psb_c_cvector *xh,psb_c_cvector *yh,psb_c_cvector *cdh); psb_i_t psb_c_cgecmp(psb_c_cvector *xh,psb_s_t ch,psb_c_cvector *zh,psb_c_descriptor *cdh); +bool psb_c_cgecmpmat(psb_c_cspmat *ah,psb_c_cspmat *bh,psb_s_t tol,psb_c_descriptor *cdh); +bool psb_c_cgecmpmat_val(psb_c_cspmat *ah,psb_c_t val,psb_s_t tol,psb_c_descriptor *cdh); psb_i_t psb_c_cgeaddconst(psb_c_cvector *xh,psb_c_t bh,psb_c_cvector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weight(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_cgenrm2_weightmask(psb_c_cvector *xh,psb_c_cvector *wh,psb_c_cvector *idvh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 4d4fd1f09..7ee41f59a 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -82,6 +82,8 @@ psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); +bool psb_c_dgecmpmat(psb_c_dspmat *ah,psb_c_dspmat *bh,psb_d_t tol,psb_c_descriptor *cdh); +bool psb_c_dgecmpmat_val(psb_c_dspmat *ah,psb_d_t val,psb_d_t tol,psb_c_descriptor *cdh); psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index fb9a49320..85333decd 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -82,6 +82,8 @@ psb_i_t psb_c_sgeinv(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgeinv_check(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_sgeabs(psb_c_svector *xh,psb_c_svector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_sgecmp(psb_c_svector *xh,psb_s_t ch,psb_c_svector *zh,psb_c_descriptor *cdh); +bool psb_c_sgecmpmat(psb_c_sspmat *ah,psb_c_sspmat *bh,psb_s_t tol,psb_c_descriptor *cdh); +bool psb_c_sgecmpmat_val(psb_c_sspmat *ah,psb_s_t val,psb_s_t tol,psb_c_descriptor *cdh); psb_i_t psb_c_sgeaddconst(psb_c_svector *xh,psb_s_t bh,psb_c_svector *zh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weight(psb_c_svector *xh,psb_c_svector *wh,psb_c_descriptor *cdh); psb_s_t psb_c_sgenrm2_weightmask(psb_c_svector *xh,psb_c_svector *wh,psb_c_svector *idvh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index f2a34a774..48250c555 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -83,6 +83,8 @@ psb_i_t psb_c_zgeinv(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgeinv_check(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_zgeabs(psb_c_zvector *xh,psb_c_zvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_zgecmp(psb_c_zvector *xh,psb_d_t ch,psb_c_zvector *zh,psb_c_descriptor *cdh); +bool psb_c_zgecmpmat(psb_c_zspmat *ah,psb_c_zspmat *bh,psb_d_t tol,psb_c_descriptor *cdh); +bool psb_c_zgecmpmat_val(psb_c_zspmat *ah,psb_z_t val,psb_d_t tol,psb_c_descriptor *cdh); psb_i_t psb_c_zgeaddconst(psb_c_zvector *xh,psb_z_t bh,psb_c_zvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weight(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_zgenrm2_weightmask(psb_c_zvector *xh,psb_c_zvector *wh,psb_c_zvector *idvh,psb_c_descriptor *cdh); From ce6c04f50859cedc460f1bdde37f58f74b6294fd Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 14 Apr 2020 13:08:18 +0200 Subject: [PATCH 55/61] Corrected output of matrix cmp routines --- cbind/base/psb_c_dbase.h | 4 ++-- cbind/base/psb_c_psblas_cbind_mod.f90 | 14 ++++++++++---- cbind/base/psb_d_psblas_cbind_mod.f90 | 14 ++++++++++---- cbind/base/psb_s_psblas_cbind_mod.f90 | 14 ++++++++++---- cbind/base/psb_z_psblas_cbind_mod.f90 | 14 ++++++++++---- 5 files changed, 42 insertions(+), 18 deletions(-) diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 7ee41f59a..ece7b840b 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -82,8 +82,8 @@ psb_i_t psb_c_dgeinv(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgeinv_check(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh, bool flag); psb_i_t psb_c_dgeabs(psb_c_dvector *xh,psb_c_dvector *yh,psb_c_descriptor *cdh); psb_i_t psb_c_dgecmp(psb_c_dvector *xh,psb_d_t ch,psb_c_dvector *zh,psb_c_descriptor *cdh); -bool psb_c_dgecmpmat(psb_c_dspmat *ah,psb_c_dspmat *bh,psb_d_t tol,psb_c_descriptor *cdh); -bool psb_c_dgecmpmat_val(psb_c_dspmat *ah,psb_d_t val,psb_d_t tol,psb_c_descriptor *cdh); +bool psb_c_dgecmpmat(psb_c_dspmat *ah,psb_c_dspmat *bh,psb_d_t tol,psb_c_descriptor *cdh); +bool psb_c_dgecmpmat_val(psb_c_dspmat *ah,psb_d_t val,psb_d_t tol,psb_c_descriptor *cdh); psb_i_t psb_c_dgeaddconst(psb_c_dvector *xh,psb_d_t bh,psb_c_dvector *zh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weight(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_descriptor *cdh); psb_d_t psb_c_dgenrm2_weightmask(psb_c_dvector *xh,psb_c_dvector *wh,psb_c_dvector *idvh,psb_c_descriptor *cdh); diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 703f86a2c..c849b3c67 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -465,7 +465,7 @@ contains function psb_c_cgecmpmat(ah,bh,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_cspmat) :: ah,bh type(psb_c_descriptor) :: cdh @@ -474,6 +474,7 @@ contains type(psb_cspmat_type), pointer :: ap,bp integer(psb_c_ipk_) :: info real(c_float_complex), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -491,13 +492,15 @@ contains return end if - call psb_gecmp(ap,bp,tol,descp,res,info) + call psb_gecmp(ap,bp,tol,descp,isequal,info) + + res = isequal end function psb_c_cgecmpmat function psb_c_cgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_cspmat) :: ah type(psb_c_descriptor) :: cdh @@ -507,6 +510,7 @@ contains integer(psb_c_ipk_) :: info complex(c_float_complex), value :: val real(c_float_complex), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -519,7 +523,9 @@ contains return end if - call psb_gecmp(ap,val,tol,descp,res,info) + call psb_gecmp(ap,val,tol,descp,isequal,info) + + res = isequal end function psb_c_cgecmpmat_val diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index 198c6f799..e42725ff3 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -465,7 +465,7 @@ contains function psb_c_dgecmpmat(ah,bh,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_dspmat) :: ah,bh type(psb_c_descriptor) :: cdh @@ -474,6 +474,7 @@ contains type(psb_dspmat_type), pointer :: ap,bp integer(psb_c_ipk_) :: info real(c_double), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -491,13 +492,15 @@ contains return end if - call psb_gecmp(ap,bp,tol,descp,res,info) + call psb_gecmp(ap,bp,tol,descp,isequal,info) + + res = isequal end function psb_c_dgecmpmat function psb_c_dgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_dspmat) :: ah type(psb_c_descriptor) :: cdh @@ -507,6 +510,7 @@ contains integer(psb_c_ipk_) :: info real(c_double), value :: val real(c_double), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -519,7 +523,9 @@ contains return end if - call psb_gecmp(ap,val,tol,descp,res,info) + call psb_gecmp(ap,val,tol,descp,isequal,info) + + res = isequal end function psb_c_dgecmpmat_val diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 96a0f3047..38c6afc31 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -465,7 +465,7 @@ contains function psb_c_sgecmpmat(ah,bh,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_sspmat) :: ah,bh type(psb_c_descriptor) :: cdh @@ -474,6 +474,7 @@ contains type(psb_sspmat_type), pointer :: ap,bp integer(psb_c_ipk_) :: info real(c_float), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -491,13 +492,15 @@ contains return end if - call psb_gecmp(ap,bp,tol,descp,res,info) + call psb_gecmp(ap,bp,tol,descp,isequal,info) + + res = isequal end function psb_c_sgecmpmat function psb_c_sgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_sspmat) :: ah type(psb_c_descriptor) :: cdh @@ -507,6 +510,7 @@ contains integer(psb_c_ipk_) :: info real(c_float), value :: val real(c_float), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -519,7 +523,9 @@ contains return end if - call psb_gecmp(ap,val,tol,descp,res,info) + call psb_gecmp(ap,val,tol,descp,isequal,info) + + res = isequal end function psb_c_sgecmpmat_val diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index fbd5797a3..300eee290 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -465,7 +465,7 @@ contains function psb_c_zgecmpmat(ah,bh,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_zspmat) :: ah,bh type(psb_c_descriptor) :: cdh @@ -474,6 +474,7 @@ contains type(psb_zspmat_type), pointer :: ap,bp integer(psb_c_ipk_) :: info real(c_double_complex), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -491,13 +492,15 @@ contains return end if - call psb_gecmp(ap,bp,tol,descp,res,info) + call psb_gecmp(ap,bp,tol,descp,isequal,info) + + res = isequal end function psb_c_zgecmpmat function psb_c_zgecmpmat_val(ah,val,tol,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_zspmat) :: ah type(psb_c_descriptor) :: cdh @@ -507,6 +510,7 @@ contains integer(psb_c_ipk_) :: info complex(c_double_complex), value :: val real(c_double_complex), value :: tol + logical :: isequal if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) @@ -519,7 +523,9 @@ contains return end if - call psb_gecmp(ap,val,tol,descp,res,info) + call psb_gecmp(ap,val,tol,descp,isequal,info) + + res = isequal end function psb_c_zgecmpmat_val From d22d15a0f446d052afc7e2fcbd98815388da69c8 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 14 Apr 2020 18:55:44 +0200 Subject: [PATCH 56/61] Corrected C interfaces for interrogating build-state --- cbind/base/psb_c_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_d_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_s_psblas_cbind_mod.f90 | 12 ++++++------ cbind/base/psb_z_psblas_cbind_mod.f90 | 12 ++++++------ 4 files changed, 24 insertions(+), 24 deletions(-) diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index c849b3c67..87f8a371e 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -965,7 +965,7 @@ contains function psb_c_cis_matupd(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_cspmat) :: ah type(psb_c_descriptor) :: cdh @@ -985,12 +985,12 @@ contains return end if - res = psb_is_matupd(ap,descp,info) + res = ap%is_upd() end function function psb_c_cis_matasb(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_cspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1010,12 +1010,12 @@ contains return end if - res = psb_is_matasb(ap,descp,info) + res = ap%is_asb() end function function psb_c_cis_matbld(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_cspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1035,7 +1035,7 @@ contains return end if - res = psb_is_matbld(ap,descp,info) + res = ap%is_bld() end function function psb_c_cset_matupd(ah,cdh) bind(c) result(res) diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index e42725ff3..bda8bd848 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -1066,7 +1066,7 @@ contains function psb_c_dis_matupd(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_dspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1086,12 +1086,12 @@ contains return end if - res = psb_is_matupd(ap,descp,info) + res = ap%is_upd() end function function psb_c_dis_matasb(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_dspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1111,12 +1111,12 @@ contains return end if - res = psb_is_matasb(ap,descp,info) + res = ap%is_asb() end function function psb_c_dis_matbld(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_dspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1136,7 +1136,7 @@ contains return end if - res = psb_is_matbld(ap,descp,info) + res = ap%is_bld() end function function psb_c_dset_matupd(ah,cdh) bind(c) result(res) diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 38c6afc31..41898854c 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -1066,7 +1066,7 @@ contains function psb_c_sis_matupd(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_sspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1086,12 +1086,12 @@ contains return end if - res = psb_is_matupd(ap,descp,info) + res = ap%is_upd() end function function psb_c_sis_matasb(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_sspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1111,12 +1111,12 @@ contains return end if - res = psb_is_matasb(ap,descp,info) + res = ap%is_asb() end function function psb_c_sis_matbld(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_sspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1136,7 +1136,7 @@ contains return end if - res = psb_is_matbld(ap,descp,info) + res = ap%is_bld() end function function psb_c_sset_matupd(ah,cdh) bind(c) result(res) diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 300eee290..8b168290f 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -965,7 +965,7 @@ contains function psb_c_zis_matupd(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_zspmat) :: ah type(psb_c_descriptor) :: cdh @@ -985,12 +985,12 @@ contains return end if - res = psb_is_matupd(ap,descp,info) + res = ap%is_upd() end function function psb_c_zis_matasb(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_zspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1010,12 +1010,12 @@ contains return end if - res = psb_is_matasb(ap,descp,info) + res = ap%is_asb() end function function psb_c_zis_matbld(ah,cdh) bind(c) result(res) implicit none - logical :: res + logical(c_bool) :: res type(psb_c_zspmat) :: ah type(psb_c_descriptor) :: cdh @@ -1035,7 +1035,7 @@ contains return end if - res = psb_is_matbld(ap,descp,info) + res = ap%is_bld() end function function psb_c_zset_matupd(ah,cdh) bind(c) result(res) From 01f4f718de64aed98cac0cc0a26a2ae76101518f Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 14 Apr 2020 18:56:22 +0200 Subject: [PATCH 57/61] Corrected implementation of scale plus identity for sparse matrices --- base/modules/serial/psb_c_csc_mat_mod.f90 | 36 ++--- base/modules/serial/psb_c_csr_mat_mod.f90 | 18 +-- base/modules/serial/psb_d_csc_mat_mod.f90 | 36 ++--- base/modules/serial/psb_d_csr_mat_mod.f90 | 18 +-- base/modules/serial/psb_s_csc_mat_mod.f90 | 36 ++--- base/modules/serial/psb_s_csr_mat_mod.f90 | 18 +-- base/modules/serial/psb_z_csc_mat_mod.f90 | 36 ++--- base/modules/serial/psb_z_csr_mat_mod.f90 | 18 +-- base/serial/impl/psb_c_base_mat_impl.F90 | 64 +++++++-- base/serial/impl/psb_c_csc_impl.f90 | 168 +++++++++++----------- base/serial/impl/psb_c_csr_impl.f90 | 80 +++++------ base/serial/impl/psb_d_base_mat_impl.F90 | 64 +++++++-- base/serial/impl/psb_d_csc_impl.f90 | 168 +++++++++++----------- base/serial/impl/psb_d_csr_impl.f90 | 80 +++++------ base/serial/impl/psb_s_base_mat_impl.F90 | 64 +++++++-- base/serial/impl/psb_s_csc_impl.f90 | 168 +++++++++++----------- base/serial/impl/psb_s_csr_impl.f90 | 80 +++++------ base/serial/impl/psb_z_base_mat_impl.F90 | 64 +++++++-- base/serial/impl/psb_z_csc_impl.f90 | 168 +++++++++++----------- base/serial/impl/psb_z_csr_impl.f90 | 80 +++++------ 20 files changed, 820 insertions(+), 644 deletions(-) diff --git a/base/modules/serial/psb_c_csc_mat_mod.f90 b/base/modules/serial/psb_c_csc_mat_mod.f90 index 0a4db372b..300052f30 100644 --- a/base/modules/serial/psb_c_csc_mat_mod.f90 +++ b/base/modules/serial/psb_c_csc_mat_mod.f90 @@ -71,7 +71,7 @@ module psb_c_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csc_cssv procedure, pass(a) :: scals => psb_c_csc_scals procedure, pass(a) :: scalv => psb_c_csc_scal - procedure, pass(a) :: scalpid => psb_c_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_c_csc_scalplusidentity procedure, pass(a) :: maxval => psb_c_csc_maxval procedure, pass(a) :: spnm1 => psb_c_csc_csnm1 procedure, pass(a) :: rowsum => psb_c_csc_rowsum @@ -128,7 +128,7 @@ module psb_c_csc_mat_mod procedure, pass(a) :: sizeof => lc_csc_sizeof procedure, pass(a) :: scals => psb_lc_csc_scals procedure, pass(a) :: scalv => psb_lc_csc_scal - procedure, pass(a) :: scalpid => psb_lc_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_lc_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lc_csc_maxval procedure, pass(a) :: spnm1 => psb_lc_csc_csnm1 procedure, pass(a) :: rowsum => psb_lc_csc_rowsum @@ -565,14 +565,14 @@ module psb_c_csc_mat_mod !> \memberof psb_c_csc_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity - interface - subroutine psb_c_csc_scalplusidentity(d,a,info) - import - class(psb_c_csc_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_c_csc_scalplusidentity - end interface + ! interface + ! subroutine psb_c_csc_scalplusidentity(d,a,info) + ! import + ! class(psb_c_csc_sparse_mat), intent(inout) :: a + ! complex(psb_spk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_c_csc_scalplusidentity + ! end interface ! @@ -928,14 +928,14 @@ module psb_c_csc_mat_mod !> \memberof psb_lc_csc_sparse_mat !! \see psb_lc_base_mat_mod::psb_lc_base_scalplusidentity - interface - subroutine psb_lc_csc_scalplusidentity(d,a,info) - import - class(psb_lc_csc_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_lc_csc_scalplusidentity - end interface +! interface +! subroutine psb_lc_csc_scalplusidentity(d,a,info) +! import +! class(psb_lc_csc_sparse_mat), intent(inout) :: a +! complex(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! end subroutine psb_lc_csc_scalplusidentity +! end interface contains diff --git a/base/modules/serial/psb_c_csr_mat_mod.f90 b/base/modules/serial/psb_c_csr_mat_mod.f90 index f2b2f65cc..4f7d267d4 100644 --- a/base/modules/serial/psb_c_csr_mat_mod.f90 +++ b/base/modules/serial/psb_c_csr_mat_mod.f90 @@ -73,7 +73,7 @@ module psb_c_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csr_cssv procedure, pass(a) :: scals => psb_c_csr_scals procedure, pass(a) :: scalv => psb_c_csr_scal - procedure, pass(a) :: scalpid => psb_c_csr_scalplusidentity +! procedure, pass(a) :: scalpid => psb_c_csr_scalplusidentity procedure, pass(a) :: maxval => psb_c_csr_maxval procedure, pass(a) :: spnmi => psb_c_csr_csnmi procedure, pass(a) :: rowsum => psb_c_csr_rowsum @@ -582,14 +582,14 @@ module psb_c_csr_mat_mod !> \memberof psb_c_csr_sparse_mat !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity - interface - subroutine psb_c_csr_scalplusidentity(d,a,info) - import - class(psb_c_csr_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_c_csr_scalplusidentity - end interface + ! interface + ! subroutine psb_c_csr_scalplusidentity(d,a,info) + ! import + ! class(psb_c_csr_sparse_mat), intent(inout) :: a + ! complex(psb_spk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_c_csr_scalplusidentity + ! end interface !> \namespace psb_base_mod \class psb_lc_csr_sparse_mat diff --git a/base/modules/serial/psb_d_csc_mat_mod.f90 b/base/modules/serial/psb_d_csc_mat_mod.f90 index c702aa83f..5da0ccd35 100644 --- a/base/modules/serial/psb_d_csc_mat_mod.f90 +++ b/base/modules/serial/psb_d_csc_mat_mod.f90 @@ -71,7 +71,7 @@ module psb_d_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csc_cssv procedure, pass(a) :: scals => psb_d_csc_scals procedure, pass(a) :: scalv => psb_d_csc_scal - procedure, pass(a) :: scalpid => psb_d_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_d_csc_scalplusidentity procedure, pass(a) :: maxval => psb_d_csc_maxval procedure, pass(a) :: spnm1 => psb_d_csc_csnm1 procedure, pass(a) :: rowsum => psb_d_csc_rowsum @@ -128,7 +128,7 @@ module psb_d_csc_mat_mod procedure, pass(a) :: sizeof => ld_csc_sizeof procedure, pass(a) :: scals => psb_ld_csc_scals procedure, pass(a) :: scalv => psb_ld_csc_scal - procedure, pass(a) :: scalpid => psb_ld_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_ld_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ld_csc_maxval procedure, pass(a) :: spnm1 => psb_ld_csc_csnm1 procedure, pass(a) :: rowsum => psb_ld_csc_rowsum @@ -565,14 +565,14 @@ module psb_d_csc_mat_mod !> \memberof psb_d_csc_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity - interface - subroutine psb_d_csc_scalplusidentity(d,a,info) - import - class(psb_d_csc_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_d_csc_scalplusidentity - end interface + ! interface + ! subroutine psb_d_csc_scalplusidentity(d,a,info) + ! import + ! class(psb_d_csc_sparse_mat), intent(inout) :: a + ! real(psb_dpk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_d_csc_scalplusidentity + ! end interface ! @@ -928,14 +928,14 @@ module psb_d_csc_mat_mod !> \memberof psb_ld_csc_sparse_mat !! \see psb_ld_base_mat_mod::psb_ld_base_scalplusidentity - interface - subroutine psb_ld_csc_scalplusidentity(d,a,info) - import - class(psb_ld_csc_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_ld_csc_scalplusidentity - end interface +! interface +! subroutine psb_ld_csc_scalplusidentity(d,a,info) +! import +! class(psb_ld_csc_sparse_mat), intent(inout) :: a +! real(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! end subroutine psb_ld_csc_scalplusidentity +! end interface contains diff --git a/base/modules/serial/psb_d_csr_mat_mod.f90 b/base/modules/serial/psb_d_csr_mat_mod.f90 index 4ac24d1dc..74dfe3000 100644 --- a/base/modules/serial/psb_d_csr_mat_mod.f90 +++ b/base/modules/serial/psb_d_csr_mat_mod.f90 @@ -73,7 +73,7 @@ module psb_d_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csr_cssv procedure, pass(a) :: scals => psb_d_csr_scals procedure, pass(a) :: scalv => psb_d_csr_scal - procedure, pass(a) :: scalpid => psb_d_csr_scalplusidentity +! procedure, pass(a) :: scalpid => psb_d_csr_scalplusidentity procedure, pass(a) :: maxval => psb_d_csr_maxval procedure, pass(a) :: spnmi => psb_d_csr_csnmi procedure, pass(a) :: rowsum => psb_d_csr_rowsum @@ -582,14 +582,14 @@ module psb_d_csr_mat_mod !> \memberof psb_d_csr_sparse_mat !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity - interface - subroutine psb_d_csr_scalplusidentity(d,a,info) - import - class(psb_d_csr_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_d_csr_scalplusidentity - end interface + ! interface + ! subroutine psb_d_csr_scalplusidentity(d,a,info) + ! import + ! class(psb_d_csr_sparse_mat), intent(inout) :: a + ! real(psb_dpk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_d_csr_scalplusidentity + ! end interface !> \namespace psb_base_mod \class psb_ld_csr_sparse_mat diff --git a/base/modules/serial/psb_s_csc_mat_mod.f90 b/base/modules/serial/psb_s_csc_mat_mod.f90 index 500379a7c..f513cb728 100644 --- a/base/modules/serial/psb_s_csc_mat_mod.f90 +++ b/base/modules/serial/psb_s_csc_mat_mod.f90 @@ -71,7 +71,7 @@ module psb_s_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csc_cssv procedure, pass(a) :: scals => psb_s_csc_scals procedure, pass(a) :: scalv => psb_s_csc_scal - procedure, pass(a) :: scalpid => psb_s_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_s_csc_scalplusidentity procedure, pass(a) :: maxval => psb_s_csc_maxval procedure, pass(a) :: spnm1 => psb_s_csc_csnm1 procedure, pass(a) :: rowsum => psb_s_csc_rowsum @@ -128,7 +128,7 @@ module psb_s_csc_mat_mod procedure, pass(a) :: sizeof => ls_csc_sizeof procedure, pass(a) :: scals => psb_ls_csc_scals procedure, pass(a) :: scalv => psb_ls_csc_scal - procedure, pass(a) :: scalpid => psb_ls_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_ls_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ls_csc_maxval procedure, pass(a) :: spnm1 => psb_ls_csc_csnm1 procedure, pass(a) :: rowsum => psb_ls_csc_rowsum @@ -565,14 +565,14 @@ module psb_s_csc_mat_mod !> \memberof psb_s_csc_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity - interface - subroutine psb_s_csc_scalplusidentity(d,a,info) - import - class(psb_s_csc_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_s_csc_scalplusidentity - end interface + ! interface + ! subroutine psb_s_csc_scalplusidentity(d,a,info) + ! import + ! class(psb_s_csc_sparse_mat), intent(inout) :: a + ! real(psb_spk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_s_csc_scalplusidentity + ! end interface ! @@ -928,14 +928,14 @@ module psb_s_csc_mat_mod !> \memberof psb_ls_csc_sparse_mat !! \see psb_ls_base_mat_mod::psb_ls_base_scalplusidentity - interface - subroutine psb_ls_csc_scalplusidentity(d,a,info) - import - class(psb_ls_csc_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_ls_csc_scalplusidentity - end interface +! interface +! subroutine psb_ls_csc_scalplusidentity(d,a,info) +! import +! class(psb_ls_csc_sparse_mat), intent(inout) :: a +! real(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! end subroutine psb_ls_csc_scalplusidentity +! end interface contains diff --git a/base/modules/serial/psb_s_csr_mat_mod.f90 b/base/modules/serial/psb_s_csr_mat_mod.f90 index 2e92151d5..4a3cae6e0 100644 --- a/base/modules/serial/psb_s_csr_mat_mod.f90 +++ b/base/modules/serial/psb_s_csr_mat_mod.f90 @@ -73,7 +73,7 @@ module psb_s_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csr_cssv procedure, pass(a) :: scals => psb_s_csr_scals procedure, pass(a) :: scalv => psb_s_csr_scal - procedure, pass(a) :: scalpid => psb_s_csr_scalplusidentity +! procedure, pass(a) :: scalpid => psb_s_csr_scalplusidentity procedure, pass(a) :: maxval => psb_s_csr_maxval procedure, pass(a) :: spnmi => psb_s_csr_csnmi procedure, pass(a) :: rowsum => psb_s_csr_rowsum @@ -582,14 +582,14 @@ module psb_s_csr_mat_mod !> \memberof psb_s_csr_sparse_mat !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity - interface - subroutine psb_s_csr_scalplusidentity(d,a,info) - import - class(psb_s_csr_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_s_csr_scalplusidentity - end interface + ! interface + ! subroutine psb_s_csr_scalplusidentity(d,a,info) + ! import + ! class(psb_s_csr_sparse_mat), intent(inout) :: a + ! real(psb_spk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_s_csr_scalplusidentity + ! end interface !> \namespace psb_base_mod \class psb_ls_csr_sparse_mat diff --git a/base/modules/serial/psb_z_csc_mat_mod.f90 b/base/modules/serial/psb_z_csc_mat_mod.f90 index 7eb23606d..05c62cb81 100644 --- a/base/modules/serial/psb_z_csc_mat_mod.f90 +++ b/base/modules/serial/psb_z_csc_mat_mod.f90 @@ -71,7 +71,7 @@ module psb_z_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csc_cssv procedure, pass(a) :: scals => psb_z_csc_scals procedure, pass(a) :: scalv => psb_z_csc_scal - procedure, pass(a) :: scalpid => psb_z_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_z_csc_scalplusidentity procedure, pass(a) :: maxval => psb_z_csc_maxval procedure, pass(a) :: spnm1 => psb_z_csc_csnm1 procedure, pass(a) :: rowsum => psb_z_csc_rowsum @@ -128,7 +128,7 @@ module psb_z_csc_mat_mod procedure, pass(a) :: sizeof => lz_csc_sizeof procedure, pass(a) :: scals => psb_lz_csc_scals procedure, pass(a) :: scalv => psb_lz_csc_scal - procedure, pass(a) :: scalpid => psb_lz_csc_scalplusidentity +! procedure, pass(a) :: scalpid => psb_lz_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lz_csc_maxval procedure, pass(a) :: spnm1 => psb_lz_csc_csnm1 procedure, pass(a) :: rowsum => psb_lz_csc_rowsum @@ -565,14 +565,14 @@ module psb_z_csc_mat_mod !> \memberof psb_z_csc_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity - interface - subroutine psb_z_csc_scalplusidentity(d,a,info) - import - class(psb_z_csc_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_z_csc_scalplusidentity - end interface + ! interface + ! subroutine psb_z_csc_scalplusidentity(d,a,info) + ! import + ! class(psb_z_csc_sparse_mat), intent(inout) :: a + ! complex(psb_dpk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_z_csc_scalplusidentity + ! end interface ! @@ -928,14 +928,14 @@ module psb_z_csc_mat_mod !> \memberof psb_lz_csc_sparse_mat !! \see psb_lz_base_mat_mod::psb_lz_base_scalplusidentity - interface - subroutine psb_lz_csc_scalplusidentity(d,a,info) - import - class(psb_lz_csc_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_lz_csc_scalplusidentity - end interface +! interface +! subroutine psb_lz_csc_scalplusidentity(d,a,info) +! import +! class(psb_lz_csc_sparse_mat), intent(inout) :: a +! complex(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! end subroutine psb_lz_csc_scalplusidentity +! end interface contains diff --git a/base/modules/serial/psb_z_csr_mat_mod.f90 b/base/modules/serial/psb_z_csr_mat_mod.f90 index a7d5cf71e..cf11e1dd7 100644 --- a/base/modules/serial/psb_z_csr_mat_mod.f90 +++ b/base/modules/serial/psb_z_csr_mat_mod.f90 @@ -73,7 +73,7 @@ module psb_z_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csr_cssv procedure, pass(a) :: scals => psb_z_csr_scals procedure, pass(a) :: scalv => psb_z_csr_scal - procedure, pass(a) :: scalpid => psb_z_csr_scalplusidentity +! procedure, pass(a) :: scalpid => psb_z_csr_scalplusidentity procedure, pass(a) :: maxval => psb_z_csr_maxval procedure, pass(a) :: spnmi => psb_z_csr_csnmi procedure, pass(a) :: rowsum => psb_z_csr_rowsum @@ -582,14 +582,14 @@ module psb_z_csr_mat_mod !> \memberof psb_z_csr_sparse_mat !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity - interface - subroutine psb_z_csr_scalplusidentity(d,a,info) - import - class(psb_z_csr_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - end subroutine psb_z_csr_scalplusidentity - end interface + ! interface + ! subroutine psb_z_csr_scalplusidentity(d,a,info) + ! import + ! class(psb_z_csr_sparse_mat), intent(inout) :: a + ! complex(psb_dpk_), intent(in) :: d + ! integer(psb_ipk_), intent(out) :: info + ! end subroutine psb_z_csr_scalplusidentity + ! end interface !> \namespace psb_base_mod \class psb_lz_csr_sparse_mat diff --git a/base/serial/impl/psb_c_base_mat_impl.F90 b/base/serial/impl/psb_c_base_mat_impl.F90 index 5ac480e6e..6d7824be0 100644 --- a/base/serial/impl/psb_c_base_mat_impl.F90 +++ b/base/serial/impl/psb_c_base_mat_impl.F90 @@ -1561,16 +1561,38 @@ subroutine psb_c_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='c_scalplusidentity' logical, parameter :: debug=.false. + type(psb_c_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_c_base_scalplusidentity subroutine psb_c_base_scal(d,a,info,side) @@ -3629,16 +3651,38 @@ subroutine psb_lc_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='lc_scalplusidentity' logical, parameter :: debug=.false. + type(psb_lc_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_lc_base_scalplusidentity subroutine psb_lc_base_scal(d,a,info,side) diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 5530f8ef0..419ee70d9 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -1485,48 +1485,48 @@ subroutine psb_c_csc_scals(d,a,info) end subroutine psb_c_csc_scals -subroutine psb_c_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scalplusidentity - implicit none - class(psb_c_csc_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + cone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_c_csc_scalplusidentity +! subroutine psb_c_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scalplusidentity +! implicit none +! class(psb_c_csc_sparse_mat), intent(inout) :: a +! complex(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! integer(psb_ipk_) :: ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + cone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_c_csc_scalplusidentity ! == =================================== @@ -3107,48 +3107,48 @@ subroutine psb_lc_csc_scals(d,a,info) end subroutine psb_lc_csc_scals -subroutine psb_lc_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scalplusidentity - implicit none - class(psb_lc_csc_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_lpk_) :: mnm, i, j, k, m - integer(psb_ipk_) :: err_act, ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + cone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_lc_csc_scalplusidentity +! subroutine psb_lc_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scalplusidentity +! implicit none +! class(psb_lc_csc_sparse_mat), intent(inout) :: a +! complex(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_lpk_) :: mnm, i, j, k, m +! integer(psb_ipk_) :: err_act, ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + cone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_lc_csc_scalplusidentity function psb_lc_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index 84dc4767e..22f0850f8 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -1677,46 +1677,46 @@ subroutine psb_c_csr_scals(d,a,info) end subroutine psb_c_csr_scals -subroutine psb_c_csr_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scalplusidentity - implicit none - class(psb_c_csr_sparse_mat), intent(inout) :: a - complex(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%irp(i),a%irp(i+1)-1 - j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + cone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return - -end subroutine psb_c_csr_scalplusidentity +! subroutine psb_c_csr_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scalplusidentity +! implicit none +! class(psb_c_csr_sparse_mat), intent(inout) :: a +! complex(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%irp(i),a%irp(i+1)-1 +! j=a%ja(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + cone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! return +! +! end subroutine psb_c_csr_scalplusidentity diff --git a/base/serial/impl/psb_d_base_mat_impl.F90 b/base/serial/impl/psb_d_base_mat_impl.F90 index 65bc1bff5..30cb4d1ed 100644 --- a/base/serial/impl/psb_d_base_mat_impl.F90 +++ b/base/serial/impl/psb_d_base_mat_impl.F90 @@ -1561,16 +1561,38 @@ subroutine psb_d_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='d_scalplusidentity' logical, parameter :: debug=.false. + type(psb_d_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_d_base_scalplusidentity subroutine psb_d_base_scal(d,a,info,side) @@ -3629,16 +3651,38 @@ subroutine psb_ld_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='ld_scalplusidentity' logical, parameter :: debug=.false. + type(psb_ld_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_ld_base_scalplusidentity subroutine psb_ld_base_scal(d,a,info,side) diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index 832f67299..f55ce774a 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -1485,48 +1485,48 @@ subroutine psb_d_csc_scals(d,a,info) end subroutine psb_d_csc_scals -subroutine psb_d_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scalplusidentity - implicit none - class(psb_d_csc_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + done - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_d_csc_scalplusidentity +! subroutine psb_d_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scalplusidentity +! implicit none +! class(psb_d_csc_sparse_mat), intent(inout) :: a +! real(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! integer(psb_ipk_) :: ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + done +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_d_csc_scalplusidentity ! == =================================== @@ -3107,48 +3107,48 @@ subroutine psb_ld_csc_scals(d,a,info) end subroutine psb_ld_csc_scals -subroutine psb_ld_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scalplusidentity - implicit none - class(psb_ld_csc_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_lpk_) :: mnm, i, j, k, m - integer(psb_ipk_) :: err_act, ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + done - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_ld_csc_scalplusidentity +! subroutine psb_ld_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scalplusidentity +! implicit none +! class(psb_ld_csc_sparse_mat), intent(inout) :: a +! real(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_lpk_) :: mnm, i, j, k, m +! integer(psb_ipk_) :: err_act, ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + done +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_ld_csc_scalplusidentity function psb_ld_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index 3c306a4c4..70c2515e2 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -1677,46 +1677,46 @@ subroutine psb_d_csr_scals(d,a,info) end subroutine psb_d_csr_scals -subroutine psb_d_csr_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scalplusidentity - implicit none - class(psb_d_csr_sparse_mat), intent(inout) :: a - real(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%irp(i),a%irp(i+1)-1 - j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + done - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return - -end subroutine psb_d_csr_scalplusidentity +! subroutine psb_d_csr_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scalplusidentity +! implicit none +! class(psb_d_csr_sparse_mat), intent(inout) :: a +! real(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%irp(i),a%irp(i+1)-1 +! j=a%ja(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + done +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! return +! +! end subroutine psb_d_csr_scalplusidentity diff --git a/base/serial/impl/psb_s_base_mat_impl.F90 b/base/serial/impl/psb_s_base_mat_impl.F90 index 1e791b365..7a3f647da 100644 --- a/base/serial/impl/psb_s_base_mat_impl.F90 +++ b/base/serial/impl/psb_s_base_mat_impl.F90 @@ -1561,16 +1561,38 @@ subroutine psb_s_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='s_scalplusidentity' logical, parameter :: debug=.false. + type(psb_s_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_s_base_scalplusidentity subroutine psb_s_base_scal(d,a,info,side) @@ -3629,16 +3651,38 @@ subroutine psb_ls_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='ls_scalplusidentity' logical, parameter :: debug=.false. + type(psb_ls_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_ls_base_scalplusidentity subroutine psb_ls_base_scal(d,a,info,side) diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index 6abd15c2a..fcd00755a 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -1485,48 +1485,48 @@ subroutine psb_s_csc_scals(d,a,info) end subroutine psb_s_csc_scals -subroutine psb_s_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scalplusidentity - implicit none - class(psb_s_csc_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + sone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_s_csc_scalplusidentity +! subroutine psb_s_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scalplusidentity +! implicit none +! class(psb_s_csc_sparse_mat), intent(inout) :: a +! real(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! integer(psb_ipk_) :: ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + sone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_s_csc_scalplusidentity ! == =================================== @@ -3107,48 +3107,48 @@ subroutine psb_ls_csc_scals(d,a,info) end subroutine psb_ls_csc_scals -subroutine psb_ls_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scalplusidentity - implicit none - class(psb_ls_csc_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_lpk_) :: mnm, i, j, k, m - integer(psb_ipk_) :: err_act, ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + sone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_ls_csc_scalplusidentity +! subroutine psb_ls_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scalplusidentity +! implicit none +! class(psb_ls_csc_sparse_mat), intent(inout) :: a +! real(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_lpk_) :: mnm, i, j, k, m +! integer(psb_ipk_) :: err_act, ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + sone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_ls_csc_scalplusidentity function psb_ls_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 3083c6bcc..18c285ab0 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -1677,46 +1677,46 @@ subroutine psb_s_csr_scals(d,a,info) end subroutine psb_s_csr_scals -subroutine psb_s_csr_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scalplusidentity - implicit none - class(psb_s_csr_sparse_mat), intent(inout) :: a - real(psb_spk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%irp(i),a%irp(i+1)-1 - j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + sone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return - -end subroutine psb_s_csr_scalplusidentity +! subroutine psb_s_csr_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scalplusidentity +! implicit none +! class(psb_s_csr_sparse_mat), intent(inout) :: a +! real(psb_spk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%irp(i),a%irp(i+1)-1 +! j=a%ja(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + sone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! return +! +! end subroutine psb_s_csr_scalplusidentity diff --git a/base/serial/impl/psb_z_base_mat_impl.F90 b/base/serial/impl/psb_z_base_mat_impl.F90 index d54000ff4..fbbbd83d7 100644 --- a/base/serial/impl/psb_z_base_mat_impl.F90 +++ b/base/serial/impl/psb_z_base_mat_impl.F90 @@ -1561,16 +1561,38 @@ subroutine psb_z_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='z_scalplusidentity' logical, parameter :: debug=.false. + type(psb_z_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_z_base_scalplusidentity subroutine psb_z_base_scal(d,a,info,side) @@ -3629,16 +3651,38 @@ subroutine psb_lz_base_scalplusidentity(d,a,info) integer(psb_ipk_) :: err_act character(len=20) :: name='lz_scalplusidentity' logical, parameter :: debug=.false. + type(psb_lz_coo_sparse_mat) :: acoo call psb_erractionsave(err_act) - ! This is the base version. If we get here - ! it means the derived class is incomplete, - ! so we throw an error. - info = psb_err_missing_override_method_ - call psb_errpush(info,name,a_err=a%get_fmt()) + call a%mv_to_coo(acoo,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_coo') + goto 9999 + end if + + call acoo%scalpid(d,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='scalpid') + goto 9999 + end if + + call acoo%mv_to_fmt(a,info) + if (info /= psb_success_) then + info = psb_err_from_subroutine_ + call psb_errpush(info,name, a_err='mv_to_fmt') + goto 9999 + end if call psb_error_handler(err_act) + return + +9999 call psb_error_handler(err_act) + + return + end subroutine psb_lz_base_scalplusidentity subroutine psb_lz_base_scal(d,a,info,side) diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index ccbaefd69..715673cee 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -1485,48 +1485,48 @@ subroutine psb_z_csc_scals(d,a,info) end subroutine psb_z_csc_scals -subroutine psb_z_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scalplusidentity - implicit none - class(psb_z_csc_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + zone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_z_csc_scalplusidentity +! subroutine psb_z_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scalplusidentity +! implicit none +! class(psb_z_csc_sparse_mat), intent(inout) :: a +! complex(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! integer(psb_ipk_) :: ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + zone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_z_csc_scalplusidentity ! == =================================== @@ -3107,48 +3107,48 @@ subroutine psb_lz_csc_scals(d,a,info) end subroutine psb_lz_csc_scals -subroutine psb_lz_csc_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scalplusidentity - implicit none - class(psb_lz_csc_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_lpk_) :: mnm, i, j, k, m - integer(psb_ipk_) :: err_act, ierr(5) - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%icp(i),a%icp(i+1)-1 - j=a%ia(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + zone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - - return - -end subroutine psb_lz_csc_scalplusidentity +! subroutine psb_lz_csc_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scalplusidentity +! implicit none +! class(psb_lz_csc_sparse_mat), intent(inout) :: a +! complex(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_lpk_) :: mnm, i, j, k, m +! integer(psb_ipk_) :: err_act, ierr(5) +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%icp(i),a%icp(i+1)-1 +! j=a%ia(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + zone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! +! return +! +! end subroutine psb_lz_csc_scalplusidentity function psb_lz_csc_maxval(a) result(res) use psb_error_mod diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index 5b9ca993b..6071f563a 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -1677,46 +1677,46 @@ subroutine psb_z_csr_scals(d,a,info) end subroutine psb_z_csr_scals -subroutine psb_z_csr_scalplusidentity(d,a,info) - use psb_error_mod - use psb_const_mod - use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scalplusidentity - implicit none - class(psb_z_csr_sparse_mat), intent(inout) :: a - complex(psb_dpk_), intent(in) :: d - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: err_act,mnm, i, j, k, m - character(len=20) :: name='scalplusidentity' - logical, parameter :: debug=.false. - - info = psb_success_ - call psb_erractionsave(err_act) - if (a%is_dev()) call a%sync() - - if (a%is_unit()) then - call a%make_nonunit() - end if - - mnm = min(a%get_nrows(),a%get_ncols()) - do i=1,a%get_nzeros() - a%val(i) = a%val(i) * d - do k=a%irp(i),a%irp(i+1)-1 - j=a%ja(k) - if ((j == i) .and.(j <= mnm )) then - a%val(k) = a%val(k) + zone - endif - enddo - enddo - call a%set_host() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(err_act) - return - -end subroutine psb_z_csr_scalplusidentity +! subroutine psb_z_csr_scalplusidentity(d,a,info) +! use psb_error_mod +! use psb_const_mod +! use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scalplusidentity +! implicit none +! class(psb_z_csr_sparse_mat), intent(inout) :: a +! complex(psb_dpk_), intent(in) :: d +! integer(psb_ipk_), intent(out) :: info +! +! integer(psb_ipk_) :: err_act,mnm, i, j, k, m +! character(len=20) :: name='scalplusidentity' +! logical, parameter :: debug=.false. +! +! info = psb_success_ +! call psb_erractionsave(err_act) +! if (a%is_dev()) call a%sync() +! +! if (a%is_unit()) then +! call a%make_nonunit() +! end if +! +! mnm = min(a%get_nrows(),a%get_ncols()) +! do i=1,a%get_nzeros() +! a%val(i) = a%val(i) * d +! do k=a%irp(i),a%irp(i+1)-1 +! j=a%ja(k) +! if ((j == i) .and.(j <= mnm )) then +! a%val(k) = a%val(k) + zone +! endif +! enddo +! enddo +! call a%set_host() +! +! call psb_erractionrestore(err_act) +! return +! +! 9999 call psb_error_handler(err_act) +! return +! +! end subroutine psb_z_csr_scalplusidentity From 9e347fae90cc6a9cb89cfc6b91abcf71ca7ce186 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 14 Apr 2020 19:10:44 +0200 Subject: [PATCH 58/61] Removed orphan subroutines for matrix info --- base/psblas/psb_cgetmatinfo.f90 | 162 -------------------------------- base/psblas/psb_dgetmatinfo.f90 | 162 -------------------------------- base/psblas/psb_sgetmatinfo.f90 | 162 -------------------------------- base/psblas/psb_zgetmatinfo.f90 | 162 -------------------------------- 4 files changed, 648 deletions(-) diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 index 296bae9db..788a591e2 100644 --- a/base/psblas/psb_cgetmatinfo.f90 +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -90,165 +90,3 @@ function psb_cget_nnz(a,desc_a,info) result(res) return end function - -function psb_c_is_matupd(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_c_is_matupd - use psi_mod - - implicit none - - logical :: res - type(psb_cspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_cis_matupd' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_upd() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_c_is_matasb(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_c_is_matasb - use psi_mod - - implicit none - - logical :: res - type(psb_cspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_cis_matasb' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_asb() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_c_is_matbld(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_c_is_matbld - use psi_mod - - implicit none - - logical :: res - type(psb_cspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_cis_matbld' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_bld() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 index 1dd24c7ab..c574a2e44 100644 --- a/base/psblas/psb_dgetmatinfo.f90 +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -90,165 +90,3 @@ function psb_dget_nnz(a,desc_a,info) result(res) return end function - -function psb_d_is_matupd(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_d_is_matupd - use psi_mod - - implicit none - - logical :: res - type(psb_dspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_dis_matupd' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_upd() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_d_is_matasb(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_d_is_matasb - use psi_mod - - implicit none - - logical :: res - type(psb_dspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_dis_matasb' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_asb() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_d_is_matbld(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_d_is_matbld - use psi_mod - - implicit none - - logical :: res - type(psb_dspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_dis_matbld' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_bld() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 index 47684d8f6..b1368cc78 100644 --- a/base/psblas/psb_sgetmatinfo.f90 +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -90,165 +90,3 @@ function psb_sget_nnz(a,desc_a,info) result(res) return end function - -function psb_s_is_matupd(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_s_is_matupd - use psi_mod - - implicit none - - logical :: res - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_sis_matupd' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_upd() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_s_is_matasb(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_s_is_matasb - use psi_mod - - implicit none - - logical :: res - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_sis_matasb' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_asb() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_s_is_matbld(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_s_is_matbld - use psi_mod - - implicit none - - logical :: res - type(psb_sspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_sis_matbld' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_bld() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 index 1dfa75251..d3e3562b3 100644 --- a/base/psblas/psb_zgetmatinfo.f90 +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -90,165 +90,3 @@ function psb_zget_nnz(a,desc_a,info) result(res) return end function - -function psb_z_is_matupd(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_z_is_matupd - use psi_mod - - implicit none - - logical :: res - type(psb_zspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_zis_matupd' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_upd() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_z_is_matasb(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_z_is_matasb - use psi_mod - - implicit none - - logical :: res - type(psb_zspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_zis_matasb' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_asb() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function - -function psb_z_is_matbld(a,desc_a,info) result(res) - use psb_base_mod, psb_protect_name => psb_z_is_matbld - use psi_mod - - implicit none - - logical :: res - type(psb_zspmat_type), intent(in) :: a - type(psb_desc_type), intent (in) :: desc_a - integer(psb_ipk_), intent(out) :: info - - ! locals - integer(psb_ipk_) :: ictxt, np, me,& - & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz - character(len=20) :: name, ch_err - ! - name='psb_zis_matbld' - info=psb_success_ - call psb_erractionsave(err_act) - if (psb_errstatus_fatal()) then - info = psb_err_internal_error_ ; goto 9999 - end if - - ictxt=desc_a%get_context() - call psb_info(ictxt, me, np) - if (np == -1) then - info = psb_err_context_error_ - call psb_errpush(info,name) - goto 9999 - endif - - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%is_bld() - - call psb_erractionrestore(err_act) - return - -9999 call psb_error_handler(ictxt,err_act) - - return -end function From 5c34e3d853c7ac5ddca1989e510c6f3838100445 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Tue, 14 Apr 2020 19:11:36 +0200 Subject: [PATCH 59/61] Removed orphan implementation for scale plus identity --- base/modules/serial/psb_c_csc_mat_mod.f90 | 25 ------- base/modules/serial/psb_c_csr_mat_mod.f90 | 13 ---- base/modules/serial/psb_d_csc_mat_mod.f90 | 25 ------- base/modules/serial/psb_d_csr_mat_mod.f90 | 13 ---- base/modules/serial/psb_s_csc_mat_mod.f90 | 25 ------- base/modules/serial/psb_s_csr_mat_mod.f90 | 13 ---- base/modules/serial/psb_z_csc_mat_mod.f90 | 25 ------- base/modules/serial/psb_z_csr_mat_mod.f90 | 13 ---- base/serial/impl/psb_c_csc_impl.f90 | 86 ----------------------- base/serial/impl/psb_c_csr_impl.f90 | 44 ------------ base/serial/impl/psb_d_csc_impl.f90 | 86 ----------------------- base/serial/impl/psb_d_csr_impl.f90 | 44 ------------ base/serial/impl/psb_s_csc_impl.f90 | 86 ----------------------- base/serial/impl/psb_s_csr_impl.f90 | 44 ------------ base/serial/impl/psb_z_csc_impl.f90 | 86 ----------------------- base/serial/impl/psb_z_csr_impl.f90 | 44 ------------ 16 files changed, 672 deletions(-) diff --git a/base/modules/serial/psb_c_csc_mat_mod.f90 b/base/modules/serial/psb_c_csc_mat_mod.f90 index 300052f30..ad59f0f19 100644 --- a/base/modules/serial/psb_c_csc_mat_mod.f90 +++ b/base/modules/serial/psb_c_csc_mat_mod.f90 @@ -71,7 +71,6 @@ module psb_c_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csc_cssv procedure, pass(a) :: scals => psb_c_csc_scals procedure, pass(a) :: scalv => psb_c_csc_scal -! procedure, pass(a) :: scalpid => psb_c_csc_scalplusidentity procedure, pass(a) :: maxval => psb_c_csc_maxval procedure, pass(a) :: spnm1 => psb_c_csc_csnm1 procedure, pass(a) :: rowsum => psb_c_csc_rowsum @@ -128,7 +127,6 @@ module psb_c_csc_mat_mod procedure, pass(a) :: sizeof => lc_csc_sizeof procedure, pass(a) :: scals => psb_lc_csc_scals procedure, pass(a) :: scalv => psb_lc_csc_scal -! procedure, pass(a) :: scalpid => psb_lc_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lc_csc_maxval procedure, pass(a) :: spnm1 => psb_lc_csc_csnm1 procedure, pass(a) :: rowsum => psb_lc_csc_rowsum @@ -563,18 +561,6 @@ module psb_c_csc_mat_mod end subroutine psb_c_csc_scals end interface - !> \memberof psb_c_csc_sparse_mat - !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity - ! interface - ! subroutine psb_c_csc_scalplusidentity(d,a,info) - ! import - ! class(psb_c_csc_sparse_mat), intent(inout) :: a - ! complex(psb_spk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_c_csc_scalplusidentity - ! end interface - - ! ! lc ! @@ -926,17 +912,6 @@ module psb_c_csc_mat_mod end subroutine psb_lc_csc_scals end interface - !> \memberof psb_lc_csc_sparse_mat - !! \see psb_lc_base_mat_mod::psb_lc_base_scalplusidentity -! interface -! subroutine psb_lc_csc_scalplusidentity(d,a,info) -! import -! class(psb_lc_csc_sparse_mat), intent(inout) :: a -! complex(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! end subroutine psb_lc_csc_scalplusidentity -! end interface - contains ! == =================================== diff --git a/base/modules/serial/psb_c_csr_mat_mod.f90 b/base/modules/serial/psb_c_csr_mat_mod.f90 index 4f7d267d4..e9004b3c0 100644 --- a/base/modules/serial/psb_c_csr_mat_mod.f90 +++ b/base/modules/serial/psb_c_csr_mat_mod.f90 @@ -73,7 +73,6 @@ module psb_c_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_c_csr_cssv procedure, pass(a) :: scals => psb_c_csr_scals procedure, pass(a) :: scalv => psb_c_csr_scal -! procedure, pass(a) :: scalpid => psb_c_csr_scalplusidentity procedure, pass(a) :: maxval => psb_c_csr_maxval procedure, pass(a) :: spnmi => psb_c_csr_csnmi procedure, pass(a) :: rowsum => psb_c_csr_rowsum @@ -580,18 +579,6 @@ module psb_c_csr_mat_mod end subroutine psb_c_csr_scals end interface - !> \memberof psb_c_csr_sparse_mat - !! \see psb_c_base_mat_mod::psb_c_base_scalplusidentity - ! interface - ! subroutine psb_c_csr_scalplusidentity(d,a,info) - ! import - ! class(psb_c_csr_sparse_mat), intent(inout) :: a - ! complex(psb_spk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_c_csr_scalplusidentity - ! end interface - - !> \namespace psb_base_mod \class psb_lc_csr_sparse_mat !! \extends psb_lc_base_mat_mod::psb_lc_base_sparse_mat !! diff --git a/base/modules/serial/psb_d_csc_mat_mod.f90 b/base/modules/serial/psb_d_csc_mat_mod.f90 index 5da0ccd35..42cefb723 100644 --- a/base/modules/serial/psb_d_csc_mat_mod.f90 +++ b/base/modules/serial/psb_d_csc_mat_mod.f90 @@ -71,7 +71,6 @@ module psb_d_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csc_cssv procedure, pass(a) :: scals => psb_d_csc_scals procedure, pass(a) :: scalv => psb_d_csc_scal -! procedure, pass(a) :: scalpid => psb_d_csc_scalplusidentity procedure, pass(a) :: maxval => psb_d_csc_maxval procedure, pass(a) :: spnm1 => psb_d_csc_csnm1 procedure, pass(a) :: rowsum => psb_d_csc_rowsum @@ -128,7 +127,6 @@ module psb_d_csc_mat_mod procedure, pass(a) :: sizeof => ld_csc_sizeof procedure, pass(a) :: scals => psb_ld_csc_scals procedure, pass(a) :: scalv => psb_ld_csc_scal -! procedure, pass(a) :: scalpid => psb_ld_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ld_csc_maxval procedure, pass(a) :: spnm1 => psb_ld_csc_csnm1 procedure, pass(a) :: rowsum => psb_ld_csc_rowsum @@ -563,18 +561,6 @@ module psb_d_csc_mat_mod end subroutine psb_d_csc_scals end interface - !> \memberof psb_d_csc_sparse_mat - !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity - ! interface - ! subroutine psb_d_csc_scalplusidentity(d,a,info) - ! import - ! class(psb_d_csc_sparse_mat), intent(inout) :: a - ! real(psb_dpk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_d_csc_scalplusidentity - ! end interface - - ! ! ld ! @@ -926,17 +912,6 @@ module psb_d_csc_mat_mod end subroutine psb_ld_csc_scals end interface - !> \memberof psb_ld_csc_sparse_mat - !! \see psb_ld_base_mat_mod::psb_ld_base_scalplusidentity -! interface -! subroutine psb_ld_csc_scalplusidentity(d,a,info) -! import -! class(psb_ld_csc_sparse_mat), intent(inout) :: a -! real(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! end subroutine psb_ld_csc_scalplusidentity -! end interface - contains ! == =================================== diff --git a/base/modules/serial/psb_d_csr_mat_mod.f90 b/base/modules/serial/psb_d_csr_mat_mod.f90 index 74dfe3000..e6f926e83 100644 --- a/base/modules/serial/psb_d_csr_mat_mod.f90 +++ b/base/modules/serial/psb_d_csr_mat_mod.f90 @@ -73,7 +73,6 @@ module psb_d_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_d_csr_cssv procedure, pass(a) :: scals => psb_d_csr_scals procedure, pass(a) :: scalv => psb_d_csr_scal -! procedure, pass(a) :: scalpid => psb_d_csr_scalplusidentity procedure, pass(a) :: maxval => psb_d_csr_maxval procedure, pass(a) :: spnmi => psb_d_csr_csnmi procedure, pass(a) :: rowsum => psb_d_csr_rowsum @@ -580,18 +579,6 @@ module psb_d_csr_mat_mod end subroutine psb_d_csr_scals end interface - !> \memberof psb_d_csr_sparse_mat - !! \see psb_d_base_mat_mod::psb_d_base_scalplusidentity - ! interface - ! subroutine psb_d_csr_scalplusidentity(d,a,info) - ! import - ! class(psb_d_csr_sparse_mat), intent(inout) :: a - ! real(psb_dpk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_d_csr_scalplusidentity - ! end interface - - !> \namespace psb_base_mod \class psb_ld_csr_sparse_mat !! \extends psb_ld_base_mat_mod::psb_ld_base_sparse_mat !! diff --git a/base/modules/serial/psb_s_csc_mat_mod.f90 b/base/modules/serial/psb_s_csc_mat_mod.f90 index f513cb728..822659d94 100644 --- a/base/modules/serial/psb_s_csc_mat_mod.f90 +++ b/base/modules/serial/psb_s_csc_mat_mod.f90 @@ -71,7 +71,6 @@ module psb_s_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csc_cssv procedure, pass(a) :: scals => psb_s_csc_scals procedure, pass(a) :: scalv => psb_s_csc_scal -! procedure, pass(a) :: scalpid => psb_s_csc_scalplusidentity procedure, pass(a) :: maxval => psb_s_csc_maxval procedure, pass(a) :: spnm1 => psb_s_csc_csnm1 procedure, pass(a) :: rowsum => psb_s_csc_rowsum @@ -128,7 +127,6 @@ module psb_s_csc_mat_mod procedure, pass(a) :: sizeof => ls_csc_sizeof procedure, pass(a) :: scals => psb_ls_csc_scals procedure, pass(a) :: scalv => psb_ls_csc_scal -! procedure, pass(a) :: scalpid => psb_ls_csc_scalplusidentity procedure, pass(a) :: maxval => psb_ls_csc_maxval procedure, pass(a) :: spnm1 => psb_ls_csc_csnm1 procedure, pass(a) :: rowsum => psb_ls_csc_rowsum @@ -563,18 +561,6 @@ module psb_s_csc_mat_mod end subroutine psb_s_csc_scals end interface - !> \memberof psb_s_csc_sparse_mat - !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity - ! interface - ! subroutine psb_s_csc_scalplusidentity(d,a,info) - ! import - ! class(psb_s_csc_sparse_mat), intent(inout) :: a - ! real(psb_spk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_s_csc_scalplusidentity - ! end interface - - ! ! ls ! @@ -926,17 +912,6 @@ module psb_s_csc_mat_mod end subroutine psb_ls_csc_scals end interface - !> \memberof psb_ls_csc_sparse_mat - !! \see psb_ls_base_mat_mod::psb_ls_base_scalplusidentity -! interface -! subroutine psb_ls_csc_scalplusidentity(d,a,info) -! import -! class(psb_ls_csc_sparse_mat), intent(inout) :: a -! real(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! end subroutine psb_ls_csc_scalplusidentity -! end interface - contains ! == =================================== diff --git a/base/modules/serial/psb_s_csr_mat_mod.f90 b/base/modules/serial/psb_s_csr_mat_mod.f90 index 4a3cae6e0..01d36829a 100644 --- a/base/modules/serial/psb_s_csr_mat_mod.f90 +++ b/base/modules/serial/psb_s_csr_mat_mod.f90 @@ -73,7 +73,6 @@ module psb_s_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_s_csr_cssv procedure, pass(a) :: scals => psb_s_csr_scals procedure, pass(a) :: scalv => psb_s_csr_scal -! procedure, pass(a) :: scalpid => psb_s_csr_scalplusidentity procedure, pass(a) :: maxval => psb_s_csr_maxval procedure, pass(a) :: spnmi => psb_s_csr_csnmi procedure, pass(a) :: rowsum => psb_s_csr_rowsum @@ -580,18 +579,6 @@ module psb_s_csr_mat_mod end subroutine psb_s_csr_scals end interface - !> \memberof psb_s_csr_sparse_mat - !! \see psb_s_base_mat_mod::psb_s_base_scalplusidentity - ! interface - ! subroutine psb_s_csr_scalplusidentity(d,a,info) - ! import - ! class(psb_s_csr_sparse_mat), intent(inout) :: a - ! real(psb_spk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_s_csr_scalplusidentity - ! end interface - - !> \namespace psb_base_mod \class psb_ls_csr_sparse_mat !! \extends psb_ls_base_mat_mod::psb_ls_base_sparse_mat !! diff --git a/base/modules/serial/psb_z_csc_mat_mod.f90 b/base/modules/serial/psb_z_csc_mat_mod.f90 index 05c62cb81..b3b3e8fe1 100644 --- a/base/modules/serial/psb_z_csc_mat_mod.f90 +++ b/base/modules/serial/psb_z_csc_mat_mod.f90 @@ -71,7 +71,6 @@ module psb_z_csc_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csc_cssv procedure, pass(a) :: scals => psb_z_csc_scals procedure, pass(a) :: scalv => psb_z_csc_scal -! procedure, pass(a) :: scalpid => psb_z_csc_scalplusidentity procedure, pass(a) :: maxval => psb_z_csc_maxval procedure, pass(a) :: spnm1 => psb_z_csc_csnm1 procedure, pass(a) :: rowsum => psb_z_csc_rowsum @@ -128,7 +127,6 @@ module psb_z_csc_mat_mod procedure, pass(a) :: sizeof => lz_csc_sizeof procedure, pass(a) :: scals => psb_lz_csc_scals procedure, pass(a) :: scalv => psb_lz_csc_scal -! procedure, pass(a) :: scalpid => psb_lz_csc_scalplusidentity procedure, pass(a) :: maxval => psb_lz_csc_maxval procedure, pass(a) :: spnm1 => psb_lz_csc_csnm1 procedure, pass(a) :: rowsum => psb_lz_csc_rowsum @@ -563,18 +561,6 @@ module psb_z_csc_mat_mod end subroutine psb_z_csc_scals end interface - !> \memberof psb_z_csc_sparse_mat - !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity - ! interface - ! subroutine psb_z_csc_scalplusidentity(d,a,info) - ! import - ! class(psb_z_csc_sparse_mat), intent(inout) :: a - ! complex(psb_dpk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_z_csc_scalplusidentity - ! end interface - - ! ! lz ! @@ -926,17 +912,6 @@ module psb_z_csc_mat_mod end subroutine psb_lz_csc_scals end interface - !> \memberof psb_lz_csc_sparse_mat - !! \see psb_lz_base_mat_mod::psb_lz_base_scalplusidentity -! interface -! subroutine psb_lz_csc_scalplusidentity(d,a,info) -! import -! class(psb_lz_csc_sparse_mat), intent(inout) :: a -! complex(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! end subroutine psb_lz_csc_scalplusidentity -! end interface - contains ! == =================================== diff --git a/base/modules/serial/psb_z_csr_mat_mod.f90 b/base/modules/serial/psb_z_csr_mat_mod.f90 index cf11e1dd7..406ef6b4f 100644 --- a/base/modules/serial/psb_z_csr_mat_mod.f90 +++ b/base/modules/serial/psb_z_csr_mat_mod.f90 @@ -73,7 +73,6 @@ module psb_z_csr_mat_mod procedure, pass(a) :: inner_cssv => psb_z_csr_cssv procedure, pass(a) :: scals => psb_z_csr_scals procedure, pass(a) :: scalv => psb_z_csr_scal -! procedure, pass(a) :: scalpid => psb_z_csr_scalplusidentity procedure, pass(a) :: maxval => psb_z_csr_maxval procedure, pass(a) :: spnmi => psb_z_csr_csnmi procedure, pass(a) :: rowsum => psb_z_csr_rowsum @@ -580,18 +579,6 @@ module psb_z_csr_mat_mod end subroutine psb_z_csr_scals end interface - !> \memberof psb_z_csr_sparse_mat - !! \see psb_z_base_mat_mod::psb_z_base_scalplusidentity - ! interface - ! subroutine psb_z_csr_scalplusidentity(d,a,info) - ! import - ! class(psb_z_csr_sparse_mat), intent(inout) :: a - ! complex(psb_dpk_), intent(in) :: d - ! integer(psb_ipk_), intent(out) :: info - ! end subroutine psb_z_csr_scalplusidentity - ! end interface - - !> \namespace psb_base_mod \class psb_lz_csr_sparse_mat !! \extends psb_lz_base_mat_mod::psb_lz_base_sparse_mat !! diff --git a/base/serial/impl/psb_c_csc_impl.f90 b/base/serial/impl/psb_c_csc_impl.f90 index 419ee70d9..62f0b738e 100644 --- a/base/serial/impl/psb_c_csc_impl.f90 +++ b/base/serial/impl/psb_c_csc_impl.f90 @@ -1485,49 +1485,6 @@ subroutine psb_c_csc_scals(d,a,info) end subroutine psb_c_csc_scals -! subroutine psb_c_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_c_csc_mat_mod, psb_protect_name => psb_c_csc_scalplusidentity -! implicit none -! class(psb_c_csc_sparse_mat), intent(inout) :: a -! complex(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! integer(psb_ipk_) :: ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + cone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_c_csc_scalplusidentity - ! == =================================== ! @@ -3107,49 +3064,6 @@ subroutine psb_lc_csc_scals(d,a,info) end subroutine psb_lc_csc_scals -! subroutine psb_lc_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_scalplusidentity -! implicit none -! class(psb_lc_csc_sparse_mat), intent(inout) :: a -! complex(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_lpk_) :: mnm, i, j, k, m -! integer(psb_ipk_) :: err_act, ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + cone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_lc_csc_scalplusidentity - function psb_lc_csc_maxval(a) result(res) use psb_error_mod use psb_c_csc_mat_mod, psb_protect_name => psb_lc_csc_maxval diff --git a/base/serial/impl/psb_c_csr_impl.f90 b/base/serial/impl/psb_c_csr_impl.f90 index 22f0850f8..2c333b38f 100644 --- a/base/serial/impl/psb_c_csr_impl.f90 +++ b/base/serial/impl/psb_c_csr_impl.f90 @@ -1677,50 +1677,6 @@ subroutine psb_c_csr_scals(d,a,info) end subroutine psb_c_csr_scals -! subroutine psb_c_csr_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_c_csr_mat_mod, psb_protect_name => psb_c_csr_scalplusidentity -! implicit none -! class(psb_c_csr_sparse_mat), intent(inout) :: a -! complex(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%irp(i),a%irp(i+1)-1 -! j=a%ja(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + cone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! return -! -! end subroutine psb_c_csr_scalplusidentity - - - - ! == =================================== ! ! diff --git a/base/serial/impl/psb_d_csc_impl.f90 b/base/serial/impl/psb_d_csc_impl.f90 index f55ce774a..624332e54 100644 --- a/base/serial/impl/psb_d_csc_impl.f90 +++ b/base/serial/impl/psb_d_csc_impl.f90 @@ -1485,49 +1485,6 @@ subroutine psb_d_csc_scals(d,a,info) end subroutine psb_d_csc_scals -! subroutine psb_d_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_d_csc_mat_mod, psb_protect_name => psb_d_csc_scalplusidentity -! implicit none -! class(psb_d_csc_sparse_mat), intent(inout) :: a -! real(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! integer(psb_ipk_) :: ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + done -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_d_csc_scalplusidentity - ! == =================================== ! @@ -3107,49 +3064,6 @@ subroutine psb_ld_csc_scals(d,a,info) end subroutine psb_ld_csc_scals -! subroutine psb_ld_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_scalplusidentity -! implicit none -! class(psb_ld_csc_sparse_mat), intent(inout) :: a -! real(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_lpk_) :: mnm, i, j, k, m -! integer(psb_ipk_) :: err_act, ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + done -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_ld_csc_scalplusidentity - function psb_ld_csc_maxval(a) result(res) use psb_error_mod use psb_d_csc_mat_mod, psb_protect_name => psb_ld_csc_maxval diff --git a/base/serial/impl/psb_d_csr_impl.f90 b/base/serial/impl/psb_d_csr_impl.f90 index 70c2515e2..1a99ae9ab 100644 --- a/base/serial/impl/psb_d_csr_impl.f90 +++ b/base/serial/impl/psb_d_csr_impl.f90 @@ -1677,50 +1677,6 @@ subroutine psb_d_csr_scals(d,a,info) end subroutine psb_d_csr_scals -! subroutine psb_d_csr_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_d_csr_mat_mod, psb_protect_name => psb_d_csr_scalplusidentity -! implicit none -! class(psb_d_csr_sparse_mat), intent(inout) :: a -! real(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%irp(i),a%irp(i+1)-1 -! j=a%ja(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + done -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! return -! -! end subroutine psb_d_csr_scalplusidentity - - - - ! == =================================== ! ! diff --git a/base/serial/impl/psb_s_csc_impl.f90 b/base/serial/impl/psb_s_csc_impl.f90 index fcd00755a..40eeb40ef 100644 --- a/base/serial/impl/psb_s_csc_impl.f90 +++ b/base/serial/impl/psb_s_csc_impl.f90 @@ -1485,49 +1485,6 @@ subroutine psb_s_csc_scals(d,a,info) end subroutine psb_s_csc_scals -! subroutine psb_s_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_s_csc_mat_mod, psb_protect_name => psb_s_csc_scalplusidentity -! implicit none -! class(psb_s_csc_sparse_mat), intent(inout) :: a -! real(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! integer(psb_ipk_) :: ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + sone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_s_csc_scalplusidentity - ! == =================================== ! @@ -3107,49 +3064,6 @@ subroutine psb_ls_csc_scals(d,a,info) end subroutine psb_ls_csc_scals -! subroutine psb_ls_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_scalplusidentity -! implicit none -! class(psb_ls_csc_sparse_mat), intent(inout) :: a -! real(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_lpk_) :: mnm, i, j, k, m -! integer(psb_ipk_) :: err_act, ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + sone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_ls_csc_scalplusidentity - function psb_ls_csc_maxval(a) result(res) use psb_error_mod use psb_s_csc_mat_mod, psb_protect_name => psb_ls_csc_maxval diff --git a/base/serial/impl/psb_s_csr_impl.f90 b/base/serial/impl/psb_s_csr_impl.f90 index 18c285ab0..d60af4f49 100644 --- a/base/serial/impl/psb_s_csr_impl.f90 +++ b/base/serial/impl/psb_s_csr_impl.f90 @@ -1677,50 +1677,6 @@ subroutine psb_s_csr_scals(d,a,info) end subroutine psb_s_csr_scals -! subroutine psb_s_csr_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_s_csr_mat_mod, psb_protect_name => psb_s_csr_scalplusidentity -! implicit none -! class(psb_s_csr_sparse_mat), intent(inout) :: a -! real(psb_spk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%irp(i),a%irp(i+1)-1 -! j=a%ja(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + sone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! return -! -! end subroutine psb_s_csr_scalplusidentity - - - - ! == =================================== ! ! diff --git a/base/serial/impl/psb_z_csc_impl.f90 b/base/serial/impl/psb_z_csc_impl.f90 index 715673cee..3cde422fb 100644 --- a/base/serial/impl/psb_z_csc_impl.f90 +++ b/base/serial/impl/psb_z_csc_impl.f90 @@ -1485,49 +1485,6 @@ subroutine psb_z_csc_scals(d,a,info) end subroutine psb_z_csc_scals -! subroutine psb_z_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_z_csc_mat_mod, psb_protect_name => psb_z_csc_scalplusidentity -! implicit none -! class(psb_z_csc_sparse_mat), intent(inout) :: a -! complex(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! integer(psb_ipk_) :: ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + zone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_z_csc_scalplusidentity - ! == =================================== ! @@ -3107,49 +3064,6 @@ subroutine psb_lz_csc_scals(d,a,info) end subroutine psb_lz_csc_scals -! subroutine psb_lz_csc_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_scalplusidentity -! implicit none -! class(psb_lz_csc_sparse_mat), intent(inout) :: a -! complex(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_lpk_) :: mnm, i, j, k, m -! integer(psb_ipk_) :: err_act, ierr(5) -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%icp(i),a%icp(i+1)-1 -! j=a%ia(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + zone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! -! return -! -! end subroutine psb_lz_csc_scalplusidentity - function psb_lz_csc_maxval(a) result(res) use psb_error_mod use psb_z_csc_mat_mod, psb_protect_name => psb_lz_csc_maxval diff --git a/base/serial/impl/psb_z_csr_impl.f90 b/base/serial/impl/psb_z_csr_impl.f90 index 6071f563a..43b40b3a8 100644 --- a/base/serial/impl/psb_z_csr_impl.f90 +++ b/base/serial/impl/psb_z_csr_impl.f90 @@ -1677,50 +1677,6 @@ subroutine psb_z_csr_scals(d,a,info) end subroutine psb_z_csr_scals -! subroutine psb_z_csr_scalplusidentity(d,a,info) -! use psb_error_mod -! use psb_const_mod -! use psb_z_csr_mat_mod, psb_protect_name => psb_z_csr_scalplusidentity -! implicit none -! class(psb_z_csr_sparse_mat), intent(inout) :: a -! complex(psb_dpk_), intent(in) :: d -! integer(psb_ipk_), intent(out) :: info -! -! integer(psb_ipk_) :: err_act,mnm, i, j, k, m -! character(len=20) :: name='scalplusidentity' -! logical, parameter :: debug=.false. -! -! info = psb_success_ -! call psb_erractionsave(err_act) -! if (a%is_dev()) call a%sync() -! -! if (a%is_unit()) then -! call a%make_nonunit() -! end if -! -! mnm = min(a%get_nrows(),a%get_ncols()) -! do i=1,a%get_nzeros() -! a%val(i) = a%val(i) * d -! do k=a%irp(i),a%irp(i+1)-1 -! j=a%ja(k) -! if ((j == i) .and.(j <= mnm )) then -! a%val(k) = a%val(k) + zone -! endif -! enddo -! enddo -! call a%set_host() -! -! call psb_erractionrestore(err_act) -! return -! -! 9999 call psb_error_handler(err_act) -! return -! -! end subroutine psb_z_csr_scalplusidentity - - - - ! == =================================== ! ! From 166bd219ef16cf5918858c79f4e088181550ed1f Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Wed, 15 Apr 2020 12:22:21 +0200 Subject: [PATCH 60/61] Corrected checkmat bugs in compare and get_nnz routines --- base/psblas/psb_ccmp_vect.f90 | 52 +++++++-------------------- base/psblas/psb_cgetmatinfo.f90 | 16 ++------- base/psblas/psb_dcmp_vect.f90 | 52 +++++++-------------------- base/psblas/psb_dgetmatinfo.f90 | 16 ++------- base/psblas/psb_scmp_vect.f90 | 52 +++++++-------------------- base/psblas/psb_sgetmatinfo.f90 | 16 ++------- base/psblas/psb_zcmp_vect.f90 | 52 +++++++-------------------- base/psblas/psb_zgetmatinfo.f90 | 16 ++------- base/serial/impl/psb_c_coo_impl.f90 | 18 ++++------ base/serial/impl/psb_d_coo_impl.f90 | 18 ++++------ base/serial/impl/psb_s_coo_impl.f90 | 18 ++++------ base/serial/impl/psb_z_coo_impl.f90 | 18 ++++------ cbind/base/psb_c_psblas_cbind_mod.f90 | 12 +++++++ cbind/base/psb_d_psblas_cbind_mod.f90 | 12 +++++++ cbind/base/psb_s_psblas_cbind_mod.f90 | 12 +++++++ cbind/base/psb_z_psblas_cbind_mod.f90 | 12 +++++++ 16 files changed, 136 insertions(+), 256 deletions(-) diff --git a/base/psblas/psb_ccmp_vect.f90 b/base/psblas/psb_ccmp_vect.f90 index 64298a74f..367f193b6 100644 --- a/base/psblas/psb_ccmp_vect.f90 +++ b/base/psblas/psb_ccmp_vect.f90 @@ -119,8 +119,6 @@ subroutine psb_ccmp_spmatval(a,val,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja - integer(psb_ipk_) :: iia,jja name='psb_ccmp_spmatval' info=psb_success_ @@ -139,21 +137,13 @@ subroutine psb_ccmp_spmatval(a,val,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols()))) then + res = .false. + else + res = a%spcmp(val,tol,info) end if - res = a%spcmp(val,tol,info) - call psb_lallreduceand(ictxt,res) call psb_erractionrestore(err_act) @@ -183,8 +173,6 @@ subroutine psb_ccmp_spmat(a,b,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja,ib,jb - integer(psb_ipk_) :: iia,jja,iib,jjb name='psb_ccmp_spmatval' info=psb_success_ @@ -203,32 +191,18 @@ subroutine psb_ccmp_spmat(a,b,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - ib = 1 - jb = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_rows() == b%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols())& + .and.(desc_a%get_local_cols() == b%get_ncols()))) then + res = .false. + else + res = a%spcmp(b,tol,info) end if - call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%spcmp(b,tol,info) call psb_lallreduceand(ictxt,res) + call psb_erractionrestore(err_act) if (debug_level >= psb_debug_comp_) then call psb_barrier(ictxt) diff --git a/base/psblas/psb_cgetmatinfo.f90 b/base/psblas/psb_cgetmatinfo.f90 index 788a591e2..9e406c155 100644 --- a/base/psblas/psb_cgetmatinfo.f90 +++ b/base/psblas/psb_cgetmatinfo.f90 @@ -49,7 +49,7 @@ function psb_cget_nnz(a,desc_a,info) result(res) ! locals integer(psb_ipk_) :: ictxt, np, me,& & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz + integer(psb_lpk_) :: localnnz character(len=20) :: name, ch_err ! name='psb_cget_nnz' @@ -67,21 +67,9 @@ function psb_cget_nnz(a,desc_a,info) result(res) goto 9999 endif - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - localnnz = a%get_nzeros() - call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + call psb_sum(ictxt,localnnz) call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_dcmp_vect.f90 b/base/psblas/psb_dcmp_vect.f90 index 98d4251e3..084feeda9 100644 --- a/base/psblas/psb_dcmp_vect.f90 +++ b/base/psblas/psb_dcmp_vect.f90 @@ -241,8 +241,6 @@ subroutine psb_dcmp_spmatval(a,val,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja - integer(psb_ipk_) :: iia,jja name='psb_dcmp_spmatval' info=psb_success_ @@ -261,21 +259,13 @@ subroutine psb_dcmp_spmatval(a,val,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols()))) then + res = .false. + else + res = a%spcmp(val,tol,info) end if - res = a%spcmp(val,tol,info) - call psb_lallreduceand(ictxt,res) call psb_erractionrestore(err_act) @@ -305,8 +295,6 @@ subroutine psb_dcmp_spmat(a,b,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja,ib,jb - integer(psb_ipk_) :: iia,jja,iib,jjb name='psb_dcmp_spmatval' info=psb_success_ @@ -325,32 +313,18 @@ subroutine psb_dcmp_spmat(a,b,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - ib = 1 - jb = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_rows() == b%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols())& + .and.(desc_a%get_local_cols() == b%get_ncols()))) then + res = .false. + else + res = a%spcmp(b,tol,info) end if - call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%spcmp(b,tol,info) call psb_lallreduceand(ictxt,res) + call psb_erractionrestore(err_act) if (debug_level >= psb_debug_comp_) then call psb_barrier(ictxt) diff --git a/base/psblas/psb_dgetmatinfo.f90 b/base/psblas/psb_dgetmatinfo.f90 index c574a2e44..2caf8ed43 100644 --- a/base/psblas/psb_dgetmatinfo.f90 +++ b/base/psblas/psb_dgetmatinfo.f90 @@ -49,7 +49,7 @@ function psb_dget_nnz(a,desc_a,info) result(res) ! locals integer(psb_ipk_) :: ictxt, np, me,& & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz + integer(psb_lpk_) :: localnnz character(len=20) :: name, ch_err ! name='psb_dget_nnz' @@ -67,21 +67,9 @@ function psb_dget_nnz(a,desc_a,info) result(res) goto 9999 endif - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - localnnz = a%get_nzeros() - call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + call psb_sum(ictxt,localnnz) call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_scmp_vect.f90 b/base/psblas/psb_scmp_vect.f90 index beb2067a1..c67cda7c7 100644 --- a/base/psblas/psb_scmp_vect.f90 +++ b/base/psblas/psb_scmp_vect.f90 @@ -241,8 +241,6 @@ subroutine psb_scmp_spmatval(a,val,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja - integer(psb_ipk_) :: iia,jja name='psb_scmp_spmatval' info=psb_success_ @@ -261,21 +259,13 @@ subroutine psb_scmp_spmatval(a,val,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols()))) then + res = .false. + else + res = a%spcmp(val,tol,info) end if - res = a%spcmp(val,tol,info) - call psb_lallreduceand(ictxt,res) call psb_erractionrestore(err_act) @@ -305,8 +295,6 @@ subroutine psb_scmp_spmat(a,b,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja,ib,jb - integer(psb_ipk_) :: iia,jja,iib,jjb name='psb_scmp_spmatval' info=psb_success_ @@ -325,32 +313,18 @@ subroutine psb_scmp_spmat(a,b,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - ib = 1 - jb = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_rows() == b%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols())& + .and.(desc_a%get_local_cols() == b%get_ncols()))) then + res = .false. + else + res = a%spcmp(b,tol,info) end if - call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%spcmp(b,tol,info) call psb_lallreduceand(ictxt,res) + call psb_erractionrestore(err_act) if (debug_level >= psb_debug_comp_) then call psb_barrier(ictxt) diff --git a/base/psblas/psb_sgetmatinfo.f90 b/base/psblas/psb_sgetmatinfo.f90 index b1368cc78..8888d4db2 100644 --- a/base/psblas/psb_sgetmatinfo.f90 +++ b/base/psblas/psb_sgetmatinfo.f90 @@ -49,7 +49,7 @@ function psb_sget_nnz(a,desc_a,info) result(res) ! locals integer(psb_ipk_) :: ictxt, np, me,& & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz + integer(psb_lpk_) :: localnnz character(len=20) :: name, ch_err ! name='psb_sget_nnz' @@ -67,21 +67,9 @@ function psb_sget_nnz(a,desc_a,info) result(res) goto 9999 endif - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - localnnz = a%get_nzeros() - call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + call psb_sum(ictxt,localnnz) call psb_erractionrestore(err_act) return diff --git a/base/psblas/psb_zcmp_vect.f90 b/base/psblas/psb_zcmp_vect.f90 index b607e0b86..d0184d09d 100644 --- a/base/psblas/psb_zcmp_vect.f90 +++ b/base/psblas/psb_zcmp_vect.f90 @@ -119,8 +119,6 @@ subroutine psb_zcmp_spmatval(a,val,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja - integer(psb_ipk_) :: iia,jja name='psb_zcmp_spmatval' info=psb_success_ @@ -139,21 +137,13 @@ subroutine psb_zcmp_spmatval(a,val,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols()))) then + res = .false. + else + res = a%spcmp(val,tol,info) end if - res = a%spcmp(val,tol,info) - call psb_lallreduceand(ictxt,res) call psb_erractionrestore(err_act) @@ -183,8 +173,6 @@ subroutine psb_zcmp_spmat(a,b,tol,desc_a,res,info) integer(psb_ipk_) :: err_act character(len=20) :: name, ch_err integer(psb_ipk_) :: debug_level, debug_unit - integer(psb_lpk_) :: m,n,ia,ja,ib,jb - integer(psb_ipk_) :: iia,jja,iib,jjb name='psb_zcmp_spmatval' info=psb_success_ @@ -203,32 +191,18 @@ subroutine psb_zcmp_spmat(a,b,tol,desc_a,res,info) goto 9999 endif - ia = 1 - ja = 1 - ib = 1 - jb = 1 - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - ! checking for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_1' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 + if (.not.((desc_a%get_local_rows() == a%get_nrows())& + .and.(desc_a%get_local_rows() == b%get_nrows())& + .and.(desc_a%get_local_cols() == a%get_ncols())& + .and.(desc_a%get_local_cols() == b%get_ncols()))) then + res = .false. + else + res = a%spcmp(b,tol,info) end if - call psb_chkmat(m,n,ib,jb,desc_a,info,iib,jjb) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat_2' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - - res = a%spcmp(b,tol,info) call psb_lallreduceand(ictxt,res) + call psb_erractionrestore(err_act) if (debug_level >= psb_debug_comp_) then call psb_barrier(ictxt) diff --git a/base/psblas/psb_zgetmatinfo.f90 b/base/psblas/psb_zgetmatinfo.f90 index d3e3562b3..7d18418b3 100644 --- a/base/psblas/psb_zgetmatinfo.f90 +++ b/base/psblas/psb_zgetmatinfo.f90 @@ -49,7 +49,7 @@ function psb_zget_nnz(a,desc_a,info) result(res) ! locals integer(psb_ipk_) :: ictxt, np, me,& & err_act, iia, jja - integer(psb_lpk_) :: m,n,ia,ja,localnnz + integer(psb_lpk_) :: localnnz character(len=20) :: name, ch_err ! name='psb_zget_nnz' @@ -67,21 +67,9 @@ function psb_zget_nnz(a,desc_a,info) result(res) goto 9999 endif - m = desc_a%get_global_rows() - n = desc_a%get_global_cols() - - ! Check for matrix correctness - call psb_chkmat(m,n,ia,ja,desc_a,info,iia,jja) - if(info /= psb_success_) then - info=psb_err_from_subroutine_ - ch_err='psb_chkmat' - call psb_errpush(info,name,a_err=ch_err) - goto 9999 - end if - localnnz = a%get_nzeros() - call MPI_ALLREDUCE(localnnz, res, 1, MPI_LONG, MPI_SUM, ictxt, info) + call psb_sum(ictxt,localnnz) call psb_erractionrestore(err_act) return diff --git a/base/serial/impl/psb_c_coo_impl.f90 b/base/serial/impl/psb_c_coo_impl.f90 index 644c3638a..f4240d3d2 100644 --- a/base/serial/impl/psb_c_coo_impl.f90 +++ b/base/serial/impl/psb_c_coo_impl.f90 @@ -328,9 +328,8 @@ function psb_c_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_ipk_) :: nza, nzb, M, N + integer(psb_ipk_) :: nza, nzb, nzl, M, N type(psb_c_coo_sparse_mat) :: tcoo, bcoo - real(psb_spk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -352,7 +351,7 @@ function psb_c_coo_cmpmat(a,b,tol,info) result(res) tcoo%val(1:nza) = a%val(1:nza) tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) - tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-sone)*bcoo%val(1:nzb) ! Fix the indexes call tcoo%fix(info) if (info /= psb_success_) then @@ -360,10 +359,9 @@ function psb_c_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = maxval(abs(tcoo%val)); - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. @@ -4832,9 +4830,8 @@ function psb_lc_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_lpk_) :: nza, nzb, M, N + integer(psb_lpk_) :: nza, nzb, nzl, M, N type(psb_lc_coo_sparse_mat) :: tcoo, bcoo - real(psb_spk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -4864,10 +4861,9 @@ function psb_lc_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = tcoo%spnmi() - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. diff --git a/base/serial/impl/psb_d_coo_impl.f90 b/base/serial/impl/psb_d_coo_impl.f90 index 7255cb7a0..aeddc6f3c 100644 --- a/base/serial/impl/psb_d_coo_impl.f90 +++ b/base/serial/impl/psb_d_coo_impl.f90 @@ -328,9 +328,8 @@ function psb_d_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_ipk_) :: nza, nzb, M, N + integer(psb_ipk_) :: nza, nzb, nzl, M, N type(psb_d_coo_sparse_mat) :: tcoo, bcoo - real(psb_dpk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -352,7 +351,7 @@ function psb_d_coo_cmpmat(a,b,tol,info) result(res) tcoo%val(1:nza) = a%val(1:nza) tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) - tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-done)*bcoo%val(1:nzb) ! Fix the indexes call tcoo%fix(info) if (info /= psb_success_) then @@ -360,10 +359,9 @@ function psb_d_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = maxval(abs(tcoo%val)); - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. @@ -4832,9 +4830,8 @@ function psb_ld_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_lpk_) :: nza, nzb, M, N + integer(psb_lpk_) :: nza, nzb, nzl, M, N type(psb_ld_coo_sparse_mat) :: tcoo, bcoo - real(psb_dpk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -4864,10 +4861,9 @@ function psb_ld_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = tcoo%spnmi() - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. diff --git a/base/serial/impl/psb_s_coo_impl.f90 b/base/serial/impl/psb_s_coo_impl.f90 index db8d908c8..31d7995e2 100644 --- a/base/serial/impl/psb_s_coo_impl.f90 +++ b/base/serial/impl/psb_s_coo_impl.f90 @@ -328,9 +328,8 @@ function psb_s_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_ipk_) :: nza, nzb, M, N + integer(psb_ipk_) :: nza, nzb, nzl, M, N type(psb_s_coo_sparse_mat) :: tcoo, bcoo - real(psb_spk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -352,7 +351,7 @@ function psb_s_coo_cmpmat(a,b,tol,info) result(res) tcoo%val(1:nza) = a%val(1:nza) tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) - tcoo%val(nza+1:nza+nzb) = (-1_psb_spk_)*bcoo%val(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-sone)*bcoo%val(1:nzb) ! Fix the indexes call tcoo%fix(info) if (info /= psb_success_) then @@ -360,10 +359,9 @@ function psb_s_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = maxval(abs(tcoo%val)); - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. @@ -4832,9 +4830,8 @@ function psb_ls_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_lpk_) :: nza, nzb, M, N + integer(psb_lpk_) :: nza, nzb, nzl, M, N type(psb_ls_coo_sparse_mat) :: tcoo, bcoo - real(psb_spk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -4864,10 +4861,9 @@ function psb_ls_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = tcoo%spnmi() - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. diff --git a/base/serial/impl/psb_z_coo_impl.f90 b/base/serial/impl/psb_z_coo_impl.f90 index 73667152c..b950ed195 100644 --- a/base/serial/impl/psb_z_coo_impl.f90 +++ b/base/serial/impl/psb_z_coo_impl.f90 @@ -328,9 +328,8 @@ function psb_z_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_ipk_) :: nza, nzb, M, N + integer(psb_ipk_) :: nza, nzb, nzl, M, N type(psb_z_coo_sparse_mat) :: tcoo, bcoo - real(psb_dpk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -352,7 +351,7 @@ function psb_z_coo_cmpmat(a,b,tol,info) result(res) tcoo%val(1:nza) = a%val(1:nza) tcoo%ia(nza+1:nza+nzb) = bcoo%ia(1:nzb) tcoo%ja(nza+1:nza+nzb) = bcoo%ja(1:nzb) - tcoo%val(nza+1:nza+nzb) = (-1_psb_dpk_)*bcoo%val(1:nzb) + tcoo%val(nza+1:nza+nzb) = (-done)*bcoo%val(1:nzb) ! Fix the indexes call tcoo%fix(info) if (info /= psb_success_) then @@ -360,10 +359,9 @@ function psb_z_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = maxval(abs(tcoo%val)); - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. @@ -4832,9 +4830,8 @@ function psb_lz_coo_cmpmat(a,b,tol,info) result(res) character(len=20) :: name='cmpmat' logical, parameter :: debug=.false. - integer(psb_lpk_) :: nza, nzb, M, N + integer(psb_lpk_) :: nza, nzb, nzl, M, N type(psb_lz_coo_sparse_mat) :: tcoo, bcoo - real(psb_dpk_) :: normval ! Copy (whatever) b format to coo call b%cp_to_coo(bcoo,info) @@ -4864,10 +4861,9 @@ function psb_lz_coo_cmpmat(a,b,tol,info) result(res) call psb_errpush(info,name, a_err='fix') goto 9999 end if + nzl = tcoo%get_nzeros() - normval = tcoo%spnmi() - - if ( normval > tol) then + if (any(abs(tcoo%val(1:nzl)) > tol)) then res = .false. else res = .true. diff --git a/cbind/base/psb_c_psblas_cbind_mod.f90 b/cbind/base/psb_c_psblas_cbind_mod.f90 index 87f8a371e..aea9bad2b 100644 --- a/cbind/base/psb_c_psblas_cbind_mod.f90 +++ b/cbind/base/psb_c_psblas_cbind_mod.f90 @@ -476,6 +476,8 @@ contains real(c_float_complex), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -512,6 +514,8 @@ contains real(c_float_complex), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -948,6 +952,8 @@ contains type(psb_cspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = 0 + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -974,6 +980,8 @@ contains type(psb_cspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -999,6 +1007,8 @@ contains type(psb_cspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1024,6 +1034,8 @@ contains type(psb_cspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else diff --git a/cbind/base/psb_d_psblas_cbind_mod.f90 b/cbind/base/psb_d_psblas_cbind_mod.f90 index bda8bd848..07c4d9323 100644 --- a/cbind/base/psb_d_psblas_cbind_mod.f90 +++ b/cbind/base/psb_d_psblas_cbind_mod.f90 @@ -476,6 +476,8 @@ contains real(c_double), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -512,6 +514,8 @@ contains real(c_double), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1049,6 +1053,8 @@ contains type(psb_dspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = 0 + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1075,6 +1081,8 @@ contains type(psb_dspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1100,6 +1108,8 @@ contains type(psb_dspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1125,6 +1135,8 @@ contains type(psb_dspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else diff --git a/cbind/base/psb_s_psblas_cbind_mod.f90 b/cbind/base/psb_s_psblas_cbind_mod.f90 index 41898854c..271d8a1c7 100644 --- a/cbind/base/psb_s_psblas_cbind_mod.f90 +++ b/cbind/base/psb_s_psblas_cbind_mod.f90 @@ -476,6 +476,8 @@ contains real(c_float), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -512,6 +514,8 @@ contains real(c_float), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1049,6 +1053,8 @@ contains type(psb_sspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = 0 + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1075,6 +1081,8 @@ contains type(psb_sspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1100,6 +1108,8 @@ contains type(psb_sspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1125,6 +1135,8 @@ contains type(psb_sspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else diff --git a/cbind/base/psb_z_psblas_cbind_mod.f90 b/cbind/base/psb_z_psblas_cbind_mod.f90 index 8b168290f..0254860ba 100644 --- a/cbind/base/psb_z_psblas_cbind_mod.f90 +++ b/cbind/base/psb_z_psblas_cbind_mod.f90 @@ -476,6 +476,8 @@ contains real(c_double_complex), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -512,6 +514,8 @@ contains real(c_double_complex), value :: tol logical :: isequal + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -948,6 +952,8 @@ contains type(psb_zspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = 0 + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -974,6 +980,8 @@ contains type(psb_zspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -999,6 +1007,8 @@ contains type(psb_zspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else @@ -1024,6 +1034,8 @@ contains type(psb_zspmat_type), pointer :: ap integer(psb_c_ipk_) :: info + res = .false. + if (c_associated(cdh%item)) then call c_f_pointer(cdh%item,descp) else From 9870e5d371171f806adfe0e9b11fdcdd662489b8 Mon Sep 17 00:00:00 2001 From: Cirdans-Home Date: Thu, 16 Apr 2020 11:07:28 +0200 Subject: [PATCH 61/61] Corrected module load for util_cbind module --- cbind/util/Makefile | 29 +++++++---------- cbind/util/psb_c_util_cbind_mod.f90 | 48 ++++++----------------------- cbind/util/psb_d_util_cbind_mod.f90 | 48 ++++++----------------------- cbind/util/psb_s_util_cbind_mod.f90 | 48 ++++++----------------------- cbind/util/psb_util_cbind_mod.f90 | 6 ++++ cbind/util/psb_z_util_cbind_mod.f90 | 48 ++++++----------------------- 6 files changed, 57 insertions(+), 170 deletions(-) create mode 100644 cbind/util/psb_util_cbind_mod.f90 diff --git a/cbind/util/Makefile b/cbind/util/Makefile index f79809770..d37cb6807 100644 --- a/cbind/util/Makefile +++ b/cbind/util/Makefile @@ -1,6 +1,6 @@ TOP=../.. include $(TOP)/Make.inc -LIBDIR=$(TOP)lib +LIBDIR=$(TOP)/lib INCLUDEDIR=$(TOP)/include MODDIR=$(TOP)/modules HERE=.. @@ -8,30 +8,23 @@ HERE=.. FINCLUDES=$(FMFLAG). $(FMFLAG)$(HERE) $(FMFLAG)$(MODDIR) CINCLUDES=-I. -I$(HERE) -I$(INCLUDEDIR) -FOBJS= psb_c_util_cbind_mod.o \ - psb_d_util_cbind_mod.o \ - psb_s_util_cbind_mod.o \ - psb_z_util_cbind_mod.o +OBJS=psb_util_cbind_mod.o \ +psb_c_util_cbind_mod.o \ +psb_d_util_cbind_mod.o \ +psb_s_util_cbind_mod.o \ +psb_z_util_cbind_mod.o +CMOD=psb_util_cbind.h psb_c_cutil.h psb_c_zutil.h psb_c_dutil.h psb_c_sutil.h -# COBJS= psb_c_sutil.o psb_c_dutil.o psb_c_cutil.o psb_c_zutil.o -CMOD= psb_util_cbind.h psb_c_cutil.h psb_c_zutil.h psb_c_dutil.h psb_c_sutil.h -OBJS=$(FOBJS) $(COBJS) - -LIBNAME=$(CBINDLIBNAME) +LIBNAME=$(CUTILLIBNAME) lib: $(OBJS) $(CMOD) $(AR) $(HERE)/$(LIBNAME) $(OBJS) $(RANLIB) $(HERE)/$(LIBNAME) - /bin/cp -p *$(.mod) $(CMOD) $(HERE) - -# $(COBJS): $(CMOD) - -psb_util_cbind_mod.o: psb_c_util_cbind_mod.o \ - psb_d_util_cbind_mod.o \ - psb_s_util_cbind_mod.o \ - psb_z_util_cbind_mod.o + /bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) +psb_util_cbind_mod.o: psb_c_util_cbind_mod.o psb_d_util_cbind_mod.o psb_s_util_cbind_mod.o psb_z_util_cbind_mod.o veryclean: clean /bin/rm -f $(HERE)/$(LIBNAME) diff --git a/cbind/util/psb_c_util_cbind_mod.f90 b/cbind/util/psb_c_util_cbind_mod.f90 index 4b67b523f..3761cd082 100644 --- a/cbind/util/psb_c_util_cbind_mod.f90 +++ b/cbind/util/psb_c_util_cbind_mod.f90 @@ -1,59 +1,31 @@ -! -! 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. -! -! +module psb_cutil_cbind_mod -module psb_c_util_cbind_mod use iso_c_binding - use psb_base_mod use psb_util_mod + use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod contains function psb_c_cmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod implicit none - real(c_float_complex) :: res + integer(psb_c_ipk_) :: res type(psb_c_cspmat) :: ah character(c_char) :: matrixtitle(*) character(c_char) :: filename(*) type(psb_cspmat_type), pointer :: ap - character(1024) :: mtitle - character(1024) :: fname + character(len=1024) :: mtitle + character(len=1024) :: fname integer(psb_c_ipk_) :: info - res = -1.0 + res = -1 if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else @@ -69,4 +41,4 @@ contains end function psb_c_cmm_mat_write -end module +end module psb_cutil_cbind_mod diff --git a/cbind/util/psb_d_util_cbind_mod.f90 b/cbind/util/psb_d_util_cbind_mod.f90 index 4c689fdf3..245cff5e8 100644 --- a/cbind/util/psb_d_util_cbind_mod.f90 +++ b/cbind/util/psb_d_util_cbind_mod.f90 @@ -1,59 +1,31 @@ -! -! 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. -! -! +module psb_dutil_cbind_mod -module psb_d_util_cbind_mod use iso_c_binding - use psb_base_mod use psb_util_mod + use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod contains function psb_c_dmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod implicit none - real(c_double) :: res + integer(psb_c_ipk_) :: res type(psb_c_dspmat) :: ah character(c_char) :: matrixtitle(*) character(c_char) :: filename(*) type(psb_dspmat_type), pointer :: ap - character(1024) :: mtitle - character(1024) :: fname + character(len=1024) :: mtitle + character(len=1024) :: fname integer(psb_c_ipk_) :: info - res = -1.0 + res = -1 if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else @@ -69,4 +41,4 @@ contains end function psb_c_dmm_mat_write -end module +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 010c2604d..e857cde9a 100644 --- a/cbind/util/psb_s_util_cbind_mod.f90 +++ b/cbind/util/psb_s_util_cbind_mod.f90 @@ -1,59 +1,31 @@ -! -! 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. -! -! +module psb_sutil_cbind_mod -module psb_s_util_cbind_mod use iso_c_binding - use psb_base_mod use psb_util_mod + use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod contains function psb_c_smm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod implicit none - real(c_float) :: res + integer(psb_c_ipk_) :: res type(psb_c_sspmat) :: ah character(c_char) :: matrixtitle(*) character(c_char) :: filename(*) type(psb_sspmat_type), pointer :: ap - character(1024) :: mtitle - character(1024) :: fname + character(len=1024) :: mtitle + character(len=1024) :: fname integer(psb_c_ipk_) :: info - res = -1.0 + res = -1 if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else @@ -69,4 +41,4 @@ contains end function psb_c_smm_mat_write -end module +end module psb_sutil_cbind_mod diff --git a/cbind/util/psb_util_cbind_mod.f90 b/cbind/util/psb_util_cbind_mod.f90 new file mode 100644 index 000000000..96bafe4ac --- /dev/null +++ b/cbind/util/psb_util_cbind_mod.f90 @@ -0,0 +1,6 @@ +module psb_base_util_cbind_mod + use psb_cutil_cbind_mod + use psb_dutil_cbind_mod + use psb_sutil_cbind_mod + use psb_zutil_cbind_mod +end module psb_base_util_cbind_mod diff --git a/cbind/util/psb_z_util_cbind_mod.f90 b/cbind/util/psb_z_util_cbind_mod.f90 index 758f28fe7..e0b60005c 100644 --- a/cbind/util/psb_z_util_cbind_mod.f90 +++ b/cbind/util/psb_z_util_cbind_mod.f90 @@ -1,59 +1,31 @@ -! -! 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. -! -! +module psb_zutil_cbind_mod -module psb_z_util_cbind_mod use iso_c_binding - use psb_base_mod use psb_util_mod + use psb_base_mod use psb_objhandle_mod use psb_base_string_cbind_mod contains function psb_c_zmm_mat_write(ah,matrixtitle,filename) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod implicit none - real(c_double_complex) :: res + integer(psb_c_ipk_) :: res type(psb_c_zspmat) :: ah character(c_char) :: matrixtitle(*) character(c_char) :: filename(*) type(psb_zspmat_type), pointer :: ap - character(1024) :: mtitle - character(1024) :: fname + character(len=1024) :: mtitle + character(len=1024) :: fname integer(psb_c_ipk_) :: info - res = -1.0 + res = -1 if (c_associated(ah%item)) then call c_f_pointer(ah%item,ap) else @@ -69,4 +41,4 @@ contains end function psb_c_zmm_mat_write -end module +end module psb_zutil_cbind_mod